Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.0vu +++| IDENT 0VU,/REL/RVUX
00002 M01S00002.0vu +++| PERIPH J
00003 M01S00003.0vu +++| BASE MIXED
00004 M01S00004.0vu +++| SST
00005 M01S00005.0vu +++| QUAL$ EQU 1
00006 M01S00006.0vu +++|*COMMENT 0VU - VERIFY USER AND JOB.
| Line S00007 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M01S00008.0vu +++| TITLE 0VU - VERIFY USER AND JOB.
00010 M01S00009.0vu +++| SPACE 4,10
00011 M01S00010.0vu +++|*** 0VU - VERIFY USER AND JOB.
00012 M01S00011.0vu +++|* P. C. SMITH. 83/02/11.
00013 M01S00012.0vu +++| SPACE 4,10
00014 M01S00013.0vu +++|*** *0VU* VALIDATES THE USER NAME SPECIFIED AND THE JOB
00015 M01S00014.0vu +++|* TO BE CREATED. *0VU* IS CALLED BY *0VJ*.
00016 M01S00015.0vu +++| SPACE 4,10
00017 M01S00016.0vu +++|*** ENTRY CONDITIONS.
00018 M01S00017.0vu +++|*
00019 M01S00018.0vu +++|* (OT) = ORIGIN TYPE OF JOB TO BE CREATED.
00020 M01S00019.0vu +++|* (BFMS) = SYSTEM SECTOR.
00021 M01S00020.0vu +++|*
00022 M01S00021.0vu +++|* SEE *COMS0VU* FOR MORE CONDITIONS.
00023 M01S00022.0vu +++| SPACE 4,10
00024 M01S00023.0vu +++|*** EXIT CONDITIONS.
00025 M01S00001.242l642 +++|*
00026 M01S00002.242l642 +++|* (A) .GE. 0.
00027 M01S00024.0vu +++|*
00028 M01S00025.0vu +++|* SYSTEM SECTOR INITIALIZATION COMPLETED.
00029 M01S00026.0vu +++|*
00030 M01S00027.0vu +++|* *0VU* RETURNS DIRECTLY TO THE PROGRAM THAT CALLED *0VJ*.
00031 M01S00028.0vu +++|*
00032 M01S00029.0vu +++|* SEE *0VJ* DOCUMENTATION FOR MORE CONDITIONS.
00033 M01S00030.0vu +++| SPACE 4,10
00034 M01S00031.0vu +++| TITLE MACRO DEFINITIONS.
00035 M01S00032.0vu +++| PARAM SPACE 4,10
00036 M01S00033.0vu +++|** PARAM - DEFINE *0VJ*/*0VU* INTERFACE PARAMETER.
00037 M01S00034.0vu +++|*
00038 M01S00035.0vu +++|* TAG PARAM NUM,VAL
00039 M01S00036.0vu +++|*
00040 M01S00037.0vu +++|* ENTRY TAG = SYMBOLIC NAME FOR LOCATION(S).
00041 M01S00038.0vu +++|* NUM = NUMBER OF LOCATIONS TO RESERVE.
00042 M01S00039.0vu +++|* (IF NUM = *FIRST*, INITIALIZE BLOCK;
00043 M01S00040.0vu +++|* IF NUM = *LAST*, TERMINATE BLOCK.)
00044 M01S00041.0vu +++|* VAL = VALUE TO PRESET LOCATION(S) WITH
00045 M01S00042.0vu +++|* (USED ONLY IN *0VJ* VERSION OF MACRO).
00046 M01S00043.0vu +++|
00047 M01S00044.0vu +++|
00048 M01S00045.0vu +++| PURGMAC PARAM
00049 M01S00046.0vu +++|
00050 M01S00047.0vu +++| MACRO PARAM,TAG,NUM,VAL
00051 M01S00048.0vu +++| .A IFC EQ,$VAL$$
00052 M01S00049.0vu +++| .B IFC EQ,$NUM$FIRST$
00053 M01S00050.0vu +++| LOC -ZVPL-5
00054 M01S00051.0vu +++| TAG EQU *
00055 M01S00052.0vu +++| .B ELSE
00056 M01S00053.0vu +++| .C IFC EQ,$NUM$LAST$
00057 M01S00054.0vu +++| TAG EQU *
00058 M01S00055.0vu +++| ERRNZ *+5 PARAMETER BLOCK LENGTH ERROR
00059 M01S00056.0vu +++| LOC *O
00060 M01S00057.0vu +++| .C ELSE
00061 M01S00058.0vu +++| ERR MISSING PARAMETER
00062 M01S00059.0vu +++| .C ENDIF
00063 M01S00060.0vu +++| .B ENDIF
00064 M01S00061.0vu +++| .A ELSE
00065 M01S00062.0vu +++| TAG EQU *
00066 M01S00063.0vu +++| LOC *+NUM
00067 M01S00064.0vu +++| .A ENDIF
00068 M01S00065.0vu +++| ENDM
00069 M01S00001.ns2217 +++| SCLASS SPACE 4,15
00070 M01S00002.ns2217 +++|** SCLASS - DEFINE SERVICE CLASS TABLE.
00071 M01S00003.ns2217 +++|*
00072 M01S00004.ns2217 +++|* SCLASS NM,MN,DF,ST,TX
00073 M01S00005.ns2217 +++|*
00074 M01S00006.ns2217 +++|* ENTRY *NM* = SERVICE CLASS NAME.
00075 M01S00007.ns2217 +++|* *MN* = TWO CHARACTER MNEMONIC.
00076 M01S00008.ns2217 +++|* *DF* = DAYFILE MESSAGE CHARACTER.
00077 M01S00009.ns2217 +++|* *ST* = SHORT TEXT FOR *QFTLIST*.
00078 M01S00010.ns2217 +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00079 M01S00011.ns2217 +++|*
00080 M01S00012.ns2217 +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00081 M01S00013.ns2217 +++|* THIS MACRO.
00082 M01S00014.ns2217 +++|
00083 M01S00015.ns2217 +++|
00084 M01S00016.ns2217 +++| PURGMAC SCLASS
00085 M01S00017.ns2217 +++|
00086 M01S00018.ns2217 +++| SCLASS MACRO NM,MN,DF,ST,TX
00087 M01S00019.ns2217 +++| .A IFC NE,$NM$SSSC$
00088 M01S00020.ns2217 +++| .SCL RMT
00089 M01S00021.ns2217 +++| INDEX NM,1R_DF TX
00090 M01S00022.ns2217 +++| .SCL RMT
00091 M01S00023.ns2217 +++| .SCLVSP RMT
00092 M01S00024.ns2217 +++| INDEX NM,MN_MK TX
00093 M01S00025.ns2217 +++| .SCLVSP RMT
00094 M01S00026.ns2217 +++| .A ENDIF
00095 M01S00027.ns2217 +++| SCLASS ENDM
00096 M01S00028.ns2217 +++|
00097 M01S00029.ns2217 +++|
00098 M01S00066.0vu +++| COMMON SPACE 4,10
00099 M01S00067.0vu +++|** COMMON DECKS.
00100 M01S00068.0vu +++|
00101 M01S00069.0vu +++|
00102 M01S00070.0vu +++|*CALL COMPMAC
00103 M01S00071.0vu +++|*CALL COMPRLI
00104 M01S00072.0vu +++|*CALL COMSACC
00105 M01S00073.0vu +++|*CALL COMSCPS
00106 M01S00074.0vu +++|*CALL COMSDSP
00107 M01S00075.0vu +++|*CALL COMSPIM
00108 M01S00030.ns2217 +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S
00109 M01S00076.0vu +++|*CALL COMSSCD
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00110 M02S00001.ns2601 ---|*CALL,COMSMLS
00111 M01S00001.ns2601 +++|*CALL COMSMLS
00112 M01S00077.0vu +++|*CALL COMSSSE
00113 M01S00078.0vu +++|*CALL COMSZOL
00114 M01S00079.0vu +++| SPACE 4,10
00115 M01S00080.0vu +++| LIST X,G
00116 M01S00081.0vu +++|*CALL COMS0VU
00117 M01S00082.0vu +++| LIST *
00118 M01S00083.0vu +++| SPACE 4,10
00119 M01S00084.0vu +++|**** DIRECT CELLS.
00120 M01S00085.0vu +++|
00121 M01S00002.ns2601 +++| T8 EQU 16 TEMPORARY STORAGE (USED BY *COMPVID*)
00122 M01S00086.0vu +++| CN EQU 30 - 34 ASSEMBLY BUFFER
00123 M01S00087.0vu +++| JF EQU 35 INITIAL JOB FIELD LENGTH
00124 M01S00003.ns2601 +++| UN EQU 40 - 44 TEMPORARY STORAGE (USED BY *COMPVID*)
00125 M01S00088.0vu +++| OT EQU 46 ORIGIN TYPE
00126 M01S00089.0vu +++| ER EQU 47 ERROR STATUS
00127 M01S00090.0vu +++|
00128 M01S00091.0vu +++|****
00129 M01S00092.0vu +++| TITLE MAIN ROUTINE.
00130 M01S00093.0vu +++| RVU SPACE 4,10
00131 M01S00094.0vu +++|** RVU - MAIN ROUTINE.
00132 M01S00095.0vu +++|
00133 M01S00096.0vu +++| ORG 5
00134 M01S00097.0vu +++|
00135 M01S00098.0vu +++| RVU SUBR ENTRY/EXIT
00136 M01S00099.0vu +++| RJM REL RELOCATE ADDRESSES
00137 M01S00100.0vu +++| LDM ZVJR SET *0VJ* RETURN ADDRESS
00138 M01S00101.0vu +++| STM RVU
00139 M01S00004.ns2601 +++| RJM VST VALIDATE *ST* PARAMETER
| Line S00102 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00140 M02S00102.v23l617 ---| RJM RUA READ USER ACCOUNTING BLOCK
00141 M01S00002.v23l617 +++| LDM SCAL
| Line S00003 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00142 M02S00003.ns2601 ---| ZJN RVU0.1 IF NO ACCESS LEVEL SPECIFIED
00143 M01S00005.ns2601 +++| ZJN RVU1.1 IF NO ACCESS LEVEL SPECIFIED
00144 M01S00004.v23l617 +++| LDC. SCAL
00145 M01S00005.v23l617 +++| RJM VAL VALIDATE ACCESS LEVEL
| Line S00006 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00146 M02S00006.ns2601 ---| PJN RVU0 IF NO ERROR
00147 M01S00006.ns2601 +++| PJN RVU1 IF NO ERROR
00148 M01S00007.v23l617 +++| AOM JCEF SET ERROR FLAG
| Line S00008 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00149 M02S00008.ns2601 ---| UJN RVU0.1 CONTINUE
00150 M01S00007.ns2601 +++| UJN RVU1.1 CONTINUE
00151 M01S00009.v23l617 +++|
| Line S00010 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00152 M02S00010.ns2601 ---| RVU0 STM UALL SAVE ACCESS LEVEL
00153 M01S00008.ns2601 +++| RVU1 STM UALL SAVE ACCESS LEVEL
00154 M01S00011.v23l617 +++| STM JCAL
| Line S00012 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00155 M02S00012.ns2601 ---| RVU0.1 RJM RUA READ USER ACCOUNTING BLOCK
00156 M01S00009.ns2601 +++| RVU1.1 RJM RUA READ USER ACCOUNTING BLOCK
00157 M01S00103.0vu +++|
| Line S00104 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act
----------------------------+
00158 M02S00104.ns2516a ---|* VALIDATE SERVICE CLASS.
00159 M01S00001.ns2516a +++|* VALIDATE SERVICE CLASS AND TIME LIMIT.
00160 M01S00105.0vu +++|
00161 M01S00106.0vu +++| RJM VSC VALIDATE SERVICE CLASS
00162 M01S00002.ns2516a +++| RJM VTL VALIDATE TIME LIMIT
00163 M01S00107.0vu +++|
00164 M01S00108.0vu +++|* VALIDATE SECURITY ACCESS LEVELS AND CATEGORIES.
00165 M01S00109.0vu +++|
| Line S00110 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2601 |
Seq # *Modification Id* Act
----------------------------+
00166 M02S00110.ns2601 ---| RVU1 LDD MA SET VALIDATIONS FROM SYSTEM SECTOR
00167 M01S00010.ns2601 +++| LDD MA SET VALIDATIONS FROM SYSTEM SECTOR
00168 M01S00111.0vu +++| CWM. VASS+5*ASVW,ON
00169 M01S00112.0vu +++| LDM UCNV
| Line S00113 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00170 M02S00113.ns2243 ---| ZJN RVU2 IF USER COMMAND VALID
| Line S00001 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00171 M02S00001.ns2727 ---| ZJN RVU2 IF USER COMMAND REQUIRED AND VALID
00172 M01S00001.ns2727 +++| ZJN RVU2 IF *USER* COMMAND VALID
00173 M01S00114.0vu +++| LDD MA SET UNLIMITED ACCESS LEVEL VALIDATIONS
00174 M01S00115.0vu +++| CWM RVUA,ON
00175 M01S00001.0vu2 +++| LDM SCAL
00176 M01S00002.0vu2 +++| NJN RVU2 IF ACCESS LEVEL SPECIFIED ON JOB COMMAND
00177 M01S00003.0vu2 +++| LDN 7 SET MAXIMUM UPPER ACCESS LEVEL LIMIT
00178 M01S00004.0vu2 +++| STM UALL
00179 M01S00116.0vu +++| RVU2 LDD OT
00180 M01S00117.0vu +++| STD CM+2
| Line S00118 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00181 M02S00118.ns2202 ---| LDM LALL SET LOWER ACCESS LEVEL LIMIT
00182 M01S00001.ns2202 +++| LDM LFAL SET INITIAL JOB ACCESS LEVEL
00183 M01S00119.0vu +++| STD CM+4
00184 M01S00120.0vu +++| LDM UALL SET UPPER ACCESS LEVEL LIMIT
00185 M01S00121.0vu +++| STD CM+3
00186 M01S00122.0vu +++| LDN VJCS VALIDATE JOB CREATION PARAMETERS
00187 M01S00123.0vu +++| STD CM+1
00188 M01S00124.0vu +++| MONITOR VSAM
00189 M01S00125.0vu +++| LDD CM+1
| Line S00126 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00190 M02S00126.ns2202 ---| NJN RVU4 IF JOB MAY NOT BE CREATED
00191 M01S00002.ns2202 +++| NJN RVU2.1 IF JOB MAY NOT BE CREATED
00192 M01S00127.0vu +++| LDK SSML CHECK SYSTEM SECURITY MODE
00193 M01S00128.0vu +++| CRD T0
00194 M01S00129.0vu +++| LDD T0
00195 M01S00130.0vu +++| LPN 77
00196 M01S00131.0vu +++| ZJN RVU3 IF UNSECURED SYSTEM
00197 M01S00132.0vu +++| LDM JCAL CHECK IF JOB COMMAND ACCESS LEVEL VALID
00198 M01S00133.0vu +++| LMN 77
00199 M01S00134.0vu +++| ZJN RVU3 IF NO ACCESS LEVEL ON JOB COMMAND
00200 M01S00135.0vu +++| LMN 77
00201 M01S00136.0vu +++| LMD CM+3
| Line S00137 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00202 M02S00137.ns2202 ---| NJN RVU4 IF SPECIFIED ACCESS LEVEL NOT VALID
00203 M01S00003.ns2202 +++| RVU2.1 NJN RVU4 IF SPECIFIED ACCESS LEVEL NOT VALID
00204 M01S00138.0vu +++| RVU3 LDD MA UPDATE VALIDATION ENTRY IN SYSTEM SECTOR
00205 M01S00139.0vu +++| CRM. VASS+5*ASVW,ON
00206 M01S00140.0vu +++| LDM. IOSS+5*INSQ+3 SET ACCESS LEVEL LIMITS IN QFT ENTRY
| Line S00141 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00207 M02S00141.ns2202 ---| SCN 77
| Line S00142 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00208 M02S00142.ns2202 ---| SHN -3
| Line S00143 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00209 M02S00143.ns2202 ---| LMD CM+4
00210 M01S00004.ns2202 +++| SHN -11
00211 M01S00005.ns2202 +++| SHN 3
00212 M01S00006.ns2202 +++| LMD CM+4 LOWER ACCESS LEVEL LIMIT
00213 M01S00144.0vu +++| SHN 3
| Line S00145 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2202 |
Seq # *Modification Id* Act
----------------------------+
00214 M02S00145.ns2202 ---| LMD CM+3
00215 M01S00007.ns2202 +++| LMD CM+2 INITIAL JOB ACCESS LEVEL
00216 M01S00008.ns2202 +++| SHN 3
00217 M01S00009.ns2202 +++| LMD CM+3 UPPER ACCESS LEVEL LIMIT
00218 M01S00146.0vu +++| STM. IOSS+5*INSQ+3
00219 M01S00147.0vu +++| UJN RVU5 CHECK LID ATTRIBUTES
00220 M01S00148.0vu +++|
00221 M01S00149.0vu +++|* SET *JOB COMMAND ERROR* STATUS.
00222 M01S00150.0vu +++|
00223 M01S00151.0vu +++| RVU4 LDN JCIE SET JOB COMMAND ERROR CODE
00224 M01S00152.0vu +++| STM JCEC
00225 M01S00153.0vu +++| AOM JCEF FLAG JOB COMMAND ERROR
00226 M01S00154.0vu +++|
00227 M01S00155.0vu +++|* CHECK VALIDATIONS FOR SPECIFYING LID.
00228 M01S00156.0vu +++|
00229 M01S00157.0vu +++| RVU5 LDM DLAT
00230 M01S00158.0vu +++| ZJP RVU8 IF DESTINATION LID NOT SPECIFIED
| Line S00159 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00231 M02S00159.v23l617 ---| SHN 21-10
00232 M01S00013.v23l617 +++| SHN 21-11
00233 M01S00160.0vu +++| PJN RVU7 IF VALIDATION NOT REQUIRED FOR DLID
00234 M01S00161.0vu +++| LDM UCNV
| Line S00162 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00235 M02S00162.ns2243 ---| NJP RVU7 IF USER COMMAND NOT VALID
| Line S00002 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00236 M02S00002.ns2420 ---| NJP RVU7 IF NO VALIDATION REQUIRED/*USER* NOT VALID
00237 M01S00001.ns2420 +++| NJN RVU7 IF *USER* NOT VALID
00238 M01S00163.0vu +++| LDM. AWSS+3 CHECK USER VALIDATIONS
00239 M01S00164.0vu +++| SHN 21-5
00240 M01S00165.0vu +++| PJN RVU6 IF NOT VALIDATED TO SPECIFY LID (*CUST*)
00241 M01S00166.0vu +++| SHN 21-4-21+5
00242 M01S00167.0vu +++| MJN RVU7 IF VALIDATED TO USE LCN (*CQLK*)
00243 M01S00168.0vu +++| LDM DLAT
| Line S00169 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00244 M02S00169.v23l617 ---| SHN 21-12
| Line S00170 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00245 M02S00170.v23l617 ---| PJN RVU7 IF NOT *LINKED* LID
00246 M01S00014.v23l617 +++| SHN 21-13
00247 M01S00015.v23l617 +++| MJN RVU7 IF HOST LID
00248 M01S00171.0vu +++|
00249 M01S00172.0vu +++|* SET *INVALID LID* ERROR STATUS.
00250 M01S00173.0vu +++|
00251 M01S00174.0vu +++| RVU6 LDN STIE SET ERROR CODE
00252 M01S00175.0vu +++| STM JCEC
00253 M01S00176.0vu +++| AOM JCEF FLAG *JOB COMMAND ERROR*
00254 M01S00177.0vu +++| LDN 0 CLEAR ATTRIBUTES
00255 M01S00178.0vu +++| STM DLAT
00256 M01S00179.0vu +++| STM DLID CLEAR DLID
00257 M01S00180.0vu +++| STM DLID+1
00258 M01S00181.0vu +++|
00259 M01S00182.0vu +++|* SET DESTINATION LID IN QFT / SYSTEM SECTOR.
00260 M01S00183.0vu +++|
00261 M01S00184.0vu +++| RVU7 LDM DLID SET DLID
00262 M01S00185.0vu +++| STM. IOSS+INSQ*5+1
00263 M01S00186.0vu +++| LDM. IOSS+INSQ*5+2
00264 M01S00187.0vu +++| LPN 77
00265 M01S00188.0vu +++| LMM DLID+1
00266 M01S00189.0vu +++| STM. IOSS+INSQ*5+2
00267 M01S00190.0vu +++|
00268 M01S00191.0vu +++|* RETURN STATUS TO *0VJ* CALLER.
00269 M01S00192.0vu +++|
00270 M01S00193.0vu +++| RVU8 LDN 0 CLEAR RETURN STATUS
00271 M01S00194.0vu +++| STD ER
00272 M01S00195.0vu +++| LDM DLAT RETURN DLID ATTRIBUTES
00273 M01S00196.0vu +++| STD CN
00274 M01S00197.0vu +++| ZJN RVU9 IF NO DLID SPECIFIED
00275 M01S00198.0vu +++| SHN 21-13
00276 M01S00199.0vu +++| PJN RVU10 IF DLID NOT *HOST* LID
00277 M01S00200.0vu +++| RVU9 LDM JCEF
00278 M01S00201.0vu +++| ZJN RVU10 IF NO JOB COMMAND ERROR
00279 M01S00202.0vu +++| LDM JCEC SET JOB COMMAND ERROR CODE
00280 M01S00203.0vu +++| STM. JASS
00281 M01S00204.0vu +++| LDN 1 SET *JOB COMMAND ERROR* RETURN STATUS
00282 M01S00205.0vu +++| STD ER
00283 M01S00206.0vu +++| LDN DNFL SET FIELD LENGTH FOR NFL ONLY
00284 M01S00207.0vu +++| STD JF
00285 M01S00208.0vu +++| LDN 0 SET JOB STEP TIME LIMIT = 10B
00286 M01S00209.0vu +++| STM. JTSS
00287 M01S00210.0vu +++| LDN 10
00288 M01S00211.0vu +++| STM. JTSS+1
00289 M01S00001.ns2168 +++| LDM JCEC
00290 M01S00002.ns2168 +++| LMN IDIE
00291 M01S00003.ns2168 +++| ZJN RVU12 IF *INVALID LID* ERROR
00292 M01S00212.0vu +++| RVU10 LDM UCNV
| Line S00213 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00293 M02S00213.ns2243 ---| ZJN RVU12 IF USER COMMAND VALID
| Line S00003 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00294 M02S00003.ns2420 ---| ZJN RVU12 IF USER COMMAND REQUIRED AND VALID
| Line S00214 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00295 M02S00214.ns2420 ---| LDM DLAT
| Line S00215 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00296 M02S00215.ns2420 ---| ZJN RVU11 IF NO DLID SPECIFIED
| Line S00216 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | v23l617 |
M03 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00297 M03S00216.ns2420 ---| SHN 21-10
| Line S00016 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00298 M02S00016.ns2420 ---| SHN 21-11
| Line S00217 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00299 M02S00217.ns2420 ---| PJN RVU12 IF VALIDATION NOT REQUIRED FOR DLID
| Line S00218 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00300 M02S00218.ns2420 ---| RVU11 LDM ZVJP
00301 M01S00002.ns2420 +++| ZJN RVU12 IF USER COMMAND VALID
00302 M01S00003.ns2420 +++| LDM ZVJP
00303 M01S00219.0vu +++| SHN 21-11
| Line S00220 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00304 M02S00220.ns2420 ---| MJN RVU11.1 IF JOB WILL BE ROUTED TO SYSTEM ORIGIN
00305 M01S00004.ns2420 +++| MJN RVU11 IF JOB WILL BE ROUTED TO SYSTEM ORIGIN
00306 M01S00221.0vu +++| RVUB LDN UNIE * USER NAME/PASSWORD NOT VALID.*
00307 M01S00222.0vu +++|* LDN UCIE * USER SECURITY COUNT EXHAUSTED.*
00308 M01S00223.0vu +++| STM. JASS SET JOB COMMAND ERROR CODE
| Line S00224 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00309 M02S00224.ns2420 ---| RVU11.1 LDN 3 SET *USER COMMAND ERROR* RETURN STATUS
00310 M01S00005.ns2420 +++| RVU11 LDN 3 SET *USER COMMAND ERROR* RETURN STATUS
00311 M01S00225.0vu +++| STD ER
00312 M01S00226.0vu +++| RVU12 LJM RVUX RETURN TO CALLER OF *0VJ*
00313 M01S00227.0vu +++|
00314 M01S00228.0vu +++| RVUA VFD 12/0,12/377,36/0
00315 M01S00229.0vu +++| TITLE SUBROUTINES.
00316 M01S00230.0vu +++| CPW SPACE 4,10
00317 M01S00231.0vu +++|** CPW - COMPARE PASSWORDS.
00318 M01S00232.0vu +++|*
00319 M01S00233.0vu +++|* ENTRY (T3) = FWA OF PASSWORD IN USER BLOCK.
00320 M01S00234.0vu +++|* (PSWD - PSWD+3) = SUPPLIED PASSWORD.
00321 M01S00235.0vu +++|*
00322 M01S00236.0vu +++|* EXIT (A) = 0 IF PASSWORDS MATCH.
00323 M01S00237.0vu +++|*
00324 M01S00238.0vu +++|* USES CM, T6.
00325 M01S00239.0vu +++|
00326 M01S00240.0vu +++|
00327 M01S00241.0vu +++| CPW SUBR ENTRY/EXIT
00328 M01S00242.0vu +++| LDN 0
00329 M01S00243.0vu +++| STD T6
00330 M01S00244.0vu +++| LDD T3
00331 M01S00245.0vu +++| STD CM
00332 M01S00246.0vu +++| CPW1 LDM PSWD,T6 CHECK NEXT BYTE
00333 M01S00247.0vu +++| LMI CM
00334 M01S00248.0vu +++| NJN CPWX IF NO MATCH
00335 M01S00249.0vu +++| AOD CM
00336 M01S00250.0vu +++| AOD T6
00337 M01S00251.0vu +++| LMN 3
00338 M01S00252.0vu +++| NJN CPW1 IF MORE BYTES TO COMPARE
00339 M01S00253.0vu +++| LDM PSWD,T6 COMPARE LAST CHARACTER
00340 M01S00254.0vu +++| LMI CM
00341 M01S00255.0vu +++| SCN 77
00342 M01S00256.0vu +++| UJN CPWX RETURN
00343 M01S00257.0vu +++| RUA SPACE 4,20
00344 M01S00258.0vu +++|** RUA - RETRIEVE USER ACCOUNT BLOCK.
00345 M01S00259.0vu +++|*
00346 M01S00260.0vu +++|* ENTRY (UBAD) = ADDRESS OF USER BLOCK.
00347 M01S00261.0vu +++|* (SPUI) = SPECIAL USER INDEX FLAG.
| Line S00262 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00348 M02S00262.ns2243 ---|* (UCNV) = USER COMMAND NOT VALID STATUS FROM *0VJ*.
| Line S00004 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00349 M02S00004.ns2420 ---|* (UCNV) = USER COMMAND NOT VALID OR NO VALIDATION
| Line S00005 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00350 M02S00005.ns2420 ---|* REQUIRED FLAG FROM *0VJ*.
00351 M01S00006.ns2420 +++|* (UCNV) = USER COMMAND NOT VALID.
00352 M01S00263.0vu +++|* (UIDX - UIDX+1) = USER INDEX.
00353 M01S00264.0vu +++|*
00354 M01S00265.0vu +++|* EXIT (UCNV) .NE. 0, IF USER COMMAND ERROR ENCOUNTERED.
00355 M01S00266.0vu +++|* (RVUB) MODIFIED IF USER SECURITY COUNT EXHAUSTED.
00356 M01S00267.0vu +++|* USER ACCOUNT BLOCK SET IN SYSTEM SECTOR.
00357 M01S00268.0vu +++|* PASSWORD VALIDATED.
00358 M01S00269.0vu +++|* ENCRYPTED BATCH PASSWORD SET IN SYSTEM SECTOR.
00359 M01S00270.0vu +++|*
00360 M01S00271.0vu +++|* USES T1, T2, T3, T6.
00361 M01S00272.0vu +++|*
00362 M01S00273.0vu +++|* CALLS VPW.
00363 M01S00274.0vu +++|*
00364 M01S00275.0vu +++|* MACROS EXECUTE.
00365 M01S00276.0vu +++|
00366 M01S00277.0vu +++|
| Line S00278 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00367 M02S00278.ns2420 ---| RUA4 AOM UCNV SET *USER COMMAND NOT VALID* STATUS
| Line S00279 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00368 M02S00279.ns2420 ---| RUA5 LDN ZERL CLEAR USER NAME/USER INDEX
| Line S00007 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00369 M02S00007.ns2420a ---| RUA6 LDM DLAT
| Line S00008 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00370 M02S00008.ns2420a ---| SHN 21-13
| Line S00009 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00371 M02S00009.ns2420a ---| MJN RUA7 IF HOST LID
| Line S00010 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00372 M02S00010.ns2420a ---| SHN 21-11-21+13
| Line S00011 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00373 M02S00011.ns2420a ---| PJP RUA1 IF VALIDATION NOT REQUIRED FOR DLID
| Line S00012 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00374 M02S00012.ns2420a ---| RUA7 AOM UCNV SET *USER COMMAND NOT VALID* STATUS
| Line S00013 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00375 M02S00013.ns2420a ---| RUA8 LDN ZERL CLEAR USER NAME/USER INDEX
| Line S00280 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00376 M02S00280.ns2420a ---| CRM. ACSS,ON
| Line S00281 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00377 M02S00281.ns2420a ---|
| Line S00282 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00378 M02S00282.ns2420a ---|
00379 M01S00283.0vu +++| RUA SUBR ENTRY/EXIT
00380 M01S00284.0vu +++| LDM UCNV
| Line S00285 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00381 M02S00285.ns2243 ---| NJN RUA5 IF USER COMMAND NOT VALID
| Line S00006 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00382 M02S00006.ns2420 ---| NJN RUA5 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00014 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00383 M02S00014.ns2420a ---| NJN RUA8 IF *USER* NOT VALID
00384 M01S00001.ns2420a +++| NJP RUA2 IF ERROR IN CRACKING USER COMMAND
00385 M01S00286.0vu +++| LDM UIDX
00386 M01S00287.0vu +++| STD T1
00387 M01S00288.0vu +++| SHN 14
00388 M01S00289.0vu +++| LMM UIDX+1
| Line S00290 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00389 M02S00290.ns2420 ---| ZJN RUA4 IF USER NOT VALID
| Line S00015 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00390 M02S00015.ns2420a ---| ZJN RUA7 IF USER NOT VALID
00391 M01S00002.ns2420a +++| ZJN RUA1 IF USER NAME / FAMILY NOT VALID
00392 M01S00291.0vu +++| STD T2
00393 M01S00292.0vu +++| LDM UBAD SET USER BLOCK ADDRESS
00394 M01S00293.0vu +++| STD T3
| Line S00294 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00395 M02S00294.ns2420 ---| STM RUAB
00396 M01S00016.ns2420 +++| STM RUAA
00397 M01S00295.0vu +++| ADK APSW*5 SET PASSWORD ADDRESS
| Line S00296 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00398 M02S00296.ns2420 ---| STM RUAC
00399 M01S00017.ns2420 +++| STM RUAB
00400 M01S00297.0vu +++| ADK ASCV*5-APSW*5
00401 M01S00298.0vu +++| STM VSCA SET SERVICE CLASS VALIDATION MASK ADDRESS
00402 M01S00299.0vu +++| RJM VPW VALIDATE PASSWORD
| Line S00300 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00403 M02S00300.ns2420 ---| RUA0 NJP RUA4 IF PASSWORD NOT VALID
| Line S00301 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00404 M02S00301.ns2420 ---| LDM SPUI
| Line S00302 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00405 M02S00302.ns2420 ---| ZJN RUA1 IF USER INDEX .LT. *AUIMX*
| Line S00018 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00406 M02S00018.ns2420a ---| NJP RUA6 IF PASSWORD NOT VALID
| Line S00019 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00407 M02S00019.ns2420a ---| RUA1 LDM SPUI
| Line S00020 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00408 M02S00020.ns2420a ---| ZJN RUA2 IF USER INDEX .LT. *AUIMX*
00409 M01S00003.ns2420a +++| ZJN RUA3 IF PASSWORD IS VALID
00410 M01S00004.ns2420a +++|
00411 M01S00005.ns2420a +++|* PASSWORD NOT VALID.
00412 M01S00006.ns2420a +++|
| Line S00007 Modification History |
M01 (Added by) | ns2420a |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00413 M02S00007.ns2420c ---| LDM DLAT
| Line S00008 Modification History |
M01 (Added by) | ns2420a |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00414 M02S00008.ns2420c ---| ZJN RUA1 IF NO DESTINATION LID SPECIFIED
| Line S00009 Modification History |
M01 (Added by) | ns2420a |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00415 M02S00009.ns2420c ---| SHN 21-13
| Line S00010 Modification History |
M01 (Added by) | ns2420a |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00416 M02S00010.ns2420c ---| MJN RUA1 IF HOST LID
| Line S00011 Modification History |
M01 (Added by) | ns2420a |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00417 M02S00011.ns2420c ---| SHN 21-11-21+13
| Line S00012 Modification History |
M01 (Added by) | ns2420a |
M02 (Updated by) | ns2420c |
Seq # *Modification Id* Act
----------------------------+
00418 M02S00012.ns2420c ---| PJN RUA3 IF VALIDATION NOT REQUIRED FOR DLID
00419 M01S00013.ns2420a +++| RUA1 AOM UCNV SET *USER COMMAND NOT VALID* STATUS
00420 M01S00014.ns2420a +++| RUA2 LDN ZERL CLEAR USER NAME/USER INDEX
00421 M01S00015.ns2420a +++| CRM. ACSS,ON
00422 M01S00016.ns2420a +++| UJP RUAX RETURN
00423 M01S00017.ns2420a +++|
00424 M01S00018.ns2420a +++|* CHECK FOR OTHER ERRORS.
00425 M01S00019.ns2420a +++|
00426 M01S00020.ns2420a +++| RUA3 LDM SPUI
00427 M01S00021.ns2420a +++| ZJN RUA4 IF USER INDEX .LT. *AUIMX*
00428 M01S00303.0vu +++| LDD OT
00429 M01S00304.0vu +++| LMK SYOT
| Line S00305 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00430 M02S00305.ns2420 ---| NJN RUA0 IF NOT *SYOT* JOB
| Line S00306 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00431 M02S00306.ns2420 ---| RUA1 LDM USCT
| Line S00307 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00432 M02S00307.ns2420 ---| NJN RUA1.1 IF USER SECURITY COUNT NOT EXHAUSTED
| Line S00021 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00433 M02S00021.ns2420a ---| NJN RUA3 IF NOT *SYOT* JOB
| Line S00022 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00434 M02S00022.ns2420a ---| RUA2 LDM USCT
| Line S00023 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00435 M02S00023.ns2420a ---| NJN RUA4 IF USER SECURITY COUNT NOT EXHAUSTED
00436 M01S00022.ns2420a +++| NJN RUA1 IF NOT *SYOT* JOB
00437 M01S00023.ns2420a +++| RUA4 LDM USCT
00438 M01S00024.ns2420a +++| NJN RUA5 IF USER SECURITY COUNT NOT EXHAUSTED
00439 M01S00308.0vu +++| LDN UCIE-UNIE SET ERROR CODE
00440 M01S00309.0vu +++| RAM RVUB
| Line S00310 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00441 M02S00310.ns2420 ---| LJM RUA4 SET *USER COMMAND NOT VALID* STATUS
| Line S00024 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00442 M02S00024.ns2420a ---| RUA3 LJM RUA7 SET *USER COMMAND NOT VALID* STATUS
00443 M01S00025.ns2420a +++| UJN RUA1 SET *USER COMMAND NOT VALID* STATUS
00444 M01S00311.0vu +++|
| Line S00312 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00445 M02S00312.ns2420 ---| RUA1.1 LDM. ACSS+3 SET CREATION USER INDEX
| Line S00025 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00446 M02S00025.ns2420a ---| RUA4 LDM. ACSS+3 SET CREATION USER INDEX
00447 M01S00026.ns2420a +++|* SAVE USER ACCOUNT BLOCK.
00448 M01S00027.ns2420a +++|
00449 M01S00028.ns2420a +++| RUA5 LDM. ACSS+3 SET CREATION USER INDEX
00450 M01S00313.0vu +++| SCN 77
00451 M01S00314.0vu +++| LMD T1
00452 M01S00315.0vu +++| STM. ACSS+3
00453 M01S00316.0vu +++| LDD T2
00454 M01S00317.0vu +++| STM. ACSS+4
| Line S00318 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | 0vu3 |
Seq # *Modification Id* Act
----------------------------+
00455 M02S00318.0vu3 ---| ADD T1
00456 M01S00319.0vu +++| LDC 5*ABSS-1 COPY FIRST HALF OF USER BLOCK
00457 M01S00320.0vu +++| STD T6
| Line S00321 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00458 M02S00321.ns2420 ---| RUA2 LDM. *,T6
| Line S00322 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00459 M02S00322.ns2420 ---| RUAB EQU *-1
| Line S00026 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00460 M02S00026.ns2420a ---| RUA5 LDM. *,T6
00461 M01S00029.ns2420a +++| RUA6 LDM. *,T6
00462 M01S00027.ns2420 +++| RUAA EQU *-1
00463 M01S00323.0vu +++| STM. VASS,T6
00464 M01S00324.0vu +++| SOD T6
| Line S00325 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00465 M02S00325.ns2420 ---| PJN RUA2 IF MORE BYTES TO MOVE
| Line S00028 Modification History |
M01 (Added by) | ns2420 |
M02 (Updated by) | ns2420a |
Seq # *Modification Id* Act
----------------------------+
00466 M02S00028.ns2420a ---| PJN RUA5 IF MORE BYTES TO MOVE
00467 M01S00030.ns2420a +++| PJN RUA6 IF MORE BYTES TO MOVE
00468 M01S00326.0vu +++| LDD MA COPY ENCRYPTED BATCH PASSWORD
00469 M01S00327.0vu +++| CWM. *,ON
| Line S00328 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00470 M02S00328.ns2420 ---| RUAC EQU *-1 (FWA OF ENCRYPTED BATCH PASSWORD)
00471 M01S00029.ns2420 +++| RUAB EQU *-1 (FWA OF ENCRYPTED BATCH PASSWORD)
00472 M01S00329.0vu +++| SBN 1
00473 M01S00330.0vu +++| CRM. EPSS,ON
| Line S00331 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2420 |
Seq # *Modification Id* Act
----------------------------+
00474 M02S00331.ns2420 ---| RUA3 LJM RUAX RETURN
00475 M01S00030.ns2420 +++| LJM RUAX RETURN
00476 M01S00332.0vu +++| VPW SPACE 4,15
00477 M01S00333.0vu +++|** VPW - VALIDATE PASSWORD.
00478 M01S00334.0vu +++|*
00479 M01S00335.0vu +++|* ENTRY (PSWD - PSWD+4) = PASSWORD FROM USER COMMAND.
00480 M01S00336.0vu +++|* (T3) = FWA OF USER ACCOUNT BLOCK.
00481 M01S00337.0vu +++|* (T1 - T2) = USER INDEX.
00482 M01S00338.0vu +++|*
00483 M01S00339.0vu +++|* EXIT (A) .NE. 0, IF PASSWORD NOT VALID.
00484 M01S00340.0vu +++|*
00485 M01S00341.0vu +++|* USES T3, CM - CM+4.
00486 M01S00342.0vu +++|*
00487 M01S00343.0vu +++|* CALLS CPW.
00488 M01S00344.0vu +++|*
00489 M01S00345.0vu +++|* MACROS MONITOR.
00490 M01S00346.0vu +++|
00491 M01S00347.0vu +++|
00492 M01S00348.0vu +++| VPW SUBR ENTRY/EXIT
00493 M01S00349.0vu +++| LDK APSW*5
00494 M01S00350.0vu +++| RAD T3
00495 M01S00351.0vu +++| LDM ZVJP
00496 M01S00352.0vu +++| SHN 21-13
00497 M01S00353.0vu +++| MJP VPW2 IF PASSWORD VALIDATION NOT REQUIRED
00498 M01S00354.0vu +++| LDM PSWD
00499 M01S00355.0vu +++| NJN VPW1 IF PASSWORD PRESENT ON USER COMMAND
00500 M01S00356.0vu +++| LDM ZVJP
00501 M01S00357.0vu +++| SHN 21-12
00502 M01S00358.0vu +++| PJN VPW1 IF FILE NOT PREVIOUSLY ROUTED
00503 M01S00359.0vu +++|
00504 M01S00360.0vu +++|* VALIDATE ENCRYPTED PASSWORD FROM SYSTEM SECTOR.
00505 M01S00361.0vu +++|
00506 M01S00362.0vu +++| LDD MA COPY ENCRYPTED PASSWORD
00507 M01S00363.0vu +++| CWM. EPSS,ON
00508 M01S00364.0vu +++| SBN 1
00509 M01S00365.0vu +++| CRM PSWD,ON
00510 M01S00366.0vu +++| RJM CPW COMPARE PASSWORDS
00511 M01S00367.0vu +++| ZJN VPW2 IF PASSWORD MATCHED
00512 M01S00368.0vu +++| LDN ZERL ENCRYPT AND COMPARE NULL PASSWORD
00513 M01S00369.0vu +++| CRM PSWD,ON
00514 M01S00370.0vu +++|
00515 M01S00371.0vu +++|* ENCRYPT SUPPLIED PASSWORD AND VALIDATE.
00516 M01S00372.0vu +++|
00517 M01S00373.0vu +++| VPW1 LDD MA ENCRYPT PASSWORD
00518 M01S00374.0vu +++| CWM PSWD,ON
00519 M01S00375.0vu +++| LDN REPS
00520 M01S00376.0vu +++| STD CM+1
00521 M01S00377.0vu +++| MONITOR RDCM
00522 M01S00378.0vu +++| LDD MA
00523 M01S00379.0vu +++| CRM PSWD,ON
00524 M01S00380.0vu +++| RJM CPW COMPARE PASSWORDS
00525 M01S00381.0vu +++| NJN VPW3 IF NO MATCH
00526 M01S00382.0vu +++|
00527 M01S00383.0vu +++|* CHECK FOR PASSWORD EXPIRATION.
00528 M01S00384.0vu +++|
00529 M01S00385.0vu +++| VPW2 LDM. 3,T3 CHECK PASSWORD EXPIRATION DATE
00530 M01S00386.0vu +++| LPN 77
00531 M01S00387.0vu +++| STD CM+3
00532 M01S00388.0vu +++| SHN 14
00533 M01S00389.0vu +++| LMM. 4,T3
00534 M01S00390.0vu +++| ZJN VPW4 IF NONEXPIRING PASSWORD
00535 M01S00391.0vu +++| STD CM+4
00536 M01S00392.0vu +++| LDN VEDS VALIDATE EXPIRATION DATE
00537 M01S00393.0vu +++| STD CM+1
00538 M01S00394.0vu +++| MONITOR VSAM
00539 M01S00395.0vu +++| LDD CM+1
00540 M01S00396.0vu +++| ZJN VPW4 IF PASSWORD NOT EXPIRED
00541 M01S00397.0vu +++| VPW3 LDN 1 SET ERROR STATUS
00542 M01S00398.0vu +++| VPW4 LJM VPWX RETURN
| Line S00399 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00543 M02S00399.ns2727 ---| VSC SPACE 4,15
00544 M01S00002.ns2727 +++| VSC SPACE 4,20
00545 M01S00400.0vu +++|** VSC - VALIDATE SERVICE CLASS.
00546 M01S00401.0vu +++|*
00547 M01S00402.0vu +++|* ENTRY (OT) = ORIGIN TYPE.
00548 M01S00003.ns2727 +++|* (DLAT) = DESTINATION LID ATTRIBUTES.
00549 M01S00403.0vu +++|* (JCSC) = JOB COMMAND SERVICE CLASS, IF SPECIFIED.
| Line S00007 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00550 M02S00007.ns2727 ---|* (UCNV) = USER COMMAND NOT VALID OR NO VALIDATION
| Line S00008 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00551 M02S00008.ns2727 ---|* REQUIRED FLAG FROM *0VJ*.
00552 M01S00004.ns2727 +++|* (UCNV) = *USER* COMMAND NOT VALID.
00553 M01S00404.0vu +++|* (VSCA) = ADDRESS OF USER ACCOUNT BLOCK WORD *ASCV*.
00554 M01S00405.0vu +++|*
00555 M01S00406.0vu +++|* EXIT IF VALID, SERVICE CLASS UPDATED IN *IOSS*.
00556 M01S00407.0vu +++|* (JCEC) = *SCIE* IF INVALID SERVICE CLASS.
00557 M01S00408.0vu +++|* (CN+1) = USER DEFAULT SERVICE CLASS FOR ORIGIN TYPE
00558 M01S00409.0vu +++|* OF INPUT FILE.
00559 M01S00410.0vu +++|* (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK.
00560 M01S00411.0vu +++|*
| Line S00412 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | 0vu1 |
Seq # *Modification Id* Act
----------------------------+
00561 M02S00412.0vu1 ---|* USES T1, T2, CN - CN+4.
00562 M01S00001.0vu1 +++|* USES T1, T2, T3, CN - CN+4.
00563 M01S00413.0vu +++|*
00564 M01S00414.0vu +++|* CALLS VSP.
00565 M01S00415.0vu +++|
00566 M01S00416.0vu +++|
00567 M01S00417.0vu +++| VSC SUBR ENTRY/EXIT
00568 M01S00004.ns2168 +++| LDM UCNV
| Line S00005 Modification History |
M01 (Added by) | ns2168 |
M02 (Updated by) | ns2243 |
Seq # *Modification Id* Act
----------------------------+
00569 M02S00005.ns2243 ---| NJN VSC1 IF USER COMMAND NOT VALID
| Line S00009 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00570 M02S00009.ns2727 ---| NJN VSC1 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00418 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00571 M02S00418.ns2727 ---| LDD MA SET SERVICE CLASS VALIDATION MASK
00572 M01S00005.ns2727 +++| NJN VSC1 IF *USER* COMMAND NOT VALID
00573 M01S00006.ns2727 +++| LDM DLAT
00574 M01S00007.ns2727 +++| ZJN VSC0 IF DESTINATION LID NOT SELECTED
00575 M01S00008.ns2727 +++| SHN 21-11
00576 M01S00009.ns2727 +++| PJN VSC1 IF VALIDATION NOT REQUIRED FOR DLID
00577 M01S00010.ns2727 +++| VSC0 LDD MA SET SERVICE CLASS VALIDATION MASK
00578 M01S00419.0vu +++| CWM **,ON
00579 M01S00420.0vu +++| VSCA EQU *-1 (ADDRESS OF VALIDATION MASK)
00580 M01S00421.0vu +++| SBN 1
00581 M01S00422.0vu +++| CRD CN
| Line S00423 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00582 M02S00423.ns2168 ---| LDM UCNV
| Line S00424 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00583 M02S00424.ns2168 ---| ZJN VSC1 IF USER COMMAND VALID
| Line S00425 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00584 M02S00425.ns2168 ---| LCN 0 ALLOW ALL SERVICE CLASSES
00585 M01S00006.ns2168 +++| LDM JCEF
00586 M01S00007.ns2168 +++| NJN VSCX IF PREVIOUS JOB COMMAND ERROR
00587 M01S00008.ns2168 +++| UJN VSC2 PRESET SERVICE CLASS
00588 M01S00009.ns2168 +++|
00589 M01S00010.ns2168 +++| VSC1 LCN 0 ALLOW ALL SERVICE CLASSES
00590 M01S00426.0vu +++| STD CN+2
00591 M01S00427.0vu +++| STD CN+3
00592 M01S00428.0vu +++| STD CN+4
| Line S00429 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00593 M02S00429.ns2168 ---| UJN VSC2 BYPASS JOB COMMAND ERROR CHECK
| Line S00430 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00594 M02S00430.ns2168 ---|
| Line S00431 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00595 M02S00431.ns2168 ---| VSC1 LDM JCEF
| Line S00432 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2168 |
Seq # *Modification Id* Act
----------------------------+
00596 M02S00432.ns2168 ---| NJN VSCX IF PREVIOUS JOB COMMAND ERROR
00597 M01S00433.0vu +++| VSC2 LDM. IOSS+SCLQ*5
00598 M01S00434.0vu +++| SHN -6
00599 M01S00435.0vu +++| LMN SSSC
00600 M01S00436.0vu +++| ZJN VSCX IF SUBSYSTEM
| Line S00437 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00601 M02S00437.ns2727 ---| LDN SYSC PRESET SYSTEM SERVICE CLASS
00602 M01S00011.ns2727 +++| LMN SSSC RESTORE SERVICE CLASS
00603 M01S00438.0vu +++| STD T2
00604 M01S00439.0vu +++| LDD OT
00605 M01S00440.0vu +++| LMK SYOT
| Line S00441 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00606 M02S00441.ns2727 ---| ZJP VSC5 IF SYSTEM ORIGIN
| Line S00011 Modification History |
M01 (Added by) | ns2168 |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00607 M02S00011.ns2727 ---| LDM UCNV
| Line S00012 Modification History |
M01 (Added by) | ns2168 |
M02 (Updated by) | ns2243 |
M03 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00608 M03S00012.ns2727 ---| NJP VSC5 IF USER COMMAND NOT VALID
| Line S00010 Modification History |
M01 (Added by) | ns2243 |
M02 (Updated by) | ns2727 |
Seq # *Modification Id* Act
----------------------------+
00609 M02S00010.ns2727 ---| NJP VSC5 IF NO VALIDATION REQUIRED/*USER* NOT VALID
00610 M01S00012.ns2727 +++| NJN VSC2.1 IF NOT SYSTEM ORIGIN
00611 M01S00013.ns2727 +++| LDN SYSC SET SYSTEM SERVICE CLASS
00612 M01S00014.ns2727 +++| STD T2
00613 M01S00015.ns2727 +++| UJP VSC5 RETURN SERVICE CLASS
00614 M01S00016.ns2727 +++|
00615 M01S00017.ns2727 +++| VSC2.1 LDM UCNV
00616 M01S00018.ns2727 +++| NJP VSC5 IF *USER* COMMAND NOT VALID
00617 M01S00442.0vu +++| LDN 0 INITIALIZE SERVICE CLASS INDEX
00618 M01S00443.0vu +++| STD CN+1 PRESET INVALID USER DEFAULT SERVICE CLASS
00619 M01S00444.0vu +++| STD T2
00620 M01S00445.0vu +++| LDM VSCA GET USER DEFAULT FOR ORIGIN TYPE OF JOB
00621 M01S00446.0vu +++| ADK ASC1*5-ASCV*5
00622 M01S00447.0vu +++| STD T1 SET ADDRESS OF USER DEFAULT
00623 M01S00448.0vu +++| LDD OT SET BYTE NUMBER WITH USER DEFAULT
00624 M01S00449.0vu +++| SHN -1+22 (DIVIDE BY TWO; PLACE BIT 0 IN SIGN BIT)
00625 M01S00450.0vu +++| STM VSCC
00626 M01S00451.0vu +++| PJN VSC3 IF UPPER SIX BITS ARE USER DEFAULT
00627 M01S00452.0vu +++| LDK PSNI
00628 M01S00453.0vu +++| STM VSCD
00629 M01S00454.0vu +++| VSC3 LDM 0,T1
00630 M01S00455.0vu +++| VSCC EQU *-1 (BYTE NUMBER OF USER DEFAULT)
00631 M01S00456.0vu +++| VSCD SHN -6 CHECK UPPER SIX BITS
00632 M01S00457.0vu +++|* PSN (USER DEFAULT IS IN LOWER SIX BITS)
00633 M01S00458.0vu +++| LPN 77
00634 M01S00459.0vu +++| STD T1
00635 M01S00460.0vu +++| VSC4 LDM TVSC,T2 GET SERVICE CLASS VALUE
00636 M01S00461.0vu +++| LMD T1
00637 M01S00462.0vu +++| ZJN VSC5 IF MATCH
00638 M01S00463.0vu +++| AOD T2
00639 M01S00464.0vu +++| LDN MXSC
00640 M01S00465.0vu +++| SBD T2
00641 M01S00466.0vu +++| PJN VSC4 IF NOT END OF TABLE
00642 M01S00467.0vu +++| LDM JCSC
00643 M01S00468.0vu +++| NJN VSC6 IF SERVICE CLASS SPECIFIED ON JOB COMMAND
00644 M01S00469.0vu +++| UJN VSC7 RETURN ERROR
00645 M01S00470.0vu +++|
00646 M01S00471.0vu +++| VSC5 LDD T2 RETURN USER DEFAULT SERVICE CLASS
00647 M01S00472.0vu +++| STD CN+1
00648 M01S00002.0vu1 +++| LDN 0 USE THE USER-S SERVICE CLASS VALIDATION
00649 M01S00003.0vu1 +++| STD T3
00650 M01S00473.0vu +++| LDM JCSC
00651 M01S00474.0vu +++| NJN VSC6 IF SERVICE CLASS SPECIFIED ON JOB COMMAND
00652 M01S00475.0vu +++| LDD T2
00653 M01S00476.0vu +++| VSC6 RJM VSP VALIDATE SERVICE CLASS
00654 M01S00477.0vu +++| ZJN VSC9 IF NO ERROR
00655 M01S00478.0vu +++| VSC7 AOM JCEF SET JOB COMMAND ERROR FLAG
00656 M01S00479.0vu +++| LDK SCIE SET INVALID SERVICE CLASS STATUS
00657 M01S00480.0vu +++| STM JCEC
00658 M01S00481.0vu +++| VSC8 UJP VSCX RETURN
00659 M01S00482.0vu +++|
00660 M01S00483.0vu +++| VSC9 LDM. IOSS+SCLQ*5 SET NEW SERVICE CLASS
00661 M01S00484.0vu +++| SHN 21-5
00662 M01S00485.0vu +++| SCN 77
00663 M01S00486.0vu +++| LMD T2
00664 M01S00487.0vu +++| SHN 6
00665 M01S00488.0vu +++| STM. IOSS+SCLQ*5
00666 M01S00489.0vu +++| UJN VSC8 RETURN
00667 M01S00490.0vu +++| TVSC SPACE 4,10
00668 M01S00491.0vu +++|** TVSC - TABLE OF VALID USER DEFAULT SERVICE CLASSES.
00669 M01S00492.0vu +++|
00670 M01S00493.0vu +++|
00671 M01S00494.0vu +++| TVSC INDEX
| Line S00495 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00672 M02S00495.ns2217 ---| INDEX SYSC,1RS
| Line S00496 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00673 M02S00496.ns2217 ---| INDEX BCSC,1RB
| Line S00497 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00674 M02S00497.ns2217 ---| INDEX RBSC,1RR
| Line S00498 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00675 M02S00498.ns2217 ---| INDEX TSSC,1RT
| Line S00499 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00676 M02S00499.ns2217 ---| INDEX DISC,1RD
| Line S00500 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00677 M02S00500.ns2217 ---| INDEX NSSC,1RN
| Line S00501 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00678 M02S00501.ns2217 ---| INDEX MASC,1RM
| Line S00502 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00679 M02S00502.ns2217 ---| INDEX CTSC,1RC
| Line S00503 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00680 M02S00503.ns2217 ---| INDEX I0SC,1R0
| Line S00504 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00681 M02S00504.ns2217 ---| INDEX I1SC,1R1
| Line S00505 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00682 M02S00505.ns2217 ---| INDEX I2SC,1R2
| Line S00506 Modification History |
M01 (Added by) | 0vu |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act
----------------------------+
00683 M02S00506.ns2217 ---| INDEX I3SC,1R3
00684 M01S00031.ns2217 +++| LIST D
00685 M01S00032.ns2217 +++| .SCL HERE
00686 M01S00033.ns2217 +++| LIST *
00687 M01S00507.0vu +++| INDEX MXSC
00688 M01S00011.ns2601 +++| VST SPACE 4,10
00689 M01S00012.ns2601 +++|** VST - VALIDATE *ST* PARAMETER.
00690 M01S00013.ns2601 +++|*
00691 M01S00014.ns2601 +++|* ENTRY (DLAT) = EXISTING DLID ATTRIBUTES (FROM CALLER).
00692 M01S00015.ns2601 +++|* (DLID) = DESTINATION LID FROM JOB COMMAND.
00693 M01S00016.ns2601 +++|*
00694 M01S00017.ns2601 +++|* EXIT (DLAT) = DLID ATTRIBUTES.
00695 M01S00018.ns2601 +++|* (DLID) = 0, IF DLID NOT VALID.
00696 M01S00019.ns2601 +++|* (JCEC) = *IDIE*, IF DLID NOT VALID.
00697 M01S00020.ns2601 +++|*
00698 M01S00021.ns2601 +++|* USES T1.
00699 M01S00022.ns2601 +++|*
00700 M01S00023.ns2601 +++|* CALLS VID.
00701 M01S00024.ns2601 +++|
00702 M01S00025.ns2601 +++|
00703 M01S00026.ns2601 +++| VST SUBR ENTRY/EXIT
00704 M01S00027.ns2601 +++| LDM DLID+1 GET DESTINATION LID (FROM JOB COMMAND)
00705 M01S00028.ns2601 +++| SHN 6
00706 M01S00029.ns2601 +++| LMM DLID
00707 M01S00030.ns2601 +++| SHN 6
00708 M01S00031.ns2601 +++| ZJN VSTX IF NO DESTINATION LID SPECIFIED
00709 M01S00032.ns2601 +++| RJM VID VALIDATE LID
00710 M01S00033.ns2601 +++| ZJN VST1 IF NOT VALID LID
00711 M01S00034.ns2601 +++| STD T1 SAVE DLID ATTRIBUTES
00712 M01S00035.ns2601 +++| LDM DLAT
00713 M01S00036.ns2601 +++| NJN VSTX IF DLID ATTRIBUTES ALREADY SET
00714 M01S00037.ns2601 +++| LDD T1 SET DLID ATTRIBUTES
00715 M01S00038.ns2601 +++| STM DLAT
00716 M01S00039.ns2601 +++| UJN VSTX RETURN
00717 M01S00040.ns2601 +++|
00718 M01S00041.ns2601 +++| VST1 LDN 0 CLEAR DLID
00719 M01S00042.ns2601 +++| STM DLID
00720 M01S00043.ns2601 +++| STM DLID+1
00721 M01S00044.ns2601 +++| LDN IDIE SET *INCORRECT LID* ERROR CODE
00722 M01S00045.ns2601 +++| STM JCEC
00723 M01S00046.ns2601 +++| AOM JCEF FLAG JOB COMMAND ERROR
00724 M01S00047.ns2601 +++| UJN VSTX RETURN
00725 M01S00003.ns2516a +++| VTL SPACE 4,15
00726 M01S00004.ns2516a +++|** VTL - VALIDATE TIME LIMIT.
00727 M01S00005.ns2516a +++|*
00728 M01S00006.ns2516a +++|* ENTRY (JTSS - JTSS+1) = TIME LIMIT ENTERED ON JOB CARD.
00729 M01S00007.ns2516a +++|* (VASS+5*AHMT+2) = VALIDATION TIME LIMIT INDEX.
00730 M01S00008.ns2516a +++|* (UCNV) = 0, IF VALID USER COMMAND FOUND.
00731 M01S00009.ns2516a +++|*
00732 M01S00010.ns2516a +++|* EXIT (JTSS - JTSS+1) = LESSER OF JOB CARD TIME LIMIT AND
00733 M01S00011.ns2516a +++|* VALIDATION TIME LIMIT.
00734 M01S00012.ns2516a +++|*
00735 M01S00013.ns2516a +++|* USES CM.
00736 M01S00014.ns2516a +++|*
00737 M01S00015.ns2516a +++|* CALLS TLI.
00738 M01S00016.ns2516a +++|
00739 M01S00017.ns2516a +++|
00740 M01S00018.ns2516a +++| VTL SUBR ENTRY/EXIT
00741 M01S00019.ns2516a +++| LDM UCNV
00742 M01S00020.ns2516a +++| NJN VTLX IF NO VALID USER COMMAND FOUND
00743 M01S00021.ns2516a +++| LDM. VASS+5*AHMT+2 CHECK VALIDATION TIME LIMIT
00744 M01S00022.ns2516a +++| RJM TLI
00745 M01S00023.ns2516a +++| STD CM
00746 M01S00024.ns2516a +++| MJN VTLX IF UNLIMITED
00747 M01S00025.ns2516a +++| LDM. JTSS COMPARE TO TIME LIMIT
00748 M01S00026.ns2516a +++| SHN 14
00749 M01S00027.ns2516a +++| LMM. JTSS+1
00750 M01S00028.ns2516a +++| SHN -3
00751 M01S00029.ns2516a +++| SBD CM
00752 M01S00030.ns2516a +++| MJN VTLX IF TIME LIMIT .LT. VALIDATION LIMIT
00753 M01S00031.ns2516a +++| LDD CM REPLACE TIME LIMIT WITH VALIDATION LIMIT
00754 M01S00032.ns2516a +++| SHN 3
00755 M01S00033.ns2516a +++| STM. JTSS+1
00756 M01S00034.ns2516a +++| SHN -14
00757 M01S00035.ns2516a +++| STM. JTSS
00758 M01S00036.ns2516a +++| UJN VTLX RETURN
00759 M01S00508.0vu +++| SPACE 4,10
00760 M01S00509.0vu +++|* COMMON DECKS.
00761 M01S00510.0vu +++|
00762 M01S00037.ns2516a +++| TLI$ SET 1
00763 M01S00038.ns2516a +++|*CALL COMPCVI
00764 M01S00048.ns2601 +++|*CALL COMPVID
00765 M01S00017.v23l617 +++| VAL$ SET 0 ASSEMBLE ACCESS LEVEL CODE
00766 M01S00018.v23l617 +++| SCH$ SET 0 ASSEMBLE SEARCH CODE
00767 M01S00019.v23l617 +++|*CALL COMPVLC
00768 M01S00511.0vu +++| CUV$ EQU 1 CHECK FOR SERVICE CLASS VALID FOR USER
00769 M01S00512.0vu +++|*CALL COMPVSP
00770 M01S00513.0vu +++| SPACE 4,10
00771 M01S00514.0vu +++| HERE
00772 M01S00515.0vu +++| SPACE 4,10
00773 M01S00516.0vu +++| OVERFLOW 5,ZVUL
00774 M01S00517.0vu +++|
00775 M01S00518.0vu +++| END