cdc:nos2.source:opl.opl871:deck:1ma.001
Deck 1MA Part 001
17 Modifications
Listing Sections
- Deck 1MA Start
- Deck 1MA Part 1 (Line 2109)
- Deck 1MA Part 2 (Line 3874)
Source
Seq # *Modification Id* Act ----------------------------+ 02109 M00S02096.1ma +++| CRD CM 02110 M00S02097.1ma +++| LDD FS+4 02111 M00S02098.1ma +++| RFEE SHN 3 02112 M00S02099.1ma +++|* SHN 3+UESC 02113 M00S02100.1ma +++| STD CM+1 02114 M00S02101.1ma +++| SHN -14 02115 M00S02102.1ma +++| STD CM 02116 M00S02103.1ma +++| LJM RFEX RETURN 02117 M00S02104.1ma +++| 02118 M00S02105.1ma +++|* EXTENDED MEMORY NOT AVAILABLE. 02119 M00S02106.1ma +++| 02120 M00S02107.1ma +++| RFE9 PJN RFE10 IF STORAGE UNASSIGNED WAITING FOR *1SJ* 02121 M00S02108.1ma +++| LDD CP CHECK IF JOB ROLLABLE 02122 M00S02109.1ma +++| ADN JCIW 02123 M00S02110.1ma +++| CRD SP 02124 M00S02111.1ma +++| LDD SP+3 CHECK FOR *DIS* JOB 02125 M00S02112.1ma +++| LPC 1000 02126 M00S02113.1ma +++| ADD SP+2 CHECK FOR NON-ROLLABLE JOB 02127 M00S02114.1ma +++| NJN RFE10 IF JOB NOT ROLLABLE 02128 M00S02115.1ma +++| STD CM+1 ROLLOUT CONTROL POINT 02129 M00S02116.1ma +++| MONITOR ROCM 02130 M00S02117.1ma +++| UJN RFE11 ENTER RECALL 02131 M00S02118.1ma +++| 02132 M00S02119.1ma +++|* EXTENDED MEMORY AVAILABLE BUT NOT ASSIGNED. 02133 M00S02120.1ma +++| 02134 M00S02121.1ma +++| RFE10 LDD CP SET WAITING MESSAGE 02135 M00S02122.1ma +++| ADN MS2W 02136 M00S02123.1ma +++| CWM =C*WAITING FOR STORAGE (EM). *,TR 02137 M00S02124.1ma +++| RFE11 LDN EFIR SET ECS FL INCREASE PENDING REASON CODE 02138 M00S02125.1ma +++| LJM RCL ENTER PP RECALL 02139 M00S02126.1ma +++| 02140 M00S02127.1ma +++|* INSURE JOB CAN BE INCREASED TO AT LEAST MINIMUM CM. 02141 M00S02128.1ma +++| 02142 M00S02129.1ma +++| RFE12 LDD CP GET CM CONTROL WORD 02143 M00S02130.1ma +++| ADN FLCW 02144 M00S02131.1ma +++| CRD CM 02145 M00S02132.1ma +++| LDD CM 02146 M00S02133.1ma +++| ADC -MCMX/100 02147 M00S02134.1ma +++| MJN RFE14 IF MFL .LT. MINIMUM FL WITH ECS 02148 M00S02135.1ma +++| 02149 M00S02136.1ma +++|* REQUEST MINIMUM CM FOR JOB. 02150 M00S02137.1ma +++| 02151 M00S02138.1ma +++| LDD FL SAVE CURRENT CM FL 02152 M00S02139.1ma +++| STD T4 02153 M00S02140.1ma +++| LDC MCMX/100 REQUEST MINIMUM CM FL 02154 M00S02141.1ma +++| RJM RSI 02155 M00S02142.1ma +++| ZJN RFE13 IF ASSIGNED 02156 M00S02143.1ma +++| LJM RFL20 WAIT FOR CM STORAGE 02157 M00S02144.1ma +++| 02158 M00S02145.1ma +++|* CLEAR CM FL INCREASE WHEN ASSIGNED. 02159 M00S02146.1ma +++| 02160 M00S02147.1ma +++| RFE13 RJM CLM CLEAR ADDITION MEMORY 02161 M00S02148.1ma +++| LJM RFE1 PROCESS EXTENDED MEMORY REQUEST 02162 M00S02149.1ma +++| 02163 M00S02150.1ma +++| RFE14 LDC =C* MFL LESS THAN EXTENDED MEMORY MINIMUM CM FL.* 02164 M00S02151.1ma +++| LJM ERR PROCESS ERROR 02165 M00S02152.1ma +++| SPACE 4,10 02166 M00S02153.1ma +++|** COMMON DECKS. 02167 M00S02154.1ma +++| 02168 M00S02155.1ma +++| 02169 M00S02156.1ma +++|*CALL COMPREI 02170 M00S02157.1ma +++| OVERFLOW E1MA 02171 M00S02158.1ma +++| TTL 1MA/2MZ - EJT SYSTEM REQUEST FUNCTION PROCESSORS. 02172 M00S02159.1ma +++| OVERLAY (EJT SYSTEM REQUEST PROCESSORS.),E1MA 02173 M00S02160.1ma +++| 2MC SPACE 4,10 02174 M00S02161.1ma +++|***** *2MC* - EJT SYSTEM REQUEST PROCESSORS. 02175 M00S02162.1ma +++| 02176 M00S02163.1ma +++| 02177 M00S02164.1ma +++| PRS SUBR ENTRY/EXIT 02178 M00S02165.1ma +++| UJN PRSX EXIT 02179 M00S02166.1ma +++| DTC SPACE 4,10 02180 M00S02167.1ma +++|** DTC - DETACH JOB FROM CALLER. 02181 M00S02168.1ma +++|*
| Line S02169 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02182 M01S02169.ns2658 ---|* CALLS CAA, GTN, RRF, SAM, SEA, STO, TAS, VSC, VUD, WCE, WDS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02183 M01S00001.ns2658 +++|* CALLS CAA, GTN, PES, RRF, SAM, SEA, STO, TAS, VSC, VUD, WCE, 02184 M01S00002.ns2658 +++|* WDS. 02185 M00S02170.1ma +++|* 02186 M00S02171.1ma +++|* MACROS ENDMS, SETMS. 02187 M00S02172.1ma +++| 02188 M00S02173.1ma +++| 02189 M00S02174.1ma +++| DTC BSS 0 ENTRY 02190 M00S02175.1ma +++| LDD W1+4 SET TO CLEAR INTERLOCK 02191 M00S02176.1ma +++| STM PERB 02192 M00S02177.1ma +++| RJM CAA READ OTHER PARAMETER BLOCK WORDS 02193 M00S02178.1ma +++| ADN 3 02194 M00S02179.1ma +++| CRD W3 02195 M00S02180.1ma +++| ADN 1 02196 M00S02181.1ma +++| CRD W4 02197 M00S02182.1ma +++| RJM SEA SET ENTRY ADDRESS 02198 M00S02183.1ma +++| CRM EJEN,EL READ EJT ENTRY WORDS 02199 M00S02184.1ma +++| 02200 M00S02185.1ma +++|* CHECK JOB STATUS, CONNECTION STATUS AND SERVICE CLASS. 02201 M00S02186.1ma +++|* JOB STATUS MUST BE EITHER *DOJS* OR *IOJS* BECAUSE A 02202 M00S02187.1ma +++|* *FJEJ* MONITOR FUNCTION IS ALWAYS ISSUED BEFORE *DTEJ*. 02203 M00S02188.1ma +++| 02204 M00S02189.1ma +++| LDM EJEN+JSNE*5+4 02205 M00S02190.1ma +++| SHN -7 02206 M00S02191.1ma +++| LPN 17
| Line S02192 Modification History | |
|---|---|
M01 (Removed by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02207 M01S02192.1ma22 ---| SBN OLCS 02208 M01S02193.1ma22 ---| ZJN DTC0 IF ONLINE CONNECTION STATUS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ma22 |
M02 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02209 M02S00001.ns2658 ---| SBN NICS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02210 M01S00003.ns2658 +++| SBK NICS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02211 M01S00002.1ma22 +++| NJN DTC0 IF SOME SORT OF CONNECTED STATUS 02212 M01S00003.1ma22 +++| ERRNZ MXCS-3 ERROR IN CONNECTION STATUS CHECK 02213 M00S02194.1ma +++| LDN JOER JOB NOT ONLINE 02214 M00S02195.1ma +++| LJM PERX ERROR EXIT 02215 M00S02196.1ma +++| 02216 M00S02197.1ma +++| DTC0 LDM EJEN+JSNE*5+4 CHECK CURRENT JOB STATUS 02217 M00S02198.1ma +++| LPN 76 02218 M00S02199.1ma +++| SBN IOJS*2 02219 M00S02200.1ma +++| ZJN DTC1 IF *IOJS* STATUS 02220 M00S02201.1ma +++| SBN DOJS*2-IOJS*2
| Line S02202 Modification History | |
|---|---|
M01 (Removed by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02221 M01S02202.1ma22 ---| NJN DTC2 IF NEITHER *DOJS* NOR *IOJS* STATUS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02203.1ma +++| DTC1 STD SC PRESET NO SERVICE CLASS CHANGE 02226 M00S02204.1ma +++| 02227 M00S02205.1ma +++|* CHECK DETACH REASON CODE. 02228 M00S02206.1ma +++| 02229 M00S02207.1ma +++| LDD W2+1 02230 M00S02208.1ma +++| SHN -6 02231 M00S02209.1ma +++| ZJN DTC2 IF NO REASON CODE 02232 M00S02210.1ma +++| STD T1 02233 M00S02211.1ma +++| SBN TAMRL+1 02234 M00S02212.1ma +++| MJN DTC3 IF VALID REASON CODE 02235 M00S02213.1ma +++| DTC2 LDN JDER JOB CANNOT BE DETACHED 02236 M00S02214.1ma +++| LJM PERX ERROR EXIT 02237 M00S02215.1ma +++| 02238 M00S02216.1ma +++| DTC3 LDM TAMR-1,T1 MOVE REASON CODE 02239 M00S02217.1ma +++| STM SAMB+1 02240 M00S02218.1ma +++| 02241 M00S02219.1ma +++|* READ DISK AND VALIDATE USER DETACH. 02242 M00S02220.1ma +++| 02243 M00S02221.1ma +++| LDN 0 02244 M00S02222.1ma +++| RJM RRF READ ROLLOUT FILE 02245 M00S02223.1ma +++| RJM VSC VALIDATE SERVICE CLASS 02246 M00S02224.1ma +++| RJM VUD VALIDATE USER DETACH 02247 M00S02225.1ma +++| 02248 M00S02226.1ma +++|* MAKE JOB STATUS AND CONNECTION STATUS CHANGES. 02249 M00S02227.1ma +++|* JOB STATUS MUST BE OBTAINED FROM THE SYSTEM SECTOR COPY 02250 M00S02228.1ma +++|* OF THE EJT BECAUSE THE *FJEJ* FUNCTION REQUEST SETS 02251 M00S02229.1ma +++|* *DOJS* JOB STATUS IN THE EJT TO KEEP THE JOB ROLLED 02252 M00S02230.1ma +++|* OUT UNTIL IAF CAN ISSUE THE *DTEJ* FUNCTION. THE 02253 M00S02231.1ma +++|* SYSTEM SECTOR COPY CONTAINS THE JOB STATUS PRESENT 02254 M00S02232.1ma +++|* AT LAST ROLLOUT. 02255 M00S02233.1ma +++| 02256 M00S02234.1ma +++| LDM EJEN+SCLE*5 SAVE CURRENT SERVICE CLASS FOR RECOVERY 02257 M00S02235.1ma +++| SHN -6 02258 M00S02236.1ma +++| STD W3+2 02259 M00S02237.1ma +++| LDM EJSS+JSNE*5+4 GET JOB STATUS FROM SYSTEM SECTOR 02260 M00S02238.1ma +++| LPN 76 02261 M00S02239.1ma +++| SBN IOJS*2
| Line S02240 Modification History | |
|---|---|
M01 (Removed by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02262 M01S02240.ns2635 ---| ZJN DTC4 IF TERMINAL I/O JOB STATE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S00001.ns2635 +++| ZJN DTC3.2 IF TERMINAL I/O JOB STATE 02264 M00S02241.1ma +++| SBN DOJS*2-IOJS*2
| Line S02242 Modification History | |
|---|---|
M01 (Removed by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02265 M01S02242.ns2635 ---| ZJN DTC4 IF DISABLED JOB STATE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02266 M01S00002.ns2635 +++| ZJN DTC3.2 IF DISABLED JOB STATE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1ma22 |
Seq # *Modification Id* Act ----------------------------+ 02267 M01S00007.1ma22 +++| SBN SUJS*2-DOJS*2 02268 M01S00008.1ma22 +++| ZJN DTC4 IF SUSPENDED (IAF MISSING)
| Line S02243 Modification History | |
|---|---|
M01 (Removed by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02269 M01S02243.ns2635 ---| SOM STOD DISABLE EJT TIMEOUT UPDATE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02270 M01S00003.ns2635 +++| DTC3.1 SOM STOD DISABLE EJT TIMEOUT UPDATE 02271 M00S02244.1ma +++| LJM DTC6 MAKE CHANGE 02272 M00S02245.1ma +++|
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02246.1ma +++| DTC4 LDD EJ SAVE JOB STATUS AND SCHEDULE FIELD 02278 M00S02247.1ma +++| SHN 14 02279 M00S02248.1ma +++| LMD EJ+1 02280 M00S02249.1ma +++| ADK JSNE 02281 M00S02250.1ma +++| CRM EJSS,ON 02282 M00S02251.1ma +++| ADK SCHE-JSNE-1 02283 M00S02252.1ma +++| CRM EJSS+SCHE*5,ON 02284 M00S02253.1ma +++| ADK SCLE-SCHE-1 02285 M00S02254.1ma +++| CRD CN 02286 M00S02255.1ma +++| LDD W3+2 02287 M00S02256.1ma +++| SBD SC 02288 M00S02257.1ma +++| NJN DTC4.1 IF CHANGE IN SERVICE CLASS 02289 M00S02258.1ma +++| STD SC INDICATE NO SERVICE CLASS CHANGE 02290 M00S02259.1ma +++| DTC4.1 LDD SC 02291 M00S02260.1ma +++| ZJN DTC5 IF NO SERVICE CLASS CHANGE 02292 M00S02261.1ma +++| STM DTCC+4 02293 M00S02262.1ma +++| SHN 6 02294 M00S02263.1ma +++| STD CN 02295 M00S02264.1ma +++| AOM DTCA INCREMENT REQUEST COUNT 02296 M00S02265.1ma +++| DTC5 LDK SUJS SUSPEND DIRECTLY 02297 M00S02266.1ma +++| STM DTCB+11B 02298 M00S02267.1ma +++| LDN 1 02299 M00S02268.1ma +++| RAM STOB SET TO LEAVE INTERLOCKED
| Line S02269 Modification History | |
|---|---|
M01 (Removed by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 02300 M01S02269.ns2635 ---| LDM CBUF+EOJW*5 READ END-OF-JOB STATUS WORD 02301 M01S02270.ns2635 ---| SHN 0-11 02302 M01S02271.ns2635 ---| LMN SUJT 02303 M01S02272.ns2635 ---| NJN DTC6 IF NOT SUSPEND OPTION 02304 M00S02273.1ma +++| LDN 1 02305 M00S02274.1ma +++| RAM STOA SET TO EXTEND TIMEOUT 02306 M00S02275.1ma +++| DTC6 LDD SC CHANGE SERVICE CLASS 02307 M00S02276.1ma +++| STM CSSS ADD CHANGE TO SYSTEM SECTOR 02308 M00S02277.1ma +++| 02309 M00S02278.1ma +++|* SET UP RECOVERY TABLE. 02310 M00S02279.1ma +++| 02311 M00S02280.1ma +++| LDD CP READ SUBSYSTEM IDENTIFICATION 02312 M00S02281.1ma +++| ADN JCIW 02313 M00S02282.1ma +++| CRD CM 02314 M00S02283.1ma +++| LDD CM+2 SET SSID FIELD 02315 M00S02284.1ma +++| STD W3 02316 M00S02285.1ma +++| 02317 M00S02286.1ma +++|* PUT RECOVERY TABLE INTO SYSTEM SECTOR. 02318 M00S02287.1ma +++| 02319 M00S02288.1ma +++| LDD MA TRANSFER RECOVERY WORDS 02320 M00S02289.1ma +++| CWD W3 02321 M00S02290.1ma +++| CRM R1SS,ON 02322 M00S02291.1ma +++| CWD W4 02323 M00S02292.1ma +++| CRM R2SS,ON 02324 M00S02293.1ma +++| CWM CBUF+SRUW*5,ON TRANSFER SRU-S 02325 M00S02294.1ma +++| SBN 1 02326 M00S02295.1ma +++| CRD W3 02327 M00S02296.1ma +++| LDM EJEN+SCHE*5 RESET DISK ADDRESS 02328 M00S02297.1ma +++| STD T5 02329 M00S02298.1ma +++| LDM EJEN+SCHE*5+1 02330 M00S02299.1ma +++| STD T6 02331 M00S02300.1ma +++| LDN 0 02332 M00S02301.1ma +++| STD T7 02333 M00S02302.1ma +++| STD FA 02334 M00S02303.1ma +++| SETMS IO,RW 02335 M00S02304.1ma +++| LDC BFMS SET BUFFER ADDRESS 02336 M00S02305.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02306 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02337 M01S02306.ns2658 ---| PJN DTC7 IF NO MASS STORAGE ERROR 02338 M01S02307.ns2658 ---| LDN ERER I/O ERROR ENCOUNTERED ON DEVICE 02339 M01S02308.ns2658 ---| UJN DTC8 RETURN 02340 M01S02309.ns2658 ---| 02341 M01S02310.ns2658 ---| DTC7 ENDMS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02342 M01S00004.ns2658 +++| RJM PES PROCESS ERROR STATUS 02343 M01S00005.ns2658 +++| ENDMS 02344 M00S02311.1ma +++| RJM GTN SET TERMINAL NAME IN PARAMETER BLOCK 02345 M00S02312.1ma +++| LDN W3 02346 M00S02313.1ma +++| RJM TAS TRANSFER ACCUMULATED SRU-S 02347 M00S02314.1ma +++| RJM STO SET TIMEOUT 02348 M00S02315.1ma +++| LDN 2 02349 M00S02316.1ma +++|* LDN 3 (IF SERVICE CLASS CHANGE) 02350 M00S02317.1ma +++| DTCA EQU *-1 REQUEST COUNT 02351 M00S02318.1ma +++| STD CM+1 02352 M00S02319.1ma +++| LDD MA PLACE REQUEST(S) IN MESSAGE BUFFER 02353 M00S02320.1ma +++| CWM DTCB,CM+1 PLACE REQUEST 02354 M00S02321.1ma +++| RJM WCE WRITE CHANGE TO EJT 02355 M00S02322.1ma +++| 02356 M00S02323.1ma +++|* SEND ACCOUNTING MESSAGES. 02357 M00S02324.1ma +++| 02358 M00S02325.1ma +++| LDC 2RAS SET UP MESSAGE 02359 M00S02326.1ma +++| STM SAMB 02360 M00S02327.1ma +++| AOM SAMJ 02361 M00S02328.1ma +++| RJM SAM SEND DETACH MESSAGE 02362 M00S02329.1ma +++| 02363 M00S02330.1ma +++|* RETURN JOB ACCESS LEVEL LIMIT OF DETACHED JOB. 02364 M00S02331.1ma +++| 02365 M00S02332.1ma +++| LDM EJEN+PRFE*5+2 GET JOB ACCESS LEVEL LIMIT 02366 M00S02333.1ma +++| LPN 7 02367 M00S02334.1ma +++| SHN 6 02368 M00S02335.1ma +++| RAD W2+0 02369 M00S02336.1ma +++| LDN 0
| Line S02337 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02370 M01S02337.ns2658 ---| DTC8 LJM PERX EXIT
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02371 M01S00006.ns2658 +++| LJM PERX EXIT 02372 M00S02338.1ma +++| 02373 M00S02339.1ma +++| 02374 M00S02340.1ma +++| DTCB VFD 6/JSNE,6/4,6/7,42/DTCS 02375 M00S02341.1ma +++| VFD 6/JSNE,6/5,6/1,42/ROJS 02376 M00S02342.1ma +++| DTCC VFD 6/SCLE,6/6,6/54D,42/0 SERVICE CLASS CHANGE 02377 M00S02343.1ma +++| TAMR SPACE 4,10 02378 M00S02344.1ma +++|** TAMR - TABLE OF ACCOUNTING MESSAGE REASONS. 02379 M00S02345.1ma +++| 02380 M00S02346.1ma +++| 02381 M00S02347.1ma +++| TAMR BSS 0 02382 M00S02348.1ma +++| DATA 2LTH HANG UP PHONE 02383 M00S02349.1ma +++| DATA 2LTT TIMEOUT 02384 M00S02350.1ma +++| DATA 2LTR SUBSYSTEM ABORT 02385 M00S02351.1ma +++| DATA 2LTD USER DETACH 02386 M00S02352.1ma +++| DATA 2LTP PROGRAM INITIATED DETACH 02387 M00S02353.1ma +++| DATA 2LTU PROGRAM INITIATED DETACH AND LOGOUT 02388 M00S02354.1ma +++| 02389 M00S02355.1ma +++| TAMRL EQU *-TAMR 02390 M00S02356.1ma +++| GTN SPACE 4,15 02391 M00S02357.1ma +++|** GTN - GET TERMINAL NAME. 02392 M00S02358.1ma +++|* 02393 M00S02359.1ma +++|* EXIT TERMINAL NAME WRITTEN TO PARAMETER BLOCK. 02394 M00S02360.1ma +++|* 02395 M00S02361.1ma +++|* ERROR TO *PERX* IF ERROR ON READ. 02396 M00S02362.1ma +++|* 02397 M00S02363.1ma +++|* USES T5, T6, CM - CM+4. 02398 M00S02364.1ma +++|*
| Line S02365 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02399 M01S02365.ns2658 ---|* CALLS CAA, RSS.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02400 M01S00007.ns2658 +++|* CALLS CAA, PES, RSS. 02401 M00S02366.1ma +++|* 02402 M00S02367.1ma +++|* MACROS ENDMS, SETMS. 02403 M00S02368.1ma +++| 02404 M00S02369.1ma +++| 02405 M00S02370.1ma +++| GTN SUBR 02406 M00S02371.1ma +++| LDM IFSS INPUT FILE FST WORD 02407 M00S02372.1ma +++| STD T5 02408 M00S02373.1ma +++| LDM IFSS+1 02409 M00S02374.1ma +++| STD T6 02410 M00S02375.1ma +++| SETMS IO 02411 M00S02376.1ma +++| LDN 0 02412 M00S02377.1ma +++| RJM RSS READ SYSTEM SECTOR
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02413 M01S00008.ns2658 +++| RJM PES PROCESS ERROR STATUS 02414 M00S02378.1ma +++| NJN GTN1 IF ERROR ENCOUNTERED 02415 M00S02379.1ma +++| ENDMS 02416 M00S02380.1ma +++| LDD MA PICK UP TERMINAL NAME 02417 M00S02381.1ma +++| CWM TNSS,ON 02418 M00S02382.1ma +++| SBN 1 02419 M00S02383.1ma +++| CRD CM 02420 M00S02384.1ma +++| LDN 0 02421 M00S02385.1ma +++| STD CM+4 02422 M00S02386.1ma +++| LDD CM+3 02423 M00S02387.1ma +++| SCN 77 02424 M00S02388.1ma +++| STD CM+3 02425 M00S02389.1ma +++| RJM CAA GET PARAMETER NAME BLOCK ADDRESS 02426 M00S02390.1ma +++| ADN 6 02427 M00S02391.1ma +++| CWD CM ADD TERMINAL TO PARAMETER BLOCK
| Line S02392 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02428 M01S02392.ns2658 ---| UJN GTNX RETURN
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02429 M01S00009.ns2658 +++| UJP GTNX RETURN 02430 M00S02393.1ma +++| 02431 M00S02394.1ma +++| GTN1 LDN ERER ERROR ON READ ERROR CODE 02432 M00S02395.1ma +++| LJM PERX ERROR EXIT 02433 M00S02396.1ma +++| PTN SPACE 4,15 02434 M00S02397.1ma +++|** PTN - PUT TERMINAL NAME. 02435 M00S02398.1ma +++|* 02436 M00S02399.1ma +++|* EXIT TERMINAL NAME UPDATED IN SYSTEM SECTOR. 02437 M00S02400.1ma +++|* (SAMD) = TERMINAL NAME. 02438 M00S02401.1ma +++|* 02439 M00S02402.1ma +++|* ERROR TO *PERX* IF I/O ERROR ENCOUNTERED. 02440 M00S02403.1ma +++|* 02441 M00S02404.1ma +++|* USES T5, T6, T7, CM - CM+4. 02442 M00S02405.1ma +++|*
| Line S02406 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02443 M01S02406.ns2658 ---|* CALLS CAA, RDS, WDS.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02444 M01S00010.ns2658 +++|* CALLS CAA, PES, RDS, WDS. 02445 M00S02407.1ma +++|* 02446 M00S02408.1ma +++|* MACROS ENDMS, SETMS. 02447 M00S02409.1ma +++| 02448 M00S02410.1ma +++| 02449 M00S02411.1ma +++| PTN SUBR 02450 M00S02412.1ma +++| RJM CAA GET PARAMETER NAME BLOCK ADDRESS 02451 M00S02413.1ma +++| ADN 6 02452 M00S02414.1ma +++| CRM SAMD,ON GET TERMINAL FROM PARAMETER BLOCK 02453 M00S02415.1ma +++| LDM IFSS INPUT FILE FST WORD 02454 M00S02416.1ma +++| STD T5 02455 M00S02417.1ma +++| LDM IFSS+1 02456 M00S02418.1ma +++| STD T6 02457 M00S02419.1ma +++| LDN 0 02458 M00S02420.1ma +++| STD T7 02459 M00S02421.1ma +++| SETMS IO 02460 M00S02422.1ma +++| LDC SBUF 02461 M00S02423.1ma +++| RJM RDS READ INPUT FILE SYSTEM SECTOR
| Line S02424 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02462 M01S02424.ns2658 ---| PJN PTN2 IF NO READ ERROR ENCOUNTERED 02463 M01S02425.ns2658 ---| PTN1 LDN ERER I/O ERROR ENCOUNTERED 02464 M01S02426.ns2658 ---| LJM PERX ERROR EXIT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02465 M01S00011.ns2658 +++| RJM PES PROCESS ERROR STATUS 02466 M01S00012.ns2658 +++| ENDMS 02467 M00S02427.1ma +++| 02468 M00S02428.1ma +++|* UPDATE TERMINAL NAME IN SYSTEM SECTOR. 02469 M00S02429.1ma +++|
| Line S02430 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02470 M01S02430.ns2658 ---| PTN2 ENDMS 02471 M00S02431.1ma +++| LDD MA PICK UP TERMINAL NAME 02472 M00S02432.1ma +++| CWM SBUF+TNSS-BFMS,ON 02473 M00S02433.1ma +++| SBN 1 02474 M00S02434.1ma +++| CRD CM 02475 M00S02435.1ma +++| LDD CM+3 02476 M00S02436.1ma +++| LMM SAMD+3 02477 M00S02437.1ma +++| SCN 77 02478 M00S02438.1ma +++| LMD CM+3 02479 M00S02439.1ma +++| STM SAMD+3 02480 M00S02440.1ma +++| LDD CM+4 02481 M00S02441.1ma +++| STM SAMD+4 02482 M00S02442.1ma +++| LDD MA PUT TERMINAL NAME IN SYSTEM SECTOR 02483 M00S02443.1ma +++| CWM SAMD,ON 02484 M00S02444.1ma +++| SBN 1 02485 M00S02445.1ma +++| CRM SBUF+TNSS-BFMS,ON 02486 M00S02446.1ma +++| LDN 0 02487 M00S02447.1ma +++| STD T7 02488 M00S02448.1ma +++| SETMS IO,RW 02489 M00S02449.1ma +++| LDC SBUF 02490 M00S02450.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02451 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02491 M01S02451.ns2658 ---| MJP PTN1 IF WRITE ERROR ENCOUNTERED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02492 M01S00013.ns2658 +++| RJM PES PROCESS ERROR STATUS 02493 M00S02452.1ma +++| ENDMS 02494 M00S02453.1ma +++| LJM PTNX RETURN 02495 M00S02454.1ma +++| REC SPACE 4,10 02496 M00S02455.1ma +++|** REC - RECOVER DETACHED JOB. 02497 M00S02456.1ma +++|*
| Line S02457 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02498 M01S02457.ns2658 ---|* CALLS CAA, GRE, RRF, SES, SFI, TAS, WCE, WDS.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02499 M01S00014.ns2658 +++|* CALLS CAA, GRE, PES, RRF, SES, SFI, TAS, WCE, WDS. 02500 M00S02458.1ma +++|* 02501 M00S02459.1ma +++|* MACROS ENDMS, MONITOR, SETMS. 02502 M00S02460.1ma +++| 02503 M00S02461.1ma +++| 02504 M00S02462.1ma +++| REC BSS 0 ENTRY 02505 M00S02463.1ma +++| LDN 0 02506 M00S02464.1ma +++| STD W1+4 INITIALIZE EJT ORDINAL 02507 M00S02465.1ma +++| LDD W2+1 VALIDATE MESSAGE BUFFER ADDRESS 02508 M00S02466.1ma +++| LPN 77 02509 M00S02467.1ma +++| SHN 14 02510 M00S02468.1ma +++| ADD W2+2 02511 M00S02469.1ma +++| ZJN REC1 IF INCORRECT ADDRESS 02512 M00S02470.1ma +++| ADN EJPB 02513 M00S02471.1ma +++| SHN -6 02514 M00S02472.1ma +++| SBD FL 02515 M00S02473.1ma +++| MJN REC2 IF IN RANGE 02516 M00S02474.1ma +++| REC1 LDN MAER ADDRESS ERROR 02517 M00S02475.1ma +++| UJN REC4 ERROR EXIT 02518 M00S02476.1ma +++| 02519 M00S02477.1ma +++| REC2 LDD W0 TRANSFER JSN TO REQUEST 02520 M00S02478.1ma +++| ZJN REC3 IF NO JSN 02521 M00S02479.1ma +++| STM GREC+3 02522 M00S02480.1ma +++| LDD W0+1 02523 M00S02481.1ma +++| ZJN REC3 IF NO JSN 02524 M00S02482.1ma +++| STM GREC+4 02525 M00S02483.1ma +++| RJM SES SET UP EJT SEARCH 02526 M00S02484.1ma +++| RJM GRE GET REQUIRED EJT ENTRY 02527 M00S02485.1ma +++| ZJN REC5 IF DETACHED 02528 M00S02486.1ma +++| LDN NTER&JFER JOB NOT DETACHED ERROR CODE 02529 M00S02487.1ma +++| REC3 LMN JFER JOB NOT FOUND ERROR CODE 02530 M00S02488.1ma +++| REC4 LJM PERX ERROR EXIT 02531 M00S02489.1ma +++| 02532 M00S02490.1ma +++| REC5 LDD EJ READ EJT ENTRY 02533 M00S02491.1ma +++| SHN 14 02534 M00S02492.1ma +++| ADD EJ+1 02535 M00S02493.1ma +++| CRM EJEN,EL 02536 M00S02494.1ma +++| LDM EJEN+JSNE*5+4 02537 M00S02495.1ma +++| LPN 76 02538 M00S02496.1ma +++| STD JS
| Line S02497 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02539 M01S02497.271l716 ---| SBN EXJS*2 02540 M01S02498.271l716 ---| NJN REC6 IF NOT EXECUTING JOB STATUS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02499.1ma +++| 02549 M00S02500.1ma +++|* ROLL OUT AND SUSPEND JOB. 02550 M00S02501.1ma +++|
| Line S02502 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02551 M01S02502.271l716 ---| LDN CEIN CLEAR INTERLOCK
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02552 M01S00008.271l716 +++| REC5.1 LDK CEIN CLEAR INTERLOCK 02553 M00S02503.1ma +++| STD T1 02554 M00S02504.1ma +++| LDD EJ 02555 M00S02505.1ma +++| SHN 14 02556 M00S02506.1ma +++| LMD EJ+1 02557 M00S02507.1ma +++| RJM SFI CLEAR INTERLOCK 02558 M00S02508.1ma +++| LDM EJEN+SCHE*5+3 SET CONTROL POINT NUMBER
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02559 M01S00009.271l716 +++|* LDM EJEN+SCHE*5+1 (JOB ASSIGNED TO PCP) 02560 M01S00010.271l716 +++| RECF EQU *-1 02561 M00S02509.1ma +++| STD CM+2 02562 M00S02510.1ma +++| LDC ROSU+4000 02563 M00S02511.1ma +++| STD CM+1 02564 M00S02512.1ma +++| MONITOR ROCM 02565 M00S02513.1ma +++| LDN RTER SET RETRY
| Line S02514 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02566 M01S02514.271l716 ---| UJN REC4 EXIT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02567 M01S00011.271l716 +++| UJP REC4 EXIT 02568 M00S02515.1ma +++| 02569 M00S02516.1ma +++|* SUSPEND JOB IF NOT ALEADY SUSPENDED. 02570 M00S02517.1ma +++| 02571 M00S02518.1ma +++| REC6 LDD W1+4 02572 M00S02519.1ma +++| STM PERB SET TO CLEAR WHEN COMPLETE 02573 M00S02520.1ma +++| LDN 1 02574 M00S02521.1ma +++| STD CM+1 02575 M00S02522.1ma +++| LDD JS 02576 M00S02523.1ma +++| SBN SUJS*2 02577 M00S02524.1ma +++| ZJN REC7 IF SUSPENDED 02578 M00S02525.1ma +++| LDC RTCL 02579 M00S02526.1ma +++| CRM RECC+3,ON 02580 M00S02527.1ma +++| LDC 600D SET TIMEOUT FOR TEN MINUTES 02581 M00S02528.1ma +++| RAM RECC+4 02582 M00S02529.1ma +++| SHN -14 02583 M00S02530.1ma +++| RAM RECC+3 02584 M00S02531.1ma +++| 02585 M00S02532.1ma +++|* GATHER INFORMATION FOR RETURN PARAMETER BLOCK. 02586 M00S02533.1ma +++| 02587 M00S02534.1ma +++| REC7 RJM CAA READ TERMINAL NUMBER 02588 M00S02535.1ma +++| ADN 5 02589 M00S02536.1ma +++| CRD W5 02590 M00S02537.1ma +++| LDN 0 SET TO READ SYSTEM SECTOR 02591 M00S02538.1ma +++| RJM RRF READ ROLLOUT FILE 02592 M00S02539.1ma +++| LDM CSSS 02593 M00S02540.1ma +++| ZJN REC7.0 IF PREVIOUS SERVICE CLASS CHANGE COMPLETE 02594 M00S02541.1ma +++| LDN 0 02595 M00S02542.1ma +++| STD SC CLEAR SERVICE CLASS 02596 M00S02543.1ma +++| LDM R1SS+2 GET PRE-DETACH SERVICE CLASS 02597 M00S02544.1ma +++| LPN 77 02598 M00S02545.1ma +++| STM DTCC+4 SET SERVICE CLASS IN REQUEST 02599 M00S02546.1ma +++| AOM RECE 02600 M00S02547.1ma +++| UJN REC7.1 CONTINUE WITH RECOVERY PROCESSING 02601 M00S02548.1ma +++| 02602 M00S02549.1ma +++| REC7.0 LDM R1SS+2 GET PRE-DETACH SERVICE CLASS 02603 M00S02550.1ma +++| LPN 77 02604 M00S02551.1ma +++| STD SC 02605 M00S02552.1ma +++| LDM EJEN+SCLE*5 GET CURRENT SERVICE CLASS 02606 M00S02553.1ma +++| SHN -6 02607 M00S02554.1ma +++| SBD SC 02608 M00S02555.1ma +++| NJN REC7.1 IF SERVICE CLASS TO BE CHANGED 02609 M00S02556.1ma +++| STD SC INDICATE NO SERVICE CLASS CHANGE 02610 M00S02557.1ma +++| REC7.1 LDD SC 02611 M00S02558.1ma +++| STM CSSS 02612 M00S02559.1ma +++| LDD TN 02613 M00S02560.1ma +++| STM CBUF+TTNW*5+1 02614 M00S02561.1ma +++| LDN 0 02615 M00S02562.1ma +++| STD T7 02616 M00S02563.1ma +++| SETMS IO,RW 02617 M00S02564.1ma +++| LDC BFMS 02618 M00S02565.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02566 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02619 M01S02566.ns2658 ---| MJN REC8 IF MASS STORAGE ERROR ENCOUNTERED
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02620 M01S00015.ns2658 +++| RJM PES PROCESS ERROR STATUS 02621 M00S02567.1ma +++| LDN CPAI 02622 M00S02568.1ma +++| STD T7 02623 M00S02569.1ma +++| LDC SBUF 02624 M00S02570.1ma +++| RJM WDS REWRITE CPA SECTOR
| Line S02571 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02625 M01S02571.ns2658 ---| PJN REC8.1 IF NO ERRORS ENCOUNTERED 02626 M01S02572.ns2658 ---| REC8 LDN ERER MASS STORAGE ERROR ENCOUNTERED 02627 M01S02573.ns2658 ---| LJM PERX EXIT WITH ERROR
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02628 M01S00016.ns2658 +++| RJM PES PROCESS ERROR STATUS 02629 M01S00017.ns2658 +++| ENDMS 02630 M00S02574.1ma +++| 02631 M00S02575.1ma +++|* PROCESS RECOVERY. 02632 M00S02576.1ma +++|
| Line S02577 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02633 M01S02577.ns2658 ---| REC8.1 ENDMS 02634 M00S02578.1ma +++| LDN 3 02635 M00S02579.1ma +++| STD CM+1 02636 M00S02580.1ma +++| LDD MA 02637 M00S02581.1ma +++| CWM RECA,CM+1 02638 M00S02582.1ma +++| RJM WCE WRITE CHANGES TO EJT 02639 M00S02583.1ma +++| RECE LDN 0 02640 M00S02584.1ma +++| ZJN REC8.2 IF NO EJT SERVICE CLASS UPDATE REQUIRED 02641 M00S02585.1ma +++| STD CM+1 NUMBER OF EJT CHANGES TO MAKE (FOR *WCE*) 02642 M00S02586.1ma +++| LDD MA 02643 M00S02587.1ma +++| CWM DTCC,CM+1 PLACE REQUEST 02644 M00S02588.1ma +++| RJM WCE WRITE CHANGE TO EJT 02645 M00S02589.1ma +++| REC8.2 LDM CBUF+TFSW*5+1 02646 M00S02590.1ma +++| NJN REC9 IF PRIMARY FILE EXISTS 02647 M00S02591.1ma +++| LDK ZERL 02648 M00S02592.1ma +++| UJN REC10 ZERO PRIMARY FILE NAME 02649 M00S02593.1ma +++| 02650 M00S02594.1ma +++| REC9 LDD MA TRANSFER PRIMARY FILE FNT 02651 M00S02595.1ma +++| CWM PFSS,ON 02652 M00S02596.1ma +++| SBN 1 02653 M00S02597.1ma +++| REC10 CRD W0 02654 M00S02598.1ma +++| LDN RCEJ*2 RESTORE FCN FIELD 02655 M00S02599.1ma +++| STD W0+4 02656 M00S02600.1ma +++| LDD W0+3 SAVE MODES FIELD 02657 M00S02601.1ma +++| LPN 77 02658 M00S02602.1ma +++| SHN 6 02659 M00S02603.1ma +++| STD W2+4 02660 M00S02604.1ma +++| SHN -6 02661 M00S02605.1ma +++| LMD W0+3 02662 M00S02606.1ma +++| STD W0+3 02663 M00S02607.1ma +++| RJM CAA WRITE RECOVERY WORDS TO RETURN BLOCK 02664 M00S02608.1ma +++| ADN 3 02665 M00S02609.1ma +++| CWM R1SS,ON TRANSFER RECOVERY TABLE 02666 M00S02610.1ma +++| CWM R2SS,ON 02667 M00S02611.1ma +++| LDM EJSS+4 02668 M00S02612.1ma +++| LPN 76 02669 M00S02613.1ma +++| SHN -1 02670 M00S02614.1ma +++| SBN IOJS 02671 M00S02615.1ma +++| ZJN REC11 IF INPUT OR OUTPUT 02672 M00S02616.1ma +++| SBN DOJS-IOJS 02673 M00S02617.1ma +++| ZJN REC11 IF NOT ACTIVE JOB 02674 M00S02618.1ma +++| LDN 1S5 SET ACTIVE JOB FLAG 02675 M00S02619.1ma +++| RAD W2+4 02676 M00S02620.1ma +++| REC11 LDC CBUF+MS1W*5-1 02677 M00S02621.1ma +++| STD T1 02678 M00S02622.1ma +++| REC12 AOD T1 02679 M00S02623.1ma +++| STM RECD 02680 M00S02624.1ma +++| LDI T1 02681 M00S02625.1ma +++| NJN REC12 IF NOT END OF LINE 02682 M00S02626.1ma +++| LDN ZERL ADD ZERO WORD FOR CM EOL 02683 M00S02627.1ma +++| CRM *,ON 02684 M00S02628.1ma +++| RECD EQU *-1 02685 M00S02629.1ma +++| LDN 5 02686 M00S02630.1ma +++| STD T1 02687 M00S02631.1ma +++| LDD W2+1 02688 M00S02632.1ma +++| LPN 77 02689 M00S02633.1ma +++| SHN 6 02690 M00S02634.1ma +++| ADD RA 02691 M00S02635.1ma +++| SHN 6 02692 M00S02636.1ma +++| ADD W2+2 02693 M00S02637.1ma +++| CWM CBUF+MS1W*5,T1 02694 M00S02638.1ma +++| LDC CBUF+SRUW*5 02695 M00S02639.1ma +++| RJM TAS TRANSFER ACCUMULATED SRU-S 02696 M00S02640.1ma +++| LDM CBUF+ACTW*5 02697 M00S02641.1ma +++| SHN -7 02698 M00S02642.1ma +++| STD JS 02699 M00S02643.1ma +++| LPN 10 TIME LIMIT 02700 M00S02644.1ma +++| RAD W2+4 02701 M00S02645.1ma +++| LDD JS SRU LIMIT 02702 M00S02646.1ma +++| LPN 2 02703 M00S02647.1ma +++| SHN 3 02704 M00S02648.1ma +++| RAD W2+4 02705 M00S02649.1ma +++| LDM CBUF+TXSW*5 02706 M00S02650.1ma +++| SHN -6 TIME SHARING SUBSYSTEM 02707 M00S02651.1ma +++| LPN 7 02708 M00S02652.1ma +++| RAD W2+4 02709 M00S02653.1ma +++| LDN 0 02710 M00S02654.1ma +++| LJM PERX NORMAL EXIT 02711 M00S02655.1ma +++| 02712 M00S02656.1ma +++| 02713 M00S02657.1ma +++| RECA VFD 6/JSNE,6/4,6/7,42/OLCS 02714 M00S02658.1ma +++| RECB VFD 6/JSNE,6/5,6/1,42/SUJS 02715 M00S02659.1ma +++| RECC VFD 6/SCHE,6/24D,6/0,42/0 02716 M00S02660.1ma +++| VFD 36/0 SCRATCH FOR RTCL 02717 M00S02661.1ma +++| RRJ SPACE 4,10 02718 M00S02662.1ma +++|** RRJ - RESTART RECOVERED JOB. 02719 M00S02663.1ma +++|* 02720 M00S02664.1ma +++|* EXIT (A) = ERROR CODE, IF ANY. 02721 M00S02665.1ma +++|* TO *PERX*. 02722 M00S02666.1ma +++|* 02723 M00S02667.1ma +++|* CALLS CET, PTN, RJC, RRF, SAM, SEA, WCE. 02724 M00S02668.1ma +++|* 02725 M00S02669.1ma +++|* MACROS ENDMS, SETMS. 02726 M00S02670.1ma +++| 02727 M00S02671.1ma +++| 02728 M00S02672.1ma +++| RRJ BSS 0 ENTRY 02729 M00S02673.1ma +++| LDD W1+4 SET TO CLEAR INTERLOCK WHEN COMPLETE 02730 M00S02674.1ma +++| STM PERB 02731 M00S02675.1ma +++| RJM SEA SET ENTRY ADDRESS 02732 M00S02676.1ma +++| CRD CM 02733 M00S02677.1ma +++| ADN SCHE 02734 M00S02678.1ma +++| CRD T5 02735 M00S02679.1ma +++| LDD EJ READ EJT ENTRY 02736 M00S02680.1ma +++| SHN 14 02737 M00S02681.1ma +++| LMD EJ+1 02738 M00S02682.1ma +++| CRM EJEN,EL READ EJT ENTRY WORDS 02739 M00S02683.1ma +++| LDD CM+4 02740 M00S02684.1ma +++| LPC 3676 02741 M00S02685.1ma +++| LMC OLCS*200+SUJS*2 02742 M00S02686.1ma +++| ZJN RRJ2 IF ONLINE AND SUSPENDED 02743 M00S02687.1ma +++| LDN NRER NOT RECOVERABLE ERROR CODE 02744 M00S02688.1ma +++| RRJ1.1 LJM PERX EXIT 02745 M00S02689.1ma +++| 02746 M00S02690.1ma +++|* RESTORE JOB STATUS AND SCHEDULE FIELD. 02747 M00S02691.1ma +++| 02748 M00S02692.1ma +++| RRJ2 LDN 0 02749 M00S02693.1ma +++| RJM RRF READ ROLLOUT FILE 02750 M00S02694.1ma +++| ENDMS 02751 M00S02695.1ma +++| RJM PTN PUT TERMINAL NAME IN SYSTEM SECTOR 02752 M00S02696.1ma +++| RJM SAM ISSUE RECOVERY ACCOUNTING MESSAGE 02753 M00S02697.1ma +++| LDM EJSS+JSNE*5+4 02754 M00S02698.1ma +++| LPN 76 JOB STATUS FIELD 02755 M00S02699.1ma +++| ADN 1 LEAVE INTERLOCK SET 02756 M00S02700.1ma +++| STM EJSS+JSNE*5+4 02757 M00S02701.1ma +++| SBN IOJS*2+1 02758 M00S02702.1ma +++| ZJN RRJ3 IF *IOJS* 02759 M00S02703.1ma +++| SBN DOJS*2+1-IOJS*2-1 02760 M00S02704.1ma +++| ZJN RRJ3 IF DISABLED 02761 M00S02705.1ma +++| LDN ROJS*2+1 02762 M00S02706.1ma +++| STM EJSS+JSNE*5+4 02763 M00S02707.1ma +++| LDM R1SS+2 GET INITIAL PRIORITY FOR SERVICE CLASS 02764 M00S02708.1ma +++| LPN 77 02765 M00S02709.1ma +++| STD T2 02766 M00S02710.1ma +++| RJM RJC 02767 M00S02711.1ma +++| ADN EXQT 02768 M00S02712.1ma +++| CRD CM 02769 M00S02713.1ma +++| LDD CM+4 SET INITIAL PRIORITY 02770 M00S02714.1ma +++| STD T1 02771 M00S02715.1ma +++| LDD T2 02772 M00S02716.1ma +++| SHN 14 02773 M00S02717.1ma +++| LMN EXQT 02774 M00S02718.1ma +++| RJM CET 02775 M00S02719.1ma +++| LDD T1 SET ENTRY TIME 02776 M00S02720.1ma +++| STM EJSS+SCHE*5+3 02777 M00S02721.1ma +++| LDD T2 02778 M00S02722.1ma +++| STM EJSS+SCHE*5+4 02779 M00S02723.1ma +++| RRJ3 LDM RRJA SET UP REQUEST 02780 M00S02724.1ma +++| STM EJSS+JSNE*5 02781 M00S02725.1ma +++| LDM RRJA+1 02782 M00S02726.1ma +++| STM EJSS+JSNE*5+1 02783 M00S02727.1ma +++| LDM RRJB 02784 M00S02728.1ma +++| STM EJSS+SCHE*5 02785 M00S02729.1ma +++| LDM RRJB+1 02786 M00S02730.1ma +++| STM EJSS+SCHE*5+1 02787 M00S02731.1ma +++| LDM R1SS+2 SET SERVICE CLASS 02788 M00S02732.1ma +++| LPN 77 02789 M00S02733.1ma +++| STM RRJC+4 02790 M00S02734.1ma +++| LDN 2 02791 M00S02735.1ma +++| STD CM+1 02792 M00S02736.1ma +++| ERRNZ SCHE-JSNE-1 CODE DEPENDS ON CONSECUTIVE WORDS 02793 M00S02737.1ma +++| LDD MA 02794 M00S02738.1ma +++| CWM EJSS+JSNE*5,CM+1 02795 M00S02739.1ma +++| CWM RRJC,ON 02796 M00S02740.1ma +++| AOD CM+1 02797 M00S02741.1ma +++| RJM WCE WRITE CHANGES TO EJT 02798 M00S02742.1ma +++| LJM PERX EXIT 02799 M00S02743.1ma +++| 02800 M00S02744.1ma +++| 02801 M00S02745.1ma +++| RRJA VFD 6/JSNE,6/6,6/0,6/0 02802 M00S02746.1ma +++| RRJB VFD 6/SCHE,6/30D,6/0,6/0 02803 M00S02747.1ma +++| RRJC VFD 6/SCLE,6/6,6/54D,6/0,36/0 02804 M00S02748.1ma +++| RST SPACE 4,10 02805 M00S02749.1ma +++|** RST - RESET TIMEOUT. 02806 M00S02750.1ma +++|* 02807 M00S02751.1ma +++|* USES CM - CM+4, CN - CN+4. 02808 M00S02752.1ma +++|* 02809 M00S02753.1ma +++|* CALLS GRE, SEA, SES, STO. 02810 M00S02754.1ma +++| 02811 M00S02755.1ma +++| 02812 M00S02756.1ma +++| RST BSS 0 ENTRY 02813 M00S02757.1ma +++| LDD W0+2 CHECK TIMEOUT DELAY FLAG 02814 M00S02758.1ma +++| LPN 2 02815 M00S02759.1ma +++| RAM STOA 02816 M00S02760.1ma +++| LDD W0+2 CHECK FLAGS FIELD 02817 M00S02761.1ma +++| SHN 21-0 02818 M00S02762.1ma +++| MJN RST2 IF SELECT BY ORIGIN TYPE 02819 M00S02763.1ma +++| LDD W1+4 02820 M00S02764.1ma +++| ZJN RST1 IF NO EJTO 02821 M00S02765.1ma +++| STM PERB SET TO CLEAR INTERLOCK WHEN COMPLETE 02822 M00S02766.1ma +++| LJM RST8 RESET ONE TIMEOUT 02823 M00S02767.1ma +++| 02824 M00S02768.1ma +++| RST1 LDN IEER INCORRECT EJT ORDINAL 02825 M00S02769.1ma +++| UJN RST6 ERROR EXIT 02826 M00S02770.1ma +++| 02827 M00S02771.1ma +++| RST2 LDD W2 VALIDATE ORIGIN TYPE 02828 M00S02772.1ma +++| LPN 77 02829 M00S02773.1ma +++| STM GRED+4 02830 M00S02774.1ma +++| SBN MXOT 02831 M00S02775.1ma +++| MJN RST3 IF VALID ORIGIN TYPE 02832 M00S02776.1ma +++| LDN IOER INCORRECT ORIGIN TYPE 02833 M00S02777.1ma +++| UJN RST6 EXIT 02834 M00S02778.1ma +++| 02835 M00S02779.1ma +++| RST3 RJM SES SET UP EJT SEARCH 02836 M00S02780.1ma +++| LDC GRED SET REQUEST ADDRESS 02837 M00S02781.1ma +++| STM GREB 02838 M00S02782.1ma +++| LDN PSNI 02839 M00S02783.1ma +++| STM GREA 02840 M00S02784.1ma +++| STM GREA+1 02841 M00S02785.1ma +++| RST4 RJM GRE GET EJT ENTRY BY ORIGIN TYPE 02842 M00S02786.1ma +++| ZJN RST7 IF ENTRY FOUND 02843 M00S02787.1ma +++| RST5 LDN 0 SET COMPLETE 02844 M00S02788.1ma +++| STM PERB SET INTERLOCK ALREADY CLEAR 02845 M00S02789.1ma +++| RST6 LJM PERX EXIT 02846 M00S02790.1ma +++| 02847 M00S02791.1ma +++| RST7 RJM STO SET TIMEOUT 02848 M00S02792.1ma +++| UJN RST4 LOOP FOR NEXT ENTRY 02849 M00S02793.1ma +++| 02850 M00S02794.1ma +++|* PROCESS SINGLE ENTRY RESET. 02851 M00S02795.1ma +++| 02852 M00S02796.1ma +++| RST8 RJM SEA SET ENTRY ADDRESS 02853 M00S02797.1ma +++| CRD CM READ EJT ENTRY 02854 M00S02798.1ma +++| ADN SCLE 02855 M00S02799.1ma +++| CRD CN 02856 M00S02800.1ma +++| LDD CM+4 02857 M00S02801.1ma +++| LPN 77 02858 M00S02802.1ma +++| SBN SUJS*2+1 02859 M00S02803.1ma +++| ZJN RST9 IF SUSPENDED AND INTERLOCKED 02860 M00S02804.1ma +++| LDN NSER NOT SUSPENDED ERROR CODE 02861 M00S02805.1ma +++| UJN RST6 ERROR EXIT 02862 M00S02806.1ma +++| 02863 M00S02807.1ma +++| RST9 RJM STO SET TIMEOUT 02864 M00S02808.1ma +++| UJN RST5 SET NORMAL EXIT 02865 M00S02809.1ma +++| TRM SPACE 4,10 02866 M00S02810.1ma +++|** TRM - TERMINATE JOB. 02867 M00S02811.1ma +++|* 02868 M00S02812.1ma +++|* EXIT TO *PERX*. 02869 M00S02813.1ma +++|* 02870 M00S02814.1ma +++|* USES CM - CM+4, CN - CN+4, T0 - T7. 02871 M00S02815.1ma +++|*
| Line S02816 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02872 M01S02816.ns2658 ---|* CALLS CAA, GTN, RRF, SEA, TAS, WCE, WDS.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02873 M01S00018.ns2658 +++|* CALLS CAA, GTN, PES, RRF, SEA, TAS, WCE, WDS. 02874 M00S02817.1ma +++|* 02875 M00S02818.1ma +++|* MACROS ENDMS, SETMS. 02876 M00S02819.1ma +++| 02877 M00S02820.1ma +++| 02878 M00S02821.1ma +++| TRM BSS 0 ENTRY 02879 M00S02822.1ma +++| LDD W1+4 SET EJTO TO CLEAR INTERLOCK 02880 M00S02823.1ma +++| STM PERB 02881 M00S02824.1ma +++| RJM SEA SET ENTRY ADDRESS 02882 M00S02825.1ma +++| CRM EJEN,EL READ EJT ENTRY WORDS 02883 M00S02826.1ma +++| SBD EL 02884 M00S02827.1ma +++| ADK JSNE 02885 M00S02828.1ma +++| CRD T0 02886 M00S02829.1ma +++| ADN SCHE-JSNE 02887 M00S02830.1ma +++| CRD T5 02888 M00S02831.1ma +++| ADN SCLE-SCHE 02889 M00S02832.1ma +++| CRD CN 02890 M00S02833.1ma +++| LDD T0+4 02891 M00S02834.1ma +++| LPN 76 02892 M00S02835.1ma +++| LMN IOJS*2 02893 M00S02836.1ma +++| ZJN TRM1 IF *IOJS* JOB STATUS 02894 M00S02837.1ma +++| LMN DOJS*2&IOJS*2 02895 M00S02838.1ma +++| ZJN TRM1 IF *DOJS* JOB STATUS 02896 M00S02839.1ma +++| LDN NDER SET JOB NOT DISABLED ERROR 02897 M00S02840.1ma +++| LJM PERX EXIT 02898 M00S02841.1ma +++| 02899 M00S02842.1ma +++| TRM1 LDD CN SET SCHEDULING PRIORITY 02900 M00S02843.1ma +++| SHN -6 02901 M00S02844.1ma +++| STD T2 02902 M00S02845.1ma +++| RJM RJC 02903 M00S02846.1ma +++| ADN EXQT 02904 M00S02847.1ma +++| CRD CM 02905 M00S02848.1ma +++| LDD CM+2 SET UPPER PRIORITY 02906 M00S02849.1ma +++| STD T1 02907 M00S02850.1ma +++| LDD T2 02908 M00S02851.1ma +++| SHN 14 02909 M00S02852.1ma +++| LMN EXQT 02910 M00S02853.1ma +++| RJM CET 02911 M00S02854.1ma +++| LDD T1 SET ENTRY TIME 02912 M00S02855.1ma +++| STM TRMB+3 02913 M00S02856.1ma +++| LDD T2 02914 M00S02857.1ma +++| STM TRMB+4 02915 M00S02858.1ma +++| LDN 0 SET TO READ CPA AND SYSTEM SECTOR 02916 M00S02859.1ma +++| RJM RRF READ ROLLOUT FILE 02917 M00S02860.1ma +++| ENDMS 02918 M00S02861.1ma +++| RJM CAA READ RECOVERY WORDS 02919 M00S02862.1ma +++| ADN 3 02920 M00S02863.1ma +++| CRM R1SS,ON 02921 M00S02864.1ma +++| CRM R2SS,ON 02922 M00S02865.1ma +++| LDD CP SET SUBSYSTEM IDENTIFIER 02923 M00S02866.1ma +++| ADN JCIW 02924 M00S02867.1ma +++| CRD CM 02925 M00S02868.1ma +++| LDD CM+2 02926 M00S02869.1ma +++| STM R1SS 02927 M00S02870.1ma +++| LDN 0 02928 M00S02871.1ma +++| STD T7 02929 M00S02872.1ma +++| SETMS IO,RW 02930 M00S02873.1ma +++| LDC BFMS SET BUFFER ADDRESS 02931 M00S02874.1ma +++| RJM WDS WRITE SYSTEM SECTOR
| Line S02875 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02932 M01S02875.ns2658 ---| PJN TRM2 IF NO ERRORS ENCOUNTERED 02933 M01S02876.ns2658 ---| LDN ERER ERROR ENCOUNTERED ON DEVICE 02934 M01S02877.ns2658 ---| UJN TRM3 EXIT WITH ERROR 02935 M01S02878.ns2658 ---| 02936 M01S02879.ns2658 ---| TRM2 ENDMS
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02937 M01S00019.ns2658 +++| RJM PES PROCESS ERROR STATUS 02938 M01S00020.ns2658 +++| ENDMS 02939 M00S02880.1ma +++| RJM GTN SET TERMINAL NAME IN PARAMETER BLOCK 02940 M00S02881.1ma +++| LDC CBUF+SRUW*5 TRANSFER SRU-S TO PARAMETER BLOCK 02941 M00S02882.1ma +++| RJM TAS TRANSFER ACCUMULATED SRU-S 02942 M00S02883.1ma +++| LDN 3 SET WORD COUNT 02943 M00S02884.1ma +++| STD CM+1 02944 M00S02885.1ma +++| LDD MA SET EJT STATUS CHANGES 02945 M00S02886.1ma +++| CWM TRMA,CM+1 02946 M00S02887.1ma +++| RJM WCE WRITE CHANGES TO EJT ENTRY 02947 M00S02888.1ma +++|* LDN 0 SET NO ERROR
| Line S02889 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02948 M01S02889.ns2658 ---| TRM3 LJM PERX EXIT
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 02949 M01S00021.ns2658 +++| LJM PERX EXIT 02950 M00S02890.1ma +++| 02951 M00S02891.1ma +++| TRMA VFD 6/JSNE,6/4,6/7,42/NICS 02952 M00S02892.1ma +++| VFD 6/JSNE,6/5,6/1,42/ROJS 02953 M00S02893.1ma +++| TRMB VFD 6/SCHE,6/24,6/0,42/0 02954 M00S02894.1ma +++| TITLE EJT SYSTEM REQUEST SUBROUTINES. 02955 M00S02895.1ma +++| GRE SPACE 4,20 02956 M00S02896.1ma +++|** GRE - GET REQUIRED EJT ENTRY. 02957 M00S02897.1ma +++|* 02958 M00S02898.1ma +++|* ENTRY (T4) = NUMBER OF ENTRIES LEFT TO SCAN. 02959 M00S02899.1ma +++|* (EJ - EJ+1) = ADDRESS OF LAST ENTRY FOUND. 02960 M00S02900.1ma +++|* 02961 M00S02901.1ma +++|* EXIT (A) = 0 IF ENTRY FOUND. 02962 M00S02902.1ma +++|* (EJ - EJ+1) = ADVANCED TO CURRENT EJT ENTRY ADDRESS. 02963 M00S02903.1ma +++|* *OLCS* CHANGED TO *NICS* IN EJT ENTRY IF RESET 02964 M00S02904.1ma +++|* TIMEOUT REQUEST. 02965 M00S02905.1ma +++|* EJT ENTRY INTERLOCKED IF FOUND. 02966 M00S02906.1ma +++|* TO *PERX* IF RETRY NECESSARY. 02967 M00S02907.1ma +++|* 02968 M00S02908.1ma +++|* USES T1, T4, CM - CM+4, CN - CN+4, EJ - EJ+1, W3 - W3+4. 02969 M00S02909.1ma +++|* 02970 M00S02910.1ma +++|* CALLS WCE. 02971 M00S02911.1ma +++|* 02972 M00S02912.1ma +++|* MACROS MONITOR. 02973 M00S02913.1ma +++| 02974 M00S02914.1ma +++| 02975 M00S02915.1ma +++| GRE SUBR ENTRY/EXIT 02976 M00S02916.1ma +++| LDN 2 02977 M00S02917.1ma +++| STD T1 02978 M00S02918.1ma +++| GRE1 AOD W1+4 INCREMENT EJT ORDINAL 02979 M00S02919.1ma +++| SOD T4 DECREMENT ENTRIES TO SCAN 02980 M00S02920.1ma +++| MJN GREX IF AT END OF TABLE 02981 M00S02921.1ma +++| LDN EJTE GET NEXT ENTRY ADDRESS 02982 M00S02922.1ma +++| RAD EJ+1 02983 M00S02923.1ma +++| SHN -14 02984 M00S02924.1ma +++| RAD EJ 02985 M00S02925.1ma +++| GRE1.1 SHN 14 02986 M00S02926.1ma +++| LMD EJ+1 02987 M00S02927.1ma +++| ADK JSNE 02988 M00S02928.1ma +++| CRD W3 READ EJT ENTRY 02989 M00S02929.1ma +++| ADK SCLE-JSNE 02990 M00S02930.1ma +++| CRD CN 02991 M00S02931.1ma +++| LDD W3 02992 M00S02932.1ma +++| ZJN GRE1 IF NO EJT ENTRY 02993 M00S02933.1ma +++| LJM GRE3 PROCESS *RCEJ* REQUEST 02994 M00S02934.1ma +++|* PSN (PROCESS *RTEJ* REQUEST) 02995 M00S02935.1ma +++|* PSN 02996 M00S02936.1ma +++| GREA EQU *-2 02997 M00S02937.1ma +++| 02998 M00S02938.1ma +++|* PSN (PROCESS *RTEJ* REQUEST) 02999 M00S02939.1ma +++| 03000 M00S02940.1ma +++|* PROCESS RESET TIMEOUT REQUEST. 03001 M00S02941.1ma +++| 03002 M00S02942.1ma +++| LDD W3+4 COMPARE CONNECTION STATUS 03003 M00S02943.1ma +++| SHN 0-7 03004 M00S02944.1ma +++| LPN 17 03005 M00S02945.1ma +++| LMN OLCS 03006 M00S02946.1ma +++| NJP GRE1.4 IF NOT ON-LINE CONNECTION STATUS 03007 M00S02947.1ma +++| LDD W3+4 GET JOB STATUS 03008 M00S02948.1ma +++| SHN -1 03009 M00S02949.1ma +++| LPN 37 03010 M00S02950.1ma +++| STM GREF+4 03011 M00S02951.1ma +++| LMK PRJS 03012 M00S02952.1ma +++| ZJN GRE1.2 IF PRE-INITIAL JOB STEP 03013 M00S02953.1ma +++| LMK EXJS&PRJS 03014 M00S02954.1ma +++| ZJN GRE1.2 IF EXECUTING JOB 03015 M00S02955.1ma +++| LMK ERJS&EXJS 03016 M00S02956.1ma +++| ZJN GRE1.2 IF ERROR IN ROLLOUT FILE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03017 M01S00012.271l716 +++| LMK PCJS&ERJS 03018 M01S00013.271l716 +++| ZJN GRE1.2 IF PCP JOB 03019 M00S02957.1ma +++| LDN 1 03020 M00S02958.1ma +++| GRE1.2 ADN 3 03021 M00S02959.1ma +++| STD CM+1 NUMBER OF CHANGES TO MAKE 03022 M00S02960.1ma +++| LDD MA 03023 M00S02961.1ma +++| CWM GREE,CM+1 03024 M00S02962.1ma +++| RJM WCE CHANGE EJT CONNECTION STATUS 03025 M00S02963.1ma +++| LDD CM+1 03026 M00S02964.1ma +++| ZJN GRE1.3 IF REQUEST COMPLETED SUCCESSFULLY 03027 M00S02965.1ma +++| LDD EJ 03028 M00S02966.1ma +++| UJP GRE1.1 RETRY THE REQUEST 03029 M00S02967.1ma +++| 03030 M00S02968.1ma +++| GRE1.3 LDC 4000+SYET ALTERNATE EJT FLAG AND ERROR 03031 M00S02969.1ma +++| STD CM+1 03032 M00S02970.1ma +++| LDD W1+4 EJT ORDINAL 03033 M00S02971.1ma +++| STD CM+2 03034 M00S02972.1ma +++| LDD W3 SET JSN 03035 M00S02973.1ma +++| STD CM+3 03036 M00S02974.1ma +++| LDD W3+1 03037 M00S02975.1ma +++| STD CM+4 03038 M00S02976.1ma +++| MONITOR CEFM 03039 M00S02977.1ma +++| GRE1.4 LDD CN COMPARE ORIGIN TYPE 03040 M00S02978.1ma +++| LPN 17 03041 M00S02979.1ma +++| LMM GRED+4 03042 M00S02980.1ma +++| NJN GRE2 IF NOT FOUND 03043 M00S02981.1ma +++| LDD W3+4 COMPARE JOB STATUS 03044 M00S02982.1ma +++| LPN 77 03045 M00S02983.1ma +++| LMN SUJS*2 03046 M00S02984.1ma +++| ZJN GRE4 IF ENTRY FOUND 03047 M00S02985.1ma +++| GRE2 LJM GRE1 CHECK NEXT ENTRY 03048 M00S02986.1ma +++| 03049 M00S02987.1ma +++|* PROCESS RECOVER JOB REQUEST. 03050 M00S02988.1ma +++| 03051 M00S02989.1ma +++| GRE3 LDD W0 COMPARE JSN 03052 M00S02990.1ma +++| LMD W3 03053 M00S02991.1ma +++| NJN GRE2 IF NOT FOUND 03054 M00S02992.1ma +++| LDD W0+1 03055 M00S02993.1ma +++| LMD W3+1 03056 M00S02994.1ma +++| NJN GRE2 IF NOT FOUND 03057 M00S02995.1ma +++| LDD W3+4 COMPARE CONNECTION STATUS 03058 M00S02996.1ma +++| SHN -7 03059 M00S02997.1ma +++| LPN 17 03060 M00S02998.1ma +++| LMN DTCS 03061 M00S02999.1ma +++| NJN GRE2 IF NOT DETACHED 03062 M00S03000.1ma +++| GRE4 LDN 42B SET INTERLOCK AFTER TWO VERIFICATIONS 03063 M00S03001.1ma +++| STD CM+1 03064 M00S03002.1ma +++| LDD EJ SET ADDRESS OF EJT ENTRY 03065 M00S03003.1ma +++| STD CM+3 03066 M00S03004.1ma +++| LDD EJ+1 03067 M00S03005.1ma +++| STD CM+4 03068 M00S03006.1ma +++| LDD MA 03069 M00S03007.1ma +++| CWM GREC,T1 03070 M00S03008.1ma +++| GREB EQU *-1 ADDRESS OF REQUESTS 03071 M00S03009.1ma +++| MONITOR UTEM 03072 M00S03010.1ma +++| LDD CM+1 03073 M00S03011.1ma +++| SBN 1 03074 M00S03012.1ma +++| ZJN GRE5 IF INTERLOCK SET 03075 M00S03013.1ma +++| SBN 3-1 03076 M00S03014.1ma +++| ZJN GRE5 IF INTERLOCK SET 03077 M00S03015.1ma +++| LDD CM+1 03078 M00S03016.1ma +++| LJM GREX RETURN 03079 M00S03017.1ma +++| 03080 M00S03018.1ma +++| GRE5 LDN RTER RETRY ERROR CODE 03081 M00S03019.1ma +++| LJM PERX EXIT 03082 M00S03020.1ma +++| 03083 M00S03021.1ma +++| 03084 M00S03022.1ma +++| GREC VFD 1/1,5/JSNE,6/24D,6/36D,42/0 JSN (RCEJ) 03085 M00S03023.1ma +++| VFD 1/1,5/JSNE,6/4,6/7,42/DTCS CONNECTION STATUS (RCEJ) 03086 M00S03024.1ma +++| GRED VFD 1/1,5/SCLE,6/4,6/48D,42/0 ORIGIN TYPE (RTEJ) 03087 M00S03025.1ma +++| VFD 1/1,5/JSNE,6/5,6/1,42/SUJS JOB STATUS (RTEJ) 03088 M00S03026.1ma +++| GREE VFD 1/1,5/JSNE,6/4,6/7,42/OLCS CONNECTION STATUS (RTEJ) 03089 M00S03027.1ma +++| GREF VFD 1/1,5/JSNE,6/5,6/1,42/** CONNECTION STATUS (RTEJ) 03090 M00S03028.1ma +++| VFD 6/JSNE,6/4,6/7,42/NICS CONNECTION STATUS (RTEJ) 03091 M00S03029.1ma +++| VFD 6/JSNE,6/5,6/1,42/ROJS JOB STATUS (RTEJ)
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03030.1ma +++| RRF SPACE 4,15 03114 M00S03031.1ma +++|** RRF - READ ROLLOUT FILE. 03115 M00S03032.1ma +++|* 03116 M00S03033.1ma +++|* ENTRY (A) = 0, IF SYSTEM SECTOR READ NEEDED. 03117 M00S03034.1ma +++|* (EJEN) = EJT ENTRY. 03118 M00S03035.1ma +++|* = 1, IF ONLY CPA SECTOR NEEDED. 03119 M00S03036.1ma +++|* (T5 - T6) = ROLLOUT INFORMATION, SETMS DONE. 03120 M00S03037.1ma +++|* 03121 M00S03038.1ma +++|* ERROR TO *PERX* IF ERROR ON READ. 03122 M00S03039.1ma +++|* 03123 M00S03040.1ma +++|* USES T5, T6, T7. 03124 M00S03041.1ma +++|*
| Line S03042 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03125 M01S03042.ns2658 ---|* CALLS RDS, RSS.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03126 M01S00043.ns2658 +++|* CALLS PES, RDS, RSS. 03127 M00S03043.1ma +++|* 03128 M00S03044.1ma +++|* MACROS SETMS, ENDMS. 03129 M00S03045.1ma +++| 03130 M00S03046.1ma +++| 03131 M00S03047.1ma +++| RRF SUBR ENTRY/EXIT 03132 M00S03048.1ma +++| NJN RRF1 IF CPA SECTOR REQUEST 03133 M00S03049.1ma +++| LDM EJEN+SCHE*5 03134 M00S03050.1ma +++| STD T5 03135 M00S03051.1ma +++| LDM EJEN+SCHE*5+1 03136 M00S03052.1ma +++| STD T6 03137 M00S03053.1ma +++| SETMS IO 03138 M00S03054.1ma +++| LDN 0 03139 M00S03055.1ma +++| RJM RSS READ SYSTEM SECTOR
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03140 M01S00044.ns2658 +++| RJM PES PROCESS ERROR STATUS 03141 M00S03056.1ma +++| NJN RRF2 IF ERROR ENCOUNTERED
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03057.1ma +++| RRF1 LDN CPAI READ CONTROL POINT AREA 03150 M00S03058.1ma +++| STD T7 03151 M00S03059.1ma +++| LDC SBUF 03152 M00S03060.1ma +++| RJM RDS READ CPA
| Line S03061 Modification History | |
|---|---|
M01 (Removed by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03153 M01S03061.ns2658 ---| MJN RRF2 IF ERROR ON READ
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2658 |
Seq # *Modification Id* Act ----------------------------+ 03154 M01S00045.ns2658 +++| RJM PES PROCESS ERROR STATUS 03155 M00S03062.1ma +++| ENDMS 03156 M00S03063.1ma +++| LDM SBUF CHECK LINKAGE 03157 M00S03064.1ma +++| ZJN RRF2 IF NO LINK 03158 M00S03065.1ma +++| LDM SBUF+1 03159 M00S03066.1ma +++| LMD HN 03160 M00S03067.1ma +++| ZJP RRFX IF FULL SECTOR READ 03161 M00S03068.1ma +++| RRF2 LDN ERER ERROR ENCOUNTERED ON DEVICE 03162 M00S03069.1ma +++| LJM PERX ERROR EXIT 03163 M00S03070.1ma +++| SAM SPACE 4,10 03164 M00S03071.1ma +++|** SAM - SEND ACCOUNTING MESSAGE. 03165 M00S03072.1ma +++|* 03166 M00S03073.1ma +++|* ENTRY (EJEN) = EJT ENTRY. 03167 M00S03074.1ma +++|* 03168 M00S03075.1ma +++|* USES T1, CM - CM+4. 03169 M00S03076.1ma +++|* 03170 M00S03077.1ma +++|* CALLS ACS, CAA, DFM. 03171 M00S03078.1ma +++| 03172 M00S03079.1ma +++| 03173 M00S03080.1ma +++| SAM SUBR ENTRY/EXIT 03174 M00S03081.1ma +++| LDM EJEN+SCLE*5 SET SERVICE CLASS IN MESSAGE 03175 M00S03082.1ma +++| SHN -6 03176 M00S03083.1ma +++| STM SAMA+4 03177 M00S03084.1ma +++| RJM CAA READ USER NAME 03178 M00S03085.1ma +++| ADN 1 03179 M00S03086.1ma +++| CRD CN 03180 M00S03087.1ma +++| LDD CN+3 03181 M00S03088.1ma +++| SCN 77 03182 M00S03089.1ma +++| STD CN+3 03183 M00S03090.1ma +++| LDC FOTP MOVE FAMILY NAME 03184 M00S03091.1ma +++| CRD CM 03185 M00S03092.1ma +++| LDM EJEN+JSNE*5+2 03186 M00S03093.1ma +++| SHN -6 03187 M00S03094.1ma +++| STD T1 03188 M00S03095.1ma +++| LDD CM 03189 M00S03096.1ma +++| SHN 14 03190 M00S03097.1ma +++| ADD CM+1 03191 M00S03098.1ma +++| ADD T1 03192 M00S03099.1ma +++| CRD CM READ FOT ENTRY 03193 M00S03100.1ma +++| LDD W0 03194 M00S03101.1ma +++| STM SAMA MOVE JSN 03195 M00S03102.1ma +++| LDD W0+1 03196 M00S03103.1ma +++| STM SAMA+1 03197 M00S03104.1ma +++| 03198 M00S03105.1ma +++|* BUILD ACCOUNTING MESSAGE BUFFER. 03199 M00S03106.1ma +++| 03200 M00S03107.1ma +++| LDC SAMC SET BUFFER LOCATION 03201 M00S03108.1ma +++| STD T1 03202 M00S03109.1ma +++| LDN CN ADD USER NAME 03203 M00S03110.1ma +++| RJM ACS 03204 M00S03111.1ma +++| LDC SAME ADD COMMA 03205 M00S03112.1ma +++| RJM ACS 03206 M00S03113.1ma +++| LDN CM ADD FAMILY NAME 03207 M00S03114.1ma +++| RJM ACS 03208 M00S03115.1ma +++| LDC 0 03209 M00S03116.1ma +++| SAMJ EQU *-1 DTEJ=1, RSEJ=0 (SET BY *DTC*) 03210 M00S03117.1ma +++| NJN SAM1 IF DETACH OF JOB 03211 M00S03118.1ma +++| LDC SAME ADD COMMA 03212 M00S03119.1ma +++| RJM ACS 03213 M00S03120.1ma +++| LDM SAMD+3 ENSURE VALID TERMINAL NAME 03214 M00S03121.1ma +++| SCN 77 03215 M00S03122.1ma +++| STM SAMD+3 03216 M00S03123.1ma +++| LDC SAMD ADD TERMINAL NAME 03217 M00S03124.1ma +++| RJM ACS 03218 M00S03125.1ma +++| SAM1 LDC SAMF ADD PERIOD 03219 M00S03126.1ma +++| RJM ACS 03220 M00S03127.1ma +++| LDC SAMA+AJNN 03221 M00S03128.1ma +++| RJM DFM SEND DAYFILE MESSAGE 03222 M00S03129.1ma +++| LJM SAMX RETURN 03223 M00S03130.1ma +++| 03224 M00S03131.1ma +++| SAMA DATA 10LJSNA SC 03225 M00S03132.1ma +++| SAMB DATA 6LARUN, 03226 M00S03133.1ma +++| SAMC BSSZ 17D MESSAGE BUFFER 03227 M00S03134.1ma +++| SAMD DATA 9LTERMNAM 03228 M00S03135.1ma +++| SAME DATA 2L, COMMA AND SPACE 03229 M00S03136.1ma +++| CON 0 TERMINATOR 03230 M00S03137.1ma +++| SAMF DATA 1L. PERIOD 03231 M00S03138.1ma +++| CON 0 TERMINATOR 03232 M00S03139.1ma +++| SEA SPACE 4,10 03233 M00S03140.1ma +++|** SEA - SET ENTRY ADDRESS. 03234 M00S03141.1ma +++|* 03235 M00S03142.1ma +++|* ENTRY (W1+4) = EJT ORDINAL. 03236 M00S03143.1ma +++|* 03237 M00S03144.1ma +++|* EXIT (A) = ADDRESS OF EJT ENTRY. 03238 M00S03145.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY. 03239 M00S03146.1ma +++|* 03240 M00S03147.1ma +++|* MACROS SFA. 03241 M00S03148.1ma +++| 03242 M00S03149.1ma +++| 03243 M00S03150.1ma +++| SEA SUBR ENTRY/EXIT 03244 M00S03151.1ma +++| SFA EJT,W1+4 READ EJT ENTRY 03245 M00S03152.1ma +++| STD EJ+1 SAVE ADDRESS 03246 M00S03153.1ma +++| SHN -14 03247 M00S03154.1ma +++| STD EJ 03248 M00S03155.1ma +++| SHN 14 03249 M00S03156.1ma +++| LMD EJ+1 03250 M00S03157.1ma +++| UJN SEAX RETURN 03251 M00S03158.1ma +++| SES SPACE 4,10 03252 M00S03159.1ma +++|** SES - SET UP EJT SEARCH. 03253 M00S03160.1ma +++|* 03254 M00S03161.1ma +++|* EXIT (T4) = NUMBER OF POSSIBLE EJT ENTRIES. 03255 M00S03162.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY 0. 03256 M00S03163.1ma +++|* 03257 M00S03164.1ma +++|* USES T2 - T6, EJ - EJ+1. 03258 M00S03165.1ma +++|* 03259 M00S03166.1ma +++|* MACROS SFA. 03260 M00S03167.1ma +++| 03261 M00S03168.1ma +++| 03262 M00S03169.1ma +++| SES SUBR ENTRY/EXIT 03263 M00S03170.1ma +++| LDN EJTP 03264 M00S03171.1ma +++| CRD T2 SET T4 03265 M00S03172.1ma +++| SOD T4 03266 M00S03173.1ma +++| LDD T3 SET ADDRESS OF EJT 0 03267 M00S03174.1ma +++| STD EJ+1 03268 M00S03175.1ma +++| LDD T2 03269 M00S03176.1ma +++| STD EJ 03270 M00S03177.1ma +++| UJN SESX RETURN 03271 M00S03178.1ma +++| STO SPACE 4,15 03272 M00S03179.1ma +++|** STO - SET TIMEOUT. 03273 M00S03180.1ma +++|* 03274 M00S03181.1ma +++|* ENTRY (EJ - EJ+1) = CM ADDRESS OF EJT ENTRY TO UPDATE. 03275 M00S03182.1ma +++|* (CN - CN+4) = WORD *SCLE* OF EJT ENTRY. 03276 M00S03183.1ma +++|* (STOA) = TIMEOUT FLAG, 0 = ZERO TIMEOUT. 03277 M00S03184.1ma +++|* (STOB) = INTERLOCK CLEAR FLAG, 0 = CLEAR. 03278 M00S03185.1ma +++|* (STOD) = DISABLE TIMEOUT UPDATE FLAG, 0 = DO NOT 03279 M00S03186.1ma +++|* UPDATE TIMEOUT IN EJT ENTRY. 03280 M00S03187.1ma +++|* 03281 M00S03188.1ma +++|* EXIT SCHEDULE FIELD UPDATED IN EJT ENTRY, IF SO DESIRED. 03282 M00S03189.1ma +++|* 03283 M00S03190.1ma +++|* USES CM - CM+4. 03284 M00S03191.1ma +++|* 03285 M00S03192.1ma +++|* CALLS RJC, SFI, WCE. 03286 M00S03193.1ma +++| 03287 M00S03194.1ma +++| 03288 M00S03195.1ma +++| STO SUBR ENTRY/EXIT 03289 M00S03196.1ma +++| STOD LDN 1 03290 M00S03197.1ma +++| ZJN STOX IF NOT UPDATING TIMEOUT IN EJT 03291 M00S03198.1ma +++| LDC RTCL GET CLOCK TIME 03292 M00S03199.1ma +++| CRM STOC+3,ON 03293 M00S03200.1ma +++| STOA LDN 0 TIMEOUT DELAY FLAG 03294 M00S03201.1ma +++| ZJN STO1 IF NO DELAY DESIRED 03295 M00S03202.1ma +++| LDD CN 03296 M00S03203.1ma +++| SHN -6 03297 M00S03204.1ma +++| RJM RJC GET JOB CONTROL AREA ADDRESS 03298 M00S03205.1ma +++| ADN SVJT 03299 M00S03206.1ma +++| CRD CM 03300 M00S03207.1ma +++| LDD CM+4 TIME DELAY 03301 M00S03208.1ma +++| SHN 3 *10B 03302 M00S03209.1ma +++| RAM STOC+4 03303 M00S03210.1ma +++| SHN -14 03304 M00S03211.1ma +++| RAM STOC+3 03305 M00S03212.1ma +++| STO1 LDN 1 SET NUMBER OF REQUESTS 03306 M00S03213.1ma +++| STD CM+1 03307 M00S03214.1ma +++| LDD MA 03308 M00S03215.1ma +++| CWM STOC,CM+1 SET REQUEST 03309 M00S03216.1ma +++| RJM WCE WRITE CHANGE TO EJT 03310 M00S03217.1ma +++| STOB LDN 0 03311 M00S03218.1ma +++| NJN STOX IF INTERLOCK CLEAR NOT REQUESTED 03312 M00S03219.1ma +++| LDN CEIN CLEAR INTERLOCK 03313 M00S03220.1ma +++| STD T1 03314 M00S03221.1ma +++| LDD EJ 03315 M00S03222.1ma +++| SHN 14 03316 M00S03223.1ma +++| ADD EJ+1 03317 M00S03224.1ma +++| RJM SFI CLEAR INTERLOCK 03318 M00S03225.1ma +++| LJM STOX RETURN 03319 M00S03226.1ma +++| 03320 M00S03227.1ma +++| 03321 M00S03228.1ma +++| STOC VFD 6/SCHE,6/24D,6/0,42/0 03322 M00S03229.1ma +++| VFD 36/0 SCRATCH FOR RTCL 03323 M00S03230.1ma +++| TAS SPACE 4,10 03324 M00S03231.1ma +++|** TAS - TRANSFER ACCUMULATED SRU-S. 03325 M00S03232.1ma +++|* 03326 M00S03233.1ma +++|* ENTRY (A) = ADDRESS OF SRU ACCUMULATOR. 03327 M00S03234.1ma +++|* 03328 M00S03235.1ma +++|* EXIT (W1 - W1+3) = ACCUMULATED SRU-S. 03329 M00S03236.1ma +++|* 03330 M00S03237.1ma +++|* USES T7. 03331 M00S03238.1ma +++| 03332 M00S03239.1ma +++| 03333 M00S03240.1ma +++| TAS SUBR ENTRY/EXIT 03334 M00S03241.1ma +++| STM TASA 03335 M00S03242.1ma +++| LDD W1-1 03336 M00S03243.1ma +++| STD T7 03337 M00S03244.1ma +++| LDD MA SET SRU ACCUMULATOR 03338 M00S03245.1ma +++| CWM *,ON 03339 M00S03246.1ma +++| TASA EQU *-1 03340 M00S03247.1ma +++| SBN 1 03341 M00S03248.1ma +++| CRD W1-1 03342 M00S03249.1ma +++| LDD W1 03343 M00S03250.1ma +++| LPN 77 03344 M00S03251.1ma +++| STD W1 03345 M00S03252.1ma +++| LDD T7 SET OVERWRITTEN CELL 03346 M00S03253.1ma +++| STD W1-1 03347 M00S03254.1ma +++| UJN TASX RETURN 03348 M00S03255.1ma +++| VSC SPACE 4,10 03349 M00S03256.1ma +++|** VSC - VALIDATE SERVICE CLASS. 03350 M00S03257.1ma +++|* 03351 M00S03258.1ma +++|* ENTRY (EJEN+SCLE*5) = CURRENT SERVICE CLASS OF JOB. 03352 M00S03259.1ma +++|* (SC) = 0. 03353 M00S03260.1ma +++|* 03354 M00S03261.1ma +++|* EXIT (SC) = SERVICE CLASS TO ASSIGN TO JOB. 03355 M00S03262.1ma +++|* (SC) = 0, IF NO SERVICE CLASS CHANGE. 03356 M00S03263.1ma +++|* 03357 M00S03264.1ma +++|* ERROR (A) = ERROR CODE. EXIT TO *PERX*. 03358 M00S03265.1ma +++|* 03359 M00S03266.1ma +++|* USES OT, SC, T1, T2, T3, CM - CM+4, CN - CN+4. 03360 M00S03267.1ma +++|* 03361 M00S03268.1ma +++|* CALLS RJC, VSP. 03362 M00S03269.1ma +++| 03363 M00S03270.1ma +++| 03364 M00S03271.1ma +++| VSC SUBR ENTRY/EXIT 03365 M00S03272.1ma +++| LDM EJEN+SCLE*5 03366 M00S03273.1ma +++| SHN -6 03367 M00S03274.1ma +++| STD T1 03368 M00S03275.1ma +++| RJM RJC 03369 M00S03276.1ma +++| ZJN VSCX IF NO JCB DEFINED FOR SERVICE CLASS 03370 M00S03277.1ma +++| ADN PFCT GET SERVICE CLASS TO ASSIGN ON DETACH 03371 M00S03278.1ma +++| CRD CM 03372 M00S03279.1ma +++| 03373 M00S03280.1ma +++|* CHECK FOR IMMEDIATE TIMEOUT. ON AN INVOLUNTARY DETACH WHEN 03374 M00S03281.1ma +++|* THE SERVICE CLASS TIMEOUT DELAY IS ZERO, THE JOB WILL BE 03375 M00S03282.1ma +++|* ABORTED IMMEDIATELY. 03376 M00S03283.1ma +++| 03377 M00S03284.1ma +++| SBN PFCT-SVJT CHECK SUSPENSION TIMEOUT DELAY 03378 M00S03285.1ma +++| CRD CN 03379 M00S03286.1ma +++| LDD W2+1 03380 M00S03287.1ma +++| SHN -6 03381 M00S03288.1ma +++| SBN UDRC
| Line S03289 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03382 M01S03289.1ma17a ---| ZJN VSC0 IF USER DETACH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03383 M01S00001.1ma17a +++| ZJN VSC2 IF USER DETACH 03384 M00S03290.1ma +++| LDD CN+4
| Line S03291 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03385 M01S03291.1ma17a ---| NJN VSC0 IF INVOLUNTARY DETACH WITH TIMEOUT DELAY 03386 M01S03292.1ma17a ---| LDC 4000+STET ABORT JOB WITH *STET* ERROR
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03293.1ma +++| STD CM+1 03394 M00S03294.1ma +++| LDD W1+4 EJT ORDINAL 03395 M00S03295.1ma +++| STD CM+2 03396 M00S03296.1ma +++| LDD W0 SET JSN 03397 M00S03297.1ma +++| STD CM+3 03398 M00S03298.1ma +++| LDD W0+1 03399 M00S03299.1ma +++| STD CM+4 03400 M00S03300.1ma +++| MONITOR CEFM 03401 M00S03301.1ma +++| LDN 0
| Line S03302 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03402 M01S03302.1ma17a ---| UJN VSC2 RETURN ERROR STATUS
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03403 M01S00008.1ma17a +++| UJN VSC4 RETURN ERROR STATUS 03404 M00S03303.1ma +++|
| Line S03304 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03405 M01S03304.1ma17a ---| VSC0 LDD T1
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03406 M01S00009.1ma17a +++| VSC2 LDD T1 03407 M00S03305.1ma +++| SBD CM+4 03408 M00S03306.1ma +++| ZJP VSCX IF NO CHANGE NECESSARY 03409 M00S03307.1ma +++| 03410 M00S03308.1ma +++|* VALIDATE SERVICE CLASS. 03411 M00S03309.1ma +++| 03412 M00S03310.1ma +++| LDN IAOT SET ORIGIN TYPE 03413 M00S03311.1ma +++| STD OT 03414 M00S03312.1ma +++| LDN 0 INDICATE NON-SUBSYSTEM AND NON-SSJ= JOB 03415 M00S03313.1ma +++| STD T3 03416 M00S03314.1ma +++| LDD MA GET SERVICE CLASS VALIDATION MASK 03417 M00S03315.1ma +++| CWM VMSS-2,ON 03418 M00S03316.1ma +++| SBN 1 03419 M00S03317.1ma +++| CRD CN 03420 M00S03318.1ma +++| LDD CM+4 SET SERVICE CLASS 03421 M00S03319.1ma +++| RJM VSP VALIDATE SERVICE CLASS
| Line S03320 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03422 M01S03320.1ma17a ---| NJN VSC1 IF ERROR
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03423 M01S00010.1ma17a +++| NJN VSC3 IF ERROR 03424 M00S03321.1ma +++| LDD T2 SET SERVICE CLASS CHANGE 03425 M00S03322.1ma +++| STD SC 03426 M00S03323.1ma +++| UJP VSCX RETURN 03427 M00S03324.1ma +++|
| Line S03325 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03428 M01S03325.1ma17a ---| VSC1 SBN 2 03429 M01S03326.1ma17a ---| ZJN VSC2 IF SERVICE CLASS NOT VALID FOR USER
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03430 M01S00011.1ma17a +++| VSC3 SBN 2 03431 M01S00012.1ma17a +++| ZJN VSC4 IF SERVICE CLASS NOT VALID FOR USER 03432 M00S03327.1ma +++| LDN ISER&SFER
| Line S03328 Modification History | |
|---|---|
M01 (Removed by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03433 M01S03328.1ma17a ---| VSC2 LMN ISER SET ERROR STATUS
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 1ma17a |
Seq # *Modification Id* Act ----------------------------+ 03434 M01S00013.1ma17a +++| VSC4 LMN ISER SET ERROR STATUS 03435 M00S03329.1ma +++| LJM PERX PROCESS ERROR 03436 M00S03330.1ma +++| VUD SPACE 4,15 03437 M00S03331.1ma +++|** VUD - VALIDATE USER DETACH. 03438 M00S03332.1ma +++|* 03439 M00S03333.1ma +++|* ENTRY (CBUF) = CPA FROM ROLLOUT FILE. 03440 M00S03334.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY. 03441 M00S03335.1ma +++|* (EJEN) = EJT ENTRY. 03442 M00S03336.1ma +++|* 03443 M00S03337.1ma +++|* ERROR (A) = ERROR CODE - EXIT TO *PERX*. 03444 M00S03338.1ma +++|* 03445 M00S03339.1ma +++|* USES T0 - T7, CM - CM+4, CN. 03446 M00S03340.1ma +++|* 03447 M00S03341.1ma +++|* CALLS DTI. 03448 M00S03342.1ma +++| 03449 M00S03343.1ma +++| 03450 M00S03344.1ma +++| VUD SUBR ENTRY/EXIT 03451 M00S03345.1ma +++| LDD W2+1 03452 M00S03346.1ma +++| SHN -6
| Line S03347 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03453 M01S03347.1ma23 ---| SBN SARC 03454 M01S03348.1ma23 ---| ZJN VUDX IF SUBSYSTEM ABORT, DO NOT VALIDATE 03455 M01S03349.1ma23 ---| SBN UDRC-SARC 03456 M01S03350.1ma23 ---| ZJN VUD1 IF USER DETACH 03457 M01S03351.1ma23 ---| LDN DETI 03458 M01S03352.1ma23 ---| RAM VUDA 03459 M01S03353.1ma23 ---| VUD1 LDM CBUF+ACLW*5+3
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03354.1ma +++| RJM DTI GET DETACH LIMIT 03464 M00S03355.1ma +++| MJN VUDX IF UNLIMITED
| Line S03356 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03465 M01S03356.1ma23 ---| VUDA ADN 0 03466 M01S03357.1ma23 ---| NJN VUD2 IF DETACH ALLOWED 03467 M01S03358.1ma23 ---| LJM VUD5 SEND ERROR CODE 03468 M01S03359.1ma23 ---| 03469 M01S03360.1ma23 ---| VUD2 STD CN STORE DETACH COUNT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03470 M01S00004.1ma23 +++| ZJN VUD2 IF DETACH NOT ALLOWED 03471 M01S00005.1ma23 +++| STD CN STORE DETACH COUNT 03472 M00S03361.1ma +++| 03473 M00S03362.1ma +++|* SET UP FAMILY ORDINAL AND USER INDEX. 03474 M00S03363.1ma +++| 03475 M00S03364.1ma +++| LDD EJ 03476 M00S03365.1ma +++| SHN 14 03477 M00S03366.1ma +++| LMD EJ+1 03478 M00S03367.1ma +++| CRD T0 (T2-T3) = FAMILY ORDINAL AND USER INDEX 03479 M00S03368.1ma +++| LDN EJTP 03480 M00S03369.1ma +++| CRD T4 (T4-T5) = EJT ADDRESS, (T6) = ENTRY COUNT 03481 M00S03370.1ma +++| 03482 M00S03371.1ma +++|* COUNT DETACHED JOBS FOR THIS FO/UI. 03483 M00S03372.1ma +++|
| Line S03373 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03484 M01S03373.1ma23 ---| VUD3 LDN EJTE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03485 M01S00006.1ma23 +++| VUD1 LDN EJTE 03486 M00S03374.1ma +++| RAD T5 03487 M00S03375.1ma +++| SHN -14 03488 M00S03376.1ma +++| RAD T4 03489 M00S03377.1ma +++| SHN 14 03490 M00S03378.1ma +++| LMD T5 03491 M00S03379.1ma +++| CRD CM READ *JSNE* OF NEXT ENTRY 03492 M00S03380.1ma +++| LDD CM+2 03493 M00S03381.1ma +++| LMD T2
| Line S03382 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03494 M01S03382.1ma23 ---| NJN VUD4 IF NO MATCH
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03495 M01S00007.1ma23 +++| NJN VUD3 IF NO MATCH 03496 M00S03383.1ma +++| LDD CM+3 03497 M00S03384.1ma +++| LMD T3
| Line S03385 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03498 M01S03385.1ma23 ---| NJN VUD4 IF NO MATCH
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03499 M01S00008.1ma23 +++| NJN VUD3 IF NO MATCH 03500 M00S03386.1ma +++| LDD CM+4 CHECK CONNECTION STATUS 03501 M00S03387.1ma +++| SHN -7 03502 M00S03388.1ma +++| LPN 17 03503 M00S03389.1ma +++| LMN DTCS
| Line S03390 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03504 M01S03390.1ma23 ---| NJN VUD4 IF NOT DETACHED
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03505 M01S00009.1ma23 +++| NJN VUD3 IF NOT DETACHED 03506 M00S03391.1ma +++| SOD CN
| Line S03392 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03507 M01S03392.1ma23 ---| ZJN VUD5 IF LIMIT EXCEEDED 03508 M01S03393.1ma23 ---| VUD4 SOD T6 DECREMENT EJT ENTRY COUNT 03509 M01S03394.1ma23 ---| NJN VUD3 IF SCAN NOT COMPLETE
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03395.1ma +++| LJM VUDX RETURN IF VALIDATED 03514 M00S03396.1ma +++|
| Line S03397 Modification History | |
|---|---|
M01 (Removed by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03515 M01S03397.1ma23 ---| VUD5 LDN DLER DETACH LIMIT EXCEEDED ERROR CODE
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 1ma23 |
Seq # *Modification Id* Act ----------------------------+ 03516 M01S00013.1ma23 +++| VUD4 LDN DLER DETACH LIMIT EXCEEDED ERROR CODE 03517 M00S03398.1ma +++| LJM PERX ERROR EXIT 03518 M00S03399.1ma +++| WCE SPACE 4,10 03519 M00S03400.1ma +++|** WCE - WRITE CHANGES TO EJT. 03520 M00S03401.1ma +++|* 03521 M00S03402.1ma +++|* ENTRY (CM+1) = NUMBER OF CHANGES TO MAKE. 03522 M00S03403.1ma +++|* (EJ - EJ+1) = ADDRESS OF EJT ENTRY TO CHANGE. 03523 M00S03404.1ma +++|* 03524 M00S03405.1ma +++|* EXIT (A) = 0. 03525 M00S03406.1ma +++|* 03526 M00S03407.1ma +++|* USES CM - CM+4. 03527 M00S03408.1ma +++|* 03528 M00S03409.1ma +++|* MACROS MONITOR. 03529 M00S03410.1ma +++| 03530 M00S03411.1ma +++| 03531 M00S03412.1ma +++| WCE SUBR ENTRY/EXIT 03532 M00S03413.1ma +++| LDN 0 03533 M00S03414.1ma +++| STD CM+2 03534 M00S03415.1ma +++| LDD EJ 03535 M00S03416.1ma +++| STD CM+3 03536 M00S03417.1ma +++| LDD EJ+1 03537 M00S03418.1ma +++| STD CM+4 03538 M00S03419.1ma +++| MONITOR UTEM UPDATE SCHEDULE FIELD AND JOB STATUS 03539 M00S03420.1ma +++|* LDN 0 03540 M00S03421.1ma +++| UJN WCEX EXIT 03541 M00S03422.1ma +++| SPACE 4,10 03542 M00S03423.1ma +++|** COMMON DECKS. 03543 M00S03424.1ma +++| 03544 M00S03425.1ma +++| 03545 M00S03426.1ma +++| AST$ SET 1 ASSEMBLE SSCT/SSAT UPDATE FUNCTIONS 03546 M00S03427.1ma +++|*CALL COMPACS 03547 M00S03428.1ma +++|*CALL COMPAST 03548 M00S03429.1ma +++| QUAL$ SET 0 03549 M00S03430.1ma +++| DTI$ SET 1 03550 M00S03431.1ma +++| CET$ EQU 1 DEFINE *CET* ASSEMBLY 03551 M00S03432.1ma +++|*CALL COMPCPE 03552 M00S03433.1ma +++|*CALL COMPCVI 03553 M00S03434.1ma +++|*CALL COMPRJC 03554 M00S03435.1ma +++|*CALL COMPRSS
| Line S03436 Modification History | |
|---|---|
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03555 M01S03436.ns2748 ---|*CALL COMPSTA 03556 M00S03437.1ma +++| CJL$ EQU 1 CHECK SERVICE CLASS AT JOB LIMIT 03557 M00S03438.1ma +++| CUV$ EQU 1 CHECK SERVICE CLASS VALID FOR USER 03558 M00S03439.1ma +++|*CALL COMPVSP 03559 M00S03440.1ma +++| SPACE 4,10 03560 M00S03441.1ma +++| EJEN EQU * 03561 M00S03442.1ma +++| SBUF EQU BFMS-506B SECTOR BUFFER 03562 M00S03443.1ma +++| CBUF EQU SBUF+2 CPA BUFFER 03563 M00S03444.1ma +++| ERRNG SBUF-EJEN-5*EJTE EJT ENTRY OVERFLOWS SECTOR BUFFER 03564 M00S03445.1ma +++| OVERFLOW E1MA 03565 M00S03446.1ma +++| OVERLAY (HIGH USAGE EJT SYSTEM REQUEST PROCESSORS.),E1MA 03566 M00S03447.1ma +++| 2MD SPACE 4,10 03567 M00S03448.1ma +++|**** *2MD* - HIGH USAGE EJT SYSTEM REQUEST PROCESSORS. 03568 M00S03449.1ma +++| 03569 M00S03450.1ma +++| 03570 M00S03451.1ma +++| PRS SUBR ENTRY/EXIT 03571 M00S03452.1ma +++| UJN PRSX EXIT 03572 M00S03453.1ma +++| FTJ SPACE 4,10 03573 M00S03454.1ma +++|** FTJ - FREEZE TERMINAL JOB. 03574 M00S03455.1ma +++|* 03575 M00S03456.1ma +++|* *FTJ* FREEZES THE JOB BY ROLLING IT OUT AND SETTING *DOJS* 03576 M00S03457.1ma +++|* IN THE EJT ENTRY TO KEEP IT ROLLED OUT. *FTJ* THEN ISSUES 03577 M00S03458.1ma +++|* A NULL *TSEM* REQUEST TO INFORM IAF THAT THE SYSTEM NO 03578 M00S03459.1ma +++|* LONGER HAS CONTROL OF THE JOB. THE JOB STATUS 03579 M00S03460.1ma +++|* CONTAINED IN THE EJT IN THE SYSTEM SECTOR IS THE STATUS 03580 M00S03461.1ma +++|* AT THE TIME THE JOB LAST ROLLED OUT. 03581 M00S03462.1ma +++|* 03582 M00S03463.1ma +++|* ENTRY (W1+4) = EJT ORDINAL. 03583 M00S03464.1ma +++|* 03584 M00S03465.1ma +++|* USES T1, W5, CM - CM+4, CN - CN+4. 03585 M00S03466.1ma +++|*
| Line S03467 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03586 M01S03467.271l716 ---|* CALLS IUT.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03587 M01S00021.271l716 +++|* CALLS CAA, IUT. 03588 M00S03468.1ma +++|* 03589 M00S03469.1ma +++|* MACROS DELAY, MONITOR, PAUSE. 03590 M00S03470.1ma +++| 03591 M00S03471.1ma +++| 03592 M00S03472.1ma +++| FTJ BSS 0 ENTRY 03593 M00S03473.1ma +++| LDK 10000+FTJB 03594 M00S03474.1ma +++| RJM IUT SET FORCED ROLLOUT AND CLEAR FORCED ROLLIN 03595 M00S03475.1ma +++| SFA EJT,W1+4 CHECK FOR *EXJS* JOB STATUS 03596 M00S03476.1ma +++| ADK JSNE 03597 M00S03477.1ma +++| CRD CM 03598 M00S03478.1ma +++| ADK SCHE-JSNE 03599 M00S03479.1ma +++| CRD CN 03600 M00S03480.1ma +++| LDD CM+4 CHECK CONNECTION STATUS 03601 M00S03481.1ma +++| SHN -7 03602 M00S03482.1ma +++| LPN 17 03603 M00S03483.1ma +++| SBN OLCS 03604 M00S03484.1ma +++| NJP FTJ3 IF NOT ONLINE 03605 M00S03485.1ma +++| LDD CM+4 03606 M00S03486.1ma +++| LPN 76
| Line S03487 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03607 M01S03487.271l716 ---| SBN EXJS*2 03608 M01S03488.271l716 ---| NJN FTJ1 IF NOT *EXJS* JOB STATUS
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03489.1ma +++| 03617 M00S03490.1ma +++|* CLEAR INTERLOCK IN ORDER TO ISSUE THE *ROCM*. 03618 M00S03491.1ma +++|* REQUEST ROLLOUT AND THEN RETURN THE RETRY ERROR CODE TO 03619 M00S03492.1ma +++|* GIVE THE JOB TIME TO ROLL. 03620 M00S03493.1ma +++|
| Line S03494 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03621 M01S03494.271l716 ---| LDC 400000 CLEAR INTERLOCK
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03622 M01S00029.271l716 +++| FTJ0 LDC 400000 CLEAR INTERLOCK 03623 M00S03495.1ma +++| RJM IUT 03624 M00S03496.1ma +++| LDN ZERL 03625 M00S03497.1ma +++| CRD CM 03626 M00S03498.1ma +++| LDC 4000+ROSR SELECT SCHEDULER ROLLOUT OPTION 03627 M00S03499.1ma +++| STD CM+1 03628 M00S03500.1ma +++| LDD CN+3 SET CONTROL POINT
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03629 M01S00030.271l716 +++|* LDD CN+1 (PCP JOB) 03630 M01S00031.271l716 +++| FTJD EQU *-1 03631 M00S03501.1ma +++| STD CM+2 03632 M00S03502.1ma +++| MONITOR ROCM 03633 M00S03503.1ma +++| LDK RTER RETURN RETRY ERROR CODE 03634 M00S03504.1ma +++| LJM PERX CLEAR INTERLOCK AND DROP 03635 M00S03505.1ma +++| 03636 M00S03506.1ma +++|* IF ROLLED JOB IS NOT IN *IOJS* NOR *DOJS* STATUS, 03637 M00S03507.1ma +++|* THEN SEND A NULL *TSEM* REQUEST TO SET *VROT* COMPLETE 03638 M00S03508.1ma +++|* AND SET *DOJS* JOB STATUS IN THE EJT. 03639 M00S03509.1ma +++|
| Line S03510 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03640 M01S03510.271l716 ---| FTJ1 ADK EXJS*2-DOJS*2
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03641 M01S00032.271l716 +++| FTJ1 LMK DOJS&PCJS 03642 M00S03511.1ma +++| ZJN FTJ2 IF *DOJS* JOB STATUS
| Line S03512 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03643 M01S03512.271l716 ---| ADK DOJS*2-IOJS*2
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03644 M01S00033.271l716 +++| LMK IOJS&DOJS 03645 M00S03513.1ma +++| ZJN FTJ2 IF *IOJS* JOB STATUS 03646 M00S03514.1ma +++| AOM FTJA SET *DOJS* JOB STATUS 03647 M00S03515.1ma +++| LDD CM+4 03648 M00S03516.1ma +++| LPN 76 03649 M00S03517.1ma +++| SBN SUJS*2 03650 M00S03518.1ma +++| FTJ2 ZJP FTJ3 IF SUSPENDED 03651 M00S03519.1ma +++| RJM CAA LOAD WORD 5 FROM PARAMETER BLOCK 03652 M00S03520.1ma +++| ADN 5 GET THE TERMINAL NUMBER 03653 M00S03521.1ma +++| CRD W5 03654 M00S03522.1ma +++| LDK ZERL ISSUE *VASO* *TSEM* REQUEST 03655 M00S03523.1ma +++| CRD CM 03656 M00S03524.1ma +++| LDD TN 03657 M00S03525.1ma +++| STD CM+4 03658 M00S03526.1ma +++| LDK VASO 03659 M00S03527.1ma +++| STD CM 03660 M00S03528.1ma +++| LDD MA 03661 M00S03529.1ma +++| CWD CM
| Line S03530 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03662 M01S03530.271l716 ---| FTJ2.1 MONITOR TSEM
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03663 M01S00034.271l716 +++| FTJ2.1 LDK ZERL 03664 M01S00035.271l716 +++| CRD CM 03665 M01S00036.271l716 +++| MONITOR TSEM 03666 M00S03531.1ma +++| LDD CM+1 03667 M00S03532.1ma +++| ZJN FTJ3 IF *IAF* INACCESSIBLE OR ERROR 03668 M00S03533.1ma +++| LMC 7777 03669 M00S03534.1ma +++| NJN FTJ3 IF REQUEST COMPLETE 03670 M00S03535.1ma +++| PAUSE ST 03671 M00S03536.1ma +++| LDC 3600 *TSEM* QUEUE FULL - DELAY AND RETRY 03672 M00S03537.1ma +++| STD T1 03673 M00S03538.1ma +++| FTJ2.2 DELAY 03674 M00S03539.1ma +++| SOD T1 03675 M00S03540.1ma +++| ZJN FTJ2.1 IF TIME TO REISSUE REQUEST 03676 M00S03541.1ma +++| UJN FTJ2.2 CONTINUE TO DELAY 03677 M00S03542.1ma +++| 03678 M00S03543.1ma +++|* CLEAR FORCED ROLLOUT AND EXIT. 03679 M00S03544.1ma +++| 03680 M00S03545.1ma +++| FTJ3 LDC 1*10000+FTJC CLEAR FORCED ROLLOUT 03681 M00S03546.1ma +++|* LDC 2*10000+FTJC SET *DOJS* STATUS ALSO 03682 M00S03547.1ma +++| FTJA EQU *-2 03683 M00S03548.1ma +++| RJM IUT 03684 M00S03549.1ma +++| LDD W1+4 MUST CLEAR INTERLOCK BEFORE DROPPING 03685 M00S03550.1ma +++| STM PERB 03686 M00S03551.1ma +++| LDN 0 INDICATE NO ERRORS 03687 M00S03552.1ma +++| LJM PERX CLEAR INTERLOCK AND DROP 03688 M00S03553.1ma +++| 03689 M00S03554.1ma +++| FTJB VFD 1/0,5/SCLE,6/2,6/52D,42/2 SET ROLLOUT, CLEAR ROLLIN 03690 M00S03555.1ma +++| FTJC VFD 1/0,5/SCLE,6/1,6/53D,42/0 CLEAR FORCED ROLLOUT 03691 M00S03556.1ma +++| VFD 1/0,5/JSNE,6/5,6/1,42/DOJS SET *DOJS* JOB STATUS 03692 M00S03557.1ma +++| SUB SPACE 4,10 03693 M00S03558.1ma +++|** SUB - SET USER BREAK IN EJT ENTRY. 03694 M00S03559.1ma +++|* 03695 M00S03560.1ma +++|* ENTRY (W1+3) = USER BREAK ERROR FLAG. 03696 M00S03561.1ma +++|* (W1+4) = EJT ORDINAL. 03697 M00S03562.1ma +++|* 03698 M00S03563.1ma +++|* CALLS IUT. 03699 M00S03564.1ma +++| 03700 M00S03565.1ma +++| 03701 M00S03566.1ma +++| SUB BSS 0 ENTRY 03702 M00S03567.1ma +++| 03703 M00S03568.1ma +++|* WHEN SETTING A USER BREAK ERROR FLAG ON A JOB RECENTLY 03704 M00S03569.1ma +++|* RECOVERED, THE JOB STATUS COULD BE *SUJS*. IF SO, CHANGE 03705 M00S03570.1ma +++|* THE STATUS TO *DOJS* SO THAT THE JOB CAN BE ENABLED TO 03706 M00S03571.1ma +++|* PROCESS THE ERROR FLAG. 03707 M00S03572.1ma +++| 03708 M00S03573.1ma +++| SFA EJT,W1+4 CHECK FOR *SUJS* STATUS 03709 M00S03574.1ma +++| ADK JSNE 03710 M00S03575.1ma +++| CRD CM 03711 M00S03576.1ma +++| LDD CM+4 03712 M00S03577.1ma +++| LPN 76 03713 M00S03578.1ma +++| SBN SUJS*2 03714 M00S03579.1ma +++| NJN SUB1 IF NOT *SUJS* STATUS 03715 M00S03580.1ma +++| AOM SUBA SET *DOJS* STATUS 03716 M00S03581.1ma +++| SUB1 LDD W1+3 03717 M00S03582.1ma +++| STM SUBB+4 03718 M00S03583.1ma +++| LDC 1*10000+SUBB SET USER BREAK ERROR FLAG 03719 M00S03584.1ma +++|* LDC 2*10000+SUBB SET *DOJS* STATUS ALSO 03720 M00S03585.1ma +++| SUBA EQU *-2 03721 M00S03586.1ma +++| RJM IUT ISSUE *UTEM* 03722 M00S03587.1ma +++| LJM PERX DROP 03723 M00S03588.1ma +++| 03724 M00S03589.1ma +++| SUBB VFD 1/0,5/PRFE,6/12D,6/36D,42/0 SET USER BREAK ERROR FLAG 03725 M00S03590.1ma +++| VFD 1/0,5/JSNE,6/5,6/1,42/DOJS SET *DOJS* JOB STATUS 03726 M00S03591.1ma +++| TITLE EJT SYSTEM REQUEST SUBROUTINES. 03727 M00S03592.1ma +++| TITLE USER BREAK SUBROUTINES. 03728 M00S03593.1ma +++| IUT SPACE 4,15 03729 M00S03594.1ma +++|** IUT - ISSUE *UTEM* MONITOR FUNCTION. 03730 M00S03595.1ma +++|* 03731 M00S03596.1ma +++|* ENTRY (A) = 1/I, 2/, 3/C, 12/P 03732 M00S03597.1ma +++|* I = 0 IF INTERLOCK SHOULD BE SET. 03733 M00S03598.1ma +++|* = 1 IF INTERLOCK SHOULD BE CLEARED. 03734 M00S03599.1ma +++|* C = NUMBER OF *UTEM* PARAMETER WORDS. 03735 M00S03600.1ma +++|* = 0 IF INTERLOCK REQUEST. 03736 M00S03601.1ma +++|* P = PARAMETER LIST ADDRESS. 03737 M00S03602.1ma +++|* (W1+4) = EJT ORDINAL. 03738 M00S03603.1ma +++|* 03739 M00S03604.1ma +++|* EXIT (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL. 03740 M00S03605.1ma +++|* 03741 M00S03606.1ma +++|* USES CM - CM+4. 03742 M00S03607.1ma +++|* 03743 M00S03608.1ma +++|* MACROS MONITOR. 03744 M00S03609.1ma +++| 03745 M00S03610.1ma +++| 03746 M00S03611.1ma +++| IUT SUBR ENTRY/EXIT 03747 M00S03612.1ma +++| STM IUTA PARAMETER LIST ADDRESS 03748 M00S03613.1ma +++| SHN -14 03749 M00S03614.1ma +++| STD CM+1 03750 M00S03615.1ma +++| LPN 7 NUMBER OF PARAMETER WORDS 03751 M00S03616.1ma +++| ZJN IUT1 IF NO PARAMETER WORDS 03752 M00S03617.1ma +++| STD CM+2 03753 M00S03618.1ma +++| LDD MA WRITE PARAMETERS TO MESSAGE BUFFER 03754 M00S03619.1ma +++| CWM **,CM+2 03755 M00S03620.1ma +++| IUTA EQU *-1 03756 M00S03621.1ma +++| LDN 0 03757 M00S03622.1ma +++| IUT1 STD CM+2 03758 M00S03623.1ma +++| SFA EJT,W1+4 SET UP EJT ADDRESS 03759 M00S03624.1ma +++| STD CM+4 03760 M00S03625.1ma +++| SHN -14 03761 M00S03626.1ma +++| STD CM+3 03762 M00S03627.1ma +++| MONITOR UTEM 03763 M00S03628.1ma +++| LDD CM+1 03764 M00S03629.1ma +++| UJN IUTX RETURN 03765 M00S03630.1ma +++| SPACE 4,10
| Line S03631 Modification History | |
|---|---|
M01 (Removed by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 03766 M01S03631.ns2748 ---|** COMMON DECKS. 03767 M01S03632.ns2748 ---| 03768 M01S03633.ns2748 ---| 03769 M01S03634.ns2748 ---|*CALL COMPSTA 03770 M00S03635.1ma +++| OVERFLOW E1MA 03771 M00S03636.1ma +++| OVERLAY (PROCESS CLOCK UPDATE.),E1MA 03772 M00S03637.1ma +++| PCU SPACE 4,10 03773 M00S03638.1ma +++|*** *PCU* - PROCESS CLOCK UPDATE. 03774 M00S03639.1ma +++|* 03775 M00S03640.1ma +++|* *PCU* WILL DELAY INTERNALLY UNTIL *PDTL* INDICATES THAT A 03776 M00S03641.1ma +++|* MINUTE ROLLOVER OCCURS (DUE TO THE HARDWARE CHARACTERISTICS 03777 M00S03642.1ma +++|* OF THE WALL CLOCK CHIP HARDWARE IN SOME CYBER 180 MODELS) 03778 M00S03643.1ma +++|* AND THEN WRITE A REQUEST INTO THE *DFT/OS BUFFER* SO THAT 03779 M00S03644.1ma +++|* *1MB* WILL BE CALLED BY *MTR* TO UPDATE THE WALL CLOCK CHIP 03780 M00S03645.1ma +++|* (IF PRESENT) AND/OR CTI-MAINTAINED CLOCK VIA *DFT*. 03781 M00S03646.1ma +++| 03782 M00S03647.1ma +++| 03783 M00S03648.1ma +++| PCU SUBR ENTRY/EXIT 03784 M00S03649.1ma +++| RJM PRS PRESET PROGRAM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ma24 |
Seq # *Modification Id* Act ----------------------------+ 03785 M01S00001.1ma24 +++| RJM WDC WAIT FOR DEADSTART COMPLETE 03786 M00S03650.1ma +++| RJM WIB WAIT FOR INACTIVE NOS REQUEST AREA 03787 M00S03651.1ma +++| RJM WMR WAIT FOR MINUTE ROLLOVER 03788 M00S03652.1ma +++| RJM FDR FORMAT *DFT* REQUEST ENTRY 03789 M00S03653.1ma +++| RJM CRF CLEAR CTI CLOCK UPDATE ACTIVE FLAG 03790 M00S03654.1ma +++| UJN PCUX RETURN 03791 M00S03655.1ma +++| TITLE SUBROUTINES. 03792 M00S03656.1ma +++| CRF SPACE 4,10 03793 M00S03657.1ma +++|** CRF - CLEAR CTI CLOCK UPDATE ACTIVE FLAG. 03794 M00S03658.1ma +++|* 03795 M00S03659.1ma +++|* EXIT CTI CLOCK UPDATE ACTIVE FLAG CLEARED IN CMR. 03796 M00S03660.1ma +++|* 03797 M00S03661.1ma +++|* USES CM - CM+4. 03798 M00S03662.1ma +++|* 03799 M00S03663.1ma +++|* MACROS MONITOR. 03800 M00S03664.1ma +++| 03801 M00S03665.1ma +++| 03802 M00S03666.1ma +++| CRF SUBR ENTRY/EXIT 03803 M00S03667.1ma +++| LDN ZERL SET UP *UADM* CALL 03804 M00S03668.1ma +++| CRD CM 03805 M00S03669.1ma +++| AOD CM+1 SET OPTION COUNT 03806 M00S03670.1ma +++| STD CM+2 SET *NODROP* FLAG 03807 M00S03671.1ma +++| LDD MA WRITE *UADM* PARAMETERS 03808 M00S03672.1ma +++| CWM CRFA,ON 03809 M00S03673.1ma +++| MONITOR UADM CLEAR CTI CLOCK UPDATE ACTIVE FLAG 03810 M00S03674.1ma +++| UJN CRFX RETURN 03811 M00S03675.1ma +++| 03812 M00S03676.1ma +++| 03813 M00S03677.1ma +++|* *UADM* PARAMETERS TO CLEAR CTI CLOCK UPDATE ACTIVE FLAG. 03814 M00S03678.1ma +++| 03815 M00S03679.1ma +++| CRFA VFD 12/LDOS,12/INWL,12/3*100+1,24/0 03816 M00S03680.1ma +++| FDR SPACE 4,10 03817 M00S03681.1ma +++|** FDR - FORMAT *DFT* REQUEST. 03818 M00S03682.1ma +++|* 03819 M00S03683.1ma +++|* EXIT FORMATTED REQUEST WRITTEN TO NOS REQUEST AREA. 03820 M00S03684.1ma +++|* 03821 M00S03685.1ma +++|* USES T1, CM - CM+4, CN - CN+4. 03822 M00S03686.1ma +++|* 03823 M00S03687.1ma +++|* CALLS PDT, SDA. 03824 M00S03688.1ma +++|* 03825 M00S03689.1ma +++|* MACROS DELAY, MONITOR. 03826 M00S03690.1ma +++| 03827 M00S03691.1ma +++| 03828 M00S03692.1ma +++| FDR SUBR ENTRY/EXIT 03829 M00S03693.1ma +++| 03830 M00S03694.1ma +++|* OBTAIN INTERLOCK ON NOS REQUEST AREA. 03831 M00S03695.1ma +++| 03832 M00S03696.1ma +++| FDR1 RJM SDA SET ADDRESS OF NOS REQUEST HEADER 03833 M00S03697.1ma +++| STD CM+4 SAVE ADDRESS FOR *UTEM* 03834 M00S03698.1ma +++| SHN -14 03835 M00S03699.1ma +++| STD CM+3 03836 M00S03700.1ma +++| LDN 2 SET NUMBER OF REQUESTS 03837 M00S03701.1ma +++| STD CM+1 03838 M00S03702.1ma +++| LDD MA WRITE REQUESTS TO MESSAGE BUFFER 03839 M00S03703.1ma +++| CWM FDRB,CM+1 03840 M00S03704.1ma +++| MONITOR UTEM ATTEMPT TO GET INTERLOCK 03841 M00S03705.1ma +++| LDD CM+1 CHECK STATUS 03842 M00S03706.1ma +++| ZJN FDR2 IF INTERLOCK OBTAINED 03843 M00S03707.1ma +++| DELAY 03844 M00S03708.1ma +++| UJN FDR1 RETRY INTERLOCK ATTEMPT 03845 M00S03709.1ma +++| 03846 M00S03710.1ma +++|* FORMAT REQUEST. 03847 M00S03711.1ma +++|
| Line S03712 Modification History | |
|---|---|
M01 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 03848 M01S03712.ns2738 ---| FDR2 LDN RQDT SET TASKID FOR CLOCK UPDATE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 03849 M01S00003.ns2738 +++| FDR2 LDN /DFT/RQDT SET TASKID FOR CLOCK UPDATE 03850 M00S03713.1ma +++| STD T1 03851 M00S03714.1ma +++| RJM PDT PACK DATE AND TIME 03852 M00S03715.1ma +++| LDN ACPL CHECK CPU-0 *OFF* STATUS 03853 M00S03716.1ma +++| CRD CM 03854 M00S03717.1ma +++| LDD CM 03855 M00S03718.1ma +++| SHN 21-13 03856 M00S03719.1ma +++| PJN FDR3 IF CPU-0 *ON* 03857 M00S03720.1ma +++| AOM FDRA CHANGE TO READ *FRC* FOR CPU-1
| Line S03721 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03858 M01S03721.271l750 ---| FDR3 LDC BIOL
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03859 M01S00002.271l750 +++| FDR3 LDC CMTP 03860 M00S03722.1ma +++| CRD CM 03861 M00S03723.1ma +++| LDD CM+3 SET FWA OF *CPUMTR* 03862 M00S03724.1ma +++| SHN 14 03863 M00S03725.1ma +++| LMD CM+4
| Line S03726 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03864 M01S03726.271l750 ---| FDRA ADN 1 READ *FRC* FOR CPU-0 03865 M01S03727.271l750 ---|* ADN 2 (CPU-0 *OFF*)
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03866 M01S00003.271l750 +++| FDRA ADN CPBT READ *FRC* FOR CPU-0 03867 M01S00004.271l750 +++|* ADN CPBT+1 (CPU-0 *OFF*) 03868 M00S03728.1ma +++| CRD CM
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | ns2761 |
Seq # *Modification Id* Act ----------------------------+ 03869 M02S00005.ns2761 ---| LDN 0 CLEAR MONITOR MODE STATUS 03870 M02S00006.ns2761 ---| STD CM 03871 M00S03729.1ma +++| 03872 M00S03730.1ma +++|* THE FOLLOWING CODE ASSUMES THERE IS ONLY ONE REQUEST BUFFER 03873 M00S03731.1ma +++|* WHICH IMMEDIATELY FOLLOWS THE REQUEST HEADER.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1ma.001.txt · Last modified: by 127.0.0.1