cdc:nos2.source:opl.opl871:deck:1sj.005
Deck 1SJ Part 005
101 Modifications
Listing Sections
- Deck 1SJ Start
- Deck 1SJ Part 1 (Line 963)
- Deck 1SJ Part 2 (Line 2270)
- Deck 1SJ Part 3 (Line 3370)
- Deck 1SJ Part 4 (Line 4196)
- Deck 1SJ Part 5 (Line 5354)
- Deck 1SJ Part 6 (Line 6525)
- Deck 1SJ Part 7 (Line 7781)
Source
Seq # *Modification Id* Act ----------------------------+ 05354 M03S03022.271l716 ---| ORG *-1 05355 M03S03023.271l716 ---| LOC CMSE 05356 M03S03024.271l716 ---| PJN CMS10 IF NOT TIME FOR CHECKPOINT PROCESSING 05357 M03S03025.271l716 ---| LOC *O 05358 M03S03026.271l716 ---| STM CMSE 05359 M03S03027.271l716 ---| LDC ** 05360 M03S03028.271l716 ---| ORG *-1 05361 M03S03029.271l716 ---| LOC CMSF 05362 M03S03030.271l716 ---| ZJN CMS2 IF CHECKPOINT NOT REQUESTED ON DEVICE 05363 M03S03031.271l716 ---| LOC *O 05364 M03S03032.271l716 ---| STM CMSF
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2153 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05365 M02S00045.271l716 ---| STM PPFA
| Line S03033 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | ns2134 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05366 M03S03033.271l716 ---| PTE2 LDD EJ+4 05367 M03S03034.271l716 ---| LPN 77 05368 M03S03035.271l716 ---| LMN TOJS*2 05369 M03S03036.271l716 ---| NJN PTE1 IF JOB ROLLING IN OR JOB STATUS NOT *TOJS* 05370 M03S03037.271l716 ---| LDD CM GET SERVICE CLASS 05371 M03S03038.271l716 ---| LPN 60 MASK FORCED ROLLOUT/ROLLIN BITS 05372 M03S03039.271l716 ---| LMN 20 05373 M03S03040.271l716 ---| STM PTED SET/CLEAR *EATM* REISSUE FLAG 05374 M03S03041.271l716 ---| NJN PTE4 IF NOT FORCED ROLLIN 05375 M03S03042.271l716 ---| PTE3 LJM PTE12 GO CHANGE JOB STATUS AND SET PRIORITY 05376 M03S03043.271l716 ---| 05377 M03S03044.271l716 ---| PTE4 LDD AA+3 05378 M03S03045.271l716 ---| LPC 777 05379 M03S03046.271l716 ---| LMN EXTM/10000 05380 M03S03047.271l716 ---| STM PTEC SET/CLEAR EXTENDED TIMED ROLLOUT FLAG 05381 M03S03048.271l716 ---| NJN PTE6 IF NOT EXTENDED TIMED ROLLOUT 05382 M03S03049.271l716 ---| SOD AA+4 DECREMENT ROLLOUT TIME (2ND BYTE) 05383 M03S03050.271l716 ---| STM PTEF+4 05384 M03S03051.271l716 ---| ZJN PTE5 IF 2ND BYTE OF ROLLOUT TIME EXHAUSTED 05385 M03S03052.271l716 ---| LDC PTEF+10000*1 05386 M03S03053.271l716 ---| UJN PTE9 GO ISSUE *UTEM* TO UPDATE EJT ENTRY 05387 M03S03054.271l716 ---| 05388 M03S03055.271l716 ---| PTE5 LCN 0 RESET 2ND BYTE OF ROLLOUT TIME 05389 M03S03056.271l716 ---| STM PTEF+4 05390 M03S03057.271l716 ---| PTE6 LDD AA+2 05391 M03S03058.271l716 ---| LPN 77 05392 M03S03059.271l716 ---| SHN 14 05393 M03S03060.271l716 ---| LMD AA+3 05394 M03S03061.271l716 ---| SHN 10-21 05395 M03S03062.271l716 ---| STM PTED SET/CLEAR EVENT FLAG 05396 M03S03063.271l716 ---| ZJN PTE3 IF ROLLOUT TIME EXPIRED 05397 M03S03064.271l716 ---| SBN 1 DECREMENT COUNTER 05398 M03S03065.271l716 ---| STM PTEE+4 05399 M03S03066.271l716 ---| LDC ** 05400 M03S03067.271l716 ---| PTEC EQU *-1 (EXTENDED TIMED/ROLLOUT FLAG) 05401 M03S03068.271l716 ---| NJN PTE7 IF NOT EXTENDED TIMED ROLLOUT 05402 M03S03069.271l716 ---| LDC PTEE+10000*2 05403 M03S03070.271l716 ---| UJN PTE9 GO ISSUE *UTEM* TO UPDATE EJT ENTRY 05404 M03S03071.271l716 ---| 05405 M03S03072.271l716 ---| PTE7 LDD AA+3 CHECK FOR EVENT 05406 M03S03073.271l716 ---| LPC 777 05407 M03S03074.271l716 ---| STD AA+3 05408 M03S03075.271l716 ---| ADD AA+4 05409 M03S03076.271l716 ---| NJN PTE10 IF EVENT EXISTS 05410 M03S03077.271l716 ---| 05411 M03S03078.271l716 ---|* EVENT EXISTS BUT HAS NOT BEEN POSTED YET AND ROLLOUT TIME HAS 05412 M03S03079.271l716 ---|* NOT EXPIRED OR NO EVENT EXISTS AND ROLLOUT TIME HAS NOT 05413 M03S03080.271l716 ---|* EXPIRED. DECREMENT ROLLOUT TIME VIA *UTEM*. 05414 M03S03081.271l716 ---| 05415 M03S03082.271l716 ---| PTE8 LDC PTEE+10000*1 05416 M03S03083.271l716 ---| PTE9 RJM IUT ISSUE *UTEM* MONITOR FUNCTION 05417 M03S03084.271l716 ---| LJM PTE1 CONTINUE EJT SCAN 05418 M03S03085.271l716 ---| 05419 M03S03086.271l716 ---|* SCAN *TEVT* TABLE TO SEE IF THIS JOB-S EVENT HAS BEEN POSTED. 05420 M03S03087.271l716 ---| 05421 M03S03088.271l716 ---| PTE10 LDD T7 INITIALIZE INDEX 05422 M03S03089.271l716 ---| SHN 1 05423 M03S03090.271l716 ---| STD T2 05424 M03S03091.271l716 ---| PTE11 LCN 2 DECREMENT INDEX 05425 M03S03092.271l716 ---| RAD T2 05426 M03S03093.271l716 ---| MJN PTE8 IF *TEVT* SCAN COMPLETE, EVENT NOT FOUND 05427 M03S03094.271l716 ---| LDM TEVT,T2 05428 M03S03095.271l716 ---| LMD AA+3 05429 M03S03096.271l716 ---| NJN PTE11 IF NO MATCH 05430 M03S03097.271l716 ---| LDM TEVT+1,T2 05431 M03S03098.271l716 ---| LMD AA+4 05432 M03S03099.271l716 ---| NJN PTE11 IF NO MATCH 05433 M03S03100.271l716 ---| 05434 M03S03101.271l716 ---|* EVENT WAS FOUND IN *TEVT* OR ROLLOUT TIME HAS EXPIRED. 05435 M03S03102.271l716 ---|* CHANGE JOB STATUS TO *ROJS* AND SET PRIORITY TO UPPER BOUND 05436 M03S03103.271l716 ---|* OF SERVICE CLASS. 05437 M03S03104.271l716 ---| 05438 M03S03105.271l716 ---| PTE12 LDM TEPB+2*MXJC,SC SET UP *CET* PARAMETERS 05439 M03S03106.271l716 ---| STD T1 05440 M03S03107.271l716 ---| LDD SC 05441 M03S03108.271l716 ---| SHN 14 05442 M03S03109.271l716 ---| LMN EXQT 05443 M03S03110.271l716 ---| RJM CET CALCULATE ENTRY TIME 05444 M03S03111.271l716 ---| LDD T1 PLACE ENTRY TIME IN *UTEM* PARAMETER BLOCK
| Line S03112 Modification History | |
|---|---|
M01 (Removed by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05445 M04S03112.271l716 ---| STM PTEG+1*5+3
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05446 M04S00001.271l716 ---| STM PTEG+2*5+3
| Line S03113 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | ns2134 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05447 M03S03113.271l716 ---| LDD T2
| Line S03114 Modification History | |
|---|---|
M01 (Removed by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05448 M04S03114.271l716 ---| STM PTEG+1*5+4 05449 M04S03115.271l716 ---| LDC PTEG+2*10000
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05450 M04S00002.271l716 ---| STM PTEG+2*5+4 05451 M04S00003.271l716 ---| LDC PTEG+PTEGL*10000
| Line S03116 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | ns2134 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05452 M03S03116.271l716 ---| RJM IUT ISSUE *UTEM* 05453 M03S03117.271l716 ---| ZJN PTE13 IF FUNCTION ACCEPTED 05454 M03S03118.271l716 ---| LDC ** 05455 M03S03119.271l716 ---| PTED EQU *-1 (*EATM* REISSUE FLAG) 05456 M03S03120.271l716 ---| ZJN PTE13 IF ROLLOUT TIME EXPIRED OR FORCED ROLLIN 05457 M03S03121.271l716 ---| LDN 0 SET *EATM* SUBFUNCTION 05458 M03S03122.271l716 ---| STD CM+1 05459 M03S03123.271l716 ---| LDD AA+3 STORE EVENT IN *EATM* CALL 05460 M03S03124.271l716 ---| STD CM+3 05461 M03S03125.271l716 ---| LDD AA+4 05462 M03S03126.271l716 ---| STD CM+4 05463 M03S03127.271l716 ---| MONITOR EATM REISSUE EVENT TO *MTR* 05464 M03S03128.271l716 ---| PTE13 LJM PTE1 CONTINUE EJT SCAN 05465 M03S03129.271l716 ---| 05466 M03S03130.271l716 ---|* *UTEM* PARAMETERS FOR DECREMENTING ROLLOUT TIME. 05467 M03S03131.271l716 ---| 05468 M03S03132.271l716 ---| PTEE VFD 1/0,5/SCHE,6/9D 05469 M03S03133.271l716 ---| VFD 6/21D,6/0 05470 M03S03134.271l716 ---| CON 0 05471 M03S03135.271l716 ---| CON 0 05472 M03S03136.271l716 ---| CON 0 05473 M03S03137.271l716 ---| 05474 M03S03138.271l716 ---| PTEF VFD 1/0,5/SCHE,6/12D 05475 M03S03139.271l716 ---| VFD 6/0,6/0 05476 M03S03140.271l716 ---| CON 0 05477 M03S03141.271l716 ---| CON 0 05478 M03S03142.271l716 ---| CON 0 05479 M03S03143.271l716 ---| 05480 M03S03144.271l716 ---|* *UTEM* PARAMETERS FOR CHANGING JOB STATUS AND SETTING 05481 M03S03145.271l716 ---|* SCHEDULING PRIORITY TO UPPER BOUND 05482 M03S03146.271l716 ---|
| Line S03147 Modification History | |
|---|---|
M01 (Removed by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05483 M04S03147.271l716 ---| PTEG VFD 1/0,5/JSNE,6/5 SET JOB STATUS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05484 M04S00004.271l716 ---|PTEG VFD 1/1,5/JSNE,6/1 VALIDATE CLEAR INTERLOCK 05485 M04S00005.271l716 ---| VFD 6/0,6/0 05486 M04S00006.271l716 ---| CON 0,0,0 05487 M04S00007.271l716 ---| VFD 1/0,5/JSNE,6/5 SET JOB STATUS
| Line S03148 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | ns2134 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05488 M03S03148.271l716 ---| VFD 6/1,6/0 05489 M03S03149.271l716 ---| CON 0 05490 M03S03150.271l716 ---| CON 0 05491 M03S03151.271l716 ---| CON ROJS 05492 M03S03152.271l716 ---| 05493 M03S03153.271l716 ---| VFD 1/0,5/SCHE,6/30D SET SCHEDULING PRIORITY 05494 M03S03154.271l716 ---| VFD 6/0,6/0 05495 M03S03155.271l716 ---| CON 0 05496 M03S03156.271l716 ---| CON 0 05497 M03S03157.271l716 ---| CON 0
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1sj4 |
M02 (Removed by) | ns22000 |
M03 (Removed by) | ns2134 |
M04 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05498 M04S00008.271l716 ---| 05499 M04S00009.271l716 ---| PTEGL EQU */5-PTEG/5 BLOCK LENGTH
| Line S00484 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2134 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05500 M03S00484.271l716 ---| SEJ2 LDM SCJB 05501 M03S00485.271l716 ---| LPN 4
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | ns2153 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05502 M03S00023.271l716 ---| ISTORE CMSE,(PJN CMS10) DISABLE *CMS* CALL 05503 M03S00024.271l716 ---| ISTORE CMSF,(ZJN CMS2)
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05504 M02S00025.271l716 ---| SEJ2 LDC ** 05505 M02S00026.271l716 ---| SEJC EQU *-1 (SYSTEM LIMITS CHANGED FLAG)
| Line S00486 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05506 M02S00486.271l716 ---| ZJN SEJ3 IF SYSTEM LIMITS HAVE NOT CHANGED 05507 M02S00487.271l716 ---| RJM CAL CHECK ACCESS LEVEL LIMITS 05508 M02S00488.271l716 ---| NJN SEJ4 IF JOB ABORTED OR IN TERMINATION 05509 M02S00489.271l716 ---| SEJ3 RJM PTE PROCESS TIMED/EVENT ROLLOUT JOBS
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2395 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05510 M02S00059.271l716 ---| RJM PSL PROCESS SERVICE LIMITS
| Line S00490 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05511 M02S00490.271l716 ---| SEJ4 LJM SEJ1 PROCESS NEXT EJT ENTRY 05512 M02S00491.271l716 ---| 05513 M02S00492.271l716 ---|
| Line S00493 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2134 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05514 M03S00493.271l716 ---| SEJC CON /CPS/LDOS DECREMENT BY ONE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05515 M02S00027.271l716 ---|* *UADM* PARAMETERS TO CLEAR SYSTEM LIMITS CHANGED FLAG. 05516 M02S00028.271l716 ---| 05517 M02S00029.271l716 ---| SEJD CON /CPS/LDOS DECREMENT BY ONE
| Line S00494 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05518 M02S00494.271l716 ---| CON INWL 05519 M02S00495.271l716 ---| CON 14D*100+1 BIT ADDRESS AND FIELD WIDTH
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2395 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05520 M02S00060.271l716 ---| SRS SPACE 4,10 05521 M02S00061.271l716 ---|** SRS - SET ROLLOUT STATUS. 05522 M02S00062.271l716 ---|*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1sj39 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05523 M02S00003.271l716 ---|* ENTRY (SRSA+4) = JOB STATUS OF SELECTED ENTRY. 05524 M02S00004.271l716 ---|*
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2395 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05525 M02S00063.271l716 ---|* EXIT (A) = 0, IF *UTEM* CALL COMPLETED. 05526 M02S00064.271l716 ---|* .NE. 0, IF *UTEM* ABORTED. 05527 M02S00065.271l716 ---|* USES T1. 05528 M02S00066.271l716 ---|* 05529 M02S00067.271l716 ---|* CALLS IUT. 05530 M02S00068.271l716 ---| 05531 M02S00069.271l716 ---| 05532 M02S00070.271l716 ---| SRS SUBR ENTRY/EXIT 05533 M02S00071.271l716 ---| LDM TEPB+2*MXJC,SC SET UP *CET* PARAMETERS 05534 M02S00072.271l716 ---| STD T1 05535 M02S00073.271l716 ---| LDD SC 05536 M02S00074.271l716 ---| SHN 14 05537 M02S00075.271l716 ---| LMN EXQT 05538 M02S00076.271l716 ---| RJM CET CALCULATE ENTRY TIME 05539 M02S00077.271l716 ---| LDD T1 PLACE ENTRY TIME IN *UTEM* PARAMETER BLOCK 05540 M02S00078.271l716 ---| STM SRSA+2*5+3 05541 M02S00079.271l716 ---| LDD T2 05542 M02S00080.271l716 ---| STM SRSA+2*5+4 05543 M02S00081.271l716 ---| LDD EJ+4 CHECK FOR *PWJS* STATUS 05544 M02S00082.271l716 ---| LPN 76 05545 M02S00083.271l716 ---| LMK PWJS*2 05546 M02S00084.271l716 ---| ZJN SRS1 IF SHOULD CHANGE *PWJS* TO *PRJS* 05547 M02S00085.271l716 ---| LDK ROJS&PRJS SET *ROJS* STATUS FOR *ERJS* OR *TOJS* 05548 M02S00086.271l716 ---| SRS1 LMK PRJS 05549 M02S00087.271l716 ---| STM SRSA+1*5+4 05550 M02S00088.271l716 ---| LDC SRSA+SRSAL*10000 05551 M02S00089.271l716 ---| RJM IUT ISSUE *UTEM* 05552 M02S00090.271l716 ---| LJM SRSX RETURN 05553 M02S00091.271l716 ---| 05554 M02S00092.271l716 ---|* *UTEM* PARAMETERS FOR CHANGING JOB STATUS AND SETTING 05555 M02S00093.271l716 ---|* SCHEDULING PRIORITY TO UPPER BOUND. 05556 M02S00094.271l716 ---|
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ns2395 |
M02 (Removed by) | 1sj39 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05557 M03S00095.271l716 ---|SRSA VFD 1/1,5/JSNE,6/1 VALIDATE CLEAR INTERLOCK
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1sj39 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05558 M02S00005.271l716 ---| SRSA VFD 1/1,5/JSNE,6/6 VALIDATE JOB STATUS UNCHANGED
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | ns2395 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05559 M02S00096.271l716 ---| VFD 6/0,6/0 05560 M02S00097.271l716 ---| CON 0 05561 M02S00098.271l716 ---| CON 0 05562 M02S00099.271l716 ---| CON 0 05563 M02S00100.271l716 ---| 05564 M02S00101.271l716 ---| VFD 1/0,5/JSNE,6/5 SET JOB STATUS 05565 M02S00102.271l716 ---| VFD 6/1,6/0 05566 M02S00103.271l716 ---| CON 0 05567 M02S00104.271l716 ---| CON 0 05568 M02S00105.271l716 ---| CON ROJS 05569 M02S00106.271l716 ---| 05570 M02S00107.271l716 ---| VFD 1/0,5/SCHE,6/30D SET SCHEDULING PRIORITY 05571 M02S00108.271l716 ---| VFD 6/0,6/0 05572 M02S00109.271l716 ---| CON 0 05573 M02S00110.271l716 ---| CON 0 05574 M02S00111.271l716 ---| CON 0 05575 M02S00112.271l716 ---| 05576 M02S00113.271l716 ---| SRSAL EQU */5-SRSA/5 BLOCK LENGTH 05577 M02S00114.271l716 ---|
| Line S03158 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05578 M01S03158.271l716 ---| SPACE 4,10 05579 M01S03159.271l716 ---|* COMMON DECKS. 05580 M01S03160.271l716 ---| 05581 M01S03161.271l716 ---| 05582 M01S03162.271l716 ---| CET$ SET 1 ASSEMBLE ROUTINE *CET* OF *COMPCPE* 05583 M01S03163.271l716 ---| LIST X
| Line S03164 Modification History | |
|---|---|
M01 (Removed by) | ns2153 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05584 M02S03164.271l716 ---|*CALL COMPAST
| Line S03165 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05585 M01S03165.271l716 ---|*CALL COMPCPE 05586 M01S03166.271l716 ---|*CALL COMPSEI 05587 M01S03167.271l716 ---| LIST * 05588 M01S03168.271l716 ---| USE TABLES 05589 M01S03169.271l716 ---| TABLES BSS 0 *3SB* TABLES ORIGIN 05590 M01S03170.271l716 ---| PRS SPACE 4,10 05591 M01S03171.271l716 ---|** PRS - PRESET *3SB*. 05592 M01S03172.271l716 ---|* 05593 M01S03173.271l716 ---|* USES CM - CM+4, AA - AA+4.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05594 M02S00030.271l716 ---|* 05595 M02S00031.271l716 ---|* MACROS ISTORE.
| Line S03174 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05596 M01S03174.271l716 ---| 05597 M01S03175.271l716 ---| 05598 M01S03176.271l716 ---| PRS SUBR ENTRY/EXIT 05599 M01S03177.271l716 ---| LDN SSTL 05600 M01S03178.271l716 ---| CRD CM 05601 M01S03179.271l716 ---| ADN EJTP-SSTL 05602 M01S03180.271l716 ---| CRD AA 05603 M01S03181.271l716 ---| LDD CM 05604 M01S03182.271l716 ---| SHN 21-5 05605 M01S03183.271l716 ---| MJN PRS1 IF USER ECS IS DISABLED
| Line S03184 Modification History | |
|---|---|
M01 (Removed by) | ns2134 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05606 M02S03184.271l716 ---| LDC ** DISABLE USER ECS CHECK 05607 M02S03185.271l716 ---| ORG *-1 05608 M02S03186.271l716 ---| LOC PCAA 05609 M02S03187.271l716 ---| UJN PCA9 AVOID USER ECS CHECK 05610 M02S03188.271l716 ---| LOC *O 05611 M02S03189.271l716 ---| STM PCAA
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05612 M02S00032.271l716 ---| ISTORE PCAA,(UJN PCA9) DISABLE USER ECS CHECK
| Line S03190 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05613 M01S03190.271l716 ---| PRS1 LDD AA PRESET EJT FWA
| Line S03191 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05614 M02S03191.271l716 ---| RAM PTEB-1
| Line S00496 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05615 M02S00496.271l716 ---| RAM SEJB-1
| Line S03192 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05616 M01S03192.271l716 ---| LDD AA+1
| Line S03193 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05617 M02S03193.271l716 ---| STM PTEB
| Line S00497 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05618 M02S00497.271l716 ---| STM SEJB
| Line S03194 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05619 M01S03194.271l716 ---| LDD AA+2 SET START OF EJT SCAN
| Line S03195 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05620 M02S03195.271l716 ---| STM PTEA
| Line S00498 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05621 M02S00498.271l716 ---| STM SEJA
| Line S03196 Modification History | |
|---|---|
M01 (Removed by) | ns2153 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05622 M02S03196.271l716 ---| LDM SCJB 05623 M02S03197.271l716 ---| LPN 2 05624 M02S03198.271l716 ---| ZJN PRSX IF *AUTO* HAS BEEN ENTERED
| Line S03199 Modification History | |
|---|---|
M01 (Removed by) | ns2134 |
M02 (Removed by) | ns2153 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05625 M03S03199.271l716 ---| LDC ** DISABLE *CMS* CALL 05626 M03S03200.271l716 ---| ORG *-1 05627 M03S03201.271l716 ---| LOC CMSE 05628 M03S03202.271l716 ---| PJN CMS10 IF NOT TIME FOR CHECKPOINT PROCESSING 05629 M03S03203.271l716 ---| LOC *O 05630 M03S03204.271l716 ---| STM CMSE 05631 M03S03205.271l716 ---| LDC ** 05632 M03S03206.271l716 ---| ORG *-1 05633 M03S03207.271l716 ---| LOC CMSF 05634 M03S03208.271l716 ---| ZJN CMS2 IF CHECKPOINT NOT REQUESTED NO DEVICE 05635 M03S03209.271l716 ---| LOC *O 05636 M03S03210.271l716 ---| STM CMSF
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | ns2153 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05637 M03S00033.271l716 ---| ISTORE CMSE,(PJN CMS10) DISABLE *CMS* CALL 05638 M03S00034.271l716 ---| ISTORE CMSF,(ZJN CMS2)
| Line S03211 Modification History | |
|---|---|
M01 (Removed by) | ns2153 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05639 M02S03211.271l716 ---| LJM PRSX RETURN
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2153 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05640 M02S00046.271l716 ---| UJN PRSX RETURN
| Line S03212 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05641 M01S03212.271l716 ---| SPACE 4,10 05642 M01S03213.271l716 ---|* *3SB* TABLE DEFINITIONS. 05643 M01S03214.271l716 ---| 05644 M01S03215.271l716 ---| 05645 M01S03216.271l716 ---|** TEVT - POSTED EVENTS. 05646 M01S03217.271l716 ---|* ENTRY = 2 WORDS. 05647 M01S03218.271l716 ---|* 05648 M01S03219.271l716 ---|*T 24/ EV
Figure
| Line S03220 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05649 M02S03220.271l716 ---|* EV POSTED EVENT OBTAINED FROM *MTR* VIA *EATM* MONITOR 05650 M02S03221.271l716 ---|* FUNCTION.
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05651 M02S00096.271l716 ---|* EV POSTED EVENT OBTAINED FROM EVT TABLE.
| Line S03222 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05652 M01S03222.271l716 ---| 05653 M01S03223.271l716 ---| 05654 M01S03224.271l716 ---| TEVT EQU TABLES 05655 M01S03225.271l716 ---| SPACE 4,10 05656 M01S03226.271l716 ---|** TOVF - ACCUMULATOR OVERFLOW FLAGS. 05657 M01S03227.271l716 ---|* ENTRY = 1 WORD. 05658 M01S03228.271l716 ---|* INDEXED BY CONTROL POINT NUMBER. 05659 M01S03229.271l716 ---|* 05660 M01S03230.271l716 ---|*T 12/ OF
Figure
05661 M01S03231.271l716 ---|* OF OVERFLOW FLAGS FROM *SRUW*. 05662 M01S03232.271l716 ---| 05663 M01S03233.271l716 ---|
| Line S03234 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05664 M02S03234.271l716 ---| TOVF EQU TEVT+30D
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 1sj51 |
M03 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05665 M03S00097.271l716 ---| TOVF EQU TEVT+2*MEVC+1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj51 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05666 M02S00001.271l716 ---| TOVF EQU TJAM-40 05667 M02S00002.271l716 ---| 05668 M02S00003.271l716 ---| ERRPL TEVT+2*MEVC+1-TOVF *TEVT* OVERFLOWS INTO *TOVF*
| Line S03235 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05669 M01S03235.271l716 ---| SPACE 4,10 05670 M01S03236.271l716 ---|* OVERFLOW CHECKS. 05671 M01S03237.271l716 ---| 05672 M01S03238.271l716 ---| 05673 M01S03239.271l716 ---| OVERFLOW O3SB,TJAM
| Line S03240 Modification History | |
|---|---|
M01 (Removed by) | ns2153 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05674 M02S03240.271l716 ---| ERRNG TJAM-OVL0-ZAUL ENSURE *0AU* LWA .LT. FWA *TJAM*
| Line S03241 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05675 M01S03241.271l716 ---| SPACE 4,10 05676 M01S03242.271l716 ---| QUAL 05677 M01S03243.271l716 ---| TTL 1SJ/3SC - SCHEDULE INPUT FILES TO EJT.
| Line S00533 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05678 M01S00533.271l716 +++| TTL 1SJ/3SB - SCHEDULE INPUT FILES TO EJT. 05679 M00S03244.1sj +++| TITLE
| Line S03245 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05680 M01S03245.271l716 ---| IDENT 3SC,O3SC SCHEDULE INPUT FILES TO EJT.
| Line S00534 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05681 M01S00534.271l716 +++| IDENT 3SB,O3SB SCHEDULE INPUT FILES TO EJT. 05682 M00S03246.1sj +++| BASE M
| Line S03247 Modification History | |
|---|---|
M01 (Removed by) | ns2437 |
Seq # *Modification Id* Act ----------------------------+ 05683 M01S03247.ns2437 ---| LIST F,X 05684 M00S03248.1sj +++| SST 05685 M00S03249.1sj +++|*COMMENT 1SJ - SCHEDULE INPUT FILES TO EJT.
| Line S03250 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 05686 M01S03250.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 05687 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S03251 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05688 M01S03251.271l716 ---| ORG O3SC 05689 M01S03252.271l716 ---| QUAL 3SC
| Line S00535 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05690 M01S00535.271l716 +++| ORG O3SB 05691 M01S00536.271l716 +++| QUAL 3SB 05692 M00S03253.1sj +++| QUAL$ SET 1
| Line S03254 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05693 M01S03254.271l716 ---| 3SC SPACE 4,15
| Line S00537 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05694 M01S00537.271l716 +++| 3SB SPACE 4,15 05695 M00S03255.1sj +++|** SIE - SCHEDULE INPUT FILES TO EJT. 05696 M00S03256.1sj +++|* 05697 M00S03257.1sj +++|* SCHEDULE AS MANY INPUT FILES TO THE EJT AS POSSIBLE, UP TO A 05698 M00S03258.1sj +++|* LIMIT OF *TIOOL*. AN INPUT FILE QFT ENTRY IS CONSIDERED 05699 M00S03259.1sj +++|* ELIGIBLE FOR SCHEDULING ONLY IF THE FOLLOWING CONDITIONS ARE 05700 M00S03260.1sj +++|* MET - 05701 M00S03261.1sj +++|* 1. THE FILE TYPE IS INPUT. 05702 M00S03262.1sj +++|* 2. THE QFT ENTRY IS NOT ASSIGNED TO AN EJT ENTRY. 05703 M00S03263.1sj +++|* 3. SCHEDULING THE INPUT FILE TO THE EJT WOULD NOT 05704 M00S03264.1sj +++|* INCREASE THE SERVICE CLASS JOB COUNT ABOVE THE 05705 M00S03265.1sj +++|* ALLOWABLE MAXIMUM. 05706 M00S03266.1sj +++|* 4. THE QFT ENTRY TIME FIELD IS NON-ZERO. 05707 M00S03267.1sj +++| 05708 M00S03268.1sj +++| 05709 M00S03269.1sj +++| SIE SUBR ENTRY/EXIT
| Line S03270 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05710 M01S03270.271l716 ---| RJM PRS PRESET *3SC*
| Line S00538 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05711 M01S00538.271l716 +++| RJM PRS PRESET *3SB*
| Line S03271 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 05712 M01S03271.1sj50 ---| LDN MXJC-1 INITIALIZE *TJCT* TABLE 05713 M01S03272.1sj50 ---| STD T1 05714 M01S03273.1sj50 ---| SIE1 LDN 0 05715 M01S03274.1sj50 ---| STM TJCT,T1 05716 M01S03275.1sj50 ---| SOD T1 DECREMENT TABLE INDEX 05717 M01S03276.1sj50 ---| PJN SIE1 IF NOT DONE 05718 M01S03277.1sj50 ---| RJM SEJ SCAN EJT 05719 M00S03278.1sj +++| ZJN SIE2 IF QFT SCHEDULING SHOULD NOT BE PERFORMED 05720 M00S03279.1sj +++| RJM SIQ SCAN QFT 05721 M00S03280.1sj +++| LDD T7 05722 M00S03281.1sj +++| LMN TIOOL 05723 M00S03282.1sj +++| ZJN SIE2 IF *TIOO* TABLE IS EMPTY
| Line S03283 Modification History | |
|---|---|
M01 (Removed by) | ns2181 |
Seq # *Modification Id* Act ----------------------------+ 05724 M01S03283.ns2181 ---| RJM CEE CREATE EJT ENTRIES
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2181 |
M02 (Removed by) | ns2181b |
Seq # *Modification Id* Act ----------------------------+ 05725 M02S00017.ns2181b ---| LDD SC 05726 M02S00018.ns2181b ---| LMN DSSC 05727 M02S00019.ns2181b ---| NJN SIE1.1 IF NOT DEADSTART SEQUENCING JOB 05728 M02S00020.ns2181b ---| LDM SCJB ENABLE EJT SCHEDULING FOR THIS JOB ONLY 05729 M02S00021.ns2181b ---| SCN 12 05730 M02S00022.ns2181b ---| STM SCJB 05731 M02S00023.ns2181b ---| SIE1.1 RJM CEE CREATE EJT ENTRIES
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2181b |
Seq # *Modification Id* Act ----------------------------+ 05732 M01S00017.ns2181b +++| RJM CEE CREATE EJT ENTRIES 05733 M00S03284.1sj +++| 05734 M00S03285.1sj +++|* UPDATE THE JOB COUNTS IN THE JOB CONTROL AREA. 05735 M00S03286.1sj +++| 05736 M00S03287.1sj +++| SIE2 LDN MXJC INITIALIZE JCB INDEX 05737 M00S03288.1sj +++| STD T1 05738 M00S03289.1sj +++| SEI3 SOD T1 DECREMENT JCB INDEX
| Line S03290 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05739 M01S03290.ns22000 ---| MJN SIEX IF ALL JCB-S WERE UPDATED
| Line S00499 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05740 M01S00499.ns22000 +++| ZJP SIE5 IF ALL JCB-S WERE UPDATED 05741 M00S03291.1sj +++| RJM RJC CALCULATE JCB ADDRESS
| Line S03292 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05742 M01S03292.ns22000 ---| ADN JCTT
| Line S00500 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05743 M01S00500.ns22000 +++| ADN SVJT 05744 M01S00501.ns22000 +++| CRD BB 05745 M01S00502.ns22000 +++| ADN JCTT-SVJT 05746 M00S03293.1sj +++| CRD AA
| Line S03294 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05747 M01S03294.ns22000 ---| LDM TJCT,T1
| Line S00503 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05748 M01S00503.ns22000 +++| LDD AA 05749 M01S00504.ns22000 +++| SBD BB+3 05750 M01S00505.ns22000 +++| MJN SIE4 IF JOB COUNT WAS LESS THAN JOB LIMIT 05751 M01S00506.ns22000 +++| LDM TJCT,T1 05752 M01S00507.ns22000 +++| SBD BB+3 05753 M01S00508.ns22000 +++| PJN SIE4 IF NEW JOB COUNT NOT BELOW JOB LIMIT 05754 M01S00509.ns22000 +++| AOM SIEA INDICATE TO ISSUE EVENT 05755 M01S00510.ns22000 +++| SIE4 LDM TJCT,T1 05756 M00S03295.1sj +++| STD AA
| Line S03296 Modification History | |
|---|---|
M01 (Removed by) | ns2285 |
Seq # *Modification Id* Act ----------------------------+ 05757 M01S03296.ns2285 ---| LDD T1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2285 |
Seq # *Modification Id* Act ----------------------------+ 05758 M01S00001.ns2285 +++| LDD AA+1 05759 M01S00002.ns2285 +++| ZJN SIE4.1 IF NO JOBS WAITING 05760 M01S00003.ns2285 +++| SOD AA+1 DECREMENT QFT TIME-OUT 05761 M01S00004.ns2285 +++| SIE4.1 LDD T1 05762 M00S03297.1sj +++| RJM RJC CALCULATE JCB ADDRESS 05763 M00S03298.1sj +++| ADN JCTT 05764 M00S03299.1sj +++| CWD AA UPDATE JOB COUNT 05765 M00S03300.1sj +++| UJN SEI3 CONTINUE UPDATING JOB COUNTS
| Line S00511 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05766 M01S00511.ns22000 +++| SIE5 LDC 0 05767 M01S00512.ns22000 +++| SIEA EQU *-1 (NONZERO IF TO ISSUE EVENT) 05768 M01S00513.ns22000 +++| ZJN SIE6 IF TO NOT ISSUE EVENT 05769 M01S00514.ns22000 +++| LDN ZERL ISSUE JOB COUNT BELOW SERVICE LIMIT EVENT 05770 M01S00515.ns22000 +++| CRD CM 05771 M01S00516.ns22000 +++| LDN SCFE 05772 M01S00517.ns22000 +++| STD CM+4 05773 M01S00518.ns22000 +++| MONITOR EATM 05774 M01S00519.ns22000 +++| SIE6 LJM SIEX RETURN 05775 M01S00520.ns22000 +++| 05776 M00S03301.1sj +++| CEE SPACE 4,15 05777 M00S03302.1sj +++|** CEE - CREATE EJT ENTRIES. 05778 M00S03303.1sj +++|* 05779 M00S03304.1sj +++|* BUILD AN EJT ENTRY FOR EACH ENTRY IN THE *TIOO* TABLE. 05780 M00S03305.1sj +++|* 05781 M00S03306.1sj +++|* ENTRY (T7) = INDEX OF FIRST *TIOO* ENTRY. 05782 M00S03307.1sj +++|* 05783 M00S03308.1sj +++|* USES T1, T7, CM - CM+4, AA - AA+4, BB - BB+4, EJ - EJ+4, 05784 M00S03309.1sj +++|* EO, IO, SC. 05785 M00S03310.1sj +++|* 05786 M00S03311.1sj +++|* CALLS CET, EJA, IOA, IUT. 05787 M00S03312.1sj +++|* 05788 M00S03313.1sj +++|* MACROS MONITOR. 05789 M00S03314.1sj +++| 05790 M00S03315.1sj +++| 05791 M00S03316.1sj +++| CEE SUBR ENTRY/EXIT 05792 M00S03317.1sj +++| 05793 M00S03318.1sj +++|* GET THE ORDINAL OF THE NEXT AVAILABLE EJT SLOT. 05794 M00S03319.1sj +++| 05795 M00S03320.1sj +++| CEE1 LDN 0 GET EJT ENTRY 05796 M00S03321.1sj +++| STD CM+1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05797 M01S00001.1sj17 +++| STD EO 05798 M01S00002.1sj17 +++| LDD MA SET INITIAL EJT DATA 05799 M01S00003.1sj17 +++| CWM CEEA,ON 05800 M00S03322.1sj +++| LDN /CPS/PEJT 05801 M00S03323.1sj +++| STD CM+2
| Line S03324 Modification History | |
|---|---|
M01 (Removed by) | 1sj36 |
Seq # *Modification Id* Act ----------------------------+ 05802 M01S03324.1sj36 ---| LDM TIOO+2*TIOOL,T7 SAVE SERVICE CLASS 05803 M01S03325.1sj36 ---| STD SC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj36 |
Seq # *Modification Id* Act ----------------------------+ 05804 M01S00001.1sj36 +++| LDM TIOO+2*TIOOL,T7 CHECK SERVICE CLASS 05805 M00S03326.1sj +++| LMN SYSC 05806 M00S03327.1sj +++| ZJN CEE1.1 IF SYSTEM JOB 05807 M00S03328.1sj +++| LMN SYSC&DSSC 05808 M00S03329.1sj +++| ZJN CEE1.1 IF DEADSTART SEQUENCING JOB 05809 M00S03330.1sj +++| LMN DSSC&SSSC 05810 M00S03331.1sj +++| NJN CEE1.2 IF NOT SUBSYSTEM 05811 M00S03332.1sj +++| CEE1.1 LDC 4000 SET SYSTEM ORIGIN FLAG 05812 M00S03333.1sj +++| RAD CM+2 05813 M00S03334.1sj +++| CEE1.2 MONITOR MTRM 05814 M00S03335.1sj +++| LDD CM+1 05815 M00S03336.1sj +++| ZJN CEE4 IF NO EJT ENTRY AVAILABLE 05816 M00S03337.1sj +++| 05817 M00S03338.1sj +++|* USE THE *UTEM* MONITOR FUNCTION TO SET THE QFT ENTRY 05818 M00S03339.1sj +++|* INTERLOCK AND VERIFY THE ENTRY IS STILL ACCEPTABLE FOR 05819 M00S03340.1sj +++|* SCHEDULING. 05820 M00S03341.1sj +++| 05821 M00S03342.1sj +++| CEE2 STD EO SAVE EJT ORDINAL
| Line S03343 Modification History | |
|---|---|
M01 (Removed by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05822 M01S03343.1sj17 ---| LDM TIOO,T7 GET QFT ORDINAL FROM *TIOO* TABLE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05823 M01S00004.1sj17 +++| CEE2.1 LDM TIOO,T7 GET QFT ORDINAL FROM *TIOO* TABLE 05824 M00S03344.1sj +++| STD IO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1sj36 |
Seq # *Modification Id* Act ----------------------------+ 05825 M01S00002.1sj36 +++| LDM TIOO+2*TIOOL,T7 SAVE SERVICE CLASS 05826 M01S00003.1sj36 +++| STD SC 05827 M00S03345.1sj +++| LDC 0*10000+1S17D 05828 M00S03346.1sj +++| RJM IUT ISSUE *UTEM* MONITOR FUNCTION 05829 M00S03347.1sj +++| ZJN CEE5 IF INTERLOCK GOTTEN 05830 M00S03348.1sj +++| CEE3 SOM TJCT,SC DECREMENT JOB COUNT 05831 M00S03349.1sj +++| CEE4 AOD T7 05832 M00S03350.1sj +++| LMN TIOOL
| Line S03351 Modification History | |
|---|---|
M01 (Removed by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05833 M01S03351.1sj17 ---| NJP CEE1 IF *TIOO* SCAN NOT COMPLETE 05834 M01S03352.1sj17 ---| LJM CEEX RETURN
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05835 M01S00005.1sj17 +++| ZJN CEE4.1 IF *TIOO* SCAN COMPLETE 05836 M01S00006.1sj17 +++| LDD EO 05837 M01S00007.1sj17 +++| NJN CEE2.1 IF UNUSED EJT ENTRY PRESENT 05838 M01S00008.1sj17 +++| LJM CEE1 GET ANOTHER EJT ENTRY 05839 M01S00009.1sj17 +++| 05840 M01S00010.1sj17 +++| CEE4.1 LDD EO 05841 M01S00011.1sj17 +++| ZJN CEE4.2 IF NO EJT ENTRY TO RETURN 05842 M01S00012.1sj17 +++| STD CM+1 RETURN EJT ENTRY 05843 M01S00013.1sj17 +++| LDN /CPS/PEJT 05844 M01S00014.1sj17 +++| STD CM+2 05845 M01S00015.1sj17 +++| MONITOR MTRM 05846 M01S00016.1sj17 +++| CEE4.2 LJM CEEX RETURN 05847 M00S03353.1sj +++| 05848 M00S03354.1sj +++| CEE5 RJM IOA CALCULATE QFT ENTRY ADDRESS 05849 M00S03355.1sj +++| ADK JSNQ 05850 M00S03356.1sj +++| CRD EJ 05851 M00S03357.1sj +++| ADN ENTQ-JSNQ 05852 M00S03358.1sj +++| CRD AA
| Line S03359 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05853 M01S03359.ns22000 ---| ADN SCLQ-ENTQ
| Line S00521 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05854 M01S00521.ns22000 +++| ADN INSQ-ENTQ 05855 M01S00522.ns22000 +++| CRD CM 05856 M01S00523.ns22000 +++| ADN SCLQ-INSQ 05857 M00S03360.1sj +++| CRD BB
| Line S00524 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05858 M01S00524.ns22000 +++| LDD CM+3 SAVE ACCESS LEVEL LIMITS
| Line S00525 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05859 M02S00525.ns2202 ---| LPN 77
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05860 M01S00001.ns2202 +++| LPC 777
| Line S00526 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 05861 M01S00526.ns22000 +++| STM CEEB 05862 M00S03361.1sj +++| 05863 M00S03362.1sj +++|* VERIFY ENTRY. 05864 M00S03363.1sj +++| 05865 M00S03364.1sj +++| LDD BB 05866 M00S03365.1sj +++| SHN -6 05867 M00S03366.1sj +++| LMD SC 05868 M00S03367.1sj +++| NJN CEE6 IF SERVICE CLASS CHANGED 05869 M00S03368.1sj +++| LDD EJ+4 05870 M00S03369.1sj +++| ERRNZ INQF CODE ASSUMES *INQF* = 0 05871 M00S03370.1sj +++| LPC 7002 05872 M00S03371.1sj +++| ZJN CEE7 IF *TYPE* AND *STAT* FIELDS ARE OK 05873 M00S03372.1sj +++| CEE6 LDC 0*10000+1S17D+1S16D CLEAR INTERLOCK 05874 M00S03373.1sj +++| RJM IUT ISSUE *UTEM* MONITOR FUNCTION
| Line S03374 Modification History | |
|---|---|
M01 (Removed by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05875 M01S03374.1sj17 ---| LDD EO RETURN 05876 M01S03375.1sj17 ---| STD CM+1 05877 M01S03376.1sj17 ---| LDN /CPS/PEJT 05878 M01S03377.1sj17 ---| STD CM+2 05879 M01S03378.1sj17 ---| MONITOR MTRM 05880 M00S03379.1sj +++| LJM CEE3 CONTINUE PROCESSING *TIOO* TABLE 05881 M00S03380.1sj +++| 05882 M00S03381.1sj +++|* CREATE EJT ENTRY. 05883 M00S03382.1sj +++| 05884 M00S03383.1sj +++| CEE7 LDD BB 05885 M00S03384.1sj +++| LPN 17
| Line S03385 Modification History | |
|---|---|
M01 (Removed by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05886 M01S03385.ns2134 ---| LMN TXOT
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05887 M01S00035.ns2134 +++| LMK IAOT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2117 |
Seq # *Modification Id* Act ----------------------------+ 05888 M01S00001.ns2117 +++| STD T1 05889 M00S03386.1sj +++| ZJN CEE8 IF INTERACTIVE JOB 05890 M00S03387.1sj +++| LDN NICS&OLCS 05891 M00S03388.1sj +++| CEE8 LMN OLCS SET CONNECTION STATUS 05892 M00S03389.1sj +++| SHN 7 05893 M00S03390.1sj +++| LMK PRJS*2 SET JOB STATUS 05894 M00S03391.1sj +++| STD EJ+4 05895 M00S03392.1sj +++| LDN 0 05896 M00S03393.1sj +++| STD AA+2 05897 M00S03394.1sj +++| STD BB+3
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2117 |
Seq # *Modification Id* Act ----------------------------+ 05898 M01S00002.ns2117 +++| LDD T1 05899 M01S00003.ns2117 +++| ZJN CEE8.1 IF INTERACTIVE SERVICE CLASS 05900 M00S03395.1sj +++| LDD SC 05901 M00S03396.1sj +++| LMN SSSC 05902 M00S03397.1sj +++| NJN CEE9 IF NOT A SUBSYSTEM
| Line S03398 Modification History | |
|---|---|
M01 (Removed by) | ns2117 |
Seq # *Modification Id* Act ----------------------------+ 05903 M01S03398.ns2117 ---| LDC 4000 SET NO-RERUN FLAG
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2117 |
Seq # *Modification Id* Act ----------------------------+ 05904 M01S00004.ns2117 +++| CEE8.1 LDC 4000 SET NO-RERUN FLAG 05905 M00S03399.1sj +++| RAD AA+2 05906 M00S03400.1sj +++| 05907 M00S03401.1sj +++|* CALCULATE INITIAL SCHEDULING PRIORITY. 05908 M00S03402.1sj +++|
| Line S03403 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05909 M01S03403.271l716 ---| CEE9 LDM TEPB+4*MXJC,SC SAVE INITIAL PRIORITY FOR *CET*
| Line S00539 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05910 M01S00539.271l716 +++| CEE9 LDM TEPB+3*MXJC,SC SAVE INITIAL PRIORITY FOR *CET* 05911 M00S03404.1sj +++| STD T1 05912 M00S03405.1sj +++| LDD SC 05913 M00S03406.1sj +++| SHN 14 05914 M00S03407.1sj +++| LMN EXQT 05915 M00S03408.1sj +++| RJM CET CALCULATE ENTRY TIME 05916 M00S03409.1sj +++| LDD T1 SAVE CALCULATED ENTRY TIME IN *SCHE* IMAGE 05917 M00S03410.1sj +++| STD AA+3 05918 M00S03411.1sj +++| LDD T2 05919 M00S03412.1sj +++| STD AA+4 05920 M00S03413.1sj +++| LDN AFFL+DNFL SET INITIAL CM FL 05921 M00S03414.1sj +++| STD BB+4
| Line S03415 Modification History | |
|---|---|
M01 (Removed by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05922 M01S03415.ns2134 ---| LDN ZERL 05923 M01S03416.ns2134 ---| CRD CM
| Line S00527 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05924 M02S00527.ns2134 ---| LDC * COPY ACCESS LEVEL LIMITS FROM QFT 05925 M02S00528.ns2134 ---| CEEB EQU *-1 (ACCESS LEVEL LIMITS) 05926 M02S00529.ns2134 ---| STD CM+2
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05927 M01S00036.ns2134 +++| CEEC LDN ** (SYSTEM SECURITY MODE) 05928 M01S00037.ns2134 +++| STD T1 05929 M01S00038.ns2134 +++| ZJN CEE10 IF UNSECURED SYSTEM 05930 M01S00039.ns2134 +++| LDM CEEB CHECK ACCESS LEVEL LIMITS
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05931 M02S00040.ns2202 ---| SHN -3+22
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05932 M01S00002.ns2202 +++| SHN -6+22
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05933 M01S00041.ns2134 +++| STD CM+4 LOWER ACCESS LEVEL LIMIT
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05934 M02S00042.ns2202 ---| SHN -22+3
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05935 M01S00003.ns2202 +++| SHN -22+6 05936 M01S00004.ns2202 +++| LPN 7
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05937 M01S00043.ns2134 +++| STD CM+3 UPPER ACCESS LEVEL LIMIT 05938 M01S00044.ns2134 +++| LDD BB SET ORIGIN TYPE 05939 M01S00045.ns2134 +++| LPN 17 05940 M01S00046.ns2134 +++| STD CM+2 05941 M01S00047.ns2134 +++| LDN /CPS/VJLS VALIDATE JOB LIMITS 05942 M01S00048.ns2134 +++| STD CM+1 05943 M01S00049.ns2134 +++| MONITOR VSAM 05944 M01S00050.ns2134 +++| LDD CM+1 05945 M01S00051.ns2134 +++| STD T1 SAVE RETURN STATUS 05946 M01S00052.ns2134 +++| CEE10 LDK ZERL 05947 M01S00053.ns2134 +++| CRD CM 05948 M01S00054.ns2134 +++| LDM CEEB SET ACCESS LEVEL LIMITS
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
M02 (Removed by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05949 M02S00055.ns2202 ---| STD CM+2
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2202 |
Seq # *Modification Id* Act ----------------------------+ 05950 M01S00005.ns2202 +++| LPN 7 05951 M01S00006.ns2202 +++| STD CM+2 05952 M01S00007.ns2202 +++| LDM CEEB 05953 M01S00008.ns2202 +++| SCN 77 05954 M01S00009.ns2202 +++| SHN -3 05955 M01S00010.ns2202 +++| RAD CM+2
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05956 M01S00056.ns2134 +++| LDD T1 05957 M01S00057.ns2134 +++| ZJN CEE11 IF LIMITS ARE VALID 05958 M01S00058.ns2134 +++| LDK SYET SET ERROR FLAG 05959 M01S00059.ns2134 +++| STD CM+1 05960 M00S03417.1sj +++| 05961 M00S03418.1sj +++|* WRITE EJT ENTRY TO CM. 05962 M00S03419.1sj +++|
| Line S03420 Modification History | |
|---|---|
M01 (Removed by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05963 M01S03420.ns2134 ---| RJM EJA CALCULATE EJT ENTRY ADDRESS
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05964 M01S00060.ns2134 +++| CEE11 RJM EJA CALCULATE EJT ENTRY ADDRESS 05965 M00S03421.1sj +++| ADN SCHE 05966 M00S03422.1sj +++| CWD AA 05967 M00S03423.1sj +++| ADN PRFE-SCHE 05968 M00S03424.1sj +++| CWD CM 05969 M00S03425.1sj +++| ADN SCLE-PRFE 05970 M00S03426.1sj +++| CWD BB 05971 M00S03427.1sj +++| SBN SCLE-JSNE 05972 M00S03428.1sj +++| CWD EJ 05973 M00S03429.1sj +++| 05974 M00S03430.1sj +++|* RETURN QFT ENTRY. 05975 M00S03431.1sj +++| 05976 M00S03432.1sj +++| LDD IO 05977 M00S03433.1sj +++| STD CM+1 05978 M00S03434.1sj +++| LDN /CPS/PQFT 05979 M00S03435.1sj +++| STD CM+2 05980 M00S03436.1sj +++| MONITOR MTRM
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05981 M01S00017.1sj17 +++| STD EO CLEAR EJT ORDINAL 05982 M00S03437.1sj +++| LJM CEE4 CONTINUE PROCESSING *TIOO* TABLE
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 1sj17 |
Seq # *Modification Id* Act ----------------------------+ 05983 M01S00018.1sj17 +++| 05984 M01S00019.1sj17 +++|
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 1sj17 |
M02 (Removed by) | 1sj20 |
Seq # *Modification Id* Act ----------------------------+ 05985 M02S00020.1sj20 ---| CEEA VFD 24/4L9999,36/0 INITIAL EJT DATA
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj20 |
Seq # *Modification Id* Act ----------------------------+ 05986 M01S00001.1sj20 +++| CEEA VFD 24/4L****,36/1 INITIAL EJT DATA
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 05987 M01S00061.ns2134 +++| CEEB CON 0 ACCESS LEVEL LIMITS 05988 M00S03438.1sj +++| FLP SPACE 4,25 05989 M00S03439.1sj +++|** FLP - FIND LOWEST PRIORITY JOB. 05990 M00S03440.1sj +++|* 05991 M00S03441.1sj +++|* SCAN THE *TIOO* TABLE TO FIND THE LOWEST PRIORITY JOB. 05992 M00S03442.1sj +++|* 05993 M00S03443.1sj +++|* ENTRY (A) = 0 IF THE LOWEST PRIORITY JOB OF THE ENTIRE 05994 M00S03444.1sj +++|* *TIOO* TABLE IS TO BE FOUND. 05995 M00S03445.1sj +++|* (A) .NE. 0 IF THE LOWEST PRIORITY JOB OF SERVICE CLASS 05996 M00S03446.1sj +++|* *SC* IS TO BE FOUND. 05997 M00S03447.1sj +++|* (SC) = SERVICE CLASS IF (A) .NE. 0. 05998 M00S03448.1sj +++|* (T7) = CURRENT *TIOO* INDEX. 05999 M00S03449.1sj +++|* 06000 M00S03450.1sj +++|* EXIT (A) = *TIOO* INDEX OF LOWEST PRIORITY JOB. 06001 M00S03451.1sj +++|* (A) = 7777 IF CALLER REQUESTED LOWEST PRIORITY JOB OF 06002 M00S03452.1sj +++|* A SERVICE CLASS BUT *TIOO* TABLE CONTAINS NO 06003 M00S03453.1sj +++|* ENTRIES FOR JOBS OF THE SPECIFIED SERVICE 06004 M00S03454.1sj +++|* CLASS; OR THE *TIOO* TABLE IS EMPTY. 06005 M00S03455.1sj +++|* (T4) = PRIORITY. 06006 M00S03456.1sj +++|* (T5) = *TIOO* INDEX. 06007 M00S03457.1sj +++|* 06008 M00S03458.1sj +++|* USES T3 - T5. 06009 M00S03459.1sj +++| 06010 M00S03460.1sj +++| 06011 M00S03461.1sj +++| FLP4 LDD T5 06012 M00S03462.1sj +++| 06013 M00S03463.1sj +++| FLP SUBR ENTRY/EXIT 06014 M00S03464.1sj +++| STM FLPA SET/CLEAR SERVICE CLASS FLAG 06015 M00S03465.1sj +++| LCN 0 INITIALIZE LOWEST PRIORITY 06016 M00S03466.1sj +++| STD T4 06017 M00S03467.1sj +++| STD T5 PRESET EXIT CONDITION 06018 M00S03468.1sj +++| LDD T7 INITIALIZE *TIOO* INDEX 06019 M00S03469.1sj +++| STD T3 06020 M00S03470.1sj +++| FLP1 LMN TIOOL 06021 M00S03471.1sj +++| ZJN FLP4 IF *TIOO* SCAN IS COMPLETE 06022 M00S03472.1sj +++| LDC ** 06023 M00S03473.1sj +++| FLPA EQU *-1 (SERVICE CLASS FLAG) 06024 M00S03474.1sj +++| ZJN FLP2 IF ALL SERVICE CLASSES WILL BE CONSIDERED 06025 M00S03475.1sj +++| LDM TIOO+2*TIOOL,T3 06026 M00S03476.1sj +++| LMD SC 06027 M00S03477.1sj +++| NJN FLP3 IF WRONG SERVICE CLASS 06028 M00S03478.1sj +++| FLP2 LDM TIOO+1*TIOOL,T3 06029 M00S03479.1sj +++| SBD T4 06030 M00S03480.1sj +++| PJN FLP3 IF PRIORITY .GE. CURRENT LOWEST 06031 M00S03481.1sj +++| RAD T4 SET NEW LOWEST PRIORITY 06032 M00S03482.1sj +++| LDD T3 SAVE *TIOO* INDEX 06033 M00S03483.1sj +++| STD T5 06034 M00S03484.1sj +++| FLP3 AOD T3 INCREMENT *TIOO* INDEX 06035 M00S03485.1sj +++| UJN FLP1 CONTINUE SCAN 06036 M00S03486.1sj +++| IOA SPACE 4,10 06037 M00S03487.1sj +++|** IOA - CALCULATE QFT ENTRY ADDRESS. 06038 M00S03488.1sj +++|* 06039 M00S03489.1sj +++|* ENTRY (IO) = QFT ORDINAL. 06040 M00S03490.1sj +++|* 06041 M00S03491.1sj +++|* EXIT (A) = QFT ADDRESS. 06042 M00S03492.1sj +++|* 06043 M00S03493.1sj +++|* MACROS CFI. 06044 M00S03494.1sj +++| 06045 M00S03495.1sj +++| 06046 M00S03496.1sj +++| IOA SUBR ENTRY/EXIT 06047 M00S03497.1sj +++| CFI QFT,IO CALCULATE ENTRY OFFSET 06048 M00S03498.1sj +++| ADC ** 06049 M00S03499.1sj +++| IOAA EQU *-1 (IOQT FWA) 06050 M00S03500.1sj +++| UJN IOAX RETURN
| Line S03501 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06051 M01S03501.1sj50 ---| SEJ SPACE 4,25 06052 M01S03502.1sj50 ---|** SEJ - SCAN EJT. 06053 M01S03503.1sj50 ---|* 06054 M01S03504.1sj50 ---|* SCAN THE EJT TO PERFORM THE FOLLOWING FUNCTIONS - 06055 M01S03505.1sj50 ---|* 06056 M01S03506.1sj50 ---|* 1. COUNT THE NUMBER OF EXECUTING JOBS IN EACH SERVICE
| Line S03507 Modification History | |
|---|---|
M01 (Removed by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06057 M02S03507.1sj50 ---|* CLASS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06058 M02S00001.1sj50 ---|* CLASS. JOBS IN TIMED/EVENT ROLLOUT WAITING TO 06059 M02S00002.1sj50 ---|* CHANGE INTO ANOTHER SERVICE CLASS ARE NOT COUNTED.
| Line S03508 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06060 M01S03508.1sj50 ---|* 2. DETERMINE IF THERE ARE ANY AVAILABLE EJT ENTRIES. 06061 M01S03509.1sj50 ---|* 3. PERFORM SUSPENSION TIME-OUT PROCESSING AS REQUIRED. 06062 M01S03510.1sj50 ---|* 4. CHECK FOR THE EXISTENCE OF THE DEADSTART SEQUENCING 06063 M01S03511.1sj50 ---|* JOB. 06064 M01S03512.1sj50 ---|*
| Line S03513 Modification History | |
|---|---|
M01 (Removed by) | ns2153 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06065 M02S03513.1sj50 ---|* ENTRY (EO) = LARGEST EJT ORDINAL.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2153 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06066 M02S00047.1sj50 ---|* ENTRY (SFJS) = LARGEST EJT ORDINAL.
| Line S03514 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06067 M01S03514.1sj50 ---|* 06068 M01S03515.1sj50 ---|* (TM - TM+1) = SECONDS PORTION OF REAL-TIME CLOCK. 06069 M01S03516.1sj50 ---|*
| Line S03517 Modification History | |
|---|---|
M01 (Removed by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06070 M02S03517.1sj50 ---|* EXIT (A) = 0 IF INPUT FILE SCHEDULING SHOULD NOT BE 06071 M02S03518.1sj50 ---|* PERFORMED.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06072 M02S00001.1sj50 ---|* EXIT (A) .LT. 0, IF TO SCHEDULE ONLY SYSTEM JOBS. 06073 M02S00002.1sj50 ---|* (A) = 0, IF DEADSTART SEQUENCING JOB. 06074 M02S00003.1sj50 ---|* (A) .GT. 0, SCHEDULE ANY JOB.
| Line S03519 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06075 M01S03519.1sj50 ---|* (TP) = NUMBER OF AVAILABLE EJT ENTRIES. 06076 M01S03520.1sj50 ---|*
| Line S03521 Modification History | |
|---|---|
M01 (Removed by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06077 M02S03521.1sj50 ---|* USES CM - CM+4, AA - AA+4, EJ - EJ+4, EO, SC, TP.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06078 M02S00010.1sj50 ---|* USES CM - CM+4, AA - AA+4, BB - BB+4, EJ - EJ+4, EO, SC, 06079 M02S00011.1sj50 ---|* TP.
| Line S03522 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06080 M01S03522.1sj50 ---|* 06081 M01S03523.1sj50 ---|* CALLS EJA. 06082 M01S03524.1sj50 ---|* 06083 M01S03525.1sj50 ---|* MACROS CFI, MONITOR. 06084 M01S03526.1sj50 ---| 06085 M01S03527.1sj50 ---|
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj33 |
M03 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06086 M03S00004.1sj50 ---| SEJ8 LDN 1 ALLOW SCHEDULING
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06087 M02S00012.1sj50 ---| SEJ9 LDN 1 ALLOW SCHEDULING
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06088 M02S00005.1sj50 ---|
| Line S03528 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06089 M01S03528.1sj50 ---| SEJ SUBR ENTRY/EXIT 06090 M01S03529.1sj50 ---| LDN 0 INITIALIZE EMPTY EJT ENTRY COUNT 06091 M01S03530.1sj50 ---| STD TP 06092 M01S03531.1sj50 ---| LDM EJAA-1 PRESET EJT FWA 06093 M01S03532.1sj50 ---| STM SEJA-1
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06094 M02S00013.1sj50 ---| STM SEJC-1
| Line S03533 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06095 M01S03533.1sj50 ---| LDM EJAA 06096 M01S03534.1sj50 ---| STM SEJA
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06097 M02S00014.1sj50 ---| STM SEJC
| Line S03535 Modification History | |
|---|---|
M01 (Removed by) | ns2153 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06098 M02S03535.1sj50 ---| LDM SFJA PRESET EJT ORDINAL FOR BACKWARD SCAN 06099 M02S03536.1sj50 ---| SBN 1
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2153 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06100 M02S00048.1sj50 ---| LDM SFJS PRESET EJT ORDINAL FOR BACKWARD SCAN
| Line S03537 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06101 M01S03537.1sj50 ---| STD EO 06102 M01S03538.1sj50 ---| SEJ1 CFI EJT,,EO GET EJT ENTRY OFFSET 06103 M01S03539.1sj50 ---| ADC ** 06104 M01S03540.1sj50 ---| SEJA EQU *-1 (EJT FWA) 06105 M01S03541.1sj50 ---| ADK JSNE 06106 M01S03542.1sj50 ---| CRD EJ
| Line S03543 Modification History | |
|---|---|
M01 (Removed by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06107 M02S03543.1sj50 ---| ADN SCLE-JSNE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06108 M02S00003.1sj50 ---| ADK SCHE-JSNE 06109 M02S00004.1sj50 ---| CRD AA
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1sj31 |
M02 (Removed by) | 1sj33 |
M03 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06110 M03S00005.1sj50 ---| ADK SCLE-SCHE
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06111 M02S00015.1sj50 ---| ADK PRFE-SCHE 06112 M02S00016.1sj50 ---| CRD BB 06113 M02S00017.1sj50 ---| ADK SCLE-PRFE
| Line S03544 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06114 M01S03544.1sj50 ---| CRD CM 06115 M01S03545.1sj50 ---| LDD EJ 06116 M01S03546.1sj50 ---| NJN SEJ4 IF NOT AN EMPTY ENTRY 06117 M01S03547.1sj50 ---| AOD TP INCREMENT EMPTY ENTRY COUNT 06118 M01S03548.1sj50 ---| SEJ2 SOD EO DECREMENT EJT ORDINAL 06119 M01S03549.1sj50 ---| NJN SEJ1 IF EJT SCAN NOT COMPLETE 06120 M01S03550.1sj50 ---| LDD TP
| Line S03551 Modification History | |
|---|---|
M01 (Removed by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06121 M02S03551.1sj50 ---| NJN SEJ3 IF EMPTY EJT ENTRIES EXIST
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06122 M02S00006.1sj50 ---| SBN /CPS/EJTR+1
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj33 |
M03 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06123 M03S00007.1sj50 ---| PJN SEJ8 IF NOT ABOVE THRESHOLD
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06124 M02S00018.1sj50 ---| PJP SEJ9 IF NOT ABOVE THRESHOLD
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06125 M02S00008.1sj50 ---| LDN 0
| Line S03552 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06126 M01S03552.1sj50 ---| STD CM+1 SELECT *EATM*ENTER EVENT OPTION 06127 M01S03553.1sj50 ---| STD CM+3 STORE EVENT DESCRIPTOR 06128 M01S03554.1sj50 ---| LDN EJJE 06129 M01S03555.1sj50 ---| STD CM+4 06130 M01S03556.1sj50 ---| MONITOR EATM
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06131 M02S00009.1sj50 ---| LCN 1 FLAG EJT THRESHOLD
| Line S03557 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06132 M01S03557.1sj50 ---| SEJ3 LJM SEJX RETURN 06133 M01S03558.1sj50 ---| 06134 M01S03559.1sj50 ---| SEJ4 LDD CM 06135 M01S03560.1sj50 ---| SHN -6 06136 M01S03561.1sj50 ---| STD SC 06137 M01S03562.1sj50 ---| SBN MXSC 06138 M01S03563.1sj50 ---| PJN SEJ2 IF INVALID SERVICE CLASS 06139 M01S03564.1sj50 ---| ADN MXSC-DSSC 06140 M01S03565.1sj50 ---| ZJN SEJ3 IF DEADSTART SEQUENCING JOB 06141 M01S03566.1sj50 ---| IFNE DSSC,MXJC,1 06142 M01S03567.1sj50 ---| ADK DSSC-MXJC 06143 M01S03568.1sj50 ---| PJN SEJ5 IF NO JCB FOR SERVICE CLASS
| Line S03569 Modification History | |
|---|---|
M01 (Removed by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06144 M02S03569.1sj50 ---| AOM TJCT,SC INCREMENT ACTIVE JOB COUNT
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06145 M02S00006.1sj50 ---| LDD EJ+4 06146 M02S00007.1sj50 ---| LPN 77 06147 M02S00008.1sj50 ---| LMN TOJS*2 06148 M02S00009.1sj50 ---| NJN SEJ4.1 IF NOT TIMED/EVENT 06149 M02S00010.1sj50 ---| LDD AA+4 06150 M02S00011.1sj50 ---| LMN SCFE 06151 M02S00012.1sj50 ---| ZJN SEJ5 IF WAITING FOR FULL SERVICE CLASS 06152 M02S00013.1sj50 ---| SEJ4.1 AOM TJCT,SC INCREMENT ACTIVE JOB COUNT
| Line S03570 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06153 M01S03570.1sj50 ---| 06154 M01S03571.1sj50 ---|* PERFORM SUSPENSION TIME-OUT PROCESSING IF *IAF* IS 06155 M01S03572.1sj50 ---|* ACCESSIBLE. 06156 M01S03573.1sj50 ---| 06157 M01S03574.1sj50 ---| SEJ5 LDD EJ+4
| Line S03575 Modification History | |
|---|---|
M01 (Removed by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06158 M02S03575.1sj50 ---|* UJN SEJ2 (IF SUSPENSION TIME-OUT DISABLED)
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06159 M02S00014.1sj50 ---|* UJN SEJ7 (IF SUSPENSION TIME-OUT DISABLED)
| Line S03576 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06160 M01S03576.1sj50 ---| SEJB EQU *-1 06161 M01S03577.1sj50 ---| LPC 3776 MASK JOB/CONNECTION STATUS AND ADVANCE 06162 M01S03578.1sj50 ---| LMC SUJS*2+DTCS*200
| Line S03579 Modification History | |
|---|---|
M01 (Removed by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06163 M02S03579.1sj50 ---| NJN SEJ2 IF NOT DETACHED SUSPENDED JOB OR ROLLING
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06164 M02S00015.1sj50 ---| NJN SEJ7 IF NOT DETACHED SUSPENDED JOB OR ROLLING
| Line S03580 Modification History | |
|---|---|
M01 (Removed by) | 1sj31 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06165 M02S03580.1sj50 ---| RJM EJA CALCULATE EJT ENTRY ADDRESS 06166 M02S03581.1sj50 ---| ADN SCHE 06167 M02S03582.1sj50 ---| CRD AA
| Line S03583 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06168 M01S03583.1sj50 ---| LDD AA+3 06169 M01S03584.1sj50 ---| SBD TM 06170 M01S03585.1sj50 ---| MJN SEJ6 IF SUSPENSION TIME-OUT 06171 M01S03586.1sj50 ---| NJN SEJ7 IF NOT SUSPENSION TIME-OUT 06172 M01S03587.1sj50 ---| LDD AA+4 06173 M01S03588.1sj50 ---| SBD TM+1 06174 M01S03589.1sj50 ---| PJN SEJ7 IF NOT SUSPENSION TIME-OUT 06175 M01S03590.1sj50 ---| 06176 M01S03591.1sj50 ---|* SET *STET* ERROR FLAG. 06177 M01S03592.1sj50 ---|
| Line S03593 Modification History | |
|---|---|
M01 (Removed by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06178 M02S03593.1sj50 ---| SEJ6 LDD EJ SAVE JSN FOR *CEFM*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06179 M02S00019.1sj50 ---| SEJ6 LDD BB+1 06180 M02S00020.1sj50 ---| NJN SEJ8 IF ERROR FLAG ALREADY SET 06181 M02S00021.1sj50 ---| LDD EJ SAVE JSN FOR *CEFM*
| Line S03594 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06182 M01S03594.1sj50 ---| STD CM+3 06183 M01S03595.1sj50 ---| LDD EJ+1 06184 M01S03596.1sj50 ---| STD CM+4 06185 M01S03597.1sj50 ---| LDD EO SAVE EJT ORDINAL FOR *CEFM* 06186 M01S03598.1sj50 ---| STD CM+2 06187 M01S03599.1sj50 ---| LDC STET+4000 06188 M01S03600.1sj50 ---| STD CM+1 06189 M01S03601.1sj50 ---| MONITOR CEFM 06190 M01S03602.1sj50 ---| SEJ7 LJM SEJ2 CONTINUE EJT SCAN
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 1sj33 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06191 M02S00022.1sj50 ---| 06192 M02S00023.1sj50 ---| SEJ8 LDD EJ SET FORCED ROLLIN FLAG 06193 M02S00024.1sj50 ---| STM SEJD+3 06194 M02S00025.1sj50 ---| LDD EJ+1 06195 M02S00026.1sj50 ---| STM SEJD+4 06196 M02S00027.1sj50 ---| LDD EO 06197 M02S00028.1sj50 ---| CFI EJT,,EO GET EJT ADDRESS 06198 M02S00029.1sj50 ---| ADC ** 06199 M02S00030.1sj50 ---| SEJC EQU *-1 06200 M02S00031.1sj50 ---| STD CM+4 06201 M02S00032.1sj50 ---| SHN -14 06202 M02S00033.1sj50 ---| STD CM+3 06203 M02S00034.1sj50 ---| LDN 2 06204 M02S00035.1sj50 ---| STD CM+1 06205 M02S00036.1sj50 ---| LDD MA 06206 M02S00037.1sj50 ---| CWM SEJD,CM+1 06207 M02S00038.1sj50 ---| MONITOR UTEM 06208 M02S00039.1sj50 ---| UJN SEJ7 CONTINUE EJT SCAN 06209 M02S00040.1sj50 ---| 06210 M02S00041.1sj50 ---| 06211 M02S00042.1sj50 ---| SEJD VFD 6/40+JSNE,6/24D,6/36D,42/0 06212 M02S00043.1sj50 ---| VFD 6/SCLE,6/1,6/52D,42/1 06213 M00S03603.1sj +++| SIQ SPACE 4,20 06214 M00S03604.1sj +++|** SIQ - SCAN QFT. 06215 M00S03605.1sj +++|* 06216 M00S03606.1sj +++|* SCAN THE QFT LOOKING FOR SCHEDULABLE INPUT FILES. BUILD 06217 M00S03607.1sj +++|* *TIOO* TABLE ENTRIES FOR THE *N* HIGHEST PRIORITY INPUT 06218 M00S03608.1sj +++|* FILES, WHERE *N* = MIN(*TP*,*TIOOL*). *TP* IS THE NUMBER OF 06219 M00S03609.1sj +++|* AVAILABLE EJT ENTRIES AND *TIOOL* IS AN ASSEMBLY CONSTANT.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06220 M01S00016.ns21000 +++|* IF AN INPUT QFT ENTRY CONTAINS A DESTINATION LID (*DLID*), 06221 M01S00017.ns21000 +++|* *1SJ* WILL ONLY SCHEDULE THE JOB IF THE *DLID* HAS THE 06222 M01S00018.ns21000 +++|* ATTRIBUTES *HOST* AND *ENABLED*. 06223 M00S03610.1sj +++|*
| Line S03611 Modification History | |
|---|---|
M01 (Removed by) | 1sj15 |
Seq # *Modification Id* Act ----------------------------+ 06224 M01S03611.1sj15 ---|* ENTRY (TP) = NUMBER OF AVAILABLE EJT ENTRIES.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
Seq # *Modification Id* Act ----------------------------+ 06225 M01S00010.1sj15 +++|* ENTRY (A) .LT. 0, ONLY SCHEDULE SYSTEM JOBS. 06226 M01S00011.1sj15 +++|* (TP) = NUMBER OF AVAILABLE EJT ENTRIES. 06227 M00S03612.1sj +++|* (IO) = LARGEST QFT ORDINAL. 06228 M00S03613.1sj +++|* 06229 M00S03614.1sj +++|* EXIT (T7) = CURRENT *TIOO* INDEX. 06230 M00S03615.1sj +++|*
| Line S03616 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06231 M01S03616.ns21000 ---|* USES T1 - T5, T7, CM - CM+4, AA - AA+4, IO, SC, TP.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06232 M02S00019.ns2242 ---|* USES IO, SC, TP, AA - AA+4, BB - BB+4, CM - CM+4, T1 - T7.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06233 M01S00001.ns2242 +++|* USES EO, IO, SC, TP, AA - AA+4, BB - BB+4, CM - CM+4, 06234 M01S00002.ns2242 +++|* T1 - T7. 06235 M00S03617.1sj +++|* 06236 M00S03618.1sj +++|* CALLS CPR, FLP, IOA. 06237 M00S03619.1sj +++|* 06238 M00S03620.1sj +++|* MACROS CFI. 06239 M00S03621.1sj +++| 06240 M00S03622.1sj +++| 06241 M00S03623.1sj +++| SIQ SUBR ENTRY/EXIT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
Seq # *Modification Id* Act ----------------------------+ 06242 M01S00012.1sj15 +++| PJN SIQ0 IF NOT EJT THRESHOLD 06243 M01S00013.1sj15 +++| LDC LMNI+SYSC 06244 M01S00014.1sj15 +++| UJN SIQ0.1 CONTINUE 06245 M01S00015.1sj15 +++| 06246 M01S00016.1sj15 +++| SIQ0 LDC UJNI+SIQ3.0-SIQE SET NORMAL SCHEDULING 06247 M01S00017.1sj15 +++| ERRNG 37-SIQ3.0+SIQE IF JUMP OUT OF RANGE 06248 M01S00018.1sj15 +++| SIQ0.1 STM SIQE 06249 M00S03624.1sj +++| LDN TIOOL INITIALIZE *TIOO* INDEX 06250 M00S03625.1sj +++| STD T7 06251 M00S03626.1sj +++| SBN 1 INITIALIZE INDEX OF LOWEST PRIORITY JOB 06252 M00S03627.1sj +++| STD T5 06253 M00S03628.1sj +++| LCN 0 INITIALIZE LOWEST *TIOO* ENTRY PRIORITY 06254 M00S03629.1sj +++| STD T4 06255 M00S03630.1sj +++| LDD IO 06256 M00S03631.1sj +++| SIQ1 CFI QFT,,IO GET QFT ENTRY OFFSET 06257 M00S03632.1sj +++| ADC ** 06258 M00S03633.1sj +++| SIQA EQU *-1 (QFT FWA) 06259 M00S03634.1sj +++| ADK JSNQ 06260 M00S03635.1sj +++| CRD CM 06261 M00S03636.1sj +++| LDD CM 06262 M00S03637.1sj +++| NJN SIQ3 IF NOT AN EMPTY ENTRY 06263 M00S03638.1sj +++| SIQ2 SOD IO 06264 M00S03639.1sj +++| NJN SIQ1 IF QFT SCAN NOT COMPLETE 06265 M00S03640.1sj +++| UJN SIQX RETURN 06266 M00S03641.1sj +++| 06267 M00S03642.1sj +++| SIQ3 LDD CM+4 06268 M00S03643.1sj +++| ERRNZ INQF CODE ASSUMES *INQF* = 0 06269 M00S03644.1sj +++| LPC 7003
| Line S03645 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06270 M01S03645.ns21000 ---| NJN SIQ2 IF FILE IS INELIGIBLE FOR SCHEDULING
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06271 M01S00020.ns21000 +++| NJN SIQ2 IF FILE NOT ELIGIBLE FOR SCHEDULING
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06272 M01S00003.ns2242 +++| LDN 1 SET NOT ABORTED INPUT FILE 06273 M01S00004.ns2242 +++| STD EO 06274 M00S03646.1sj +++| RJM IOA CALCULATE QFT ENTRY ADDRESS 06275 M00S03647.1sj +++| ADN ENTQ 06276 M00S03648.1sj +++| CRD CM
| Line S03649 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06277 M01S03649.ns21000 ---| ADN SCLQ-ENTQ
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06278 M01S00021.ns21000 +++| ADN INSQ-ENTQ READ DESTINATION LID 06279 M01S00022.ns21000 +++| CRD BB 06280 M01S00023.ns21000 +++| ADN SCLQ-INSQ 06281 M00S03650.1sj +++| CRD AA 06282 M00S03651.1sj +++| LDD AA GET SERVICE CLASS 06283 M00S03652.1sj +++| SHN -6 06284 M00S03653.1sj +++| STD SC
| Line S03654 Modification History | |
|---|---|
M01 (Removed by) | 1sj15 |
Seq # *Modification Id* Act ----------------------------+ 06285 M01S03654.1sj15 ---| SBN DSSC
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 1sj15 |
Seq # *Modification Id* Act ----------------------------+ 06286 M01S00019.1sj15 +++| SIQE UJN SIQ3.0 CONTINUE 06287 M01S00020.1sj15 +++|* LMN SYSC (EJT FULL, ONLY SCHEDULE SYSTEM JOBS) 06288 M01S00021.1sj15 +++| ZJN SIQ3.0 IF SYSTEM JOB 06289 M01S00022.1sj15 +++| LMN DSSC&SYSC 06290 M01S00023.1sj15 +++| ZJN SIQ3.0 IF DEADSTART SEQUENCING JOB 06291 M01S00024.1sj15 +++| LMN SSSC&DSSC 06292 M01S00025.1sj15 +++| NJN SIQ2 IF NOT A SUBSYSTEM 06293 M01S00026.1sj15 +++| SIQ3.0 LDD SC 06294 M01S00027.1sj15 +++| SBN DSSC
| Line S03655 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06295 M01S03655.ns21000 ---| NJN SIQ4 IF NOT DEADSTART SEQUENCING JOB
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06296 M01S00024.ns21000 +++| NJN SIQ3.1 IF NOT DEADSTART SEQUENCING JOB 06297 M00S03656.1sj +++| LDN TIOOL-1 RESET *TIOO* INDEX 06298 M00S03657.1sj +++| STD T7 06299 M00S03658.1sj +++| ERRNZ LJMI-100 06300 M00S03659.1sj +++| LDD HN STORE *LJM* INSTRUCTION 06301 M00S03660.1sj +++| STM SIQC 06302 M00S03661.1sj +++| LDC SIQX 06303 M00S03662.1sj +++| STM SIQC+1 06304 M00S03663.1sj +++| LCN 0 SET PRIORITY TO MAXIMUM 06305 M00S03664.1sj +++| LJM SIQ8 BUILD *TIOO* ENTRY 06306 M00S03665.1sj +++|
| Line S03666 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06307 M01S03666.ns21000 ---|* THIS INPUT FILE IS SCHEDULABLE. CALCULATE ITS QUEUE 06308 M01S03667.ns21000 ---|* PRIORITY. 06309 M01S03668.ns21000 ---|
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06310 M01S00025.ns21000 +++|* THIS INPUT FILE IS SCHEDULABLE. 06311 M01S00026.ns21000 +++|* DETERMINE IF DESTINATION LID IS HOST LID. 06312 M01S00027.ns21000 +++| 06313 M01S00028.ns21000 +++| SIQ3.1 LDD BB+2 CHECK IF DLID PRESENT IN QFT 06314 M01S00029.ns21000 +++| SCN 77 06315 M01S00030.ns21000 +++| ADD BB+1 06316 M01S00031.ns21000 +++| ZJN SIQ4 IF NO DLID 06317 M01S00032.ns21000 +++| LDC ** INITIALIZE *THLD* TABLE INDEX
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06318 M02S00033.v23l617 ---| SIQD EQU *-1 (2*NUMBER OF HOST LIDS - 2)
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06319 M01S00098.v23l617 +++| SIQD EQU *-1 (2*NUMBER OF HOST LIDS)
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | ns2242 |
M03 (Removed by) | ns2285 |
Seq # *Modification Id* Act ----------------------------+ 06320 M03S00099.ns2285 ---| ZJN SIQ5 IF NO HOST LIDS PRESENT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2285 |
Seq # *Modification Id* Act ----------------------------+ 06321 M01S00005.ns2285 +++| ZJP SIQ2 IF NO HOST LIDS PRESENT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2242 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 06322 M02S00005.241l630 ---| ZJP SIQ2 IF NO HOST LIDS PRESENT
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06323 M01S00100.v23l617 +++| SBN 2
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06324 M01S00034.ns21000 +++| STD T6 06325 M01S00035.ns21000 +++| SIQ3.2 LDD BB+1 CHECK NEXT LID 06326 M01S00036.ns21000 +++| LMM THLD,T6 06327 M01S00037.ns21000 +++| NJN SIQ3.3 IF NOT A MATCH 06328 M01S00038.ns21000 +++| LDD BB+2 06329 M01S00039.ns21000 +++| LMM THLD+1,T6 06330 M01S00040.ns21000 +++| SCN 77 06331 M01S00041.ns21000 +++| ZJN SIQ4 IF A MATCH 06332 M01S00042.ns21000 +++| SIQ3.3 LCN 2 06333 M01S00043.ns21000 +++| RAD T6 06334 M01S00044.ns21000 +++| PJN SIQ3.2 IF NOT END OF TABLE 06335 M01S00045.ns21000 +++| UJN SIQ5 CHECK NEXT QFT ENTRY 06336 M01S00046.ns21000 +++|
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2285 |
M02 (Removed by) | ns2285a |
Seq # *Modification Id* Act ----------------------------+ 06337 M02S00006.ns2285a ---| SIQ4 LDD SC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2285a |
Seq # *Modification Id* Act ----------------------------+ 06338 M01S00001.ns2285a +++| SIQ4 LDD CM+3 SAVE ENTRY TIME 06339 M01S00002.ns2285a +++| STD T1 06340 M01S00003.ns2285a +++| LDD CM+4 06341 M01S00004.ns2285a +++| STD T2 06342 M01S00005.ns2285a +++| LDD SC
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2285 |
Seq # *Modification Id* Act ----------------------------+ 06343 M01S00007.ns2285 +++| RJM RJC 06344 M01S00008.ns2285 +++| ADK JCTT 06345 M01S00009.ns2285 +++| CRD BB 06346 M01S00010.ns2285 +++| LDD BB+1 06347 M01S00011.ns2285 +++| NJN SIQ5 IF JOBS WAITING FOR THIS SERVICE CLASS 06348 M01S00012.ns2285 +++|
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06349 M01S00047.ns21000 +++|* CALCULATE QUEUE PRIORITY OF SELECTED INPUT FILE. 06350 M01S00048.ns21000 +++|
| Line S03669 Modification History | |
|---|---|
M01 (Removed by) | ns2285 |
Seq # *Modification Id* Act ----------------------------+ 06351 M01S03669.ns2285 ---| SIQ4 LDD CM+3
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2285 |
M02 (Removed by) | ns2285a |
Seq # *Modification Id* Act ----------------------------+ 06352 M02S00013.ns2285a ---| LDD CM+3
| Line S03670 Modification History | |
|---|---|
M01 (Removed by) | ns2285a |
Seq # *Modification Id* Act ----------------------------+ 06353 M01S03670.ns2285a ---| STD T1 06354 M01S03671.ns2285a ---| LDD CM+4 06355 M01S03672.ns2285a ---| STD T2
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2285a |
Seq # *Modification Id* Act ----------------------------+ 06356 M01S00006.ns2285a +++| LDD T2
| Line S03673 Modification History | |
|---|---|
M01 (Removed by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06357 M01S03673.ns2242 ---| LDD SC
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06358 M01S00006.ns2242 +++| ZJN SIQ4.1 IF NOT POSSIBLE ABORTED INPUT FILE 06359 M01S00007.ns2242 +++| LMN 1 CHECK FOR ENTRY TIME OF 1 06360 M01S00008.ns2242 +++| NJN SIQ4.1 IF NOT ABORTED INPUT FILE 06361 M01S00009.ns2242 +++| LDD T1 06362 M01S00010.ns2242 +++| NJN SIQ4.1 IF NOT ABORTED INPUT FILE 06363 M01S00011.ns2242 +++| SOD EO SET ABORTED INPUT FILE 06364 M01S00012.ns2242 +++| SIQ4.1 LDD SC 06365 M00S03674.1sj +++| SHN 14 06366 M00S03675.1sj +++| LMK INQT 06367 M00S03676.1sj +++| RJM CPR CALCULATE QUEUE PRIORITY 06368 M00S03677.1sj +++| MJN SIQ5 IF NO JCB FOR SERVICE CLASS 06369 M00S03678.1sj +++| NJN SIQ6 IF NON-ZERO ENTRY TIME 06370 M00S03679.1sj +++| SIQ5 LJM SIQ2 CONTINUE QFT SCAN 06371 M00S03680.1sj +++| 06372 M00S03681.1sj +++|* CHECK JOB COUNT LIMIT. 06373 M00S03682.1sj +++| 06374 M00S03683.1sj +++| SIQ6 STD T2 SAVE CALCULATED PRIORITY
| Line S03684 Modification History | |
|---|---|
M01 (Removed by) | 1sj2 |
Seq # *Modification Id* Act ----------------------------+ 06375 M01S03684.1sj2 ---| LDM TJAM,SC 06376 M01S03685.1sj2 ---| LMM TJCT,SC 06377 M01S03686.1sj2 ---| NJN SIQ7 IF JOB COUNT LIMIT NOT REACHED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj2 |
M02 (Removed by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06378 M02S00001.ns2242 ---| LDM TJCT,SC
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06379 M01S00013.ns2242 +++| LDD EO 06380 M01S00014.ns2242 +++| NJN SIQ6.1 IF NOT ABORTED INPUT FILE 06381 M01S00015.ns2242 +++| LCN 0 SET PRIORITY MAXIMUM 06382 M01S00016.ns2242 +++| STD T2 06383 M01S00017.ns2242 +++| UJN SIQ7 SKIP JOB COUNT CHECK 06384 M01S00018.ns2242 +++| 06385 M01S00019.ns2242 +++| SIQ6.1 LDM TJCT,SC
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1sj2 |
Seq # *Modification Id* Act ----------------------------+ 06386 M01S00002.1sj2 +++| SBM TJAM,SC 06387 M01S00003.1sj2 +++| MJN SIQ7 IF JOB COUNT LIMIT NOT REACHED 06388 M00S03687.1sj +++| LDD SC 06389 M00S03688.1sj +++| LMN DISC 06390 M00S03689.1sj +++| ZJN SIQ7 IF DETACHED JOB 06391 M00S03690.1sj +++| LDD AA 06392 M00S03691.1sj +++| LPN 17
| Line S03692 Modification History | |
|---|---|
M01 (Removed by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 06393 M01S03692.ns2134 ---| LMN TXOT
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 06394 M01S00062.ns2134 +++| LMK IAOT 06395 M00S03693.1sj +++| ZJN SIQ7 IF INTERACTIVE JOB 06396 M00S03694.1sj +++| RJM FLP FIND LOWEST PRIORITY JOB OF SERVICE CLASS 06397 M00S03695.1sj +++| SHN 6 06398 M00S03696.1sj +++| MJN SIQ5 IF NO JOBS OF SERVICE CLASS IN *TIOO* 06399 M00S03697.1sj +++| LDD T4 06400 M00S03698.1sj +++| SBD T2 06401 M00S03699.1sj +++| PJN SIQ5 IF PRIORITY OF NEW JOB .LE. LOWEST 06402 M00S03700.1sj +++| LJM SIQ13 CREATE *TIOO* ENTRY FOR CURRENT QFT ENTRY 06403 M00S03701.1sj +++| 06404 M00S03702.1sj +++|* BUILD *TIOO* ENTRY. 06405 M00S03703.1sj +++| 06406 M00S03704.1sj +++| SIQ7 SOD T7 DECREMENT *TIOO* INDEX 06407 M00S03705.1sj +++| SOD TP DECREMENT AVAILABLE EJT ENTRY COUNT 06408 M00S03706.1sj +++|* LJM SIQ12 (IF NO NEW *TIOO* SLOTS SHOULD BE USED) 06409 M00S03707.1sj +++| SIQB EQU *-2 06410 M00S03708.1sj +++| LDD T2 06411 M00S03709.1sj +++| SIQ8 STM TIOO+1*TIOOL,T7 06412 M00S03710.1sj +++| LDD IO PLACE QFT ORDINAL IN *TIOO* ENTRY 06413 M00S03711.1sj +++| STM TIOO,T7 06414 M00S03712.1sj +++| LDD SC PLACE SERVICE CLASS IN *TIOO* ENTRY 06415 M00S03713.1sj +++| STM TIOO+2*TIOOL,T7
| Line S03714 Modification History | |
|---|---|
M01 (Removed by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06416 M01S03714.ns2242 ---| AOM TJCT,SC INCREMENT JOB COUNT
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2242 |
Seq # *Modification Id* Act ----------------------------+ 06417 M01S00020.ns2242 +++| LDD EO 0= ABORTED INPUT FILE, 1=NORMAL INPUT FILE 06418 M01S00021.ns2242 +++| RAM TJCT,SC INCREMENT JOB COUNT 06419 M00S03715.1sj +++|* LJM SIQX (IF DEADSTART SEQUENCING JOB FOUND) 06420 M00S03716.1sj +++| SIQC EQU *-2 06421 M00S03717.1sj +++| LDD T2 06422 M00S03718.1sj +++| SBD T4 06423 M00S03719.1sj +++| PJN SIQ9 IF JOB-S PRIORITY NOT NEW LOWEST OF *TIOO* 06424 M00S03720.1sj +++| LDD T7 SAVE INDEX OF NEW LOWEST PRIORITY JOB 06425 M00S03721.1sj +++| STD T5 06426 M00S03722.1sj +++| LDD T2 SAVE PRIORITY OF NEW LOWEST JOB 06427 M00S03723.1sj +++| STD T4 06428 M00S03724.1sj +++| SIQ9 LDD T7 06429 M00S03725.1sj +++| ZJN SIQ10 IF *TIOO* TABLE IS FULL 06430 M00S03726.1sj +++| LDD TP 06431 M00S03727.1sj +++| NJN SIQ11 IF MORE AVAILABLE EJT ENTRIES EXIST 06432 M00S03728.1sj +++| SIQ10 LDC SIQ12 PREVENT USE OF NEW *TIOO* SLOTS 06433 M00S03729.1sj +++| STM SIQB+1 06434 M00S03730.1sj +++| LDD HN STORE *LJM* 06435 M00S03731.1sj +++| STM SIQB 06436 M00S03732.1sj +++| SIQ11 LJM SIQ2 CONTINUE QFT SCAN 06437 M00S03733.1sj +++| 06438 M00S03734.1sj +++|* NO NEW *TIOO* SLOTS MAY BE USED. SEE IF THE CURRENT QFT 06439 M00S03735.1sj +++|* ENTRY HAS A HIGHER QUEUE PRIORITY THAN THE LOWEST PRIORITY 06440 M00S03736.1sj +++|* *TIOO* ENTRY. IF SO, REPLACE THAT JOB-S *TIOO* ENTRY WITH A 06441 M00S03737.1sj +++|* NEW ONE FOR THE CURRENT QFT ENTRY. 06442 M00S03738.1sj +++| 06443 M00S03739.1sj +++| SIQ12 LDD T4 06444 M00S03740.1sj +++| SBD T2 06445 M00S03741.1sj +++| PJN SIQ11 IF NEW JOB-S PRIORITY .LE. *TIOO* LOWEST 06446 M00S03742.1sj +++| SIQ13 LDM TIOO+2*TIOOL,T5 GET SERVICE CLASS OF CURRENT LOWEST 06447 M00S03743.1sj +++| STD T3 06448 M00S03744.1sj +++| SOM TJCT,T3 DECREMENT JOB COUNT FOR OLD *TIOO* LOWEST 06449 M00S03745.1sj +++| AOM TJCT,SC INCREMENT JOB COUNT FOR NEW JOB 06450 M00S03746.1sj +++| LDD IO SAVE QFT ORDINAL IN *TIOO* ENTRY 06451 M00S03747.1sj +++| STM TIOO,T5 06452 M00S03748.1sj +++| LDD T2 SAVE QUEUE PRIORITY IN *TIOO* ENTRY 06453 M00S03749.1sj +++| STM TIOO+1*TIOOL,T5 06454 M00S03750.1sj +++| LDD SC SAVE SERVICE CLASS IN *TIOO* ENTRY 06455 M00S03751.1sj +++| STM TIOO+2*TIOOL,T5 06456 M00S03752.1sj +++| 06457 M00S03753.1sj +++|* SCAN THE *TIOO* TABLE TO FIND THE NEW LOWEST PRIORITY JOB. 06458 M00S03754.1sj +++| 06459 M00S03755.1sj +++| LDN 0 06460 M00S03756.1sj +++| RJM FLP FIND LOWEST PRIORITY JOB 06461 M00S03757.1sj +++| UJN SIQ11 CONTINUE QFT SCAN 06462 M00S03758.1sj +++| SPACE 4,10 06463 M00S03759.1sj +++|* COMMON DECKS. 06464 M00S03760.1sj +++| 06465 M00S03761.1sj +++| 06466 M00S03762.1sj +++| CPR$ SET 1 ASSEMBLE ROUTINE *CPR* OF *COMPCPE* 06467 M00S03763.1sj +++| CET$ SET 1 ASSEMBLE ROUTINE *CET* OF *COMPCPE*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj22 |
Seq # *Modification Id* Act ----------------------------+ 06468 M01S00001.1sj22 +++| IOQ$ SET 1 ENABLE ZERO ENTRY TIME CHECK 06469 M00S03764.1sj +++| LIST X
| Line S03765 Modification History | |
|---|---|
M01 (Removed by) | ns2437 |
Seq # *Modification Id* Act ----------------------------+ 06470 M01S03765.ns2437 ---|*CALL COMPAST 06471 M00S03766.1sj +++|*CALL COMPCPE 06472 M00S03767.1sj +++| LIST *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2437 |
Seq # *Modification Id* Act ----------------------------+ 06473 M01S00001.ns2437 +++| 06474 M01S00002.ns2437 +++| 06475 M01S00003.ns2437 +++| ERRNG TJCT-* OVERFLOW INTO *TJCT*
| Line S03768 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06476 M01S03768.ns21000 ---| SPACE 4,10 06477 M01S03769.ns21000 ---| USE TABLES 06478 M01S03770.ns21000 ---| TABLES BSS 0 *3SC* TABLES ORIGIN
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06479 M01S00049.ns21000 +++| TITLE PRESET.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2437 |
Seq # *Modification Id* Act ----------------------------+ 06480 M01S00004.ns2437 +++| USE TABLES 06481 M00S03771.1sj +++| PRS SPACE 4,10
| Line S03772 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 06482 M01S03772.271l716 ---|** PRS - PRESET *3SC*.
| Line S00540 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 06483 M01S00540.271l716 +++|** PRS - PRESET *3SB*. 06484 M00S03773.1sj +++|*
| Line S03774 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06485 M01S03774.ns21000 ---|* USES CM - CM+4, IO.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06486 M02S00050.v23l617 ---|* BUILDS THE *THLD* TABLE OF HOST-ENABLED LID-S.
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06487 M01S00101.v23l617 +++|* BUILDS THE *THLD* TABLE OF HOST-ENABLED LIDS. IF 06488 M01S00102.v23l617 +++|* DEADSTART SEQUENCING JOB IS ACTIVE, OR IF THE LDT 06489 M01S00103.v23l617 +++|* HAS NOT BEEN CREATED YET DUE TO A *CLDT* ABORT, 06490 M01S00104.v23l617 +++|* THEN NO *THLD* TABLE WILL BE CREATED, AND NO INPUT 06491 M01S00105.v23l617 +++|* FILES CONTAINING A DESTINATION LID IN THE QFT ENTRY 06492 M01S00106.v23l617 +++|* WILL BE SCHEDULED.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06493 M01S00051.ns21000 +++|*
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06494 M02S00052.v23l617 ---|* EXIT (LD) = LWA+1 OF *THLD*. 06495 M02S00053.v23l617 ---|* 06496 M02S00054.v23l617 ---|* USES IO, TP, AA - AA+4, BB - BB+4, CM - CM+4.
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06497 M02S00107.1sj50 ---|* USES IO, TP, T6, AA - AA+4, BB - BB+4, CM - CM+4,
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06498 M01S00001.1sj50 +++|* EXIT (A) = RESPONSE FROM *SEJ*. 06499 M01S00002.1sj50 +++|* 06500 M01S00003.1sj50 +++|* USES IO, T6, T9, AA - AA+4, BB - BB+4, CM - CM+4,
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06501 M01S00108.v23l617 +++|* T1 - T1+4. 06502 M00S03775.1sj +++|*
| Line S03776 Modification History | |
|---|---|
M01 (Removed by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06503 M01S03776.1sj50 ---|* CALLS AST.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06504 M01S00004.1sj50 +++|* CALLS AST, SEJ.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 06505 M01S00055.ns21000 +++|*
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 06506 M02S00056.ns2134 ---|* MACROS MONITOR.
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2134 |
Seq # *Modification Id* Act ----------------------------+ 06507 M01S00063.ns2134 +++|* MACROS ISTORE, MONITOR. 06508 M00S03777.1sj +++| 06509 M00S03778.1sj +++|
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06510 M01S00005.1sj50 +++| PRS8 LDC ** RETURN RESPONSE FROM *SEJ* 06511 M01S00006.1sj50 +++| PRSA EQU *-1 06512 M00S03779.1sj +++| PRS SUBR ENTRY/EXIT
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1sj50 |
Seq # *Modification Id* Act ----------------------------+ 06513 M01S00007.1sj50 +++| LDC IFSI+FECF*10000 CHECK *IAF* ACCESSIBILITY 06514 M01S00008.1sj50 +++| RJM AST GET *IAF* SSCT ENTRY 06515 M01S00009.1sj50 +++| SHN 21-13 06516 M01S00010.1sj50 +++| MJN PRS0 IF *IAF* ACCESSIBLE 06517 M01S00011.1sj50 +++| LDC UJNI+SEJ8-SEJB DISABLE SUSPENSION TIME-OUT 06518 M01S00012.1sj50 +++| STM SEJB 06519 M01S00013.1sj50 +++| ERRNG 37-SEJ8+SEJB JUMP OVERFLOW 06520 M01S00014.1sj50 +++| PRS0 LDN MXJC-1 INITIALIZE *TJCT* TABLE 06521 M01S00015.1sj50 +++| STD T1 06522 M01S00016.1sj50 +++| PRS0.1 LDN 0 06523 M01S00017.1sj50 +++| STM TJCT,T1 06524 M01S00018.1sj50 +++| SOD T1 DECREMENT TABLE INDEX
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/1sj.005.txt · Last modified: by 127.0.0.1