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