cdc:nos2.source:opl.opl871:deck:0vu
Deck 0VU
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0vu ---| IDENT 0VU,/REL/RVUX 00002 M00S00002.0vu ---| PERIPH J 00003 M00S00003.0vu ---| BASE MIXED 00004 M00S00004.0vu ---| SST 00005 M00S00005.0vu ---| QUAL$ EQU 1 00006 M00S00006.0vu ---|*COMMENT 0VU - VERIFY USER AND JOB.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1983.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.0vu +++| TITLE 0VU - VERIFY USER AND JOB. 00010 M00S00009.0vu +++| SPACE 4,10 00011 M00S00010.0vu +++|*** 0VU - VERIFY USER AND JOB. 00012 M00S00011.0vu +++|* P. C. SMITH. 83/02/11. 00013 M00S00012.0vu +++| SPACE 4,10 00014 M00S00013.0vu +++|*** *0VU* VALIDATES THE USER NAME SPECIFIED AND THE JOB 00015 M00S00014.0vu +++|* TO BE CREATED. *0VU* IS CALLED BY *0VJ*. 00016 M00S00015.0vu +++| SPACE 4,10 00017 M00S00016.0vu +++|*** ENTRY CONDITIONS. 00018 M00S00017.0vu +++|* 00019 M00S00018.0vu +++|* (OT) = ORIGIN TYPE OF JOB TO BE CREATED. 00020 M00S00019.0vu +++|* (BFMS) = SYSTEM SECTOR. 00021 M00S00020.0vu +++|* 00022 M00S00021.0vu +++|* SEE *COMS0VU* FOR MORE CONDITIONS. 00023 M00S00022.0vu +++| SPACE 4,10 00024 M00S00023.0vu +++|*** EXIT CONDITIONS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00001.242l642 +++|* 00026 M01S00002.242l642 +++|* (A) .GE. 0. 00027 M00S00024.0vu +++|* 00028 M00S00025.0vu +++|* SYSTEM SECTOR INITIALIZATION COMPLETED. 00029 M00S00026.0vu +++|* 00030 M00S00027.0vu +++|* *0VU* RETURNS DIRECTLY TO THE PROGRAM THAT CALLED *0VJ*. 00031 M00S00028.0vu +++|* 00032 M00S00029.0vu +++|* SEE *0VJ* DOCUMENTATION FOR MORE CONDITIONS. 00033 M00S00030.0vu +++| SPACE 4,10 00034 M00S00031.0vu +++| TITLE MACRO DEFINITIONS. 00035 M00S00032.0vu +++| PARAM SPACE 4,10 00036 M00S00033.0vu +++|** PARAM - DEFINE *0VJ*/*0VU* INTERFACE PARAMETER. 00037 M00S00034.0vu +++|* 00038 M00S00035.0vu +++|* TAG PARAM NUM,VAL 00039 M00S00036.0vu +++|* 00040 M00S00037.0vu +++|* ENTRY TAG = SYMBOLIC NAME FOR LOCATION(S). 00041 M00S00038.0vu +++|* NUM = NUMBER OF LOCATIONS TO RESERVE. 00042 M00S00039.0vu +++|* (IF NUM = *FIRST*, INITIALIZE BLOCK; 00043 M00S00040.0vu +++|* IF NUM = *LAST*, TERMINATE BLOCK.) 00044 M00S00041.0vu +++|* VAL = VALUE TO PRESET LOCATION(S) WITH 00045 M00S00042.0vu +++|* (USED ONLY IN *0VJ* VERSION OF MACRO). 00046 M00S00043.0vu +++| 00047 M00S00044.0vu +++| 00048 M00S00045.0vu +++| PURGMAC PARAM 00049 M00S00046.0vu +++| 00050 M00S00047.0vu +++| MACRO PARAM,TAG,NUM,VAL 00051 M00S00048.0vu +++| .A IFC EQ,$VAL$$ 00052 M00S00049.0vu +++| .B IFC EQ,$NUM$FIRST$ 00053 M00S00050.0vu +++| LOC -ZVPL-5 00054 M00S00051.0vu +++| TAG EQU * 00055 M00S00052.0vu +++| .B ELSE 00056 M00S00053.0vu +++| .C IFC EQ,$NUM$LAST$ 00057 M00S00054.0vu +++| TAG EQU * 00058 M00S00055.0vu +++| ERRNZ *+5 PARAMETER BLOCK LENGTH ERROR 00059 M00S00056.0vu +++| LOC *O 00060 M00S00057.0vu +++| .C ELSE 00061 M00S00058.0vu +++| ERR MISSING PARAMETER 00062 M00S00059.0vu +++| .C ENDIF 00063 M00S00060.0vu +++| .B ENDIF 00064 M00S00061.0vu +++| .A ELSE 00065 M00S00062.0vu +++| TAG EQU * 00066 M00S00063.0vu +++| LOC *+NUM 00067 M00S00064.0vu +++| .A ENDIF 00068 M00S00065.0vu +++| ENDM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00066.0vu +++| COMMON SPACE 4,10 00099 M00S00067.0vu +++|** COMMON DECKS. 00100 M00S00068.0vu +++| 00101 M00S00069.0vu +++| 00102 M00S00070.0vu +++|*CALL COMPMAC 00103 M00S00071.0vu +++|*CALL COMPRLI 00104 M00S00072.0vu +++|*CALL COMSACC 00105 M00S00073.0vu +++|*CALL COMSCPS 00106 M00S00074.0vu +++|*CALL COMSDSP 00107 M00S00075.0vu +++|*CALL COMSPIM 00108 M01S00030.ns2217 +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00109 M00S00076.0vu +++|*CALL COMSSCD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00110 M02S00001.ns2601 ---|*CALL,COMSMLS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00111 M01S00001.ns2601 +++|*CALL COMSMLS 00112 M00S00077.0vu +++|*CALL COMSSSE 00113 M00S00078.0vu +++|*CALL COMSZOL 00114 M00S00079.0vu +++| SPACE 4,10 00115 M00S00080.0vu +++| LIST X,G 00116 M00S00081.0vu +++|*CALL COMS0VU 00117 M00S00082.0vu +++| LIST * 00118 M00S00083.0vu +++| SPACE 4,10 00119 M00S00084.0vu +++|**** DIRECT CELLS. 00120 M00S00085.0vu +++| 00121 M01S00002.ns2601 +++| T8 EQU 16 TEMPORARY STORAGE (USED BY *COMPVID*) 00122 M00S00086.0vu +++| CN EQU 30 - 34 ASSEMBLY BUFFER 00123 M00S00087.0vu +++| JF EQU 35 INITIAL JOB FIELD LENGTH 00124 M01S00003.ns2601 +++| UN EQU 40 - 44 TEMPORARY STORAGE (USED BY *COMPVID*) 00125 M00S00088.0vu +++| OT EQU 46 ORIGIN TYPE 00126 M00S00089.0vu +++| ER EQU 47 ERROR STATUS 00127 M00S00090.0vu +++| 00128 M00S00091.0vu +++|**** 00129 M00S00092.0vu +++| TITLE MAIN ROUTINE. 00130 M00S00093.0vu +++| RVU SPACE 4,10 00131 M00S00094.0vu +++|** RVU - MAIN ROUTINE. 00132 M00S00095.0vu +++| 00133 M00S00096.0vu +++| ORG 5 00134 M00S00097.0vu +++| 00135 M00S00098.0vu +++| RVU SUBR ENTRY/EXIT 00136 M00S00099.0vu +++| RJM REL RELOCATE ADDRESSES 00137 M00S00100.0vu +++| LDM ZVJR SET *0VJ* RETURN ADDRESS 00138 M00S00101.0vu +++| STM RVU 00139 M01S00004.ns2601 +++| RJM VST VALIDATE *ST* PARAMETER
| Line S00102 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00140 M01S00102.v23l617 ---| RJM RUA READ USER ACCOUNTING BLOCK
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00002.v23l617 +++| LDM SCAL
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00142 M02S00003.ns2601 ---| ZJN RVU0.1 IF NO ACCESS LEVEL SPECIFIED
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00143 M01S00005.ns2601 +++| ZJN RVU1.1 IF NO ACCESS LEVEL SPECIFIED
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00144 M01S00004.v23l617 +++| LDC. SCAL 00145 M01S00005.v23l617 +++| RJM VAL VALIDATE ACCESS LEVEL
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00006.ns2601 ---| PJN RVU0 IF NO ERROR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00006.ns2601 +++| PJN RVU1 IF NO ERROR
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00007.v23l617 +++| AOM JCEF SET ERROR FLAG
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00149 M02S00008.ns2601 ---| UJN RVU0.1 CONTINUE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00150 M01S00007.ns2601 +++| UJN RVU1.1 CONTINUE
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00009.v23l617 +++|
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00152 M02S00010.ns2601 ---| RVU0 STM UALL SAVE ACCESS LEVEL
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00153 M01S00008.ns2601 +++| RVU1 STM UALL SAVE ACCESS LEVEL
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00154 M01S00011.v23l617 +++| STM JCAL
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00155 M02S00012.ns2601 ---| RVU0.1 RJM RUA READ USER ACCOUNTING BLOCK
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00156 M01S00009.ns2601 +++| RVU1.1 RJM RUA READ USER ACCOUNTING BLOCK 00157 M00S00103.0vu +++|
| Line S00104 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00158 M01S00104.ns2516a ---|* VALIDATE SERVICE CLASS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00159 M01S00001.ns2516a +++|* VALIDATE SERVICE CLASS AND TIME LIMIT. 00160 M00S00105.0vu +++| 00161 M00S00106.0vu +++| RJM VSC VALIDATE SERVICE CLASS 00162 M01S00002.ns2516a +++| RJM VTL VALIDATE TIME LIMIT 00163 M00S00107.0vu +++| 00164 M00S00108.0vu +++|* VALIDATE SECURITY ACCESS LEVELS AND CATEGORIES. 00165 M00S00109.0vu +++|
| Line S00110 Modification History | |
|---|---|
M01 (Removed by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00166 M01S00110.ns2601 ---| RVU1 LDD MA SET VALIDATIONS FROM SYSTEM SECTOR
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00167 M01S00010.ns2601 +++| LDD MA SET VALIDATIONS FROM SYSTEM SECTOR 00168 M00S00111.0vu +++| CWM. VASS+5*ASVW,ON 00169 M00S00112.0vu +++| LDM UCNV
| Line S00113 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00113.ns2243 ---| ZJN RVU2 IF USER COMMAND VALID
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00001.ns2727 ---| ZJN RVU2 IF USER COMMAND REQUIRED AND VALID
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00172 M01S00001.ns2727 +++| ZJN RVU2 IF *USER* COMMAND VALID 00173 M00S00114.0vu +++| LDD MA SET UNLIMITED ACCESS LEVEL VALIDATIONS 00174 M00S00115.0vu +++| CWM RVUA,ON
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vu2 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00116.0vu +++| RVU2 LDD OT 00180 M00S00117.0vu +++| STD CM+2
| Line S00118 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00181 M01S00118.ns2202 ---| LDM LALL SET LOWER ACCESS LEVEL LIMIT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00001.ns2202 +++| LDM LFAL SET INITIAL JOB ACCESS LEVEL 00183 M00S00119.0vu +++| STD CM+4 00184 M00S00120.0vu +++| LDM UALL SET UPPER ACCESS LEVEL LIMIT 00185 M00S00121.0vu +++| STD CM+3 00186 M00S00122.0vu +++| LDN VJCS VALIDATE JOB CREATION PARAMETERS 00187 M00S00123.0vu +++| STD CM+1 00188 M00S00124.0vu +++| MONITOR VSAM 00189 M00S00125.0vu +++| LDD CM+1
| Line S00126 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00190 M01S00126.ns2202 ---| NJN RVU4 IF JOB MAY NOT BE CREATED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00191 M01S00002.ns2202 +++| NJN RVU2.1 IF JOB MAY NOT BE CREATED 00192 M00S00127.0vu +++| LDK SSML CHECK SYSTEM SECURITY MODE 00193 M00S00128.0vu +++| CRD T0 00194 M00S00129.0vu +++| LDD T0 00195 M00S00130.0vu +++| LPN 77 00196 M00S00131.0vu +++| ZJN RVU3 IF UNSECURED SYSTEM 00197 M00S00132.0vu +++| LDM JCAL CHECK IF JOB COMMAND ACCESS LEVEL VALID 00198 M00S00133.0vu +++| LMN 77 00199 M00S00134.0vu +++| ZJN RVU3 IF NO ACCESS LEVEL ON JOB COMMAND 00200 M00S00135.0vu +++| LMN 77 00201 M00S00136.0vu +++| LMD CM+3
| Line S00137 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00202 M01S00137.ns2202 ---| NJN RVU4 IF SPECIFIED ACCESS LEVEL NOT VALID
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00003.ns2202 +++| RVU2.1 NJN RVU4 IF SPECIFIED ACCESS LEVEL NOT VALID 00204 M00S00138.0vu +++| RVU3 LDD MA UPDATE VALIDATION ENTRY IN SYSTEM SECTOR 00205 M00S00139.0vu +++| CRM. VASS+5*ASVW,ON 00206 M00S00140.0vu +++| LDM. IOSS+5*INSQ+3 SET ACCESS LEVEL LIMITS IN QFT ENTRY
| Line S00141 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00141.ns2202 ---| SCN 77 00208 M01S00142.ns2202 ---| SHN -3 00209 M01S00143.ns2202 ---| LMD CM+4
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00210 M01S00004.ns2202 +++| SHN -11 00211 M01S00005.ns2202 +++| SHN 3 00212 M01S00006.ns2202 +++| LMD CM+4 LOWER ACCESS LEVEL LIMIT 00213 M00S00144.0vu +++| SHN 3
| Line S00145 Modification History | |
|---|---|
M01 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 00214 M01S00145.ns2202 ---| LMD CM+3
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00146.0vu +++| STM. IOSS+5*INSQ+3 00219 M00S00147.0vu +++| UJN RVU5 CHECK LID ATTRIBUTES 00220 M00S00148.0vu +++| 00221 M00S00149.0vu +++|* SET *JOB COMMAND ERROR* STATUS. 00222 M00S00150.0vu +++| 00223 M00S00151.0vu +++| RVU4 LDN JCIE SET JOB COMMAND ERROR CODE 00224 M00S00152.0vu +++| STM JCEC 00225 M00S00153.0vu +++| AOM JCEF FLAG JOB COMMAND ERROR 00226 M00S00154.0vu +++| 00227 M00S00155.0vu +++|* CHECK VALIDATIONS FOR SPECIFYING LID. 00228 M00S00156.0vu +++| 00229 M00S00157.0vu +++| RVU5 LDM DLAT 00230 M00S00158.0vu +++| ZJP RVU8 IF DESTINATION LID NOT SPECIFIED
| Line S00159 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00231 M01S00159.v23l617 ---| SHN 21-10
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00013.v23l617 +++| SHN 21-11 00233 M00S00160.0vu +++| PJN RVU7 IF VALIDATION NOT REQUIRED FOR DLID 00234 M00S00161.0vu +++| LDM UCNV
| Line S00162 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00162.ns2243 ---| NJP RVU7 IF USER COMMAND NOT VALID
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00236 M02S00002.ns2420 ---| NJP RVU7 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00237 M01S00001.ns2420 +++| NJN RVU7 IF *USER* NOT VALID 00238 M00S00163.0vu +++| LDM. AWSS+3 CHECK USER VALIDATIONS 00239 M00S00164.0vu +++| SHN 21-5 00240 M00S00165.0vu +++| PJN RVU6 IF NOT VALIDATED TO SPECIFY LID (*CUST*) 00241 M00S00166.0vu +++| SHN 21-4-21+5 00242 M00S00167.0vu +++| MJN RVU7 IF VALIDATED TO USE LCN (*CQLK*) 00243 M00S00168.0vu +++| LDM DLAT
| Line S00169 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00244 M01S00169.v23l617 ---| SHN 21-12 00245 M01S00170.v23l617 ---| PJN RVU7 IF NOT *LINKED* LID
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00246 M01S00014.v23l617 +++| SHN 21-13 00247 M01S00015.v23l617 +++| MJN RVU7 IF HOST LID 00248 M00S00171.0vu +++| 00249 M00S00172.0vu +++|* SET *INVALID LID* ERROR STATUS. 00250 M00S00173.0vu +++| 00251 M00S00174.0vu +++| RVU6 LDN STIE SET ERROR CODE 00252 M00S00175.0vu +++| STM JCEC 00253 M00S00176.0vu +++| AOM JCEF FLAG *JOB COMMAND ERROR* 00254 M00S00177.0vu +++| LDN 0 CLEAR ATTRIBUTES 00255 M00S00178.0vu +++| STM DLAT 00256 M00S00179.0vu +++| STM DLID CLEAR DLID 00257 M00S00180.0vu +++| STM DLID+1 00258 M00S00181.0vu +++| 00259 M00S00182.0vu +++|* SET DESTINATION LID IN QFT / SYSTEM SECTOR. 00260 M00S00183.0vu +++| 00261 M00S00184.0vu +++| RVU7 LDM DLID SET DLID 00262 M00S00185.0vu +++| STM. IOSS+INSQ*5+1 00263 M00S00186.0vu +++| LDM. IOSS+INSQ*5+2 00264 M00S00187.0vu +++| LPN 77 00265 M00S00188.0vu +++| LMM DLID+1 00266 M00S00189.0vu +++| STM. IOSS+INSQ*5+2 00267 M00S00190.0vu +++| 00268 M00S00191.0vu +++|* RETURN STATUS TO *0VJ* CALLER. 00269 M00S00192.0vu +++| 00270 M00S00193.0vu +++| RVU8 LDN 0 CLEAR RETURN STATUS 00271 M00S00194.0vu +++| STD ER 00272 M00S00195.0vu +++| LDM DLAT RETURN DLID ATTRIBUTES 00273 M00S00196.0vu +++| STD CN 00274 M00S00197.0vu +++| ZJN RVU9 IF NO DLID SPECIFIED 00275 M00S00198.0vu +++| SHN 21-13 00276 M00S00199.0vu +++| PJN RVU10 IF DLID NOT *HOST* LID 00277 M00S00200.0vu +++| RVU9 LDM JCEF 00278 M00S00201.0vu +++| ZJN RVU10 IF NO JOB COMMAND ERROR 00279 M00S00202.0vu +++| LDM JCEC SET JOB COMMAND ERROR CODE 00280 M00S00203.0vu +++| STM. JASS 00281 M00S00204.0vu +++| LDN 1 SET *JOB COMMAND ERROR* RETURN STATUS 00282 M00S00205.0vu +++| STD ER 00283 M00S00206.0vu +++| LDN DNFL SET FIELD LENGTH FOR NFL ONLY 00284 M00S00207.0vu +++| STD JF 00285 M00S00208.0vu +++| LDN 0 SET JOB STEP TIME LIMIT = 10B 00286 M00S00209.0vu +++| STM. JTSS 00287 M00S00210.0vu +++| LDN 10 00288 M00S00211.0vu +++| STM. JTSS+1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
Seq # *Modification Id* Act ----------------------------+ 00289 M01S00001.ns2168 +++| LDM JCEC 00290 M01S00002.ns2168 +++| LMN IDIE 00291 M01S00003.ns2168 +++| ZJN RVU12 IF *INVALID LID* ERROR 00292 M00S00212.0vu +++| RVU10 LDM UCNV
| Line S00213 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act ----------------------------+ 00293 M01S00213.ns2243 ---| ZJN RVU12 IF USER COMMAND VALID
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00294 M02S00003.ns2420 ---| ZJN RVU12 IF USER COMMAND REQUIRED AND VALID
| Line S00214 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00295 M01S00214.ns2420 ---| LDM DLAT 00296 M01S00215.ns2420 ---| ZJN RVU11 IF NO DLID SPECIFIED
| Line S00216 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00297 M02S00216.ns2420 ---| SHN 21-10
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00298 M02S00016.ns2420 ---| SHN 21-11
| Line S00217 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00299 M01S00217.ns2420 ---| PJN RVU12 IF VALIDATION NOT REQUIRED FOR DLID 00300 M01S00218.ns2420 ---| RVU11 LDM ZVJP
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00301 M01S00002.ns2420 +++| ZJN RVU12 IF USER COMMAND VALID 00302 M01S00003.ns2420 +++| LDM ZVJP 00303 M00S00219.0vu +++| SHN 21-11
| Line S00220 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00304 M01S00220.ns2420 ---| MJN RVU11.1 IF JOB WILL BE ROUTED TO SYSTEM ORIGIN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00305 M01S00004.ns2420 +++| MJN RVU11 IF JOB WILL BE ROUTED TO SYSTEM ORIGIN 00306 M00S00221.0vu +++| RVUB LDN UNIE * USER NAME/PASSWORD NOT VALID.* 00307 M00S00222.0vu +++|* LDN UCIE * USER SECURITY COUNT EXHAUSTED.* 00308 M00S00223.0vu +++| STM. JASS SET JOB COMMAND ERROR CODE
| Line S00224 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00309 M01S00224.ns2420 ---| RVU11.1 LDN 3 SET *USER COMMAND ERROR* RETURN STATUS
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00310 M01S00005.ns2420 +++| RVU11 LDN 3 SET *USER COMMAND ERROR* RETURN STATUS 00311 M00S00225.0vu +++| STD ER 00312 M00S00226.0vu +++| RVU12 LJM RVUX RETURN TO CALLER OF *0VJ* 00313 M00S00227.0vu +++| 00314 M00S00228.0vu +++| RVUA VFD 12/0,12/377,36/0 00315 M00S00229.0vu +++| TITLE SUBROUTINES. 00316 M00S00230.0vu +++| CPW SPACE 4,10 00317 M00S00231.0vu +++|** CPW - COMPARE PASSWORDS. 00318 M00S00232.0vu +++|* 00319 M00S00233.0vu +++|* ENTRY (T3) = FWA OF PASSWORD IN USER BLOCK. 00320 M00S00234.0vu +++|* (PSWD - PSWD+3) = SUPPLIED PASSWORD. 00321 M00S00235.0vu +++|* 00322 M00S00236.0vu +++|* EXIT (A) = 0 IF PASSWORDS MATCH. 00323 M00S00237.0vu +++|* 00324 M00S00238.0vu +++|* USES CM, T6. 00325 M00S00239.0vu +++| 00326 M00S00240.0vu +++| 00327 M00S00241.0vu +++| CPW SUBR ENTRY/EXIT 00328 M00S00242.0vu +++| LDN 0 00329 M00S00243.0vu +++| STD T6 00330 M00S00244.0vu +++| LDD T3 00331 M00S00245.0vu +++| STD CM 00332 M00S00246.0vu +++| CPW1 LDM PSWD,T6 CHECK NEXT BYTE 00333 M00S00247.0vu +++| LMI CM 00334 M00S00248.0vu +++| NJN CPWX IF NO MATCH 00335 M00S00249.0vu +++| AOD CM 00336 M00S00250.0vu +++| AOD T6 00337 M00S00251.0vu +++| LMN 3 00338 M00S00252.0vu +++| NJN CPW1 IF MORE BYTES TO COMPARE 00339 M00S00253.0vu +++| LDM PSWD,T6 COMPARE LAST CHARACTER 00340 M00S00254.0vu +++| LMI CM 00341 M00S00255.0vu +++| SCN 77 00342 M00S00256.0vu +++| UJN CPWX RETURN 00343 M00S00257.0vu +++| RUA SPACE 4,20 00344 M00S00258.0vu +++|** RUA - RETRIEVE USER ACCOUNT BLOCK. 00345 M00S00259.0vu +++|* 00346 M00S00260.0vu +++|* ENTRY (UBAD) = ADDRESS OF USER BLOCK. 00347 M00S00261.0vu +++|* (SPUI) = SPECIAL USER INDEX FLAG.
| Line S00262 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act ----------------------------+ 00348 M01S00262.ns2243 ---|* (UCNV) = USER COMMAND NOT VALID STATUS FROM *0VJ*.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00349 M02S00004.ns2420 ---|* (UCNV) = USER COMMAND NOT VALID OR NO VALIDATION 00350 M02S00005.ns2420 ---|* REQUIRED FLAG FROM *0VJ*.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00351 M01S00006.ns2420 +++|* (UCNV) = USER COMMAND NOT VALID. 00352 M00S00263.0vu +++|* (UIDX - UIDX+1) = USER INDEX. 00353 M00S00264.0vu +++|* 00354 M00S00265.0vu +++|* EXIT (UCNV) .NE. 0, IF USER COMMAND ERROR ENCOUNTERED. 00355 M00S00266.0vu +++|* (RVUB) MODIFIED IF USER SECURITY COUNT EXHAUSTED. 00356 M00S00267.0vu +++|* USER ACCOUNT BLOCK SET IN SYSTEM SECTOR. 00357 M00S00268.0vu +++|* PASSWORD VALIDATED. 00358 M00S00269.0vu +++|* ENCRYPTED BATCH PASSWORD SET IN SYSTEM SECTOR. 00359 M00S00270.0vu +++|* 00360 M00S00271.0vu +++|* USES T1, T2, T3, T6. 00361 M00S00272.0vu +++|* 00362 M00S00273.0vu +++|* CALLS VPW. 00363 M00S00274.0vu +++|* 00364 M00S00275.0vu +++|* MACROS EXECUTE. 00365 M00S00276.0vu +++| 00366 M00S00277.0vu +++|
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00278.ns2420 ---| RUA4 AOM UCNV SET *USER COMMAND NOT VALID* STATUS 00368 M01S00279.ns2420 ---| RUA5 LDN ZERL CLEAR USER NAME/USER INDEX
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00369 M02S00007.ns2420a ---| RUA6 LDM DLAT 00370 M02S00008.ns2420a ---| SHN 21-13 00371 M02S00009.ns2420a ---| MJN RUA7 IF HOST LID 00372 M02S00010.ns2420a ---| SHN 21-11-21+13 00373 M02S00011.ns2420a ---| PJP RUA1 IF VALIDATION NOT REQUIRED FOR DLID 00374 M02S00012.ns2420a ---| RUA7 AOM UCNV SET *USER COMMAND NOT VALID* STATUS 00375 M02S00013.ns2420a ---| RUA8 LDN ZERL CLEAR USER NAME/USER INDEX
| Line S00280 Modification History | |
|---|---|
M01 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00376 M01S00280.ns2420a ---| CRM. ACSS,ON 00377 M01S00281.ns2420a ---| 00378 M01S00282.ns2420a ---| 00379 M00S00283.0vu ---| RUA SUBR ENTRY/EXIT 00380 M00S00284.0vu ---| LDM UCNV
| Line S00285 Modification History | |
|---|---|
M01 (Removed by) | ns2243 |
Seq # *Modification Id* Act ----------------------------+ 00381 M01S00285.ns2243 ---| NJN RUA5 IF USER COMMAND NOT VALID
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed 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 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00383 M02S00014.ns2420a ---| NJN RUA8 IF *USER* NOT VALID
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00384 M01S00001.ns2420a +++| NJP RUA2 IF ERROR IN CRACKING USER COMMAND 00385 M00S00286.0vu +++| LDM UIDX 00386 M00S00287.0vu +++| STD T1 00387 M00S00288.0vu +++| SHN 14 00388 M00S00289.0vu +++| LMM UIDX+1
| Line S00290 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00389 M01S00290.ns2420 ---| ZJN RUA4 IF USER NOT VALID
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00390 M02S00015.ns2420a ---| ZJN RUA7 IF USER NOT VALID
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00002.ns2420a +++| ZJN RUA1 IF USER NAME / FAMILY NOT VALID 00392 M00S00291.0vu +++| STD T2 00393 M00S00292.0vu +++| LDM UBAD SET USER BLOCK ADDRESS 00394 M00S00293.0vu +++| STD T3
| Line S00294 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00395 M01S00294.ns2420 ---| STM RUAB
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00396 M01S00016.ns2420 +++| STM RUAA 00397 M00S00295.0vu +++| ADK APSW*5 SET PASSWORD ADDRESS
| Line S00296 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00398 M01S00296.ns2420 ---| STM RUAC
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00017.ns2420 +++| STM RUAB 00400 M00S00297.0vu +++| ADK ASCV*5-APSW*5 00401 M00S00298.0vu +++| STM VSCA SET SERVICE CLASS VALIDATION MASK ADDRESS 00402 M00S00299.0vu +++| RJM VPW VALIDATE PASSWORD
| Line S00300 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00403 M01S00300.ns2420 ---| RUA0 NJP RUA4 IF PASSWORD NOT VALID 00404 M01S00301.ns2420 ---| LDM SPUI 00405 M01S00302.ns2420 ---| ZJN RUA1 IF USER INDEX .LT. *AUIMX*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00406 M02S00018.ns2420a ---| NJP RUA6 IF PASSWORD NOT VALID 00407 M02S00019.ns2420a ---| RUA1 LDM SPUI 00408 M02S00020.ns2420a ---| ZJN RUA2 IF USER INDEX .LT. *AUIMX*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2420c |
Seq # *Modification Id* Act ----------------------------+ 00413 M02S00007.ns2420c ---| LDM DLAT 00414 M02S00008.ns2420c ---| ZJN RUA1 IF NO DESTINATION LID SPECIFIED 00415 M02S00009.ns2420c ---| SHN 21-13 00416 M02S00010.ns2420c ---| MJN RUA1 IF HOST LID 00417 M02S00011.ns2420c ---| SHN 21-11-21+13 00418 M02S00012.ns2420c ---| PJN RUA3 IF VALIDATION NOT REQUIRED FOR DLID
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00303.0vu +++| LDD OT 00429 M00S00304.0vu +++| LMK SYOT
| Line S00305 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00430 M01S00305.ns2420 ---| NJN RUA0 IF NOT *SYOT* JOB 00431 M01S00306.ns2420 ---| RUA1 LDM USCT 00432 M01S00307.ns2420 ---| NJN RUA1.1 IF USER SECURITY COUNT NOT EXHAUSTED
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00433 M02S00021.ns2420a ---| NJN RUA3 IF NOT *SYOT* JOB 00434 M02S00022.ns2420a ---| RUA2 LDM USCT 00435 M02S00023.ns2420a ---| NJN RUA4 IF USER SECURITY COUNT NOT EXHAUSTED
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00308.0vu +++| LDN UCIE-UNIE SET ERROR CODE 00440 M00S00309.0vu +++| RAM RVUB
| Line S00310 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00441 M01S00310.ns2420 ---| LJM RUA4 SET *USER COMMAND NOT VALID* STATUS
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00442 M02S00024.ns2420a ---| RUA3 LJM RUA7 SET *USER COMMAND NOT VALID* STATUS
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00443 M01S00025.ns2420a +++| UJN RUA1 SET *USER COMMAND NOT VALID* STATUS 00444 M00S00311.0vu +++|
| Line S00312 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00445 M01S00312.ns2420 ---| RUA1.1 LDM. ACSS+3 SET CREATION USER INDEX
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00446 M02S00025.ns2420a ---| RUA4 LDM. ACSS+3 SET CREATION USER INDEX
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00026.ns2420a +++|* SAVE USER ACCOUNT BLOCK. 00448 M01S00027.ns2420a +++| 00449 M01S00028.ns2420a +++| RUA5 LDM. ACSS+3 SET CREATION USER INDEX 00450 M00S00313.0vu +++| SCN 77 00451 M00S00314.0vu +++| LMD T1 00452 M00S00315.0vu +++| STM. ACSS+3 00453 M00S00316.0vu +++| LDD T2 00454 M00S00317.0vu +++| STM. ACSS+4
| Line S00318 Modification History | |
|---|---|
M01 (Removed by) | 0vu3 |
Seq # *Modification Id* Act ----------------------------+ 00455 M01S00318.0vu3 ---| ADD T1 00456 M00S00319.0vu ---| LDC 5*ABSS-1 COPY FIRST HALF OF USER BLOCK 00457 M00S00320.0vu ---| STD T6
| Line S00321 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00458 M01S00321.ns2420 ---| RUA2 LDM. *,T6 00459 M01S00322.ns2420 ---| RUAB EQU *-1
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00460 M02S00026.ns2420a ---| RUA5 LDM. *,T6
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00029.ns2420a +++| RUA6 LDM. *,T6
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00462 M01S00027.ns2420 +++| RUAA EQU *-1 00463 M00S00323.0vu +++| STM. VASS,T6 00464 M00S00324.0vu +++| SOD T6
| Line S00325 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00465 M01S00325.ns2420 ---| PJN RUA2 IF MORE BYTES TO MOVE
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
M02 (Removed by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00466 M02S00028.ns2420a ---| PJN RUA5 IF MORE BYTES TO MOVE
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2420a |
Seq # *Modification Id* Act ----------------------------+ 00467 M01S00030.ns2420a +++| PJN RUA6 IF MORE BYTES TO MOVE 00468 M00S00326.0vu +++| LDD MA COPY ENCRYPTED BATCH PASSWORD 00469 M00S00327.0vu +++| CWM. *,ON
| Line S00328 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00470 M01S00328.ns2420 ---| RUAC EQU *-1 (FWA OF ENCRYPTED BATCH PASSWORD)
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00471 M01S00029.ns2420 +++| RUAB EQU *-1 (FWA OF ENCRYPTED BATCH PASSWORD) 00472 M00S00329.0vu +++| SBN 1 00473 M00S00330.0vu +++| CRM. EPSS,ON
| Line S00331 Modification History | |
|---|---|
M01 (Removed by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00474 M01S00331.ns2420 ---| RUA3 LJM RUAX RETURN
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2420 |
Seq # *Modification Id* Act ----------------------------+ 00475 M01S00030.ns2420 +++| LJM RUAX RETURN 00476 M00S00332.0vu +++| VPW SPACE 4,15 00477 M00S00333.0vu +++|** VPW - VALIDATE PASSWORD. 00478 M00S00334.0vu +++|* 00479 M00S00335.0vu +++|* ENTRY (PSWD - PSWD+4) = PASSWORD FROM USER COMMAND. 00480 M00S00336.0vu +++|* (T3) = FWA OF USER ACCOUNT BLOCK. 00481 M00S00337.0vu +++|* (T1 - T2) = USER INDEX. 00482 M00S00338.0vu +++|* 00483 M00S00339.0vu +++|* EXIT (A) .NE. 0, IF PASSWORD NOT VALID. 00484 M00S00340.0vu +++|* 00485 M00S00341.0vu +++|* USES T3, CM - CM+4. 00486 M00S00342.0vu +++|* 00487 M00S00343.0vu +++|* CALLS CPW. 00488 M00S00344.0vu +++|* 00489 M00S00345.0vu +++|* MACROS MONITOR. 00490 M00S00346.0vu +++| 00491 M00S00347.0vu +++| 00492 M00S00348.0vu +++| VPW SUBR ENTRY/EXIT 00493 M00S00349.0vu +++| LDK APSW*5 00494 M00S00350.0vu +++| RAD T3 00495 M00S00351.0vu +++| LDM ZVJP 00496 M00S00352.0vu +++| SHN 21-13 00497 M00S00353.0vu +++| MJP VPW2 IF PASSWORD VALIDATION NOT REQUIRED 00498 M00S00354.0vu +++| LDM PSWD 00499 M00S00355.0vu +++| NJN VPW1 IF PASSWORD PRESENT ON USER COMMAND 00500 M00S00356.0vu +++| LDM ZVJP 00501 M00S00357.0vu +++| SHN 21-12 00502 M00S00358.0vu +++| PJN VPW1 IF FILE NOT PREVIOUSLY ROUTED 00503 M00S00359.0vu +++| 00504 M00S00360.0vu +++|* VALIDATE ENCRYPTED PASSWORD FROM SYSTEM SECTOR. 00505 M00S00361.0vu +++| 00506 M00S00362.0vu +++| LDD MA COPY ENCRYPTED PASSWORD 00507 M00S00363.0vu +++| CWM. EPSS,ON 00508 M00S00364.0vu +++| SBN 1 00509 M00S00365.0vu +++| CRM PSWD,ON 00510 M00S00366.0vu +++| RJM CPW COMPARE PASSWORDS 00511 M00S00367.0vu +++| ZJN VPW2 IF PASSWORD MATCHED 00512 M00S00368.0vu +++| LDN ZERL ENCRYPT AND COMPARE NULL PASSWORD 00513 M00S00369.0vu +++| CRM PSWD,ON 00514 M00S00370.0vu +++| 00515 M00S00371.0vu +++|* ENCRYPT SUPPLIED PASSWORD AND VALIDATE. 00516 M00S00372.0vu +++| 00517 M00S00373.0vu +++| VPW1 LDD MA ENCRYPT PASSWORD 00518 M00S00374.0vu +++| CWM PSWD,ON 00519 M00S00375.0vu +++| LDN REPS 00520 M00S00376.0vu +++| STD CM+1 00521 M00S00377.0vu +++| MONITOR RDCM 00522 M00S00378.0vu +++| LDD MA 00523 M00S00379.0vu +++| CRM PSWD,ON 00524 M00S00380.0vu +++| RJM CPW COMPARE PASSWORDS 00525 M00S00381.0vu +++| NJN VPW3 IF NO MATCH 00526 M00S00382.0vu +++| 00527 M00S00383.0vu +++|* CHECK FOR PASSWORD EXPIRATION. 00528 M00S00384.0vu +++| 00529 M00S00385.0vu +++| VPW2 LDM. 3,T3 CHECK PASSWORD EXPIRATION DATE 00530 M00S00386.0vu +++| LPN 77 00531 M00S00387.0vu +++| STD CM+3 00532 M00S00388.0vu +++| SHN 14 00533 M00S00389.0vu +++| LMM. 4,T3 00534 M00S00390.0vu +++| ZJN VPW4 IF NONEXPIRING PASSWORD 00535 M00S00391.0vu +++| STD CM+4 00536 M00S00392.0vu +++| LDN VEDS VALIDATE EXPIRATION DATE 00537 M00S00393.0vu +++| STD CM+1 00538 M00S00394.0vu +++| MONITOR VSAM 00539 M00S00395.0vu +++| LDD CM+1 00540 M00S00396.0vu +++| ZJN VPW4 IF PASSWORD NOT EXPIRED 00541 M00S00397.0vu +++| VPW3 LDN 1 SET ERROR STATUS 00542 M00S00398.0vu +++| VPW4 LJM VPWX RETURN
| Line S00399 Modification History | |
|---|---|
M01 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00543 M01S00399.ns2727 ---| VSC SPACE 4,15
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00544 M01S00002.ns2727 +++| VSC SPACE 4,20 00545 M00S00400.0vu +++|** VSC - VALIDATE SERVICE CLASS. 00546 M00S00401.0vu +++|* 00547 M00S00402.0vu +++|* ENTRY (OT) = ORIGIN TYPE. 00548 M01S00003.ns2727 +++|* (DLAT) = DESTINATION LID ATTRIBUTES. 00549 M00S00403.0vu +++|* (JCSC) = JOB COMMAND SERVICE CLASS, IF SPECIFIED.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2243 |
M02 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00550 M02S00007.ns2727 ---|* (UCNV) = USER COMMAND NOT VALID OR NO VALIDATION 00551 M02S00008.ns2727 ---|* REQUIRED FLAG FROM *0VJ*.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00552 M01S00004.ns2727 +++|* (UCNV) = *USER* COMMAND NOT VALID. 00553 M00S00404.0vu +++|* (VSCA) = ADDRESS OF USER ACCOUNT BLOCK WORD *ASCV*. 00554 M00S00405.0vu +++|* 00555 M00S00406.0vu +++|* EXIT IF VALID, SERVICE CLASS UPDATED IN *IOSS*. 00556 M00S00407.0vu +++|* (JCEC) = *SCIE* IF INVALID SERVICE CLASS. 00557 M00S00408.0vu +++|* (CN+1) = USER DEFAULT SERVICE CLASS FOR ORIGIN TYPE 00558 M00S00409.0vu +++|* OF INPUT FILE. 00559 M00S00410.0vu +++|* (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK. 00560 M00S00411.0vu +++|*
| Line S00412 Modification History | |
|---|---|
M01 (Removed by) | 0vu1 |
Seq # *Modification Id* Act ----------------------------+ 00561 M01S00412.0vu1 ---|* USES T1, T2, CN - CN+4.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0vu1 |
Seq # *Modification Id* Act ----------------------------+ 00562 M01S00001.0vu1 +++|* USES T1, T2, T3, CN - CN+4. 00563 M00S00413.0vu +++|* 00564 M00S00414.0vu +++|* CALLS VSP. 00565 M00S00415.0vu +++| 00566 M00S00416.0vu +++| 00567 M00S00417.0vu +++| VSC SUBR ENTRY/EXIT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
Seq # *Modification Id* Act ----------------------------+ 00568 M01S00004.ns2168 +++| LDM UCNV
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
M02 (Removed 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 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00570 M02S00009.ns2727 ---| NJN VSC1 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00418 Modification History | |
|---|---|
M01 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00571 M01S00418.ns2727 ---| LDD MA SET SERVICE CLASS VALIDATION MASK
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00419.0vu +++| CWM **,ON 00579 M00S00420.0vu +++| VSCA EQU *-1 (ADDRESS OF VALIDATION MASK) 00580 M00S00421.0vu +++| SBN 1 00581 M00S00422.0vu +++| CRD CN
| Line S00423 Modification History | |
|---|---|
M01 (Removed by) | ns2168 |
Seq # *Modification Id* Act ----------------------------+ 00582 M01S00423.ns2168 ---| LDM UCNV 00583 M01S00424.ns2168 ---| ZJN VSC1 IF USER COMMAND VALID 00584 M01S00425.ns2168 ---| LCN 0 ALLOW ALL SERVICE CLASSES
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00426.0vu +++| STD CN+2 00591 M00S00427.0vu +++| STD CN+3 00592 M00S00428.0vu +++| STD CN+4
| Line S00429 Modification History | |
|---|---|
M01 (Removed by) | ns2168 |
Seq # *Modification Id* Act ----------------------------+ 00593 M01S00429.ns2168 ---| UJN VSC2 BYPASS JOB COMMAND ERROR CHECK 00594 M01S00430.ns2168 ---| 00595 M01S00431.ns2168 ---| VSC1 LDM JCEF 00596 M01S00432.ns2168 ---| NJN VSCX IF PREVIOUS JOB COMMAND ERROR 00597 M00S00433.0vu ---| VSC2 LDM. IOSS+SCLQ*5 00598 M00S00434.0vu ---| SHN -6 00599 M00S00435.0vu ---| LMN SSSC 00600 M00S00436.0vu ---| ZJN VSCX IF SUBSYSTEM
| Line S00437 Modification History | |
|---|---|
M01 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00601 M01S00437.ns2727 ---| LDN SYSC PRESET SYSTEM SERVICE CLASS
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00602 M01S00011.ns2727 +++| LMN SSSC RESTORE SERVICE CLASS 00603 M00S00438.0vu +++| STD T2 00604 M00S00439.0vu +++| LDD OT 00605 M00S00440.0vu +++| LMK SYOT
| Line S00441 Modification History | |
|---|---|
M01 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00606 M01S00441.ns2727 ---| ZJP VSC5 IF SYSTEM ORIGIN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
M02 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00607 M02S00011.ns2727 ---| LDM UCNV
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2168 |
M02 (Removed by) | ns2243 |
M03 (Removed 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 (Removed by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 00609 M02S00010.ns2727 ---| NJP VSC5 IF NO VALIDATION REQUIRED/*USER* NOT VALID
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2727 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00442.0vu +++| LDN 0 INITIALIZE SERVICE CLASS INDEX 00618 M00S00443.0vu +++| STD CN+1 PRESET INVALID USER DEFAULT SERVICE CLASS 00619 M00S00444.0vu +++| STD T2 00620 M00S00445.0vu +++| LDM VSCA GET USER DEFAULT FOR ORIGIN TYPE OF JOB 00621 M00S00446.0vu +++| ADK ASC1*5-ASCV*5 00622 M00S00447.0vu +++| STD T1 SET ADDRESS OF USER DEFAULT 00623 M00S00448.0vu +++| LDD OT SET BYTE NUMBER WITH USER DEFAULT 00624 M00S00449.0vu +++| SHN -1+22 (DIVIDE BY TWO; PLACE BIT 0 IN SIGN BIT) 00625 M00S00450.0vu +++| STM VSCC 00626 M00S00451.0vu +++| PJN VSC3 IF UPPER SIX BITS ARE USER DEFAULT 00627 M00S00452.0vu +++| LDK PSNI 00628 M00S00453.0vu +++| STM VSCD 00629 M00S00454.0vu +++| VSC3 LDM 0,T1 00630 M00S00455.0vu +++| VSCC EQU *-1 (BYTE NUMBER OF USER DEFAULT) 00631 M00S00456.0vu +++| VSCD SHN -6 CHECK UPPER SIX BITS 00632 M00S00457.0vu +++|* PSN (USER DEFAULT IS IN LOWER SIX BITS) 00633 M00S00458.0vu +++| LPN 77 00634 M00S00459.0vu +++| STD T1 00635 M00S00460.0vu +++| VSC4 LDM TVSC,T2 GET SERVICE CLASS VALUE 00636 M00S00461.0vu +++| LMD T1 00637 M00S00462.0vu +++| ZJN VSC5 IF MATCH 00638 M00S00463.0vu +++| AOD T2 00639 M00S00464.0vu +++| LDN MXSC 00640 M00S00465.0vu +++| SBD T2 00641 M00S00466.0vu +++| PJN VSC4 IF NOT END OF TABLE 00642 M00S00467.0vu +++| LDM JCSC 00643 M00S00468.0vu +++| NJN VSC6 IF SERVICE CLASS SPECIFIED ON JOB COMMAND 00644 M00S00469.0vu +++| UJN VSC7 RETURN ERROR 00645 M00S00470.0vu +++| 00646 M00S00471.0vu +++| VSC5 LDD T2 RETURN USER DEFAULT SERVICE CLASS 00647 M00S00472.0vu +++| STD CN+1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 0vu1 |
Seq # *Modification Id* Act ----------------------------+ 00648 M01S00002.0vu1 +++| LDN 0 USE THE USER-S SERVICE CLASS VALIDATION 00649 M01S00003.0vu1 +++| STD T3 00650 M00S00473.0vu +++| LDM JCSC 00651 M00S00474.0vu +++| NJN VSC6 IF SERVICE CLASS SPECIFIED ON JOB COMMAND 00652 M00S00475.0vu +++| LDD T2 00653 M00S00476.0vu +++| VSC6 RJM VSP VALIDATE SERVICE CLASS 00654 M00S00477.0vu +++| ZJN VSC9 IF NO ERROR 00655 M00S00478.0vu +++| VSC7 AOM JCEF SET JOB COMMAND ERROR FLAG 00656 M00S00479.0vu +++| LDK SCIE SET INVALID SERVICE CLASS STATUS 00657 M00S00480.0vu +++| STM JCEC 00658 M00S00481.0vu +++| VSC8 UJP VSCX RETURN 00659 M00S00482.0vu +++| 00660 M00S00483.0vu +++| VSC9 LDM. IOSS+SCLQ*5 SET NEW SERVICE CLASS 00661 M00S00484.0vu +++| SHN 21-5 00662 M00S00485.0vu +++| SCN 77 00663 M00S00486.0vu +++| LMD T2 00664 M00S00487.0vu +++| SHN 6 00665 M00S00488.0vu +++| STM. IOSS+SCLQ*5 00666 M00S00489.0vu +++| UJN VSC8 RETURN 00667 M00S00490.0vu +++| TVSC SPACE 4,10 00668 M00S00491.0vu +++|** TVSC - TABLE OF VALID USER DEFAULT SERVICE CLASSES. 00669 M00S00492.0vu +++| 00670 M00S00493.0vu +++| 00671 M00S00494.0vu +++| TVSC INDEX
| Line S00495 Modification History | |
|---|---|
M01 (Removed by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00672 M01S00495.ns2217 ---| INDEX SYSC,1RS 00673 M01S00496.ns2217 ---| INDEX BCSC,1RB 00674 M01S00497.ns2217 ---| INDEX RBSC,1RR 00675 M01S00498.ns2217 ---| INDEX TSSC,1RT 00676 M01S00499.ns2217 ---| INDEX DISC,1RD 00677 M01S00500.ns2217 ---| INDEX NSSC,1RN 00678 M01S00501.ns2217 ---| INDEX MASC,1RM 00679 M01S00502.ns2217 ---| INDEX CTSC,1RC 00680 M01S00503.ns2217 ---| INDEX I0SC,1R0 00681 M01S00504.ns2217 ---| INDEX I1SC,1R1 00682 M01S00505.ns2217 ---| INDEX I2SC,1R2 00683 M01S00506.ns2217 ---| INDEX I3SC,1R3
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00684 M01S00031.ns2217 +++| LIST D 00685 M01S00032.ns2217 +++| .SCL HERE 00686 M01S00033.ns2217 +++| LIST * 00687 M00S00507.0vu +++| INDEX MXSC
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00508.0vu +++| SPACE 4,10 00760 M00S00509.0vu +++|* COMMON DECKS. 00761 M00S00510.0vu +++| 00762 M01S00037.ns2516a +++| TLI$ SET 1 00763 M01S00038.ns2516a +++|*CALL COMPCVI
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2601 |
Seq # *Modification Id* Act ----------------------------+ 00764 M01S00048.ns2601 +++|*CALL COMPVID
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00511.0vu +++| CUV$ EQU 1 CHECK FOR SERVICE CLASS VALID FOR USER 00769 M00S00512.0vu +++|*CALL COMPVSP 00770 M00S00513.0vu +++| SPACE 4,10 00771 M00S00514.0vu +++| HERE 00772 M00S00515.0vu +++| SPACE 4,10 00773 M00S00516.0vu +++| OVERFLOW 5,ZVUL 00774 M00S00517.0vu +++| 00775 M00S00518.0vu +++| END
cdc/nos2.source/opl.opl871/deck/0vu.txt · Last modified: by 127.0.0.1