User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1aj.014

Deck 1AJ Part 014

214 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00430 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18103  M02S00430.242l642 ---|          SFA    EJT         SET TERMINATION-IN-PROGRESS FLAG IN EJT
Line S00636 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18104  M01S00636.242l642 +++|          SFA    EJT         SET JOB TERMINATION MODE
Line S00431 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18105  M01S00431.ns22000 +++|          ADK    SCHE
18106  M01S00432.ns22000 +++|          CRD    FS
18107  M01S00433.ns22000 +++|          LDD    FS+2
Line S00434 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18108  M02S00434.242l642 ---|          LPC    5777
18109  M02S00435.242l642 ---|          LMC    2000
18110  M02S00436.242l642 ---|          STD    FS+2
Line S00637 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18111  M01S00637.242l642 +++|          LPC    3000
18112  M01S00638.242l642 +++|          STM    JTFG
18113  M01S00639.242l642 +++|          LMK    NOTM*1000
18114  M01S00640.242l642 +++|          NJN    RLF8        IF TERMINATION MODE ALREADY SET
18115  M01S00641.242l642 +++|          LDD    TH
18116  M01S00642.242l642 +++|          ERRNZ  1000*NLTM-1000  CODE ASSUMES *NLTM* = 1
18117  M01S00643.242l642 +++|          STM    JTFG
18118  M01S00644.242l642 +++|          RAD    FS+2
Line S00437 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18119  M01S00437.ns22000 +++|          LDM    RLFB
18120  M01S00438.ns22000 +++|          SFA    EJT
18121  M01S00439.ns22000 +++|          ADK    SCHE
18122  M01S00440.ns22000 +++|          CWD    FS
Line S00645 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18123  M01S00645.242l642 +++| RLF8     LDD    CP          SET TERMINATION/QUEUED FILE DISPOSITION
18124  M01S00646.242l642 +++|          ADK    EOJW
18125  M01S00647.242l642 +++|          CRD    CM
18126  M00S11810.1aj     +++|          LDD    CN+1
Line S00011 Modification History
M01 (Added by) ns2010
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18127  M02S00011.ns22000 ---|          STM    ICSC
Line S00441 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18128  M01S00441.ns22000 +++|          STM    ITSA        SET QUEUED FILES FLAG
Line S11811 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18129  M01S11811.ns22000 ---|          NJN    RLF8        IF QUEUED FILES PRESENT
Line S00442 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18130  M02S00442.242l642 ---|          NJN    RLFX        IF QUEUED FILES PRESENT
Line S00648 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18131  M01S00648.242l642 +++|          NJN    RLF9        IF QUEUED FILES PRESENT
18132  M00S11812.1aj     +++|          LDM    JBOT
18133  M00S11813.1aj     +++|          LMN    SYOT
Line S11814 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18134  M01S11814.ns22000 ---|          NJN    RLF8        IF NOT SYSTEM ORIGIN
Line S00443 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18135  M02S00443.242l642 ---|          NJN    RLFX        IF NOT SYSTEM ORIGIN
Line S00649 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18136  M01S00649.242l642 +++|          NJN    RLF9        IF NOT SYSTEM ORIGIN
Line S11815 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18137  M01S11815.241l630 ---|          LDD    CM          SET *NOJT* STATUS
Line S00304 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18138  M01S00304.241l630 +++|          LDD    CP          SET *NOJT* JOB TERMINATION OPTION
18139  M01S00305.241l630 +++|          ADK    EOJW
18140  M01S00306.241l630 +++|          CRD    CM
18141  M01S00307.241l630 +++|          LDD    CM
18142  M00S11816.1aj     +++|          LPC    7077
Line S11817 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18143  M02S11817.242l642 ---|          LMC    NOJT*100
Line S00308 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18144  M01S00308.241l630 +++|          LMD    HN
18145  M01S00309.241l630 +++|          ERRNZ  NOJT-1      CODE ASSUMES *NOJT* = 1
18146  M00S11818.1aj     +++|          STD    CM
Line S00444 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18147  M03S00444.242l642 ---|          LPC    3777
Line S00310 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18148  M02S00310.242l642 ---|          SHN    -6
Line S00445 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18149  M02S00445.242l642 ---|          LMC    4000
Line S11819 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18150  M01S11819.242l642 ---|          STM    JTFG
Line S11820 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18151  M01S11820.ns22000 ---| RLF8     LDD    CP          REWRITE JOB STATUS
Line S00446 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18152  M01S00446.ns22000 +++|          LDD    CP          REWRITE END OF JOB STATUS
18153  M00S11821.1aj     +++|          ADK    EOJW
18154  M00S11822.1aj     +++|          CWD    CM
Line S00650 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18155  M01S00650.242l642 +++| RLF9     LDD    CM          SET TERMINATION/QUEUED FILE DISPOSITION
18156  M01S00651.242l642 +++|          SHN    -6
18157  M01S00652.242l642 +++|          LPN    37
18158  M01S00653.242l642 +++|          RAM    JTFG
18159  M00S11823.1aj     +++|
18160  M00S11824.1aj     +++| RLF      SUBR               ENTRY/EXIT
18161  M00S11825.1aj     +++|
18162  M00S11826.1aj     +++|*         INITIALIZE FNT SEARCH INDEX AT *FNTN* + *LENF* SO THE
18163  M00S11827.1aj     +++|*         *INPUT* FILE IS NOT RETURNED.  THE *INPUT* FILE
18164  M00S11828.1aj     +++|*         IS ALWAYS THE FIRST FNT ENTRY.
18165  M00S11829.1aj     +++|
18166  M00S11830.1aj     +++|          LDK    FNTN        INITIALIZE FNT INDEX
18167  M00S11831.1aj     +++|          STD    CN
18168  M00S11832.1aj     +++|          LDN    0           INITIALIZE QUEUED FILES PRESENT FLAG
18169  M00S11833.1aj     +++|          STD    CN+1
18170  M00S11834.1aj     +++| RLF1     LDK    LENF        ADVANCE FNT INDEX
18171  M00S11835.1aj     +++|          RAD    CN
18172  M00S11836.1aj     +++|          SBD    NL
18173  M00S11837.1aj     +++|          PJP    RLF7        IF END OF FNT-S
18174  M00S11838.1aj     +++|          NFA    CN,R        SET FNT ADDRESS
18175  M00S11839.1aj     +++|          CRD    FN          READ FNT WORD
18176  M00S11840.1aj     +++|          ADN    FSTL        READ FST WORD
18177  M00S11841.1aj     +++|          CRD    FS
18178  M00S11842.1aj     +++|          LDD    FN
18179  M00S11843.1aj     +++|          ZJN    RLF1        IF NULL ENTRY
18180  M00S11844.1aj     +++|          LDD    FN+4
18181  M00S11845.1aj     +++|          SHN    -6
18182  M00S11846.1aj     +++|          LMK    QFFT
18183  M00S11847.1aj     +++|          NJN    RLF3        IF NOT QUEUED FILE
18184  M00S11848.1aj     +++| RLF2     AOD    CN+1        SET QUEUED FILE PROCESSED FLAG
Line S11849 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18185  M01S11849.274l797 ---|          UJN    RLF1        PROCESS NEXT FNT ENTRY
Line S00008 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18186  M01S00008.274l797 +++| RLF2.1   UJN    RLF1        PROCESS NEXT FNT ENTRY
18187  M00S11850.1aj     +++|
Line S11851 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18188  M01S11851.ns22000 ---| RLF3     LDM    ESTS        READ EST ENTRY FOR THIS FNT
18189  M01S11852.ns22000 ---|          ADD    FS
Line S00447 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18190  M01S00447.ns22000 +++| RLF3     SFA    EST,FS      READ EST ENTRY FOR THIS FNT
18191  M01S00448.ns22000 +++|          ADK    EQDE
18192  M00S11853.1aj     +++|          CRD    CM
18193  M00S11854.1aj     +++|          LDD    CM
18194  M00S11855.1aj     +++|          SHN    21-13
Line S11856 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18195  M01S11856.274l797 ---|          PJN    RLF5        IF NOT MASS STORAGE, RETURN FILE
Line S00009 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18196  M01S00009.274l797 +++|          PJN    RLF5        IF NOT MASS STORAGE
18197  M00S11857.1aj     +++|
18198  M00S11858.1aj     +++|*         SEARCH TABLE FOR MATCH ON SPECIAL FILE NAME.
18199  M00S11859.1aj     +++|
18200  M00S11860.1aj     +++|          LDC    RLFA-RLFAL  SET TABLE INDEX
18201  M00S11861.1aj     +++|          STD    T1
18202  M00S11862.1aj     +++| RLF4     LDN    RLFAL       ADVANCE TABLE ADDRESS
18203  M00S11863.1aj     +++|          RAD    T1
18204  M00S11864.1aj     +++|          LDI    T1
Line S11865 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18205  M01S11865.274l797 ---|          ZJN    RLF5        IF END OF TABLE, RETURN FILE
Line S00010 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18206  M01S00010.274l797 +++|          ZJN    RLF5.0      IF END OF TABLE (RETURN FILE)
18207  M00S11866.1aj     +++|          LMD    FN
18208  M00S11867.1aj     +++|          NJN    RLF4        IF NO MATCH
18209  M00S11868.1aj     +++|          LDM    1,T1
18210  M00S11869.1aj     +++|          LMD    FN+1
18211  M00S11870.1aj     +++|          NJN    RLF4        IF NO MATCH
18212  M00S11871.1aj     +++|          LDM    2,T1
18213  M00S11872.1aj     +++|          LMD    FN+2
18214  M00S11873.1aj     +++|          NJN    RLF4        IF NO MATCH
18215  M00S11874.1aj     +++|          LDM    3,T1
18216  M00S11875.1aj     +++|          LMD    FN+3
18217  M00S11876.1aj     +++|          SCN    77
18218  M00S11877.1aj     +++|          NJN    RLF4        IF NO MATCH
Line S11878 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18219  M01S11878.274l797 ---|          LJM    RLF2        SET QUEUED FILE PROCESSED FLAG
Line S00011 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18220  M01S00011.274l797 +++| RLF4.1   UJP    RLF2        SET QUEUED FILE PROCESSED FLAG
18221  M01S00012.274l797 +++|
18222  M01S00013.274l797 +++| RLF4.2   UJP    RLF2.1      PROCESS NEXT FNT ENTRY
18223  M00S11879.1aj     +++|
Line S11880 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18224  M01S11880.274l797 ---| RLF5     LDD    CN          SET FNT INDEX
Line S00014 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18225  M01S00014.274l797 +++| RLF5     LDD    CM+3
18226  M01S00015.274l797 +++|          LMC    2ROD
18227  M01S00016.274l797 +++|          NJN    RLF5.0      IF NOT OPTICAL DISK FILE
18228  M01S00017.274l797 +++|          LDD    FS+4
18229  M01S00018.274l797 +++|          SHN    21-5
18230  M01S00019.274l797 +++|          MJN    RLF4.1      IF LABELING REQUIRED (DO NOT RETURN)
18231  M01S00020.274l797 +++| RLF5.0   LDD    CN          SET FNT INDEX
18232  M00S11881.1aj     +++|          STD    FA
18233  M00S11882.1aj     +++|          LDN    2           SET *DROP ROFT*, *RETURN* FLAGS FOR *0DF*
18234  M00S11883.1aj     +++|          STM    OVL-1
18235  M00S11884.1aj     +++|          EXECUTE  0DF,OVL   DROP FILE
Line S11885 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18236  M01S11885.242l642 ---|          LDD    CP          CHECK FOR TAPE ACTIVITY
Line S00654 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18237  M02S00654.ns2719  ---|          PJN    RLF5.1      IF NO MASS STORAGE ERROR
18238  M02S00655.ns2719  ---|          LDM    RDCT        CHECK FOR RECOVERABLE ERROR
18239  M02S00656.ns2719  ---|          SHN    21-12
18240  M02S00657.ns2719  ---|          MJN    RLF5.1      IF MASS STORAGE ERROR NOT RECOVERABLE
Line S00118 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18241  M01S00118.ns2719  +++|          PJN    RLF5.1      IF NO INACCESSIBLE DEVICE ERROR
Line S00658 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18242  M01S00658.242l642 +++|          LDD    T5
18243  M01S00659.242l642 +++|          STM    RLFC        FLAG MASS STORAGE RECOVERABLE ERROR
18244  M01S00660.242l642 +++| RLF5.1   LDD    CP          CHECK FOR TAPE ACTIVITY
18245  M00S11886.1aj     +++|          ADN    STSW
18246  M00S11887.1aj     +++|          CRD    CM
18247  M00S11888.1aj     +++|          LDD    CM+4
18248  M00S11889.1aj     +++|          SHN    -7
Line S11890 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18249  M01S11890.274l797 ---|          ZJN    RLF6        IF NOT EXCESSIVE ACTIVITY
Line S00021 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18250  M01S00021.274l797 +++|          ZJN    RLF4.2      IF NOT EXCESSIVE ACTIVITY
18251  M00S11891.1aj     +++|          LJM    DPP         DROP PP TO WAIT FOR NO ACTIVITY
Line S11892 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18252  M01S11892.274l797 ---|
18253  M01S11893.274l797 ---| RLF6     LJM    RLF1        PROCESS NEXT FNT ENTRY
18254  M00S11894.1aj     +++|
18255  M00S11895.1aj     +++|
18256  M00S11896.1aj     +++| RLFA     VFD    42/0LOUTPUT,6/0
18257  M00S11897.1aj     +++| RLFAL    EQU    *-RLFA
18258  M00S11898.1aj     +++|          VFD    42/0LPUNCH,6/0
18259  M00S11899.1aj     +++|          VFD    42/0LPUNCHB,6/0
18260  M00S11900.1aj     +++|          VFD    42/0LP8,6/0
Line S00022 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18261  M01S00022.274l797 +++|          VFD    42/0LZZZZZOD,6/0  OPTICAL DISK CONTROL FILE
18262  M00S11901.1aj     +++|          CON    0           END OF TABLE
18263  M00S11902.1aj     +++| SCM      SPACE  4,10
18264  M00S11903.1aj     +++|**        SCM - STORE CONVERSIONS IN MESSAGE.
18265  M00S11904.1aj     +++|*
18266  M00S11905.1aj     +++|*         ENTRY  (T4) = MESSAGE COUNT - 1.
18267  M00S11906.1aj     +++|*                (A) = LOCATION OF MESSAGE.
18268  M00S11907.1aj     +++|*
18269  M00S11908.1aj     +++|*         USES   T4.
18270  M00S11909.1aj     +++|
18271  M00S11910.1aj     +++|
18272  M00S11911.1aj     +++| SCM      SUBR               ENTRY/EXIT
18273  M00S11912.1aj     +++|          STM    SCMA        SAVE MESSAGE ADDRESS
18274  M00S11913.1aj     +++| SCM1     LDM    *,T4        GET MESSAGE ADDRESS
18275  M00S11914.1aj     +++| SCMA     EQU    *-1
18276  M00S11915.1aj     +++|          ADN    3
18277  M00S11916.1aj     +++|          STM    SCMB
18278  M00S11917.1aj     +++|          LDD    MA
18279  M00S11918.1aj     +++|          ADD    T4
18280  M00S11919.1aj     +++|          CRM    *,ON        READ CONVERSIONS
18281  M00S11920.1aj     +++| SCMB     EQU    *-1
18282  M00S11921.1aj     +++|          SOD    T4          DECREMENT MESSAGE COUNT
18283  M00S11922.1aj     +++|          PJN    SCM1        IF MORE ACCUMULATORS
18284  M00S11923.1aj     +++|          UJN    SCMX        RETURN
18285  M00S11924.1aj     +++| SUV      SPACE  4,10
18286  M00S11925.1aj     +++|**        SUV - SET USER VALIDATION LIMITS.
18287  M00S11926.1aj     +++|*
18288  M00S11927.1aj     +++|*         SETS USER VALIDATION LIMITS TO UNLIMITED, EXCEPT
Line S11928 Modification History
M01 (Removed by) 1aj47
Seq #  *Modification Id* Act 
----------------------------+
18289  M01S11928.1aj47   ---|*         FOR THE DEFERRED BATCH OUTPUT LIMIT.
Line S00001 Modification History
M01 (Added by) 1aj47
Seq #  *Modification Id* Act 
----------------------------+
18290  M01S00001.1aj47   +++|*         FOR THE PRINT, PUNCH AND DEFERRED BATCH OUTPUT LIMITS.
18291  M00S11929.1aj     +++|*
18292  M00S11930.1aj     +++|*         USES   CM - CM+4.
18293  M00S11931.1aj     +++|
18294  M00S11932.1aj     +++|
18295  M00S11933.1aj     +++| SUV      SUBR               ENTRY/EXIT
18296  M00S11934.1aj     +++|          LDD    CP          READ ACCOUNT LIMIT INDEX WORD
18297  M00S11935.1aj     +++|          ADK    ALMW
18298  M00S11936.1aj     +++|          CRD    CM
18299  M00S11937.1aj     +++|          LDD    CM+1        SET TAPES, PACKS, LOCAL FILES
18300  M00S11938.1aj     +++|          LPN    70
18301  M00S11939.1aj     +++|          LMC    7707
18302  M00S11940.1aj     +++|          STD    CM+1
18303  M00S11941.1aj     +++|          LCN    0           SET TIME, SRU
18304  M00S11942.1aj     +++|          STD    CM+2
Line S11943 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18305  M01S11943.v23l617 ---|          STD    CM+3        SET FL, ECS FL
Line S00874 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18306  M01S00874.v23l617 +++|          STD    CM+3        SET FL, EXTENDED MEMORY FL
Line S11944 Modification History
M01 (Removed by) 1aj47
Seq #  *Modification Id* Act 
----------------------------+
18307  M01S11944.1aj47   ---|          STD    CM+4        SET PRINT LINES, CARDS PUNCHED
18308  M00S11945.1aj     +++|          LDD    CP          REWRITE ACCOUNT LIMIT INDEX WORD
18309  M00S11946.1aj     +++|          ADK    ALMW
18310  M00S11947.1aj     +++|          CWD    CM
18311  M00S11948.1aj     +++|          ADK    ACLW-ALMW   READ ACCOUNTING LIMITS WORD
18312  M00S11949.1aj     +++|          CRD    CM
18313  M00S11950.1aj     +++|          LCN    0           SET DAYFILE MESSAGE LIMIT
18314  M00S11951.1aj     +++|          STD    CM+1
Line S11952 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18315  M01S11952.v23l617 ---|          STD    CM+2        SET CONTROL STATEMENT LIMIT
Line S00875 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18316  M01S00875.v23l617 +++|          STD    CM+2        SET COMMAND LIMIT
18317  M00S11953.1aj     +++|          STD    CM+4        SET MASS STORAGE PRU LIMIT
18318  M00S11954.1aj     +++|          LDD    CM+3
18319  M00S11955.1aj     +++|          SCN    77
18320  M00S11956.1aj     +++|          LMN    77
18321  M00S11957.1aj     +++|          STD    CM+3
18322  M00S11958.1aj     +++|          LDD    CP          REWRITE ACCOUNTING LIMITS WORD
18323  M00S11959.1aj     +++|          ADK    ACLW
18324  M00S11960.1aj     +++|          CWD    CM
18325  M00S11961.1aj     +++|          UJP    SUVX        RETURN
18326  M00S11962.1aj     +++| TLD      SPACE  4,10
18327  M00S11963.1aj     +++|**        TLD - TERMINATE *L* DISPLAY.
18328  M00S11964.1aj     +++|*
18329  M00S11965.1aj     +++|*         EXIT   *JSN* FIELD OF *L* DISPLAY BUFFER CLEARED IF
18330  M00S11966.1aj     +++|*                IT MATCHES THAT OF JOB WHICH IS TERMINATING.
18331  M00S11967.1aj     +++|*
18332  M00S11968.1aj     +++|*         USES   AB - AB+4, CM - CM+5, CN - CN+4.
18333  M00S11969.1aj     +++|*
18334  M00S11970.1aj     +++|*         MACROS MONITOR, SFA.
18335  M00S11971.1aj     +++|
18336  M00S11972.1aj     +++|
18337  M00S11973.1aj     +++| TLD      SUBR               ENTRY/EXIT
18338  M00S11974.1aj     +++|          SFA    EJT,JO      SET EJT ADDRESS
18339  M00S11975.1aj     +++|          ADK    JSNE        READ JSN
18340  M00S11976.1aj     +++|          CRD    CN
18341  M00S11977.1aj     +++|          LDK    LDSP        READ *L* DISPLAY POINTER
18342  M00S11978.1aj     +++|          CRD    AB
18343  M00S11979.1aj     +++|          LDD    AB+2        SET *L* DISPLAY BUFFER ADDRESS
18344  M00S11980.1aj     +++|          STD    CM+3
18345  M00S11981.1aj     +++|          SHN    14
18346  M00S11982.1aj     +++|          LMD    AB+3
18347  M00S11983.1aj     +++|          STD    CM+4
18348  M00S11984.1aj     +++|          CRD    AB          READ *L* DISPLAY BUFFER
18349  M00S11985.1aj     +++|          LDD    CN          SET JSN IN *UTEM* PARAMETERS
18350  M00S11986.1aj     +++|          STM    TLDA+3
18351  M00S11987.1aj     +++|          LMD    AB          COMPARE TO *L* DISPLAY JSN
18352  M00S11988.1aj     +++|          NJN    TLDX        IF NO MATCH
18353  M00S11989.1aj     +++|          LDD    CN+1
18354  M00S11990.1aj     +++|          STM    TLDA+4
18355  M00S11991.1aj     +++|          LMD    AB+1
18356  M00S11992.1aj     +++|          NJN    TLDX        IF NO MATCH
18357  M00S11993.1aj     +++|          LDN    2           SET REQUEST LENGTH
18358  M00S11994.1aj     +++|          STD    CM+1
18359  M00S11995.1aj     +++|          LDN    0
18360  M00S11996.1aj     +++|          STD    CM+2
18361  M00S11997.1aj     +++|          LDD    MA          STORE REQUEST PARAMETERS
18362  M00S11998.1aj     +++|          CWM    TLDA,CM+1
18363  M00S11999.1aj     +++|          MONITOR  UTEM      CLEAR *JSN* FIELD
18364  M00S12000.1aj     +++|          UJP    TLDX        RETURN
18365  M00S12001.1aj     +++|
18366  M00S12002.1aj     +++|
18367  M00S12003.1aj     +++|*         *UTEM* MONITOR FUNCTION BUFFER.
18368  M00S12004.1aj     +++|
18369  M00S12005.1aj     +++| TLDA     VFD    1/1,5/0,6/24D,6/36D,6/0  VERIFY *JSN*
18370  M00S12006.1aj     +++|          CON    0,0,0
18371  M00S12007.1aj     +++|          VFD    1/0,5/0,6/24D,6/36D,6/0  CLEAR *JSN*
18372  M00S12008.1aj     +++|          CON    0,0,0
18373  M00S12009.1aj     +++| UPF      SPACE  4,15
18374  M00S12010.1aj     +++|**        UPF - UPDATE PROJECT PROFILE FILE.
18375  M00S12011.1aj     +++|*
18376  M00S12012.1aj     +++|*         EXIT   (PFUF) = SET IF PROJECT FILE UPDATE FAILURE
18377  M00S12013.1aj     +++|*                         AND MAXIMUM RETRY REACHED.
18378  M00S12014.1aj     +++|*
Line S12015 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18379  M01S12015.242l642 ---|*         CALLS  DFM, *0AU*.
Line S00661 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18380  M01S00661.242l642 +++|*         CALLS  DFM, MSR, *0AU*.
18381  M00S12016.1aj     +++|*
18382  M00S12017.1aj     +++|*         USES   RC.
18383  M00S12018.1aj     +++|*
18384  M00S12019.1aj     +++|*         MACROS DELAY, EXECUTE, PAUSE, SFA.
18385  M00S12020.1aj     +++|
18386  M00S12021.1aj     +++|
18387  M00S12022.1aj     +++| UPF      SUBR               ENTRY/EXIT
18388  M00S12023.1aj     +++|          LDN    0           INITIALIZE RE-TRY COUNT
18389  M00S12024.1aj     +++|          STD    RC
18390  M00S12025.1aj     +++| UPF1     SFA    EJT,JO      SET EJT ADDRESS
18391  M00S12026.1aj     +++|          ADK    JSNE        READ JSN
18392  M00S12027.1aj     +++|          CRM    AUPB,ON
18393  M00S12028.1aj     +++|          LDM    JBSC        SET JOB SERVICE CLASS
18394  M00S12029.1aj     +++|          SHN    6
18395  M00S12030.1aj     +++|          STM    AUPB+4
18396  M00S12031.1aj     +++|          LDD    CP          READ SRU ACCUMULATOR
18397  M00S12032.1aj     +++|          ADK    SRUW
18398  M00S12033.1aj     +++|          CRM    AUPB+5,ON
18399  M00S12034.1aj     +++|          ADN    FPFW-SRUW-1
18400  M00S12035.1aj     +++|          CRM    OVL,ON
18401  M00S12036.1aj     +++|          LDC    AUPB
18402  M00S12037.1aj     +++|          STM    OVL+1
18403  M00S12038.1aj     +++|          LDM    OVL         SET END OF ACCOUNT BLOCK CALL
18404  M00S12039.1aj     +++|          SCN    77
18405  M00S12040.1aj     +++|          STM    OVL
18406  M00S12041.1aj     +++|          EXECUTE  0AU,OVL+5
Line S00662 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18407  M01S00662.242l642 +++|          MJP    UPF5        IF MASS STORAGE ERROR
18408  M00S12042.1aj     +++|          SBN    2
18409  M00S12043.1aj     +++|          NJP    UPFX        IF PROFILE FILE NOT BUSY
18410  M00S12044.1aj     +++|          AOD    RC          INCREMENT AND CHECK RE-TRY COUNT
18411  M00S12045.1aj     +++|          LMN    MTRY+1
18412  M00S12046.1aj     +++|          ZJN    UPF3        IF MAXIMUM RE-TRY COUNT REACHED
18413  M00S12047.1aj     +++|          LMN    MTRY+1&IMES
18414  M00S12048.1aj     +++|          NJN    UPF2        IF NOT CONSOLE MESSAGE THRESHOLD
18415  M00S12049.1aj     +++|          LDD    CP          CONSOLE MESSAGE
18416  M00S12050.1aj     +++|          ADN    MS1W
18417  M00S12051.1aj     +++|          CWM    UPFA,TR
18418  M00S12052.1aj     +++| UPF2     DELAY              DELAY 130 USECS
18419  M00S12053.1aj     +++|          PAUSE
18420  M00S12054.1aj     +++|          LDD    CM+1
18421  M00S12055.1aj     +++|          LMN    ORET
Line S12056 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18422  M01S12056.242l642 ---|          ZJN    UPF4        IF OVERIDE FLAG SET
Line S00663 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18423  M01S00663.242l642 +++|          ZJN    UPF6        IF OVERRIDE SET
18424  M00S12057.1aj     +++|          LJM    UPF1        TRY AGAIN
18425  M00S12058.1aj     +++|
18426  M00S12059.1aj     +++| UPF3     STM    OVL+3       CLEAR PROFILE FILE PRESENT
18427  M00S12060.1aj     +++|          EXECUTE  0AU,OVL+5 PROCESS ANY OVERFLOWS
Line S00664 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18428  M01S00664.242l642 +++|          MJN    UPF5        IF MASS STORAGE ERROR
18429  M00S12061.1aj     +++|          LDM    OVL+4       CHECK FOR SRU ACCUMULATOR OVERFLOW
18430  M00S12062.1aj     +++|          SHN    21-0
Line S12063 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18431  M01S12063.242l642 ---|          PJN    UPF4        IF NOT SRU OVERFLOW
Line S00665 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18432  M01S00665.242l642 +++|          PJN    UPF6        IF NOT SRU OVERFLOW
18433  M00S12064.1aj     +++|          LDC    ACFN+UPFB   OVERFLOW MESSAGE
18434  M00S12065.1aj     +++|          RJM    DFM
Line S12066 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18435  M01S12066.242l642 ---| UPF4     LDN    1           SET UPDATE FAILURE FLAG
18436  M01S12067.242l642 ---|          STM    PFUF
18437  M01S12068.242l642 ---|          LJM    UPFX        RETURN
Line S00666 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18438  M01S00666.242l642 +++|          UJN    UPF6        RETURN
18439  M01S00667.242l642 +++|
Line S00668 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18440  M02S00668.ns2719  ---| UPF5     RJM    MSR         PROCESS MASS STORAGE ERROR
18441  M02S00669.ns2719  ---|
18442  M02S00670.ns2719  ---|*         *MSR* RETURNS ONLY IF THE ERROR IS NOT RECOVERABLE OR
18443  M02S00671.ns2719  ---|*         THE JOB IS A SUBSYSTEM.
Line S00119 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18444  M01S00119.ns2719  +++| UPF5     LDN    0           FORCE *1RJ* CALL
18445  M01S00120.ns2719  +++|          RJM    MSR         PROCESS MASS STORAGE ERROR (NO RETURN)
Line S00672 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18446  M01S00672.242l642 +++|
18447  M01S00673.242l642 +++| UPF6     LDN    1           SET UPDATE FAILURE FLAG
18448  M01S00674.242l642 +++|          STM    PFUF
18449  M01S00675.242l642 +++|          UJP    UPFX        RETURN
18450  M00S12069.1aj     +++|
18451  M00S12070.1aj     +++|
18452  M00S12071.1aj     +++| UPFA     DATA   C* WAITING - PROFILE FILE.*
18453  M00S12072.1aj     +++| UPFB     DATA   C*AUSR, 219902.325UNTS.*
Line S00311 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18454  M01S00311.241l630 +++|          SPACE  4,10
18455  M01S00312.241l630 +++|*         COMMON DECKS.
18456  M01S00313.241l630 +++|
18457  M01S00314.241l630 +++|
18458  M01S00315.241l630 +++|*CALL     COMPRSS
18459  M00S12073.1aj     +++|          SPACE  4,10
18460  M00S12074.1aj     +++|          USE    OVERLAY
18461  M00S12075.1aj     +++| AUPB     BSS    0           *0AU* PARAMETER BLOCK
18462  M00S12076.1aj     +++| ACCT     EQU    AUPB+5*2    CONTROL POINT AREA ACCUMULATORS
18463  M00S12077.1aj     +++| OVL      EQU    ACCT+3      ZERO LEVEL OVERLAY LOAD ADDRESS
Line S12078 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18464  M01S12078.242l642 ---|          ERRNG  EPFW-OVL-5-ZAUL  CHECK LENGTH OF OVERLAY *0AU*
18465  M01S12079.242l642 ---|          ERRNG  EPFW-OVL-5-ZDFL  CHECK LENGTH OF OVERLAY *0DF*
Line S00676 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18466  M01S00676.242l642 +++|          ERRNG  EPFW-OVL-ZAUL
18467  M01S00677.242l642 +++|          ERRNG  BFMS-OVL-ZDFL
Line S00316 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18468  M01S00316.241l630 +++|          ERRNG  BFMS-*      I/O BUFFER OVERLAYS CODE
18469  M00S12080.1aj     +++|          TITLE  OVERLAID PRESET.
18470  M00S12081.1aj     +++| PRS      SPACE  4,10
Line S12082 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18471  M01S12082.ns22000 ---|**        PRS - PRESET.
Line S00449 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18472  M01S00449.ns22000 +++|**        PTR - PRESET JOB TERMINATION.
18473  M00S12083.1aj     +++|*
18474  M00S12084.1aj     +++|*         EXIT   (NL) = NEGATIVE FL.
18475  M00S12085.1aj     +++|*
Line S12086 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18476  M01S12086.ns22000 ---|*         USES   CM - CM+4, CN - CN+4.
Line S00450 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18477  M01S00450.ns22000 +++|*         USES   CM - CM+4, CN - CN+4, NL.
18478  M00S12087.1aj     +++|*
Line S12088 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18479  M01S12088.241l630 ---|*         CALLS  FLF.
Line S00317 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18480  M01S00317.241l630 +++|*         CALLS  FLF, TLD.
18481  M00S12089.1aj     +++|*
18482  M00S12090.1aj     +++|*         MACROS MONITOR.
18483  M00S12091.1aj     +++|
18484  M00S12092.1aj     +++|
Line S12093 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18485  M01S12093.ns22000 ---| PRS      SUBR               ENTRY/EXIT
Line S00451 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18486  M01S00451.ns22000 +++| PTR      SUBR               ENTRY/EXIT
18487  M00S12094.1aj     +++|
18488  M00S12095.1aj     +++|*         SET NO-EXIT FLAG IN CONTROL POINT AREA.
18489  M00S12096.1aj     +++|
Line S00678 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18490  M01S00678.242l642 +++|          RJM    TLD         TERMINATE *L* DISPLAY
18491  M00S12097.1aj     +++|          LDD    CP          READ ENTRY/EXIT CONTROL WORD
18492  M00S12098.1aj     +++|          ADK    EECW
18493  M00S12099.1aj     +++|          CRD    CM
18494  M00S12100.1aj     +++|          LDD    CM          SET NO-EXIT FLAG
18495  M00S12101.1aj     +++|          LPC    3777
18496  M00S12102.1aj     +++|          ADC    4000
18497  M00S12103.1aj     +++|          STD    CM
18498  M00S12104.1aj     +++|          LDD    CP          REWRITE ENTRY/EXIT CONTROL WORD
18499  M00S12105.1aj     +++|          ADK    EECW
18500  M00S12106.1aj     +++|          CWD    CM
18501  M00S12107.1aj     +++|
18502  M00S12108.1aj     +++|*         CLEAR CCL NESTING IN CONTROL POINT AREA.
18503  M00S12109.1aj     +++|
18504  M00S12110.1aj     +++|          ADK    JCDW-EECW   READ JOB CONTROL DATA
18505  M00S12111.1aj     +++|          CRD    CM
18506  M00S12112.1aj     +++|          LDN    0           CLEAR CCL DATA
18507  M00S12113.1aj     +++|          STD    CM+2
18508  M00S12114.1aj     +++|          LDD    CP          REWRITE JOB CONTROL DATA
18509  M00S12115.1aj     +++|          ADK    JCDW
18510  M00S12116.1aj     +++|          CWD    CM
18511  M00S12117.1aj     +++|
18512  M00S12118.1aj     +++|*         PRESET MISCELLANEOUS DATA.
18513  M00S12119.1aj     +++|
18514  M00S12120.1aj     +++|          ADK    FLSW-JCDW   READ NFL CONTROL WORD
18515  M00S12121.1aj     +++|          CRD    CN
18516  M00S12122.1aj     +++|          ADK    FLCW-FLSW   READ FL CONTROL WORD
18517  M00S12123.1aj     +++|          CRD    CM
Line S00452 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2143
Seq #  *Modification Id* Act 
----------------------------+
18518  M02S00452.ns2143  ---|          ADK    TFSW-FLCW   READ EJT ORDINAL
Line S00001 Modification History
M01 (Added by) ns2143
Seq #  *Modification Id* Act 
----------------------------+
18519  M01S00001.ns2143  +++|          ADK    ELCW-FLCW
18520  M01S00002.ns2143  +++|          CRD    AB
18521  M01S00003.ns2143  +++|          ADK    TFSW-ELCW
Line S00453 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18522  M01S00453.ns22000 +++|          CRD    FS
18523  M01S00454.ns22000 +++|          LDD    FS          SET EJT ORDINAL
18524  M01S00455.ns22000 +++|          STM    RLFB
18525  M00S12124.1aj     +++|          LDD    CM+2        SET MFL = MAXFL
18526  M00S12125.1aj     +++|          STD    CM
Line S00004 Modification History
M01 (Added by) ns2143
Seq #  *Modification Id* Act 
----------------------------+
18527  M01S00004.ns2143  +++|          LDN    0           CLEAR EM JOB STEP FL
18528  M01S00005.ns2143  +++|          STD    AB+1
18529  M00S12126.1aj     +++|          LDD    CP          REWRITE FL CONTROL WORD
18530  M00S12127.1aj     +++|          ADK    FLCW
18531  M00S12128.1aj     +++|          CWD    CM
Line S00006 Modification History
M01 (Added by) ns2143
Seq #  *Modification Id* Act 
----------------------------+
18532  M01S00006.ns2143  +++|          ADK    ELCW-FLCW
18533  M01S00007.ns2143  +++|          CWD    AB
18534  M00S12129.1aj     +++|          LDD    CN          SET NFL
18535  M00S12130.1aj     +++|          SHN    6
18536  M00S12131.1aj     +++|          STD    NL
Line S12132 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18537  M01S12132.ns22000 ---|          NJN    PRS1        IF NFL ASSIGNED
Line S00456 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18538  M02S00456.242l642 ---|          NJN    PTR1        IF NFL ASSIGNED
Line S12133 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18539  M02S12133.242l642 ---|          MONITOR  HNGM      HANG PP
18540  M02S12134.242l642 ---|          UJN    *           HANG
Line S00318 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18541  M02S00318.242l642 ---|*         LDN    0
18542  M02S00319.242l642 ---|          STD    CM+2        SET NO ERROR FLAG
18543  M02S00320.242l642 ---|          LDC    *
18544  M02S00321.242l642 ---|          STD    CM+1        ADDRESS WHERE ERROR DETECTED
18545  M02S00322.242l642 ---|          MONITOR  CHGM      CONDITIONAL HANG
18546  M02S00323.242l642 ---|          UJN    PTR2        SKIP FLUSHING BUFFERS
Line S00679 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18547  M01S00679.242l642 +++|          ZJN    PTR1        IF NFL NOT ASSIGNED
18548  M00S12135.1aj     +++|
18549  M00S12136.1aj     +++|*         FLUSH 819 BUFFERS.
18550  M00S12137.1aj     +++|
Line S12138 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18551  M01S12138.ns22000 ---| PRS1     RJM    FLF         FLUSH BUFFERS
18552  M01S12139.ns22000 ---|          LJM    PRSX        RETURN
Line S00457 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18553  M02S00457.242l642 ---| PTR1     RJM    FLF         FLUSH BUFFERS
Line S00458 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18554  M03S00458.242l642 ---|          LJM    PTRX        EXIT
Line S00324 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18555  M02S00324.242l642 ---| PTR2     RJM    TLD         TERMINATE *L* DISPLAY
18556  M02S00325.242l642 ---|          LJM    PTRX        RETURN
Line S00680 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18557  M01S00680.242l642 +++|          RJM    FLF         FLUSH BUFFERS
18558  M01S00681.242l642 +++| PTR1     LJM    PTRX        EXIT
18559  M00S12140.1aj     +++|          SPACE  4,10
18560  M00S12141.1aj     +++|**        EXECUTABLE COMMON DECKS.
18561  M00S12142.1aj     +++|
18562  M00S12143.1aj     +++|
18563  M00S12144.1aj     +++|*CALL     COMPFLF
Line S00326 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
18564  M01S00326.241l630 +++|          OVERFLOW
18565  M00S12145.1aj     +++|          TTL    1AJ/3AK - COMPLETE JOB TERMINATION.
18566  M00S12146.1aj     +++|          TITLE
18567  M00S12147.1aj     +++|          QUAL   3AK
Line S12148 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18568  M01S12148.ns22000 ---|          IDENT  3AK,CJTX
Line S00459 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18569  M01S00459.ns22000 +++|          IDENT  3AK,CJTX    COMPLETE JOB TERMINATION.
18570  M00S12149.1aj     +++|*COMMENT  1AJ - COMPLETE JOB TERMINATION.
Line S12150 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
18571  M01S12150.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00016 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
18572  M01S00016.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
18573  M00S12151.1aj     +++|          SPACE  4,10
Line S12152 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18574  M01S12152.ns22000 ---|***       CJT - COMPLETE JOB TERMINATION.
Line S00460 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18575  M01S00460.ns22000 +++|***       3AK - COMPLETE JOB TERMINATION.
18576  M00S12153.1aj     +++|*
Line S12154 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18577  M01S12154.ns22000 ---|*         P. D. FARRELL.     81/03/17.
18578  M01S12155.ns22000 ---|          SPACE  4,10
18579  M01S12156.ns22000 ---|***       *3AK PERFORMS JOB TERMINATION PROCEDURES.
Line S00461 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18580  M01S00461.ns22000 +++|*         3AK PERFORMS JOB TERMINATION PROCEDURES.
18581  M00S12157.1aj     +++|*         THESE INCLUDE -
18582  M00S12158.1aj     +++|*
18583  M00S12159.1aj     +++|*         (1)   RELEASE STORAGE.
18584  M00S12160.1aj     +++|*         (2)   RELEASE ASSIGNED EQUIPMENT.
18585  M00S12161.1aj     +++|*         (3)   RELEASE ANY COMMON FILES USED BY JOB.
18586  M00S12162.1aj     +++|*         (4)   DROP ANY SCRATCH FILES USED BY JOB.
18587  M00S12163.1aj     +++|*         (5)   UPDATE THE RESOURCE DEMAND FILE.
18588  M00S12164.1aj     +++|*         (6)   REQUEUE THE JOB FOR RERUN IF REQUIRED.
18589  M00S12165.1aj     +++|          SPACE  4,10
18590  M00S12166.1aj     +++|***       DAYFILE MESSAGES.
18591  M00S12167.1aj     +++|*
18592  M00S12168.1aj     +++|*         SYSTEM AND JOB DAYFILES.
18593  M00S12169.1aj     +++|*
18594  M00S12170.1aj     +++|*         * JOB RERUN.* = JOB TERMINATED AND INPUT FILE REQUEUED.
Line S00016 Modification History
M01 (Added by) ns2236
Seq #  *Modification Id* Act 
----------------------------+
18595  M01S00016.ns2236  +++|          SPACE  4,10
18596  M01S00017.ns2236  +++|***       ACCOUNT DAYFILE MESSAGES.
18597  M01S00018.ns2236  +++|*
18598  M01S00019.ns2236  +++|*
18599  M01S00020.ns2236  +++|*         *AERR, HW.* = JOB WAS RERUN DUE TO A HARDWARE ERROR.
18600  M00S12171.1aj     +++|          SPACE  4,10
18601  M00S12172.1aj     +++|***       OPERATOR MESSAGES.
18602  M00S12173.1aj     +++|*
18603  M00S12174.1aj     +++|*         * JOB RERUN.* = JOB TERMINATED AND INPUT FILE REQUEUED.
18604  M00S12175.1aj     +++|          SPACE  4,10
18605  M00S12176.1aj     +++|**        ROUTINES USED.
18606  M00S12177.1aj     +++|*
18607  M00S12178.1aj     +++|*         *0DF* - DROP FILE.
18608  M00S12179.1aj     +++|*         *0BQ* - BEGIN QUEUED FILE.
18609  M00S12180.1aj     +++|*         *0RF* - UPDATE RESOURCE FILES.
18610  M00S12181.1aj     +++|          SPACE  4,10
18611  M00S12182.1aj     +++|****      DIRECT LOCATION ASSIGNMENTS.
18612  M00S12183.1aj     +++|
18613  M00S12184.1aj     +++|
18614  M00S12185.1aj     +++| NL       EQU    37          NEGATIVE FL ASSIGNED
18615  M00S12186.1aj     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
18616  M00S12187.1aj     +++| RC       EQU    66          *0AU* RE-TRY COUNT
18617  M00S12188.1aj     +++|          SPACE  4,10
18618  M00S12189.1aj     +++|**        ASSEMBLY CONSTANTS.
18619  M00S12190.1aj     +++|
18620  M00S12191.1aj     +++|
18621  M00S12192.1aj     +++| IORC     EQU    9D-1        QFT RESERVATION RETRY COUNT
18622  M00S12193.1aj     +++|****
18623  M00S12194.1aj     +++|          TITLE  MAIN PROGRAM.
18624  M00S12195.1aj     +++| CJT      SPACE  4,10
18625  M00S12196.1aj     +++|**        CJT - MAIN PROGRAM.
18626  M00S12197.1aj     +++|*
18627  M00S12198.1aj     +++|*         ENTRY  (EF)   = ERROR FLAG.
18628  M00S12199.1aj     +++|*                (JO)   = EJT ORDINAL.
18629  M00S12200.1aj     +++|*                (JTOP) = JOB TERMINATION OPTION.
18630  M00S12201.1aj     +++|*
Line S12202 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18631  M01S12202.253l688 ---|*         CALLS  DAC, PRS, RCS, RDF, REQ, RIF, RLF, RLN, RRJ, URF.
Line S00057 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18632  M01S00057.253l688 +++|*         USES   CM+1, CM+2.
18633  M01S00058.253l688 +++|*
Line S00059 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2707
Seq #  *Modification Id* Act 
----------------------------+
18634  M02S00059.ns2707  ---|*         CALLS  DAC, PRS, RCS, RDF, REQ, RIF, RLF, RLN, RQF, RRJ, URF.
Line S00001 Modification History
M01 (Added by) ns2707
Seq #  *Modification Id* Act 
----------------------------+
18635  M01S00001.ns2707  +++|*         CALLS  DAC, ISE, PRS, RCS, RDF, REQ, RIF, RLF, RLN, RQF, RRJ,
18636  M01S00002.ns2707  +++|*                URF.
Line S00060 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18637  M01S00060.253l688 +++|*
18638  M01S00061.253l688 +++|*         MACROS MONITOR.
18639  M00S12203.1aj     +++|
18640  M00S12204.1aj     +++|
18641  M00S12205.1aj     +++|          ORG    E1AJ
18642  M00S12206.1aj     +++| CJT      SUBR               ENTRY/EXIT
18643  M00S12207.1aj     +++|          RJM    PRS         PRESET PROGRAM
Line S12208 Modification History
M01 (Removed by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
18644  M01S12208.1aj114  ---|          LDD    NL          CHECK NEGATIVE FL
18645  M01S12209.1aj114  ---|          ZJN    CJT1        IF NO NFL ASSIGNED
18646  M00S12210.1aj     +++|          RJM    RLF         RELEASE LOCAL FILES
18647  M00S12211.1aj     +++|          RJM    RIF         RELEASE INPUT FILE
18648  M00S12212.1aj     +++|          RJM    RDF         RELEASE DAYFILE TRACKS
18649  M00S12213.1aj     +++|          RJM    REQ         RELEASE EQUIPMENT
18650  M00S12214.1aj     +++|          RJM    URF         UPDATE RESOURCE DEMAND FILE
18651  M00S12215.1aj     +++|          RJM    RRJ         RERUN JOB
Line S12216 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18652  M01S12216.v23l617 ---| CJT1     RJM    RCS         RELEASE CONTROL STATEMENT FILE
Line S00876 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
18653  M02S00876.1aj114  ---| CJT1     RJM    RCS         RELEASE COMMAND FILE
Line S00001 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
18654  M01S00001.1aj114  +++|          RJM    RCS         RELEASE COMMAND FILE
18655  M00S12217.1aj     +++|          RJM    DAC         DECREMENT ACTIVITY COUNTS
Line S00062 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18656  M01S00062.253l688 +++|          RJM    RQF         RETRY QUEUED FUNCTIONS
18657  M00S12218.1aj     +++|          RJM    RLN         RELEASE NEGATIVE FL
Line S00003 Modification History
M01 (Added by) ns2707
Seq #  *Modification Id* Act 
----------------------------+
18658  M01S00003.ns2707  +++|          RJM    ISE         ISSUE SUBSYSTEM TERMINATION EVENT
Line S00001 Modification History
M01 (Added by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
18659  M01S00001.ns2181  +++|          LDM    CJTA        CHECK FOR DEADSTART SEQUENCING JOB
Line S00002 Modification History
M01 (Added by) ns2181
M02 (Removed by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
18660  M02S00002.ns2181b ---|          LMN    DSSC
Line S00008 Modification History
M01 (Added by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
18661  M01S00008.ns2181b +++|          LMC    DSSI
Line S00003 Modification History
M01 (Added by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
18662  M01S00003.ns2181  +++|          NJN    CJTX        IF NOT DEADSTART SEQUENCING JOB
18663  M01S00004.ns2181  +++|          LDN    1           CLEAR DEADSTART SEQUENCING FLAG
18664  M01S00005.ns2181  +++|          STD    CM+1
18665  M01S00006.ns2181  +++|          STD    CM+2
18666  M01S00007.ns2181  +++|          LDD    MA
18667  M01S00008.ns2181  +++|          CWM    CJTB,ON
18668  M01S00009.ns2181  +++|          MONITOR  UADM
18669  M00S12219.1aj     +++|          UJP    CJTX        RETURN
Line S00010 Modification History
M01 (Added by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
18670  M01S00010.ns2181  +++|
18671  M01S00011.ns2181  +++|
Line S00012 Modification History
M01 (Added by) ns2181
M02 (Removed by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
18672  M02S00012.ns2181b ---| CJTA     CON    0           SERVICE CLASS OF JOB
Line S00009 Modification History
M01 (Added by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
18673  M01S00009.ns2181b +++| CJTA     CON    0           SUBSYSTEM ID OF JOB
Line S00013 Modification History
M01 (Added by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
18674  M01S00013.ns2181  +++|
18675  M01S00014.ns2181  +++|*         PARAMETERS FOR *UADM* FUNCTION.
18676  M01S00015.ns2181  +++|
18677  M01S00016.ns2181  +++| CJTB     CON    LDOS        DECREMENT LOW CORE FIELD
18678  M01S00017.ns2181  +++|          CON    INWL        WORD ADDRESS
18679  M01S00018.ns2181  +++|          CON    15D*100+1   POSITION AND FIELD SIZE
18680  M00S12220.1aj     +++|          SPACE  4,10
18681  M00S12221.1aj     +++|**        GLOBAL DATA STORAGE.
18682  M00S12222.1aj     +++|
18683  M00S12223.1aj     +++|
18684  M00S12224.1aj     +++| IFFN     CON    0           INPUT FILE FNT INDEX
18685  M00S12225.1aj     +++|          TITLE  SUBROUTINES
18686  M00S12226.1aj     +++| DAC      SPACE  4,10
18687  M00S12227.1aj     +++|**        DAC - DECREMENT ACTIVITY COUNTS.
18688  M00S12228.1aj     +++|*
18689  M00S12229.1aj     +++|*         DECREMENTS THE FAMILY AND PROFILE FILE ACTIVITY
18690  M00S12230.1aj     +++|*         COUNTS.
18691  M00S12231.1aj     +++|*
18692  M00S12232.1aj     +++|*         USES   CM - CM+4, CN - CN+4.
18693  M00S12233.1aj     +++|*
18694  M00S12234.1aj     +++|*         MACROS MONITOR, SFA.
18695  M00S12235.1aj     +++|
18696  M00S12236.1aj     +++|
18697  M00S12237.1aj     +++| DAC      SUBR               ENTRY/EXIT
18698  M00S12238.1aj     +++|
18699  M00S12239.1aj     +++|*         DECREMENT FAMILY COUNT.
18700  M00S12240.1aj     +++|
18701  M00S12241.1aj     +++|          LDD    CP          READ FAMILY PROFILE FILE DATA
18702  M00S12242.1aj     +++|          ADK    FPFW
18703  M00S12243.1aj     +++|          CRD    CN
18704  M00S12244.1aj     +++|          ADK    PFCW-FPFW   READ PERMANENT FILE CONTROL
Line S12245 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18705  M01S12245.253l688 ---|          CRD    CM
18706  M01S12246.253l688 ---|          LDD    CM+3        GET FAMILY DEVICE ORDINAL
Line S00063 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18707  M01S00063.253l688 +++|          CRD    FN
18708  M01S00064.253l688 +++|          LDD    FN+3        GET FAMILY DEVICE ORDINAL
18709  M00S12247.1aj     +++|          ZJN    DAC1        IF NULL FAMILY
18710  M00S12248.1aj     +++|          STD    CM+1
18711  M00S12249.1aj     +++|          LMK    NEEQ
18712  M00S12250.1aj     +++|          ZJN    DAC1        IF NULL EQUIPMENT
Line S00004 Modification History
M01 (Added by) ns2355
Seq #  *Modification Id* Act 
----------------------------+
18713  M01S00004.ns2355  +++|          LMK    7777&NEEQ
18714  M01S00005.ns2355  +++|          ZJN    DAC1        IF NULL FAMILY
18715  M00S12251.1aj     +++|          LDK    DFCS        SET *DECREMENT FAMILY COUNT* FUNCTION
18716  M00S12252.1aj     +++|          STD    CM+3
Line S12253 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18717  M01S12253.253l688 ---|          MONITOR  STBM      ISSUE MONITOR REQUEST
Line S00065 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18718  M01S00065.253l688 +++|          MONITOR  SMDM      ISSUE MONITOR REQUEST
18719  M01S00066.253l688 +++|*         LDN    0
18720  M01S00067.253l688 +++|          STD    FN+3        CLEAR FAMILY DEVICE ORDINAL
18721  M01S00068.253l688 +++|          LDD    CP
18722  M01S00069.253l688 +++|          ADK    PFCW
18723  M01S00070.253l688 +++|          CWD    FN
18724  M00S12254.1aj     +++|
18725  M00S12255.1aj     +++|*         DECREMENT DAF USER COUNT.
18726  M00S12256.1aj     +++|
18727  M00S12257.1aj     +++| DAC1     LDD    CN+2        CHECK PROFILE FILE FNT ORDINAL
Line S12258 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18728  M01S12258.253l688 ---|          ZJN    DACX        IF PROFILE FILE NOT ATTACHED
Line S00071 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18729  M01S00071.253l688 +++|          ZJP    DACX        IF PROFILE FILE NOT ATTACHED
18730  M00S12259.1aj     +++|          SFA    FNT,CN+2    SET FNT ADDRESS
18731  M00S12260.1aj     +++|          ADN    FSTG        READ FST ENTRY
18732  M00S12261.1aj     +++|          CRD    CN
18733  M00S12262.1aj     +++|          LDN    ZERL
18734  M00S12263.1aj     +++|          CRD    CM
Line S12264 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18735  M01S12264.ns22000 ---|          LDD    CN          SET EQUIPMENT NUMBER
Line S00462 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18736  M01S00462.ns22000 +++|          LDD    CN          SET EST ORDINAL
18737  M00S12265.1aj     +++|          STD    CM+1
18738  M00S12266.1aj     +++|          LDK    DUCS        SET DECREMENT DAF USER COUNT FUNCTION
18739  M00S12267.1aj     +++|          STD    CM+3
Line S12268 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18740  M01S12268.253l688 ---|          MONITOR  STBM      ISSUE MONITOR REQUEST
Line S00072 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18741  M01S00072.253l688 +++|          MONITOR  SMDM      ISSUE MONITOR REQUEST
18742  M01S00073.253l688 +++|*         LDN    0
18743  M01S00074.253l688 +++|          STD    CN+2        CLEAR PROFILE FILE FNT ORDINAL
18744  M01S00075.253l688 +++|          LDD    CP
18745  M01S00076.253l688 +++|          ADK    FPFW
18746  M01S00077.253l688 +++|          CWD    CN
18747  M00S12269.1aj     +++|          UJP    DACX        RETURN
18748  M00S12270.1aj     +++| DRF      SPACE  4,10
18749  M00S12271.1aj     +++|**        DRF - DROP FILE.
18750  M00S12272.1aj     +++|*
18751  M00S12273.1aj     +++|*         ENTRY  (CN) = INDEX OF FNT ENTRY.
Line S00682 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18752  M01S00682.242l642 +++|*
18753  M01S00683.242l642 +++|*         EXIT   (A) .LT. 0 IF MASS STORAGE ERROR OR INACCESSIBLE
18754  M01S00684.242l642 +++|*                           DEVICE PREVENT FILE FROM BEING DROPPED.
18755  M00S12274.1aj     +++|*
18756  M00S12275.1aj     +++|*         USES   FA.
18757  M00S12276.1aj     +++|*
18758  M00S12277.1aj     +++|*         CALLS  *0DF*.
18759  M00S12278.1aj     +++|*
18760  M00S12279.1aj     +++|*         MACROS EXECUTE.
18761  M00S12280.1aj     +++|
18762  M00S12281.1aj     +++|
18763  M00S12282.1aj     +++| DRF      SUBR               ENTRY/EXIT
18764  M00S12283.1aj     +++|          LDD    CN          SET FNT INDEX
18765  M00S12284.1aj     +++|          STD    FA
18766  M00S12285.1aj     +++|          LDN    2           SET *DROP ROFT*, *RETURN* FLAGS FOR *0DF*
18767  M00S12286.1aj     +++|          STM    OVL-1
18768  M00S12287.1aj     +++|          EXECUTE  0DF,OVL
18769  M00S12288.1aj     +++|          UJN    DRFX        RETURN
Line S00004 Modification History
M01 (Added by) ns2707
Seq #  *Modification Id* Act 
----------------------------+
18770  M01S00004.ns2707  +++| ISE      SPACE  4,10
18771  M01S00005.ns2707  +++|**        ISE - ISSUE SUBSYSTEM TERMINATION EVENT.
18772  M01S00006.ns2707  +++|*
18773  M01S00007.ns2707  +++|*         WAKE UP SUBSYSTEM POSSIBLY WAITING FOR THIS CONTROL POINT.
18774  M01S00008.ns2707  +++|*
18775  M01S00009.ns2707  +++|*         USES   CM - CM+4.
18776  M01S00010.ns2707  +++|*
18777  M01S00011.ns2707  +++|*         MACROS MONITOR.
18778  M01S00012.ns2707  +++|
18779  M01S00013.ns2707  +++|
18780  M01S00014.ns2707  +++| ISE      SUBR               ENTRY/EXIT
18781  M01S00015.ns2707  +++| ISEA     LDN    0
18782  M01S00016.ns2707  +++|*         LDN    1           (SUBSYSTEM TERMINATION)
18783  M01S00017.ns2707  +++|          ZJN    ISEX        IF NOT SUBSYSTEM
18784  M01S00018.ns2707  +++|          LDK    ZERL        WAKE UP ANY SUBSYSTEM WAITING FOR THIS CP
18785  M01S00019.ns2707  +++|          CRD    CM
18786  M01S00020.ns2707  +++|          LDK    SSWE
18787  M01S00021.ns2707  +++|          STD    CM+4
18788  M01S00022.ns2707  +++|          MONITOR  EATM
18789  M01S00023.ns2707  +++|          UJN    ISEX        RETURN
Line S00685 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18790  M02S00685.ns2719  ---| MSR      SPACE  4,10
Line S00121 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18791  M01S00121.ns2719  +++| MSR      SPACE  4,15
Line S00686 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18792  M01S00686.242l642 +++|**        MSR - MASS STORAGE ERROR PROCESSING.
18793  M01S00687.242l642 +++|*
Line S00688 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18794  M02S00688.ns2719  ---|*         EXIT   TO *1RJ* IF JOB ROLLABLE AND RECOVERABLE ERROR.
18795  M02S00689.ns2719  ---|*                TO CALLER IF JOB NOT ROLLABLE OR NONRECOVERABLE
18796  M02S00690.ns2719  ---|*                ERROR.
Line S00122 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18797  M01S00122.ns2719  +++|*         ENTRY  (A) = MASS STORAGE DRIVER RETURN IF .LT. 0.
18798  M01S00123.ns2719  +++|*                (A) = 0 TO FORCE *1RJ* CALL.
18799  M01S00124.ns2719  +++|*                (T5) = EST ORDINAL OF INACCESSIBLE DEVICE.
18800  M01S00125.ns2719  +++|*
18801  M01S00126.ns2719  +++|*         EXIT   TO *1RJ* IF NOT NON-RECOVERABLE ERROR.
18802  M01S00127.ns2719  +++|*                TO CALLER IF NON-RECOVERABLE ERROR.
Line S00691 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18803  M01S00691.242l642 +++|*
18804  M01S00692.242l642 +++|*         USES   CM+1, IR+4.
18805  M01S00693.242l642 +++|*
18806  M01S00694.242l642 +++|*         CALLS  *1RJ*.
18807  M01S00695.242l642 +++|*
18808  M01S00696.242l642 +++|*         MACROS EXECUTE, MONITOR.
18809  M01S00697.242l642 +++|
18810  M01S00698.242l642 +++|
18811  M01S00699.242l642 +++| MSR      SUBR               ENTRY/EXIT
Line S00700 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18812  M02S00700.ns2719  ---|          LDM    RDCT        CHECK NON-RECOVERABLE MASS STORAGE ERROR
Line S00701 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18813  M01S00701.242l642 +++|          SHN    21-12
Line S00702 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18814  M02S00702.ns2719  ---|          MJN    MSRX        IF NON-RECOVERABLE
18815  M02S00703.ns2719  ---|          LDM    MSD         CHECK FOR SUBSYSTEM
18816  M02S00704.ns2719  ---|          SHN    21-13
18817  M02S00705.ns2719  ---|          PJN    MSRX        IF A SUBSYSTEM
Line S00128 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18818  M01S00128.ns2719  +++|          MJN    MSRX        IF NON-RECOVERABLE ERROR
Line S00706 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18819  M01S00706.242l642 +++|          LDD    T5          SET EQUIPMENT TO WAIT FOR
18820  M01S00707.242l642 +++|          STD    IR+4
18821  M01S00708.242l642 +++|          LDN    0           CLEAR JOB ADVANCE
18822  M01S00709.242l642 +++|          STD    CM+1
18823  M01S00710.242l642 +++|          MONITOR  JACM
Line S00711 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18824  M02S00711.ns2719  ---|          EXECUTE  1RJ       ROLL JOB
18825  M02S00712.ns2719  ---|*         LJM    PPR         DOES NOT RETURN
Line S00129 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18826  M01S00129.ns2719  +++|          EXECUTE  1RJ       RECALL *1AJ* AND ROLL OUT JOB IF POSSIBLE
18827  M00S12289.1aj     +++| RCS      SPACE  4,10
Line S12290 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18828  M01S12290.v23l617 ---|**        RCS - RELEASE CONTROL STATEMENT TRACKS.
Line S00877 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18829  M01S00877.v23l617 +++|**        RCS - RELEASE COMMAND TRACKS.
18830  M00S12291.1aj     +++|*
18831  M00S12292.1aj     +++|*         USES   CM - CM+4, CN - CN+4.
18832  M00S12293.1aj     +++|*
18833  M00S12294.1aj     +++|*         MACROS MONITOR.
18834  M00S12295.1aj     +++|
18835  M00S12296.1aj     +++|
18836  M00S12297.1aj     +++| RCS      SUBR               ENTRY/EXIT
18837  M00S12298.1aj     +++|          LDN    ZERL        CLEAR ZERO WORD
18838  M00S12299.1aj     +++|          CRD    CN
Line S12300 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18839  M01S12300.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTER
Line S00878 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18840  M01S00878.v23l617 +++|          LDD    CP          READ COMMAND POINTER
18841  M00S12301.1aj     +++|          ADK    CSPW
18842  M00S12302.1aj     +++|          CRD    CM
Line S12303 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18843  M01S12303.v23l617 ---|          LDD    CM+1        SET EOR ON CONTROL STATEMENT FILE
Line S00879 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18844  M01S00879.v23l617 +++|          LDD    CM+1        SET EOR ON COMMAND FILE
18845  M00S12304.1aj     +++|          LPC    3777
18846  M00S12305.1aj     +++|          LMC    4000
18847  M00S12306.1aj     +++|          STD    CM+1
18848  M00S12307.1aj     +++|          LDK    CSBN        SET BUFFER EMPTY
18849  M00S12308.1aj     +++|          STD    CM+3
18850  M00S12309.1aj     +++|          STD    CM+4
Line S12310 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18851  M01S12310.v23l617 ---|          LDD    CP          REWRITE CONTROL STATEMENT POINTER WORD
Line S00880 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18852  M01S00880.v23l617 +++|          LDD    CP          REWRITE COMMAND POINTER WORD
18853  M00S12311.1aj     +++|          ADK    CSPW
18854  M00S12312.1aj     +++|          CWD    CM
Line S12313 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18855  M01S12313.v23l617 ---|          ADK    CSSW-CSPW   READ CONTROL STATEMENT FILE STATUS
Line S00881 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18856  M01S00881.v23l617 +++|          ADK    CSSW-CSPW   READ COMMAND FILE STATUS
18857  M00S12314.1aj     +++|          CRD    CM+1
18858  M00S12315.1aj     +++|          CWD    CN          CLEAR FILE STATUS WORD
18859  M00S12316.1aj     +++|          LDD    CM+1        CHECK FILE SOURCE
18860  M00S12317.1aj     +++|          SHN    21-13
18861  M00S12318.1aj     +++|          MJN    RCSX        IF INPUT FILE
18862  M00S12319.1aj     +++|          LDD    CM+2        CHECK TRACK
18863  M00S12320.1aj     +++|          ZJN    RCSX        IF NO TRACKS ASSIGNED
18864  M00S12321.1aj     +++|          LDD    CM+1        SET EQUIPMENT
18865  M00S12322.1aj     +++|          LPC    777
Line S00078 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18866  M01S00078.253l688 +++|          LMD    TH          SET RETURN-ON-INACCESSIBLE
18867  M00S12323.1aj     +++|          STD    CM+1
18868  M00S12324.1aj     +++|          MONITOR  DTKM      DROP TRACKS
Line S00079 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18869  M01S00079.253l688 +++|
18870  M01S00080.253l688 +++|*         NOTE - THE *DTKM* STATUS IS NOT CHECKED.  IF TRACKS CANNOT
18871  M01S00081.253l688 +++|*         BE DROPPED ON AN INACCESSIBLE ISHARED DEVICE, THEY WILL JUST
18872  M01S00082.253l688 +++|*         BE LEFT RESERVED UNTIL THE NEXT TIME THE DEVICE IS RECOVERED
18873  M01S00083.253l688 +++|*         BY *MSM*.
18874  M01S00084.253l688 +++|
18875  M00S12325.1aj     +++|          UJP    RCSX        RETURN
18876  M00S12326.1aj     +++| RDF      SPACE  4,10
18877  M00S12327.1aj     +++|**        RDF - RELEASE DAYFILE TRACKS.
18878  M00S12328.1aj     +++|*
Line S00002 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
18879  M01S00002.1aj114  +++|*         ENTRY  (NL) = NFL SIZE.
18880  M01S00003.1aj114  +++|*
18881  M00S12329.1aj     +++|*         USES   CM+1 - CM+5, CN - CN+4.
18882  M00S12330.1aj     +++|*
18883  M00S12331.1aj     +++|*         MACROS MONITOR, NFA.
18884  M00S12332.1aj     +++|
18885  M00S12333.1aj     +++|
18886  M00S12334.1aj     +++| RDF      SUBR               ENTRY/EXIT
Line S00004 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
18887  M01S00004.1aj114  +++|          LDD    NL          CHECK NEGATIVE FL
18888  M01S00005.1aj114  +++|          ZJN    RDFX        IF NO NFL ASSIGNED
18889  M00S12335.1aj     +++|          LDN    ZERL        CLEAR ZERO WORD
18890  M00S12336.1aj     +++|          CRD    CN
Line S12337 Modification History
M01 (Removed by) ns2298
Seq #  *Modification Id* Act 
----------------------------+
18891  M01S12337.ns2298  ---|          NFA    DAPN-2      READ DAYFILE BUFFER POINTER
Line S00002 Modification History
M01 (Added by) ns2298
Seq #  *Modification Id* Act 
----------------------------+
18892  M01S00002.ns2298  +++|          NFA    DAPN+2      READ DAYFILE BUFFER POINTER
18893  M00S12338.1aj     +++|          CRD    CM+1
18894  M00S12339.1aj     +++|          CWD    CN          CLEAR DAYFILE BUFFER POINTERS
18895  M00S12340.1aj     +++|          SBN    1
18896  M00S12341.1aj     +++|          CWD    CN
18897  M00S12342.1aj     +++|          SBN    1
18898  M00S12343.1aj     +++|          CWD    CN
18899  M00S12344.1aj     +++|          LDD    CM+2        CHECK FIRST TRACK
18900  M00S12345.1aj     +++|          ZJN    RDFX        IF NO DAYFILE TRACKS ASSIGNED
Line S00085 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18901  M01S00085.253l688 +++|          LDD    TH          SET RETURN-ON-INACCESSIBLE
18902  M01S00086.253l688 +++|          RAD    CM+1
18903  M00S12346.1aj     +++|          MONITOR  DTKM      DROP TRACKS
Line S00087 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18904  M01S00087.253l688 +++|
18905  M01S00088.253l688 +++|*         NOTE - THE *DTKM* STATUS IS NOT CHECKED.  IF TRACKS CANNOT
18906  M01S00089.253l688 +++|*         BE DROPPED ON AN INACCESSIBLE ISHARED DEVICE, THEY WILL JUST
18907  M01S00090.253l688 +++|*         BE LEFT RESERVED UNTIL THE NEXT TIME THE DEVICE IS RECOVERED
18908  M01S00091.253l688 +++|*         BY *MSM*.
18909  M01S00092.253l688 +++|
18910  M00S12347.1aj     +++|          UJN    RDFX        RETURN
18911  M00S12348.1aj     +++| REQ      SPACE  4,10
18912  M00S12349.1aj     +++|**        REQ - RELEASE EQUIPMENT.
18913  M00S12350.1aj     +++|*
18914  M00S12351.1aj     +++|*         RELEASES ALL EQUIPMENT AND CHANNELS ASSIGNED
18915  M00S12352.1aj     +++|*         TO THE JOB.
18916  M00S12353.1aj     +++|*
18917  M00S12354.1aj     +++|*         USES   T1 - T4, CM - CM+4, CN - CN+4, FS - FS+4.
18918  M00S12355.1aj     +++|*
18919  M00S12356.1aj     +++|*         MACROS MONITOR.
18920  M00S12357.1aj     +++|
18921  M00S12358.1aj     +++|
18922  M00S12359.1aj     +++| REQ      SUBR               ENTRY/EXIT
18923  M00S12360.1aj     +++|          LDD    CP          READ EQUIPMENT ASSIGNED COUNTER
18924  M00S12361.1aj     +++|          ADN    EACW
18925  M00S12362.1aj     +++|          CRD    CM
18926  M00S12363.1aj     +++|          LDD    CM
18927  M00S12364.1aj     +++|          ZJN    REQX        IF NO EQUIPMENT ASSIGNED
18928  M00S12365.1aj     +++|          STD    T2          SAVE COUNT OF EQUIPMENT ASSIGNED
Line S12366 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18929  M01S12366.ns22000 ---|
18930  M01S12367.ns22000 ---|*         SET EAT FWA AND LWA+.
18931  M01S12368.ns22000 ---|
18932  M00S12369.1aj     +++|          LDN    ESTP        READ EST POINTER
18933  M00S12370.1aj     +++|          CRD    FS
Line S12371 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18934  M01S12371.ns22000 ---|          LDD    FS+1        (FS+1) = FWA OF EAT
18935  M01S12372.ns22000 ---|          SHN    1           SET EAT LWA+1
18936  M01S12373.ns22000 ---|          SBD    FS
18937  M01S12374.ns22000 ---|          STD    FS+2        (FS+2) = LWA+1 OF EAT
18938  M01S12375.ns22000 ---|          LDN    0           CLEAR INDEX
Line S00463 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18939  M01S00463.ns22000 +++|          LDN    DSEQ-1      INITIALIZE EST ORDINAL FOR SEARCH
18940  M00S12376.1aj     +++|          STD    T1
18941  M00S12377.1aj     +++|
Line S12378 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18942  M01S12378.ns22000 ---|*         RELEASE EQUIPMENT ASSIGNED IN EAT.
Line S00464 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18943  M01S00464.ns22000 +++|*         RELEASE EQUIPMENT ASSIGNED TO JOB.
18944  M00S12379.1aj     +++|
Line S12380 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18945  M01S12380.ns22000 ---| REQ1     AOD    T1          ADVANCE EQUIPMENT NUMBER
Line S00465 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18946  M01S00465.ns22000 +++| REQ1     AOD    T1          ADVANCE EST ORDINAL
18947  M00S12381.1aj     +++|          STD    CM+1
Line S12382 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18948  M01S12382.ns22000 ---|          ADD    FS+1        READ EAT ENTRY
Line S00466 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18949  M01S00466.ns22000 +++|          LMD    FS+2
18950  M01S00467.ns22000 +++|          ZJN    REQ2        IF ALL EQUIPMENT PROCESSED
18951  M01S00468.ns22000 +++|          SFA    EST,T1      READ EQUIPMENT ASSIGNMENT
18952  M01S00469.ns22000 +++|          ADK    EQAE
18953  M00S12383.1aj     +++|          CRD    CN
Line S12384 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18954  M01S12384.ns22000 ---|          LMD    FS+2
18955  M01S12385.ns22000 ---|          ZJN    REQ2        IF ALL EQUIPMENT RELEASED
18956  M00S12386.1aj     +++|          LDD    CN+4        CHECK IF EQUIPMENT ASSIGNED
Line S12387 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18957  M01S12387.ns22000 ---|          ZJN    REQ1        IF NOT ASSIGNED
18958  M00S12388.1aj     +++|          STD    CM+2        NON-ZERO FOR POSSIBLE DOWNED DEVICE
18959  M00S12389.1aj     +++|          LMD    JO          COMPARE EJT ORDINALS
18960  M00S12390.1aj     +++|          NJN    REQ1        IF NOT ASSIGNED TO THIS JOB
18961  M00S12391.1aj     +++|          MONITOR  DEQM      RELEASE EQUIPMENT
18962  M00S12392.1aj     +++|          SOD    T2
18963  M00S12393.1aj     +++|          NJN    REQ1        IF MORE EQUIPMENT TO CHECK
18964  M00S12394.1aj     +++|          LJM    REQ5        CLEAR EQUIPMENT/CHANNEL ASSIGNMENT COUNT
18965  M00S12395.1aj     +++|
18966  M00S12396.1aj     +++|*         SET CHANNEL TABLE POINTERS.
18967  M00S12397.1aj     +++|
18968  M00S12398.1aj     +++| REQ2     STD    T1          INITIALIZE EJTO TABLE INDEX
18969  M00S12399.1aj     +++|          LDK    CHTP        READ CHANNEL TABLE POINTER
18970  M00S12400.1aj     +++|          CRD    CM
18971  M00S12401.1aj     +++|          LDK    CTALL       SET LENGTH OF CHANNEL TABLE
18972  M00S12402.1aj     +++|          STD    T4
18973  M00S12403.1aj     +++|          LDD    CM+2        SET FWA OF CTIL TABLE
18974  M00S12404.1aj     +++|          SHN    14
18975  M00S12405.1aj     +++|          LMD    CM+3
18976  M00S12406.1aj     +++|          ADK    CTALL       SET FWA OF EJTO TABLE
18977  M00S12407.1aj     +++|          CRM    TREQ,T4     READ EJTO TABLE
18978  M00S12408.1aj     +++|
18979  M00S12409.1aj     +++|*         RELEASE ALL CHANNELS ASSIGNED TO JOB.
18980  M00S12410.1aj     +++|
18981  M00S12411.1aj     +++| REQ3     LDM    TREQ,T1     CHECK CHANNEL EJT ASSIGNMENT
18982  M00S12412.1aj     +++|          LMD    JO
18983  M00S12413.1aj     +++|          NJN    REQ4        IF NOT ASSIGNED TO THIS JOB
18984  M00S12414.1aj     +++|          STD    CM+4        CLEAR CP ASSIGNMENT IN REQUEST
18985  M00S12415.1aj     +++|          LDD    T1          SET CHANNEL NUMBER
18986  M00S12416.1aj     +++|          STD    CM+3
Line S12417 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
18987  M02S12417.ns2358  ---|          LDN    CCNS        SET *CHANGE CP* SUBFUNCTION
Line S00125 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
18988  M01S00125.ns2358  +++|          LDN    CCNS        SET SUBFUNCTION
Line S00713 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18989  M01S00713.242l642 +++|          LDN    CCNS        SET SUBFUNCTION
18990  M00S12418.1aj     +++|          STD    CM+2
18991  M00S12419.1aj     +++|          LDD    CP          SET CONTROL POINT NUMBER
18992  M00S12420.1aj     +++|          SHN    -7
18993  M00S12421.1aj     +++|          STD    CM+1
18994  M00S12422.1aj     +++|          MONITOR  SEQM      ISSUE MONITOR REQUEST
18995  M00S12423.1aj     +++|          SOD    T2          DECREMENT CHANNEL COUNT
18996  M00S12424.1aj     +++|          ZJN    REQ5        IF ALL CHANNELS RELEASED
18997  M00S12425.1aj     +++| REQ4     AOD    T1          ADVANCE CHANNEL NUMBER
Line S12426 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
18998  M01S12426.251l664 ---|          SBK    CTALL*5
Line S00010 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
18999  M01S00010.251l664 +++|          SBK    MXCH+1
19000  M00S12427.1aj     +++|          MJN    REQ3        IF NOT END OF EJTO TABLE
19001  M00S12428.1aj     +++|
19002  M00S12429.1aj     +++|*         CLEAR EQUIPMENT/CHANNEL ASSIGNED COUNT IN CP AREA.
19003  M00S12430.1aj     +++|
19004  M00S12431.1aj     +++| REQ5     LDD    CP          READ CP COUNT WORD
19005  M00S12432.1aj     +++|          ADK    EACW
19006  M00S12433.1aj     +++|          CRD    CM
19007  M00S12434.1aj     +++|          LDN    0           CLEAR EQUIPMENT/CHANNEL COUNT
19008  M00S12435.1aj     +++|          STD    CM
19009  M00S12436.1aj     +++|          LDD    CP          REWRITE COUNT WORD
19010  M00S12437.1aj     +++|          ADK    EACW
19011  M00S12438.1aj     +++|          CWD    CM
19012  M00S12439.1aj     +++|          LJM    REQX        RETURN
19013  M00S12440.1aj     +++| RIF      SPACE  4,15
19014  M00S12441.1aj     +++|**        RIF - RELEASE INPUT FILE.
19015  M00S12442.1aj     +++|*
Line S12443 Modification History
M01 (Removed by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
19016  M01S12443.1aj114  ---|*         ENTRY  (JTOP) = JOB TERMINATION OPTION
Line S00006 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
19017  M01S00006.1aj114  +++|*         ENTRY  (NL) = NFL SIZE.
19018  M01S00007.1aj114  +++|*                (JTOP) = JOB TERMINATION OPTION
19019  M00S12444.1aj     +++|*                (IFFN) = INPUT FILE FNT INDEX.
19020  M00S12445.1aj     +++|*
19021  M00S12446.1aj     +++|*         EXIT   INPUT FILE TRACKS RELEASED.
19022  M00S12447.1aj     +++|*
Line S12448 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
19023  M01S12448.ns2358  ---|*         USES   CN.
Line S00126 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
19024  M01S00126.ns2358  +++|*         USES   CN, CM - CM+4, FS - FS+4.
19025  M00S12449.1aj     +++|*
19026  M00S12450.1aj     +++|*         CALLS  *0DQ*.
19027  M00S12451.1aj     +++|*
19028  M00S12452.1aj     +++|*         MACROS EXECUTE, MONITOR, NFA.
19029  M00S12453.1aj     +++|
19030  M00S12454.1aj     +++|
19031  M00S12455.1aj     +++| RIF      SUBR               ENTRY/EXIT
Line S00008 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
19032  M01S00008.1aj114  +++|          LDD    NL          CHECK NEGATIVE FL
19033  M01S00009.1aj114  +++|          ZJN    RIFX        IF NO NFL ASSIGNED
19034  M00S12456.1aj     +++|          LDM    JTOP        CHECK TERMINATION OPTION
19035  M00S12457.1aj     +++|          LMK    RJJT
19036  M00S12458.1aj     +++|          ZJN    RIFX        IF JOB TO BE RERUN
Line S00882 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
19037  M01S00882.v23l617 +++|          LMN    HRJT&RJJT
19038  M01S00883.v23l617 +++|          ZJN    RIFX        IF HARDWARE RERUN
Line S00327 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19039  M01S00327.241l630 +++|          LMN    SRJT&HRJT
19040  M01S00328.241l630 +++|          ZJN    RIFX        IF JOB TO BE RERUN
19041  M00S12459.1aj     +++|          LDM    IFFN        CHECK FNT INDEX
19042  M00S12460.1aj     +++|          ZJN    RIFX        IF NO INPUT FILE
19043  M00S12461.1aj     +++|          STD    CN
19044  M00S12462.1aj     +++|          NFA    CN,R        READ INPUT FILE FST
Line S12463 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
19045  M01S12463.ns2358  ---|          ADN    FSTG
19046  M01S12464.ns2358  ---|          CRD    T1
19047  M01S12465.ns2358  ---|          LDD    T1          SET EQUIPMENT
19048  M01S12466.ns2358  ---|          STM    OVL-3
19049  M01S12467.ns2358  ---|          LDD    T2          SET FIRST TRACK
19050  M01S12468.ns2358  ---|          STM    OVL-1
19051  M01S12469.ns2358  ---|          LDN    2           SET NO QFT ENTRY PRESENT
19052  M01S12470.ns2358  ---|          STM    OVL-2
Line S00127 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
19053  M01S00127.ns2358  +++|          ADN    FSTL
19054  M01S00128.ns2358  +++|          CRD    FS
19055  M01S00129.ns2358  +++|          LDN    2           SELECT DROP QUEUE FILE NOT IN QFT
19056  M01S00130.ns2358  +++|          STM    OVL-1
19057  M00S12471.1aj     +++|          LDK    ZERL        CLEAR LOCAL FNT/FST ENTRY
19058  M00S12472.1aj     +++|          CRD    CM
19059  M00S12473.1aj     +++|          LDD    CN
19060  M00S12474.1aj     +++|          STD    CM+4
19061  M00S12475.1aj     +++|          LDN    DLFS        DELETE LOCAL FILE ENTRY
19062  M00S12476.1aj     +++|          STD    CM+1
19063  M00S12477.1aj     +++|          MONITOR  PLFM
19064  M00S12478.1aj     +++|          EXECUTE  0DQ,OVL   DROP INPUT FILE
Line S00093 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19065  M01S00093.253l688 +++|
19066  M01S00094.253l688 +++|*         NOTE - THE *DTKM* STATUS IS NOT CHECKED.  IF TRACKS CANNOT
19067  M01S00095.253l688 +++|*         BE DROPPED ON AN INACCESSIBLE ISHARED DEVICE, THEY WILL JUST
19068  M01S00096.253l688 +++|*         BE LEFT RESERVED UNTIL THE NEXT TIME THE DEVICE IS RECOVERED
19069  M01S00097.253l688 +++|*         BY *MSM*.
19070  M01S00098.253l688 +++|
19071  M00S12479.1aj     +++|          LJM    RIFX        RETURN
19072  M00S12480.1aj     +++| RLF      SPACE  4,15
19073  M00S12481.1aj     +++|**        RLF - RELEASE LOCAL FILES.
19074  M00S12482.1aj     +++|*
19075  M00S12483.1aj     +++|*         ENTRY  (NL) = NEGATIVE FL.
19076  M00S12484.1aj     +++|*
19077  M00S12485.1aj     +++|*         EXIT   LOCAL FILES RELEASED.
19078  M00S12486.1aj     +++|*                (IFFN) = INPUT FILE FNT INDEX.
19079  M00S12487.1aj     +++|*                TO *DPP* IF WAIT FOR TAPE ACTIVITY COMPLETION.
19080  M00S12488.1aj     +++|*
Line S12489 Modification History
M01 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19081  M01S12489.ns2719  ---|*         USES   CN, CM - CM+4, FN - FN+4.
Line S00130 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19082  M01S00130.ns2719  +++|*         USES   CN, T5, CM - CM+4, FN - FN+4.
19083  M00S12490.1aj     +++|*
Line S12491 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19084  M01S12491.242l642 ---|*         CALLS  DRF.
Line S00714 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19085  M01S00714.242l642 +++|*         CALLS  DRF, MSR.
19086  M00S12492.1aj     +++|*
19087  M00S12493.1aj     +++|*         MACROS NFA.
19088  M00S12494.1aj     +++|
19089  M00S12495.1aj     +++|
19090  M00S12496.1aj     +++| RLF4     LDD    CP          CHECK FOR TAPE ACTIVITY
19091  M00S12497.1aj     +++|          ADN    STSW
19092  M00S12498.1aj     +++|          CRD    CM
19093  M00S12499.1aj     +++|          LDD    CM+4
19094  M00S12500.1aj     +++|          SHN    -4
Line S12501 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19095  M01S12501.242l642 ---|          NJN    RLF2        IF TAPE ACTIVITY OUTSTANDING
Line S00715 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19096  M01S00715.242l642 +++|          NJP    RLF2        IF TAPE ACTIVITY OUTSTANDING
19097  M01S00716.242l642 +++|          LDC    0           IF NO MASS STORAGE ERROR
19098  M01S00717.242l642 +++|*         LDC    **          EQUIPMENT IF RECOVERABLE ERROR
19099  M01S00718.242l642 +++| RLFA     EQU    *-1
19100  M01S00719.242l642 +++|          ZJN    RLFX        IF NO RECOVERABLE MASS STORAGE ERROR
19101  M01S00720.242l642 +++|          STD    T5
Line S00721 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19102  M02S00721.ns2719  ---|          LDN    0           SET RECOVERABLE ERROR STATUS
19103  M02S00722.ns2719  ---|          STM    RDCT
Line S00131 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19104  M01S00131.ns2719  +++|          LDN    0           FORCE *1RJ* CALL
Line S00723 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19105  M01S00723.242l642 +++|          RJM    MSR         PROCESS MASS STORAGE ERROR
19106  M00S12502.1aj     +++|
19107  M00S12503.1aj     +++| RLF      SUBR               ENTRY/EXIT
Line S00010 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
19108  M01S00010.1aj114  +++|          LDD    NL          CHECK NEGATIVE FL
19109  M01S00011.1aj114  +++|          ZJN    RLFX        IF NO NFL ASSIGNED
19110  M00S12504.1aj     +++|          LDK    FNTN-LENF   SET FNT FWA
19111  M00S12505.1aj     +++|          STD    CN
19112  M00S12506.1aj     +++| RLF1     LDK    LENF        ADVANCE FNT INDEX
19113  M00S12507.1aj     +++|          RAD    CN
19114  M00S12508.1aj     +++|          SBD    NL
19115  M00S12509.1aj     +++|          PJN    RLF4        IF END OF FNT
19116  M00S12510.1aj     +++|          NFA    CN,R        SET FNT ADDRESS
19117  M00S12511.1aj     +++|          CRD    FN          READ FNT ENTRY
19118  M00S12512.1aj     +++|          LDD    FN
19119  M00S12513.1aj     +++|          ZJN    RLF1        IF NULL ENTRY
19120  M00S12514.1aj     +++|          LDD    FN+4        CHECK FILE TYPE
19121  M00S12515.1aj     +++|          SHN    -6
19122  M00S12516.1aj     +++|          LMK    INFT
19123  M00S12517.1aj     +++|          ZJN    RLF3        IF INPUT FILE
19124  M00S12518.1aj     +++|          RJM    DRF         DROP FILE
Line S12519 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19125  M01S12519.242l642 ---|          LDD    CP          CHECK FOR TAPE ACTIVITY
Line S00724 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19126  M02S00724.ns2719  ---|          PJN    RLF1.1      IF NO MASS STORAGE ERROR
19127  M02S00725.ns2719  ---|          LDM    RDCT        CHECK FOR RECOVERABLE MASS STORAGE ERROR
19128  M02S00726.ns2719  ---|          SHN    21-12
19129  M02S00727.ns2719  ---|          MJN    RLF1.1      IF NOT RECOVERABLE
19130  M02S00728.ns2719  ---|          LDD    T5          SET EQUIPMENT
Line S00132 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19131  M01S00132.ns2719  +++|          PJN    RLF1.1      IF NO INACCESSIBLE DEVICE ERROR
19132  M01S00133.ns2719  +++|          LDD    T5          SET INACCESSIBLE DEVICE EST ORDINAL
Line S00729 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19133  M01S00729.242l642 +++|          STM    RLFA
19134  M01S00730.242l642 +++| RLF1.1   LDD    CP          CHECK FOR TAPE ACTIVITY
19135  M00S12520.1aj     +++|          ADN    STSW
19136  M00S12521.1aj     +++|          CRD    CM
19137  M00S12522.1aj     +++|          LDD    CM+4
19138  M00S12523.1aj     +++|          SHN    -7
19139  M00S12524.1aj     +++|          ZJN    RLF1        IF NOT EXCESSIVE ACTIVITY
19140  M00S12525.1aj     +++| RLF2     LJM    DPP         DROP PP TO WAIT FOR NO ACTIVITY
19141  M00S12526.1aj     +++|
19142  M00S12527.1aj     +++|*         SET INPUT FILE FNT INDEX.
19143  M00S12528.1aj     +++|
19144  M00S12529.1aj     +++| RLF3     LDD    CN          SET FILE INDEX
19145  M00S12530.1aj     +++|          STM    IFFN
Line S12531 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19146  M01S12531.242l642 ---|          UJN    RLF1        LOOP FOR NEXT FILE
Line S00731 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19147  M01S00731.242l642 +++|          UJP    RLF1        LOOP FOR NEXT FILE
19148  M00S12532.1aj     +++| RLN      SPACE  4,10
19149  M00S12533.1aj     +++|**        RLN - RELEASE NEGATIVE FIELD LENGTH.
19150  M00S12534.1aj     +++|*
19151  M00S12535.1aj     +++|*         CALLS  NFL.
19152  M00S12536.1aj     +++|
19153  M00S12537.1aj     +++|
19154  M00S12538.1aj     +++| RLN      SUBR               ENTRY/EXIT
19155  M00S12539.1aj     +++|          LDD    NL          CHECK NEGATIVE FL ASSIGNED
19156  M00S12540.1aj     +++|          ZJN    RLNX        IF NO NEGATIVE FL ASSIGNED
19157  M00S12541.1aj     +++|          LDN    0           RELEASE NEGATIVE FL
19158  M00S12542.1aj     +++|          RJM    NFL
19159  M00S12543.1aj     +++|          UJN    RLNX        RETURN
19160  M00S12544.1aj     +++| RQI      SPACE  4,10
19161  M00S12545.1aj     +++|**        RQI - REQUEUE INPUT FILE.
19162  M00S12546.1aj     +++|*
19163  M00S12547.1aj     +++|*         ENTRY  (BFMS) = INPUT FILE ORIGINAL QFT ENTRY
19164  M00S12548.1aj     +++|*                         IN SYSTEM SECTOR BUFFER.
19165  M00S12549.1aj     +++|*                (CM+1) = ORDINAL OF NEW QFT ENTRY.
19166  M00S12550.1aj     +++|*                (CM+3 - CM+4) = CM ADDRESS OF NEW QFT ENTRY.
Line S00732 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19167  M01S00732.242l642 +++|*
19168  M01S00733.242l642 +++|*         EXIT   (A) .LT. 0 IF MASS STORAGE ERROR OR INACCESSIBLE
19169  M01S00734.242l642 +++|*                           DEVICE.
19170  M00S12551.1aj     +++|*
Line S12552 Modification History
M01 (Removed by) 1aj42
Seq #  *Modification Id* Act 
----------------------------+
19171  M01S12552.1aj42   ---|*         USES   CM - CM+4, CN - CN+4.
Line S00001 Modification History
M01 (Added by) 1aj42
Seq #  *Modification Id* Act 
----------------------------+
19172  M01S00001.1aj42   +++|*         USES   FA, CM - CM+4, CN - CN+4.
19173  M01S00002.1aj42   +++|*
19174  M01S00003.1aj42   +++|*         CALLS  WSS.
19175  M01S00004.1aj42   +++|*
19176  M01S00005.1aj42   +++|*         MACROS ENDMS, SETMS, SFA.
19177  M00S12553.1aj     +++|
19178  M00S12554.1aj     +++|
19179  M00S12555.1aj     +++| RQI      SUBR               ENTRY/EXIT
Line S00006 Modification History
M01 (Added by) 1aj42
Seq #  *Modification Id* Act 
----------------------------+
19180  M01S00006.1aj42   +++|          LDD    CM+1        SET NEW QFT ORDINAL IN SYSTEM SECTOR
19181  M01S00007.1aj42   +++|          STM    GQSS
19182  M00S12556.1aj     +++|          LDN    QFTE-1      SET ENTRY SIZE - 1
19183  M00S12557.1aj     +++|          STD    CM+2
19184  M00S12558.1aj     +++|          LDK    RTCL        READ REAL TIME CLOCK
19185  M00S12559.1aj     +++|          CRD    CN
19186  M00S12560.1aj     +++|          LDD    CN          SET QUEUE ENTRY TIME (SECONDS)
19187  M00S12561.1aj     +++|          STM    IOSS+ENTQ*5+3
19188  M00S12562.1aj     +++|          LDD    CN+1
19189  M00S12563.1aj     +++|          STM    IOSS+ENTQ*5+4
Line S12564 Modification History
M01 (Removed by) 1aj69
Seq #  *Modification Id* Act 
----------------------------+
19190  M01S12564.1aj69   ---|          SFA    QFT,CM+1    GET QFT ENTRY ADDRESS
Line S00001 Modification History
M01 (Added by) 1aj69
Seq #  *Modification Id* Act 
----------------------------+
19191  M01S00001.1aj69   +++|          LDM    JTOP        CHECK JOB TERMINATION OPTION
19192  M01S00002.1aj69   +++|          SBK    HRJT
19193  M01S00003.1aj69   +++|          ERRNG  SRJT-HRJT   CODE REQUIRES *SRJT* .GE. *HRJT*
19194  M01S00004.1aj69   +++|          MJN    RQI1        IF NOT HARDWARE/SOFTWARE ERROR RERUN
19195  M01S00005.1aj69   +++|          LDM    HRSS
19196  M01S00006.1aj69   +++|          ADM    SESS
19197  M01S00007.1aj69   +++|          LMN    1
19198  M01S00008.1aj69   +++|          ZJN    RQI1        IF FIRST ATTEMPT
19199  M01S00009.1aj69   +++|          LDN    0           SET QUEUE PRIORITY TO ZERO
19200  M01S00010.1aj69   +++|          STM    IOSS+ENTQ*5+4
19201  M01S00011.1aj69   +++|          STM    IOSS+ENTQ*5+3
19202  M01S00012.1aj69   +++| RQI1     SFA    QFT,CM+1    GET QFT ENTRY ADDRESS
19203  M00S12565.1aj     +++|          ADN    ENTQ        WRITE LAST 3 WORDS OF ENTRY
19204  M00S12566.1aj     +++|          CWM    IOSS+ENTQ*5,CM+2
19205  M00S12567.1aj     +++|          LDM    IOSS+JSNQ*5+4  CLEAN UP STATUS FIELD
19206  M00S12568.1aj     +++|          SCN    17
19207  M00S12569.1aj     +++|          STM    IOSS+JSNQ*5+4
Line S12570 Modification History
M01 (Removed by) 1aj71
Seq #  *Modification Id* Act 
----------------------------+
19208  M01S12570.1aj71   ---|          SFA    QFT,CM+1
19209  M01S12571.1aj71   ---|          CWM    IOSS+JSNQ*5,ON  WRITE FIRST WORD OF ENTRY
Line S00003 Modification History
M01 (Added by) 1aj71
Seq #  *Modification Id* Act 
----------------------------+
19210  M01S00003.1aj71   +++|          LDD    CM+1        SAVE QFT ORDINAL
19211  M01S00004.1aj71   +++|          STD    CN
Line S00008 Modification History
M01 (Added by) 1aj42
Seq #  *Modification Id* Act 
----------------------------+
19212  M01S00008.1aj42   +++|          LDN    0           REWRITE SYSTEM SECTOR
19213  M01S00009.1aj42   +++|          STD    FA
Line S00010 Modification History
M01 (Added by) 1aj42
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19214  M02S00010.242l642 ---|          SETMS  WRITE,RW
Line S00735 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19215  M01S00735.242l642 +++|          SETMS  IO,RW
Line S00011 Modification History
M01 (Added by) 1aj42
Seq #  *Modification Id* Act 
----------------------------+
19216  M01S00011.1aj42   +++|          RJM    WSS
Line S00736 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19217  M01S00736.242l642 +++|          MJN    RQI2        IF MASS STORAGE ERROR
Line S00012 Modification History
M01 (Added by) 1aj42
Seq #  *Modification Id* Act 
----------------------------+
19218  M01S00012.1aj42   +++|          ENDMS
Line S00005 Modification History
M01 (Added by) 1aj71
Seq #  *Modification Id* Act 
----------------------------+
19219  M01S00005.1aj71   +++|          SFA    QFT,CN      WRITE FIRST WORD OF THE QFT ENTRY
19220  M01S00006.1aj71   +++|          CWM    IOSS+JSNQ*5,ON
Line S12572 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19221  M01S12572.242l642 ---|          UJP    RQIX        RETURN
Line S00737 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19222  M01S00737.242l642 +++|*         LDN    0
19223  M01S00738.242l642 +++| RQI2     UJP    RQIX        RETURN
Line S00099 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19224  M01S00099.253l688 +++| RQF      SPACE  4,10
19225  M01S00100.253l688 +++|**        RQF - RETRY QUEUED FUNCTIONS.
19226  M01S00101.253l688 +++|*
19227  M01S00102.253l688 +++|*         ENTRY  (EF) = ERROR FLAG.
19228  M01S00103.253l688 +++|*                (JO) = JOB EJT ORDINAL.
19229  M01S00104.253l688 +++|*
19230  M01S00105.253l688 +++|*         USES   CM - CM+4.
19231  M01S00106.253l688 +++|*
19232  M01S00107.253l688 +++|*         CALLS  MSR, PQF.
19233  M01S00108.253l688 +++|*
19234  M01S00109.253l688 +++|*         MACROS MONITOR, SFA.
19235  M01S00110.253l688 +++|
19236  M01S00111.253l688 +++|
19237  M01S00112.253l688 +++| RQF      SUBR               ENTRY/EXIT
19238  M01S00113.253l688 +++|          RJM    PQF         PROCESS QUEUED FUNCTIONS
19239  M01S00114.253l688 +++|          LDD    AB
19240  M01S00115.253l688 +++|          ZJN    RQFX        IF NO QUEUED FUNCTIONS REMAIN
19241  M01S00116.253l688 +++|          LDD    EF
19242  M01S00117.253l688 +++|          LMK    ORET
19243  M01S00118.253l688 +++|          ZJN    RQFX        IF OPERATOR OVERRIDE REQUESTED
19244  M01S00119.253l688 +++|          LDN    1           CHANGE JOB OWNER TO *SYSTEMX*
19245  M01S00120.253l688 +++|          STD    CM+1
19246  M01S00121.253l688 +++|          LDD    MA
19247  M01S00122.253l688 +++|          CWM    RQFA,CM+1
19248  M01S00123.253l688 +++|          SFA    EJT,JO
19249  M01S00124.253l688 +++|          STD    CM+4
19250  M01S00125.253l688 +++|          SHN    -14
19251  M01S00126.253l688 +++|          STD    CM+3
19252  M01S00127.253l688 +++|          MONITOR  UTEM
Line S00134 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19253  M01S00134.ns2719  +++|          LDN    0           FORCE *1RJ* CALL
Line S00128 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19254  M01S00128.253l688 +++|          RJM    MSR         ROLLOUT IF POSSIBLE
19255  M01S00129.253l688 +++|          UJP    RQFX        RETURN
19256  M01S00130.253l688 +++|
19257  M01S00131.253l688 +++|
19258  M01S00132.253l688 +++| RQFA     VFD    1/0,5/JSNE,6/24D,6/12D,42/01377777
19259  M00S12573.1aj     +++| RRJ      SPACE  4,10
19260  M00S12574.1aj     +++|**        RRJ - RERUN JOB.
19261  M00S12575.1aj     +++|*
Line S00012 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
19262  M01S00012.1aj114  +++|*         ENTRY  (NL) = NFL SIZE.
19263  M01S00013.1aj114  +++|*
Line S12576 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19264  M01S12576.241l630 ---|*         USES   RC, T5, T6, CM - CM+7, CN - CN+4.
Line S00329 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19265  M02S00329.ns2719  ---|*         USES   RC, T5, T6, T8, CM - CM+4, CN - CN+4.
Line S00135 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19266  M01S00135.ns2719  +++|*         USES   RC, T5, T6, T8, CM - CM+7.
19267  M00S12577.1aj     +++|*
Line S12578 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19268  M01S12578.242l642 ---|*         CALLS  CTE, DFM, RIF, RQI, RSS.
Line S00739 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19269  M02S00739.ns2719  ---|*         CALLS  CTE, DFM, MSR, RIF, RQI, RSS.
Line S00136 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
19270  M01S00136.ns2719  +++|*         CALLS  CTE, DFM, MSR, RFI, RIF, RQI, RSS.
19271  M00S12579.1aj     +++|*
Line S12580 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19272  M01S12580.242l642 ---|*         MACROS DELAY, ENDMS, NFA, PAUSE, SETMS.
Line S00740 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19273  M01S00740.242l642 +++|*         MACROS DELAY, ENDMS, MONITOR, NFA, PAUSE, SETMS.
19274  M00S12581.1aj     +++|
19275  M00S12582.1aj     +++|
19276  M00S12583.1aj     +++| RRJ      SUBR               ENTRY/EXIT
Line S00014 Modification History
M01 (Added by) 1aj114
Seq #  *Modification Id* Act 
----------------------------+
19277  M01S00014.1aj114  +++|          LDD    NL          CHECK NEGATIVE FL
19278  M01S00015.1aj114  +++|          ZJN    RRJX        IF NO NFL ASSIGNED
19279  M00S12584.1aj     +++|          LDM    JTOP        CHECK JOB TERMINATION OPTION
Line S12585 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19280  M01S12585.241l630 ---|          LMN    RJJT
Line S12586 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19281  M02S12586.241l630 ---|          NJN    RRJX        IF NOT *RERUN JOB*
19282  M02S12587.241l630 ---|          LDM    IFFN
Line S00884 Modification History
M01 (Added by) v23l617
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19283  M02S00884.241l630 ---|          ZJN    RRJ0        IF *RERUN JOB*
19284  M02S00885.241l630 ---|          LMN    HRJT&RJJT
19285  M02S00886.241l630 ---|          NJN    RRJX        IF NOT *HARDWARE RERUN*
19286  M02S00887.241l630 ---| RRJ0     LDM    IFFN
Line S00330 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19287  M01S00330.241l630 +++|          SBK    RJJT
19288  M01S00331.241l630 +++|          MJN    RRJX        IF NOT SOME TYPE OF RERUN TERMINATION
19289  M01S00332.241l630 +++|          ERRNZ  HRJT-RJJT-1 CODE REQUIRES *HRJT* = *RJJT* + 1
19290  M01S00333.241l630 +++|          ERRNZ  SRJT-HRJT-1 CODE REQUIRES *SRJT* = *HRJT* + 1
19291  M01S00334.241l630 +++|          ERRNZ  NXJT-SRJT-1 CODE ASSUMES *SRJT* IS MAXIMUM RERUN TYPE
19292  M01S00335.241l630 +++|          LDM    IFFN
19293  M00S12588.1aj     +++|          ZJN    RRJX        IF NO INPUT FILE
19294  M00S12589.1aj     +++|          NFA    IFFN,R      READ INPUT FILE FST
19295  M00S12590.1aj     +++|          ADN    FSTL
19296  M00S12591.1aj     +++|          CRD    CM
19297  M00S12592.1aj     +++|          LDD    CM          SET INPUT FILE EQUIPMENT
19298  M00S12593.1aj     +++|          STD    T5
19299  M00S12594.1aj     +++|          LDD    CM+1        SET FIRST TRACK
19300  M00S12595.1aj     +++|          STD    T6
Line S12596 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19301  M01S12596.241l630 ---|          ZJP    RRJ4        IF NO TRACK ASSIGNED
Line S00336 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19302  M01S00336.241l630 +++|          ZJN    RRJ1        IF NO TRACKS ASSIGNED
Line S12597 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19303  M01S12597.242l642 ---|          SETMS  READ        SET MASS STORAGE
Line S00741 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19304  M01S00741.242l642 +++|          SETMS  IO          SET MASS STORAGE
Line S12598 Modification History
M01 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
19305  M01S12598.ns2776  ---|          LDN    0           OMIT FILE NAME COMPARE
Line S00005 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
19306  M01S00005.ns2776  +++|*         LDN    0           OMIT FILE NAME COMPARE
19307  M00S12599.1aj     +++|          RJM    RSS         READ SYSTEM SECTOR
Line S00742 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19308  M01S00742.242l642 +++|          ZJN    RRJ2        IF NO ERRORS
19309  M01S00743.242l642 +++|          MJP    RRJ9        IF MASS STORAGE ERROR
Line S12600 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19310  M01S12600.241l630 ---|          NJP    RRJ4        IF SYSTEM SECTOR ERROR
19311  M01S12601.241l630 ---|          ENDMS              RELEASE MASS STORAGE
Line S00337 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19312  M02S00337.242l642 ---|          ZJN    RRJ2        IF NO ERRORS
19313  M02S00338.242l642 ---| RRJ1     LJM    RRJ4        PROCESS NO RERUN SITUATION
Line S00744 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19314  M01S00744.242l642 +++| RRJ1     UJP    RRJ4        PROCESS NO RERUN SITUATION
Line S00339 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19315  M01S00339.241l630 +++|
19316  M01S00340.241l630 +++| RRJ2     ENDMS
19317  M00S12602.1aj     +++|          LDN    ZERL        CLEAR INPUT FILE FST
19318  M00S12603.1aj     +++|          CRD    CM+3
19319  M00S12604.1aj     +++|          NFA    IFFN,R
19320  M00S12605.1aj     +++|          ADN    FSTL
19321  M00S12606.1aj     +++|          CWD    CM+3
19322  M00S12607.1aj     +++|          LDD    CM+3        INDICATE NO INPUT FILE
19323  M00S12608.1aj     +++|          STM    IFFN
19324  M00S12609.1aj     +++|
19325  M00S12610.1aj     +++|*         RESERVE NEW QFT ENTRY FOR INPUT FILE.
19326  M00S12611.1aj     +++|
19327  M00S12612.1aj     +++|          LDK    IORC        SET RETRY COUNT
19328  M00S12613.1aj     +++|          STD    RC
19329  M00S12614.1aj     +++|          LDN    7           SET FLAGS FOR NEW QFT ENTRY
19330  M00S12615.1aj     +++|          STD    CM+7
Line S12616 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19331  M01S12616.241l630 ---| RRJ1     LDC    10000+PQFT  REQUEST QFT ENTRY WITH NO JSN
Line S00341 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
19332  M01S00341.241l630 +++|          LDM    JTOP
Proceed to Part 15
cdc/nos2.source/opl.opl871/deck/1aj.014.txt ยท Last modified: by 127.0.0.1