Common COMPCUA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcua +++|          CTEXT  COMPCUA - CHECK USER ACCESS.
00002  M00S00002.compcua +++| CUA      SPACE  4
00003  M00S00003.compcua +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compcua +++|          QUAL   COMPCUA

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compcua +++| CUA      SPACE  4
00008  M00S00007.compcua +++|***       CUA - CHECK USER ACCESS.
00009  M00S00008.compcua +++|*         G. R. MANSFIELD.  70/08/30.
00010  M00S00009.compcua +++| CUA      SPACE  4
00011  M00S00010.compcua +++|***              CUA CHECKS THE ORIGIN CODE OF A JOB AND VERIFIES
00012  M00S00011.compcua +++|*         THAT A GIVEN FUNCTION MAY BE PERFORMED.
00013  M00S00012.compcua +++|*

Line S00013 Modification History
`M01` (Removed by)	`pcua1`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.pcua1   ---|*         ENTRY  IF THE SYMBOL SSJ$ IS DEFINED, THE USER,S *AACW* WORD

Line S00001 Modification History
`M01` (Added by)	`pcua1`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.pcua1   +++|*         ENTRY  IF THE SYMBOL DIAG$ IS DEFINED, THE JOB AT THE
00016  M01S00002.pcua1   +++|*                CONTROL POINT MUST BE AN SSJ= JOB TO OBTAIN
00017  M01S00003.pcua1   +++|*                ENGINEERING ACCESS.
00018  M01S00004.pcua1   +++|*                IF THE SYMBOL SSJ$ IS DEFINED, THE USER-S *AACW* WORD
00019  M00S00014.compcua +++|*                WILL BE RETRIEVED FROM THE SSJ BLOCK IF AN SSJ PROGRAM
00020  M00S00015.compcua +++|*                IS CURRENTLY EXECUTING AT THE USER,S CONTROL POINT.
00021  M00S00016.compcua +++|*                IF THIS SYMBOL IS NOT DEFINED AND AN SSJ JOB

