cdc:nos2.source:opl.opl871:deck:1ma.001
Deck 1MA Part 001
17 Modifications
Listing Sections
- Deck 1MA Start
- Deck 1MA Part 1 (Line 2131)
- Deck 1MA Part 2 (Line 3871)
Source
Seq # *Modification Id* Act ----------------------------+ 02131 M01S02118.1ma +++| 02132 M01S02119.1ma +++|* EXTENDED MEMORY AVAILABLE BUT NOT ASSIGNED. 02133 M01S02120.1ma +++| 02134 M01S02121.1ma +++| RFE10 LDD CP SET WAITING MESSAGE 02135 M01S02122.1ma +++| ADN MS2W 02136 M01S02123.1ma +++| CWM =C*WAITING FOR STORAGE (EM). *,TR 02137 M01S02124.1ma +++| RFE11 LDN EFIR SET ECS FL INCREASE PENDING REASON CODE 02138 M01S02125.1ma +++| LJM RCL ENTER PP RECALL 02139 M01S02126.1ma +++| 02140 M01S02127.1ma +++|* INSURE JOB CAN BE INCREASED TO AT LEAST MINIMUM CM. 02141 M01S02128.1ma +++| 02142 M01S02129.1ma +++| RFE12 LDD CP GET CM CONTROL WORD 02143 M01S02130.1ma +++| ADN FLCW 02144 M01S02131.1ma +++| CRD CM 02145 M01S02132.1ma +++| LDD CM 02146 M01S02133.1ma +++| ADC -MCMX/100 02147 M01S02134.1ma +++| MJN RFE14 IF MFL .LT. MINIMUM FL WITH ECS 02148 M01S02135.1ma +++| 02149 M01S02136.1ma +++|* REQUEST MINIMUM CM FOR JOB. 02150 M01S02137.1ma +++| 02151 M01S02138.1ma +++| LDD FL SAVE CURRENT CM FL 02152 M01S02139.1ma +++| STD T4 02153 M01S02140.1ma +++| LDC MCMX/100 REQUEST MINIMUM CM FL 02154 M01S02141.1ma +++| RJM RSI 02155 M01S02142.1ma +++| ZJN RFE13 IF ASSIGNED 02156 M01S02143.1ma +++| LJM RFL20 WAIT FOR CM STORAGE 02157 M01S02144.1ma +++| 02158 M01S02145.1ma +++|* CLEAR CM FL INCREASE WHEN ASSIGNED. 02159 M01S02146.1ma +++| 02160 M01S02147.1ma +++| RFE13 RJM CLM CLEAR ADDITION MEMORY 02161 M01S02148.1ma +++| LJM RFE1 PROCESS EXTENDED MEMORY REQUEST 02162 M01S02149.1ma +++| 02163 M01S02150.1ma +++| RFE14 LDC =C* MFL LESS THAN EXTENDED MEMORY MINIMUM CM FL.* 02164 M01S02151.1ma +++| LJM ERR PROCESS ERROR 02165 M01S02152.1ma +++| SPACE 4,10 02166 M01S02153.1ma +++|** COMMON DECKS. 02167 M01S02154.1ma +++| 02168 M01S02155.1ma +++| 02169 M01S02156.1ma +++|*CALL COMPREI 02170 M01S02157.1ma +++| OVERFLOW E1MA 02171 M01S02158.1ma +++| TTL 1MA/2MZ - EJT SYSTEM REQUEST FUNCTION PROCESSORS. 02172 M01S02159.1ma +++| OVERLAY (EJT SYSTEM REQUEST PROCESSORS.),E1MA 02173 M01S02160.1ma +++| 2MC SPACE 4,10 02174 M01S02161.1ma +++|***** *2MC* - EJT SYSTEM REQUEST PROCESSORS. 02175 M01S02162.1ma +++| 02176 M01S02163.1ma +++| 02177 M01S02164.1ma +++| PRS SUBR ENTRY/EXIT 02178 M01S02165.1ma +++| UJN PRSX EXIT 02179 M01S02166.1ma +++| DTC SPACE 4,10 02180 M01S02167.1ma +++|** DTC - DETACH JOB FROM CALLER. 02181 M01S02168.1ma +++|*
| Line S02169 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02182 M02S02169.ns2658 ---|* CALLS CAA, GTN, RRF, SAM, SEA, STO, TAS, VSC, VUD, WCE, WDS. 02183 M01S00001.ns2658 +++|* CALLS CAA, GTN, PES, RRF, SAM, SEA, STO, TAS, VSC, VUD, WCE, 02184 M01S00002.ns2658 +++|* WDS. 02185 M01S02170.1ma +++|* 02186 M01S02171.1ma +++|* MACROS ENDMS, SETMS. 02187 M01S02172.1ma +++| 02188 M01S02173.1ma +++| 02189 M01S02174.1ma +++| DTC BSS 0 ENTRY 02190 M01S02175.1ma +++| LDD W1+4 SET TO CLEAR INTERLOCK 02191 M01S02176.1ma +++| STM PERB 02192 M01S02177.1ma +++| RJM CAA READ OTHER PARAMETER BLOCK WORDS 02193 M01S02178.1ma +++| ADN 3 02194 M01S02179.1ma +++| CRD W3 02195 M01S02180.1ma +++| ADN 1 02196 M01S02181.1ma +++| CRD W4 02197 M01S02182.1ma +++| RJM SEA SET ENTRY ADDRESS 02198 M01S02183.1ma +++| CRM EJEN,EL READ EJT ENTRY WORDS 02199 M01S02184.1ma +++| 02200 M01S02185.1ma +++|* CHECK JOB STATUS, CONNECTION STATUS AND SERVICE CLASS. 02201 M01S02186.1ma +++|* JOB STATUS MUST BE EITHER *DOJS* OR *IOJS* BECAUSE A 02202 M01S02187.1ma +++|* *FJEJ* MONITOR FUNCTION IS ALWAYS ISSUED BEFORE *DTEJ*. 02203 M01S02188.1ma +++| 02204 M01S02189.1ma +++| LDM EJEN+JSNE*5+4 02205 M01S02190.1ma +++| SHN -7 02206 M01S02191.1ma +++| LPN 17
| Line S02192 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02207 M02S02192.1ma22 ---| SBN OLCS
| Line S02193 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02208 M02S02193.1ma22 ---| ZJN DTC0 IF ONLINE CONNECTION STATUS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ma22 |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02209 M02S00001.ns2658 ---| SBN NICS 02210 M01S00003.ns2658 +++| SBK NICS 02211 M01S00002.1ma22 +++| NJN DTC0 IF SOME SORT OF CONNECTED STATUS 02212 M01S00003.1ma22 +++| ERRNZ MXCS-3 ERROR IN CONNECTION STATUS CHECK 02213 M01S02194.1ma +++| LDN JOER JOB NOT ONLINE 02214 M01S02195.1ma +++| LJM PERX ERROR EXIT 02215 M01S02196.1ma +++| 02216 M01S02197.1ma +++| DTC0 LDM EJEN+JSNE*5+4 CHECK CURRENT JOB STATUS 02217 M01S02198.1ma +++| LPN 76 02218 M01S02199.1ma +++| SBN IOJS*2 02219 M01S02200.1ma +++| ZJN DTC1 IF *IOJS* STATUS 02220 M01S02201.1ma +++| SBN DOJS*2-IOJS*2
| Line S02202 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02221 M02S02202.1ma22 ---| NJN DTC2 IF NEITHER *DOJS* NOR *IOJS* STATUS 02222 M01S00004.1ma22 +++| ZJN DTC1 IF *DOJS* STATUS 02223 M01S00005.1ma22 +++| SBN SUJS*2-DOJS*2 02224 M01S00006.1ma22 +++| NJN DTC2 IF NOT *SUJS* STATUS 02225 M01S02203.1ma +++| DTC1 STD SC PRESET NO SERVICE CLASS CHANGE 02226 M01S02204.1ma +++| 02227 M01S02205.1ma +++|* CHECK DETACH REASON CODE. 02228 M01S02206.1ma +++| 02229 M01S02207.1ma +++| LDD W2+1 02230 M01S02208.1ma +++| SHN -6 02231 M01S02209.1ma +++| ZJN DTC2 IF NO REASON CODE 02232 M01S02210.1ma +++| STD T1 02233 M01S02211.1ma +++| SBN TAMRL+1 02234 M01S02212.1ma +++| MJN DTC3 IF VALID REASON CODE 02235 M01S02213.1ma +++| DTC2 LDN JDER JOB CANNOT BE DETACHED 02236 M01S02214.1ma +++| LJM PERX ERROR EXIT 02237 M01S02215.1ma +++| 02238 M01S02216.1ma +++| DTC3 LDM TAMR-1,T1 MOVE REASON CODE 02239 M01S02217.1ma +++| STM SAMB+1 02240 M01S02218.1ma +++| 02241 M01S02219.1ma +++|* READ DISK AND VALIDATE USER DETACH. 02242 M01S02220.1ma +++| 02243 M01S02221.1ma +++| LDN 0 02244 M01S02222.1ma +++| RJM RRF READ ROLLOUT FILE 02245 M01S02223.1ma +++| RJM VSC VALIDATE SERVICE CLASS 02246 M01S02224.1ma +++| RJM VUD VALIDATE USER DETACH 02247 M01S02225.1ma +++| 02248 M01S02226.1ma +++|* MAKE JOB STATUS AND CONNECTION STATUS CHANGES. 02249 M01S02227.1ma +++|* JOB STATUS MUST BE OBTAINED FROM THE SYSTEM SECTOR COPY 02250 M01S02228.1ma +++|* OF THE EJT BECAUSE THE *FJEJ* FUNCTION REQUEST SETS 02251 M01S02229.1ma +++|* *DOJS* JOB STATUS IN THE EJT TO KEEP THE JOB ROLLED 02252 M01S02230.1ma +++|* OUT UNTIL IAF CAN ISSUE THE *DTEJ* FUNCTION. THE 02253 M01S02231.1ma +++|* SYSTEM SECTOR COPY CONTAINS THE JOB STATUS PRESENT 02254 M01S02232.1ma +++|* AT LAST ROLLOUT. 02255 M01S02233.1ma +++| 02256 M01S02234.1ma +++| LDM EJEN+SCLE*5 SAVE CURRENT SERVICE CLASS FOR RECOVERY 02257 M01S02235.1ma +++| SHN -6 02258 M01S02236.1ma +++| STD W3+2 02259 M01S02237.1ma +++| LDM EJSS+JSNE*5+4 GET JOB STATUS FROM SYSTEM SECTOR 02260 M01S02238.1ma +++| LPN 76 02261 M01S02239.1ma +++| SBN IOJS*2
| Line S02240 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02262 M02S02240.ns2635 ---| ZJN DTC4 IF TERMINAL I/O JOB STATE 02263 M01S00001.ns2635 +++| ZJN DTC3.2 IF TERMINAL I/O JOB STATE 02264 M01S02241.1ma +++| SBN DOJS*2-IOJS*2
| Line S02242 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02265 M02S02242.ns2635 ---| ZJN DTC4 IF DISABLED JOB STATE 02266 M01S00002.ns2635 +++| ZJN DTC3.2 IF DISABLED JOB STATE 02267 M01S00007.1ma22 +++| SBN SUJS*2-DOJS*2 02268 M01S00008.1ma22 +++| ZJN DTC4 IF SUSPENDED (IAF MISSING)
| Line S02243 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02269 M02S02243.ns2635 ---| SOM STOD DISABLE EJT TIMEOUT UPDATE 02270 M01S00003.ns2635 +++| DTC3.1 SOM STOD DISABLE EJT TIMEOUT UPDATE 02271 M01S02244.1ma +++| LJM DTC6 MAKE CHANGE 02272 M01S02245.1ma +++| 02273 M01S00004.ns2635 +++| DTC3.2 LDM CBUF+EOJW*5 CHECK JOB TERMINATION OPTION 02274 M01S00005.ns2635 +++| SHN 0-11 02275 M01S00006.ns2635 +++| LMN TJJT 02276 M01S00007.ns2635 +++| ZJN DTC3.1 IF TERMINATE JOB OPTION 02277 M01S02246.1ma +++| DTC4 LDD EJ SAVE JOB STATUS AND SCHEDULE FIELD 02278 M01S02247.1ma +++| SHN 14 02279 M01S02248.1ma +++| LMD EJ+1 02280 M01S02249.1ma +++| ADK JSNE 02281 M01S02250.1ma +++| CRM EJSS,ON 02282 M01S02251.1ma +++| ADK SCHE-JSNE-1 02283 M01S02252.1ma +++| CRM EJSS+SCHE*5,ON 02284 M01S02253.1ma +++| ADK SCLE-SCHE-1 02285 M01S02254.1ma +++| CRD CN 02286 M01S02255.1ma +++| LDD W3+2 02287 M01S02256.1ma +++| SBD SC 02288 M01S02257.1ma +++| NJN DTC4.1 IF CHANGE IN SERVICE CLASS 02289 M01S02258.1ma +++| STD SC INDICATE NO SERVICE CLASS CHANGE 02290 M01S02259.1ma +++| DTC4.1 LDD SC 02291 M01S02260.1ma +++| ZJN DTC5 IF NO SERVICE CLASS CHANGE 02292 M01S02261.1ma +++| STM DTCC+4 02293 M01S02262.1ma +++| SHN 6 02294 M01S02263.1ma +++| STD CN 02295 M01S02264.1ma +++| AOM DTCA INCREMENT REQUEST COUNT 02296 M01S02265.1ma +++| DTC5 LDK SUJS SUSPEND DIRECTLY 02297 M01S02266.1ma +++| STM DTCB+11B 02298 M01S02267.1ma +++| LDN 1 02299 M01S02268.1ma +++| RAM STOB SET TO LEAVE INTERLOCKED
| Line S02269 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02300 M02S02269.ns2635 ---| LDM CBUF+EOJW*5 READ END-OF-JOB STATUS WORD
| Line S02270 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02301 M02S02270.ns2635 ---| SHN 0-11
| Line S02271 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02302 M02S02271.ns2635 ---| LMN SUJT
| Line S02272 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02303 M02S02272.ns2635 ---| NJN DTC6 IF NOT SUSPEND OPTION 02304 M01S02273.1ma +++| LDN 1 02305 M01S02274.1ma +++| RAM STOA SET TO EXTEND TIMEOUT 02306 M01S02275.1ma +++| DTC6 LDD SC CHANGE SERVICE CLASS 02307 M01S02276.1ma +++| STM CSSS ADD CHANGE TO SYSTEM SECTOR 02308 M01S02277.1ma +++| 02309 M01S02278.1ma +++|* SET UP RECOVERY TABLE. 02310 M01S02279.1ma +++| 02311 M01S02280.1ma +++| LDD CP READ SUBSYSTEM IDENTIFICATION 02312 M01S02281.1ma +++| ADN JCIW 02313 M01S02282.1ma +++| CRD CM 02314 M01S02283.1ma +++| LDD CM+2 SET SSID FIELD 02315 M01S02284.1ma +++| STD W3 02316 M01S02285.1ma +++| 02317 M01S02286.1ma +++|* PUT RECOVERY TABLE INTO SYSTEM SECTOR. 02318 M01S02287.1ma +++| 02319 M01S02288.1ma +++| LDD MA TRANSFER RECOVERY WORDS 02320 M01S02289.1ma +++| CWD W3 02321 M01S02290.1ma +++| CRM R1SS,ON 02322 M01S02291.1ma +++| CWD W4 02323 M01S02292.1ma +++| CRM R2SS,ON 02324 M01S02293.1ma +++| CWM CBUF+SRUW*5,ON TRANSFER SRU-S 02325 M01S02294.1ma +++| SBN 1 02326 M01S02295.1ma +++| CRD W3 02327 M01S02296.1ma +++| LDM EJEN+SCHE*5 RESET DISK ADDRESS 02328 M01S02297.1ma +++| STD T5 02329 M01S02298.1ma +++| LDM EJEN+SCHE*5+1 02330 M01S02299.1ma +++| STD T6 02331 M01S02300.1ma +++| LDN 0 02332 M01S02301.1ma +++| STD T7 02333 M01S02302.1ma +++| STD FA 02334 M01S02303.1ma +++| SETMS IO,RW 02335 M01S02304.1ma +++| LDC BFMS SET BUFFER ADDRESS 02336 M01S02305.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02306 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02337 M02S02306.ns2658 ---| PJN DTC7 IF NO MASS STORAGE ERROR
| Line S02307 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02338 M02S02307.ns2658 ---| LDN ERER I/O ERROR ENCOUNTERED ON DEVICE
| Line S02308 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02339 M02S02308.ns2658 ---| UJN DTC8 RETURN
| Line S02309 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02340 M02S02309.ns2658 ---|
| Line S02310 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02341 M02S02310.ns2658 ---| DTC7 ENDMS 02342 M01S00004.ns2658 +++| RJM PES PROCESS ERROR STATUS 02343 M01S00005.ns2658 +++| ENDMS 02344 M01S02311.1ma +++| RJM GTN SET TERMINAL NAME IN PARAMETER BLOCK 02345 M01S02312.1ma +++| LDN W3 02346 M01S02313.1ma +++| RJM TAS TRANSFER ACCUMULATED SRU-S 02347 M01S02314.1ma +++| RJM STO SET TIMEOUT 02348 M01S02315.1ma +++| LDN 2 02349 M01S02316.1ma +++|* LDN 3 (IF SERVICE CLASS CHANGE) 02350 M01S02317.1ma +++| DTCA EQU *-1 REQUEST COUNT 02351 M01S02318.1ma +++| STD CM+1 02352 M01S02319.1ma +++| LDD MA PLACE REQUEST(S) IN MESSAGE BUFFER 02353 M01S02320.1ma +++| CWM DTCB,CM+1 PLACE REQUEST 02354 M01S02321.1ma +++| RJM WCE WRITE CHANGE TO EJT 02355 M01S02322.1ma +++| 02356 M01S02323.1ma +++|* SEND ACCOUNTING MESSAGES. 02357 M01S02324.1ma +++| 02358 M01S02325.1ma +++| LDC 2RAS SET UP MESSAGE 02359 M01S02326.1ma +++| STM SAMB 02360 M01S02327.1ma +++| AOM SAMJ 02361 M01S02328.1ma +++| RJM SAM SEND DETACH MESSAGE 02362 M01S02329.1ma +++| 02363 M01S02330.1ma +++|* RETURN JOB ACCESS LEVEL LIMIT OF DETACHED JOB. 02364 M01S02331.1ma +++| 02365 M01S02332.1ma +++| LDM EJEN+PRFE*5+2 GET JOB ACCESS LEVEL LIMIT 02366 M01S02333.1ma +++| LPN 7 02367 M01S02334.1ma +++| SHN 6 02368 M01S02335.1ma +++| RAD W2+0 02369 M01S02336.1ma +++| LDN 0
| Line S02337 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02370 M02S02337.ns2658 ---| DTC8 LJM PERX EXIT 02371 M01S00006.ns2658 +++| LJM PERX EXIT 02372 M01S02338.1ma +++| 02373 M01S02339.1ma +++| 02374 M01S02340.1ma +++| DTCB VFD 6/JSNE,6/4,6/7,42/DTCS 02375 M01S02341.1ma +++| VFD 6/JSNE,6/5,6/1,42/ROJS 02376 M01S02342.1ma +++| DTCC VFD 6/SCLE,6/6,6/54D,42/0 SERVICE CLASS CHANGE 02377 M01S02343.1ma +++| TAMR SPACE 4,10 02378 M01S02344.1ma +++|** TAMR - TABLE OF ACCOUNTING MESSAGE REASONS. 02379 M01S02345.1ma +++| 02380 M01S02346.1ma +++| 02381 M01S02347.1ma +++| TAMR BSS 0 02382 M01S02348.1ma +++| DATA 2LTH HANG UP PHONE 02383 M01S02349.1ma +++| DATA 2LTT TIMEOUT 02384 M01S02350.1ma +++| DATA 2LTR SUBSYSTEM ABORT 02385 M01S02351.1ma +++| DATA 2LTD USER DETACH 02386 M01S02352.1ma +++| DATA 2LTP PROGRAM INITIATED DETACH 02387 M01S02353.1ma +++| DATA 2LTU PROGRAM INITIATED DETACH AND LOGOUT 02388 M01S02354.1ma +++| 02389 M01S02355.1ma +++| TAMRL EQU *-TAMR 02390 M01S02356.1ma +++| GTN SPACE 4,15 02391 M01S02357.1ma +++|** GTN - GET TERMINAL NAME. 02392 M01S02358.1ma +++|* 02393 M01S02359.1ma +++|* EXIT TERMINAL NAME WRITTEN TO PARAMETER BLOCK. 02394 M01S02360.1ma +++|* 02395 M01S02361.1ma +++|* ERROR TO *PERX* IF ERROR ON READ. 02396 M01S02362.1ma +++|* 02397 M01S02363.1ma +++|* USES T5, T6, CM - CM+4. 02398 M01S02364.1ma +++|*
| Line S02365 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02399 M02S02365.ns2658 ---|* CALLS CAA, RSS. 02400 M01S00007.ns2658 +++|* CALLS CAA, PES, RSS. 02401 M01S02366.1ma +++|* 02402 M01S02367.1ma +++|* MACROS ENDMS, SETMS. 02403 M01S02368.1ma +++| 02404 M01S02369.1ma +++| 02405 M01S02370.1ma +++| GTN SUBR 02406 M01S02371.1ma +++| LDM IFSS INPUT FILE FST WORD 02407 M01S02372.1ma +++| STD T5 02408 M01S02373.1ma +++| LDM IFSS+1 02409 M01S02374.1ma +++| STD T6 02410 M01S02375.1ma +++| SETMS IO 02411 M01S02376.1ma +++| LDN 0 02412 M01S02377.1ma +++| RJM RSS READ SYSTEM SECTOR 02413 M01S00008.ns2658 +++| RJM PES PROCESS ERROR STATUS 02414 M01S02378.1ma +++| NJN GTN1 IF ERROR ENCOUNTERED 02415 M01S02379.1ma +++| ENDMS 02416 M01S02380.1ma +++| LDD MA PICK UP TERMINAL NAME 02417 M01S02381.1ma +++| CWM TNSS,ON 02418 M01S02382.1ma +++| SBN 1 02419 M01S02383.1ma +++| CRD CM 02420 M01S02384.1ma +++| LDN 0 02421 M01S02385.1ma +++| STD CM+4 02422 M01S02386.1ma +++| LDD CM+3 02423 M01S02387.1ma +++| SCN 77 02424 M01S02388.1ma +++| STD CM+3 02425 M01S02389.1ma +++| RJM CAA GET PARAMETER NAME BLOCK ADDRESS 02426 M01S02390.1ma +++| ADN 6 02427 M01S02391.1ma +++| CWD CM ADD TERMINAL TO PARAMETER BLOCK
| Line S02392 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02428 M02S02392.ns2658 ---| UJN GTNX RETURN 02429 M01S00009.ns2658 +++| UJP GTNX RETURN 02430 M01S02393.1ma +++| 02431 M01S02394.1ma +++| GTN1 LDN ERER ERROR ON READ ERROR CODE 02432 M01S02395.1ma +++| LJM PERX ERROR EXIT 02433 M01S02396.1ma +++| PTN SPACE 4,15 02434 M01S02397.1ma +++|** PTN - PUT TERMINAL NAME. 02435 M01S02398.1ma +++|* 02436 M01S02399.1ma +++|* EXIT TERMINAL NAME UPDATED IN SYSTEM SECTOR. 02437 M01S02400.1ma +++|* (SAMD) = TERMINAL NAME. 02438 M01S02401.1ma +++|* 02439 M01S02402.1ma +++|* ERROR TO *PERX* IF I/O ERROR ENCOUNTERED. 02440 M01S02403.1ma +++|* 02441 M01S02404.1ma +++|* USES T5, T6, T7, CM - CM+4. 02442 M01S02405.1ma +++|*
| Line S02406 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02443 M02S02406.ns2658 ---|* CALLS CAA, RDS, WDS. 02444 M01S00010.ns2658 +++|* CALLS CAA, PES, RDS, WDS. 02445 M01S02407.1ma +++|* 02446 M01S02408.1ma +++|* MACROS ENDMS, SETMS. 02447 M01S02409.1ma +++| 02448 M01S02410.1ma +++| 02449 M01S02411.1ma +++| PTN SUBR 02450 M01S02412.1ma +++| RJM CAA GET PARAMETER NAME BLOCK ADDRESS 02451 M01S02413.1ma +++| ADN 6 02452 M01S02414.1ma +++| CRM SAMD,ON GET TERMINAL FROM PARAMETER BLOCK 02453 M01S02415.1ma +++| LDM IFSS INPUT FILE FST WORD 02454 M01S02416.1ma +++| STD T5 02455 M01S02417.1ma +++| LDM IFSS+1 02456 M01S02418.1ma +++| STD T6 02457 M01S02419.1ma +++| LDN 0 02458 M01S02420.1ma +++| STD T7 02459 M01S02421.1ma +++| SETMS IO 02460 M01S02422.1ma +++| LDC SBUF 02461 M01S02423.1ma +++| RJM RDS READ INPUT FILE SYSTEM SECTOR
| Line S02424 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02462 M02S02424.ns2658 ---| PJN PTN2 IF NO READ ERROR ENCOUNTERED
| Line S02425 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02463 M02S02425.ns2658 ---| PTN1 LDN ERER I/O ERROR ENCOUNTERED
| Line S02426 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02464 M02S02426.ns2658 ---| LJM PERX ERROR EXIT 02465 M01S00011.ns2658 +++| RJM PES PROCESS ERROR STATUS 02466 M01S00012.ns2658 +++| ENDMS 02467 M01S02427.1ma +++| 02468 M01S02428.1ma +++|* UPDATE TERMINAL NAME IN SYSTEM SECTOR. 02469 M01S02429.1ma +++|
| Line S02430 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02470 M02S02430.ns2658 ---| PTN2 ENDMS 02471 M01S02431.1ma +++| LDD MA PICK UP TERMINAL NAME 02472 M01S02432.1ma +++| CWM SBUF+TNSS-BFMS,ON 02473 M01S02433.1ma +++| SBN 1 02474 M01S02434.1ma +++| CRD CM 02475 M01S02435.1ma +++| LDD CM+3 02476 M01S02436.1ma +++| LMM SAMD+3 02477 M01S02437.1ma +++| SCN 77 02478 M01S02438.1ma +++| LMD CM+3 02479 M01S02439.1ma +++| STM SAMD+3 02480 M01S02440.1ma +++| LDD CM+4 02481 M01S02441.1ma +++| STM SAMD+4 02482 M01S02442.1ma +++| LDD MA PUT TERMINAL NAME IN SYSTEM SECTOR 02483 M01S02443.1ma +++| CWM SAMD,ON 02484 M01S02444.1ma +++| SBN 1 02485 M01S02445.1ma +++| CRM SBUF+TNSS-BFMS,ON 02486 M01S02446.1ma +++| LDN 0 02487 M01S02447.1ma +++| STD T7 02488 M01S02448.1ma +++| SETMS IO,RW 02489 M01S02449.1ma +++| LDC SBUF 02490 M01S02450.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02451 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02491 M02S02451.ns2658 ---| MJP PTN1 IF WRITE ERROR ENCOUNTERED 02492 M01S00013.ns2658 +++| RJM PES PROCESS ERROR STATUS 02493 M01S02452.1ma +++| ENDMS 02494 M01S02453.1ma +++| LJM PTNX RETURN 02495 M01S02454.1ma +++| REC SPACE 4,10 02496 M01S02455.1ma +++|** REC - RECOVER DETACHED JOB. 02497 M01S02456.1ma +++|*
| Line S02457 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02498 M02S02457.ns2658 ---|* CALLS CAA, GRE, RRF, SES, SFI, TAS, WCE, WDS. 02499 M01S00014.ns2658 +++|* CALLS CAA, GRE, PES, RRF, SES, SFI, TAS, WCE, WDS. 02500 M01S02458.1ma +++|* 02501 M01S02459.1ma +++|* MACROS ENDMS, MONITOR, SETMS. 02502 M01S02460.1ma +++| 02503 M01S02461.1ma +++| 02504 M01S02462.1ma +++| REC BSS 0 ENTRY 02505 M01S02463.1ma +++| LDN 0 02506 M01S02464.1ma +++| STD W1+4 INITIALIZE EJT ORDINAL 02507 M01S02465.1ma +++| LDD W2+1 VALIDATE MESSAGE BUFFER ADDRESS 02508 M01S02466.1ma +++| LPN 77 02509 M01S02467.1ma +++| SHN 14 02510 M01S02468.1ma +++| ADD W2+2 02511 M01S02469.1ma +++| ZJN REC1 IF INCORRECT ADDRESS 02512 M01S02470.1ma +++| ADN EJPB 02513 M01S02471.1ma +++| SHN -6 02514 M01S02472.1ma +++| SBD FL 02515 M01S02473.1ma +++| MJN REC2 IF IN RANGE 02516 M01S02474.1ma +++| REC1 LDN MAER ADDRESS ERROR 02517 M01S02475.1ma +++| UJN REC4 ERROR EXIT 02518 M01S02476.1ma +++| 02519 M01S02477.1ma +++| REC2 LDD W0 TRANSFER JSN TO REQUEST 02520 M01S02478.1ma +++| ZJN REC3 IF NO JSN 02521 M01S02479.1ma +++| STM GREC+3 02522 M01S02480.1ma +++| LDD W0+1 02523 M01S02481.1ma +++| ZJN REC3 IF NO JSN 02524 M01S02482.1ma +++| STM GREC+4 02525 M01S02483.1ma +++| RJM SES SET UP EJT SEARCH 02526 M01S02484.1ma +++| RJM GRE GET REQUIRED EJT ENTRY 02527 M01S02485.1ma +++| ZJN REC5 IF DETACHED 02528 M01S02486.1ma +++| LDN NTER&JFER JOB NOT DETACHED ERROR CODE 02529 M01S02487.1ma +++| REC3 LMN JFER JOB NOT FOUND ERROR CODE 02530 M01S02488.1ma +++| REC4 LJM PERX ERROR EXIT 02531 M01S02489.1ma +++| 02532 M01S02490.1ma +++| REC5 LDD EJ READ EJT ENTRY 02533 M01S02491.1ma +++| SHN 14 02534 M01S02492.1ma +++| ADD EJ+1 02535 M01S02493.1ma +++| CRM EJEN,EL 02536 M01S02494.1ma +++| LDM EJEN+JSNE*5+4 02537 M01S02495.1ma +++| LPN 76 02538 M01S02496.1ma +++| STD JS
| Line S02497 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02539 M02S02497.271l716 ---| SBN EXJS*2
| Line S02498 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02540 M02S02498.271l716 ---| NJN REC6 IF NOT EXECUTING JOB STATUS 02541 M01S00001.271l716 +++| SHN -1 02542 M01S00002.271l716 +++| LMK EXJS 02543 M01S00003.271l716 +++| ZJN REC5.1 IF JOB IN CM 02544 M01S00004.271l716 +++| LMK PCJS&EXJS 02545 M01S00005.271l716 +++| NJN REC6 IF JOB NOT IN CM 02546 M01S00006.271l716 +++| LCN 2 02547 M01S00007.271l716 +++| RAM RECF 02548 M01S02499.1ma +++| 02549 M01S02500.1ma +++|* ROLL OUT AND SUSPEND JOB. 02550 M01S02501.1ma +++|
| Line S02502 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02551 M02S02502.271l716 ---| LDN CEIN CLEAR INTERLOCK 02552 M01S00008.271l716 +++| REC5.1 LDK CEIN CLEAR INTERLOCK 02553 M01S02503.1ma +++| STD T1 02554 M01S02504.1ma +++| LDD EJ 02555 M01S02505.1ma +++| SHN 14 02556 M01S02506.1ma +++| LMD EJ+1 02557 M01S02507.1ma +++| RJM SFI CLEAR INTERLOCK 02558 M01S02508.1ma +++| LDM EJEN+SCHE*5+3 SET CONTROL POINT NUMBER 02559 M01S00009.271l716 +++|* LDM EJEN+SCHE*5+1 (JOB ASSIGNED TO PCP) 02560 M01S00010.271l716 +++| RECF EQU *-1 02561 M01S02509.1ma +++| STD CM+2 02562 M01S02510.1ma +++| LDC ROSU+4000 02563 M01S02511.1ma +++| STD CM+1 02564 M01S02512.1ma +++| MONITOR ROCM 02565 M01S02513.1ma +++| LDN RTER SET RETRY
| Line S02514 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02566 M02S02514.271l716 ---| UJN REC4 EXIT 02567 M01S00011.271l716 +++| UJP REC4 EXIT 02568 M01S02515.1ma +++| 02569 M01S02516.1ma +++|* SUSPEND JOB IF NOT ALEADY SUSPENDED. 02570 M01S02517.1ma +++| 02571 M01S02518.1ma +++| REC6 LDD W1+4 02572 M01S02519.1ma +++| STM PERB SET TO CLEAR WHEN COMPLETE 02573 M01S02520.1ma +++| LDN 1 02574 M01S02521.1ma +++| STD CM+1 02575 M01S02522.1ma +++| LDD JS 02576 M01S02523.1ma +++| SBN SUJS*2 02577 M01S02524.1ma +++| ZJN REC7 IF SUSPENDED 02578 M01S02525.1ma +++| LDC RTCL 02579 M01S02526.1ma +++| CRM RECC+3,ON 02580 M01S02527.1ma +++| LDC 600D SET TIMEOUT FOR TEN MINUTES 02581 M01S02528.1ma +++| RAM RECC+4 02582 M01S02529.1ma +++| SHN -14 02583 M01S02530.1ma +++| RAM RECC+3 02584 M01S02531.1ma +++| 02585 M01S02532.1ma +++|* GATHER INFORMATION FOR RETURN PARAMETER BLOCK. 02586 M01S02533.1ma +++| 02587 M01S02534.1ma +++| REC7 RJM CAA READ TERMINAL NUMBER 02588 M01S02535.1ma +++| ADN 5 02589 M01S02536.1ma +++| CRD W5 02590 M01S02537.1ma +++| LDN 0 SET TO READ SYSTEM SECTOR 02591 M01S02538.1ma +++| RJM RRF READ ROLLOUT FILE 02592 M01S02539.1ma +++| LDM CSSS 02593 M01S02540.1ma +++| ZJN REC7.0 IF PREVIOUS SERVICE CLASS CHANGE COMPLETE 02594 M01S02541.1ma +++| LDN 0 02595 M01S02542.1ma +++| STD SC CLEAR SERVICE CLASS 02596 M01S02543.1ma +++| LDM R1SS+2 GET PRE-DETACH SERVICE CLASS 02597 M01S02544.1ma +++| LPN 77 02598 M01S02545.1ma +++| STM DTCC+4 SET SERVICE CLASS IN REQUEST 02599 M01S02546.1ma +++| AOM RECE 02600 M01S02547.1ma +++| UJN REC7.1 CONTINUE WITH RECOVERY PROCESSING 02601 M01S02548.1ma +++| 02602 M01S02549.1ma +++| REC7.0 LDM R1SS+2 GET PRE-DETACH SERVICE CLASS 02603 M01S02550.1ma +++| LPN 77 02604 M01S02551.1ma +++| STD SC 02605 M01S02552.1ma +++| LDM EJEN+SCLE*5 GET CURRENT SERVICE CLASS 02606 M01S02553.1ma +++| SHN -6 02607 M01S02554.1ma +++| SBD SC 02608 M01S02555.1ma +++| NJN REC7.1 IF SERVICE CLASS TO BE CHANGED 02609 M01S02556.1ma +++| STD SC INDICATE NO SERVICE CLASS CHANGE 02610 M01S02557.1ma +++| REC7.1 LDD SC 02611 M01S02558.1ma +++| STM CSSS 02612 M01S02559.1ma +++| LDD TN 02613 M01S02560.1ma +++| STM CBUF+TTNW*5+1 02614 M01S02561.1ma +++| LDN 0 02615 M01S02562.1ma +++| STD T7 02616 M01S02563.1ma +++| SETMS IO,RW 02617 M01S02564.1ma +++| LDC BFMS 02618 M01S02565.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02566 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02619 M02S02566.ns2658 ---| MJN REC8 IF MASS STORAGE ERROR ENCOUNTERED 02620 M01S00015.ns2658 +++| RJM PES PROCESS ERROR STATUS 02621 M01S02567.1ma +++| LDN CPAI 02622 M01S02568.1ma +++| STD T7 02623 M01S02569.1ma +++| LDC SBUF 02624 M01S02570.1ma +++| RJM WDS REWRITE CPA SECTOR
| Line S02571 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02625 M02S02571.ns2658 ---| PJN REC8.1 IF NO ERRORS ENCOUNTERED
| Line S02572 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02626 M02S02572.ns2658 ---| REC8 LDN ERER MASS STORAGE ERROR ENCOUNTERED
| Line S02573 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02627 M02S02573.ns2658 ---| LJM PERX EXIT WITH ERROR 02628 M01S00016.ns2658 +++| RJM PES PROCESS ERROR STATUS 02629 M01S00017.ns2658 +++| ENDMS 02630 M01S02574.1ma +++| 02631 M01S02575.1ma +++|* PROCESS RECOVERY. 02632 M01S02576.1ma +++|
| Line S02577 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02633 M02S02577.ns2658 ---| REC8.1 ENDMS 02634 M01S02578.1ma +++| LDN 3 02635 M01S02579.1ma +++| STD CM+1 02636 M01S02580.1ma +++| LDD MA 02637 M01S02581.1ma +++| CWM RECA,CM+1 02638 M01S02582.1ma +++| RJM WCE WRITE CHANGES TO EJT 02639 M01S02583.1ma +++| RECE LDN 0 02640 M01S02584.1ma +++| ZJN REC8.2 IF NO EJT SERVICE CLASS UPDATE REQUIRED 02641 M01S02585.1ma +++| STD CM+1 NUMBER OF EJT CHANGES TO MAKE (FOR *WCE*) 02642 M01S02586.1ma +++| LDD MA 02643 M01S02587.1ma +++| CWM DTCC,CM+1 PLACE REQUEST 02644 M01S02588.1ma +++| RJM WCE WRITE CHANGE TO EJT 02645 M01S02589.1ma +++| REC8.2 LDM CBUF+TFSW*5+1 02646 M01S02590.1ma +++| NJN REC9 IF PRIMARY FILE EXISTS 02647 M01S02591.1ma +++| LDK ZERL 02648 M01S02592.1ma +++| UJN REC10 ZERO PRIMARY FILE NAME 02649 M01S02593.1ma +++| 02650 M01S02594.1ma +++| REC9 LDD MA TRANSFER PRIMARY FILE FNT 02651 M01S02595.1ma +++| CWM PFSS,ON 02652 M01S02596.1ma +++| SBN 1 02653 M01S02597.1ma +++| REC10 CRD W0 02654 M01S02598.1ma +++| LDN RCEJ*2 RESTORE FCN FIELD 02655 M01S02599.1ma +++| STD W0+4 02656 M01S02600.1ma +++| LDD W0+3 SAVE MODES FIELD 02657 M01S02601.1ma +++| LPN 77 02658 M01S02602.1ma +++| SHN 6 02659 M01S02603.1ma +++| STD W2+4 02660 M01S02604.1ma +++| SHN -6 02661 M01S02605.1ma +++| LMD W0+3 02662 M01S02606.1ma +++| STD W0+3 02663 M01S02607.1ma +++| RJM CAA WRITE RECOVERY WORDS TO RETURN BLOCK 02664 M01S02608.1ma +++| ADN 3 02665 M01S02609.1ma +++| CWM R1SS,ON TRANSFER RECOVERY TABLE 02666 M01S02610.1ma +++| CWM R2SS,ON 02667 M01S02611.1ma +++| LDM EJSS+4 02668 M01S02612.1ma +++| LPN 76 02669 M01S02613.1ma +++| SHN -1 02670 M01S02614.1ma +++| SBN IOJS 02671 M01S02615.1ma +++| ZJN REC11 IF INPUT OR OUTPUT 02672 M01S02616.1ma +++| SBN DOJS-IOJS 02673 M01S02617.1ma +++| ZJN REC11 IF NOT ACTIVE JOB 02674 M01S02618.1ma +++| LDN 1S5 SET ACTIVE JOB FLAG 02675 M01S02619.1ma +++| RAD W2+4 02676 M01S02620.1ma +++| REC11 LDC CBUF+MS1W*5-1 02677 M01S02621.1ma +++| STD T1 02678 M01S02622.1ma +++| REC12 AOD T1 02679 M01S02623.1ma +++| STM RECD 02680 M01S02624.1ma +++| LDI T1 02681 M01S02625.1ma +++| NJN REC12 IF NOT END OF LINE 02682 M01S02626.1ma +++| LDN ZERL ADD ZERO WORD FOR CM EOL 02683 M01S02627.1ma +++| CRM *,ON 02684 M01S02628.1ma +++| RECD EQU *-1 02685 M01S02629.1ma +++| LDN 5 02686 M01S02630.1ma +++| STD T1 02687 M01S02631.1ma +++| LDD W2+1 02688 M01S02632.1ma +++| LPN 77 02689 M01S02633.1ma +++| SHN 6 02690 M01S02634.1ma +++| ADD RA 02691 M01S02635.1ma +++| SHN 6 02692 M01S02636.1ma +++| ADD W2+2 02693 M01S02637.1ma +++| CWM CBUF+MS1W*5,T1 02694 M01S02638.1ma +++| LDC CBUF+SRUW*5 02695 M01S02639.1ma +++| RJM TAS TRANSFER ACCUMULATED SRU-S 02696 M01S02640.1ma +++| LDM CBUF+ACTW*5 02697 M01S02641.1ma +++| SHN -7 02698 M01S02642.1ma +++| STD JS 02699 M01S02643.1ma +++| LPN 10 TIME LIMIT 02700 M01S02644.1ma +++| RAD W2+4 02701 M01S02645.1ma +++| LDD JS SRU LIMIT 02702 M01S02646.1ma +++| LPN 2 02703 M01S02647.1ma +++| SHN 3 02704 M01S02648.1ma +++| RAD W2+4 02705 M01S02649.1ma +++| LDM CBUF+TXSW*5 02706 M01S02650.1ma +++| SHN -6 TIME SHARING SUBSYSTEM 02707 M01S02651.1ma +++| LPN 7 02708 M01S02652.1ma +++| RAD W2+4 02709 M01S02653.1ma +++| LDN 0 02710 M01S02654.1ma +++| LJM PERX NORMAL EXIT 02711 M01S02655.1ma +++| 02712 M01S02656.1ma +++| 02713 M01S02657.1ma +++| RECA VFD 6/JSNE,6/4,6/7,42/OLCS 02714 M01S02658.1ma +++| RECB VFD 6/JSNE,6/5,6/1,42/SUJS 02715 M01S02659.1ma +++| RECC VFD 6/SCHE,6/24D,6/0,42/0 02716 M01S02660.1ma +++| VFD 36/0 SCRATCH FOR RTCL 02717 M01S02661.1ma +++| RRJ SPACE 4,10 02718 M01S02662.1ma +++|** RRJ - RESTART RECOVERED JOB. 02719 M01S02663.1ma +++|* 02720 M01S02664.1ma +++|* EXIT (A) = ERROR CODE, IF ANY. 02721 M01S02665.1ma +++|* TO *PERX*. 02722 M01S02666.1ma +++|* 02723 M01S02667.1ma +++|* CALLS CET, PTN, RJC, RRF, SAM, SEA, WCE. 02724 M01S02668.1ma +++|* 02725 M01S02669.1ma +++|* MACROS ENDMS, SETMS. 02726 M01S02670.1ma +++| 02727 M01S02671.1ma +++| 02728 M01S02672.1ma +++| RRJ BSS 0 ENTRY 02729 M01S02673.1ma +++| LDD W1+4 SET TO CLEAR INTERLOCK WHEN COMPLETE 02730 M01S02674.1ma +++| STM PERB 02731 M01S02675.1ma +++| RJM SEA SET ENTRY ADDRESS 02732 M01S02676.1ma +++| CRD CM 02733 M01S02677.1ma +++| ADN SCHE 02734 M01S02678.1ma +++| CRD T5 02735 M01S02679.1ma +++| LDD EJ READ EJT ENTRY 02736 M01S02680.1ma +++| SHN 14 02737 M01S02681.1ma +++| LMD EJ+1 02738 M01S02682.1ma +++| CRM EJEN,EL READ EJT ENTRY WORDS 02739 M01S02683.1ma +++| LDD CM+4 02740 M01S02684.1ma +++| LPC 3676 02741 M01S02685.1ma +++| LMC OLCS*200+SUJS*2 02742 M01S02686.1ma +++| ZJN RRJ2 IF ONLINE AND SUSPENDED 02743 M01S02687.1ma +++| LDN NRER NOT RECOVERABLE ERROR CODE 02744 M01S02688.1ma +++| RRJ1.1 LJM PERX EXIT 02745 M01S02689.1ma +++| 02746 M01S02690.1ma +++|* RESTORE JOB STATUS AND SCHEDULE FIELD. 02747 M01S02691.1ma +++| 02748 M01S02692.1ma +++| RRJ2 LDN 0 02749 M01S02693.1ma +++| RJM RRF READ ROLLOUT FILE 02750 M01S02694.1ma +++| ENDMS 02751 M01S02695.1ma +++| RJM PTN PUT TERMINAL NAME IN SYSTEM SECTOR 02752 M01S02696.1ma +++| RJM SAM ISSUE RECOVERY ACCOUNTING MESSAGE 02753 M01S02697.1ma +++| LDM EJSS+JSNE*5+4 02754 M01S02698.1ma +++| LPN 76 JOB STATUS FIELD 02755 M01S02699.1ma +++| ADN 1 LEAVE INTERLOCK SET 02756 M01S02700.1ma +++| STM EJSS+JSNE*5+4 02757 M01S02701.1ma +++| SBN IOJS*2+1 02758 M01S02702.1ma +++| ZJN RRJ3 IF *IOJS* 02759 M01S02703.1ma +++| SBN DOJS*2+1-IOJS*2-1 02760 M01S02704.1ma +++| ZJN RRJ3 IF DISABLED 02761 M01S02705.1ma +++| LDN ROJS*2+1 02762 M01S02706.1ma +++| STM EJSS+JSNE*5+4 02763 M01S02707.1ma +++| LDM R1SS+2 GET INITIAL PRIORITY FOR SERVICE CLASS 02764 M01S02708.1ma +++| LPN 77 02765 M01S02709.1ma +++| STD T2 02766 M01S02710.1ma +++| RJM RJC 02767 M01S02711.1ma +++| ADN EXQT 02768 M01S02712.1ma +++| CRD CM 02769 M01S02713.1ma +++| LDD CM+4 SET INITIAL PRIORITY 02770 M01S02714.1ma +++| STD T1 02771 M01S02715.1ma +++| LDD T2 02772 M01S02716.1ma +++| SHN 14 02773 M01S02717.1ma +++| LMN EXQT 02774 M01S02718.1ma +++| RJM CET 02775 M01S02719.1ma +++| LDD T1 SET ENTRY TIME 02776 M01S02720.1ma +++| STM EJSS+SCHE*5+3 02777 M01S02721.1ma +++| LDD T2 02778 M01S02722.1ma +++| STM EJSS+SCHE*5+4 02779 M01S02723.1ma +++| RRJ3 LDM RRJA SET UP REQUEST 02780 M01S02724.1ma +++| STM EJSS+JSNE*5 02781 M01S02725.1ma +++| LDM RRJA+1 02782 M01S02726.1ma +++| STM EJSS+JSNE*5+1 02783 M01S02727.1ma +++| LDM RRJB 02784 M01S02728.1ma +++| STM EJSS+SCHE*5 02785 M01S02729.1ma +++| LDM RRJB+1 02786 M01S02730.1ma +++| STM EJSS+SCHE*5+1 02787 M01S02731.1ma +++| LDM R1SS+2 SET SERVICE CLASS 02788 M01S02732.1ma +++| LPN 77 02789 M01S02733.1ma +++| STM RRJC+4 02790 M01S02734.1ma +++| LDN 2 02791 M01S02735.1ma +++| STD CM+1 02792 M01S02736.1ma +++| ERRNZ SCHE-JSNE-1 CODE DEPENDS ON CONSECUTIVE WORDS 02793 M01S02737.1ma +++| LDD MA 02794 M01S02738.1ma +++| CWM EJSS+JSNE*5,CM+1 02795 M01S02739.1ma +++| CWM RRJC,ON 02796 M01S02740.1ma +++| AOD CM+1 02797 M01S02741.1ma +++| RJM WCE WRITE CHANGES TO EJT 02798 M01S02742.1ma +++| LJM PERX EXIT 02799 M01S02743.1ma +++| 02800 M01S02744.1ma +++| 02801 M01S02745.1ma +++| RRJA VFD 6/JSNE,6/6,6/0,6/0 02802 M01S02746.1ma +++| RRJB VFD 6/SCHE,6/30D,6/0,6/0 02803 M01S02747.1ma +++| RRJC VFD 6/SCLE,6/6,6/54D,6/0,36/0 02804 M01S02748.1ma +++| RST SPACE 4,10 02805 M01S02749.1ma +++|** RST - RESET TIMEOUT. 02806 M01S02750.1ma +++|* 02807 M01S02751.1ma +++|* USES CM - CM+4, CN - CN+4. 02808 M01S02752.1ma +++|* 02809 M01S02753.1ma +++|* CALLS GRE, SEA, SES, STO. 02810 M01S02754.1ma +++| 02811 M01S02755.1ma +++| 02812 M01S02756.1ma +++| RST BSS 0 ENTRY 02813 M01S02757.1ma +++| LDD W0+2 CHECK TIMEOUT DELAY FLAG 02814 M01S02758.1ma +++| LPN 2 02815 M01S02759.1ma +++| RAM STOA 02816 M01S02760.1ma +++| LDD W0+2 CHECK FLAGS FIELD 02817 M01S02761.1ma +++| SHN 21-0 02818 M01S02762.1ma +++| MJN RST2 IF SELECT BY ORIGIN TYPE 02819 M01S02763.1ma +++| LDD W1+4 02820 M01S02764.1ma +++| ZJN RST1 IF NO EJTO 02821 M01S02765.1ma +++| STM PERB SET TO CLEAR INTERLOCK WHEN COMPLETE 02822 M01S02766.1ma +++| LJM RST8 RESET ONE TIMEOUT 02823 M01S02767.1ma +++| 02824 M01S02768.1ma +++| RST1 LDN IEER INCORRECT EJT ORDINAL 02825 M01S02769.1ma +++| UJN RST6 ERROR EXIT 02826 M01S02770.1ma +++| 02827 M01S02771.1ma +++| RST2 LDD W2 VALIDATE ORIGIN TYPE 02828 M01S02772.1ma +++| LPN 77 02829 M01S02773.1ma +++| STM GRED+4 02830 M01S02774.1ma +++| SBN MXOT 02831 M01S02775.1ma +++| MJN RST3 IF VALID ORIGIN TYPE 02832 M01S02776.1ma +++| LDN IOER INCORRECT ORIGIN TYPE 02833 M01S02777.1ma +++| UJN RST6 EXIT 02834 M01S02778.1ma +++| 02835 M01S02779.1ma +++| RST3 RJM SES SET UP EJT SEARCH 02836 M01S02780.1ma +++| LDC GRED SET REQUEST ADDRESS 02837 M01S02781.1ma +++| STM GREB 02838 M01S02782.1ma +++| LDN PSNI 02839 M01S02783.1ma +++| STM GREA 02840 M01S02784.1ma +++| STM GREA+1 02841 M01S02785.1ma +++| RST4 RJM GRE GET EJT ENTRY BY ORIGIN TYPE 02842 M01S02786.1ma +++| ZJN RST7 IF ENTRY FOUND 02843 M01S02787.1ma +++| RST5 LDN 0 SET COMPLETE 02844 M01S02788.1ma +++| STM PERB SET INTERLOCK ALREADY CLEAR 02845 M01S02789.1ma +++| RST6 LJM PERX EXIT 02846 M01S02790.1ma +++| 02847 M01S02791.1ma +++| RST7 RJM STO SET TIMEOUT 02848 M01S02792.1ma +++| UJN RST4 LOOP FOR NEXT ENTRY 02849 M01S02793.1ma +++| 02850 M01S02794.1ma +++|* PROCESS SINGLE ENTRY RESET. 02851 M01S02795.1ma +++| 02852 M01S02796.1ma +++| RST8 RJM SEA SET ENTRY ADDRESS 02853 M01S02797.1ma +++| CRD CM READ EJT ENTRY 02854 M01S02798.1ma +++| ADN SCLE 02855 M01S02799.1ma +++| CRD CN 02856 M01S02800.1ma +++| LDD CM+4 02857 M01S02801.1ma +++| LPN 77 02858 M01S02802.1ma +++| SBN SUJS*2+1 02859 M01S02803.1ma +++| ZJN RST9 IF SUSPENDED AND INTERLOCKED 02860 M01S02804.1ma +++| LDN NSER NOT SUSPENDED ERROR CODE 02861 M01S02805.1ma +++| UJN RST6 ERROR EXIT 02862 M01S02806.1ma +++| 02863 M01S02807.1ma +++| RST9 RJM STO SET TIMEOUT 02864 M01S02808.1ma +++| UJN RST5 SET NORMAL EXIT 02865 M01S02809.1ma +++| TRM SPACE 4,10 02866 M01S02810.1ma +++|** TRM - TERMINATE JOB. 02867 M01S02811.1ma +++|* 02868 M01S02812.1ma +++|* EXIT TO *PERX*. 02869 M01S02813.1ma +++|* 02870 M01S02814.1ma +++|* USES CM - CM+4, CN - CN+4, T0 - T7. 02871 M01S02815.1ma +++|*
| Line S02816 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02872 M02S02816.ns2658 ---|* CALLS CAA, GTN, RRF, SEA, TAS, WCE, WDS. 02873 M01S00018.ns2658 +++|* CALLS CAA, GTN, PES, RRF, SEA, TAS, WCE, WDS. 02874 M01S02817.1ma +++|* 02875 M01S02818.1ma +++|* MACROS ENDMS, SETMS. 02876 M01S02819.1ma +++| 02877 M01S02820.1ma +++| 02878 M01S02821.1ma +++| TRM BSS 0 ENTRY 02879 M01S02822.1ma +++| LDD W1+4 SET EJTO TO CLEAR INTERLOCK 02880 M01S02823.1ma +++| STM PERB 02881 M01S02824.1ma +++| RJM SEA SET ENTRY ADDRESS 02882 M01S02825.1ma +++| CRM EJEN,EL READ EJT ENTRY WORDS 02883 M01S02826.1ma +++| SBD EL 02884 M01S02827.1ma +++| ADK JSNE 02885 M01S02828.1ma +++| CRD T0 02886 M01S02829.1ma +++| ADN SCHE-JSNE 02887 M01S02830.1ma +++| CRD T5 02888 M01S02831.1ma +++| ADN SCLE-SCHE 02889 M01S02832.1ma +++| CRD CN 02890 M01S02833.1ma +++| LDD T0+4 02891 M01S02834.1ma +++| LPN 76 02892 M01S02835.1ma +++| LMN IOJS*2 02893 M01S02836.1ma +++| ZJN TRM1 IF *IOJS* JOB STATUS 02894 M01S02837.1ma +++| LMN DOJS*2&IOJS*2 02895 M01S02838.1ma +++| ZJN TRM1 IF *DOJS* JOB STATUS 02896 M01S02839.1ma +++| LDN NDER SET JOB NOT DISABLED ERROR 02897 M01S02840.1ma +++| LJM PERX EXIT 02898 M01S02841.1ma +++| 02899 M01S02842.1ma +++| TRM1 LDD CN SET SCHEDULING PRIORITY 02900 M01S02843.1ma +++| SHN -6 02901 M01S02844.1ma +++| STD T2 02902 M01S02845.1ma +++| RJM RJC 02903 M01S02846.1ma +++| ADN EXQT 02904 M01S02847.1ma +++| CRD CM 02905 M01S02848.1ma +++| LDD CM+2 SET UPPER PRIORITY 02906 M01S02849.1ma +++| STD T1 02907 M01S02850.1ma +++| LDD T2 02908 M01S02851.1ma +++| SHN 14 02909 M01S02852.1ma +++| LMN EXQT 02910 M01S02853.1ma +++| RJM CET 02911 M01S02854.1ma +++| LDD T1 SET ENTRY TIME 02912 M01S02855.1ma +++| STM TRMB+3 02913 M01S02856.1ma +++| LDD T2 02914 M01S02857.1ma +++| STM TRMB+4 02915 M01S02858.1ma +++| LDN 0 SET TO READ CPA AND SYSTEM SECTOR 02916 M01S02859.1ma +++| RJM RRF READ ROLLOUT FILE 02917 M01S02860.1ma +++| ENDMS 02918 M01S02861.1ma +++| RJM CAA READ RECOVERY WORDS 02919 M01S02862.1ma +++| ADN 3 02920 M01S02863.1ma +++| CRM R1SS,ON 02921 M01S02864.1ma +++| CRM R2SS,ON 02922 M01S02865.1ma +++| LDD CP SET SUBSYSTEM IDENTIFIER 02923 M01S02866.1ma +++| ADN JCIW 02924 M01S02867.1ma +++| CRD CM 02925 M01S02868.1ma +++| LDD CM+2 02926 M01S02869.1ma +++| STM R1SS 02927 M01S02870.1ma +++| LDN 0 02928 M01S02871.1ma +++| STD T7 02929 M01S02872.1ma +++| SETMS IO,RW 02930 M01S02873.1ma +++| LDC BFMS SET BUFFER ADDRESS 02931 M01S02874.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02875 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02932 M02S02875.ns2658 ---| PJN TRM2 IF NO ERRORS ENCOUNTERED
| Line S02876 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02933 M02S02876.ns2658 ---| LDN ERER ERROR ENCOUNTERED ON DEVICE
| Line S02877 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02934 M02S02877.ns2658 ---| UJN TRM3 EXIT WITH ERROR
| Line S02878 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02935 M02S02878.ns2658 ---|
| Line S02879 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02936 M02S02879.ns2658 ---| TRM2 ENDMS 02937 M01S00019.ns2658 +++| RJM PES PROCESS ERROR STATUS 02938 M01S00020.ns2658 +++| ENDMS 02939 M01S02880.1ma +++| RJM GTN SET TERMINAL NAME IN PARAMETER BLOCK 02940 M01S02881.1ma +++| LDC CBUF+SRUW*5 TRANSFER SRU-S TO PARAMETER BLOCK 02941 M01S02882.1ma +++| RJM TAS TRANSFER ACCUMULATED SRU-S 02942 M01S02883.1ma +++| LDN 3 SET WORD COUNT 02943 M01S02884.1ma +++| STD CM+1 02944 M01S02885.1ma +++| LDD MA SET EJT STATUS CHANGES 02945 M01S02886.1ma +++| CWM TRMA,CM+1 02946 M01S02887.1ma +++| RJM WCE WRITE CHANGES TO EJT ENTRY 02947 M01S02888.1ma +++|* LDN 0 SET NO ERROR
| Line S02889 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02948 M02S02889.ns2658 ---| TRM3 LJM PERX EXIT 02949 M01S00021.ns2658 +++| LJM PERX EXIT 02950 M01S02890.1ma +++| 02951 M01S02891.1ma +++| TRMA VFD 6/JSNE,6/4,6/7,42/NICS 02952 M01S02892.1ma +++| VFD 6/JSNE,6/5,6/1,42/ROJS 02953 M01S02893.1ma +++| TRMB VFD 6/SCHE,6/24,6/0,42/0 02954 M01S02894.1ma +++| TITLE EJT SYSTEM REQUEST SUBROUTINES. 02955 M01S02895.1ma +++| GRE SPACE 4,20 02956 M01S02896.1ma +++|** GRE - GET REQUIRED EJT ENTRY. 02957 M01S02897.1ma +++|* 02958 M01S02898.1ma +++|* ENTRY (T4) = NUMBER OF ENTRIES LEFT TO SCAN. 02959 M01S02899.1ma +++|* (EJ - EJ+1) = ADDRESS OF LAST ENTRY FOUND. 02960 M01S02900.1ma +++|* 02961 M01S02901.1ma +++|* EXIT (A) = 0 IF ENTRY FOUND. 02962 M01S02902.1ma +++|* (EJ - EJ+1) = ADVANCED TO CURRENT EJT ENTRY ADDRESS. 02963 M01S02903.1ma +++|* *OLCS* CHANGED TO *NICS* IN EJT ENTRY IF RESET 02964 M01S02904.1ma +++|* TIMEOUT REQUEST. 02965 M01S02905.1ma +++|* EJT ENTRY INTERLOCKED IF FOUND. 02966 M01S02906.1ma +++|* TO *PERX* IF RETRY NECESSARY. 02967 M01S02907.1ma +++|* 02968 M01S02908.1ma +++|* USES T1, T4, CM - CM+4, CN - CN+4, EJ - EJ+1, W3 - W3+4. 02969 M01S02909.1ma +++|* 02970 M01S02910.1ma +++|* CALLS WCE. 02971 M01S02911.1ma +++|* 02972 M01S02912.1ma +++|* MACROS MONITOR. 02973 M01S02913.1ma +++| 02974 M01S02914.1ma +++| 02975 M01S02915.1ma +++| GRE SUBR ENTRY/EXIT 02976 M01S02916.1ma +++| LDN 2 02977 M01S02917.1ma +++| STD T1 02978 M01S02918.1ma +++| GRE1 AOD W1+4 INCREMENT EJT ORDINAL 02979 M01S02919.1ma +++| SOD T4 DECREMENT ENTRIES TO SCAN 02980 M01S02920.1ma +++| MJN GREX IF AT END OF TABLE 02981 M01S02921.1ma +++| LDN EJTE GET NEXT ENTRY ADDRESS 02982 M01S02922.1ma +++| RAD EJ+1 02983 M01S02923.1ma +++| SHN -14 02984 M01S02924.1ma +++| RAD EJ 02985 M01S02925.1ma +++| GRE1.1 SHN 14 02986 M01S02926.1ma +++| LMD EJ+1 02987 M01S02927.1ma +++| ADK JSNE 02988 M01S02928.1ma +++| CRD W3 READ EJT ENTRY 02989 M01S02929.1ma +++| ADK SCLE-JSNE 02990 M01S02930.1ma +++| CRD CN 02991 M01S02931.1ma +++| LDD W3 02992 M01S02932.1ma +++| ZJN GRE1 IF NO EJT ENTRY 02993 M01S02933.1ma +++| LJM GRE3 PROCESS *RCEJ* REQUEST 02994 M01S02934.1ma +++|* PSN (PROCESS *RTEJ* REQUEST) 02995 M01S02935.1ma +++|* PSN 02996 M01S02936.1ma +++| GREA EQU *-2 02997 M01S02937.1ma +++| 02998 M01S02938.1ma +++|* PSN (PROCESS *RTEJ* REQUEST) 02999 M01S02939.1ma +++| 03000 M01S02940.1ma +++|* PROCESS RESET TIMEOUT REQUEST. 03001 M01S02941.1ma +++| 03002 M01S02942.1ma +++| LDD W3+4 COMPARE CONNECTION STATUS 03003 M01S02943.1ma +++| SHN 0-7 03004 M01S02944.1ma +++| LPN 17 03005 M01S02945.1ma +++| LMN OLCS 03006 M01S02946.1ma +++| NJP GRE1.4 IF NOT ON-LINE CONNECTION STATUS 03007 M01S02947.1ma +++| LDD W3+4 GET JOB STATUS 03008 M01S02948.1ma +++| SHN -1 03009 M01S02949.1ma +++| LPN 37 03010 M01S02950.1ma +++| STM GREF+4 03011 M01S02951.1ma +++| LMK PRJS 03012 M01S02952.1ma +++| ZJN GRE1.2 IF PRE-INITIAL JOB STEP 03013 M01S02953.1ma +++| LMK EXJS&PRJS 03014 M01S02954.1ma +++| ZJN GRE1.2 IF EXECUTING JOB 03015 M01S02955.1ma +++| LMK ERJS&EXJS 03016 M01S02956.1ma +++| ZJN GRE1.2 IF ERROR IN ROLLOUT FILE 03017 M01S00012.271l716 +++| LMK PCJS&ERJS 03018 M01S00013.271l716 +++| ZJN GRE1.2 IF PCP JOB 03019 M01S02957.1ma +++| LDN 1 03020 M01S02958.1ma +++| GRE1.2 ADN 3 03021 M01S02959.1ma +++| STD CM+1 NUMBER OF CHANGES TO MAKE 03022 M01S02960.1ma +++| LDD MA 03023 M01S02961.1ma +++| CWM GREE,CM+1 03024 M01S02962.1ma +++| RJM WCE CHANGE EJT CONNECTION STATUS 03025 M01S02963.1ma +++| LDD CM+1 03026 M01S02964.1ma +++| ZJN GRE1.3 IF REQUEST COMPLETED SUCCESSFULLY 03027 M01S02965.1ma +++| LDD EJ 03028 M01S02966.1ma +++| UJP GRE1.1 RETRY THE REQUEST 03029 M01S02967.1ma +++| 03030 M01S02968.1ma +++| GRE1.3 LDC 4000+SYET ALTERNATE EJT FLAG AND ERROR 03031 M01S02969.1ma +++| STD CM+1 03032 M01S02970.1ma +++| LDD W1+4 EJT ORDINAL 03033 M01S02971.1ma +++| STD CM+2 03034 M01S02972.1ma +++| LDD W3 SET JSN 03035 M01S02973.1ma +++| STD CM+3 03036 M01S02974.1ma +++| LDD W3+1 03037 M01S02975.1ma +++| STD CM+4 03038 M01S02976.1ma +++| MONITOR CEFM 03039 M01S02977.1ma +++| GRE1.4 LDD CN COMPARE ORIGIN TYPE 03040 M01S02978.1ma +++| LPN 17 03041 M01S02979.1ma +++| LMM GRED+4 03042 M01S02980.1ma +++| NJN GRE2 IF NOT FOUND 03043 M01S02981.1ma +++| LDD W3+4 COMPARE JOB STATUS 03044 M01S02982.1ma +++| LPN 77 03045 M01S02983.1ma +++| LMN SUJS*2 03046 M01S02984.1ma +++| ZJN GRE4 IF ENTRY FOUND 03047 M01S02985.1ma +++| GRE2 LJM GRE1 CHECK NEXT ENTRY 03048 M01S02986.1ma +++| 03049 M01S02987.1ma +++|* PROCESS RECOVER JOB REQUEST. 03050 M01S02988.1ma +++| 03051 M01S02989.1ma +++| GRE3 LDD W0 COMPARE JSN 03052 M01S02990.1ma +++| LMD W3 03053 M01S02991.1ma +++| NJN GRE2 IF NOT FOUND 03054 M01S02992.1ma +++| LDD W0+1 03055 M01S02993.1ma +++| LMD W3+1 03056 M01S02994.1ma +++| NJN GRE2 IF NOT FOUND 03057 M01S02995.1ma +++| LDD W3+4 COMPARE CONNECTION STATUS 03058 M01S02996.1ma +++| SHN -7 03059 M01S02997.1ma +++| LPN 17 03060 M01S02998.1ma +++| LMN DTCS 03061 M01S02999.1ma +++| NJN GRE2 IF NOT DETACHED 03062 M01S03000.1ma +++| GRE4 LDN 42B SET INTERLOCK AFTER TWO VERIFICATIONS 03063 M01S03001.1ma +++| STD CM+1 03064 M01S03002.1ma +++| LDD EJ SET ADDRESS OF EJT ENTRY 03065 M01S03003.1ma +++| STD CM+3 03066 M01S03004.1ma +++| LDD EJ+1 03067 M01S03005.1ma +++| STD CM+4 03068 M01S03006.1ma +++| LDD MA 03069 M01S03007.1ma +++| CWM GREC,T1 03070 M01S03008.1ma +++| GREB EQU *-1 ADDRESS OF REQUESTS 03071 M01S03009.1ma +++| MONITOR UTEM 03072 M01S03010.1ma +++| LDD CM+1 03073 M01S03011.1ma +++| SBN 1 03074 M01S03012.1ma +++| ZJN GRE5 IF INTERLOCK SET 03075 M01S03013.1ma +++| SBN 3-1 03076 M01S03014.1ma +++| ZJN GRE5 IF INTERLOCK SET 03077 M01S03015.1ma +++| LDD CM+1 03078 M01S03016.1ma +++| LJM GREX RETURN 03079 M01S03017.1ma +++| 03080 M01S03018.1ma +++| GRE5 LDN RTER RETRY ERROR CODE 03081 M01S03019.1ma +++| LJM PERX EXIT 03082 M01S03020.1ma +++| 03083 M01S03021.1ma +++| 03084 M01S03022.1ma +++| GREC VFD 1/1,5/JSNE,6/24D,6/36D,42/0 JSN (RCEJ) 03085 M01S03023.1ma +++| VFD 1/1,5/JSNE,6/4,6/7,42/DTCS CONNECTION STATUS (RCEJ) 03086 M01S03024.1ma +++| GRED VFD 1/1,5/SCLE,6/4,6/48D,42/0 ORIGIN TYPE (RTEJ) 03087 M01S03025.1ma +++| VFD 1/1,5/JSNE,6/5,6/1,42/SUJS JOB STATUS (RTEJ) 03088 M01S03026.1ma +++| GREE VFD 1/1,5/JSNE,6/4,6/7,42/OLCS CONNECTION STATUS (RTEJ) 03089 M01S03027.1ma +++| GREF VFD 1/1,5/JSNE,6/5,6/1,42/** CONNECTION STATUS (RTEJ) 03090 M01S03028.1ma +++| VFD 6/JSNE,6/4,6/7,42/NICS CONNECTION STATUS (RTEJ) 03091 M01S03029.1ma +++| VFD 6/JSNE,6/5,6/1,42/ROJS JOB STATUS (RTEJ) 03092 M01S00022.ns2658 +++| PES SPACE 4,10 03093 M01S00023.ns2658 +++|** PES - PROCESS I/O ERROR STATUS. 03094 M01S00024.ns2658 +++|* 03095 M01S00025.ns2658 +++|* ENTRY (RDCT) = DRIVER STATUS. 03096 M01S00026.ns2658 +++|* 03097 M01S00027.ns2658 +++|* EXIT TO *PERX* WITH (A) = *REER* IF RECOVERABLE DRIVER 03098 M01S00028.ns2658 +++|* ERROR. 03099 M01S00029.ns2658 +++|* TO *PERX* WITH (A) = *ERER* IF UNRECOVERABLE DRIVER 03100 M01S00030.ns2658 +++|* ERROR. 03101 M01S00031.ns2658 +++| 03102 M01S00032.ns2658 +++| 03103 M01S00033.ns2658 +++| PES SUBR ENTRY/EXIT 03104 M01S00034.ns2658 +++| PJN PESX IF NO DRIVER ERROR 03105 M01S00035.ns2658 +++| LDM RDCT CHECK DRIVER STATUS 03106 M01S00036.ns2658 +++| SHN 21-12 03107 M01S00037.ns2658 +++| PJN PES1 IF RECOVERABLE ERROR 03108 M01S00038.ns2658 +++| LDN ERER UNRECOVERABLE I/O ERROR ON DEVICE 03109 M01S00039.ns2658 +++| UJN PES2 SET ERROR CODE 03110 M01S00040.ns2658 +++| 03111 M01S00041.ns2658 +++| PES1 LDN REER RECOVERABLE DISK ERROR 03112 M01S00042.ns2658 +++| PES2 LJM PERX EXIT 03113 M01S03030.1ma +++| RRF SPACE 4,15 03114 M01S03031.1ma +++|** RRF - READ ROLLOUT FILE. 03115 M01S03032.1ma +++|* 03116 M01S03033.1ma +++|* ENTRY (A) = 0, IF SYSTEM SECTOR READ NEEDED. 03117 M01S03034.1ma +++|* (EJEN) = EJT ENTRY. 03118 M01S03035.1ma +++|* = 1, IF ONLY CPA SECTOR NEEDED. 03119 M01S03036.1ma +++|* (T5 - T6) = ROLLOUT INFORMATION, SETMS DONE. 03120 M01S03037.1ma +++|* 03121 M01S03038.1ma +++|* ERROR TO *PERX* IF ERROR ON READ. 03122 M01S03039.1ma +++|* 03123 M01S03040.1ma +++|* USES T5, T6, T7. 03124 M01S03041.1ma +++|*
| Line S03042 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03125 M02S03042.ns2658 ---|* CALLS RDS, RSS. 03126 M01S00043.ns2658 +++|* CALLS PES, RDS, RSS. 03127 M01S03043.1ma +++|* 03128 M01S03044.1ma +++|* MACROS SETMS, ENDMS. 03129 M01S03045.1ma +++| 03130 M01S03046.1ma +++| 03131 M01S03047.1ma +++| RRF SUBR ENTRY/EXIT 03132 M01S03048.1ma +++| NJN RRF1 IF CPA SECTOR REQUEST 03133 M01S03049.1ma +++| LDM EJEN+SCHE*5 03134 M01S03050.1ma +++| STD T5 03135 M01S03051.1ma +++| LDM EJEN+SCHE*5+1 03136 M01S03052.1ma +++| STD T6 03137 M01S03053.1ma +++| SETMS IO 03138 M01S03054.1ma +++| LDN 0 03139 M01S03055.1ma +++| RJM RSS READ SYSTEM SECTOR 03140 M01S00044.ns2658 +++| RJM PES PROCESS ERROR STATUS 03141 M01S03056.1ma +++| NJN RRF2 IF ERROR ENCOUNTERED 03142 M01S00014.271l716 +++| LDM FNSS+4 03143 M01S00015.271l716 +++| SHN -6 03144 M01S00016.271l716 +++| LMN ROFT 03145 M01S00017.271l716 +++| ZJN RRF1 IF ROLLOUT FILE TYPE 03146 M01S00018.271l716 +++| ENDMS 03147 M01S00019.271l716 +++| UJN RRF2 PROCESS ROLLOUT FILE ERROR 03148 M01S00020.271l716 +++| 03149 M01S03057.1ma +++| RRF1 LDN CPAI READ CONTROL POINT AREA 03150 M01S03058.1ma +++| STD T7 03151 M01S03059.1ma +++| LDC SBUF 03152 M01S03060.1ma +++| RJM RDS READ CPA
| Line S03061 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03153 M02S03061.ns2658 ---| MJN RRF2 IF ERROR ON READ 03154 M01S00045.ns2658 +++| RJM PES PROCESS ERROR STATUS 03155 M01S03062.1ma +++| ENDMS 03156 M01S03063.1ma +++| LDM SBUF CHECK LINKAGE 03157 M01S03064.1ma +++| ZJN RRF2 IF NO LINK 03158 M01S03065.1ma +++| LDM SBUF+1 03159 M01S03066.1ma +++| LMD HN 03160 M01S03067.1ma +++| ZJP RRFX IF FULL SECTOR READ 03161 M01S03068.1ma +++| RRF2 LDN ERER ERROR ENCOUNTERED ON DEVICE 03162 M01S03069.1ma +++| LJM PERX ERROR EXIT 03163 M01S03070.1ma +++| SAM SPACE 4,10 03164 M01S03071.1ma +++|** SAM - SEND ACCOUNTING MESSAGE. 03165 M01S03072.1ma +++|* 03166 M01S03073.1ma +++|* ENTRY (EJEN) = EJT ENTRY. 03167 M01S03074.1ma +++|* 03168 M01S03075.1ma +++|* USES T1, CM - CM+4. 03169 M01S03076.1ma +++|* 03170 M01S03077.1ma +++|* CALLS ACS, CAA, DFM. 03171 M01S03078.1ma +++| 03172 M01S03079.1ma +++| 03173 M01S03080.1ma +++| SAM SUBR ENTRY/EXIT 03174 M01S03081.1ma +++| LDM EJEN+SCLE*5 SET SERVICE CLASS IN MESSAGE 03175 M01S03082.1ma +++| SHN -6 03176 M01S03083.1ma +++| STM SAMA+4 03177 M01S03084.1ma +++| RJM CAA READ USER NAME 03178 M01S03085.1ma +++| ADN 1 03179 M01S03086.1ma +++| CRD CN 03180 M01S03087.1ma +++| LDD CN+3 03181 M01S03088.1ma +++| SCN 77 03182 M01S03089.1ma +++| STD CN+3 03183 M01S03090.1ma +++| LDC FOTP MOVE FAMILY NAME 03184 M01S03091.1ma +++| CRD CM 03185 M01S03092.1ma +++| LDM EJEN+JSNE*5+2 03186 M01S03093.1ma +++| SHN -6 03187 M01S03094.1ma +++| STD T1 03188 M01S03095.1ma +++| LDD CM 03189 M01S03096.1ma +++| SHN 14 03190 M01S03097.1ma +++| ADD CM+1 03191 M01S03098.1ma +++| ADD T1 03192 M01S03099.1ma +++| CRD CM READ FOT ENTRY 03193 M01S03100.1ma +++| LDD W0 03194 M01S03101.1ma +++| STM SAMA MOVE JSN 03195 M01S03102.1ma +++| LDD W0+1 03196 M01S03103.1ma +++| STM SAMA+1 03197 M01S03104.1ma +++| 03198 M01S03105.1ma +++|* BUILD ACCOUNTING MESSAGE BUFFER. 03199 M01S03106.1ma +++| 03200 M01S03107.1ma +++| LDC SAMC SET BUFFER LOCATION 03201 M01S03108.1ma +++| STD T1 03202 M01S03109.1ma +++| LDN CN ADD USER NAME 03203 M01S03110.1ma +++| RJM ACS 03204 M01S03111.1ma +++| LDC SAME ADD COMMA 03205 M01S03112.1ma +++| RJM ACS 03206 M01S03113.1ma +++| LDN CM ADD FAMILY NAME 03207 M01S03114.1ma +++| RJM ACS 03208 M01S03115.1ma +++| LDC 0 03209 M01S03116.1ma +++| SAMJ EQU *-1 DTEJ=1, RSEJ=0 (SET BY *DTC*) 03210 M01S03117.1ma +++| NJN SAM1 IF DETACH OF JOB 03211 M01S03118.1ma +++| LDC SAME ADD COMMA 03212 M01S03119.1ma +++| RJM ACS 03213 M01S03120.1ma +++| LDM SAMD+3 ENSURE VALID TERMINAL NAME 03214 M01S03121.1ma +++| SCN 77 03215 M01S03122.1ma +++| STM SAMD+3 03216 M01S03123.1ma +++| LDC SAMD ADD TERMINAL NAME 03217 M01S03124.1ma +++| RJM ACS 03218 M01S03125.1ma +++| SAM1 LDC SAMF ADD PERIOD 03219 M01S03126.1ma +++| RJM ACS 03220 M01S03127.1ma +++| LDC SAMA+AJNN 03221 M01S03128.1ma +++| RJM DFM SEND DAYFILE MESSAGE 03222 M01S03129.1ma +++| LJM SAMX RETURN 03223 M01S03130.1ma +++| 03224 M01S03131.1ma +++| SAMA DATA 10LJSNA SC 03225 M01S03132.1ma +++| SAMB DATA 6LARUN, 03226 M01S03133.1ma +++| SAMC BSSZ 17D MESSAGE BUFFER 03227 M01S03134.1ma +++| SAMD DATA 9LTERMNAM 03228 M01S03135.1ma +++| SAME DATA 2L, COMMA AND SPACE 03229 M01S03136.1ma +++| CON 0 TERMINATOR 03230 M01S03137.1ma +++| SAMF DATA 1L. PERIOD 03231 M01S03138.1ma +++| CON 0 TERMINATOR 03232 M01S03139.1ma +++| SEA SPACE 4,10 03233 M01S03140.1ma +++|** SEA - SET ENTRY ADDRESS. 03234 M01S03141.1ma +++|* 03235 M01S03142.1ma +++|* ENTRY (W1+4) = EJT ORDINAL. 03236 M01S03143.1ma +++|* 03237 M01S03144.1ma +++|* EXIT (A) = ADDRESS OF EJT ENTRY. 03238 M01S03145.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY. 03239 M01S03146.1ma +++|* 03240 M01S03147.1ma +++|* MACROS SFA. 03241 M01S03148.1ma +++| 03242 M01S03149.1ma +++| 03243 M01S03150.1ma +++| SEA SUBR ENTRY/EXIT 03244 M01S03151.1ma +++| SFA EJT,W1+4 READ EJT ENTRY 03245 M01S03152.1ma +++| STD EJ+1 SAVE ADDRESS 03246 M01S03153.1ma +++| SHN -14 03247 M01S03154.1ma +++| STD EJ 03248 M01S03155.1ma +++| SHN 14 03249 M01S03156.1ma +++| LMD EJ+1 03250 M01S03157.1ma +++| UJN SEAX RETURN 03251 M01S03158.1ma +++| SES SPACE 4,10 03252 M01S03159.1ma +++|** SES - SET UP EJT SEARCH. 03253 M01S03160.1ma +++|* 03254 M01S03161.1ma +++|* EXIT (T4) = NUMBER OF POSSIBLE EJT ENTRIES. 03255 M01S03162.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY 0. 03256 M01S03163.1ma +++|* 03257 M01S03164.1ma +++|* USES T2 - T6, EJ - EJ+1. 03258 M01S03165.1ma +++|* 03259 M01S03166.1ma +++|* MACROS SFA. 03260 M01S03167.1ma +++| 03261 M01S03168.1ma +++| 03262 M01S03169.1ma +++| SES SUBR ENTRY/EXIT 03263 M01S03170.1ma +++| LDN EJTP 03264 M01S03171.1ma +++| CRD T2 SET T4 03265 M01S03172.1ma +++| SOD T4 03266 M01S03173.1ma +++| LDD T3 SET ADDRESS OF EJT 0 03267 M01S03174.1ma +++| STD EJ+1 03268 M01S03175.1ma +++| LDD T2 03269 M01S03176.1ma +++| STD EJ 03270 M01S03177.1ma +++| UJN SESX RETURN 03271 M01S03178.1ma +++| STO SPACE 4,15 03272 M01S03179.1ma +++|** STO - SET TIMEOUT. 03273 M01S03180.1ma +++|* 03274 M01S03181.1ma +++|* ENTRY (EJ - EJ+1) = CM ADDRESS OF EJT ENTRY TO UPDATE. 03275 M01S03182.1ma +++|* (CN - CN+4) = WORD *SCLE* OF EJT ENTRY. 03276 M01S03183.1ma +++|* (STOA) = TIMEOUT FLAG, 0 = ZERO TIMEOUT. 03277 M01S03184.1ma +++|* (STOB) = INTERLOCK CLEAR FLAG, 0 = CLEAR. 03278 M01S03185.1ma +++|* (STOD) = DISABLE TIMEOUT UPDATE FLAG, 0 = DO NOT 03279 M01S03186.1ma +++|* UPDATE TIMEOUT IN EJT ENTRY. 03280 M01S03187.1ma +++|* 03281 M01S03188.1ma +++|* EXIT SCHEDULE FIELD UPDATED IN EJT ENTRY, IF SO DESIRED. 03282 M01S03189.1ma +++|* 03283 M01S03190.1ma +++|* USES CM - CM+4. 03284 M01S03191.1ma +++|* 03285 M01S03192.1ma +++|* CALLS RJC, SFI, WCE. 03286 M01S03193.1ma +++| 03287 M01S03194.1ma +++| 03288 M01S03195.1ma +++| STO SUBR ENTRY/EXIT 03289 M01S03196.1ma +++| STOD LDN 1 03290 M01S03197.1ma +++| ZJN STOX IF NOT UPDATING TIMEOUT IN EJT 03291 M01S03198.1ma +++| LDC RTCL GET CLOCK TIME 03292 M01S03199.1ma +++| CRM STOC+3,ON 03293 M01S03200.1ma +++| STOA LDN 0 TIMEOUT DELAY FLAG 03294 M01S03201.1ma +++| ZJN STO1 IF NO DELAY DESIRED 03295 M01S03202.1ma +++| LDD CN 03296 M01S03203.1ma +++| SHN -6 03297 M01S03204.1ma +++| RJM RJC GET JOB CONTROL AREA ADDRESS 03298 M01S03205.1ma +++| ADN SVJT 03299 M01S03206.1ma +++| CRD CM 03300 M01S03207.1ma +++| LDD CM+4 TIME DELAY 03301 M01S03208.1ma +++| SHN 3 *10B 03302 M01S03209.1ma +++| RAM STOC+4 03303 M01S03210.1ma +++| SHN -14 03304 M01S03211.1ma +++| RAM STOC+3 03305 M01S03212.1ma +++| STO1 LDN 1 SET NUMBER OF REQUESTS 03306 M01S03213.1ma +++| STD CM+1 03307 M01S03214.1ma +++| LDD MA 03308 M01S03215.1ma +++| CWM STOC,CM+1 SET REQUEST 03309 M01S03216.1ma +++| RJM WCE WRITE CHANGE TO EJT 03310 M01S03217.1ma +++| STOB LDN 0 03311 M01S03218.1ma +++| NJN STOX IF INTERLOCK CLEAR NOT REQUESTED 03312 M01S03219.1ma +++| LDN CEIN CLEAR INTERLOCK 03313 M01S03220.1ma +++| STD T1 03314 M01S03221.1ma +++| LDD EJ 03315 M01S03222.1ma +++| SHN 14 03316 M01S03223.1ma +++| ADD EJ+1 03317 M01S03224.1ma +++| RJM SFI CLEAR INTERLOCK 03318 M01S03225.1ma +++| LJM STOX RETURN 03319 M01S03226.1ma +++| 03320 M01S03227.1ma +++| 03321 M01S03228.1ma +++| STOC VFD 6/SCHE,6/24D,6/0,42/0 03322 M01S03229.1ma +++| VFD 36/0 SCRATCH FOR RTCL 03323 M01S03230.1ma +++| TAS SPACE 4,10 03324 M01S03231.1ma +++|** TAS - TRANSFER ACCUMULATED SRU-S. 03325 M01S03232.1ma +++|* 03326 M01S03233.1ma +++|* ENTRY (A) = ADDRESS OF SRU ACCUMULATOR. 03327 M01S03234.1ma +++|* 03328 M01S03235.1ma +++|* EXIT (W1 - W1+3) = ACCUMULATED SRU-S. 03329 M01S03236.1ma +++|* 03330 M01S03237.1ma +++|* USES T7. 03331 M01S03238.1ma +++| 03332 M01S03239.1ma +++| 03333 M01S03240.1ma +++| TAS SUBR ENTRY/EXIT 03334 M01S03241.1ma +++| STM TASA 03335 M01S03242.1ma +++| LDD W1-1 03336 M01S03243.1ma +++| STD T7 03337 M01S03244.1ma +++| LDD MA SET SRU ACCUMULATOR 03338 M01S03245.1ma +++| CWM *,ON 03339 M01S03246.1ma +++| TASA EQU *-1 03340 M01S03247.1ma +++| SBN 1 03341 M01S03248.1ma +++| CRD W1-1 03342 M01S03249.1ma +++| LDD W1 03343 M01S03250.1ma +++| LPN 77 03344 M01S03251.1ma +++| STD W1 03345 M01S03252.1ma +++| LDD T7 SET OVERWRITTEN CELL 03346 M01S03253.1ma +++| STD W1-1 03347 M01S03254.1ma +++| UJN TASX RETURN 03348 M01S03255.1ma +++| VSC SPACE 4,10 03349 M01S03256.1ma +++|** VSC - VALIDATE SERVICE CLASS. 03350 M01S03257.1ma +++|* 03351 M01S03258.1ma +++|* ENTRY (EJEN+SCLE*5) = CURRENT SERVICE CLASS OF JOB. 03352 M01S03259.1ma +++|* (SC) = 0. 03353 M01S03260.1ma +++|* 03354 M01S03261.1ma +++|* EXIT (SC) = SERVICE CLASS TO ASSIGN TO JOB. 03355 M01S03262.1ma +++|* (SC) = 0, IF NO SERVICE CLASS CHANGE. 03356 M01S03263.1ma +++|* 03357 M01S03264.1ma +++|* ERROR (A) = ERROR CODE. EXIT TO *PERX*. 03358 M01S03265.1ma +++|* 03359 M01S03266.1ma +++|* USES OT, SC, T1, T2, T3, CM - CM+4, CN - CN+4. 03360 M01S03267.1ma +++|* 03361 M01S03268.1ma +++|* CALLS RJC, VSP. 03362 M01S03269.1ma +++| 03363 M01S03270.1ma +++| 03364 M01S03271.1ma +++| VSC SUBR ENTRY/EXIT 03365 M01S03272.1ma +++| LDM EJEN+SCLE*5 03366 M01S03273.1ma +++| SHN -6 03367 M01S03274.1ma +++| STD T1 03368 M01S03275.1ma +++| RJM RJC 03369 M01S03276.1ma +++| ZJN VSCX IF NO JCB DEFINED FOR SERVICE CLASS 03370 M01S03277.1ma +++| ADN PFCT GET SERVICE CLASS TO ASSIGN ON DETACH 03371 M01S03278.1ma +++| CRD CM 03372 M01S03279.1ma +++| 03373 M01S03280.1ma +++|* CHECK FOR IMMEDIATE TIMEOUT. ON AN INVOLUNTARY DETACH WHEN 03374 M01S03281.1ma +++|* THE SERVICE CLASS TIMEOUT DELAY IS ZERO, THE JOB WILL BE 03375 M01S03282.1ma +++|* ABORTED IMMEDIATELY. 03376 M01S03283.1ma +++| 03377 M01S03284.1ma +++| SBN PFCT-SVJT CHECK SUSPENSION TIMEOUT DELAY 03378 M01S03285.1ma +++| CRD CN 03379 M01S03286.1ma +++| LDD W2+1 03380 M01S03287.1ma +++| SHN -6 03381 M01S03288.1ma +++| SBN UDRC
| Line S03289 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03382 M02S03289.1ma17a ---| ZJN VSC0 IF USER DETACH 03383 M01S00001.1ma17a +++| ZJN VSC2 IF USER DETACH 03384 M01S03290.1ma +++| LDD CN+4
| Line S03291 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03385 M02S03291.1ma17a ---| NJN VSC0 IF INVOLUNTARY DETACH WITH TIMEOUT DELAY
| Line S03292 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03386 M02S03292.1ma17a ---| LDC 4000+STET ABORT JOB WITH *STET* ERROR 03387 M01S00002.1ma17a +++| ZJN VSC1 IF INVOLUNTARY DETACH W/O TIMEOUT DELAY 03388 M01S00003.1ma17a +++| LDD CM+4 03389 M01S00004.1ma17a +++| STD SC CHANGE SERVICE CLASS UNCONDITIONALLY 03390 M01S00005.1ma17a +++| UJN VSCX RETURN 03391 M01S00006.1ma17a +++| 03392 M01S00007.1ma17a +++| VSC1 LDC 4000+STET ABORT JOB WITH *STET* ERROR 03393 M01S03293.1ma +++| STD CM+1 03394 M01S03294.1ma +++| LDD W1+4 EJT ORDINAL 03395 M01S03295.1ma +++| STD CM+2 03396 M01S03296.1ma +++| LDD W0 SET JSN 03397 M01S03297.1ma +++| STD CM+3 03398 M01S03298.1ma +++| LDD W0+1 03399 M01S03299.1ma +++| STD CM+4 03400 M01S03300.1ma +++| MONITOR CEFM 03401 M01S03301.1ma +++| LDN 0
| Line S03302 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03402 M02S03302.1ma17a ---| UJN VSC2 RETURN ERROR STATUS 03403 M01S00008.1ma17a +++| UJN VSC4 RETURN ERROR STATUS 03404 M01S03303.1ma +++|
| Line S03304 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03405 M02S03304.1ma17a ---| VSC0 LDD T1 03406 M01S00009.1ma17a +++| VSC2 LDD T1 03407 M01S03305.1ma +++| SBD CM+4 03408 M01S03306.1ma +++| ZJP VSCX IF NO CHANGE NECESSARY 03409 M01S03307.1ma +++| 03410 M01S03308.1ma +++|* VALIDATE SERVICE CLASS. 03411 M01S03309.1ma +++| 03412 M01S03310.1ma +++| LDN IAOT SET ORIGIN TYPE 03413 M01S03311.1ma +++| STD OT 03414 M01S03312.1ma +++| LDN 0 INDICATE NON-SUBSYSTEM AND NON-SSJ= JOB 03415 M01S03313.1ma +++| STD T3 03416 M01S03314.1ma +++| LDD MA GET SERVICE CLASS VALIDATION MASK 03417 M01S03315.1ma +++| CWM VMSS-2,ON 03418 M01S03316.1ma +++| SBN 1 03419 M01S03317.1ma +++| CRD CN 03420 M01S03318.1ma +++| LDD CM+4 SET SERVICE CLASS 03421 M01S03319.1ma +++| RJM VSP VALIDATE SERVICE CLASS
| Line S03320 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03422 M02S03320.1ma17a ---| NJN VSC1 IF ERROR 03423 M01S00010.1ma17a +++| NJN VSC3 IF ERROR 03424 M01S03321.1ma +++| LDD T2 SET SERVICE CLASS CHANGE 03425 M01S03322.1ma +++| STD SC 03426 M01S03323.1ma +++| UJP VSCX RETURN 03427 M01S03324.1ma +++|
| Line S03325 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03428 M02S03325.1ma17a ---| VSC1 SBN 2
| Line S03326 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03429 M02S03326.1ma17a ---| ZJN VSC2 IF SERVICE CLASS NOT VALID FOR USER 03430 M01S00011.1ma17a +++| VSC3 SBN 2 03431 M01S00012.1ma17a +++| ZJN VSC4 IF SERVICE CLASS NOT VALID FOR USER 03432 M01S03327.1ma +++| LDN ISER&SFER
| Line S03328 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03433 M02S03328.1ma17a ---| VSC2 LMN ISER SET ERROR STATUS 03434 M01S00013.1ma17a +++| VSC4 LMN ISER SET ERROR STATUS 03435 M01S03329.1ma +++| LJM PERX PROCESS ERROR 03436 M01S03330.1ma +++| VUD SPACE 4,15 03437 M01S03331.1ma +++|** VUD - VALIDATE USER DETACH. 03438 M01S03332.1ma +++|* 03439 M01S03333.1ma +++|* ENTRY (CBUF) = CPA FROM ROLLOUT FILE. 03440 M01S03334.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY. 03441 M01S03335.1ma +++|* (EJEN) = EJT ENTRY. 03442 M01S03336.1ma +++|* 03443 M01S03337.1ma +++|* ERROR (A) = ERROR CODE - EXIT TO *PERX*. 03444 M01S03338.1ma +++|* 03445 M01S03339.1ma +++|* USES T0 - T7, CM - CM+4, CN. 03446 M01S03340.1ma +++|* 03447 M01S03341.1ma +++|* CALLS DTI. 03448 M01S03342.1ma +++| 03449 M01S03343.1ma +++| 03450 M01S03344.1ma +++| VUD SUBR ENTRY/EXIT 03451 M01S03345.1ma +++| LDD W2+1 03452 M01S03346.1ma +++| SHN -6
| Line S03347 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03453 M02S03347.1ma23 ---| SBN SARC
| Line S03348 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03454 M02S03348.1ma23 ---| ZJN VUDX IF SUBSYSTEM ABORT, DO NOT VALIDATE
| Line S03349 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03455 M02S03349.1ma23 ---| SBN UDRC-SARC
| Line S03350 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03456 M02S03350.1ma23 ---| ZJN VUD1 IF USER DETACH
| Line S03351 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03457 M02S03351.1ma23 ---| LDN DETI
| Line S03352 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03458 M02S03352.1ma23 ---| RAM VUDA
| Line S03353 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03459 M02S03353.1ma23 ---| VUD1 LDM CBUF+ACLW*5+3 03460 M01S00001.1ma23 +++| SBN UDRC 03461 M01S00002.1ma23 +++| MJN VUDX IF NOT USER DETACH, DO NOT VALIDATE 03462 M01S00003.1ma23 +++| LDM CBUF+ACLW*5+3 03463 M01S03354.1ma +++| RJM DTI GET DETACH LIMIT 03464 M01S03355.1ma +++| MJN VUDX IF UNLIMITED
| Line S03356 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03465 M02S03356.1ma23 ---| VUDA ADN 0
| Line S03357 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03466 M02S03357.1ma23 ---| NJN VUD2 IF DETACH ALLOWED
| Line S03358 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03467 M02S03358.1ma23 ---| LJM VUD5 SEND ERROR CODE
| Line S03359 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03468 M02S03359.1ma23 ---|
| Line S03360 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03469 M02S03360.1ma23 ---| VUD2 STD CN STORE DETACH COUNT 03470 M01S00004.1ma23 +++| ZJN VUD2 IF DETACH NOT ALLOWED 03471 M01S00005.1ma23 +++| STD CN STORE DETACH COUNT 03472 M01S03361.1ma +++| 03473 M01S03362.1ma +++|* SET UP FAMILY ORDINAL AND USER INDEX. 03474 M01S03363.1ma +++| 03475 M01S03364.1ma +++| LDD EJ 03476 M01S03365.1ma +++| SHN 14 03477 M01S03366.1ma +++| LMD EJ+1 03478 M01S03367.1ma +++| CRD T0 (T2-T3) = FAMILY ORDINAL AND USER INDEX 03479 M01S03368.1ma +++| LDN EJTP 03480 M01S03369.1ma +++| CRD T4 (T4-T5) = EJT ADDRESS, (T6) = ENTRY COUNT 03481 M01S03370.1ma +++| 03482 M01S03371.1ma +++|* COUNT DETACHED JOBS FOR THIS FO/UI. 03483 M01S03372.1ma +++|
| Line S03373 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03484 M02S03373.1ma23 ---| VUD3 LDN EJTE 03485 M01S00006.1ma23 +++| VUD1 LDN EJTE 03486 M01S03374.1ma +++| RAD T5 03487 M01S03375.1ma +++| SHN -14 03488 M01S03376.1ma +++| RAD T4 03489 M01S03377.1ma +++| SHN 14 03490 M01S03378.1ma +++| LMD T5 03491 M01S03379.1ma +++| CRD CM READ *JSNE* OF NEXT ENTRY 03492 M01S03380.1ma +++| LDD CM+2 03493 M01S03381.1ma +++| LMD T2
| Line S03382 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03494 M02S03382.1ma23 ---| NJN VUD4 IF NO MATCH 03495 M01S00007.1ma23 +++| NJN VUD3 IF NO MATCH 03496 M01S03383.1ma +++| LDD CM+3 03497 M01S03384.1ma +++| LMD T3
| Line S03385 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03498 M02S03385.1ma23 ---| NJN VUD4 IF NO MATCH 03499 M01S00008.1ma23 +++| NJN VUD3 IF NO MATCH 03500 M01S03386.1ma +++| LDD CM+4 CHECK CONNECTION STATUS 03501 M01S03387.1ma +++| SHN -7 03502 M01S03388.1ma +++| LPN 17 03503 M01S03389.1ma +++| LMN DTCS
| Line S03390 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03504 M02S03390.1ma23 ---| NJN VUD4 IF NOT DETACHED 03505 M01S00009.1ma23 +++| NJN VUD3 IF NOT DETACHED 03506 M01S03391.1ma +++| SOD CN
| Line S03392 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03507 M02S03392.1ma23 ---| ZJN VUD5 IF LIMIT EXCEEDED
| Line S03393 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03508 M02S03393.1ma23 ---| VUD4 SOD T6 DECREMENT EJT ENTRY COUNT
| Line S03394 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03509 M02S03394.1ma23 ---| NJN VUD3 IF SCAN NOT COMPLETE 03510 M01S00010.1ma23 +++| VUD2 ZJN VUD4 IF LIMIT EXCEEDED 03511 M01S00011.1ma23 +++| VUD3 SOD T6 DECREMENT EJT ENTRY COUNT 03512 M01S00012.1ma23 +++| NJN VUD1 IF SCAN NOT COMPLETE 03513 M01S03395.1ma +++| LJM VUDX RETURN IF VALIDATED 03514 M01S03396.1ma +++|
| Line S03397 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03515 M02S03397.1ma23 ---| VUD5 LDN DLER DETACH LIMIT EXCEEDED ERROR CODE 03516 M01S00013.1ma23 +++| VUD4 LDN DLER DETACH LIMIT EXCEEDED ERROR CODE 03517 M01S03398.1ma +++| LJM PERX ERROR EXIT 03518 M01S03399.1ma +++| WCE SPACE 4,10 03519 M01S03400.1ma +++|** WCE - WRITE CHANGES TO EJT. 03520 M01S03401.1ma +++|* 03521 M01S03402.1ma +++|* ENTRY (CM+1) = NUMBER OF CHANGES TO MAKE. 03522 M01S03403.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY TO CHANGE. 03523 M01S03404.1ma +++|* 03524 M01S03405.1ma +++|* EXIT (A) = 0. 03525 M01S03406.1ma +++|* 03526 M01S03407.1ma +++|* USES CM - CM+4. 03527 M01S03408.1ma +++|* 03528 M01S03409.1ma +++|* MACROS MONITOR. 03529 M01S03410.1ma +++| 03530 M01S03411.1ma +++| 03531 M01S03412.1ma +++| WCE SUBR ENTRY/EXIT 03532 M01S03413.1ma +++| LDN 0 03533 M01S03414.1ma +++| STD CM+2 03534 M01S03415.1ma +++| LDD EJ 03535 M01S03416.1ma +++| STD CM+3 03536 M01S03417.1ma +++| LDD EJ+1 03537 M01S03418.1ma +++| STD CM+4 03538 M01S03419.1ma +++| MONITOR UTEM UPDATE SCHEDULE FIELD AND JOB STATUS 03539 M01S03420.1ma +++|* LDN 0 03540 M01S03421.1ma +++| UJN WCEX EXIT 03541 M01S03422.1ma +++| SPACE 4,10 03542 M01S03423.1ma +++|** COMMON DECKS. 03543 M01S03424.1ma +++| 03544 M01S03425.1ma +++| 03545 M01S03426.1ma +++| AST$ SET 1 ASSEMBLE SSCT/SSAT UPDATE FUNCTIONS 03546 M01S03427.1ma +++|*CALL COMPACS 03547 M01S03428.1ma +++|*CALL COMPAST 03548 M01S03429.1ma +++| QUAL$ SET 0 03549 M01S03430.1ma +++| DTI$ SET 1 03550 M01S03431.1ma +++| CET$ EQU 1 DEFINE *CET* ASSEMBLY 03551 M01S03432.1ma +++|*CALL COMPCPE 03552 M01S03433.1ma +++|*CALL COMPCVI 03553 M01S03434.1ma +++|*CALL COMPRJC 03554 M01S03435.1ma +++|*CALL COMPRSS
| Line S03436 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03555 M02S03436.ns2748 ---|*CALL COMPSTA 03556 M01S03437.1ma +++| CJL$ EQU 1 CHECK SERVICE CLASS AT JOB LIMIT 03557 M01S03438.1ma +++| CUV$ EQU 1 CHECK SERVICE CLASS VALID FOR USER 03558 M01S03439.1ma +++|*CALL COMPVSP 03559 M01S03440.1ma +++| SPACE 4,10 03560 M01S03441.1ma +++| EJEN EQU * 03561 M01S03442.1ma +++| SBUF EQU BFMS-506B SECTOR BUFFER 03562 M01S03443.1ma +++| CBUF EQU SBUF+2 CPA BUFFER 03563 M01S03444.1ma +++| ERRNG SBUF-EJEN-5*EJTE EJT ENTRY OVERFLOWS SECTOR BUFFER 03564 M01S03445.1ma +++| OVERFLOW E1MA 03565 M01S03446.1ma +++| OVERLAY (HIGH USAGE EJT SYSTEM REQUEST PROCESSORS.),E1MA 03566 M01S03447.1ma +++| 2MD SPACE 4,10 03567 M01S03448.1ma +++|**** *2MD* - HIGH USAGE EJT SYSTEM REQUEST PROCESSORS. 03568 M01S03449.1ma +++| 03569 M01S03450.1ma +++| 03570 M01S03451.1ma +++| PRS SUBR ENTRY/EXIT 03571 M01S03452.1ma +++| UJN PRSX EXIT 03572 M01S03453.1ma +++| FTJ SPACE 4,10 03573 M01S03454.1ma +++|** FTJ - FREEZE TERMINAL JOB. 03574 M01S03455.1ma +++|* 03575 M01S03456.1ma +++|* *FTJ* FREEZES THE JOB BY ROLLING IT OUT AND SETTING *DOJS* 03576 M01S03457.1ma +++|* IN THE EJT ENTRY TO KEEP IT ROLLED OUT. *FTJ* THEN ISSUES 03577 M01S03458.1ma +++|* A NULL *TSEM* REQUEST TO INFORM IAF THAT THE SYSTEM NO 03578 M01S03459.1ma +++|* LONGER HAS CONTROL OF THE JOB. THE JOB STATUS 03579 M01S03460.1ma +++|* CONTAINED IN THE EJT IN THE SYSTEM SECTOR IS THE STATUS 03580 M01S03461.1ma +++|* AT THE TIME THE JOB LAST ROLLED OUT. 03581 M01S03462.1ma +++|* 03582 M01S03463.1ma +++|* ENTRY (W1+4) = EJT ORDINAL. 03583 M01S03464.1ma +++|* 03584 M01S03465.1ma +++|* USES T1, W5, CM - CM+4, CN - CN+4. 03585 M01S03466.1ma +++|*
| Line S03467 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03586 M02S03467.271l716 ---|* CALLS IUT. 03587 M01S00021.271l716 +++|* CALLS CAA, IUT. 03588 M01S03468.1ma +++|* 03589 M01S03469.1ma +++|* MACROS DELAY, MONITOR, PAUSE. 03590 M01S03470.1ma +++| 03591 M01S03471.1ma +++| 03592 M01S03472.1ma +++| FTJ BSS 0 ENTRY 03593 M01S03473.1ma +++| LDK 10000+FTJB 03594 M01S03474.1ma +++| RJM IUT SET FORCED ROLLOUT AND CLEAR FORCED ROLLIN 03595 M01S03475.1ma +++| SFA EJT,W1+4 CHECK FOR *EXJS* JOB STATUS 03596 M01S03476.1ma +++| ADK JSNE 03597 M01S03477.1ma +++| CRD CM 03598 M01S03478.1ma +++| ADK SCHE-JSNE 03599 M01S03479.1ma +++| CRD CN 03600 M01S03480.1ma +++| LDD CM+4 CHECK CONNECTION STATUS 03601 M01S03481.1ma +++| SHN -7 03602 M01S03482.1ma +++| LPN 17 03603 M01S03483.1ma +++| SBN OLCS 03604 M01S03484.1ma +++| NJP FTJ3 IF NOT ONLINE 03605 M01S03485.1ma +++| LDD CM+4 03606 M01S03486.1ma +++| LPN 76
| Line S03487 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03607 M02S03487.271l716 ---| SBN EXJS*2
| Line S03488 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03608 M02S03488.271l716 ---| NJN FTJ1 IF NOT *EXJS* JOB STATUS 03609 M01S00022.271l716 +++| SHN -1 03610 M01S00023.271l716 +++| LMN EXJS 03611 M01S00024.271l716 +++| ZJN FTJ0 IF JOB IN CM 03612 M01S00025.271l716 +++| LMN PCJS&EXJS 03613 M01S00026.271l716 +++| NJN FTJ1 IF JOB NOT AT PCP 03614 M01S00027.271l716 +++| LCN 2 03615 M01S00028.271l716 +++| RAM FTJD 03616 M01S03489.1ma +++| 03617 M01S03490.1ma +++|* CLEAR INTERLOCK IN ORDER TO ISSUE THE *ROCM*. 03618 M01S03491.1ma +++|* REQUEST ROLLOUT AND THEN RETURN THE RETRY ERROR CODE TO 03619 M01S03492.1ma +++|* GIVE THE JOB TIME TO ROLL. 03620 M01S03493.1ma +++|
| Line S03494 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03621 M02S03494.271l716 ---| LDC 400000 CLEAR INTERLOCK 03622 M01S00029.271l716 +++| FTJ0 LDC 400000 CLEAR INTERLOCK 03623 M01S03495.1ma +++| RJM IUT 03624 M01S03496.1ma +++| LDN ZERL 03625 M01S03497.1ma +++| CRD CM 03626 M01S03498.1ma +++| LDC 4000+ROSR SELECT SCHEDULER ROLLOUT OPTION 03627 M01S03499.1ma +++| STD CM+1 03628 M01S03500.1ma +++| LDD CN+3 SET CONTROL POINT 03629 M01S00030.271l716 +++|* LDD CN+1 (PCP JOB) 03630 M01S00031.271l716 +++| FTJD EQU *-1 03631 M01S03501.1ma +++| STD CM+2 03632 M01S03502.1ma +++| MONITOR ROCM 03633 M01S03503.1ma +++| LDK RTER RETURN RETRY ERROR CODE 03634 M01S03504.1ma +++| LJM PERX CLEAR INTERLOCK AND DROP 03635 M01S03505.1ma +++| 03636 M01S03506.1ma +++|* IF ROLLED JOB IS NOT IN *IOJS* NOR *DOJS* STATUS, 03637 M01S03507.1ma +++|* THEN SEND A NULL *TSEM* REQUEST TO SET *VROT* COMPLETE 03638 M01S03508.1ma +++|* AND SET *DOJS* JOB STATUS IN THE EJT. 03639 M01S03509.1ma +++|
| Line S03510 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03640 M02S03510.271l716 ---| FTJ1 ADK EXJS*2-DOJS*2 03641 M01S00032.271l716 +++| FTJ1 LMK DOJS&PCJS 03642 M01S03511.1ma +++| ZJN FTJ2 IF *DOJS* JOB STATUS
| Line S03512 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03643 M02S03512.271l716 ---| ADK DOJS*2-IOJS*2 03644 M01S00033.271l716 +++| LMK IOJS&DOJS 03645 M01S03513.1ma +++| ZJN FTJ2 IF *IOJS* JOB STATUS 03646 M01S03514.1ma +++| AOM FTJA SET *DOJS* JOB STATUS 03647 M01S03515.1ma +++| LDD CM+4 03648 M01S03516.1ma +++| LPN 76 03649 M01S03517.1ma +++| SBN SUJS*2 03650 M01S03518.1ma +++| FTJ2 ZJP FTJ3 IF SUSPENDED 03651 M01S03519.1ma +++| RJM CAA LOAD WORD 5 FROM PARAMETER BLOCK 03652 M01S03520.1ma +++| ADN 5 GET THE TERMINAL NUMBER 03653 M01S03521.1ma +++| CRD W5 03654 M01S03522.1ma +++| LDK ZERL ISSUE *VASO* *TSEM* REQUEST 03655 M01S03523.1ma +++| CRD CM 03656 M01S03524.1ma +++| LDD TN 03657 M01S03525.1ma +++| STD CM+4 03658 M01S03526.1ma +++| LDK VASO 03659 M01S03527.1ma +++| STD CM 03660 M01S03528.1ma +++| LDD MA 03661 M01S03529.1ma +++| CWD CM
| Line S03530 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03662 M02S03530.271l716 ---| FTJ2.1 MONITOR TSEM 03663 M01S00034.271l716 +++| FTJ2.1 LDK ZERL 03664 M01S00035.271l716 +++| CRD CM 03665 M01S00036.271l716 +++| MONITOR TSEM 03666 M01S03531.1ma +++| LDD CM+1 03667 M01S03532.1ma +++| ZJN FTJ3 IF *IAF* INACCESSIBLE OR ERROR 03668 M01S03533.1ma +++| LMC 7777 03669 M01S03534.1ma +++| NJN FTJ3 IF REQUEST COMPLETE 03670 M01S03535.1ma +++| PAUSE ST 03671 M01S03536.1ma +++| LDC 3600 *TSEM* QUEUE FULL - DELAY AND RETRY 03672 M01S03537.1ma +++| STD T1 03673 M01S03538.1ma +++| FTJ2.2 DELAY 03674 M01S03539.1ma +++| SOD T1 03675 M01S03540.1ma +++| ZJN FTJ2.1 IF TIME TO REISSUE REQUEST 03676 M01S03541.1ma +++| UJN FTJ2.2 CONTINUE TO DELAY 03677 M01S03542.1ma +++| 03678 M01S03543.1ma +++|* CLEAR FORCED ROLLOUT AND EXIT. 03679 M01S03544.1ma +++| 03680 M01S03545.1ma +++| FTJ3 LDC 1*10000+FTJC CLEAR FORCED ROLLOUT 03681 M01S03546.1ma +++|* LDC 2*10000+FTJC SET *DOJS* STATUS ALSO 03682 M01S03547.1ma +++| FTJA EQU *-2 03683 M01S03548.1ma +++| RJM IUT 03684 M01S03549.1ma +++| LDD W1+4 MUST CLEAR INTERLOCK BEFORE DROPPING 03685 M01S03550.1ma +++| STM PERB 03686 M01S03551.1ma +++| LDN 0 INDICATE NO ERRORS 03687 M01S03552.1ma +++| LJM PERX CLEAR INTERLOCK AND DROP 03688 M01S03553.1ma +++| 03689 M01S03554.1ma +++| FTJB VFD 1/0,5/SCLE,6/2,6/52D,42/2 SET ROLLOUT, CLEAR ROLLIN 03690 M01S03555.1ma +++| FTJC VFD 1/0,5/SCLE,6/1,6/53D,42/0 CLEAR FORCED ROLLOUT 03691 M01S03556.1ma +++| VFD 1/0,5/JSNE,6/5,6/1,42/DOJS SET *DOJS* JOB STATUS 03692 M01S03557.1ma +++| SUB SPACE 4,10 03693 M01S03558.1ma +++|** SUB - SET USER BREAK IN EJT ENTRY. 03694 M01S03559.1ma +++|* 03695 M01S03560.1ma +++|* ENTRY (W1+3) = USER BREAK ERROR FLAG. 03696 M01S03561.1ma +++|* (W1+4) = EJT ORDINAL. 03697 M01S03562.1ma +++|* 03698 M01S03563.1ma +++|* CALLS IUT. 03699 M01S03564.1ma +++| 03700 M01S03565.1ma +++| 03701 M01S03566.1ma +++| SUB BSS 0 ENTRY 03702 M01S03567.1ma +++| 03703 M01S03568.1ma +++|* WHEN SETTING A USER BREAK ERROR FLAG ON A JOB RECENTLY 03704 M01S03569.1ma +++|* RECOVERED, THE JOB STATUS COULD BE *SUJS*. IF SO, CHANGE 03705 M01S03570.1ma +++|* THE STATUS TO *DOJS* SO THAT THE JOB CAN BE ENABLED TO 03706 M01S03571.1ma +++|* PROCESS THE ERROR FLAG. 03707 M01S03572.1ma +++| 03708 M01S03573.1ma +++| SFA EJT,W1+4 CHECK FOR *SUJS* STATUS 03709 M01S03574.1ma +++| ADK JSNE 03710 M01S03575.1ma +++| CRD CM 03711 M01S03576.1ma +++| LDD CM+4 03712 M01S03577.1ma +++| LPN 76 03713 M01S03578.1ma +++| SBN SUJS*2 03714 M01S03579.1ma +++| NJN SUB1 IF NOT *SUJS* STATUS 03715 M01S03580.1ma +++| AOM SUBA SET *DOJS* STATUS 03716 M01S03581.1ma +++| SUB1 LDD W1+3 03717 M01S03582.1ma +++| STM SUBB+4 03718 M01S03583.1ma +++| LDC 1*10000+SUBB SET USER BREAK ERROR FLAG 03719 M01S03584.1ma +++|* LDC 2*10000+SUBB SET *DOJS* STATUS ALSO 03720 M01S03585.1ma +++| SUBA EQU *-2 03721 M01S03586.1ma +++| RJM IUT ISSUE *UTEM* 03722 M01S03587.1ma +++| LJM PERX DROP 03723 M01S03588.1ma +++| 03724 M01S03589.1ma +++| SUBB VFD 1/0,5/PRFE,6/12D,6/36D,42/0 SET USER BREAK ERROR FLAG 03725 M01S03590.1ma +++| VFD 1/0,5/JSNE,6/5,6/1,42/DOJS SET *DOJS* JOB STATUS 03726 M01S03591.1ma +++| TITLE EJT SYSTEM REQUEST SUBROUTINES. 03727 M01S03592.1ma +++| TITLE USER BREAK SUBROUTINES. 03728 M01S03593.1ma +++| IUT SPACE 4,15 03729 M01S03594.1ma +++|** IUT - ISSUE *UTEM* MONITOR FUNCTION. 03730 M01S03595.1ma +++|* 03731 M01S03596.1ma +++|* ENTRY (A) = 1/I, 2/, 3/C, 12/P 03732 M01S03597.1ma +++|* I = 0 IF INTERLOCK SHOULD BE SET. 03733 M01S03598.1ma +++|* = 1 IF INTERLOCK SHOULD BE CLEARED. 03734 M01S03599.1ma +++|* C = NUMBER OF *UTEM* PARAMETER WORDS. 03735 M01S03600.1ma +++|* = 0 IF INTERLOCK REQUEST. 03736 M01S03601.1ma +++|* P = PARAMETER LIST ADDRESS. 03737 M01S03602.1ma +++|* (W1+4) = EJT ORDINAL. 03738 M01S03603.1ma +++|* 03739 M01S03604.1ma +++|* EXIT (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL. 03740 M01S03605.1ma +++|* 03741 M01S03606.1ma +++|* USES CM - CM+4. 03742 M01S03607.1ma +++|* 03743 M01S03608.1ma +++|* MACROS MONITOR. 03744 M01S03609.1ma +++| 03745 M01S03610.1ma +++| 03746 M01S03611.1ma +++| IUT SUBR ENTRY/EXIT 03747 M01S03612.1ma +++| STM IUTA PARAMETER LIST ADDRESS 03748 M01S03613.1ma +++| SHN -14 03749 M01S03614.1ma +++| STD CM+1 03750 M01S03615.1ma +++| LPN 7 NUMBER OF PARAMETER WORDS 03751 M01S03616.1ma +++| ZJN IUT1 IF NO PARAMETER WORDS 03752 M01S03617.1ma +++| STD CM+2 03753 M01S03618.1ma +++| LDD MA WRITE PARAMETERS TO MESSAGE BUFFER 03754 M01S03619.1ma +++| CWM **,CM+2 03755 M01S03620.1ma +++| IUTA EQU *-1 03756 M01S03621.1ma +++| LDN 0 03757 M01S03622.1ma +++| IUT1 STD CM+2 03758 M01S03623.1ma +++| SFA EJT,W1+4 SET UP EJT ADDRESS 03759 M01S03624.1ma +++| STD CM+4 03760 M01S03625.1ma +++| SHN -14 03761 M01S03626.1ma +++| STD CM+3 03762 M01S03627.1ma +++| MONITOR UTEM 03763 M01S03628.1ma +++| LDD CM+1 03764 M01S03629.1ma +++| UJN IUTX RETURN 03765 M01S03630.1ma +++| SPACE 4,10
| Line S03631 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03766 M02S03631.ns2748 ---|** COMMON DECKS.
| Line S03632 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03767 M02S03632.ns2748 ---|
| Line S03633 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03768 M02S03633.ns2748 ---|
| Line S03634 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03769 M02S03634.ns2748 ---|*CALL COMPSTA 03770 M01S03635.1ma +++| OVERFLOW E1MA 03771 M01S03636.1ma +++| OVERLAY (PROCESS CLOCK UPDATE.),E1MA 03772 M01S03637.1ma +++| PCU SPACE 4,10 03773 M01S03638.1ma +++|*** *PCU* - PROCESS CLOCK UPDATE. 03774 M01S03639.1ma +++|* 03775 M01S03640.1ma +++|* *PCU* WILL DELAY INTERNALLY UNTIL *PDTL* INDICATES THAT A 03776 M01S03641.1ma +++|* MINUTE ROLLOVER OCCURS (DUE TO THE HARDWARE CHARACTERISTICS 03777 M01S03642.1ma +++|* OF THE WALL CLOCK CHIP HARDWARE IN SOME CYBER 180 MODELS) 03778 M01S03643.1ma +++|* AND THEN WRITE A REQUEST INTO THE *DFT/OS BUFFER* SO THAT 03779 M01S03644.1ma +++|* *1MB* WILL BE CALLED BY *MTR* TO UPDATE THE WALL CLOCK CHIP 03780 M01S03645.1ma +++|* (IF PRESENT) AND/OR CTI-MAINTAINED CLOCK VIA *DFT*. 03781 M01S03646.1ma +++| 03782 M01S03647.1ma +++| 03783 M01S03648.1ma +++| PCU SUBR ENTRY/EXIT 03784 M01S03649.1ma +++| RJM PRS PRESET PROGRAM 03785 M01S00001.1ma24 +++| RJM WDC WAIT FOR DEADSTART COMPLETE 03786 M01S03650.1ma +++| RJM WIB WAIT FOR INACTIVE NOS REQUEST AREA 03787 M01S03651.1ma +++| RJM WMR WAIT FOR MINUTE ROLLOVER 03788 M01S03652.1ma +++| RJM FDR FORMAT *DFT* REQUEST ENTRY 03789 M01S03653.1ma +++| RJM CRF CLEAR CTI CLOCK UPDATE ACTIVE FLAG 03790 M01S03654.1ma +++| UJN PCUX RETURN 03791 M01S03655.1ma +++| TITLE SUBROUTINES. 03792 M01S03656.1ma +++| CRF SPACE 4,10 03793 M01S03657.1ma +++|** CRF - CLEAR CTI CLOCK UPDATE ACTIVE FLAG. 03794 M01S03658.1ma +++|* 03795 M01S03659.1ma +++|* EXIT CTI CLOCK UPDATE ACTIVE FLAG CLEARED IN CMR. 03796 M01S03660.1ma +++|* 03797 M01S03661.1ma +++|* USES CM - CM+4. 03798 M01S03662.1ma +++|* 03799 M01S03663.1ma +++|* MACROS MONITOR. 03800 M01S03664.1ma +++| 03801 M01S03665.1ma +++| 03802 M01S03666.1ma +++| CRF SUBR ENTRY/EXIT 03803 M01S03667.1ma +++| LDN ZERL SET UP *UADM* CALL 03804 M01S03668.1ma +++| CRD CM 03805 M01S03669.1ma +++| AOD CM+1 SET OPTION COUNT 03806 M01S03670.1ma +++| STD CM+2 SET *NODROP* FLAG 03807 M01S03671.1ma +++| LDD MA WRITE *UADM* PARAMETERS 03808 M01S03672.1ma +++| CWM CRFA,ON 03809 M01S03673.1ma +++| MONITOR UADM CLEAR CTI CLOCK UPDATE ACTIVE FLAG 03810 M01S03674.1ma +++| UJN CRFX RETURN 03811 M01S03675.1ma +++| 03812 M01S03676.1ma +++| 03813 M01S03677.1ma +++|* *UADM* PARAMETERS TO CLEAR CTI CLOCK UPDATE ACTIVE FLAG. 03814 M01S03678.1ma +++| 03815 M01S03679.1ma +++| CRFA VFD 12/LDOS,12/INWL,12/3*100+1,24/0 03816 M01S03680.1ma +++| FDR SPACE 4,10 03817 M01S03681.1ma +++|** FDR - FORMAT *DFT* REQUEST. 03818 M01S03682.1ma +++|* 03819 M01S03683.1ma +++|* EXIT FORMATTED REQUEST WRITTEN TO NOS REQUEST AREA. 03820 M01S03684.1ma +++|* 03821 M01S03685.1ma +++|* USES T1, CM - CM+4, CN - CN+4. 03822 M01S03686.1ma +++|* 03823 M01S03687.1ma +++|* CALLS PDT, SDA. 03824 M01S03688.1ma +++|* 03825 M01S03689.1ma +++|* MACROS DELAY, MONITOR. 03826 M01S03690.1ma +++| 03827 M01S03691.1ma +++| 03828 M01S03692.1ma +++| FDR SUBR ENTRY/EXIT 03829 M01S03693.1ma +++| 03830 M01S03694.1ma +++|* OBTAIN INTERLOCK ON NOS REQUEST AREA. 03831 M01S03695.1ma +++| 03832 M01S03696.1ma +++| FDR1 RJM SDA SET ADDRESS OF NOS REQUEST HEADER 03833 M01S03697.1ma +++| STD CM+4 SAVE ADDRESS FOR *UTEM* 03834 M01S03698.1ma +++| SHN -14 03835 M01S03699.1ma +++| STD CM+3 03836 M01S03700.1ma +++| LDN 2 SET NUMBER OF REQUESTS 03837 M01S03701.1ma +++| STD CM+1 03838 M01S03702.1ma +++| LDD MA WRITE REQUESTS TO MESSAGE BUFFER 03839 M01S03703.1ma +++| CWM FDRB,CM+1 03840 M01S03704.1ma +++| MONITOR UTEM ATTEMPT TO GET INTERLOCK 03841 M01S03705.1ma +++| LDD CM+1 CHECK STATUS 03842 M01S03706.1ma +++| ZJN FDR2 IF INTERLOCK OBTAINED 03843 M01S03707.1ma +++| DELAY 03844 M01S03708.1ma +++| UJN FDR1 RETRY INTERLOCK ATTEMPT 03845 M01S03709.1ma +++| 03846 M01S03710.1ma +++|* FORMAT REQUEST. 03847 M01S03711.1ma +++|
| Line S03712 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 03848 M02S03712.ns2738 ---| FDR2 LDN RQDT SET TASKID FOR CLOCK UPDATE 03849 M01S00003.ns2738 +++| FDR2 LDN /DFT/RQDT SET TASKID FOR CLOCK UPDATE 03850 M01S03713.1ma +++| STD T1 03851 M01S03714.1ma +++| RJM PDT PACK DATE AND TIME 03852 M01S03715.1ma +++| LDN ACPL CHECK CPU-0 *OFF* STATUS 03853 M01S03716.1ma +++| CRD CM 03854 M01S03717.1ma +++| LDD CM 03855 M01S03718.1ma +++| SHN 21-13 03856 M01S03719.1ma +++| PJN FDR3 IF CPU-0 *ON* 03857 M01S03720.1ma +++| AOM FDRA CHANGE TO READ *FRC* FOR CPU-1
| Line S03721 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03858 M02S03721.271l750 ---| FDR3 LDC BIOL 03859 M01S00002.271l750 +++| FDR3 LDC CMTP 03860 M01S03722.1ma +++| CRD CM 03861 M01S03723.1ma +++| LDD CM+3 SET FWA OF *CPUMTR* 03862 M01S03724.1ma +++| SHN 14 03863 M01S03725.1ma +++| LMD CM+4
| Line S03726 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03864 M02S03726.271l750 ---| FDRA ADN 1 READ *FRC* FOR CPU-0
| Line S03727 Modification History | |
|---|---|
M01 (Added by) | 1ma |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03865 M02S03727.271l750 ---|* ADN 2 (CPU-0 *OFF*) 03866 M01S00003.271l750 +++| FDRA ADN CPBT READ *FRC* FOR CPU-0 03867 M01S00004.271l750 +++|* ADN CPBT+1 (CPU-0 *OFF*) 03868 M01S03728.1ma +++| CRD CM
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | ns2761 |
Seq # *Modification Id* Act ----------------------------+ 03869 M02S00005.ns2761 ---| LDN 0 CLEAR MONITOR MODE STATUS
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | ns2761 |
Seq # *Modification Id* Act ----------------------------+ 03870 M02S00006.ns2761 ---| STD CM
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1ma.001.txt · Last modified: by 127.0.0.1