cdc:nos2.source:opl.opl871:deck:0vu
Deck 0VU
16 Modifications
Source
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
cdc/nos2.source/opl.opl871/deck/0vu.txt · Last modified: by 127.0.0.1