User Tools

Site Tools


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

Deck 1SJ Part 002

101 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01604  M01S00967.1sj     +++|          LDD    AM          INITIALIZE CM ACCUMULATOR
01605  M01S00968.1sj     +++|          STD    T5
01606  M01S00969.1sj     +++|          LDD    AM+1
01607  M01S00970.1sj     +++|          STD    T6
01608  M01S00971.1sj     +++|          LDD    AE          INITIALIZE ECS ACCUMULATOR
01609  M01S00972.1sj     +++|          STD    T7
01610  M01S00973.1sj     +++|
01611  M01S00974.1sj     +++|*         ACCUMULATE CM AND ECS ASSIGNED TO LOWER PRIORITY JOBS.  SET
01612  M01S00975.1sj     +++|*         THE REQUEST ROLLOUT BIT IN THE *TACP* ENTRY OF EACH LOWER
01613  M01S00976.1sj     +++|*         PRIORITY JOB.
01614  M01S00977.1sj     +++|
01615  M01S00978.1sj     +++| CFL1     SOD    TP          DECREMENT *TACP* POINTER
01616  M01S00979.1sj     +++|          LDI    TP
01617  M01S00980.1sj     +++|          ZJN    CFL2        IF END OF *TACP* TABLE REACHED
Line S00981 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01618  M02S00981.271l716 ---|          SHN    6
Line S00982 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01619  M02S00982.271l716 ---|          MJN    CFL1        IF JOB IS ROLLING OUT
Line S00983 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01620  M02S00983.271l716 ---|          SHN    -6          GET CP NUMBER
01621  M01S00984.1sj     +++|          STD    T1
01622  M01S00003.1sj13   +++|          LMD    JC
01623  M01S00004.1sj13   +++|          ZJN    CFL1        IF CP SELECTED FOR FL INCREASE
01624  M01S00985.1sj     +++|          LDD    JP          COMPARE SCHEDULING PRIORITIES
01625  M01S00986.1sj     +++|          SBM    TJPR-1,T1
01626  M01S00987.1sj     +++|          MJN    CFL1        IF SELECTED JOB HAS LOWER PRIORITY
01627  M01S00006.1sj43   +++|*         PSN                (LOCKED IN JOB REQUIRES FL INCREASE)
01628  M01S00007.1sj43   +++| CFLC     EQU    *-1
01629  M01S00988.1sj     +++|          ZJN    CFL1        IF PRIORITIES ARE EQUAL
01630  M01S00989.1sj     +++|*         PSN                (IF SELECTED JOB WANTS FL INCREASE)
01631  M01S00990.1sj     +++| CFLA     EQU    *-1
Line S00006 Modification History
M01 (Added by) 1sj19
M02 (Updated by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01632  M02S00006.1sj19a  ---|          LDM    TJSC-1,T1   CHECK SERVICE CLASS
Line S00007 Modification History
M01 (Added by) 1sj19
M02 (Updated by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01633  M02S00007.1sj19a  ---|          LMD    SP
Line S00008 Modification History
M01 (Added by) 1sj19
M02 (Updated by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01634  M02S00008.1sj19a  ---|          NJN    CFL1        IF DIFFERENT SERVICE CLASSES
01635  M01S00991.1sj     +++|          LDC    2000
01636  M01S00992.1sj     +++|          RAI    TP          SET ROLLOUT FLAG IN *TACP* ENTRY
01637  M01S00255.271l716 +++|          SHN    21-13
01638  M01S00256.271l716 +++|          MJN    CFL1        IF ROLLOUT IN PROGRESS
01639  M01S00993.1sj     +++|          LDM    TJCM-1,T1   ACCUMULATE CM OF ROLLABLE JOB
01640  M01S00994.1sj     +++|          RAD    T6
01641  M01S00995.1sj     +++|          SHN    -14
01642  M01S00996.1sj     +++|          RAD    T5
01643  M01S00997.1sj     +++|          LDM    TJEC-1,T1   ACCUMULATE ECS OF ROLLABLE JOB
01644  M01S00998.1sj     +++|          RAD    T7
01645  M01S00999.1sj     +++|          UJN    CFL1        CONTINUE *TACP* TABLE SCAN
01646  M01S01000.1sj     +++|
01647  M01S01001.1sj     +++| CFL2     LDD    T5
01648  M01S01002.1sj     +++|          SHN    14
01649  M01S01003.1sj     +++|          LMD    T6
01650  M01S01004.1sj     +++|          SBD    JM
01651  M01S01005.1sj     +++|          PJN    CFL4        IF ENOUGH CM CAN BE OBTAINED VIA ROLLOUT
01652  M01S01006.1sj     +++|          LDN    1           INDICATE INSUFFICIENT CM TO *SCJ*
01653  M01S01007.1sj     +++| CFL3     LJM    CFLX        RETURN
01654  M01S01008.1sj     +++|
01655  M01S01009.1sj     +++| CFL4     STD    T6          SAVE EXCESS CM AMOUNT
01656  M01S01010.1sj     +++|          SHN    -14
01657  M01S01011.1sj     +++|          STD    T5
01658  M01S01012.1sj     +++|          LDD    T7
01659  M01S01013.1sj     +++|          SBD    JE
01660  M01S01014.1sj     +++|          PJN    CFL5        IF ENOUGH ECS CAN BE OBTAINED VIA ROLLOUT
01661  M01S01015.1sj     +++|          LDN    2           INDICATE INSUFFICIENT ECS TO *SCJ*
01662  M01S01016.1sj     +++|          UJN    CFL3        RETURN
01663  M01S01017.1sj     +++|
01664  M01S01018.1sj     +++| CFL5     STD    T7          SAVE EXCESS ECS AMOUNT
01665  M01S01019.1sj     +++|          ADD    T5
01666  M01S01020.1sj     +++|          ADD    T6
01667  M01S01021.1sj     +++|          ZJN    CFL7        IF NO EXCESS CM/ECS
01668  M01S01022.1sj     +++|
01669  M01S01023.1sj     +++|*         DISQUALIFY AS MANY JOBS AS POSSIBLE FROM ROLLOUT.
01670  M01S01024.1sj     +++|
01671  M01S01025.1sj     +++|          LDD    TP          INITIALIZE *TACP* TABLE POINTER
01672  M01S01026.1sj     +++|          STD    T4
01673  M01S01027.1sj     +++| CFL6     AOD    T4          INCREMENT *TACP* POINTER
01674  M01S01028.1sj     +++|          LDI    T4
01675  M01S01029.1sj     +++|          NJN    CFL8        IF NOT END OF *TACP* TABLE
Line S01030 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01676  M02S01030.271l716 ---| CFL7     LJM    CFL12       GO ISSUE *ROCM* REQUESTS
01677  M01S00257.271l716 +++| CFL7     LJM    CFL11       ROLLOUT JOBS
01678  M01S01031.1sj     +++|
01679  M01S01032.1sj     +++| CFL8     SHN    21-12
01680  M01S01033.1sj     +++|          PJN    CFL6        IF JOB IS NOT A ROLLOUT CANDIDATE
Line S01034 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01681  M02S01034.271l716 ---|          SHN    12-21       GET CP NUMBER
Line S01035 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01682  M02S01035.271l716 ---|          LPN    37
01683  M01S00258.271l716 +++|          SHN    12-21       GET CP/PCP NUMBER
01684  M01S00259.271l716 +++|          LPC    177
01685  M01S01036.1sj     +++|          STD    T3
01686  M01S01037.1sj     +++|          LDD    T5
01687  M01S01038.1sj     +++|          SHN    14
01688  M01S01039.1sj     +++|          LMD    T6
01689  M01S01040.1sj     +++|          SBM    TJCM-1,T3
Line S01041 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01690  M02S01041.271l716 ---| CFL9     MJN    CFL6        IF JOB-S CM IS TOO BIG TO REMAIN AT CP
Line S01042 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01691  M02S01042.271l716 ---|          STD    CM+1        SAVE CM AMOUNT IF THIS JOB REMAINS AT CP
01692  M01S00260.271l716 +++| CFL9     MJN    CFL6        IF JOB-S CM FL TOO BIG TO REMAIN AT CP/PCP
01693  M01S00261.271l716 +++|          STD    CM+1        SAVE CM AMOUNT
01694  M01S01043.1sj     +++|          SHN    -14
01695  M01S01044.1sj     +++|          STD    CM
01696  M01S01045.1sj     +++|          LDD    T7
01697  M01S01046.1sj     +++|          SBM    TJEC-1,T3
Line S01047 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01698  M02S01047.271l716 ---|          MJN    CFL6        IF JOB-S ECS IS TOO BIG TO REMAIN AT CP
Line S01048 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01699  M02S01048.271l716 ---|          STD    CM+2        SAVE ECS AMOUNT IF THIS JOB REMAINS AT CP
01700  M01S00262.271l716 +++|          MJN    CFL6        IF JOB-S EM FL TOO BIG TO REMAIN AT CP/PCP
01701  M01S00263.271l716 +++|          STD    CM+2        SAVE EM AMOUNT
01702  M01S00001.1sj19a  +++|          LDM    TJSC-1,T3
01703  M01S00002.1sj19a  +++|          LMD    SP
01704  M01S00003.1sj19a  +++|          NJN    CFL10       IF DIFFERENT SERVICE CLASSES
Line S01049 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01705  M02S01049.1sj19   ---|          LDM    TJSC-1,T3
Line S01050 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01706  M02S01050.1sj19   ---|          LMD    SP
Line S01051 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01707  M02S01051.1sj19   ---|          NJN    CFL10       IF DIFFERENT SERVICE CLASSES
01708  M01S01052.1sj     +++|          LDD    CS
01709  M01S01053.1sj     +++|          SHN    14
01710  M01S01054.1sj     +++|          LMD    CS+1
01711  M01S01055.1sj     +++|          SBM    TJCM-1,T3
01712  M01S01056.1sj     +++|          MJN    CFL9        IF MAXIMUM CM FOR SERVICE CLASS EXCEEDED
01713  M01S01057.1sj     +++|          STD    CM+4        SAVE NEW EXCESS CM
01714  M01S01058.1sj     +++|          SHN    -14
01715  M01S01059.1sj     +++|          STD    CM+3
01716  M01S01060.1sj     +++|          LDD    ES
01717  M01S01061.1sj     +++|          SBM    TJEC-1,T3
01718  M01S01062.1sj     +++|          MJN    CFL9        IF MAXIMUM ECS FOR SERVICE CLASS EXCEEDED
01719  M01S01063.1sj     +++|          STD    ES          SAVE NEW EXCESS ECS
01720  M01S01064.1sj     +++|          LDD    CM+3        SAVE NEW EXCESS CM
01721  M01S01065.1sj     +++|          STD    CS
01722  M01S01066.1sj     +++|          LDD    CM+4
01723  M01S01067.1sj     +++|          STD    CS+1
Line S01068 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01724  M02S01068.1sj19   ---| CFL10    LDD    CM          UPDATE REMAINING CM AMOUNT
Line S00009 Modification History
M01 (Added by) 1sj19
M02 (Updated by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01725  M02S00009.1sj19a  ---|          LDD    CM          UPDATE REMAINING CM AMOUNT
01726  M01S00004.1sj19a  +++| CFL10    LDD    CM          UPDATE REMAINING CM AMOUNT
01727  M01S01069.1sj     +++|          STD    T5
01728  M01S01070.1sj     +++|          LDD    CM+1
01729  M01S01071.1sj     +++|          STD    T6
01730  M01S01072.1sj     +++|          LDD    CM+2        UPDATE REMAINING ECS AMOUNT
01731  M01S01073.1sj     +++|          STD    T7
01732  M01S01074.1sj     +++|          LDC    -2000       CLEAR ROLLOUT BIT IN *TACP* ENTRY
01733  M01S01075.1sj     +++|          RAI    T4
01734  M01S01076.1sj     +++|          LJM    CFL6        CONTINUE *TACP* SCAN
01735  M01S01077.1sj     +++|
01736  M01S01078.1sj     +++| CFLB     BSS    0
01737  M01S01079.1sj     +++|          LOC    CFLA
01738  M01S01080.1sj     +++|          ZJN    CFL1        IF PRIORITIES ARE EQUAL
01739  M01S01081.1sj     +++|          LOC    *O
01740  M01S01082.1sj     +++| DDA      SPACE  4,10
01741  M01S01083.1sj     +++|**        DDA - DETERMINE DEVICE ACTIVITY.
01742  M01S01084.1sj     +++|*
01743  M01S01085.1sj     +++|*         BUILD *TDAC* TABLE.
01744  M01S01086.1sj     +++|*
01745  M01S01087.1sj     +++|*         USES   T1 - T5, CM - CM+4.
01746  M01S00042.ns22000 +++|*
01747  M01S00043.ns22000 +++|*         MACROS SFA.
01748  M01S01088.1sj     +++|
01749  M01S01089.1sj     +++|
01750  M01S00264.271l716 +++| DDA2     STM    TDAC+1      CLEAR PCP ACTIVITY
01751  M01S00265.271l716 +++|
01752  M01S01090.1sj     +++| DDA      SUBR               ENTRY/EXIT
01753  M01S01091.1sj     +++|          LDN    ESTP
01754  M01S01092.1sj     +++|          CRD    T1
Line S01093 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01755  M02S01093.ns22000 ---|          LDN    0
01756  M01S00044.ns22000 +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
01757  M01S01094.1sj     +++|          STD    T1
01758  M01S01095.1sj     +++| DDA1     AOD    T1          INCREMENT EST ORDINAL
01759  M01S00045.ns22000 +++|          LMD    T1+3
Line S00046 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01760  M02S00046.271l716 ---|          ZJN    DDAX        IF EST SCAN IS COMPLETE
01761  M01S00266.271l716 +++|          ZJN    DDA2        IF END OF EST SCAN
Line S01096 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01762  M02S01096.ns22000 ---|          ADM    ESTS
01763  M01S00047.ns22000 +++|          SFA    EST,T1
01764  M01S00048.ns22000 +++|          ADK    EQDE
01765  M01S01097.1sj     +++|          CRD    CM
Line S01098 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01766  M02S01098.ns22000 ---|          LMD    T1+2
Line S01099 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01767  M02S01099.ns22000 ---|          ZJN    DDAX        IF EST SCAN IS COMPLETE
01768  M01S01100.1sj     +++|          LDD    CM
01769  M01S01101.1sj     +++|          SHN    21-13
01770  M01S01102.1sj     +++|          PJN    DDA1        IF NOT MASS STORAGE
01771  M01S01103.1sj     +++|          LDD    CM+4        READ MST ENTRY
01772  M01S01104.1sj     +++|          SHN    3
01773  M01S01105.1sj     +++|          ADN    DALL
01774  M01S01106.1sj     +++|          CRD    CM
01775  M01S01107.1sj     +++|          LDD    CM          SAVE DEVICE ACTIVITY IN *TDAC* TABLE
01776  M01S01108.1sj     +++|          STM    TDAC,T1
01777  M01S01109.1sj     +++|          UJN    DDA1        CONTINUE EST SCAN
01778  M01S01110.1sj     +++| EJA      SPACE  4,10
01779  M01S01111.1sj     +++|**        EJA - CALCULATE EJT ENTRY ADDRESS.
01780  M01S01112.1sj     +++|*
01781  M01S01113.1sj     +++|*         ENTRY  (EO) = EJT ORDINAL.
01782  M01S01114.1sj     +++|*
01783  M01S01115.1sj     +++|*         EXIT   (A) = EJT ENTRY ADDRESS.
01784  M01S01116.1sj     +++|*
01785  M01S01117.1sj     +++|*         MACROS CFI.
01786  M01S01118.1sj     +++|
01787  M01S01119.1sj     +++|
01788  M01S01120.1sj     +++| EJA      SUBR               ENTRY/EXIT
01789  M01S01121.1sj     +++|          CFI    EJT,EO      CALCULATE ENTRY OFFSET
01790  M01S01122.1sj     +++|          ADC    **
01791  M01S01123.1sj     +++| EJAA     EQU    *-1         (EJT FWA)
01792  M01S01124.1sj     +++|          UJN    EJAX        RETURN
01793  M01S01125.1sj     +++| INT      SPACE  4,10
01794  M01S01126.1sj     +++|**        INT - INITIALIZE CELLS FOR EJT/CM SCHEDULING.
01795  M01S01127.1sj     +++|*
01796  M01S01128.1sj     +++|*         ENTRY  (SCJC) .NE. 0 IF RECYCLE CALL.
01797  M01S01129.1sj     +++|*
01798  M01S01130.1sj     +++|*         USES   JP, JC, EP, RM - RM+1, RE, TM - TM+4, CM - CM+4.
01799  M01S00049.ns22000 +++|*
01800  M01S00050.ns22000 +++|*         CALLS  SSA.
01801  M01S01131.1sj     +++|
01802  M01S01132.1sj     +++|
01803  M01S00051.ns22000 +++| INT1     RJM    SSA         SET STATISTICAL AREA ADDRESS
01804  M01S00052.ns22000 +++|          CRM    SPST+JS0S*5,T1  READ SCHEDULER STATISTICS
01805  M01S00053.ns22000 +++|
01806  M01S01133.1sj     +++| INT      SUBR               ENTRY/EXIT
01807  M01S01134.1sj     +++|          LDN    0
01808  M01S01135.1sj     +++|          STD    JP          PRIORITY OF SELECTED JOB
01809  M01S01136.1sj     +++|          STD    JC          CP NUMBER OF JOB REQUESTING FL INCREASE
01810  M01S01137.1sj     +++|          STD    EP          EJT ORDINAL OF SELECTED JOB
01811  M01S01138.1sj     +++|          STD    RM          ROLLING CM ACCUMULATOR
01812  M01S01139.1sj     +++|          STD    RM+1
01813  M01S01140.1sj     +++|          STD    RE          ROLLING ECS ACCUMULATOR
01814  M01S01141.1sj     +++|          LDC    RTCL        READ REAL-TIME CLOCK
01815  M01S01142.1sj     +++|          CRD    TM
01816  M01S01143.1sj     +++|          LDM    SCJC
Line S01144 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01817  M02S01144.ns22000 ---|          ZJN    INTX        IF NOT RECYCLE
01818  M01S00054.ns22000 +++|          ZJN    INT1        IF NOT RECYCLE
01819  M01S01145.1sj     +++|
01820  M01S01146.1sj     +++|*         RESET CELLS AND INSTRUCTIONS FOR RECYCLE.
01821  M01S01147.1sj     +++|
01822  M01S01148.1sj     +++|          LDN    0
01823  M01S01149.1sj     +++|          STM    SCJC
01824  M01S00055.ns22000 +++|          STM    USDA
01825  M01S00056.ns22000 +++|          STM    USDB
01826  M01S00057.ns22000 +++|          STM    USDC
01827  M01S01150.1sj     +++|          STM    SCPA
01828  M01S01151.1sj     +++|          STM    SCPB
Line S00001 Modification History
M01 (Added by) 1sj8
M02 (Updated by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
01829  M02S00001.1sj14   ---|          STM    SFJG
01830  M01S01152.1sj     +++|          STM    SFJK
01831  M01S01153.1sj     +++|          STM    SFJL
01832  M01S00001.1sj14   +++|          LCN    0
01833  M01S00002.1sj14   +++|          STM    SFJG
01834  M01S00002.1sj8    +++|          STM    SFJM
Line S01154 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj7
Seq #  *Modification Id* Act 
----------------------------+
01835  M02S01154.1sj7    ---|          LDC    TEPB+2*MXJC
Line S01155 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj7
Seq #  *Modification Id* Act 
----------------------------+
01836  M02S01155.1sj7    ---|          STM    ASJA
01837  M01S01156.1sj     +++|          LDC    LDDI+EP
01838  M01S01157.1sj     +++|          STM    SFJB
01839  M01S01158.1sj     +++|          LDC    SFJ29
01840  M01S01159.1sj     +++|          STM    SFJH
01841  M01S01160.1sj     +++|          LDC    LDDI+SC
01842  M01S01161.1sj     +++|          STM    SFJI
01843  M01S01162.1sj     +++|          LDM    CFLB
01844  M01S01163.1sj     +++|          STM    CFLA
01845  M01S01164.1sj     +++|          LDM    SFJQ
01846  M01S01165.1sj     +++|          STM    SFJC
Line S01166 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
01847  M02S01166.ns2153  ---|          LDC    SODI+EO
01848  M01S00007.ns2153  +++|          LDC    SOMI
01849  M01S01167.1sj     +++|          STM    SFJR
01850  M01S01168.1sj     +++|          LJM    INTX        RETURN
Line S01169 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01851  M02S01169.271l716 ---| IRL      SPACE  4,10
Line S01170 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01852  M02S01170.271l716 ---|**        IRL - INITIALIZE RECALL AREA LINKS.
Line S01171 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01853  M02S01171.271l716 ---|*
Line S01172 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01854  M02S01172.271l716 ---|*         USES   CM - CM+4.
Line S01173 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01855  M02S01173.271l716 ---|*
Line S01174 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01856  M02S01174.271l716 ---|*         MACROS MONITOR.
Line S01175 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01857  M02S01175.271l716 ---|
Line S01176 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01858  M02S01176.271l716 ---|
Line S01177 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01859  M02S01177.271l716 ---| IRL      SUBR               ENTRY/EXIT
Line S01178 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01860  M02S01178.271l716 ---|          LDN    ZERL
Line S01179 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01861  M02S01179.271l716 ---|          CRD    CM
Line S01180 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01862  M02S01180.271l716 ---|          AOD    CM+4
Line S01181 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01863  M02S01181.271l716 ---| IRL1     AOD    CM+4
Line S01182 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01864  M02S01182.271l716 ---|          ADC    RCCW-2
Line S01183 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01865  M02S01183.271l716 ---|          ADD    CP
Line S01184 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01866  M02S01184.271l716 ---|          CWD    CM
Line S01185 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01867  M02S01185.271l716 ---|          LDD    CM+4
Line S01186 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01868  M02S01186.271l716 ---|          LMN    LREC
Line S01187 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01869  M02S01187.271l716 ---|          NJN    IRL1        IF INCOMPLETE
Line S01188 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01870  M02S01188.271l716 ---|          LDD    CP          SET CPA ADDRESS FOR *UTEM*
Line S01189 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01871  M02S01189.271l716 ---|          STD    CM+4
Line S01190 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01872  M02S01190.271l716 ---|          LDN    IRLAL       SET PARAMETER COUNT
Line S01191 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01873  M02S01191.271l716 ---|          STD    CM+1
Line S01192 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01874  M02S01192.271l716 ---|          LDD    MA
Line S01193 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01875  M02S01193.271l716 ---|          CWM    IRLA,ON
Line S01194 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01876  M02S01194.271l716 ---|          MONITOR  UTEM
Line S01195 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01877  M02S01195.271l716 ---|          UJN    IRLX        RETURN
Line S01196 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01878  M02S01196.271l716 ---|
Line S01197 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01879  M02S01197.271l716 ---|
Line S01198 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01880  M02S01198.271l716 ---|*         *UTEM* PARAMETER BLOCK.
Line S01199 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01881  M02S01199.271l716 ---|
Line S01200 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01882  M02S01200.271l716 ---| IRLA     VFD    1/0,5/STSW,6/12D  RECALL STACK POINTER
Line S01201 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01883  M02S01201.271l716 ---|          VFD    6/0,6/0
Line S01202 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01884  M02S01202.271l716 ---|          CON    0,0,1
Line S01203 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01885  M02S01203.271l716 ---|
Line S01204 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01886  M02S01204.271l716 ---| IRLAL    EQU    */5-IRLA/5
01887  M01S01205.1sj     +++| IRR      SPACE  4,15
01888  M01S01206.1sj     +++|**        IRR - ISSUE ROLLOUT REQUEST.
01889  M01S01207.1sj     +++|*
Line S01208 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01890  M02S01208.271l716 ---|*         ENTRY  (A) = 1/  0,11/  OP,6/  CP.
01891  M01S00267.271l716 +++|*         ENTRY  (A) = 6/  OP,12/  CP.
01892  M01S01209.1sj     +++|*                      OP    *ROCM* OPTIONS.
Line S01210 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01893  M02S01210.271l716 ---|*                      CP    CONTROL POINT TO ROLLOUT.
01894  M01S00268.271l716 +++|*                      CP    CP/PCP TO ROLL.
01895  M01S01211.1sj     +++|*
01896  M01S01212.1sj     +++|*         EXIT   (A) = 0 IF ROLLOUT REQUEST WAS ACCEPTED.
01897  M01S00058.ns22000 +++|*                JOBS PREEMPTED STATISTIC UPDATED.
01898  M01S01213.1sj     +++|*
01899  M01S01214.1sj     +++|*         USES   CM - CM+4.
01900  M01S01215.1sj     +++|*
01901  M01S01216.1sj     +++|*         MACROS MONITOR.
01902  M01S01217.1sj     +++|
01903  M01S01218.1sj     +++|
01904  M01S01219.1sj     +++| IRR      SUBR               ENTRY/EXIT
Line S01220 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01905  M02S01220.271l716 ---|          SHN    14
Line S01221 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01906  M02S01221.271l716 ---|          LMC    4000        SET ALTERNATE CP OPTION
Line S01222 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01907  M02S01222.271l716 ---|          STD    CM+1
Line S01223 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01908  M02S01223.271l716 ---|          SHN    -14
Line S01224 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01909  M02S01224.271l716 ---|          STD    CM+2
01910  M01S00269.271l716 +++|          STD    CM+2        STORE CP/PCP NUMBER
01911  M01S00270.271l716 +++|          SHN    -14
01912  M01S00271.271l716 +++|          LMC    4000        SET ALTERNATE CP/PCP OPTION
01913  M01S00272.271l716 +++|          STD    CM+1
01914  M01S00059.ns22000 +++|          AOM    SPST+JS1S*5+2  INCREMENT JOBS PREEMPTED
01915  M01S00060.ns22000 +++|          SHN    -14
01916  M01S00061.ns22000 +++|          RAM    SPST+JS1S*5+1
Line S01225 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01917  M02S01225.271l716 ---| IRR1     MONITOR  ROCM      REQUEST ROLLOUT
01918  M01S00273.271l716 +++|          MONITOR  ROCM      REQUEST ROLLOUT
01919  M01S01226.1sj     +++|          LDD    CM+1
01920  M01S01227.1sj     +++|          UJN    IRRX        RETURN
01921  M01S01228.1sj     +++| IUT      SPACE  4,20
01922  M01S01229.1sj     +++|**        IUT - ISSUE *UTEM* MONITOR FUNCTION.
01923  M01S01230.1sj     +++|*
01924  M01S01231.1sj     +++|*         ENTRY  (A) = 1/ F,1/ I,1/ 0,3/ C,12/ P
01925  M01S01232.1sj     +++|*                      F = 0 IF EJT ENTRY UPDATE.
01926  M01S01233.1sj     +++|*                        = 1 IF QFT ENTRY UPDATE.
01927  M01S01234.1sj     +++|*                      I = 0 IF INTERLOCK SHOULD BE SET.
01928  M01S01235.1sj     +++|*                        = 1 IF INTERLOCK SHOULD BE CLEARED.
01929  M01S01236.1sj     +++|*                      C = NUMBER OF *UTEM* PARAMETER WORDS.
01930  M01S01237.1sj     +++|*                        = 0 IF INTERLOCK REQUEST.
01931  M01S01238.1sj     +++|*                      P = PARAMETER LIST ADDRESS.
01932  M01S01239.1sj     +++|*
01933  M01S01240.1sj     +++|*         EXIT   (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL.
01934  M01S01241.1sj     +++|*                    .NE. 0 IF *UTEM* VERIFICATION FAILED.
01935  M01S01242.1sj     +++|*
01936  M01S01243.1sj     +++|*         USES   CM - CM+4.
01937  M01S01244.1sj     +++|*
01938  M01S01245.1sj     +++|*         CALLS  EJA, IOA.
01939  M01S01246.1sj     +++|*
01940  M01S01247.1sj     +++|*         MACROS MONITOR.
01941  M01S01248.1sj     +++|
01942  M01S01249.1sj     +++|
01943  M01S01250.1sj     +++| IUT      SUBR               ENTRY/EXIT
01944  M01S01251.1sj     +++|          STM    IUTB        PARAMETER LIST ADDRESS
01945  M01S01252.1sj     +++|          LPC    -7777
01946  M01S01253.1sj     +++|          SHN    1
01947  M01S01254.1sj     +++|          STD    CM          TABLE INDICATOR
01948  M01S01255.1sj     +++|          SCN    1           SAVE INTERLOCK FLAG
01949  M01S01256.1sj     +++|          SHN    1
01950  M01S01257.1sj     +++|          STD    CM+2
01951  M01S01258.1sj     +++|          SHN    -14-2
01952  M01S01259.1sj     +++|          STD    CM+1        NUMBER OF PARAMETER WORDS
01953  M01S01260.1sj     +++|          LDM    IUTC,CM     USE TABLE FLAG TO SET SUBROUTINE ADDRESS
01954  M01S01261.1sj     +++|          STM    IUTA
01955  M01S01262.1sj     +++|          RJM    **          CALCULATE TABLE ADDRESS
01956  M01S01263.1sj     +++| IUTA     EQU    *-1
01957  M01S01264.1sj     +++|          STD    CM+4
01958  M01S01265.1sj     +++|          SHN    -14
01959  M01S01266.1sj     +++|          STD    CM+3
01960  M01S01267.1sj     +++|          LDD    CM+1
01961  M01S01268.1sj     +++|          ZJN    IUT1        IF NO PARAMETER WORDS
01962  M01S01269.1sj     +++|          LDD    MA          WRITE PARAMETERS TO MESSAGE BUFFER
01963  M01S01270.1sj     +++|          CWM    **,CM+1
01964  M01S01271.1sj     +++| IUTB     EQU    *-1
01965  M01S01272.1sj     +++| IUT1     LDD    CM+2        SET/CLEAR INTERLOCK FLAG
01966  M01S01273.1sj     +++|          SHN    5
01967  M01S01274.1sj     +++|          RAD    CM+1
01968  M01S01275.1sj     +++|          LDN    0
01969  M01S01276.1sj     +++|          STD    CM+2
01970  M01S01277.1sj     +++|          MONITOR  UTEM
01971  M01S01278.1sj     +++|          LDD    CM+1
01972  M01S01279.1sj     +++|          LJM    IUTX        RETURN
01973  M01S01280.1sj     +++|
01974  M01S01281.1sj     +++| IUTC     CON    EJA         CALCULATE EJT ENTRY ADDRESS
Line S01282 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01975  M02S01282.271l716 ---|          CON    /3SC/IOA    CALCULATE QFT ENTRY ADDRESS
01976  M01S00274.271l716 +++|          CON    /3SB/IOA    CALCULATE QFT ENTRY ADDRESS
01977  M01S00275.271l716 +++| RST      SPACE  4,15
01978  M01S00276.271l716 +++|**        RST - REQUEST STORAGE.
01979  M01S00277.271l716 +++|*
01980  M01S00278.271l716 +++|*         ENTRY  (A) = 6/ T,12/ FL.
01981  M01S00279.271l716 +++|*                      T  = MEMORY TYPE.  0 IF CM, 1 IF EM.
01982  M01S00280.271l716 +++|*                      FL = STORAGE AMOUNT.
01983  M01S00281.271l716 +++|*                (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
01984  M01S00282.271l716 +++|*                (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
01985  M01S00283.271l716 +++|*
01986  M01S00284.271l716 +++|*         EXIT   (A) = 0 IF REQUEST ACCEPTED, ELSE NON-ZERO.
01987  M01S00285.271l716 +++|*
01988  M01S00286.271l716 +++|*         USES   CM - CM+4.
01989  M01S00287.271l716 +++|*
01990  M01S00288.271l716 +++|*         MACROS MONITOR.
01991  M01S00289.271l716 +++|
01992  M01S00290.271l716 +++|
01993  M01S00291.271l716 +++| RST      SUBR               ENTRY/EXIT
01994  M01S00292.271l716 +++|          STD    CM+1        SET FL
01995  M01S00293.271l716 +++|          SHN    -14         SET REQUEST TYPE
01996  M01S00294.271l716 +++|          STD    CM+2
01997  M01S00295.271l716 +++|          LDD    EJ+4
01998  M01S00296.271l716 +++|          SHN    -1
01999  M01S00297.271l716 +++|          LPN    37
02000  M01S00298.271l716 +++|          LMK    PCJS
02001  M01S00299.271l716 +++|          NJN    RST1        IF JOB NOT AT PCP
Line S00300 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02002  M02S00300.273l780 ---|          LDC    5000        SET PCP FLAG, PSEUDO-ROLLIN FLAG
02003  M01S00042.273l780 +++|          LDC    4000        SET PSEUDO-ROLLIN FLAG
02004  M01S00301.271l716 +++|          RAD    CM+2
02005  M01S00302.271l716 +++|          LDD    AA+1        STORE PCP NUMBER IN *RSTM* REQUEST
02006  M01S00303.271l716 +++|          STD    CM+3
02007  M01S00304.271l716 +++| RST1     MONITOR  RSTM      REQUEST STORAGE
02008  M01S00305.271l716 +++|          LDD    CM+1        RETURN STATUS IN (A)
02009  M01S00306.271l716 +++|          UJN    RSTX        RETURN
02010  M01S01283.1sj     +++| SCP      SPACE  4,25
02011  M01S01284.1sj     +++|**        SCP - SELECT CONTROL POINT.
02012  M01S01285.1sj     +++|*
Line S01286 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02013  M02S01286.271l716 ---|*         SELECT THE BEST CONTROL POINT FOR THE JOB BEING SCHEDULED.
Line S01287 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02014  M02S01287.271l716 ---|*         THE MOST DESIRABLE CP IS ONE PROVIDING AN EXACT FIT OF THE
Line S01288 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02015  M02S01288.271l716 ---|*         JOB-S REQUIRED CM. THE SECOND BEST CP IS ONE PROVIDING THE
Line S01289 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02016  M02S01289.271l716 ---|*         SMALLEST AMOUNT OF CM LARGE ENOUGH TO ACCOMMODATE THE JOB-S
Line S01290 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02017  M02S01290.271l716 ---|*         CM. THE THIRD BEST CP IS THE ONE WITH THE MOST CM ASSIGNED.
Line S01291 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02018  M02S01291.271l716 ---|*
Line S01292 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj16
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02019  M03S01292.271l716 ---|*         ENTRY  (JC) = 0.
Line S01293 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj16
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02020  M03S01293.271l716 ---|*                (NC) = NUMBER OF CONTROL POINTS.
Line S00002 Modification History
M01 (Added by) 1sj16
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02021  M02S00002.271l716 ---|*         ENTRY  (T1) = INITIAL SEARCH INDEX.
Line S00003 Modification History
M01 (Added by) 1sj16
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02022  M02S00003.271l716 ---|*                (JC) = 0.
Line S00004 Modification History
M01 (Added by) 1sj16
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02023  M02S00004.271l716 ---|*                (NC) = LAST CONTROL POINT TO PROCESS.
Line S01294 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02024  M02S01294.271l716 ---|*                (JM) = CM FL REQUIRED BY SELECTED JOB.
Line S01295 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02025  M02S01295.271l716 ---|*                (TE) = LWA OF *TACP* TABLE.
02026  M01S00307.271l716 +++|*         ENTRY  (JC) = 0.
02027  M01S01296.1sj     +++|*                (JP) = SCHEDULING PRIORITY OF SELECTED JOB.
02028  M01S00308.271l716 +++|*                (TE) = LWA OF *TACP* TABLE.
02029  M01S01297.1sj     +++|*
Line S01298 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02030  M02S01298.271l716 ---|*         EXIT   (JC) = CONTROL POINT NUMBER TO WHICH JOB SHOULD BE
02031  M01S00309.271l716 +++|*         EXIT   (A) = (JC) = CP NUMBER IF ONE IS AVAILABLE.
02032  M01S00310.271l716 +++|*                           = 0 IF NO CP IS AVAILABLE.
Line S01299 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02033  M02S01299.271l716 ---|*                       SCHEDULED.
Line S01300 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02034  M02S01300.271l716 ---|*                     = 0 IF ALL CONTROL POINTS ARE OCCUPIED
02035  M01S00311.271l716 +++|*                    .LT. 0 IF PCP JOB WAS SELECTED BUT ONLY FIRST OR
02036  M01S00312.271l716 +++|*                           LAST CP IS AVAILABLE.
02037  M01S01301.1sj     +++|*
Line S01302 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02038  M02S01302.271l716 ---|*         USES   T1 - T6, CM - CM+4, AA - AA+4.
02039  M01S00313.271l716 +++|*         USES   AE, AM - AM+1, T0 - T2.
02040  M01S01303.1sj     +++|*
Line S01304 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02041  M02S01304.271l716 ---|*         CALLS  IRR.
02042  M01S00314.271l716 +++|*         CALLS  CCP, IRR.
02043  M01S01305.1sj     +++|
02044  M01S01306.1sj     +++|
Line S01307 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02045  M02S01307.271l716 ---|*         IF NO ROLLOUTS ARE IN PROGRESS, REQUEST ROLLOUT OF THE LOWEST
Line S01308 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02046  M02S01308.271l716 ---|*         PRIORITY JOB WHOSE PRIORITY IS LOWER THAN THE SELECTED JOB-S.
Line S01309 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02047  M02S01309.271l716 ---|
Line S01310 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02048  M02S01310.271l716 ---| SCP9     LDC    **
Line S01311 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02049  M02S01311.271l716 ---| SCPB     EQU    *-1         (ROLLOUT IN PROGRESS FLAG)
Line S01312 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02050  M02S01312.271l716 ---|          NJN    SCPX        IF ROLLOUT IN PROGRESS
Line S01313 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02051  M02S01313.271l716 ---|          LDD    TE
Line S01314 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02052  M02S01314.271l716 ---|          SBN    1
Line S01315 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02053  M02S01315.271l716 ---|          STD    T1
Line S01316 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02054  M02S01316.271l716 ---|          LDI    T1
Line S01317 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02055  M02S01317.271l716 ---|          ZJN    SCPX        IF *TACP* TABLE IS EMPTY
Line S01318 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02056  M02S01318.271l716 ---|          STD    CM+2
Line S01319 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02057  M02S01319.271l716 ---|          LDM    TJPR-1,CM+2
Line S01320 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02058  M02S01320.271l716 ---|          SBD    JP
Line S01321 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02059  M02S01321.271l716 ---|          PJN    SCPX        IF LOWEST PRIORITY .GE. SELECTED JOB-S
Line S01322 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02060  M02S01322.271l716 ---|          LDD    CM+2
Line S01323 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02061  M02S01323.271l716 ---|          RJM    IRR         ISSUE ROLLOUT REQUEST
Line S01324 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02062  M02S01324.271l716 ---|
Line S01325 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02063  M02S01325.271l716 ---| SCP      SUBR               ENTRY/EXIT
Line S01326 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02064  M02S01326.271l716 ---|          LDN    0
Line S01327 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj16
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02065  M03S01327.271l716 ---|          STD    T1          INITIALIZE CURRENT CP NUMBER
Line S01328 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02066  M02S01328.271l716 ---|          STD    T3          INITIALIZE PREVIOUS BLOCK SIZE
Line S01329 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02067  M02S01329.271l716 ---|          STD    T4
Line S01330 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02068  M02S01330.271l716 ---|          LDC    **
Line S01331 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02069  M02S01331.271l716 ---| SCPA     EQU    *-1         (CONTROL POINT AVAILABLE FLAG)
Line S01332 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02070  M02S01332.271l716 ---|          ZJN    SCP9        IF NO CONTROL POINT IS AVAILABLE
Line S01333 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02071  M02S01333.271l716 ---|          LDN    CMRL
Line S01334 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02072  M02S01334.271l716 ---|          CRD    AA
Line S01335 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02073  M02S01335.271l716 ---| SCP1     LDD    AA+2        SAVE RA+FL OF PREVIOUS OCCUPIED CP
Line S01336 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02074  M02S01336.271l716 ---|          SHN    14
Line S01337 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02075  M02S01337.271l716 ---|          LMD    AA+3
Line S01338 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02076  M02S01338.271l716 ---|          ADD    AA+4
Line S01339 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02077  M02S01339.271l716 ---|          STD    T6
Line S01340 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02078  M02S01340.271l716 ---|          SHN    -14
Line S01341 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02079  M02S01341.271l716 ---|          STD    T5
Line S01342 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02080  M02S01342.271l716 ---|          AOD    T1          INCREMENT CONTROL POINT NUMBER
Line S01343 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02081  M02S01343.271l716 ---|          SBD    NC
Line S01344 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02082  M02S01344.271l716 ---|          PJN    SCPX        IF ALL CONTROL POINTS HAVE BEEN CHECKED
Line S01345 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02083  M02S01345.271l716 ---|          LDD    T1
Line S01346 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02084  M02S01346.271l716 ---|          SHN    7
Line S01347 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02085  M02S01347.271l716 ---|          ADN    FLSW
Line S01348 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02086  M02S01348.271l716 ---|          CRD    AA
Line S01349 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02087  M02S01349.271l716 ---|          ADN    TFSW-FLSW
Line S01350 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02088  M02S01350.271l716 ---|          CRD    CM
Line S01351 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02089  M02S01351.271l716 ---|          LDD    CM
Line S01352 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02090  M02S01352.271l716 ---|          NJN    SCP1        IF CONTROL POINT IS OCCUPIED
Line S01353 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02091  M02S01353.271l716 ---|
Line S01354 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02092  M02S01354.271l716 ---|*         THE START OF AN EMPTY BLOCK HAS BEEN FOUND.
Line S01355 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02093  M02S01355.271l716 ---|
Line S01356 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02094  M02S01356.271l716 ---|          LDD    T1          SAVE THIS CP NUMBER AS 1ST OF EMPTY BLOCK
Line S01357 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02095  M02S01357.271l716 ---|          STD    T2
Line S01358 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02096  M02S01358.271l716 ---|
Line S01359 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02097  M02S01359.271l716 ---|*         SEARCH FOR END OF THIS EMPTY BLOCK (NEXT OCCUPIED CP).
Line S01360 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02098  M02S01360.271l716 ---|
Line S01361 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02099  M02S01361.271l716 ---| SCP2     AOD    T1          INCREMENT CONTROL POINT NUMBER
Line S01362 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02100  M02S01362.271l716 ---|          LMD    NC
Line S01363 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02101  M02S01363.271l716 ---|          ZJN    SCP3        IF LAST CONTROL POINT
Line S01364 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02102  M02S01364.271l716 ---|          LDD    T1
Line S01365 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02103  M02S01365.271l716 ---|          SHN    7
Line S01366 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02104  M02S01366.271l716 ---|          ADN    FLSW
Line S01367 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02105  M02S01367.271l716 ---|          CRD    AA
Line S01368 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02106  M02S01368.271l716 ---|          ADN    TFSW-FLSW
Line S01369 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02107  M02S01369.271l716 ---|          CRD    CM
Line S01370 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02108  M02S01370.271l716 ---|          LDD    CM
Line S01371 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02109  M02S01371.271l716 ---|          ZJN    SCP2        IF UNOCCUPIED CONTROL POINT
Line S01372 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02110  M02S01372.271l716 ---|          UJN    SCP4        CALCULATE EMPTY BLOCK SIZE
Line S01373 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02111  M02S01373.271l716 ---|
Line S01374 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02112  M02S01374.271l716 ---|*         THE END OF THE EMPTY BLOCK HAS BEEN FOUND.
Line S01375 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02113  M02S01375.271l716 ---|
Line S01376 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02114  M03S01376.271l716 ---| SCP3     LDC    SABL        READ MACHINE FL WORD
Line S00005 Modification History
M01 (Added by) ns21000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02115  M02S00005.271l716 ---| SCP3     LDK    MABL        READ MACHINE FL
Line S01377 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02116  M02S01377.271l716 ---|          CRD    AA
Line S01378 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02117  M02S01378.271l716 ---|          LDD    AA+2
Line S01379 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02118  M02S01379.271l716 ---|          STD    AA+3
Line S01380 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02119  M02S01380.271l716 ---|          LDD    AA+1
Line S01381 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02120  M02S01381.271l716 ---|          STD    AA+2
Line S01382 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02121  M02S01382.271l716 ---|          LDN    0
Line S01383 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02122  M02S01383.271l716 ---|          STD    AA
Line S01384 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02123  M02S01384.271l716 ---| SCP4     LDD    AA+2        CALCULATE BLOCK SIZE
Line S01385 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02124  M02S01385.271l716 ---|          SBD    T5
Line S01386 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02125  M02S01386.271l716 ---|          SHN    14
Line S01387 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02126  M02S01387.271l716 ---|          LMD    AA+3
Line S01388 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02127  M02S01388.271l716 ---|          SBD    T6
Line S01389 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02128  M02S01389.271l716 ---|          SBD    AA
Line S01390 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02129  M02S01390.271l716 ---|          STD    T6
Line S01391 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02130  M02S01391.271l716 ---|          SHN    -14
Line S01392 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02131  M02S01392.271l716 ---|          STD    T5
Line S01393 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02132  M02S01393.271l716 ---|          SBD    T3
Line S01394 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02133  M02S01394.271l716 ---|          NJN    SCP5        IF NEW .NE. PREVIOUS BLOCK SIZE
Line S01395 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02134  M02S01395.271l716 ---|          LDD    T6
Line S01396 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02135  M02S01396.271l716 ---|          SBD    T4
Line S01397 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02136  M02S01397.271l716 ---| SCP5     MJN    SCP7        IF NEW .LT. PREVIOUS BLOCK SIZE
Line S01398 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02137  M02S01398.271l716 ---|          LDD    T3
Line S01399 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02138  M02S01399.271l716 ---|          SHN    14
Line S01400 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02139  M02S01400.271l716 ---|          LMD    T4
Line S01401 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02140  M02S01401.271l716 ---|          ZJN    SCP8        IF NO ADEQUATE BLOCK HAS BEEN FOUND YET
Line S01402 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02141  M02S01402.271l716 ---|          SBD    JM
Line S01403 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02142  M02S01403.271l716 ---|          MJN    SCP8        IF OLD BLOCK IS TOO SMALL
Line S01404 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02143  M02S01404.271l716 ---| SCP6     LJM    SCP1        CONTINUE BLOCK SELECTION PROCESS
Line S01405 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02144  M02S01405.271l716 ---|
Line S01406 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02145  M02S01406.271l716 ---| SCP7     LDD    T5
Line S01407 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01407.271l716 ---|          SHN    14
Line S01408 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02147  M02S01408.271l716 ---|          LMD    T6
Line S01409 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02148  M02S01409.271l716 ---|          SBD    JM
Line S01410 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02149  M02S01410.271l716 ---|          MJN    SCP6        IF NEW BLOCK SIZE .LT. REQUIRED AMOUNT
Line S01411 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02150  M02S01411.271l716 ---| SCP8     LDD    T2          MAKE THIS BLOCK CURRENT BEST
Line S01412 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02151  M02S01412.271l716 ---|          STD    JC
Line S01413 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02152  M02S01413.271l716 ---|          LDD    T6
Line S01414 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02153  M02S01414.271l716 ---|          STD    T4
Line S01415 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02154  M02S01415.271l716 ---|          LDD    T5
Line S01416 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02155  M02S01416.271l716 ---|          STD    T3
Line S01417 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02156  M02S01417.271l716 ---|          SHN    14
Line S01418 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02157  M02S01418.271l716 ---|          LMD    T4
Line S01419 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02158  M02S01419.271l716 ---|          SBD    JM
Line S01420 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02159  M02S01420.271l716 ---|          NJN    SCP6        IF NOT EXACT FIT
Line S01421 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02160  M02S01421.271l716 ---|          LJM    SCPX        RETURN
02161  M01S00315.271l716 +++| SCP8     LDN    0           SET EXIT CONDITION = NO CP AVAILABLE
02162  M01S00316.271l716 +++| SCP9     STD    JC          SET CP NUMBER
02163  M01S00317.271l716 +++|
02164  M01S00318.271l716 +++| SCP      SUBR               ENTRY/EXIT
02165  M01S00319.271l716 +++|          LDM    ASJA
02166  M01S00320.271l716 +++|          LPN    76
02167  M01S00321.271l716 +++|          LMK    PCJS*2
02168  M01S00322.271l716 +++|          STD    T0
02169  M01S00323.271l716 +++|          NJN    SCP2        IF SELECTED JOB NOT AT PCP
02170  M01S00324.271l716 +++|          LDM    SCPA
02171  M01S00325.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02172  M01S00326.271l716 +++|          NJN    SCP1        IF FREE CP NEITHER FIRST NOR LAST
02173  M01S00327.271l716 +++|          STM    SCPA        CLEAR FREE CP NUMBER
02174  M01S00328.271l716 +++|          AOM    SCPC
02175  M01S00329.271l716 +++| SCP1     LDM    SCPB
02176  M01S00330.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02177  M01S00331.271l716 +++|          NJN    SCP2        IF ROLLING CP NEITHER FIRST NOR LAST
02178  M01S00332.271l716 +++|          STM    SCPB        CLEAR ROLLING CP NUMBER
02179  M01S00333.271l716 +++|          AOM    SCPC
02180  M01S00334.271l716 +++| SCP2     LDC    **          (NUMBER OF AVAILABLE CP)
02181  M01S00335.271l716 +++| SCPA     EQU    *-1
02182  M01S00336.271l716 +++|          NJN    SCP9        IF THERE IS AN AVAILABLE CONTROL POINT
02183  M01S00337.271l716 +++|          LDC    **          (NUMBER OF ROLLING CP)
02184  M01S00338.271l716 +++| SCPB     EQU    *-1
02185  M01S00339.271l716 +++|          NJP    SCP8        IF CP JOB IS ALREADY BEING ROLLED
02186  M01S00340.271l716 +++|          LDD    TE          SET *TACP* POINTER
02187  M01S00341.271l716 +++|          STD    T1
02188  M01S00342.271l716 +++| SCP3     SOD    T1          DECREMENT *TACP* INDEX
02189  M01S00343.271l716 +++|          LDI    T1
02190  M01S00344.271l716 +++|          NJN    SCP3.3      IF NOT END OF SEARCH
02191  M01S00345.271l716 +++| SCP3.1   LDN    0
02192  M01S00346.271l716 +++|*         LDN    1 OR 2      PCP JOB AND UNUSABLE CP FREE/ROLLING
02193  M01S00347.271l716 +++| SCPC     EQU    *-1
02194  M01S00348.271l716 +++|          ZJN    SCP3.2      IF NO NEED TO BLOCK PCP JOB SCHEDULING
02195  M01S00349.271l716 +++|          AOM    SFJY        INHIBIT PCP JOB SCHEDULING
02196  M01S00350.271l716 +++|          LCN    0
02197  M01S00351.271l716 +++| SCP3.2   UJP    SCPX        RETURN
02198  M01S00352.271l716 +++|
02199  M01S00353.271l716 +++| SCP3.3   STD    T2
02200  M01S00354.271l716 +++|          SBD    NC
02201  M01S00355.271l716 +++|          PJN    SCP3        IF PCP JOB
02202  M01S00356.271l716 +++|          LDM    TJPR-1,T2
02203  M01S00357.271l716 +++|          SBD    JP
02204  M01S00358.271l716 +++|          PJN    SCP3.1      IF LOWEST PRIORITY .GE. SELECTED JOB
02205  M01S00359.271l716 +++|          LDD    T2
02206  M01S00360.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02207  M01S00361.271l716 +++|          NJN    SCP4        IF NEITHER FIRST NOR LAST CP
02208  M01S00362.271l716 +++|          LDD    T0
02209  M01S00363.271l716 +++|          ZJN    SCP3        IF SELECTED JOB AT PCP
02210  M01S00364.271l716 +++| SCP4     LDC    2000        CAUSE *CFL* TO IGNORE THIS CP
02211  M01S00365.271l716 +++|          RAI    T1
02212  M01S00366.271l716 +++|          LDM    TJCM-1,T2   ACCUMULATE ROLLING CM FL
02213  M01S00367.271l716 +++|          RAD    AM+1
02214  M01S00368.271l716 +++|          SHN    -14
02215  M01S00369.271l716 +++|          RAD    AM
02216  M01S00370.271l716 +++|          LDM    TJEC-1,T2   ACCUMULATE ROLLING EM FL
02217  M01S00371.271l716 +++|          RAD    AE
02218  M01S00372.271l716 +++|          LDD    T2
02219  M01S00373.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02220  M01S00374.271l716 +++|          NJN    SCP5        IF NEITHER FIRST NOR LAST CP
02221  M01S00375.271l716 +++|*         LDN    0           DISALLOW PSEUDO-ROLLOUT OF CP 1 JOB
02222  M01S00376.271l716 +++|          ERRNZ  /CPS/ROSR   CODE DEPENDS ON VALUE
02223  M01S00377.271l716 +++|          UJN    SCP6        ISSUE ROLLOUT REQUEST
02224  M01S00378.271l716 +++|
02225  M01S00379.271l716 +++| SCP5     LDC    /CPS/ROPR*10000  ALLOW PSEUDO-ROLLOUT
02226  M01S00380.271l716 +++| SCP6     LMD    T2
02227  M01S00381.271l716 +++|          RJM    IRR         ISSUE ROLLOUT REQUEST
02228  M01S00382.271l716 +++| SCP7     UJP    SCP8        RETURN
02229  M01S01422.1sj     +++| SFJ      SPACE  4,25
02230  M01S01423.1sj     +++|**        SFJ - SEARCH FOR JOB.
02231  M01S01424.1sj     +++|*
02232  M01S01425.1sj     +++|*         SCAN THE EJT LOOKING FOR THE HIGHEST PRIORITY JOB IN A
02233  M01S01426.1sj     +++|*         SCHEDULABLE JOB STATE THAT MAY BE SCHEDULED WITHIN THE BOUNDS
02234  M01S01427.1sj     +++|*         OF AVAILABLE CM/ECS AND SERVICE CLASS RESOURCE CONSTRAINTS.
02235  M01S01428.1sj     +++|*
02236  M01S01429.1sj     +++|*         ENTRY  (EP) = 0.
02237  M01S01430.1sj     +++|*                (TM - TM+1) = SECONDS PORTION OF *RTCL*.
02238  M01S01431.1sj     +++|*                (TE) = LWA OF *TACP* TABLE.
02239  M01S01432.1sj     +++|*
02240  M01S01433.1sj     +++|*         EXIT   (EP) = EJT ORDINAL OF SELECTED JOB.
02241  M01S01434.1sj     +++|*                     = 0 IF NO SCHEDULABLE JOB FOUND.
02242  M01S01435.1sj     +++|*                (CS - CS+1) = EXCESS CM IN SERVICE CLASS.
02243  M01S01436.1sj     +++|*                (ES) = EXCESS ECS IN SERVICE CLASS.
02244  M01S01437.1sj     +++|*                (JP) = SCHEDULING PRIORITY OF SELECTED JOB.
02245  M01S01438.1sj     +++|*                (JM) = CM REQUIRED BY SELECTED JOB.
02246  M01S01439.1sj     +++|*                (JE) = ECS REQUIRED BY SELECTED JOB.
02247  M01S01440.1sj     +++|*                (SP) = SERVICE CLASS OF SELECTED JOB.
02248  M01S01441.1sj     +++|*
02249  M01S01442.1sj     +++|*         USES   T0 - T7, CM - CM+4, AA - AA+4, BB - BB+4, EO,
02250  M01S01443.1sj     +++|*                CS - CS+1, ES, EJ - EJ+4, SC, EP, SP, JP, JM, JE, TP.
02251  M01S01444.1sj     +++|*
02252  M01S00001.ns2395  +++|*         CALLS  IUT.
02253  M01S00002.ns2395  +++|*
02254  M01S01445.1sj     +++|*         MACROS CFI.
02255  M01S01446.1sj     +++|
02256  M01S01447.1sj     +++|
Line S01448 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02257  M02S01448.1sj8    ---| SFJ33    LDC    **
Line S01449 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S01449.1sj8    ---| SFJK     EQU    *-1         (POTENTIAL CANDIDATE COUNT)
Line S01450 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02259  M02S01450.1sj8    ---|          SBN    2
Line S01451 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02260  M02S01451.1sj8    ---|          MJN    SFJX        IF LESS THAN 2 SCHEDULABLE JOBS FOUND
Line S01452 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02261  M02S01452.1sj8    ---|          LDC    **
Line S01453 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02262  M02S01453.1sj8    ---| SFJL     EQU    *-1         (MULTIPLE SCHEDULABLE JOB COUNT)
Line S01454 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02263  M02S01454.1sj8    ---|          ZJN    SFJ34       IF ANOTHER SCHEDULABLE JOB MIGHT EXIST
Line S01455 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02264  M02S01455.1sj8    ---|          LDC    **          2ND SCHEDULABLE JOB EXISTS, CHECK ACTIVITY
02265  M01S00003.1sj8    +++| SFJ33    LDC    7777
02266  M01S01456.1sj     +++| SFJM     EQU    *-1         (2ND BEST JOB-S DEVICE ACTIVITY)
Line S01457 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
02267  M02S01457.1sj14   ---|          SBN    3
Line S01458 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
02268  M02S01458.1sj14   ---|          PJN    SFJX        IF EXCESSIVE DISK ACTIVITY ON 2ND BEST JOB
Line S01459 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
M03 (Updated by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
02269  M03S01459.1sj14   ---| SFJ34    AOM    SCJC        SET RECYCLE FLAG IN *SCJ*
Line S00004 Modification History
M01 (Added by) 1sj8
M02 (Updated by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
02270  M02S00004.1sj14   ---|          AOM    SCJC        SET RECYCLE FLAG
02271  M01S00003.1sj14   +++|          SHN    21-13
02272  M01S00004.1sj14   +++|          MJN    SFJX        IF NO SECOND JOB
02273  M01S00005.1sj14   +++|          SHN    13-21
02274  M01S00006.1sj14   +++|          SBN    3
02275  M01S00007.1sj14   +++|          MJN    SFJ34       IF NOT TOO MUCH ACTIVITY
02276  M01S00008.1sj14   +++|          LDN    PPAL
02277  M01S00009.1sj14   +++|          CRD    CM
02278  M01S00010.1sj14   +++|          LDD    CM+4
02279  M01S00011.1sj14   +++|          ZJN    SFJX        IF NO PP-S AVAILABLE
Line S00012 Modification History
M01 (Added by) 1sj14
M02 (Updated by) ns2210
Seq #  *Modification Id* Act 
----------------------------+
02280  M02S00012.ns2210  ---|          CRD    CM
Line S00013 Modification History
M01 (Added by) 1sj14
M02 (Updated by) ns2210
Seq #  *Modification Id* Act 
----------------------------+
02281  M02S00013.ns2210  ---|          LDD    CM+4
02282  M01S00001.ns2210  +++|          SBN    1
02283  M01S00014.1sj14   +++|          ZJN    SFJX        IF ONLY 1 PP AVAILABLE
02284  M01S00015.1sj14   +++| SFJ34    AOM    SCJC        SET RECYCLE FLAG
02285  M01S01460.1sj     +++|
02286  M01S01461.1sj     +++| SFJ      SUBR               ENTRY/EXIT
Line S00062 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02287  M02S00062.v23l617 ---|          AOM    SPST+JS0S*5+4  INCREMENT EJT SCANS
02288  M01S00015.v23l617 +++|          AOM    SPST+JS0S*5+1  INCREMENT EJT SCANS
02289  M01S00063.ns22000 +++|          SHN    -14
Line S00064 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02290  M02S00064.v23l617 ---|          RAM    SPST+JS0S*5+3
02291  M01S00016.v23l617 +++|          RAM    SPST+JS0S*5
Line S01462 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02292  M02S01462.ns2153  ---| SFJ1     LDC    **          PRESET EJT ORDINAL FOR BACKWARD SCAN
Line S01463 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02293  M02S01463.ns2153  ---| SFJA     EQU    *-1         (LARGEST EJT ORDINAL + 1)
Line S01464 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02294  M02S01464.ns2153  ---|          STD    EO
02295  M01S00008.ns2153  +++|          LDM    SFJA        START SCAN WITH CURRENT ORDINAL
02296  M01S00009.ns2153  +++|          STD    EO
02297  M01S00010.ns2153  +++|          LJM    SFJ3        ENTER LOOP
02298  M01S01465.1sj     +++|
02299  M01S01466.1sj     +++|*         SCAN EJT LOOKING FOR HIGHEST PRIORITY SCHEDULABLE JOB.
02300  M01S01467.1sj     +++|
Line S01468 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02301  M02S01468.ns2153  ---| SFJ2     SOD    EO          DECREMENT EJT ORDINAL
02302  M01S00011.ns2153  +++| SFJ2     SOM    SFJA        DECREMENT EJT ORDINAL
02303  M01S01469.1sj     +++|*         UJN    SFJX        (SCHEDULABLE JOB WITH ERROR FLAG SET)
Line S01470 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02304  M02S01470.ns2153  ---| SFJR     EQU    *-1
02305  M01S00012.ns2153  +++| SFJR     EQU    *-2
02306  M01S00013.ns2153  +++|          STD    EO
02307  M01S00014.ns2153  +++|          PJN    SFJ2.1      IF NOT WRAP OF THE EJT
02308  M01S00015.ns2153  +++|          LDC    **
02309  M01S00016.ns2153  +++| SFJS     EQU    *-1         (HIGHEST EJT ORDINAL)
02310  M01S00017.ns2153  +++|          STM    SFJA
02311  M01S00018.ns2153  +++|          STD    EO
02312  M01S00019.ns2153  +++| SFJ2.1   LMC    **
02313  M01S00020.ns2153  +++| SFJT     EQU    *-1         (STARTING EJT ORDINAL)
02314  M01S01471.1sj     +++|          NJN    SFJ3        IF EJT SCAN NOT COMPLETE
02315  M01S01472.1sj     +++|          LDD    EP
Line S01473 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02316  M02S01473.ns2153  ---|*         UJN    SFJ33       (POST-REJECT SCAN COMPLETE)
02317  M01S00021.ns2153  +++|*         UJN    SFJ2.2      (POST-REJECT SCAN COMPLETE)
02318  M01S01474.1sj     +++| SFJB     EQU    *-1
Line S01475 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02319  M02S01475.ns2153  ---|          UJN    SFJ33       EXIT
Line S01476 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj8
M03 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02320  M03S01476.ns2153  ---|
Line S01477 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02321  M02S01477.ns2153  ---|*         NJN    SFJ33       (JOB WAS REJECTED)
02322  M01S00022.ns2153  +++|          UJN    SFJ2.2      EXIT
02323  M01S00023.ns2153  +++|*         NJN    SFJ2.2      (JOB WAS REJECTED)
02324  M01S01478.1sj     +++| SFJC     EQU    *-1
02325  M01S01479.1sj     +++|
02326  M01S01480.1sj     +++|*         NO JOB WAS SELECTED FOR SCHEDULING BUT AT LEAST ONE JOB WAS
02327  M01S01481.1sj     +++|*         REJECTED DUE TO VIOLATION OF SERVICE CLASS RESOURCE
02328  M01S01482.1sj     +++|*         CONSTRAINTS.  REMOVE SERVICE CLASS RESOURCE CONSTRAINTS AND
02329  M01S01483.1sj     +++|*         RE-SCAN THE EJT TO SELECT THE HIGHEST PRIORITY JOB OF THOSE
02330  M01S01484.1sj     +++|*         PREVIOUSLY REJECTED.  THE SELECTED JOB WILL BE SCHEDULED ONLY
02331  M01S01485.1sj     +++|*         IF SUFFICIENT CM AND ECS IS AVAILABLE WITHOUT ROLLING OUT
Line S01486 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02332  M02S01486.271l716 ---|*         OTHER JOBS.
02333  M01S00383.271l716 +++|*         OTHER JOBS.  IF FLEXIBLE MEMORY PARTITIONING IS DISABLED, NO
02334  M01S00384.271l716 +++|*         RE-SCAN WILL BE PERFORMED.
02335  M01S01487.1sj     +++|
02336  M01S01488.1sj     +++|          LDM    SCPA
02337  M01S00385.271l716 +++|*         UJN    SFJX        (FLEXIBLE MEMORY PARTITIONING DISABLED)
02338  M01S00386.271l716 +++| SFJW     EQU    *-2
02339  M01S01489.1sj     +++|          ZJN    SFJX        IF NO AVAILABLE CONTROL POINTS
02340  M01S00065.ns22000 +++|          LDN    0           REINITIALIZE EJT SCAN
02341  M01S00066.ns22000 +++|          STM    USDA
02342  M01S00067.ns22000 +++|          STM    USDB
02343  M01S00068.ns22000 +++|          STM    USDC
02344  M01S01490.1sj     +++|          LDM    SFJN
02345  M01S01491.1sj     +++|          STM    SFJB
Line S01492 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj7
Seq #  *Modification Id* Act 
----------------------------+
02346  M02S01492.1sj7    ---|          LDC    TEPB+1*MXJC CAUSE *ASJ* TO USE LOWER BOUND PRIORITY
Line S01493 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj7
Seq #  *Modification Id* Act 
----------------------------+
02347  M02S01493.1sj7    ---|          STM    ASJA
02348  M01S01494.1sj     +++|          LDC    SFJ2
02349  M01S01495.1sj     +++|          STM    SFJH
02350  M01S01496.1sj     +++|          LDM    SFJO
02351  M01S01497.1sj     +++|          STM    SFJI
Line S01498 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02352  M02S01498.ns2153  ---|          UJN    SFJ1        PERFORM POST-REJECT SCHEDULING
Line S01499 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02353  M02S01499.ns2153  ---|
Line S01500 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
02354  M02S01500.ns2153  ---| SFJ3     CFI    EJT,,EO     GET EJT ENTRY OFFSET
02355  M01S00024.ns2153  +++|          LJM    SFJ2        PERFORM POST-REJECT SCHEDULING
02356  M01S00025.ns2153  +++|
02357  M01S00026.ns2153  +++| SFJ2.2   LJM    SFJ33       CONTINUE
02358  M01S00027.ns2153  +++|
02359  M01S00028.ns2153  +++| SFJ3     CFI    EJT,EO      GET EJT ENTRY OFFSET
02360  M01S01501.1sj     +++|          ADC    **          ADD EJT FWA (SET BY *PRS*)
02361  M01S01502.1sj     +++| SFJD     EQU    *-1         (EJT FWA)
02362  M01S01503.1sj     +++|          ADK    JSNE        READ EJT ENTRY
02363  M01S01504.1sj     +++|          CRD    EJ
02364  M01S01505.1sj     +++|          STD    AA+1        SAVE EJT ADDRESS
02365  M01S01506.1sj     +++|          SHN    -14
02366  M01S01507.1sj     +++|          STD    AA
02367  M01S01508.1sj     +++|          LDD    EJ
02368  M01S01509.1sj     +++|          ZJN    SFJ4        IF EMPTY ENTRY
02369  M01S01510.1sj     +++|          LDD    EJ+4
02370  M01S01511.1sj     +++|          SHN    21-6
02371  M01S01512.1sj     +++|          PJN    SFJ5        IF JOB ADVANCE IS CLEAR
02372  M01S01513.1sj     +++| SFJ4     LJM    SFJ2        CONTINUE EJT SCAN
02373  M01S01514.1sj     +++|
02374  M01S01515.1sj     +++| SFJ5     SHN    6-0
02375  M01S01516.1sj     +++|          MJN    SFJ4        IF JOB ADVANCE INHIBITED
02376  M01S01517.1sj     +++|          LPN    37          GET JOB STATUS
02377  M01S01518.1sj     +++|          STD    T2
02378  M01S00003.ns2395  +++|          STM    SFJU+4
02379  M01S01519.1sj     +++|          LDD    AA          READ REMAINDER OF EJT ENTRY
02380  M01S01520.1sj     +++|          SHN    14
02381  M01S01521.1sj     +++|          LMD    AA+1
02382  M01S01522.1sj     +++|          ADN    SCHE-JSNE
02383  M01S01523.1sj     +++|          CRD    AA
02384  M01S01524.1sj     +++|          ADN    PRFE-SCHE
02385  M01S01525.1sj     +++|          CRD    CM
02386  M01S01526.1sj     +++|          ADN    SCLE-PRFE
02387  M01S01527.1sj     +++|          CRD    BB
02388  M01S01528.1sj     +++|          LDD    BB          GET SERVICE CLASS
02389  M01S01529.1sj     +++|          SHN    -6
02390  M01S01530.1sj     +++|          STD    SC
02391  M01S01531.1sj     +++|          ERRPL  7677-MXPR   ENSURE *LCN* MAY BE USED
02392  M01S01532.1sj     +++|          LCN    7777-MXPR   PRESET SCHEDULING PRIORITY
02393  M01S01533.1sj     +++|          STD    BB+1
02394  M01S01534.1sj     +++|          LDD    AA          GET EST ORDINAL
02395  M01S01535.1sj     +++|          STD    BB+2
02396  M01S01536.1sj     +++|          LDD    CM+1
Line S01537 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj33
Seq #  *Modification Id* Act 
----------------------------+
02397  M02S01537.1sj33   ---|          ZJN    SFJ7        IF NO ERROR FLAG SET IN EJT ENTRY
02398  M01S00001.1sj33   +++|          ZJP    SFJ7        IF NO ERROR FLAG SET IN EJT ENTRY
02399  M01S01538.1sj     +++|          LDM    TJST,T2
02400  M01S01539.1sj     +++|          SHN    21-12
02401  M01S01540.1sj     +++|          PJN    SFJ6        IF JOB MAY NOT BE SCHEDULED
02402  M01S01541.1sj     +++|          LDD    T2
02403  M01S01542.1sj     +++|          LMN    SUJS
02404  M01S01543.1sj     +++|          NJN    SFJ5.1      IF NOT SUSPENDED JOB
02405  M01S01544.1sj     +++|          LDD    EJ+4
02406  M01S01545.1sj     +++|          SHN    0-7
02407  M01S01546.1sj     +++|          LPN    17
02408  M01S01547.1sj     +++|          LMN    OLCS
02409  M01S01548.1sj     +++|          ZJN    SFJ6        IF ON-LINE INTERACTIVE JOB
02410  M01S00002.1sj33   +++|          LMN    DTCS&OLCS
02411  M01S00003.1sj33   +++|          NJN    SFJ5.1      IF NOT DETACHED
02412  M01S00004.1sj33   +++|          LDD    CM+1
02413  M01S00005.1sj33   +++|          SBK    ODET
02414  M01S00006.1sj33   +++|          PJN    SFJ5.1      IF ERROR FLAG .GE. *ODET*
02415  M01S00007.1sj33   +++|          LDD    BB
02416  M01S00008.1sj33   +++|          SHN    21-4
02417  M01S00009.1sj33   +++|          PJN    SFJ6        IF NOT FORCED ROLLIN
Line S01549 Modification History
M01 (Added by) 1sj
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02418  M02S01549.241l630 ---| SFJ5.1   LDM    TEFP,CM+1   GET TRANSFER ADDRESS FROM *TEFP* TABLE
02419  M01S00013.241l630 +++| SFJ5.1   LDD    CM+1
Line S00014 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02420  M02S00014.271l716 ---|          SBK    TEFPL
02421  M01S00387.271l716 +++|          SBK    MXET
02422  M01S00015.241l630 +++|          PJN    SFJ6        IF ERROR FLAG NOT VALID
02423  M01S00016.241l630 +++|          LDM    TEFP,CM+1   GET TRANSFER ADDRESS FROM *TEFP* TABLE
Line S01550 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj40
Seq #  *Modification Id* Act 
----------------------------+
02424  M02S01550.1sj40   ---|          ZJN    SFJ6        IF NO PROCESSOR DEFINED FOR ERROR FLAG
02425  M01S00001.1sj40   +++| SFJV     ZJN    SFJ6        IF NO PROCESSOR DEFINED FOR ERROR FLAG
02426  M01S00002.1sj40   +++|*         UJN    SFJ6        (IF DEADSTART SEQUENCING JOB HAS NOT RUN)
02427  M01S01551.1sj     +++|          STD    T1
Line S01552 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02428  M02S01552.242l642 ---|          LDN    0           SET PROCESSOR ENTRY CONDITION
02429  M01S01553.1sj     +++|          LJM    0,T1
02430  M01S01554.1sj     +++|
02431  M01S01555.1sj     +++| SFJ6     LJM    SFJ2        CONTINUE EJT SCAN
02432  M01S01556.1sj     +++|
02433  M01S01557.1sj     +++|*         CHECK FOR FORCED ROLLIN/ROLLOUT.
02434  M01S01558.1sj     +++|
02435  M01S01559.1sj     +++| SFJ7     LDD    BB
02436  M01S01560.1sj     +++|          SHN    21-5
02437  M01S01561.1sj     +++|          MJN    SFJ6        IF FORCED ROLLOUT
02438  M01S01562.1sj     +++|          SHN    5-4
02439  M01S01563.1sj     +++|          PJN    SFJ10       IF NOT FORCED ROLLIN
02440  M01S01564.1sj     +++|          LDM    TJST,T2
02441  M01S01565.1sj     +++|          SHN    21-11
02442  M01S01566.1sj     +++|          PJN    SFJ10       IF JOB MAY NOT BE FORCED ROLLED IN
Line S01567 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02443  M02S01567.242l642 ---| SFJ8     LDD    T2
Line S01568 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02444  M02S01568.242l642 ---|          LMK    PRJS
Line S01569 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02445  M03S01569.242l642 ---|          NJN    SFJ11       IF NOT PRE-INITIAL JOB STATE
Line S00014 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02446  M02S00014.242l642 ---|          NJN    SFJ10.1     IF NOT PRE-INITIAL JOB STATE
Line S01570 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02447  M02S01570.242l642 ---|          LDK    MNFL&DNFL   SET DEFAULT NFL AS REQUIRED CM FL
02448  M01S00041.242l642 +++| SFJ8     LJM    SFJ12       SCHEDULE JOB WITH FL
02449  M01S01571.1sj     +++|
02450  M01S01572.1sj     +++|*         IF ENTERING AT THIS LOCATION DUE TO AN ERROR FLAG REQUIRING
02451  M01S01573.1sj     +++|*         ROLLIN WITH ONLY NFL, SET THE MAXIMUM NFL AS THE REQUIRED CM
02452  M01S01574.1sj     +++|*         FL.  ROUTINE *ASJ* WILL REQUEST THIS MUCH CM STORAGE TO
02453  M01S01575.1sj     +++|*         ENSURE *1RI* WILL HAVE SUFFICIENT SPACE FOR NFL ROLLIN.
02454  M01S01576.1sj     +++|
Line S01577 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02455  M02S01577.242l642 ---| SFJ9     LMN    MNFL
02456  M01S00042.242l642 +++| SFJ9     LDK    MNFL
02457  M01S01578.1sj     +++|          STD    BB+4
02458  M01S01579.1sj     +++|          LDN    0           CLEAR ECS REQUIREMENT
02459  M01S01580.1sj     +++|          STD    BB+3
02460  M01S01581.1sj     +++|
02461  M01S01582.1sj     +++|*         SAVE THE JOB-S EJT ORDINAL AS A FLAG FOR ROUTINE *ASJ*
02462  M01S01583.1sj     +++|*         INDICATING THE CM FL FIELD IN THE EJT ENTRY MUST BE CLEARED
02463  M01S01584.1sj     +++|*         TO TELL *1RI* ONLY NFL SHOULD BE ROLLED IN.  IF THE JOB
02464  M01S01585.1sj     +++|*         STATE IS *PRJS*, CLEARING THE CM FL FIELD WILL HAVE NO
02465  M01S01586.1sj     +++|*         EFFECT.
02466  M01S01587.1sj     +++|
02467  M01S01588.1sj     +++|          LDD    EO
02468  M01S01589.1sj     +++|          STM    ASJB
02469  M01S01590.1sj     +++|          LDC    UJNI+77-SFJR+SFJX  TERMINATE JOB SEARCH
02470  M01S01591.1sj     +++|          ERRPL  SFJR-SFJX-40  RANGE ERROR
02471  M01S01592.1sj     +++|          STM    SFJR
Line S01593 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02472  M02S01593.271l716 ---|          LJM    SFJ13       GO CHECK PRIORITY
02473  M01S00388.271l716 +++|          LJM    SFJ12.5     CHECK PRIORITY
02474  M01S01594.1sj     +++|
02475  M01S01595.1sj     +++|*         DETERMINE WHETHER OR NOT THE JOB IS IN A SCHEDULABLE STATE.
02476  M01S01596.1sj     +++|
02477  M01S01597.1sj     +++| SFJ10    LDD    CM+1
Line S01598 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
Seq #  *Modification Id* Act 
----------------------------+
02478  M02S01598.1sj30a  ---|          NJN    SFJ11       IF ERROR FLAG SET
02479  M01S00015.1sj30a  +++| SFJ10.1  NJN    SFJ11       IF ERROR FLAG SET
02480  M01S01599.1sj     +++|          LDM    TJST,T2
02481  M01S01600.1sj     +++|          SHN    21-13
Line S01601 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
Seq #  *Modification Id* Act 
----------------------------+
02482  M02S01601.1sj30a  ---|          MJN    SFJ10.1     IF SCHEDULABLE JOB
Line S01602 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
Seq #  *Modification Id* Act 
----------------------------+
02483  M02S01602.1sj30a  ---|          LJM    SFJ2        CONTINUE SEARCH
02484  M01S00016.1sj30a  +++|          MJN    SFJ10.3     IF SCHEDULABLE JOB
02485  M01S00017.1sj30a  +++| SFJ10.2  LJM    SFJ2        CONTINUE SEARCH
02486  M01S01603.1sj     +++|
Line S01604 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
Seq #  *Modification Id* Act 
----------------------------+
02487  M02S01604.1sj30a  ---| SFJ10.1  LDD    SC
Line S01605 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
Seq #  *Modification Id* Act 
----------------------------+
02488  M02S01605.1sj30a  ---|          SBN    MXJC
Line S00018 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02489  M02S00018.271l716 ---| SFJ10.3  LDD    SC          CHECK FOR REJECTED SUBSYSTEM
Line S00019 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02490  M02S00019.271l716 ---|          SBK    SSSC
Line S00020 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02491  M02S00020.271l716 ---|          NJN    SFJ10.5     IF NOT SUBSYSTEM
Line S00021 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02492  M02S00021.271l716 ---|          LDM    SCJE        GET THE RECYCLE COUNT
Line S00022 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02493  M02S00022.271l716 ---|          STD    T1
Line S00023 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02494  M02S00023.271l716 ---| SFJ10.4  SOD    T1
Line S00024 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02495  M02S00024.271l716 ---|          MJN    SFJ11       IF END OF TABLE
Line S00025 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02496  M02S00025.271l716 ---|          LDM    TPRS,T1
Line S00026 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02497  M02S00026.271l716 ---|          LMD    EO
Line S00027 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02498  M02S00027.271l716 ---|          ZJN    SFJ10.2     IF SUBSYSTEM ALREADY REJECTED
Line S00028 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02499  M02S00028.271l716 ---|          UJN    SFJ10.4     CHECK NEXT ENTRY
Line S00029 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02500  M02S00029.271l716 ---|
Line S00030 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02501  M02S00030.271l716 ---| SFJ10.5  SBK    MXJC-SSSC
02502  M01S00389.271l716 +++| SFJ10.3  LDD    SC
02503  M01S00390.271l716 +++| SFJ10.5  SBK    MXJC
02504  M01S01606.1sj     +++| SFJ11    PJN    SFJ12       IF NO JCB FOR SERVICE CLASS
02505  M01S00001.1sj5    +++|          LDD    T2
02506  M01S00002.1sj5    +++|          LMK    SIJS
02507  M01S00003.1sj5    +++|          ZJN    SFJ12       IF SCP ROLLIN JOB STATUS
02508  M01S01607.1sj     +++|
02509  M01S01608.1sj     +++|*         CALCULATE SCHEDULING PRIORITY.  THE CALCULATION IS PERFORMED
02510  M01S01609.1sj     +++|*         IN-LINE TO AVOID THE OVERHEAD OF SUBROUTINE USAGE.
02511  M01S01610.1sj     +++|
Line S01611 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj12
Seq #  *Modification Id* Act 
----------------------------+
02512  M02S01611.1sj12   ---|          LDM    TEPB+3*MXJC,SC  USE WEIGHTING FACTOR AS SHIFT COUNT
Line S01612 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj12
Seq #  *Modification Id* Act 
----------------------------+
02513  M02S01612.1sj12   ---|          ADC    SHNI
Line S00001 Modification History
M01 (Added by) 1sj12
M02 (Updated by) 1sj18
Seq #  *Modification Id* Act 
----------------------------+
02514  M02S00001.1sj18   ---|          LDN    77
02515  M01S00001.1sj18   +++|          LDC    SHNI+77     CALCULATE THE WEIGHTING FACTOR SHIFT
Line S00002 Modification History
M01 (Added by) 1sj12
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02516  M02S00002.271l716 ---|          SBM    TEPB+3*MXJC,SC
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/1sj.002.txt ยท Last modified: by 127.0.0.1