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.