User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1sj.010

Deck 1SJ Part 010

101 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S03532 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06093  M02S03532.1sj50   ---|          STM    SEJA-1
Line S00013 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06094  M02S00013.1sj50   ---|          STM    SEJC-1
Line S03533 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06095  M02S03533.1sj50   ---|          LDM    EJAA
Line S03534 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06096  M02S03534.1sj50   ---|          STM    SEJA
Line S00014 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06097  M02S00014.1sj50   ---|          STM    SEJC
Line S03535 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06098  M03S03535.1sj50   ---|          LDM    SFJA        PRESET EJT ORDINAL FOR BACKWARD SCAN
Line S03536 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06099  M03S03536.1sj50   ---|          SBN    1
Line S00048 Modification History
M01 (Added by) ns2153
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06100  M02S00048.1sj50   ---|          LDM    SFJS        PRESET EJT ORDINAL FOR BACKWARD SCAN
Line S03537 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06101  M02S03537.1sj50   ---|          STD    EO
Line S03538 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06102  M02S03538.1sj50   ---| SEJ1     CFI    EJT,,EO     GET EJT ENTRY OFFSET
Line S03539 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06103  M02S03539.1sj50   ---|          ADC    **
Line S03540 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06104  M02S03540.1sj50   ---| SEJA     EQU    *-1         (EJT FWA)
Line S03541 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06105  M02S03541.1sj50   ---|          ADK    JSNE
Line S03542 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06106  M02S03542.1sj50   ---|          CRD    EJ
Line S03543 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06107  M03S03543.1sj50   ---|          ADN    SCLE-JSNE
Line S00003 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06108  M02S00003.1sj50   ---|          ADK    SCHE-JSNE
Line S00004 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06109  M02S00004.1sj50   ---|          CRD    AA
Line S00005 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj33
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06110  M03S00005.1sj50   ---|          ADK    SCLE-SCHE
Line S00015 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06111  M02S00015.1sj50   ---|          ADK    PRFE-SCHE
Line S00016 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06112  M02S00016.1sj50   ---|          CRD    BB
Line S00017 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06113  M02S00017.1sj50   ---|          ADK    SCLE-PRFE
Line S03544 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06114  M02S03544.1sj50   ---|          CRD    CM
Line S03545 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06115  M02S03545.1sj50   ---|          LDD    EJ
Line S03546 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06116  M02S03546.1sj50   ---|          NJN    SEJ4        IF NOT AN EMPTY ENTRY
Line S03547 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06117  M02S03547.1sj50   ---|          AOD    TP          INCREMENT EMPTY ENTRY COUNT
Line S03548 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06118  M02S03548.1sj50   ---| SEJ2     SOD    EO          DECREMENT EJT ORDINAL
Line S03549 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06119  M02S03549.1sj50   ---|          NJN    SEJ1        IF EJT SCAN NOT COMPLETE
Line S03550 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06120  M02S03550.1sj50   ---|          LDD    TP
Line S03551 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj15
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06121  M03S03551.1sj50   ---|          NJN    SEJ3        IF EMPTY EJT ENTRIES EXIST
Line S00006 Modification History
M01 (Added by) 1sj15
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06122  M02S00006.1sj50   ---|          SBN    /CPS/EJTR+1
Line S00007 Modification History
M01 (Added by) 1sj15
M02 (Updated by) 1sj33
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06123  M03S00007.1sj50   ---|          PJN    SEJ8        IF NOT ABOVE THRESHOLD
Line S00018 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06124  M02S00018.1sj50   ---|          PJP    SEJ9        IF NOT ABOVE THRESHOLD
Line S00008 Modification History
M01 (Added by) 1sj15
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06125  M02S00008.1sj50   ---|          LDN    0
Line S03552 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06126  M02S03552.1sj50   ---|          STD    CM+1        SELECT *EATM*ENTER EVENT OPTION
Line S03553 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06127  M02S03553.1sj50   ---|          STD    CM+3        STORE EVENT DESCRIPTOR
Line S03554 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06128  M02S03554.1sj50   ---|          LDN    EJJE
Line S03555 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06129  M02S03555.1sj50   ---|          STD    CM+4
Line S03556 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06130  M02S03556.1sj50   ---|          MONITOR  EATM
Line S00009 Modification History
M01 (Added by) 1sj15
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06131  M02S00009.1sj50   ---|          LCN    1           FLAG EJT THRESHOLD
Line S03557 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06132  M02S03557.1sj50   ---| SEJ3     LJM    SEJX        RETURN
Line S03558 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06133  M02S03558.1sj50   ---|
Line S03559 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06134  M02S03559.1sj50   ---| SEJ4     LDD    CM
Line S03560 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06135  M02S03560.1sj50   ---|          SHN    -6
Line S03561 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06136  M02S03561.1sj50   ---|          STD    SC
Line S03562 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06137  M02S03562.1sj50   ---|          SBN    MXSC
Line S03563 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06138  M02S03563.1sj50   ---|          PJN    SEJ2        IF INVALID SERVICE CLASS
Line S03564 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06139  M02S03564.1sj50   ---|          ADN    MXSC-DSSC
Line S03565 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06140  M02S03565.1sj50   ---|          ZJN    SEJ3        IF DEADSTART SEQUENCING JOB
Line S03566 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06141  M02S03566.1sj50   ---|          IFNE   DSSC,MXJC,1
Line S03567 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06142  M02S03567.1sj50   ---|          ADK    DSSC-MXJC
Line S03568 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06143  M02S03568.1sj50   ---|          PJN    SEJ5        IF NO JCB FOR SERVICE CLASS
Line S03569 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06144  M03S03569.1sj50   ---|          AOM    TJCT,SC     INCREMENT ACTIVE JOB COUNT
Line S00006 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06145  M02S00006.1sj50   ---|          LDD    EJ+4
Line S00007 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06146  M02S00007.1sj50   ---|          LPN    77
Line S00008 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06147  M02S00008.1sj50   ---|          LMN    TOJS*2
Line S00009 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06148  M02S00009.1sj50   ---|          NJN    SEJ4.1      IF NOT TIMED/EVENT
Line S00010 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06149  M02S00010.1sj50   ---|          LDD    AA+4
Line S00011 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06150  M02S00011.1sj50   ---|          LMN    SCFE
Line S00012 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06151  M02S00012.1sj50   ---|          ZJN    SEJ5        IF WAITING FOR FULL SERVICE CLASS
Line S00013 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06152  M02S00013.1sj50   ---| SEJ4.1   AOM    TJCT,SC     INCREMENT ACTIVE JOB COUNT
Line S03570 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06153  M02S03570.1sj50   ---|
Line S03571 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06154  M02S03571.1sj50   ---|*         PERFORM SUSPENSION TIME-OUT PROCESSING IF *IAF* IS
Line S03572 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06155  M02S03572.1sj50   ---|*         ACCESSIBLE.
Line S03573 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06156  M02S03573.1sj50   ---|
Line S03574 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06157  M02S03574.1sj50   ---| SEJ5     LDD    EJ+4
Line S03575 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06158  M03S03575.1sj50   ---|*         UJN    SEJ2        (IF SUSPENSION TIME-OUT DISABLED)
Line S00014 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06159  M02S00014.1sj50   ---|*         UJN    SEJ7        (IF SUSPENSION TIME-OUT DISABLED)
Line S03576 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06160  M02S03576.1sj50   ---| SEJB     EQU    *-1
Line S03577 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06161  M02S03577.1sj50   ---|          LPC    3776        MASK JOB/CONNECTION STATUS AND ADVANCE
Line S03578 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06162  M02S03578.1sj50   ---|          LMC    SUJS*2+DTCS*200
Line S03579 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06163  M03S03579.1sj50   ---|          NJN    SEJ2        IF NOT DETACHED SUSPENDED JOB OR ROLLING
Line S00015 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06164  M02S00015.1sj50   ---|          NJN    SEJ7        IF NOT DETACHED SUSPENDED JOB OR ROLLING
Line S03580 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06165  M03S03580.1sj50   ---|          RJM    EJA         CALCULATE EJT ENTRY ADDRESS
Line S03581 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06166  M03S03581.1sj50   ---|          ADN    SCHE
Line S03582 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06167  M03S03582.1sj50   ---|          CRD    AA
Line S03583 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06168  M02S03583.1sj50   ---|          LDD    AA+3
Line S03584 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06169  M02S03584.1sj50   ---|          SBD    TM
Line S03585 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06170  M02S03585.1sj50   ---|          MJN    SEJ6        IF SUSPENSION TIME-OUT
Line S03586 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06171  M02S03586.1sj50   ---|          NJN    SEJ7        IF NOT SUSPENSION TIME-OUT
Line S03587 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06172  M02S03587.1sj50   ---|          LDD    AA+4
Line S03588 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06173  M02S03588.1sj50   ---|          SBD    TM+1
Line S03589 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06174  M02S03589.1sj50   ---|          PJN    SEJ7        IF NOT SUSPENSION TIME-OUT
Line S03590 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06175  M02S03590.1sj50   ---|
Line S03591 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06176  M02S03591.1sj50   ---|*         SET *STET* ERROR FLAG.
Line S03592 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06177  M02S03592.1sj50   ---|
Line S03593 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj33
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06178  M03S03593.1sj50   ---| SEJ6     LDD    EJ          SAVE JSN FOR *CEFM*
Line S00019 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06179  M02S00019.1sj50   ---| SEJ6     LDD    BB+1
Line S00020 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06180  M02S00020.1sj50   ---|          NJN    SEJ8        IF ERROR FLAG ALREADY SET
Line S00021 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06181  M02S00021.1sj50   ---|          LDD    EJ          SAVE JSN FOR *CEFM*
Line S03594 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06182  M02S03594.1sj50   ---|          STD    CM+3
Line S03595 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06183  M02S03595.1sj50   ---|          LDD    EJ+1
Line S03596 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06184  M02S03596.1sj50   ---|          STD    CM+4
Line S03597 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06185  M02S03597.1sj50   ---|          LDD    EO          SAVE EJT ORDINAL FOR *CEFM*
Line S03598 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06186  M02S03598.1sj50   ---|          STD    CM+2
Line S03599 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06187  M02S03599.1sj50   ---|          LDC    STET+4000
Line S03600 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06188  M02S03600.1sj50   ---|          STD    CM+1
Line S03601 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06189  M02S03601.1sj50   ---|          MONITOR  CEFM
Line S03602 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06190  M02S03602.1sj50   ---| SEJ7     LJM    SEJ2        CONTINUE EJT SCAN
Line S00022 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06191  M02S00022.1sj50   ---|
Line S00023 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06192  M02S00023.1sj50   ---| SEJ8     LDD    EJ          SET FORCED ROLLIN FLAG
Line S00024 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06193  M02S00024.1sj50   ---|          STM    SEJD+3
Line S00025 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06194  M02S00025.1sj50   ---|          LDD    EJ+1
Line S00026 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06195  M02S00026.1sj50   ---|          STM    SEJD+4
Line S00027 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06196  M02S00027.1sj50   ---|          LDD    EO
Line S00028 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06197  M02S00028.1sj50   ---|          CFI    EJT,,EO     GET EJT ADDRESS
Line S00029 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06198  M02S00029.1sj50   ---|          ADC    **
Line S00030 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06199  M02S00030.1sj50   ---| SEJC     EQU    *-1
Line S00031 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06200  M02S00031.1sj50   ---|          STD    CM+4
Line S00032 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06201  M02S00032.1sj50   ---|          SHN    -14
Line S00033 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06202  M02S00033.1sj50   ---|          STD    CM+3
Line S00034 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06203  M02S00034.1sj50   ---|          LDN    2
Line S00035 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06204  M02S00035.1sj50   ---|          STD    CM+1
Line S00036 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06205  M02S00036.1sj50   ---|          LDD    MA
Line S00037 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06206  M02S00037.1sj50   ---|          CWM    SEJD,CM+1
Line S00038 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06207  M02S00038.1sj50   ---|          MONITOR  UTEM
Line S00039 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06208  M02S00039.1sj50   ---|          UJN    SEJ7        CONTINUE EJT SCAN
Line S00040 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06209  M02S00040.1sj50   ---|
Line S00041 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06210  M02S00041.1sj50   ---|
Line S00042 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06211  M02S00042.1sj50   ---| SEJD     VFD    6/40+JSNE,6/24D,6/36D,42/0
Line S00043 Modification History
M01 (Added by) 1sj33
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06212  M02S00043.1sj50   ---|          VFD    6/SCLE,6/1,6/52D,42/1
06213  M01S03603.1sj     +++| SIQ      SPACE  4,20
06214  M01S03604.1sj     +++|**        SIQ - SCAN QFT.
06215  M01S03605.1sj     +++|*
06216  M01S03606.1sj     +++|*         SCAN THE QFT LOOKING FOR SCHEDULABLE INPUT FILES.  BUILD
06217  M01S03607.1sj     +++|*         *TIOO* TABLE ENTRIES FOR THE *N* HIGHEST PRIORITY INPUT
06218  M01S03608.1sj     +++|*         FILES, WHERE *N* = MIN(*TP*,*TIOOL*).  *TP* IS THE NUMBER OF
06219  M01S03609.1sj     +++|*         AVAILABLE EJT ENTRIES AND *TIOOL* IS AN ASSEMBLY CONSTANT.
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  M01S03610.1sj     +++|*
Line S03611 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj15
Seq #  *Modification Id* Act 
----------------------------+
06224  M02S03611.1sj15   ---|*         ENTRY  (TP) = NUMBER OF AVAILABLE EJT ENTRIES.
06225  M01S00010.1sj15   +++|*         ENTRY  (A) .LT. 0, ONLY SCHEDULE SYSTEM JOBS.
06226  M01S00011.1sj15   +++|*                (TP) = NUMBER OF AVAILABLE EJT ENTRIES.
06227  M01S03612.1sj     +++|*                (IO) = LARGEST QFT ORDINAL.
06228  M01S03613.1sj     +++|*
06229  M01S03614.1sj     +++|*         EXIT   (T7) = CURRENT *TIOO* INDEX.
06230  M01S03615.1sj     +++|*
Line S03616 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06231  M02S03616.ns21000 ---|*         USES   T1 - T5, T7, CM - CM+4, AA - AA+4, IO, SC, TP.
Line S00019 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
06232  M02S00019.ns2242  ---|*         USES   IO, SC, TP, AA - AA+4, BB - BB+4, CM - CM+4, T1 - T7.
06233  M01S00001.ns2242  +++|*         USES   EO, IO, SC, TP, AA - AA+4, BB - BB+4, CM - CM+4,
06234  M01S00002.ns2242  +++|*                T1 - T7.
06235  M01S03617.1sj     +++|*
06236  M01S03618.1sj     +++|*         CALLS  CPR, FLP, IOA.
06237  M01S03619.1sj     +++|*
06238  M01S03620.1sj     +++|*         MACROS CFI.
06239  M01S03621.1sj     +++|
06240  M01S03622.1sj     +++|
06241  M01S03623.1sj     +++| SIQ      SUBR               ENTRY/EXIT
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  M01S03624.1sj     +++|          LDN    TIOOL       INITIALIZE *TIOO* INDEX
06250  M01S03625.1sj     +++|          STD    T7
06251  M01S03626.1sj     +++|          SBN    1           INITIALIZE INDEX OF LOWEST PRIORITY JOB
06252  M01S03627.1sj     +++|          STD    T5
06253  M01S03628.1sj     +++|          LCN    0           INITIALIZE LOWEST *TIOO* ENTRY PRIORITY
06254  M01S03629.1sj     +++|          STD    T4
06255  M01S03630.1sj     +++|          LDD    IO
06256  M01S03631.1sj     +++| SIQ1     CFI    QFT,,IO     GET QFT ENTRY OFFSET
06257  M01S03632.1sj     +++|          ADC    **
06258  M01S03633.1sj     +++| SIQA     EQU    *-1         (QFT FWA)
06259  M01S03634.1sj     +++|          ADK    JSNQ
06260  M01S03635.1sj     +++|          CRD    CM
06261  M01S03636.1sj     +++|          LDD    CM
06262  M01S03637.1sj     +++|          NJN    SIQ3        IF NOT AN EMPTY ENTRY
06263  M01S03638.1sj     +++| SIQ2     SOD    IO
06264  M01S03639.1sj     +++|          NJN    SIQ1        IF QFT SCAN NOT COMPLETE
06265  M01S03640.1sj     +++|          UJN    SIQX        RETURN
06266  M01S03641.1sj     +++|
06267  M01S03642.1sj     +++| SIQ3     LDD    CM+4
06268  M01S03643.1sj     +++|          ERRNZ  INQF        CODE ASSUMES *INQF* = 0
06269  M01S03644.1sj     +++|          LPC    7003
Line S03645 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06270  M02S03645.ns21000 ---|          NJN    SIQ2        IF FILE IS INELIGIBLE FOR SCHEDULING
06271  M01S00020.ns21000 +++|          NJN    SIQ2        IF FILE NOT ELIGIBLE FOR SCHEDULING
06272  M01S00003.ns2242  +++|          LDN    1           SET NOT ABORTED INPUT FILE
06273  M01S00004.ns2242  +++|          STD    EO
06274  M01S03646.1sj     +++|          RJM    IOA         CALCULATE QFT ENTRY ADDRESS
06275  M01S03647.1sj     +++|          ADN    ENTQ
06276  M01S03648.1sj     +++|          CRD    CM
Line S03649 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06277  M02S03649.ns21000 ---|          ADN    SCLQ-ENTQ
06278  M01S00021.ns21000 +++|          ADN    INSQ-ENTQ   READ DESTINATION LID
06279  M01S00022.ns21000 +++|          CRD    BB
06280  M01S00023.ns21000 +++|          ADN    SCLQ-INSQ
06281  M01S03650.1sj     +++|          CRD    AA
06282  M01S03651.1sj     +++|          LDD    AA          GET SERVICE CLASS
06283  M01S03652.1sj     +++|          SHN    -6
06284  M01S03653.1sj     +++|          STD    SC
Line S03654 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj15
Seq #  *Modification Id* Act 
----------------------------+
06285  M02S03654.1sj15   ---|          SBN    DSSC
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 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06295  M02S03655.ns21000 ---|          NJN    SIQ4        IF NOT DEADSTART SEQUENCING JOB
06296  M01S00024.ns21000 +++|          NJN    SIQ3.1      IF NOT DEADSTART SEQUENCING JOB
06297  M01S03656.1sj     +++|          LDN    TIOOL-1     RESET *TIOO* INDEX
06298  M01S03657.1sj     +++|          STD    T7
06299  M01S03658.1sj     +++|          ERRNZ  LJMI-100
06300  M01S03659.1sj     +++|          LDD    HN          STORE *LJM* INSTRUCTION
06301  M01S03660.1sj     +++|          STM    SIQC
06302  M01S03661.1sj     +++|          LDC    SIQX
06303  M01S03662.1sj     +++|          STM    SIQC+1
06304  M01S03663.1sj     +++|          LCN    0           SET PRIORITY TO MAXIMUM
06305  M01S03664.1sj     +++|          LJM    SIQ8        BUILD *TIOO* ENTRY
06306  M01S03665.1sj     +++|
Line S03666 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06307  M02S03666.ns21000 ---|*         THIS INPUT FILE IS SCHEDULABLE.  CALCULATE ITS QUEUE
Line S03667 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06308  M02S03667.ns21000 ---|*         PRIORITY.
Line S03668 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06309  M02S03668.ns21000 ---|
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 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06318  M02S00033.v23l617 ---| SIQD     EQU    *-1         (2*NUMBER OF HOST LIDS - 2)
06319  M01S00098.v23l617 +++| SIQD     EQU    *-1         (2*NUMBER OF HOST LIDS)
Line S00099 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2242
M03 (Updated by) ns2285
Seq #  *Modification Id* Act 
----------------------------+
06320  M03S00099.ns2285  ---|          ZJN    SIQ5        IF NO HOST LIDS PRESENT
06321  M01S00005.ns2285  +++|          ZJP    SIQ2        IF NO HOST LIDS PRESENT
Line S00005 Modification History
M01 (Added by) ns2242
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
06322  M02S00005.241l630 ---|          ZJP    SIQ2        IF NO HOST LIDS PRESENT
06323  M01S00100.v23l617 +++|          SBN    2
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 (Updated by) ns2285a
Seq #  *Modification Id* Act 
----------------------------+
06337  M02S00006.ns2285a ---| SIQ4     LDD    SC
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
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  +++|
06349  M01S00047.ns21000 +++|*         CALCULATE QUEUE PRIORITY OF SELECTED INPUT FILE.
06350  M01S00048.ns21000 +++|
Line S03669 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2285
Seq #  *Modification Id* Act 
----------------------------+
06351  M02S03669.ns2285  ---| SIQ4     LDD    CM+3
Line S00013 Modification History
M01 (Added by) ns2285
M02 (Updated by) ns2285a
Seq #  *Modification Id* Act 
----------------------------+
06352  M02S00013.ns2285a ---|          LDD    CM+3
Line S03670 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2285a
Seq #  *Modification Id* Act 
----------------------------+
06353  M02S03670.ns2285a ---|          STD    T1
Line S03671 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2285a
Seq #  *Modification Id* Act 
----------------------------+
06354  M02S03671.ns2285a ---|          LDD    CM+4
Line S03672 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2285a
Seq #  *Modification Id* Act 
----------------------------+
06355  M02S03672.ns2285a ---|          STD    T2
06356  M01S00006.ns2285a +++|          LDD    T2
Line S03673 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
06357  M02S03673.ns2242  ---|          LDD    SC
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  M01S03674.1sj     +++|          SHN    14
06366  M01S03675.1sj     +++|          LMK    INQT
06367  M01S03676.1sj     +++|          RJM    CPR         CALCULATE QUEUE PRIORITY
06368  M01S03677.1sj     +++|          MJN    SIQ5        IF NO JCB FOR SERVICE CLASS
06369  M01S03678.1sj     +++|          NJN    SIQ6        IF NON-ZERO ENTRY TIME
06370  M01S03679.1sj     +++| SIQ5     LJM    SIQ2        CONTINUE QFT SCAN
06371  M01S03680.1sj     +++|
06372  M01S03681.1sj     +++|*         CHECK JOB COUNT LIMIT.
06373  M01S03682.1sj     +++|
06374  M01S03683.1sj     +++| SIQ6     STD    T2          SAVE CALCULATED PRIORITY
Line S03684 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj2
Seq #  *Modification Id* Act 
----------------------------+
06375  M02S03684.1sj2    ---|          LDM    TJAM,SC
Line S03685 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj2
Seq #  *Modification Id* Act 
----------------------------+
06376  M02S03685.1sj2    ---|          LMM    TJCT,SC
Line S03686 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj2
Seq #  *Modification Id* Act 
----------------------------+
06377  M02S03686.1sj2    ---|          NJN    SIQ7        IF JOB COUNT LIMIT NOT REACHED
Line S00001 Modification History
M01 (Added by) 1sj2
M02 (Updated by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
06378  M02S00001.ns2242  ---|          LDM    TJCT,SC
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
06386  M01S00002.1sj2    +++|          SBM    TJAM,SC
06387  M01S00003.1sj2    +++|          MJN    SIQ7        IF JOB COUNT LIMIT NOT REACHED
06388  M01S03687.1sj     +++|          LDD    SC
06389  M01S03688.1sj     +++|          LMN    DISC
06390  M01S03689.1sj     +++|          ZJN    SIQ7        IF DETACHED JOB
06391  M01S03690.1sj     +++|          LDD    AA
06392  M01S03691.1sj     +++|          LPN    17
Line S03692 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
Seq #  *Modification Id* Act 
----------------------------+
06393  M02S03692.ns2134  ---|          LMN    TXOT
06394  M01S00062.ns2134  +++|          LMK    IAOT
06395  M01S03693.1sj     +++|          ZJN    SIQ7        IF INTERACTIVE JOB
06396  M01S03694.1sj     +++|          RJM    FLP         FIND LOWEST PRIORITY JOB OF SERVICE CLASS
06397  M01S03695.1sj     +++|          SHN    6
06398  M01S03696.1sj     +++|          MJN    SIQ5        IF NO JOBS OF SERVICE CLASS IN *TIOO*
06399  M01S03697.1sj     +++|          LDD    T4
06400  M01S03698.1sj     +++|          SBD    T2
06401  M01S03699.1sj     +++|          PJN    SIQ5        IF PRIORITY OF NEW JOB .LE. LOWEST
06402  M01S03700.1sj     +++|          LJM    SIQ13       CREATE *TIOO* ENTRY FOR CURRENT QFT ENTRY
06403  M01S03701.1sj     +++|
06404  M01S03702.1sj     +++|*         BUILD *TIOO* ENTRY.
06405  M01S03703.1sj     +++|
06406  M01S03704.1sj     +++| SIQ7     SOD    T7          DECREMENT *TIOO* INDEX
06407  M01S03705.1sj     +++|          SOD    TP          DECREMENT AVAILABLE EJT ENTRY COUNT
06408  M01S03706.1sj     +++|*         LJM    SIQ12       (IF NO NEW *TIOO* SLOTS SHOULD BE USED)
06409  M01S03707.1sj     +++| SIQB     EQU    *-2
06410  M01S03708.1sj     +++|          LDD    T2
06411  M01S03709.1sj     +++| SIQ8     STM    TIOO+1*TIOOL,T7
06412  M01S03710.1sj     +++|          LDD    IO          PLACE QFT ORDINAL IN *TIOO* ENTRY
06413  M01S03711.1sj     +++|          STM    TIOO,T7
06414  M01S03712.1sj     +++|          LDD    SC          PLACE SERVICE CLASS IN *TIOO* ENTRY
06415  M01S03713.1sj     +++|          STM    TIOO+2*TIOOL,T7
Line S03714 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
06416  M02S03714.ns2242  ---|          AOM    TJCT,SC     INCREMENT JOB COUNT
06417  M01S00020.ns2242  +++|          LDD    EO          0= ABORTED INPUT FILE, 1=NORMAL INPUT FILE
06418  M01S00021.ns2242  +++|          RAM    TJCT,SC     INCREMENT JOB COUNT
06419  M01S03715.1sj     +++|*         LJM    SIQX        (IF DEADSTART SEQUENCING JOB FOUND)
06420  M01S03716.1sj     +++| SIQC     EQU    *-2
06421  M01S03717.1sj     +++|          LDD    T2
06422  M01S03718.1sj     +++|          SBD    T4
06423  M01S03719.1sj     +++|          PJN    SIQ9        IF JOB-S PRIORITY NOT NEW LOWEST OF *TIOO*
06424  M01S03720.1sj     +++|          LDD    T7          SAVE INDEX OF NEW LOWEST PRIORITY JOB
06425  M01S03721.1sj     +++|          STD    T5
06426  M01S03722.1sj     +++|          LDD    T2          SAVE PRIORITY OF NEW LOWEST JOB
06427  M01S03723.1sj     +++|          STD    T4
06428  M01S03724.1sj     +++| SIQ9     LDD    T7
06429  M01S03725.1sj     +++|          ZJN    SIQ10       IF *TIOO* TABLE IS FULL
06430  M01S03726.1sj     +++|          LDD    TP
06431  M01S03727.1sj     +++|          NJN    SIQ11       IF MORE AVAILABLE EJT ENTRIES EXIST
06432  M01S03728.1sj     +++| SIQ10    LDC    SIQ12       PREVENT USE OF NEW *TIOO* SLOTS
06433  M01S03729.1sj     +++|          STM    SIQB+1
06434  M01S03730.1sj     +++|          LDD    HN          STORE *LJM*
06435  M01S03731.1sj     +++|          STM    SIQB
06436  M01S03732.1sj     +++| SIQ11    LJM    SIQ2        CONTINUE QFT SCAN
06437  M01S03733.1sj     +++|
06438  M01S03734.1sj     +++|*         NO NEW *TIOO* SLOTS MAY BE USED.  SEE IF THE CURRENT QFT
06439  M01S03735.1sj     +++|*         ENTRY HAS A HIGHER QUEUE PRIORITY THAN THE LOWEST PRIORITY
06440  M01S03736.1sj     +++|*         *TIOO* ENTRY.  IF SO, REPLACE THAT JOB-S *TIOO* ENTRY WITH A
06441  M01S03737.1sj     +++|*         NEW ONE FOR THE CURRENT QFT ENTRY.
06442  M01S03738.1sj     +++|
06443  M01S03739.1sj     +++| SIQ12    LDD    T4
06444  M01S03740.1sj     +++|          SBD    T2
06445  M01S03741.1sj     +++|          PJN    SIQ11       IF NEW JOB-S PRIORITY .LE. *TIOO* LOWEST
06446  M01S03742.1sj     +++| SIQ13    LDM    TIOO+2*TIOOL,T5   GET SERVICE CLASS OF CURRENT LOWEST
06447  M01S03743.1sj     +++|          STD    T3
06448  M01S03744.1sj     +++|          SOM    TJCT,T3     DECREMENT JOB COUNT FOR OLD *TIOO* LOWEST
06449  M01S03745.1sj     +++|          AOM    TJCT,SC     INCREMENT JOB COUNT FOR NEW JOB
06450  M01S03746.1sj     +++|          LDD    IO          SAVE QFT ORDINAL IN *TIOO* ENTRY
06451  M01S03747.1sj     +++|          STM    TIOO,T5
06452  M01S03748.1sj     +++|          LDD    T2          SAVE QUEUE PRIORITY IN *TIOO* ENTRY
06453  M01S03749.1sj     +++|          STM    TIOO+1*TIOOL,T5
06454  M01S03750.1sj     +++|          LDD    SC          SAVE SERVICE CLASS IN *TIOO* ENTRY
06455  M01S03751.1sj     +++|          STM    TIOO+2*TIOOL,T5
06456  M01S03752.1sj     +++|
06457  M01S03753.1sj     +++|*         SCAN THE *TIOO* TABLE TO FIND THE NEW LOWEST PRIORITY JOB.
06458  M01S03754.1sj     +++|
06459  M01S03755.1sj     +++|          LDN    0
06460  M01S03756.1sj     +++|          RJM    FLP         FIND LOWEST PRIORITY JOB
06461  M01S03757.1sj     +++|          UJN    SIQ11       CONTINUE QFT SCAN
06462  M01S03758.1sj     +++|          SPACE  4,10
06463  M01S03759.1sj     +++|*         COMMON DECKS.
06464  M01S03760.1sj     +++|
06465  M01S03761.1sj     +++|
06466  M01S03762.1sj     +++| CPR$     SET    1           ASSEMBLE ROUTINE *CPR* OF *COMPCPE*
06467  M01S03763.1sj     +++| CET$     SET    1           ASSEMBLE ROUTINE *CET* OF *COMPCPE*
06468  M01S00001.1sj22   +++| IOQ$     SET    1           ENABLE ZERO ENTRY TIME CHECK
06469  M01S03764.1sj     +++|          LIST   X
Line S03765 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06470  M02S03765.ns2437  ---|*CALL     COMPAST
06471  M01S03766.1sj     +++|*CALL     COMPCPE
06472  M01S03767.1sj     +++|          LIST   *
06473  M01S00001.ns2437  +++|
06474  M01S00002.ns2437  +++|
06475  M01S00003.ns2437  +++|          ERRNG  TJCT-*      OVERFLOW INTO *TJCT*
Line S03768 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06476  M02S03768.ns21000 ---|          SPACE  4,10
Line S03769 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06477  M02S03769.ns21000 ---|          USE    TABLES
Line S03770 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06478  M02S03770.ns21000 ---| TABLES   BSS    0           *3SC* TABLES ORIGIN
06479  M01S00049.ns21000 +++|          TITLE  PRESET.
06480  M01S00004.ns2437  +++|          USE    TABLES
06481  M01S03771.1sj     +++| PRS      SPACE  4,10
Line S03772 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
06482  M02S03772.271l716 ---|**        PRS - PRESET *3SC*.
06483  M01S00540.271l716 +++|**        PRS - PRESET *3SB*.
06484  M01S03773.1sj     +++|*
Line S03774 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06485  M02S03774.ns21000 ---|*         USES   CM - CM+4, IO.
Line S00050 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06486  M02S00050.v23l617 ---|*         BUILDS THE *THLD* TABLE OF HOST-ENABLED LID-S.
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.
06493  M01S00051.ns21000 +++|*
Line S00052 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06494  M02S00052.v23l617 ---|*         EXIT   (LD) = LWA+1 OF *THLD*.
Line S00053 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06495  M02S00053.v23l617 ---|*
Line S00054 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06496  M02S00054.v23l617 ---|*         USES   IO, TP, AA - AA+4, BB - BB+4, CM - CM+4.
Line S00107 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06497  M02S00107.1sj50   ---|*         USES   IO, TP, T6, AA - AA+4, BB - BB+4, CM - CM+4,
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,
06501  M01S00108.v23l617 +++|*                T1 - T1+4.
06502  M01S03775.1sj     +++|*
Line S03776 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06503  M02S03776.1sj50   ---|*         CALLS  AST.
06504  M01S00004.1sj50   +++|*         CALLS  AST, SEJ.
06505  M01S00055.ns21000 +++|*
Line S00056 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2134
Seq #  *Modification Id* Act 
----------------------------+
06506  M02S00056.ns2134  ---|*         MACROS  MONITOR.
06507  M01S00063.ns2134  +++|*         MACROS ISTORE, MONITOR.
06508  M01S03777.1sj     +++|
06509  M01S03778.1sj     +++|
06510  M01S00005.1sj50   +++| PRS8     LDC    **          RETURN RESPONSE FROM *SEJ*
06511  M01S00006.1sj50   +++| PRSA     EQU    *-1
06512  M01S03779.1sj     +++| PRS      SUBR               ENTRY/EXIT
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
06525  M01S00019.1sj50   +++|          PJN    PRS0.1      IF NOT DONE
06526  M01S00020.1sj50   +++|          RJM    SEJ         SCAN EJT
06527  M01S00021.1sj50   +++|          STM    PRSA        SAVE RESPONSE
06528  M01S00022.1sj50   +++|          SHN    -14
06529  M01S00023.1sj50   +++|          RAM    PRSA-1
Line S00057 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06530  M02S00057.v23l617 ---|          LDN    0           INITIALIZE *THLD* POINTER
Line S00058 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06531  M02S00058.v23l617 ---|          STD    TP
Line S00059 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06532  M02S00059.v23l617 ---|          LDC    LIDP        READ FWA OF LID TABLE
Line S00060 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06533  M02S00060.v23l617 ---|          CRD    BB
Line S00061 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06534  M02S00061.v23l617 ---|          LDD    BB
Line S00062 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06535  M02S00062.v23l617 ---|          SHN    14
Line S00063 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06536  M02S00063.v23l617 ---|          ADD    BB+1
Line S00064 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06537  M02S00064.v23l617 ---|          CRD    AA          READ HEADER WORD OF LID TABLE
Line S00065 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06538  M02S00065.v23l617 ---|          LDD    AA+4        NUMBER OF HOST LID-S IN TABLE
Line S00066 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06539  M02S00066.v23l617 ---|          STD    BB+4
Line S00067 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06540  M02S00067.v23l617 ---|          ZJN    PRS1.1      IF NO HOST LID-S
Line S00068 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06541  M02S00068.v23l617 ---|          SBN    THLDL/2+1
Line S00069 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06542  M02S00069.v23l617 ---|          PJN    PRS1.1      IF TOO MANY HOST LID-S
Line S00070 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06543  M02S00070.v23l617 ---|          LDD    AA+1        LENGTH OF LID TABLE
Line S00071 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06544  M02S00071.v23l617 ---|          STD    BB+3
Line S00072 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06545  M02S00072.v23l617 ---| PRS1     LDD    BB          READ NEXT ENTRY
Line S00073 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06546  M02S00073.v23l617 ---|          SHN    14
Line S00074 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06547  M02S00074.v23l617 ---|          LMD    BB+1
Line S00075 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06548  M02S00075.v23l617 ---|          ADD    BB+3
Line S00076 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06549  M02S00076.v23l617 ---|          CRD    AA
Line S00077 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06550  M02S00077.v23l617 ---|          SOD    BB+3        DECREMENT LID TABLE LENGTH
Line S00078 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06551  M02S00078.v23l617 ---|          PJN    PRS2        IF NOT END OF TABLE
Line S00079 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06552  M02S00079.v23l617 ---| PRS1.1   MONITOR  HNGM
Line S00080 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06553  M02S00080.v23l617 ---|          UJN    *           HUNG PP
Line S00081 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06554  M02S00081.v23l617 ---|
Line S00082 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06555  M02S00082.v23l617 ---| PRS2     LDD    AA+1
Line S00083 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06556  M02S00083.v23l617 ---|          SHN    21-5
Line S00084 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06557  M02S00084.v23l617 ---|          PJN    PRS3        IF NOT HOST LID
Line S00085 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06558  M02S00085.v23l617 ---|          SHN    21-4-21+5
Line S00086 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06559  M02S00086.v23l617 ---|          MJN    PRS2.1      IF LID ALSO LINKED
Line S00087 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06560  M02S00087.v23l617 ---|          SHN    21-3-21+4
Line S00088 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06561  M02S00088.v23l617 ---|          MJN    PRS2.1      IF LID NOT ENABLED
Line S00089 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06562  M02S00089.v23l617 ---|          LDD    AA          SAVE HOST LID IN TABLE
Line S00090 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06563  M02S00090.v23l617 ---|          STM    THLD,TP
Line S00091 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06564  M02S00091.v23l617 ---|          LDD    AA+1
Line S00092 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06565  M02S00092.v23l617 ---|          SCN    77
Line S00093 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06566  M02S00093.v23l617 ---|          STM    THLD+1,TP
Line S00094 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06567  M02S00094.v23l617 ---|          LDN    2           INCREMENT *THLD* INDEX
Line S00095 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06568  M02S00095.v23l617 ---|          RAD    TP
Line S00096 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06569  M02S00096.v23l617 ---| PRS2.1   SOD    BB+4
Line S00097 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06570  M02S00097.v23l617 ---|          ZJN    PRS4        IF LAST HOST LID
Line S00098 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06571  M02S00098.v23l617 ---| PRS3     LDD    AA+4
Line S00099 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06572  M02S00099.v23l617 ---|          SHN    21-13
Line S00100 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06573  M02S00100.v23l617 ---|          MJN    PRS3.2      IF HOST LID
Line S00101 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06574  M02S00101.v23l617 ---| PRS3.1   LJM    PRS1        CONTINUE PROCESSING (READ NEXT WORD)
Line S00102 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06575  M02S00102.v23l617 ---|
Line S00103 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06576  M02S00103.v23l617 ---| PRS3.2   SHN    21-12-21+13
Line S00104 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06577  M02S00104.v23l617 ---|          MJN    PRS3.3      IF LID ALSO LINKED
Line S00105 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06578  M02S00105.v23l617 ---|          SHN    21-11-21+12
Line S00106 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06579  M02S00106.v23l617 ---|          MJN    PRS3.3      IF LID NOT ENABLED
Line S00107 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06580  M02S00107.v23l617 ---|          LDD    AA+2        STORE HOST LID
Line S00108 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06581  M02S00108.v23l617 ---|          LPN    77
Line S00109 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06582  M02S00109.v23l617 ---|          SHN    14
Line S00110 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06583  M02S00110.v23l617 ---|          LMD    AA+3
Line S00111 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06584  M02S00111.v23l617 ---|          SHN    14
Line S00112 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06585  M02S00112.v23l617 ---|          STM    THLD,TP
Line S00113 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06586  M02S00113.v23l617 ---|          SHN    -6
Line S00114 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06587  M02S00114.v23l617 ---|          SCN    77
Line S00115 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06588  M02S00115.v23l617 ---|          STM    THLD+1,TP
Line S00116 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06589  M02S00116.v23l617 ---|          LDN    2           INCREMENT *THLD* INDEX
Line S00117 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06590  M02S00117.v23l617 ---|          RAD    TP
Line S00118 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06591  M02S00118.v23l617 ---| PRS3.3   SOD    BB+4        DECREMENT HOST LID COUNT
Line S00119 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06592  M02S00119.v23l617 ---|          NJN    PRS3.1      IF MORE HOST LID-S
Line S00120 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06593  M02S00120.v23l617 ---| PRS4     LDD    TP
Line S00121 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06594  M02S00121.v23l617 ---|          SBN    2
Line S00122 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06595  M02S00122.v23l617 ---|          STM    SIQD        SAVE LENGTH OF HOST LID TABLE - 2
Line S03780 Modification History
M01 (Added by) 1sj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06596  M02S03780.v23l617 ---|          LDC    IFSI+FECF*10000  CHECK *IAF* ACCESSIBILITY
06597  M01S00109.v23l617 +++|          LDK    LIDP        GET FWA OF LDT
06598  M01S00110.v23l617 +++|          CRD    T1
06599  M01S00111.v23l617 +++|          LDD    T1          GET PID COUNT
06600  M01S00112.v23l617 +++|          SHN    14
06601  M01S00113.v23l617 +++|          LMD    T2
06602  M01S00114.v23l617 +++|          CRD    AA
06603  M01S00115.v23l617 +++|          LDN    1           INITIALIZE LDT INDEX
06604  M01S00116.v23l617 +++|          STD    T6
06605  M01S00117.v23l617 +++|          LDD    AA+4        SAVE PID COUNT
06606  M01S00118.v23l617 +++|          STD    T3
06607  M01S00119.v23l617 +++|          LDN    0           INITIALIZE *THLD* POINTER
Line S00120 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06608  M02S00120.1sj50   ---|          STD    TP
06609  M01S00024.1sj50   +++|          STD    T9
06610  M01S00121.v23l617 +++| PRS1     SOD    T3          DECREMENT PID COUNT
06611  M01S00122.v23l617 +++|          PJN    PRS2        IF MORE PIDS
Line S00123 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06612  M02S00123.1sj50   ---|          LJM    PRS6        CHECK *IAF* ACCESSIBILITY
06613  M01S00025.1sj50   +++|          LJM    PRS7        SET *QFT* FWA
06614  M01S00124.v23l617 +++|
06615  M01S00125.v23l617 +++| PRS2     LDD    T1          READ FIRST WORD OF PID ENTRY
06616  M01S00126.v23l617 +++|          SHN    14
06617  M01S00127.v23l617 +++|          LMD    T2
06618  M01S00128.v23l617 +++|          ADD    T6
06619  M01S00129.v23l617 +++|          CRD    AA
06620  M01S00130.v23l617 +++|          ADN    1           SECOND WORD OF PID ENTRY
06621  M01S00131.v23l617 +++|          CRD    BB
06622  M01S00132.v23l617 +++|          ADN    1           THIRD WORD OF PID ENTRY
06623  M01S00133.v23l617 +++|          CRD    CM
06624  M01S00134.v23l617 +++|          LDD    AA+1
06625  M01S00135.v23l617 +++|          SHN    21-5
06626  M01S00136.v23l617 +++|          MJN    PRS3        IF HOST PID
06627  M01S00137.v23l617 +++|          LDD    BB+4        POINT TO NEXT PID ENTRY
06628  M01S00138.v23l617 +++|          RAD    T6
06629  M01S00139.v23l617 +++|          UJN    PRS1        CHECK NEXT PID
06630  M01S00140.v23l617 +++|
06631  M01S00141.v23l617 +++| PRS3     LDN    3-1         FWA-1 OF LID ENTRY
06632  M01S00142.v23l617 +++|          RAD    T6
06633  M01S00143.v23l617 +++| PRS4     SOD    CM+4        DECREMENT LID SLOT COUNT
Line S00144 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
06634  M02S00144.241l630 ---|          MJN    PRS5        IF ALL LID SLOTS CHECKED
06635  M01S00149.241l630 +++|          MJP    PRS5        IF ALL LID SLOTS CHECKED
06636  M01S00145.v23l617 +++|          AOD    T6          POINT TO NEXT LID ENTRY
06637  M01S00146.v23l617 +++|          LDD    T1          READ LID ENTRY
06638  M01S00147.v23l617 +++|          SHN    14
06639  M01S00148.v23l617 +++|          LMD    T2
06640  M01S00149.v23l617 +++|          ADD    T6
06641  M01S00150.v23l617 +++|          CRD    AA
06642  M01S00151.v23l617 +++|          LDD    AA
06643  M01S00152.v23l617 +++|          ZJN    PRS4        IF HOLE IN LDT
06644  M01S00153.v23l617 +++|
06645  M01S00154.v23l617 +++|*         ADD ONLY HOST LIDS THAT ARE ENABLED AND ARE NOT
06646  M01S00155.v23l617 +++|*         LINKED OR STORE-AND-FORWARD TO THE HOST LID TABLE.
06647  M01S00156.v23l617 +++|
06648  M01S00157.v23l617 +++|          LDD    AA+2
06649  M01S00158.v23l617 +++|          SHN    21-13
06650  M01S00159.v23l617 +++|          PJN    PRS4        IF LID NOT ENABLED
06651  M01S00160.v23l617 +++|          SHN    21-10-21+13
06652  M01S00161.v23l617 +++|          MJN    PRS4        IF LID LINKED (LOOPBACK SET)
06653  M01S00162.v23l617 +++|          SHN    21-12-21+10+22
06654  M01S00163.v23l617 +++|          MJN    PRS4        IF STOREF SET
06655  M01S00164.v23l617 +++|          LDD    AA          ADD LID TO HOST LID TABLE
Line S00165 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06656  M02S00165.1sj50   ---|          STM    THLD,TP
06657  M01S00026.1sj50   +++|          STM    THLD,T9
06658  M01S00166.v23l617 +++|          LDD    AA+1
Line S00167 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06659  M02S00167.1sj50   ---|          STM    THLD+1,TP
06660  M01S00027.1sj50   +++|          STM    THLD+1,T9
06661  M01S00168.v23l617 +++|          LDN    2           INCREMENT *THLD* INDEX
Line S00169 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06662  M02S00169.1sj50   ---|          RAD    TP
06663  M01S00028.1sj50   +++|          RAD    T9
Line S00170 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2250
Seq #  *Modification Id* Act 
----------------------------+
06664  M02S00170.ns2250  ---|          SBN    THLDL
06665  M01S00001.ns2250  +++|          ADC    -THLDL
06666  M01S00171.v23l617 +++|          MJN    PRS4        IF ROOM FOR MORE HOST LIDS
Line S00172 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
06667  M02S00172.241l630 ---|          MONITOR  HNGM
Line S00173 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
06668  M02S00173.241l630 ---|          UJN    *           HUNG PP
06669  M01S00150.241l630 +++|          LDN    0
06670  M01S00151.241l630 +++|          STD    CM+2        SET NO ERROR FLAG
06671  M01S00152.241l630 +++|          LDC    *
06672  M01S00153.241l630 +++|          STD    CM+1        ADDRESS WHERE ERROR DETECTED
06673  M01S00154.241l630 +++|          MONITOR  CHGM      CONDITIONAL HANG FOR NO ROOM
06674  M01S00174.v23l617 +++|
Line S00175 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06675  M02S00175.1sj50   ---| PRS5     LDD    TP
06676  M01S00029.1sj50   +++| PRS5     LDD    T9
Line S00176 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06677  M02S00176.1sj50   ---|          ZJN    PRS6        IF NO HOST LIDS DEFINED
06678  M01S00030.1sj50   +++|          ZJN    PRS7        IF NO HOST LIDS DEFINED
06679  M01S00177.v23l617 +++|          STM    SIQD        SAVE LENGTH OF HOST LID TABLE
Line S00178 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06680  M02S00178.1sj50   ---| PRS6     LDC    IFSI+FECF*10000  CHECK *IAF* ACCESSIBILITY
Line S03781 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06681  M02S03781.1sj50   ---|          RJM    AST         GET *IAF* SSCT ENTRY
Line S03782 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06682  M02S03782.1sj50   ---|          SHN    21-13
Line S03783 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06683  M03S03783.1sj50   ---|          MJN    PRS2        IF *IAF* ACCESSIBLE
Line S00123 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06684  M03S00123.1sj50   ---|          MJN    PRS5        IF *IAF* ACCESSIBLE
Line S00179 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06685  M02S00179.1sj50   ---|          MJN    PRS7        IF *IAF* ACCESSIBLE
Line S03784 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06686  M03S03784.1sj50   ---|          LDC    **          DISABLE SUSPENSION TIME-OUT PROCESSING
Line S03785 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06687  M03S03785.1sj50   ---|          ORG    *-1
Line S03786 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06688  M03S03786.1sj50   ---|          LOC    SEJB
Line S03787 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06689  M03S03787.1sj50   ---|          UJN    SEJ2        CONTINUE EJT SCAN
Line S03788 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06690  M03S03788.1sj50   ---|
Line S03789 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06691  M03S03789.1sj50   ---|          LOC    *O
Line S03790 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06692  M03S03790.1sj50   ---|          STM    SEJB
Line S00064 Modification History
M01 (Added by) ns2134
M02 (Updated by) 1sj31
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06693  M03S00064.1sj50   ---|          ISTORE SEJB,(UJN SEJ2)  DISABLE SUSPENSION TIME-OUT
Line S00016 Modification History
M01 (Added by) 1sj31
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06694  M02S00016.1sj50   ---|          ISTORE SEJB,(UJN SEJ7)  DISABLE SUSPENSION TIME-OUT
Line S03791 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06695  M02S03791.ns21000 ---| PRS2     LDN    QFTP        PRESET QFT FWA
Line S00124 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06696  M02S00124.v23l617 ---| PRS5     LDN    QFTP        PRESET QFT FWA
06697  M01S00180.v23l617 +++| PRS7     LDK    QFTP        PRESET QFT FWA
06698  M01S03792.1sj     +++|          CRD    CM
06699  M01S03793.1sj     +++|          LDD    CM
06700  M01S03794.1sj     +++|          RAM    IOAA-1
06701  M01S03795.1sj     +++|          STM    SIQA-1
06702  M01S03796.1sj     +++|          LDD    CM+1
06703  M01S03797.1sj     +++|          STM    IOAA
06704  M01S03798.1sj     +++|          STM    SIQA
Line S03799 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj3
Seq #  *Modification Id* Act 
----------------------------+
06705  M02S03799.1sj3    ---|          LDD    CM+2        PRESET QFT ORDINAL FOR BACKWARD SCAN
06706  M01S00001.1sj3    +++|          SOD    CM+2        PRESET QFT ORDINAL FOR BACKWARD SCAN
06707  M01S03800.1sj     +++|          STD    IO
06708  M01S00065.ns2134  +++|          LDK    SSML        SET SYSTEM SECURITY MODE
06709  M01S00066.ns2134  +++|          CRD    CM
06710  M01S00067.ns2134  +++|          LDD    CM
06711  M01S00068.ns2134  +++|          LPN    7
06712  M01S00069.ns2134  +++|          RAM    CEEC
Line S03801 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06713  M02S03801.1sj50   ---|          LJM    PRSX        RETURN
06714  M01S00031.1sj50   +++|          LJM    PRS8        RETURN
06715  M01S00005.ns2437  +++|          SPACE  4,10
06716  M01S00006.ns2437  +++|*         PRESET COMMON DECKS.
06717  M01S00007.ns2437  +++|
06718  M01S00008.ns2437  +++|
06719  M01S00009.ns2437  +++|*CALL     COMPAST
06720  M01S00010.ns2437  +++|
06721  M01S00011.ns2437  +++|
06722  M01S00012.ns2437  +++|          ERRNG  THLD-*      OVERFLOW INTO *THLD*
06723  M01S00032.1sj50   +++|          EJECT
06724  M01S00033.1sj50   +++|*         CODE OVERWRITTEN BY *PRS*.
06725  M01S00034.1sj50   +++| SEJ      SPACE  4,25
06726  M01S00035.1sj50   +++|**        SEJ - SCAN EJT.
06727  M01S00036.1sj50   +++|*
06728  M01S00037.1sj50   +++|*         SCAN THE EJT TO PERFORM THE FOLLOWING FUNCTIONS -
06729  M01S00038.1sj50   +++|*
06730  M01S00039.1sj50   +++|*                1. COUNT THE NUMBER OF EXECUTING JOBS IN EACH SERVICE
06731  M01S00040.1sj50   +++|*                   CLASS.  JOBS IN TIMED/EVENT ROLLOUT WAITING TO
06732  M01S00041.1sj50   +++|*                   CHANGE INTO ANOTHER SERVICE CLASS ARE NOT COUNTED.
06733  M01S00042.1sj50   +++|*                2. DETERMINE IF THERE ARE ANY AVAILABLE EJT ENTRIES.
06734  M01S00043.1sj50   +++|*                3. PERFORM SUSPENSION TIME-OUT PROCESSING AS REQUIRED.
06735  M01S00044.1sj50   +++|*                4. CHECK FOR THE EXISTENCE OF THE DEADSTART SEQUENCING
06736  M01S00045.1sj50   +++|*                   JOB.
06737  M01S00046.1sj50   +++|*
06738  M01S00047.1sj50   +++|*         ENTRY  (SFJS) = LARGEST EJT ORDINAL.
06739  M01S00048.1sj50   +++|*                (TM - TM+1) = SECONDS PORTION OF REAL-TIME CLOCK.
06740  M01S00049.1sj50   +++|*
06741  M01S00050.1sj50   +++|*         EXIT   (A) .LT. 0, IF TO SCHEDULE ONLY SYSTEM JOBS.
06742  M01S00051.1sj50   +++|*                (A) = 0, IF DEADSTART SEQUENCING JOB.
06743  M01S00052.1sj50   +++|*                (A) .GT. 0, SCHEDULE ANY JOB.
06744  M01S00053.1sj50   +++|*                (TP) = NUMBER OF AVAILABLE EJT ENTRIES.
06745  M01S00054.1sj50   +++|*
06746  M01S00055.1sj50   +++|*         USES   CM - CM+4, AA - AA+4, BB - BB+4, EJ - EJ+4, EO, SC,
06747  M01S00056.1sj50   +++|*                TP.
06748  M01S00057.1sj50   +++|*
06749  M01S00058.1sj50   +++|*         CALLS  EJA.
06750  M01S00059.1sj50   +++|*
06751  M01S00060.1sj50   +++|*         MACROS CFI, MONITOR.
06752  M01S00061.1sj50   +++|
06753  M01S00062.1sj50   +++|
06754  M01S00063.1sj50   +++| SEJ10    LDN    1           ALLOW SCHEDULING
06755  M01S00064.1sj50   +++|
06756  M01S00065.1sj50   +++| SEJ      SUBR               ENTRY/EXIT
06757  M01S00066.1sj50   +++|          LDN    0           INITIALIZE EMPTY EJT ENTRY COUNT
06758  M01S00067.1sj50   +++|          STD    TP
06759  M01S00068.1sj50   +++|          LDM    EJAA-1      PRESET EJT FWA
06760  M01S00069.1sj50   +++|          STM    SEJA-1
06761  M01S00070.1sj50   +++|          STM    SEJC-1
06762  M01S00071.1sj50   +++|          LDM    EJAA
06763  M01S00072.1sj50   +++|          STM    SEJA
06764  M01S00073.1sj50   +++|          STM    SEJC
06765  M01S00074.1sj50   +++|          LDM    SFJS        PRESET EJT ORDINAL FOR BACKWARD SCAN
06766  M01S00075.1sj50   +++|          STD    EO
06767  M01S00076.1sj50   +++| SEJ1     CFI    EJT,,EO     GET EJT ENTRY OFFSET
06768  M01S00077.1sj50   +++|          ADC    **
06769  M01S00078.1sj50   +++| SEJA     EQU    *-1         (EJT FWA)
06770  M01S00079.1sj50   +++|          ADK    JSNE
06771  M01S00080.1sj50   +++|          CRD    EJ
06772  M01S00081.1sj50   +++|          ADK    SCHE-JSNE
06773  M01S00082.1sj50   +++|          CRD    AA
06774  M01S00083.1sj50   +++|          ADK    PRFE-SCHE
06775  M01S00084.1sj50   +++|          CRD    BB
06776  M01S00085.1sj50   +++|          ADK    SCLE-PRFE
06777  M01S00086.1sj50   +++|          CRD    CM
06778  M01S00087.1sj50   +++|          LDD    EJ
06779  M01S00088.1sj50   +++|          NJN    SEJ4        IF NOT AN EMPTY ENTRY
06780  M01S00089.1sj50   +++|          AOD    TP          INCREMENT EMPTY ENTRY COUNT
06781  M01S00090.1sj50   +++| SEJ2     SOD    EO          DECREMENT EJT ORDINAL
06782  M01S00091.1sj50   +++|          NJN    SEJ1        IF EJT SCAN NOT COMPLETE
06783  M01S00092.1sj50   +++|          LDD    TP
06784  M01S00093.1sj50   +++|          SBN    /CPS/EJTR+1
06785  M01S00094.1sj50   +++|          PJP    SEJ10       IF NOT ABOVE THRESHOLD
06786  M01S00095.1sj50   +++|          LDN    0
06787  M01S00096.1sj50   +++|          STD    CM+1        SELECT *EATM* ENTER EVENT OPTION
06788  M01S00097.1sj50   +++|          STD    CM+3        STORE EVENT DESCRIPTOR
06789  M01S00098.1sj50   +++|          LDN    EJJE
06790  M01S00099.1sj50   +++|          STD    CM+4
06791  M01S00100.1sj50   +++|          MONITOR  EATM
06792  M01S00101.1sj50   +++|          LCN    1           FLAG EJT THRESHOLD
06793  M01S00102.1sj50   +++| SEJ3     LJM    SEJX        RETURN
06794  M01S00103.1sj50   +++|
06795  M01S00104.1sj50   +++| SEJ4     LDD    CM
06796  M01S00105.1sj50   +++|          SHN    -6
06797  M01S00106.1sj50   +++|          STD    SC
06798  M01S00107.1sj50   +++|          SBN    MXSC
06799  M01S00108.1sj50   +++|          PJN    SEJ2        IF INVALID SERVICE CLASS
06800  M01S00109.1sj50   +++|          ADN    MXSC-DSSC
06801  M01S00110.1sj50   +++|          ZJN    SEJ3        IF DEADSTART SEQUENCING JOB
06802  M01S00111.1sj50   +++|          IFNE   DSSC,MXJC,1
06803  M01S00112.1sj50   +++|          ADK    DSSC-MXJC
06804  M01S00113.1sj50   +++|          PJN    SEJ6        IF NO JCB FOR SERVICE CLASS
06805  M01S00114.1sj50   +++|          LDD    EJ+4
06806  M01S00115.1sj50   +++|          LPN    77
06807  M01S00116.1sj50   +++|          LMN    TOJS*2
06808  M01S00117.1sj50   +++|          NJN    SEJ5        IF NOT TIMED/EVENT
06809  M01S00118.1sj50   +++|          LDD    AA+4
06810  M01S00119.1sj50   +++|          LMN    SCFE
06811  M01S00120.1sj50   +++|          ZJN    SEJ6        IF WAITING FOR FULL SERVICE CLASS
06812  M01S00121.1sj50   +++| SEJ5     AOM    TJCT,SC     INCREMENT ACTIVE JOB COUNT
06813  M01S00122.1sj50   +++|
06814  M01S00123.1sj50   +++|*         PERFORM SUSPENSION TIME-OUT PROCESSING IF *IAF* IS
06815  M01S00124.1sj50   +++|*         ACCESSIBLE.
06816  M01S00125.1sj50   +++|
06817  M01S00126.1sj50   +++| SEJ6     LDD    EJ+4
06818  M01S00127.1sj50   +++|*         UJN    SEJ8        (IF SUSPENSION TIME-OUT DISABLED)
06819  M01S00128.1sj50   +++| SEJB     EQU    *-1
06820  M01S00129.1sj50   +++|          LPC    3776        MASK JOB/CONNECTION STATUS AND ADVANCE
06821  M01S00130.1sj50   +++|          LMC    SUJS*2+DTCS*200
06822  M01S00131.1sj50   +++|          NJN    SEJ8        IF NOT DETACHED SUSPENDED JOB OR ROLLING
06823  M01S00132.1sj50   +++|          LDD    AA+3
06824  M01S00133.1sj50   +++|          SBD    TM
06825  M01S00134.1sj50   +++|          MJN    SEJ7        IF SUSPENSION TIME-OUT
06826  M01S00135.1sj50   +++|          NJN    SEJ8        IF NOT SUSPENSION TIME-OUT
06827  M01S00136.1sj50   +++|          LDD    AA+4
06828  M01S00137.1sj50   +++|          SBD    TM+1
06829  M01S00138.1sj50   +++|          PJN    SEJ8        IF NOT SUSPENSION TIME-OUT
06830  M01S00139.1sj50   +++|
06831  M01S00140.1sj50   +++|*         SET *STET* ERROR FLAG.
06832  M01S00141.1sj50   +++|
06833  M01S00142.1sj50   +++| SEJ7     LDD    BB+1
06834  M01S00143.1sj50   +++|          NJN    SEJ9        IF ERROR FLAG ALREADY SET
06835  M01S00144.1sj50   +++|          LDD    EJ          SAVE JSN FOR *CEFM*
06836  M01S00145.1sj50   +++|          STD    CM+3
06837  M01S00146.1sj50   +++|          LDD    EJ+1
06838  M01S00147.1sj50   +++|          STD    CM+4
06839  M01S00148.1sj50   +++|          LDD    EO          SAVE EJT ORDINAL FOR *CEFM*
06840  M01S00149.1sj50   +++|          STD    CM+2
06841  M01S00150.1sj50   +++|          LDC    STET+4000
06842  M01S00151.1sj50   +++|          STD    CM+1
06843  M01S00152.1sj50   +++|          MONITOR  CEFM
06844  M01S00153.1sj50   +++| SEJ8     LJM    SEJ2        CONTINUE EJT SCAN
06845  M01S00154.1sj50   +++|
06846  M01S00155.1sj50   +++| SEJ9     LDD    EJ          SET FORCED ROLLIN FLAG
06847  M01S00156.1sj50   +++|          STM    SEJD+3
06848  M01S00157.1sj50   +++|          LDD    EJ+1
06849  M01S00158.1sj50   +++|          STM    SEJD+4
06850  M01S00159.1sj50   +++|          LDD    EO
06851  M01S00160.1sj50   +++|          CFI    EJT,,EO     GET EJT ADDRESS
06852  M01S00161.1sj50   +++|          ADC    **
06853  M01S00162.1sj50   +++| SEJC     EQU    *-1
06854  M01S00163.1sj50   +++|          STD    CM+4
06855  M01S00164.1sj50   +++|          SHN    -14
06856  M01S00165.1sj50   +++|          STD    CM+3
06857  M01S00166.1sj50   +++|          LDN    2
06858  M01S00167.1sj50   +++|          STD    CM+1
06859  M01S00168.1sj50   +++|          LDD    MA
06860  M01S00169.1sj50   +++|          CWM    SEJD,CM+1
06861  M01S00170.1sj50   +++|          MONITOR  UTEM
06862  M01S00171.1sj50   +++|          UJN    SEJ8        CONTINUE EJT SCAN
06863  M01S00172.1sj50   +++|
06864  M01S00173.1sj50   +++|
06865  M01S00174.1sj50   +++| SEJD     VFD    6/40+JSNE,6/24D,6/36D,42/0
06866  M01S00175.1sj50   +++|          VFD    6/SCLE,6/1,6/52D,42/1
06867  M01S00176.1sj50   +++|
06868  M01S00177.1sj50   +++|          ERRNG  TJCT-*      OVERFLOW INTO *TJCT*
06869  M01S00178.1sj50   +++|
Line S03802 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
Seq #  *Modification Id* Act 
----------------------------+
06870  M02S03802.ns2134  ---|
Line S03803 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
06871  M02S03803.ns21000 ---|          SPACE  4,10
06872  M01S00125.ns21000 +++| TABLES   SPACE  4,10
Line S00126 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06873  M02S00126.ns2437  ---|          USE    TABLES
Line S00127 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06874  M02S00127.ns2437  ---| TABLES   BSS    0           ORIGIN FOR *3SC* TABLES
Line S03804 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
06875  M02S03804.271l716 ---|*         *3SC* TABLE DEFINITIONS.
06876  M01S00541.271l716 +++|*         *3SB* TABLE DEFINITIONS.
06877  M01S03805.1sj     +++|
06878  M01S03806.1sj     +++|
06879  M01S00013.ns2437  +++| TJCTL    EQU    MXJC*1      LENGTH OF *TJCT* TABLE
Line S00014 Modification History
M01 (Added by) ns2437
M02 (Updated by) ns2437a
Seq #  *Modification Id* Act 
----------------------------+
06880  M02S00014.ns2437a ---| TIOOL    EQU    20*3        LENGTH OF *TIOO* TABLE
06881  M01S00001.ns2437a +++| TIOOL    EQU    20          NUMBER OF *TIOO* TABLE ENTRIES
06882  M01S00015.ns2437  +++| THLDL    EQU    MXHLD*2     LENGTH OF *THLD* TABLE
06883  M01S00016.ns2437  +++|
Line S00017 Modification History
M01 (Added by) ns2437
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
06884  M02S00017.271l716 ---|          LIST   G
06885  M01S00018.ns2437  +++|
Line S00019 Modification History
M01 (Added by) ns2437
M02 (Updated by) ns2437a
Seq #  *Modification Id* Act 
----------------------------+
06886  M02S00019.ns2437a ---| BEGIN    BSSN   TJAM-TJCTL-TIOOL-THLDL  BEGINNING OF TABLES
06887  M01S00002.ns2437a +++| BEGIN    BSSN   TJAM-TJCTL-TIOOL*3-THLDL  BEGINNING OF TABLES
Line S00020 Modification History
M01 (Added by) ns2437
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06888  M02S00020.1sj50   ---| TJCT     SPACE  4,10
Line S03807 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06889  M02S03807.1sj50   ---|**        TJCT - JOB COUNTS.
Line S03808 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06890  M02S03808.1sj50   ---|*         ENTRY = 1 WORD.
Line S03809 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06891  M02S03809.1sj50   ---|*         INDEXED BY SERVICE CLASS.
Line S03810 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06892  M02S03810.1sj50   ---|*
Line S03811 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06893  M02S03811.1sj50   ---|*T        12/ CT
Figure

011 CT


Line S03812 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06894  M03S03812.1sj50   ---|*         CT     NUMBER OF JOBS OF SERVICE CLASS EXECUTING (ASSIGNED
Line S03813 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06895  M03S03813.1sj50   ---|*                TO EJT).
Line S00021 Modification History
M01 (Added by) ns2437
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06896  M02S00021.1sj50   ---|*
Line S00022 Modification History
M01 (Added by) ns2437
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06897  M02S00022.1sj50   ---|*         CT     NUMBER OF EXECUTING JOBS (JOBS ASSIGNED TO EJT)
Line S00023 Modification History
M01 (Added by) ns2437
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06898  M02S00023.1sj50   ---|*                IN SERVICE CLASS.
Line S03814 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06899  M02S03814.1sj50   ---|
Line S03815 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06900  M02S03815.1sj50   ---|
Line S03816 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06901  M03S03816.1sj50   ---| TJCT     EQU    TABLES
Line S03817 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
M03 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06902  M03S03817.1sj50   ---|          SPACE  4,10
Line S00024 Modification History
M01 (Added by) ns2437
M02 (Updated by) 1sj50
Seq #  *Modification Id* Act 
----------------------------+
06903  M02S00024.1sj50   ---| TJCT     BSSN   TJCTL
06904  M01S00025.ns2437  +++| TIOO     SPACE  4,10
06905  M01S03818.1sj     +++|*         TIOO - SCHEDULABLE QFT ENTRIES.
06906  M01S03819.1sj     +++|*         ENTRY = 3 WORDS.
06907  M01S03820.1sj     +++|*
06908  M01S03821.1sj     +++|*T        12/ IO,12/ QP,12/ SC
Figure

01112232429 SC QP IO3035 IO

06909  M01S03822.1sj     +++|*         IO     QFT ORDINAL
06910  M01S03823.1sj     +++|*         QP     QUEUE PRIORITY.
06911  M01S03824.1sj     +++|*         SC     SERVICE CLASS.
06912  M01S03825.1sj     +++|
06913  M01S03826.1sj     +++|
Line S03827 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06914  M02S03827.ns2437  ---| TIOO     EQU    TJCT+MXJC
Line S03828 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06915  M02S03828.ns2437  ---| TIOOL    EQU    20          NUMBER OF *TIOO* ENTRIES
Line S00026 Modification History
M01 (Added by) ns2437
M02 (Updated by) ns2437a
Seq #  *Modification Id* Act 
----------------------------+
06916  M02S00026.ns2437a ---| TIOO     BSSN   TIOOL
06917  M01S00003.ns2437a +++| TIOO     BSSN   TIOOL*3
06918  M01S03829.1sj     +++|          SPACE  4,10
Line S00128 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06919  M02S00128.ns2437  ---|**        THLD - SCHEDULABLE HOST LID-S .
06920  M01S00027.ns2437  +++|**        THLD - SCHEDULABLE HOST LID-S.
06921  M01S00129.ns21000 +++|*         ENTRY = 2 WORDS.
06922  M01S00130.ns21000 +++|*
06923  M01S00131.ns21000 +++|*T        18/ LID, 6/ 0
Figure

05623 0 LID

06924  M01S00132.ns21000 +++|*         LID    MAINFRAME LOGICAL ID.
06925  M01S00133.ns21000 +++|
06926  M01S00134.ns21000 +++|
Line S00135 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06927  M02S00135.ns2437  ---| THLD     EQU    TIOO+3*TIOOL
Line S00136 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
06928  M02S00136.ns2437  ---| THLDL    EQU    MXHLD*2
Proceed to Part 11
cdc/nos2.source/opl.opl871/deck/1sj.010.txt ยท Last modified: by 127.0.0.1