Line S00017 Modification History
`M01` (Removed by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00017.ns21000 ---|*                IS EXECUTING, *NO SYSTEM PRIVELEDGE* STATUS

Line S00001 Modification History
`M01` (Added by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00001.ns21000 +++|*                IS EXECUTING, *NO SYSTEM PRIVILEGE* STATUS
00024  M00S00018.compcua +++|*                WILL BE RETURNED.
00025  M00S00019.compcua +++|*
00026  M00S00020.compcua +++|*         EXIT   (A) = 0  IF SYSTEM ACCESS ALLOWED (DEBUG. ON).
00027  M00S00021.compcua +++|*                (CM) = 0  IF ENGINEERING ACCESS ALLOWED.
00028  M00S00022.compcua +++|*
00029  M00S00023.compcua +++|*         USES   CM - CM+4.

Line S00001 Modification History
`M01` (Added by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00001.ns2323  +++|*
00031  M01S00002.ns2323  +++|*         MACROS NFA.
00032  M00S00024.compcua +++|
00033  M00S00025.compcua +++|

Line S00005 Modification History
`M01` (Added by)	`pcua1`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00005.pcua1   +++| DIAG$    IF     DEF,DIAG$
00035  M01S00006.pcua1   +++| CUA0.1   LDN    1           DENY ENGINEERING ACCESS
00036  M01S00007.pcua1   +++| DIAG$    ENDIF
00037  M00S00026.compcua +++| CUA1     STD    CM          SAVE ENGINEERING MODE
00038  M00S00027.compcua +++|
00039  M00S00028.compcua +++| CUA      SUBR               ENTRY/EXIT
00040  M00S00029.compcua +++|          LDD    CP          READ JOB NAME
00041  M00S00030.compcua +++|          ADN    JOTW
00042  M00S00031.compcua +++|          CRD    CM
00043  M00S00032.compcua +++|          LDD    CM+3        CHECK ORIGIN CODE
00044  M00S00033.compcua +++|          LPN    77
00045  M00S00034.compcua +++|          LMK    SYOT
00046  M00S00035.compcua +++|          ZJN    CUA1        IF SYSTEM ORIGIN
00047  M00S00036.compcua +++|
00048  M00S00037.compcua +++|          LDD    CP
00049  M00S00038.compcua +++|          ADC    SEPW
00050  M00S00039.compcua +++|          CRD    CM
00051  M00S00040.compcua +++|          LDD    CM
00052  M00S00041.compcua +++|          SHN    21-2

Line S00008 Modification History
`M01` (Added by)	`pcua1`

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00008.pcua1   +++| DIAG$    IF     DEF,DIAG$
00054  M01S00009.pcua1   +++|          PJN    CUA0.1      IF NOT SSJ= JOB AT CONTROL POINT
00055  M01S00010.pcua1   +++| DIAG$    ELSE
00056  M00S00042.compcua +++|          PJN    CUA2        IF NOT SSJ= JOB AT CONTROL POINT

Line S00011 Modification History
`M01` (Added by)	`pcua1`

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00011.pcua1   +++| DIAG$    ENDIF
00058  M00S00043.compcua +++| SSJ$     IF     DEF,SSJ$
00059  M00S00044.compcua +++|          LDD    CM+3        CHECK IF SSJ= PARAMETER BLOCK PRESENT
00060  M00S00045.compcua +++|          LPN    37

Line S00046 Modification History
`M01` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00046.ns2323  ---|          SHN    14
00062  M00S00047.compcua +++|          ADD    CM+4
00063  M00S00048.compcua +++|          ZJN    CUA2        IF NO SSJ= PARAMETER BLOCK

Line S00049 Modification History
`M01` (Removed by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00049.ns2323  ---|          SHN    14          READ USERS *AACW* FROM SSJ PARAMETER BLOCK
00065  M01S00050.ns2323  ---|          ADD    RA
00066  M01S00051.ns2323  ---|          SHN    6
00067  M01S00052.ns2323  ---|          ADN    AACS

Line S00003 Modification History
`M01` (Added by)	`ns2323`

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00003.ns2323  +++|          NFA    SSJN+AACS   READ *AACW* FROM SSJ= PARAMETER BLOCK
00069  M00S00053.compcua +++|          UJN    CUA3
00070  M00S00054.compcua +++|
00071  M00S00055.compcua +++| SSJ$     ELSE

Line S00056 Modification History
`M01` (Removed by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00056.ns21000 ---|          LCN    1           SET NO SYSTEM PRIVELEDGES ALLOWED

Line S00002 Modification History
`M01` (Added by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00002.ns21000 +++|          LCN    1           SET NO SYSTEM PRIVILEGES ALLOWED
00074  M00S00057.compcua +++|          UJN    CUA1
00075  M00S00058.compcua +++|
00076  M00S00059.compcua +++| SSJ$     ENDIF
00077  M00S00060.compcua +++| CUA2     LDD    CP          READ USERS *AACW* FROM CONTROL POINT AREA
00078  M00S00061.compcua +++|          ADK    AACW
00079  M00S00062.compcua +++| CUA3     CRD    CM

Line S00003 Modification History
`M01` (Added by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00003.ns21000 +++|          LDD    CM+3        CHECK MAINTENANCE ACCESS
00081  M01S00004.ns21000 +++|          LPC    200
00082  M01S00005.ns21000 +++|          LMC    200
00083  M01S00006.ns21000 +++|          STD    CM
00084  M01S00007.ns21000 +++|          STM    CUAA
00085  M00S00063.compcua +++|          LDD    CM+4
00086  M00S00064.compcua +++|          LPN    20
00087  M00S00065.compcua +++|          LMN    20

Line S00066 Modification History
`M01` (Removed by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00066.ns21000 ---|          ZJN    CUA4        IF SYSTEM PRIVILEDGED
00089  M01S00067.ns21000 ---|          LJM    CUA1

Line S00008 Modification History
`M01` (Added by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00008.ns21000 +++|          ZJN    CUA4        IF SYSTEM PRIVILEGED
00091  M01S00009.ns21000 +++|          LJM    CUAX        RETURN
00092  M00S00068.compcua +++|
00093  M00S00069.compcua +++| CUA4     LDN    SSTL        READ SYSTEM STATUS WORD
00094  M00S00070.compcua +++|          CRD    CM

Line S00010 Modification History
`M01` (Added by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00010.ns21000 +++|          LDC    *           CHECK FOR MAINTENANCE ACCESS
00096  M01S00011.ns21000 +++| CUAA     EQU    *-1
00097  M01S00012.ns21000 +++|          ZJN    CUA5        IF MAINTENANCE ACCESS ALLOWED
00098  M00S00071.compcua +++|          LDD    CM+3        CHECK ENGINEERING MODE
00099  M00S00072.compcua +++|          LPN    4

Line S00073 Modification History
`M01` (Removed by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00073.ns21000 ---|          STD    CM

Line S00013 Modification History
`M01` (Added by)	`ns21000`

Seq #  *Modification Id* Act 
----------------------------+
00101  M01S00013.ns21000 +++| CUA5     STD    CM
00102  M00S00074.compcua +++|          LDD    CM+3        TOGGLE ON DEBUG SWITCH
00103  M00S00075.compcua +++|          LPN    1
00104  M00S00076.compcua +++|          LMN    1
00105  M00S00077.compcua +++|          LJM    CUAX        RETURN
00106  M00S00078.compcua +++|          SPACE  4
00107  M00S00079.compcua +++| QUAL$    IF     -DEF,QUAL$
00108  M00S00080.compcua +++|          QUAL   *
00109  M00S00081.compcua +++| CUA      EQU    /COMPCUA/CUA
00110  M00S00082.compcua +++| QUAL$    ENDIF
00111  M00S00083.compcua +++|          ENDX