User Tools

Site Tools


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

Deck 1AJ Part 013

214 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
16966  M00S11232.1aj     +++|          NJN    SGD13       IF PROGRAM NOT RELOCATABLE
Line S11233 Modification History
M01 (Removed by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
16967  M01S11233.ns2268  ---|          LDD    CP          SET RELOCATABLE LOAD FLAG
Line S00008 Modification History
M01 (Added by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
16968  M01S00008.ns2268  +++|          LDM    /TCS/SCLC
16969  M01S00009.ns2268  +++|          NJN    SGD12.1     IF NOT POSSIBLE CONTINUATION CARD
16970  M01S00010.ns2268  +++|          LDC    /ERR/EM05   * INCORRECT COMMAND.*
16971  M01S00011.ns2268  +++|          LJM    SGD16       ISSUE ERROR MESSAGE
16972  M01S00012.ns2268  +++|
16973  M01S00013.ns2268  +++| SGD12.1  LDD    CP          SET RELOCATABLE LOAD FLAG
16974  M00S11234.1aj     +++|          ADC    LB1W
16975  M00S11235.1aj     +++|          STD    T1
16976  M00S11236.1aj     +++|          CRD    CM
16977  M00S11237.1aj     +++|          LDD    CM
16978  M00S11238.1aj     +++|          LMN    2
16979  M00S11239.1aj     +++|          STD    CM
16980  M00S11240.1aj     +++|          LDD    T1
16981  M00S11241.1aj     +++|          CWD    CM
16982  M00S11242.1aj     +++|          LDN    /TCS/LDR=   SET SYSTEM CALL TO CYBER LOADER
16983  M00S11243.1aj     +++|          UJN    SGD14       SET SYSTEM CALL
16984  M00S11244.1aj     +++|
Line S11245 Modification History
M01 (Removed by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
16985  M01S11245.1aj106  ---| SGD13    LMN    CLRT&RLRT
Line S00003 Modification History
M01 (Added by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
16986  M01S00003.1aj106  +++| SGD13    LMN    PRRT&RLRT
16987  M00S11246.1aj     +++|          NJN    SGD15       IF NOT VALID RECORD TYPE
Line S00014 Modification History
M01 (Added by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
16988  M01S00014.ns2268  +++|          LDC    4040        SET *ARG=* ENTRY POINT
16989  M01S00015.ns2268  +++|          STM    /TCS/CSEB
16990  M00S11247.1aj     +++|          LDN    /TCS/BEGI   SET SYSTEM CALL TO BEGIN *CCL* PROC
16991  M00S11248.1aj     +++| SGD14    STM    /TCS/CGLA   SAVE SYSTEM CALL
16992  M00S11249.1aj     +++|          LDC    /TCS/SSC    SET JUMP TO SET SYSTEM CALL
16993  M00S11250.1aj     +++|          STM    /TCS/CGLB
Line S00001 Modification History
M01 (Added by) 1aj24
Seq #  *Modification Id* Act 
----------------------------+
16994  M01S00001.1aj24   +++|          LDC    LDNI+0      ENABLE *SCL*
16995  M01S00002.1aj24   +++|          STM    /TCS/SCLE
16996  M00S11251.1aj     +++|          LJM    SGDX        RETURN
16997  M00S11252.1aj     +++|
16998  M00S11253.1aj     +++|*         GLOBAL LIBRARY DIRECTORY ERROR.
16999  M00S11254.1aj     +++|
17000  M00S11255.1aj     +++| SGD15    LDN    0
17001  M00S11256.1aj     +++|          STD    FA
Line S11257 Modification History
M01 (Removed by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17002  M01S11257.ns2031  ---|          LDC    SGDD        * GLOBAL LIBRARY DIRECTORY DEFECTIVE.*
Line S00304 Modification History
M01 (Added by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17003  M01S00304.ns2031  +++|          LDC    /ERR/EM17   * GLOBAL LIBRARY DIRECTORY DEFECTIVE.*
17004  M00S11258.1aj     +++| SGD16    LJM    /TCS/ERR1   PROCESS ERROR
17005  M00S11259.1aj     +++|
17006  M00S11260.1aj     +++|*         COLLECT NECESSARY INFORMATION OUT OF DIRECTORY.
17007  M00S11261.1aj     +++|
17008  M00S11262.1aj     +++| SGD17    LDM    1*5+0,T2    SET RANDOM ADDRESS
17009  M00S11263.1aj     +++|          STD    T6
17010  M00S11264.1aj     +++|          LDM    1*5+1,T2
17011  M00S11265.1aj     +++|          STD    T7
17012  M00S11266.1aj     +++|          ADD    T6
17013  M00S11267.1aj     +++|          ZJN    SGD15       IF RANDOM INDEX IS ZERO
17014  M00S11268.1aj     +++|
17015  M00S11269.1aj     +++|*         LOCATE LIBRARY FNT/FST.
17016  M00S11270.1aj     +++|
17017  M00S11271.1aj     +++|          LDM    2*5+0,T2    SET LIBRARY NAME
17018  M00S11272.1aj     +++|          STD    AB
17019  M00S11273.1aj     +++|          LDM    2*5+1,T2
17020  M00S11274.1aj     +++|          STD    AB+1
17021  M00S11275.1aj     +++|          LDM    2*5+2,T2
17022  M00S11276.1aj     +++|          STD    AB+2
17023  M00S11277.1aj     +++|          LDM    2*5+3,T2
17024  M00S11278.1aj     +++|          STD    AB+3
17025  M00S11279.1aj     +++|          LDN    0
17026  M00S11280.1aj     +++|          STD    AB+4
17027  M00S11281.1aj     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
17028  M00S11282.1aj     +++|          NJN    SGD18       IF USER LIBRARY FOUND
Line S11283 Modification History
M01 (Removed by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17029  M01S11283.ns2031  ---|          LDC    SGDI        * USER LIBRARY NOT FOUND.*
Line S00305 Modification History
M01 (Added by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17030  M01S00305.ns2031  +++|          LDC    /ERR/EM19   * USER LIBRARY NOT FOUND.*
17031  M00S11284.1aj     +++|          UJN    SGD16       PROCESS ERROR
17032  M00S11285.1aj     +++|
Line S11286 Modification History
M01 (Removed by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
17033  M01S11286.ns2268  ---| SGD18    LDD    CP          SET FNT ADDRESS INTO CONTROL POINT AREA
Line S00016 Modification History
M01 (Added by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
17034  M01S00016.ns2268  +++| SGD18    LDM    3*5+2,T2    GET SPECIAL ENTRY POINTS
17035  M01S00017.ns2268  +++|          LPC    4050        ALLOW *ARG=* AND *SDM=* ONLY
17036  M01S00018.ns2268  +++|          STM    /TCS/CSEB
17037  M01S00019.ns2268  +++|          LDD    CP          SET FNT ADDRESS INTO CONTROL POINT AREA
17038  M00S11287.1aj     +++|          ADC    EOCW
17039  M00S11288.1aj     +++|          CRD    CW
17040  M00S11289.1aj     +++|          LDD    FA
17041  M00S11290.1aj     +++|          STD    CW
17042  M00S11291.1aj     +++|          LDD    CP
17043  M00S11292.1aj     +++|          ADC    EOCW
17044  M00S11293.1aj     +++|          CWD    CW
17045  M00S11294.1aj     +++|          LDD    FS+3
17046  M00S11295.1aj     +++|          SHN    21-2
17047  M00S11296.1aj     +++|          PJN    SGD19       IF NOT EXECUTE-ONLY FILE
Line S11297 Modification History
M01 (Removed by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
17048  M01S11297.ns2268  ---|          LDC    4001        SET SECURE MEMORY
17049  M01S11298.ns2268  ---|          STM    /TCS/CSEB
Line S00020 Modification History
M01 (Added by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
17050  M01S00020.ns2268  +++|          LDM    /TCS/CSEB   SET *SSM=* ENTRY POINT
17051  M01S00021.ns2268  +++|          LPC    -4001
17052  M01S00022.ns2268  +++|          LMC    4001
17053  M01S00023.ns2268  +++|          STM    /TCS/CSEB
Line S00003 Modification History
M01 (Added by) 1aj60
Seq #  *Modification Id* Act 
----------------------------+
17054  M01S00003.1aj60   +++|          LDC    LPNI        ALLOW MEMORY CLEARING BEFORE LOAD
17055  M01S00004.1aj60   +++|          STM    /TCS/BCPN
Line S11299 Modification History
M01 (Removed by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
17056  M01S11299.ns2268  ---| SGD19    LDM    3*5+0,T2    SET REQUIRED FIELD LENGTH
Line S00024 Modification History
M01 (Added by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
17057  M01S00024.ns2268  +++| SGD19    LDM    /TCS/SCLC
17058  M01S00025.ns2268  +++|          NJN    SGD19.1     IF NOT POSSIBLE CONTINUATION CARD
17059  M01S00026.ns2268  +++|          LDM    /TCS/CSEB
17060  M01S00027.ns2268  +++|          SHN    21-5
17061  M01S00028.ns2268  +++|          MJN    SGD19.1     IF *ARG=* ENTRY POINT
17062  M01S00029.ns2268  +++|          LDC    /ERR/EM05   * INCORRECT COMMAND.*
17063  M01S00030.ns2268  +++|          LJM    SGD16       ISSUE ERROR MESSAGE
17064  M01S00031.ns2268  +++|
17065  M01S00032.ns2268  +++| SGD19.1  LDM    3*5+0,T2    SET REQUIRED FIELD LENGTH
17066  M00S11300.1aj     +++|          STD    CW
Line S11301 Modification History
M01 (Removed by) 1aj22
Seq #  *Modification Id* Act 
----------------------------+
17067  M01S11301.1aj22   ---|          LDM    3*5+1,T2    SET PARAMETER CRACKING FORMAT
17068  M01S11302.1aj22   ---|          LPN    1
17069  M01S11303.1aj22   ---|          RAM    /TCS/ARGA
17070  M00S11304.1aj     +++|
17071  M00S11305.1aj     +++|*         SET UP CALL TO CONVERT RANDOM ADDRESS.
17072  M00S11306.1aj     +++|
17073  M00S11307.1aj     +++|          NFA    FA,R        GET FST ENTRY
17074  M00S11308.1aj     +++|          ADN    FSTL
17075  M00S11309.1aj     +++|          CRD    FS
17076  M00S11310.1aj     +++|          LDD    FS          SET EQUIPMENT
17077  M00S11311.1aj     +++|          LPC    777
17078  M00S11312.1aj     +++|          STD    T5
17079  M00S11313.1aj     +++|          STD    CW+1        STORE EQUIPMENT IN CONTROL WORD
Line S11314 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17080  M01S11314.ns22000 ---|          ADM    ESTS        READ EST ENTRY
Line S00283 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17081  M01S00283.ns22000 +++|          SFA    EST         READ EST ENTRY
17082  M01S00284.ns22000 +++|          ADK    EQDE
17083  M00S11315.1aj     +++|          CRD    CM
17084  M00S11316.1aj     +++|          LDD    CM
17085  M00S11317.1aj     +++|          SHN    21-13
17086  M00S11318.1aj     +++|          PJN    SGD20       IF NOT ON MASS STORAGE
17087  M00S11319.1aj     +++|          LDD    T6          STORE RANDOM ADDRESS IN RI - RI+1
17088  M00S11320.1aj     +++|          STD    RI
Line S00111 Modification History
M01 (Added by) 1aj92
Seq #  *Modification Id* Act 
----------------------------+
17089  M01S00111.1aj92   +++|          SHN    14
Line S00112 Modification History
M01 (Added by) 1aj92
M02 (Removed by) 1aj92a
Seq #  *Modification Id* Act 
----------------------------+
17090  M02S00112.1aj92a  ---|          LMD    RI+1
Line S00001 Modification History
M01 (Added by) 1aj92a
Seq #  *Modification Id* Act 
----------------------------+
17091  M01S00001.1aj92a  +++|          LMD    T7
Line S00113 Modification History
M01 (Added by) 1aj92
Seq #  *Modification Id* Act 
----------------------------+
17092  M01S00113.1aj92   +++|          SHN    14
17093  M01S00114.1aj92   +++|          STM    /TCS/CGLC
17094  M01S00115.1aj92   +++|          SHN    -6
17095  M01S00116.1aj92   +++|          SCN    77
17096  M01S00117.1aj92   +++|          STM    /TCS/CGLC+1
17097  M00S11321.1aj     +++|          LDD    T7
17098  M00S11322.1aj     +++|          STD    RI+1
17099  M00S11323.1aj     +++|          LDD    FS+1        SET FIRST TRACK
17100  M00S11324.1aj     +++|          STD    T6
17101  M00S11325.1aj     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
17102  M00S11326.1aj     +++|          PJN    SGD21       IF RANDOM ADDRESS FOUND
17103  M00S11327.1aj     +++|          LJM    SGD15       PROCESS ERROR
17104  M00S11328.1aj     +++|
Line S11329 Modification History
M01 (Removed by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17105  M01S11329.ns2031  ---| SGD20    LDC    SGDH        * USER LIBRARY NOT ON MASS STORAGE.*
Line S00306 Modification History
M01 (Added by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17106  M01S00306.ns2031  +++| SGD20    LDC    /ERR/EM18   * USER LIBRARY NOT ON MASS STORAGE.*
17107  M00S11330.1aj     +++|          LJM    /TCS/ERR1   PROCESS ERROR
17108  M00S11331.1aj     +++|
17109  M00S11332.1aj     +++| SGD21    LDD    T6          STORE TRACK AND SECTOR IN CW+3 - CW+4
17110  M00S11333.1aj     +++|          STD    CW+3        TRACK
17111  M00S11334.1aj     +++|          STM    SGDC+4
17112  M00S11335.1aj     +++|          LDD    T7
17113  M00S11336.1aj     +++|          STD    CW+4
17114  M00S11337.1aj     +++|          LDN    0
17115  M00S11338.1aj     +++|          STD    CW+2        CLEAR OUT REST OF CONTROL WORD
17116  M00S11339.1aj     +++|          LDC    /TCS/SCL7   SET IF PROGRAM ABSOLUTE
17117  M00S11340.1aj     +++|          STM    /TCS/SCLA+1
17118  M00S11341.1aj     +++|          LDC    LJMI
17119  M00S11342.1aj     +++|          STM    /TCS/SCLA
17120  M00S11343.1aj     +++|          LDC    RJMI        SET RETURN JUMP IN */TCS/CGL*
17121  M00S11344.1aj     +++|          STM    /TCS/CGLB-1
17122  M00S11345.1aj     +++|          LDC    /TCS/SCL
17123  M00S11346.1aj     +++|          STM    /TCS/CGLB
17124  M00S11347.1aj     +++|          LDC    /3AE/LDU    SET *RJM* ADDRESS IN *BCP*
17125  M00S11348.1aj     +++|          STM    /TCS/BCPB
Line S00655 Modification History
M01 (Added by) ns21000
M02 (Removed by) 1aj24
Seq #  *Modification Id* Act 
----------------------------+
17126  M02S00655.1aj24   ---|          LDC    LDNI+0      ENABLE *SCL*
17127  M02S00656.1aj24   ---|          STM    /TCS/SCLE
17128  M00S11349.1aj     +++|          LDD    CP          SET USER LIBRARY LOAD FLAG
17129  M00S11350.1aj     +++|          ADC    LB1W
17130  M00S11351.1aj     +++|          STD    T1
17131  M00S11352.1aj     +++|          CRD    CM
17132  M00S11353.1aj     +++|          LDD    CM
17133  M00S11354.1aj     +++|          LMN    1
17134  M00S11355.1aj     +++|          STD    CM
17135  M00S11356.1aj     +++|          LDD    T1
17136  M00S11357.1aj     +++|          CWD    CM
17137  M00S11358.1aj     +++|          LDD    MA          SET ENTRY POINT NAME
17138  M00S11359.1aj     +++|          CWM    SGDC,ON
17139  M00S11360.1aj     +++|          SBN    1
17140  M00S11361.1aj     +++|          CRD    FS
17141  M00S11362.1aj     +++|          LJM    SGDX        RETURN
17142  M00S11363.1aj     +++|
17143  M00S11364.1aj     +++|
17144  M00S11365.1aj     +++| SGDB     VFD    48/0LZZZZZLD,12/0  GLOBAL DIRECTORY
17145  M00S11366.1aj     +++| SGDC     BSS    5           TEMPORARY STORAGE FOR ASSEMBLED NAME
Line S00532 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17146  M01S00532.242l642 +++| MSR      SPACE  4,10
17147  M01S00533.242l642 +++|**        MSR - MASS STORAGE READ ERROR PROCESSOR.
17148  M01S00534.242l642 +++|*
17149  M01S00535.242l642 +++|*         ENTRY  (A) = DRIVER REPLY.
17150  M01S00536.242l642 +++|*                (T5) = EST ORDINAL OF EQUIPMENT WITH ERROR.
17151  M01S00537.242l642 +++|*                (FA) .NE. 0 IF LOCAL FILE LOAD.
17152  M01S00538.242l642 +++|*                (FS - FS+4) = FST ENTRY.
17153  M01S00539.242l642 +++|*
17154  M01S00540.242l642 +++|*         EXIT   TO *1RJ* IF TO ROLL JOB.
Line S00541 Modification History
M01 (Added by) 242l642
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17155  M02S00541.273l780 ---|*                TO *PPR* IF CANNOT ROLL JOB.
Line S00015 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17156  M01S00015.273l780 +++|*                TO */TCS/DPP* IF NOT TO ROLL OUT JOB.
Line S00542 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17157  M01S00542.242l642 +++|*
Line S00543 Modification History
M01 (Added by) 242l642
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17158  M02S00543.273l780 ---|*         USES   IR+4, CM - CM+3, FS - FS+4.
Line S00016 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17159  M01S00016.273l780 +++|*         USES   CM+1, FS+4, IR+4.
Line S00544 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17160  M01S00544.242l642 +++|*
17161  M01S00545.242l642 +++|*         MACROS EXECUTE, MONITOR NFA.
17162  M01S00546.242l642 +++|
17163  M01S00547.242l642 +++|
17164  M01S00548.242l642 +++| MSR      BSS    0           ENTRY
17165  M01S00549.242l642 +++|          SHN    21-12
17166  M01S00550.242l642 +++|          MJN    MSR2        IF NON-RECOVERABLE
17167  M01S00551.242l642 +++|          LDM    MSD         CHECK FOR SUBSYSTEM
17168  M01S00552.242l642 +++|          SHN    21-13
17169  M01S00553.242l642 +++|          PJN    MSR2        IF A SUBSYSTEM, ABORT JOB
17170  M01S00554.242l642 +++|          LDD    T5          SET EQUIPMENT TO WAIT FOR
17171  M01S00555.242l642 +++|          STD    IR+4
17172  M01S00556.242l642 +++|          LDD    FA          CHECK REQUEST
17173  M01S00557.242l642 +++|          ZJN    MSR1        IF NOT LOCAL FILE LOAD
17174  M01S00558.242l642 +++|          LDD    FS+4        SET OPERATION COMPLETE
17175  M01S00559.242l642 +++|          SCN    77
17176  M01S00560.242l642 +++|          LMN    5
17177  M01S00561.242l642 +++|          STD    FS+4
17178  M01S00562.242l642 +++|          NFA    FA,R        STORE FST ENTRY
17179  M01S00563.242l642 +++|          ADN    FSTL
17180  M01S00564.242l642 +++|          CWD    FS
Line S00565 Modification History
M01 (Added by) 242l642
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17181  M02S00565.273l780 ---| MSR1     LDM    /TCS/SPFB   CHECK JOB ADVANCE SET FLAG
Line S00017 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17182  M01S00017.273l780 +++| MSR1     LDM    /TCS/MSRA   CHECK JOB ADVANCE SET FLAG
17183  M01S00018.273l780 +++|          LPN    1
Line S00566 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17184  M01S00566.242l642 +++|          NJN    MSR1.1      IF JOB ADVANCE NOT SET
17185  M01S00567.242l642 +++|          STD    CM+1        CLEAR JOB ADVANCE
17186  M01S00568.242l642 +++|          MONITOR  JACM
17187  M01S00569.242l642 +++| MSR1.1   EXECUTE  1RJ       ROLL JOB
17188  M01S00570.242l642 +++|*         LJM    PPR         DOES NOT RETURN
17189  M01S00571.242l642 +++|
17190  M01S00572.242l642 +++| MSR2     LDK    PPET        ABORT CONTROL POINT
17191  M01S00573.242l642 +++|          STD    CM+1
17192  M01S00574.242l642 +++|          MONITOR  CEFM
Line S00575 Modification History
M01 (Added by) 242l642
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17193  M02S00575.273l780 ---|          LDM    /TCS/SPFB   CHECK JOB ADVANCE SET FLAG
17194  M02S00576.273l780 ---|          NJN    MSR3        IF JOB ADVANCE NOT SET
17195  M02S00577.273l780 ---|          LDN    DPPS        DROP PP, CLEAR JOB ADVANCE
17196  M02S00578.273l780 ---|          STD    CM+1
17197  M02S00579.273l780 ---|          MONITOR  JACM
17198  M02S00580.273l780 ---|          UJN    MSR4        EXIT TO PP RESIDENT
17199  M02S00581.273l780 ---|
17200  M02S00582.273l780 ---| MSR3     MONITOR  DPPM      DROP PP
17201  M02S00583.273l780 ---| MSR4     LJM    PPR         EXIT TO PP RESIDENT
Line S00019 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
17202  M01S00019.273l780 +++|          LJM    /TCS/DPP    DROP PP
Line S11367 Modification History
M01 (Removed by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
17203  M01S11367.ns2031  ---| SGDD     DATA   C* GLOBAL LIBRARY DIRECTORY DEFECTIVE.*
17204  M01S11368.ns2031  ---| SGDE     DATA   C* GLOBAL LIBRARY DIRECTORY NOT FOUND.*
17205  M01S11369.ns2031  ---| SGDF     DATA   C* I/O SEQUENCE ERROR.*
17206  M01S11370.ns2031  ---| SGDG     DATA   C* ZZZZZLD NOT ON MASS STORAGE.*
17207  M01S11371.ns2031  ---| SGDH     DATA   C* USER LIBRARY NOT ON MASS STORAGE.*
17208  M01S11372.ns2031  ---| SGDI     DATA   C* USER LIBRARY NOT FOUND.*
17209  M00S11373.1aj     +++|          SPACE  4,10
17210  M00S11374.1aj     +++|**        COMMON DECKS.
17211  M00S11375.1aj     +++|
17212  M00S11376.1aj     +++|
17213  M00S11377.1aj     +++|*CALL     COMPCRA
17214  M00S11378.1aj     +++|*CALL     COMPRNS
17215  M00S11379.1aj     +++|*CALL     COMPSAF
17216  M00S11380.1aj     +++|*CALL     COMPSFB
17217  M00S11381.1aj     +++|
17218  M00S11382.1aj     +++|          ERRNG  BFMS-*
17219  M00S11383.1aj     +++|          QUAL
17220  M00S11384.1aj     +++|          TTL    1AJ/3AJ - INITIATE JOB TERMINATION.
17221  M00S11385.1aj     +++|          TITLE
17222  M00S11386.1aj     +++|          QUAL   3AJ
Line S11387 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17223  M01S11387.ns22000 ---|          IDENT  3AJ,IJTX
Line S00285 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17224  M01S00285.ns22000 +++|          IDENT  3AJ,IJTX    INITIATE JOB TERMINATION.
17225  M00S11388.1aj     +++|*COMMENT  1AJ - INITIATE JOB TERMINATION.
Line S11389 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
17226  M01S11389.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00015 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
17227  M01S00015.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
17228  M00S11390.1aj     +++|          SPACE  4,10
Line S11391 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17229  M01S11391.ns22000 ---|***       1AJ/3AJ - INITIATE JOB TERMINATION.
17230  M01S11392.ns22000 ---|*
17231  M01S11393.ns22000 ---|*         P. D. FARRELL.     81/03/17.
Line S00286 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17232  M01S00286.ns22000 +++|***       3AJ - INITIATE JOB TERMINATION.
17233  M00S11394.1aj     +++|          SPACE  4,10
17234  M00S11395.1aj     +++|***       DAYFILE MESSAGES.
17235  M00S11396.1aj     +++|*
17236  M00S11397.1aj     +++|*         ACCOUNT FILE.
17237  M00S11398.1aj     +++|*
Line S00287 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17238  M01S00287.ns22000 +++|*         *UEAC, XXXXXX.XXXUNTS.* = AUC ACTIVITY (UNITS).
17239  M01S00288.ns22000 +++|*
Line S00008 Modification History
M01 (Added by) ns2236
Seq #  *Modification Id* Act 
----------------------------+
17240  M01S00008.ns2236  +++|*         *UEMP, XXXXXX.XXXKUNS.* = MAP III ACTIVITY (KILO-UNITS).
17241  M01S00009.ns2236  +++|*
17242  M01S00010.ns2236  +++|*         *UECO, XXXXXX.XXXKCHS.* = TERMINAL CHARACTERS OUTPUT.
17243  M01S00011.ns2236  +++|*
17244  M01S00012.ns2236  +++|*         *UECI, XXXXXX.XXXKCHS.* = TERMINAL CHARACTERS INPUT.
17245  M01S00013.ns2236  +++|*
17246  M01S00014.ns2236  +++|*         *UECT, XXXXXX.XXXKCHS.* = TOTAL TERMINAL CHARACTERS.
17247  M01S00015.ns2236  +++|*
17248  M00S11399.1aj     +++|*         *UEAD, XXXXXX.XXXKUNS.* = APPLICATION UNITS (KILO-UNITS).
17249  M00S11400.1aj     +++|*
17250  M00S11401.1aj     +++|*         *UEPF, XXXXXX.XXXKUNS.* = PERMANENT FILE USAGE (KILO-UNITS).
17251  M00S11402.1aj     +++|*
17252  M00S11403.1aj     +++|*         *UEMT, XXXXXX.XXXKUNS.* = MAGNETIC TAPE USAGE (KILO-UNITS).
17253  M00S11404.1aj     +++|*
17254  M00S11405.1aj     +++|*         *UEMS, XXXXXX.XXXKUNS.* = MASS STORAGE USAGE (KILO-UNITS).
17255  M00S11406.1aj     +++|*
Line S00002 Modification History
M01 (Added by) ns2753
Seq #  *Modification Id* Act 
----------------------------+
17256  M01S00002.ns2753  +++|*         *UEOD, XXXXXX.XXXKUNS.* = OPTICAL DISK USAGE (KILO-UNITS).
17257  M01S00003.ns2753  +++|*
17258  M00S11407.1aj     +++|*         *UECP, XXXXXX.XXXSECS.* = ACCUMULATED CPU TIME (SECONDS).
17259  M00S11408.1aj     +++|*
17260  M00S11409.1aj     +++|*         *AESR, XXXXXX.XXXUNTS.* = ACCUMULATED SRUS (UNITS).
17261  M00S11410.1aj     +++|*
17262  M00S11411.1aj     +++|*         *AUSR, 000000.000UNTS.* = ACCUMULATED SRUS (UNITS) NOT
17263  M00S11412.1aj     +++|*         UPDATED INTO PROJECT PROFILE FILE.
17264  M00S11413.1aj     +++|*
17265  M00S11414.1aj     +++|*         *UEAU, 000000.000UNTS.* = APPLICATION ACCUMULATOR (UNITS).
Line S11415 Modification History
M01 (Removed by) ns2236
Seq #  *Modification Id* Act 
----------------------------+
17266  M01S11415.ns2236  ---|*
17267  M01S11416.ns2236  ---|*         *UEMP, XXXXXX.XXXKUNS.* = *MAP III* ACCUMULATOR
17268  M01S11417.ns2236  ---|*         AT END OF JOB.
17269  M00S11418.1aj     +++|          SPACE  4,10
17270  M00S11419.1aj     +++|**        ROUTINES USED.
17271  M00S11420.1aj     +++|*
17272  M00S11421.1aj     +++|*         *0AU* - UPDATE PROJECT PROFILE FILE.
17273  M00S11422.1aj     +++|          SPACE  4,10
17274  M00S11423.1aj     +++|****      DIRECT LOCATION ASSIGNMENTS.
17275  M00S11424.1aj     +++|
17276  M00S11425.1aj     +++|
17277  M00S11426.1aj     +++| NL       EQU    37          NEGATIVE FL ASSIGNED
17278  M00S11427.1aj     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
17279  M00S11428.1aj     +++| RC       EQU    66          *0AU* RE-TRY COUNT
17280  M00S11429.1aj     +++|          SPACE  4,10
17281  M00S11430.1aj     +++|**        ASSEMBLY CONSTANTS.
17282  M00S11431.1aj     +++|
17283  M00S11432.1aj     +++|
17284  M00S11433.1aj     +++| IMES     EQU    4           *0AU* RE-TRY THRESHOLD FOR MESSAGE ISSUE
17285  M00S11434.1aj     +++| MTRY     EQU    50D         MAXIMUM *0AU* RE-TRY COUNT
17286  M00S11435.1aj     +++| DELY     EQU    100000/2    DELAY FOR *0AU* RETRY
Line S00001 Modification History
M01 (Added by) ns2087
Seq #  *Modification Id* Act 
----------------------------+
17287  M01S00001.ns2087  +++|
17288  M01S00002.ns2087  +++|
17289  M01S00003.ns2087  +++|**        DEFINITION COMMON DECKS.
17290  M01S00004.ns2087  +++|
17291  M01S00005.ns2087  +++|
17292  M01S00006.ns2087  +++|          QUAL   COMSHIO
17293  M01S00007.ns2087  +++|*CALL     COMSHIO
17294  M01S00008.ns2087  +++|          QUAL   *
17295  M01S00009.ns2087  +++|
17296  M00S11436.1aj     +++|****
17297  M00S11437.1aj     +++|          TITLE  MAIN PROGRAM.
17298  M00S11438.1aj     +++| IJT      SPACE  4,10
17299  M00S11439.1aj     +++|**        IJT - INITIATE JOB TERMINATION.
17300  M00S11440.1aj     +++|*
Line S11441 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17301  M01S11441.ns22000 ---|*         EXIT   (A) = CONTINUATION CODE-
17302  M01S11442.ns22000 ---|*                    = 0 IF NO CONTROL STATEMENTS TO EXECUTE.
17303  M01S11443.ns22000 ---|*                    = 1 IF CONTROL STATEMENTS TO EXECUTE.
Line S00289 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17304  M02S00289.v23l617 ---|*         EXIT   (A) = 0 IF NO CONTROL STATEMENTS TO EXECUTE.
17305  M02S00290.v23l617 ---|*                (A) .NE. 0 IF CONTROL STATEMENTS TO EXECUTE.
Line S00810 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17306  M01S00810.v23l617 +++|*         EXIT   (A) = 0 IF NO COMMANDS TO EXECUTE.
17307  M01S00811.v23l617 +++|*                (A) .NE. 0 IF COMMANDS TO EXECUTE.
17308  M00S11444.1aj     +++|*
Line S11445 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17309  M01S11445.ns22000 ---|*         CALLS  CAC, ICS, IUA, PRS, SUV, TLD.
Line S00291 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17310  M02S00291.242l642 ---|*         CALLS  CAC, CEP, PTR, ITS, IUA, RLF, SUV, TLD.
Line S00584 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17311  M01S00584.242l642 +++|*         CALLS  CAC, CEP, ITS, IUA, PTR, RLF, SUV.
17312  M00S11446.1aj     +++|
17313  M00S11447.1aj     +++|
17314  M00S11448.1aj     +++|          ORG    E1AJ
17315  M00S11449.1aj     +++| IJT      SUBR               ENTRY/EXIT
Line S11450 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17316  M01S11450.ns22000 ---|          RJM    PRS         PRESET PROGRAM
Line S00292 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17317  M03S00292.242l642 ---|          RJM    CEP         CHECK EPILOGUE REQUIRED
Line S00293 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17318  M01S00293.ns22000 +++|          RJM    PTR         PRESET JOB TERMINATION
Line S11451 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17319  M01S11451.241l630 ---|          RJM    TLD         TERMINATE *L* DISPLAY
Line S00224 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17320  M01S00224.241l630 +++|          LDD    NL
17321  M01S00225.241l630 +++|          ZJN    IJTX        IF NO NFL, RETURN
17322  M01S00226.241l630 +++|          RJM    CEP         CHECK EPILOGUE REQUIRED
17323  M00S11452.1aj     +++|          RJM    RLF         RELEASE LOCAL FILES
17324  M00S11453.1aj     +++|          RJM    IUA         ISSUE USER ACCOUNTING MESSAGES
17325  M00S11454.1aj     +++|          RJM    CAC         CLEAR ACCOUNTING ACCUMULATORS
17326  M00S11455.1aj     +++|          RJM    SUV         SET USER VALIDATION LIMITS
Line S11456 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17327  M01S11456.ns22000 ---|          RJM    ICS         ISSUE CONTROL STATEMENTS
Line S00294 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17328  M02S00294.v23l617 ---|          RJM    ITS         ISSUE TERMINATION STATEMENTS
Line S00812 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17329  M01S00812.v23l617 +++|          RJM    ITS         ISSUE TERMINATION COMMANDS
17330  M00S11457.1aj     +++|          UJP    IJTX        EXIT
17331  M00S11458.1aj     +++|
17332  M00S11459.1aj     +++|
17333  M00S11460.1aj     +++| PFUF     CON    0           PROFILE FILE UPDATE FAILURE FLAG
17334  M00S11461.1aj     +++|          TITLE  SUBROUTINES.
17335  M00S11462.1aj     +++| CAC      SPACE  4,10
17336  M00S11463.1aj     +++|**        CAC - CLEAR USER ACCOUNTING ACCUMULATORS.
17337  M00S11464.1aj     +++|*
17338  M00S11465.1aj     +++|*         CLEARS ACCUMULATORS TO PREVENT OVERFLOW DURING
17339  M00S11466.1aj     +++|*         JOB TERMINATION PROCESSING.
17340  M00S11467.1aj     +++|*
17341  M00S11468.1aj     +++|*         EXIT   CPA ACCOUNTING ACCUMULATORS CLEARED.
17342  M00S11469.1aj     +++|*
Line S11470 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17343  M01S11470.ns2323  ---|*         USES   T0, CM - CM+4.
Line S00220 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17344  M01S00220.ns2323  +++|*         USES   T0, CM - CM+4, SP - SP+4.
17345  M00S11471.1aj     +++|
17346  M00S11472.1aj     +++|
17347  M00S11473.1aj     +++| CAC      SUBR               ENTRY/EXIT
17348  M00S11474.1aj     +++|          LDN    ZERL        CLEAR ZERO WORD
17349  M00S11475.1aj     +++|          CRD    CM
17350  M00S11476.1aj     +++|          LDD    CP          CLEAR ACCUMULATORS
17351  M00S11477.1aj     +++|          ADK    SRUW
17352  M00S11478.1aj     +++|          CWD    CM
17353  M00S11479.1aj     +++|          ADK    CPTW-SRUW
17354  M00S11480.1aj     +++|          CWD    CM
17355  M00S11481.1aj     +++|          ADK    IOAW-CPTW
17356  M00S11482.1aj     +++|          CWD    CM
17357  M00S11483.1aj     +++|          ADK    ADAW-IOAW
17358  M00S11484.1aj     +++|          CWD    CM
Line S11485 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17359  M01S11485.ns2323  ---|          ADK    UIDW-ADAW
Line S00221 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17360  M01S00221.ns2323  +++|          ADK    CSPW-ADAW
17361  M00S11486.1aj     +++|          STD    T0
Line S11487 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17362  M01S11487.ns2323  ---|          CRD    CM
17363  M01S11488.ns2323  ---|          LDD    CM+3        CLEAR CHARGE REQUIRED FLAG
17364  M01S11489.ns2323  ---|          SCN    40
17365  M01S11490.ns2323  ---|          STD    CM+3
Line S00222 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17366  M01S00222.ns2323  +++|          CRD    SP
17367  M01S00223.ns2323  +++|          LDD    SP          CLEAR CHARGE REQUIRED FLAG
17368  M01S00224.ns2323  +++|          SCN    4
17369  M01S00225.ns2323  +++|          STD    SP
17370  M00S11491.1aj     +++|          LDD    T0
Line S11492 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17371  M01S11492.ns2323  ---|          CWD    CM
Line S00226 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
17372  M01S00226.ns2323  +++|          CWD    SP
17373  M00S11493.1aj     +++|          UJN    CACX        RETURN
Line S00295 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17374  M01S00295.ns22000 +++| CEP      SPACE  4,10
17375  M01S00296.ns22000 +++|**        CEP - CHECK EPILOGUE REQUIRED.
17376  M01S00297.ns22000 +++|*
17377  M01S00298.ns22000 +++|*         EXIT   TO IJTX WITH (A) .NE. 0 IF EPILOGUE REQUIRED.
17378  M01S00299.ns22000 +++|*                TO CALLER IF EPILOGUE NOT REQUIRED.
17379  M01S00300.ns22000 +++|*
17380  M01S00301.ns22000 +++|*         USES   CM - CM+4, SP - SP+4, T1.
17381  M01S00302.ns22000 +++|*
17382  M01S00303.ns22000 +++|*         CALLS  ICS.
17383  M01S00304.ns22000 +++|*
17384  M01S00305.ns22000 +++|*         MACROS NFA.
17385  M01S00306.ns22000 +++|
17386  M01S00307.ns22000 +++|
17387  M01S00308.ns22000 +++| CEP      SUBR               ENTRY/EXIT
Line S00309 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17388  M02S00309.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTERS
Line S00813 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17389  M01S00813.v23l617 +++|          LDD    CP          READ COMMAND POINTERS
Line S00310 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17390  M01S00310.ns22000 +++|          ADN    CSPW
17391  M01S00311.ns22000 +++|          CRD    SP
17392  M01S00312.ns22000 +++|          LDD    SP
17393  M01S00313.ns22000 +++|          SHN    21-3
17394  M01S00314.ns22000 +++|          PJN    CEPX        IF NO EPILOGUE REQUIRED
17395  M01S00315.ns22000 +++|          LDN    CEPAL/5     SET WORD COUNT
17396  M01S00316.ns22000 +++|          STD    T1
17397  M01S00317.ns22000 +++|          LDC    CEPA        SET BUFFER ADDRESS
Line S00318 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17398  M02S00318.v23l617 ---|          RJM    ICS         ISSUE LOGOUT STATEMENT
Line S00814 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17399  M01S00814.v23l617 +++|          RJM    ICS         ISSUE LOGOUT COMMAND
Line S00319 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17400  M01S00319.ns22000 +++|          LJM    IJTX        EXIT TO EXECUTE EPILOGUE
17401  M01S00320.ns22000 +++|
Line S00321 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17402  M02S00321.v23l617 ---| CEPA     BSS    0           LOGOUT CONTROL STATEMENT
Line S00815 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17403  M01S00815.v23l617 +++| CEPA     BSS    0           LOGOUT COMMAND
Line S00322 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17404  M01S00322.ns22000 +++|          VFD    60/8L$LOGOUT.
17405  M01S00323.ns22000 +++| CEPAL    EQU    *-CEPA
17406  M00S11494.1aj     +++| CUF      SPACE  4,10
17407  M00S11495.1aj     +++|**        CUF - CHECK FOR PROFILE FILE UPDATE FAILURE.
17408  M00S11496.1aj     +++|*
17409  M00S11497.1aj     +++|*         ISSUES ACCOUNTING DAYFILE MESSAGE IF PROFILE FILE
17410  M00S11498.1aj     +++|*         UPDATE FAILED.
17411  M00S11499.1aj     +++|*
17412  M00S11500.1aj     +++|*         ENTRY  (PFUF) = SET IF PROFILE FILE UPDATE FAILURE.
17413  M00S11501.1aj     +++|*
17414  M00S11502.1aj     +++|*         USES   T1.
17415  M00S11503.1aj     +++|*
17416  M00S11504.1aj     +++|*         CALLS  DFM.
17417  M00S11505.1aj     +++|
17418  M00S11506.1aj     +++|
17419  M00S11507.1aj     +++| CUF      SUBR               ENTRY/EXIT
17420  M00S11508.1aj     +++|          LDM    PFUF        CHECK UPDATE FAILURE FLAG
17421  M00S11509.1aj     +++|          ZJN    CUFX        IF NO UPDATE FAILURE
17422  M00S11510.1aj     +++|          LDM    IUAB+ABSR   CHANGE MESSAGE PREFIX TO *AUSR*
17423  M00S11511.1aj     +++|          STD    T1
17424  M00S11512.1aj     +++|          STM    CUFA
17425  M00S11513.1aj     +++|          LDC    2RAU
17426  M00S11514.1aj     +++|          STI    T1
17427  M00S11515.1aj     +++|          LDC    ACFN+*
17428  M00S11516.1aj     +++| CUFA     EQU    *-1
17429  M00S11517.1aj     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
17430  M00S11518.1aj     +++|          UJN    CUFX        RETURN
17431  M00S11519.1aj     +++| DAM      SPACE  4,10
17432  M00S11520.1aj     +++|**        DAM - DISPLAY ACCOUNT MESSAGES.
17433  M00S11521.1aj     +++|*
17434  M00S11522.1aj     +++|*         ENTRY  (A) = MESSAGE ADDRESS.
17435  M00S11523.1aj     +++|*                (T4) = NUMBER OF MESSAGES - 1 TO DISPLAY.
17436  M00S11524.1aj     +++|*
17437  M00S11525.1aj     +++|*         USES   T4, T5.
17438  M00S11526.1aj     +++|*
17439  M00S11527.1aj     +++|*         CALLS  DFM.
17440  M00S11528.1aj     +++|
17441  M00S11529.1aj     +++|
17442  M00S11530.1aj     +++| DAM      SUBR               ENTRY/EXIT
17443  M00S11531.1aj     +++|          STM    DAMA        SAVE ADDRESS OF MESSAGE
17444  M00S11532.1aj     +++| DAM1     LDM    *,T4        GET MESSAGE ADDRESS
17445  M00S11533.1aj     +++| DAMA     EQU    *-1
17446  M00S11534.1aj     +++|          STD    T5
17447  M00S11535.1aj     +++|          LDM    3,T5
17448  M00S11536.1aj     +++|          ZJN    DAM2        IF QUANTITY ZERO (NO MESSAGE DISPLAYED)
17449  M00S11537.1aj     +++|          LDD    T5
17450  M00S11538.1aj     +++|          LMC    CPON
17451  M00S11539.1aj     +++|          RJM    DFM         DISPLAY IN USERS DAYFILE
17452  M00S11540.1aj     +++|          LDD    T5
17453  M00S11541.1aj     +++|          LMC    ACFN
17454  M00S11542.1aj     +++|          RJM    DFM         DISPLAY IN ACCOUNT FILE
17455  M00S11543.1aj     +++| DAM2     SOD    T4          DECREMENT MESSAGE COUNT
17456  M00S11544.1aj     +++|          PJN    DAM1        IF MORE MESSAGES
17457  M00S11545.1aj     +++|          UJN    DAMX        RETURN
17458  M00S11546.1aj     +++| IAA      SPACE  4,10
17459  M00S11547.1aj     +++|***       IAA - ISSUE APPLICATION ACCOUNTING MESSAGE.
17460  M00S11548.1aj     +++|*
Line S00001 Modification History
M01 (Added by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17461  M01S00001.1aj44   +++|*         ENTRY  (CM - CM+4) = CONTROL POINT WORD *FPFW*.
17462  M01S00002.1aj44   +++|*                (A) = APPLICATION ACCOUNTING FLAGS.
17463  M01S00003.1aj44   +++|*
17464  M00S11549.1aj     +++|*         EXIT   *UEAU* ACOUNTING MESSAGE ISSUED.
17465  M00S11550.1aj     +++|*
Line S11551 Modification History
M01 (Removed by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17466  M01S11551.1aj44   ---|*         USES   CM - CM+4, T3 - T7.
Line S00004 Modification History
M01 (Added by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17467  M01S00004.1aj44   +++|*         USES   CM - CM+4, T2 - T7.
17468  M00S11552.1aj     +++|*
17469  M00S11553.1aj     +++|*         CALLS  DFM.
17470  M00S11554.1aj     +++|*
17471  M00S11555.1aj     +++|*         MACROS MONITOR.
17472  M00S11556.1aj     +++|
17473  M00S11557.1aj     +++|
17474  M00S11558.1aj     +++| IAA      SUBR               ENTRY/EXIT
Line S11559 Modification History
M01 (Removed by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17475  M01S11559.1aj44   ---|          LDD    CP          READ CONTROL POINT WORDS
17476  M01S11560.1aj44   ---|          ADN    CPTW        CP ACCUMULATOR WORD
Line S00005 Modification History
M01 (Added by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17477  M01S00005.1aj44   +++|          STD    T2          SAVE FLAGS
17478  M01S00006.1aj44   +++|          LDD    CM          CLEAR APPLICATION ACCOUNTING FLAGS
17479  M01S00007.1aj44   +++|          LPC    6377
17480  M01S00008.1aj44   +++|          STD    CM
17481  M01S00009.1aj44   +++|          LDD    CP
17482  M01S00010.1aj44   +++|          ADK    FPFW
17483  M01S00011.1aj44   +++|          CWD    CM
17484  M01S00012.1aj44   +++|          SBN    FPFW-CPTW   CP ACCUMULATOR WORD
17485  M00S11561.1aj     +++|          CRD    T3
17486  M00S11562.1aj     +++|          ADN    CPJW-CPTW   CP TIME JOB STEP WORD
17487  M00S11563.1aj     +++|          CRD    CM
Line S00013 Modification History
M01 (Added by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17488  M01S00013.1aj44   +++|          LDD    T2          CHECK APPLICATION ACCOUNTING IN PROGRESS
17489  M01S00014.1aj44   +++|          SHN    21-11
17490  M01S00015.1aj44   +++|          PJN    IAAX        IF APPLICATION ACCOUNTING NOT IN PROGRESS
17491  M00S11564.1aj     +++|          LDD    MA          WRITE WORDS TO MESSAGE BUFFER
17492  M00S11565.1aj     +++|          CWD    T3
17493  M00S11566.1aj     +++|          ADN    1
17494  M00S11567.1aj     +++|          CWD    CM
17495  M00S11568.1aj     +++|          LDN    ABUS
17496  M00S11569.1aj     +++|          STD    CM+1        SET *ACTM* SUB-FUNCTION (ABUS)
17497  M00S11570.1aj     +++|          MONITOR  ACTM      CALCULATE CP TIME USED FOR JOB STEP
17498  M00S11571.1aj     +++|          LDD    MA          READ CONVERSION INTO MESSAGE AREA
17499  M00S11572.1aj     +++|          CRM    IAAA+3,ON
17500  M00S11573.1aj     +++|          LDC    ACFN+IAAA
17501  M00S11574.1aj     +++|          RJM    DFM         DISPLAY IN ACCOUNT FILE
17502  M00S11575.1aj     +++|          LJM    IAAX        EXIT
17503  M00S11576.1aj     +++|
17504  M00S11577.1aj     +++|
17505  M00S11578.1aj     +++|*         DAYFILE MESSAGE.
17506  M00S11579.1aj     +++|
17507  M00S11580.1aj     +++| IAAA     DATA   C*UEAU, 000000.000UNTS.*
Line S11581 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17508  M01S11581.ns22000 ---| ICS      SPACE  4,20
17509  M01S11582.ns22000 ---|**        ICS - ISSUE CONTROL STATEMENTS.
17510  M01S11583.ns22000 ---|*
17511  M01S11584.ns22000 ---|*         ISSUES JOB COMPLETION CONTROL STATEMENTS BASED UPON
17512  M01S11585.ns22000 ---|*         THE QUEUE DISPOSITION OF THE JOB.
17513  M01S11586.ns22000 ---|*
17514  M01S11587.ns22000 ---|*         ENTRY  (JTFG) = JOB TERMINATION FLAGS.
17515  M01S11588.ns22000 ---|*                (JTOP) = JOB TERMINATION OPTION.
17516  M01S11589.ns22000 ---|*
17517  M01S11590.ns22000 ---|*         EXIT   (A) = ZERO IF NO CONTROL STATEMENTS TO BE
17518  M01S11591.ns22000 ---|*                      EXECUTED.
17519  M01S11592.ns22000 ---|*                    = NONZERO IF CONTROL STATEMENTS ENTERED IN
17520  M01S11593.ns22000 ---|*                      CONTROL STATEMENT BUFFER.
17521  M01S11594.ns22000 ---|*
17522  M01S11595.ns22000 ---|*         USES   CM - CM+4, SP - SP+4.
17523  M01S11596.ns22000 ---|*
17524  M01S11597.ns22000 ---|*         MACROS NFA.
17525  M01S11598.ns22000 ---|
17526  M01S11599.ns22000 ---|
17527  M01S11600.ns22000 ---| ICS      SUBR               ENTRY/EXIT
17528  M01S11601.ns22000 ---|          LDD    CP          READ CONTROL STATEMENT POINTER
17529  M01S11602.ns22000 ---|          ADK    CSPW
17530  M01S11603.ns22000 ---|          CRD    SP
17531  M01S11604.ns22000 ---|          LDC    4000        SET EOR ON CONTROL STATEMENT RECORD
17532  M01S11605.ns22000 ---|          STD    SP+1
17533  M01S11606.ns22000 ---|          LDK    CSBN        SET CONTROL CARD BUFFER ADDRESS
17534  M01S11607.ns22000 ---|          STD    SP+3
17535  M01S11608.ns22000 ---|          STD    SP+4
17536  M01S11609.ns22000 ---|          LDM    JTOP        CHECK JOB TERMINATION OPTION
17537  M01S11610.ns22000 ---|          LMK    RJJT
17538  M01S11611.ns22000 ---|          ZJN    ICSX        IF JOB TO BE RERUN
17539  M01S11612.ns22000 ---|          LDM    JTFG        CHECK QUEUE FILE DISPOSITION
17540  M01S11613.ns22000 ---|          SHN    -6
17541  M01S11614.ns22000 ---|          LPN    7
17542  M01S11615.ns22000 ---|          LMK    NOJT
Line S11616 Modification History
M01 (Removed by) ns2010
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17543  M02S11616.ns22000 ---|          ZJP    ICSX        IF OUTPUT TO BE DROPPED
Line S00001 Modification History
M01 (Added by) ns2010
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17544  M02S00001.ns22000 ---|          NJN    ICS1        IF OUTPUT NOT TO BE DROPPED
17545  M02S00002.ns22000 ---|          LDC    **          CHECK IF ANY QUEUE FILES FOUND
17546  M02S00003.ns22000 ---| ICSC     EQU    *-1
17547  M02S00004.ns22000 ---|          ZJN    ICSX        IF NO QUEUED FILES
17548  M02S00005.ns22000 ---|          LDC    ICSBL/5     SET CONTROL STATEMENT CM WORD LENGTH
17549  M02S00006.ns22000 ---|          STM    ICSD
Line S11617 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17550  M01S11617.ns22000 ---|
17551  M01S11618.ns22000 ---|*         WRITE STATEMENTS TO CONTROL STATEMENT BUFFER.
17552  M01S11619.ns22000 ---|
Line S11620 Modification History
M01 (Removed by) ns2010
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17553  M02S11620.ns22000 ---|          LDK    ICSAL/5     SET CONTROL STATEMENTS CM WORD LENGTH
Line S00007 Modification History
M01 (Added by) ns2010
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17554  M02S00007.ns22000 ---| ICS1     LDC    ICSAL/5     SET CONTROL STATEMENT CM WORD LENGTH
17555  M02S00008.ns22000 ---|*         LDC    ICSBL/5     (SET LENGTH OF *OUT* CONTROL STATEMENT)
17556  M02S00009.ns22000 ---| ICSD     EQU    *-1
Line S11621 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17557  M01S11621.ns22000 ---|          STD    CM
17558  M01S11622.ns22000 ---|          LMC    -0          SET LIMIT
17559  M01S11623.ns22000 ---|          RAD    SP+4
17560  M01S11624.ns22000 ---|          NFA    SP+3,R      SET NFL ADDRESS OF BUFFER
17561  M01S11625.ns22000 ---|          CWM    ICSA,CM     WRITE CONTROL STATEMENTS TO BUFFER
17562  M01S11626.ns22000 ---|          LDD    CP          REWRITE CONTROL STATEMENT POINTER
17563  M01S11627.ns22000 ---|          ADK    CSPW
17564  M01S11628.ns22000 ---|          CWD    SP
17565  M01S11629.ns22000 ---|          ADK    CSSW-CSPW   READ CONTROL STATEMENT STATUS WORD
17566  M01S11630.ns22000 ---|          CRD    CM
17567  M01S11631.ns22000 ---|          STD    T0          SAVE WORD ADDRESS
17568  M01S11632.ns22000 ---|          LDD    CM          CLEAR SKIP-TO-EXIT FLAG
17569  M01S11633.ns22000 ---|          LPC    5777
17570  M01S11634.ns22000 ---|          STD    CM
17571  M01S11635.ns22000 ---|          LDD    T0          REWRITE CONTROL STATEMENT STATUS WORD
17572  M01S11636.ns22000 ---|          CWD    CM
Line S00001 Modification History
M01 (Added by) 1aj33
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17573  M02S00001.ns22000 ---|          LDN    ZERL        CLEAR *SHELL* CONTROL
17574  M02S00002.ns22000 ---|          CRD    CM
17575  M02S00003.ns22000 ---|          NFA    SHCN
17576  M02S00004.ns22000 ---|          CWD    CM
Line S11637 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17577  M01S11637.ns22000 ---|          UJP    ICSX        RETURN
17578  M01S11638.ns22000 ---|
17579  M01S11639.ns22000 ---|
17580  M01S11640.ns22000 ---|*         TERMINATION CONTROL STATEMENTS.
17581  M01S11641.ns22000 ---|
17582  M01S11642.ns22000 ---| ICSA     BSS    0
17583  M01S11643.ns22000 ---|          VFD    60/10L$OUT(*/OP=
17584  M01S11644.ns22000 ---|          VFD    60/2LE)
Line S00010 Modification History
M01 (Added by) ns2010
M02 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17585  M02S00010.ns22000 ---| ICSBL    EQU    *-ICSA
Line S11645 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17586  M01S11645.ns22000 ---|          VFD    60/10L$DAYFILE(O
17587  M01S11646.ns22000 ---|          VFD    60/10LUTPUT,JT=D
17588  M01S11647.ns22000 ---|          VFD    60/1L)
17589  M01S11648.ns22000 ---| ICSAL    EQU    *-ICSA
Line S00324 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17590  M01S00324.ns22000 +++| ICS      SPACE  4,15
Line S00325 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17591  M02S00325.v23l617 ---|**        ICS - ISSUE CONTROL STATEMENTS.
Line S00816 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17592  M01S00816.v23l617 +++|**        ICS - ISSUE COMMANDS.
Line S00326 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17593  M01S00326.ns22000 +++|*
Line S00327 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17594  M02S00327.v23l617 ---|*         ISSUES CONTROL STATEMENTS SPECIFIED BY CALLER.
Line S00817 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17595  M01S00817.v23l617 +++|*         ISSUES COMMANDS SPECIFIED BY CALLER.
Line S00328 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17596  M01S00328.ns22000 +++|*
Line S00329 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17597  M02S00329.v23l617 ---|*         ENTRY  (A) = STATEMENT ADDRESS.
17598  M02S00330.v23l617 ---|*                (T1) = WORD COUNT OF STATEMENTS.
Line S00818 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17599  M01S00818.v23l617 +++|*         ENTRY  (A) = COMMAND ADDRESS.
17600  M01S00819.v23l617 +++|*                (T1) = WORD COUNT OF COMMANDS.
Line S00331 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17601  M01S00331.ns22000 +++|*
17602  M01S00332.ns22000 +++|*         EXIT   (A) .NE. 0.
Line S00333 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17603  M02S00333.v23l617 ---|*                CONTROL STATEMENTS ENTERED IN CONTROL STATEMENT
Line S00820 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17604  M01S00820.v23l617 +++|*                COMMANDS ENTERED IN COMMAND
Line S00334 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17605  M01S00334.ns22000 +++|*                BUFFER.
17606  M01S00335.ns22000 +++|*                *SHELL* CONTROL CLEARED.
17607  M01S00336.ns22000 +++|*
Line S00337 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17608  M02S00337.1aj73   ---|*         USES   SP - SP+4.
Line S00001 Modification History
M01 (Added by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17609  M01S00001.1aj73   +++|*         USES   CM - CM+4, SP - SP+4.
Line S00338 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17610  M01S00338.ns22000 +++|*
17611  M01S00339.ns22000 +++|*         MACROS NFA.
17612  M01S00340.ns22000 +++|
17613  M01S00341.ns22000 +++|
17614  M01S00342.ns22000 +++| ICS      SUBR               ENTRY/EXIT
Line S00343 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17615  M02S00343.v23l617 ---|          STM    ICSA        SET STATEMENT ADDRESS
17616  M02S00344.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT POINTERS
Line S00821 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17617  M01S00821.v23l617 +++|          STM    ICSA        SET COMMAND ADDRESS
17618  M01S00822.v23l617 +++|          LDD    CP          READ COMMAND POINTERS
Line S00345 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17619  M01S00345.ns22000 +++|          ADN    CSPW
17620  M01S00346.ns22000 +++|          CRD    SP
Line S00002 Modification History
M01 (Added by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17621  M01S00002.1aj73   +++|          ADN    CSSW-CSPW
17622  M01S00003.1aj73   +++|          CRD    CM
17623  M01S00004.1aj73   +++|          LDD    CM          CLEAR SKIP TO EXIT
17624  M01S00005.1aj73   +++|          LPC    5777
17625  M01S00006.1aj73   +++|          STD    CM
Line S00347 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17626  M02S00347.v23l617 ---|          LDC    4000        SET EOR ON CONTROL STATEMENTS
Line S00823 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17627  M01S00823.v23l617 +++|          LDC    4000        SET EOR ON COMMANDS
Line S00348 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17628  M01S00348.ns22000 +++|          STD    SP+1
Line S00349 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17629  M02S00349.v23l617 ---|          LDC    CSBN        SET CONTROL STATEMENT ADDRESS
Line S00824 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17630  M01S00824.v23l617 +++|          LDC    CSBN        SET COMMAND ADDRESS
Line S00350 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17631  M01S00350.ns22000 +++|          STD    SP+3
17632  M01S00351.ns22000 +++|          SBD    T1          SET LIMIT
17633  M01S00352.ns22000 +++|          STD    SP+4
Line S00353 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17634  M02S00353.v23l617 ---|          LDD    CP          WRITE CONTROL STATEMENT POINTERS
Line S00825 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17635  M01S00825.v23l617 +++|          LDD    CP          WRITE COMMAND POINTERS
Line S00354 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17636  M01S00354.ns22000 +++|          ADN    CSPW
17637  M01S00355.ns22000 +++|          CWD    SP
Line S00007 Modification History
M01 (Added by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17638  M01S00007.1aj73   +++|          ADN    CSSW-CSPW
17639  M01S00008.1aj73   +++|          CWD    CM
Line S00356 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17640  M02S00356.v23l617 ---|          NFA    SP+3,R      WRITE CONTROL STATEMENTS TO BUFFER
Line S00826 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17641  M01S00826.v23l617 +++|          NFA    SP+3,R      WRITE COMMANDS TO BUFFER
Line S00357 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17642  M01S00357.ns22000 +++|          CWM    *,T1
Line S00358 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17643  M02S00358.v23l617 ---| ICSA     EQU    *-1         (ADDRESS OF CONTROL STATEMENTS)
Line S00827 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17644  M01S00827.v23l617 +++| ICSA     EQU    *-1         (ADDRESS OF COMMANDS)
Line S00359 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17645  M01S00359.ns22000 +++|          LDN    ZERL        CLEAR *SHELL* CONTROL
17646  M01S00360.ns22000 +++|          CRD    CM
17647  M01S00361.ns22000 +++|          NFA    SHCN
17648  M01S00362.ns22000 +++|          CWD    CM
Line S00363 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17649  M02S00363.1aj73   ---|          UJN    ICSX        EXIT
Line S00009 Modification History
M01 (Added by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17650  M01S00009.1aj73   +++|          LJM    ICSX        RETURN
Line S00364 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17651  M01S00364.ns22000 +++| ITS      SPACE  4,15
Line S00365 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17652  M02S00365.v23l617 ---|**        ITS - ISSUE JOB TERMINATION CONTROL STATEMENTS.
Line S00828 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17653  M01S00828.v23l617 +++|**        ITS - ISSUE JOB TERMINATION COMMANDS.
Line S00366 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17654  M01S00366.ns22000 +++|*
Line S00367 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17655  M02S00367.v23l617 ---|*         ISSUES JOB TERMINATION CONTROL STATEMENTS BASED ON THE
Line S00829 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17656  M01S00829.v23l617 +++|*         ISSUES JOB TERMINATION COMMANDS BASED ON THE
Line S00368 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17657  M01S00368.ns22000 +++|*         DISPOSITION OF THE JOB.
17658  M01S00369.ns22000 +++|*
17659  M01S00370.ns22000 +++|*         ENTRY  (JTFG) = JOB TERMINATION FLAGS.
17660  M01S00371.ns22000 +++|*                (JTOP) = JOB TERMINATION OPTION.
17661  M01S00372.ns22000 +++|*                (ITSA) = QUEUED FILES FLAG.
17662  M01S00373.ns22000 +++|*
Line S00374 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17663  M02S00374.241l630 ---|*         USES   CM - CM+4, T1.
Line S00227 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17664  M01S00227.241l630 +++|*         EXIT   (A) = 0, IF NO JOB TERMINATION COMMANDS TO PROCESS.
17665  M01S00228.241l630 +++|*
17666  M01S00229.241l630 +++|*         USES   CM - CM+4, T1 - T7.
Line S00375 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17667  M01S00375.ns22000 +++|*
Line S00376 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17668  M02S00376.241l630 ---|*         CALLS  ICS.
Line S00230 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17669  M02S00230.242l642 ---|*         CALLS  ICS, RSS.
Line S00585 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17670  M01S00585.242l642 +++|*         CALLS  ICS, MSR, RSS.
Line S00231 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17671  M01S00231.241l630 +++|*
17672  M01S00232.241l630 +++|*         MACROS ENDMS, NFA, SETMS.
Line S00377 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17673  M01S00377.ns22000 +++|
17674  M01S00378.ns22000 +++|
17675  M01S00379.ns22000 +++| ITS      SUBR               ENTRY/EXIT
Line S00045 Modification History
M01 (Added by) 1aj46
Seq #  *Modification Id* Act 
----------------------------+
17676  M01S00045.1aj46   +++|          LDN    ITSCL/5     PRESET WORD COUNT
17677  M01S00046.1aj46   +++|          STD    T1
Line S00380 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17678  M02S00380.241l630 ---|          LDM    JTOP        CHECK TERMINATION OPTION
17679  M02S00381.241l630 ---|          LMN    RJJT
Line S00382 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj46
M03 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17680  M03S00382.241l630 ---|          ZJN    ITSX        IF JOB TO BE RERUN
17681  M03S00383.241l630 ---|          LDN    ITSCL/5     PRESET WORD COUNT
17682  M03S00384.241l630 ---|          STD    T1
17683  M03S00385.241l630 ---|          LDM    JTFG        CHECK QUEUE FILE DISPOSITION
Line S00047 Modification History
M01 (Added by) 1aj46
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17684  M02S00047.241l630 ---|          NJN    ITS1        IF JOB NOT TO BE RERUN
17685  M02S00048.241l630 ---|          LDM    JTFG        CHECK QUEUE FILE DISPOSITION
Line S00049 Modification History
M01 (Added by) 1aj46
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17686  M03S00049.242l642 ---|          SHN    -6
Line S00586 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17687  M01S00586.242l642 +++|          LPN    7
Line S00050 Modification History
M01 (Added by) 1aj46
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17688  M02S00050.241l630 ---|          LMN    NOJT
17689  M02S00051.241l630 ---|          ZJN    ITSX        IF OUTPUT TO BE DROPPED
17690  M02S00052.241l630 ---|          LDN    ITSDL/5     SET UP RERUN COMMANDS
17691  M02S00053.241l630 ---|          STD    T1
17692  M02S00054.241l630 ---|          LDC    ITSD
17693  M02S00055.241l630 ---|          STM    ITSC
17694  M02S00056.241l630 ---|          UJN    ITS2        ISSUE RERUN COMMANDS
17695  M02S00057.241l630 ---|
Line S00058 Modification History
M01 (Added by) 1aj46
M02 (Removed by) v23l617
M03 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17696  M03S00058.241l630 ---| ITS1     LDM    JTFG        CHECK QUEUE FILE DISPOSITION
Line S00830 Modification History
M01 (Added by) v23l617
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17697  M02S00830.241l630 ---| ITS1     LMN    HRJT&RJJT
17698  M02S00831.241l630 ---|          ZJN    ITSX        IF HARDWARE RERUN, OUTPUT IS DROPPED
17699  M02S00832.241l630 ---|          LDM    JTFG
Line S00386 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17700  M03S00386.242l642 ---|          SHN    -6
Line S00233 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17701  M01S00233.241l630 +++|          LDM    JTOP        GET JOB TERMINATION OPTION
17702  M01S00234.241l630 +++|          SBN    NXJT
17703  M01S00235.241l630 +++|          PJN    ITS1        IF BAD TERMINATION CODE
17704  M01S00236.241l630 +++|          ADN    NXJT
17705  M01S00237.241l630 +++|          STD    CM
17706  M01S00238.241l630 +++|          LDM    ITSE,CM
17707  M01S00239.241l630 +++|          NJN    ITS4        IF TERMINATION COMMAND PREPROCESSOR
17708  M01S00240.241l630 +++| ITS1     LDM    JTFG
Line S00387 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17709  M01S00387.ns22000 +++|          LPN    7
17710  M01S00388.ns22000 +++|          LMN    NOJT
Line S00389 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj46
Seq #  *Modification Id* Act 
----------------------------+
17711  M02S00389.1aj46   ---|          NJN    ITS1        IF OUTPUT NOT TO BE DROPPED
Line S00059 Modification History
M01 (Added by) 1aj46
Seq #  *Modification Id* Act 
----------------------------+
17712  M01S00059.1aj46   +++|          NJN    ITS2        IF OUTPUT NOT TO BE DROPPED
Line S00390 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17713  M01S00390.ns22000 +++|          LDC    0
17714  M01S00391.ns22000 +++| ITSA     EQU    *-1         (QUEUED FILES FLAG)
17715  M01S00392.ns22000 +++|          ZJN    ITSX        IF NO QUEUED FILES
17716  M01S00393.ns22000 +++|          LDN    ITSBL/5     SET WORD COUNT
17717  M01S00394.ns22000 +++|          STD    T1
Line S00395 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj46
Seq #  *Modification Id* Act 
----------------------------+
17718  M02S00395.1aj46   ---| ITS1     LDC    ITSB        SET BUFFER ADDRESS
Line S00060 Modification History
M01 (Added by) 1aj46
Seq #  *Modification Id* Act 
----------------------------+
17719  M01S00060.1aj46   +++| ITS2     LDC    ITSB        SET BUFFER ADDRESS
17720  M01S00061.1aj46   +++|*         LDC    ITSD        (RERUN OF JOB)
17721  M01S00062.1aj46   +++| ITSC     EQU    *-1
Line S00396 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17722  M02S00396.v23l617 ---|          RJM    ICS         ISSUE CONTROL STATEMENTS
17723  M02S00397.v23l617 ---|          LDD    CP          READ CONTROL STATEMENT STATUS WORD
Line S00833 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17724  M01S00833.v23l617 +++|          RJM    ICS         ISSUE COMMANDS
Line S00834 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17725  M02S00834.1aj73   ---|          LDD    CP          READ COMMAND STATUS WORD
Line S00398 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17726  M02S00398.1aj73   ---|          ADN    CSSW
17727  M02S00399.1aj73   ---|          CRD    CM
17728  M02S00400.1aj73   ---|          LDD    CM          CLEAR SKIP TO EXIT FLAG
17729  M02S00401.1aj73   ---|          LPC    5777
17730  M02S00402.1aj73   ---|          STD    CM
Line S00403 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
M03 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17731  M03S00403.1aj73   ---|          LDD    CP          WRITE CONTROL STATEMENT STATUS WORD
Line S00835 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17732  M02S00835.1aj73   ---|          LDD    CP          WRITE COMMAND STATUS WORD
Line S00404 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj73
Seq #  *Modification Id* Act 
----------------------------+
17733  M02S00404.1aj73   ---|          ADN    CSSW
17734  M02S00405.1aj73   ---|          CWD    CM
Line S00406 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17735  M02S00406.241l630 ---|          LJM    ITSX        EXIT
Line S00241 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17736  M01S00241.241l630 +++| ITS3     LJM    ITSX        RETURN
17737  M01S00242.241l630 +++|
17738  M01S00243.241l630 +++| ITS4     STD    CM
17739  M01S00244.241l630 +++|          LJM    0,CM        PREPROCESS TERMINATION COMMAND
17740  M01S00245.241l630 +++|
17741  M01S00246.241l630 +++|*         *RJJT* TERMINATION PREPROCESSING.
17742  M01S00247.241l630 +++|
17743  M01S00248.241l630 +++| ITS5     LDM    JTFG        CHECK QUEUE FILE DISPOSITION
17744  M01S00249.241l630 +++|          LPN    7
17745  M01S00250.241l630 +++|          LMN    NOJT
17746  M01S00251.241l630 +++|          ZJN    ITS3        IF OUTPUT TO BE DROPPED
17747  M01S00252.241l630 +++|          LDN    ITSDL/5     SET UP RERUN COMMANDS
17748  M01S00253.241l630 +++|          STD    T1
17749  M01S00254.241l630 +++|          LDC    ITSD
17750  M01S00255.241l630 +++|          STM    ITSC
17751  M01S00256.241l630 +++|          LJM    ITS2        ISSUE RERUN COMMANDS
17752  M01S00257.241l630 +++|
17753  M01S00258.241l630 +++|*         *SRJT* OR *HRJT* TERMINATION PREPROCESSING.
17754  M01S00259.241l630 +++|
17755  M01S00260.241l630 +++| ITS6     NFA    FNTN        READ INPUT FILE FST
17756  M01S00261.241l630 +++|          CRD    T1
17757  M01S00262.241l630 +++|          ADN    FSTL
17758  M01S00263.241l630 +++|          CRD    CM
17759  M01S00264.241l630 +++|          LDD    T1
Line S00265 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17760  M02S00265.242l642 ---|          ZJN    ITS7        IF NULL ENTRY
Line S00587 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17761  M01S00587.242l642 +++| ITS7     ZJN    ITS3        IF NULL ENTRY
Line S00266 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17762  M01S00266.241l630 +++|          LDD    T1+4        CHECK FILE TYPE
17763  M01S00267.241l630 +++|          SHN    -6
17764  M01S00268.241l630 +++|          LMK    INFT
Line S00269 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17765  M02S00269.242l642 ---|          NJN    ITS7        IF NOT INPUT FILE
Line S00588 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17766  M01S00588.242l642 +++|          NJN    ITS8        IF NOT INPUT FILE
Line S00270 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17767  M01S00270.241l630 +++|          LDD    CM
17768  M01S00271.241l630 +++|          STD    T5          SET INPUT FILE EST ORDINAL
17769  M01S00272.241l630 +++|          LDD    CM+1
17770  M01S00273.241l630 +++|          STD    T6          SET FIRST TRACK
17771  M01S00274.241l630 +++|          ZJN    ITS7        IF NO FIRST TRACK ASSIGNED
Line S00275 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17772  M02S00275.242l642 ---|          SETMS  READ        SET MASS STORAGE
Line S00589 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17773  M01S00589.242l642 +++|          SETMS  IO
Line S00276 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17774  M02S00276.ns2776  ---|          LDN    0           OMIT FILE NAME COMPARE
Line S00004 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
17775  M01S00004.ns2776  +++|*         LDN    0           OMIT FILE NAME COMPARE
Line S00277 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17776  M01S00277.241l630 +++|          RJM    RSS         READ SYSTEM SECTOR
Line S00278 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17777  M02S00278.242l642 ---|          NJN    ITS7        IF SYSTEM SECTOR READ ERROR
Line S00590 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17778  M01S00590.242l642 +++|          MJN    ITS9        IF MASS STORAGE ERROR
17779  M01S00591.242l642 +++| ITS8     NJN    ITS10       IF SYSTEM SECTOR READ ERROR
Line S00279 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17780  M01S00279.241l630 +++|          ENDMS
17781  M01S00280.241l630 +++|          LDM    JTOP
17782  M01S00281.241l630 +++|          STD    CM
17783  M01S00282.241l630 +++|          LDM    HRSS-HRJT,CM
17784  M01S00283.241l630 +++|          ERRNZ  SRJT-HRJT-1 CODE REQUIRES *SRJT* = *HRJT* + 1
17785  M01S00284.241l630 +++|          ERRNZ  SESS-HRSS-1 CODE REQUIRES *SESS* = *HRSS* + 1
17786  M01S00285.241l630 +++|          ADN    1
17787  M01S00286.241l630 +++|          SBM    ITSF-HRJT,CM
Line S00287 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17788  M02S00287.242l642 ---|          MJN    ITS7        IF RERUN LIMIT NOT EXCEEDED
Line S00592 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17789  M01S00592.242l642 +++|          MJN    ITS10       IF RERUN LIMIT NOT EXCEEDED
Line S00288 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17790  M01S00288.241l630 +++|          LDN    ITSCL/5     PRESET WORD COUNT
17791  M01S00289.241l630 +++|          STD    T1
17792  M01S00290.241l630 +++|          LJM    ITS5        TREAT AS *RJJT* TERMINATION
17793  M01S00291.241l630 +++|
Line S00292 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17794  M02S00292.242l642 ---| ITS7     LDN    0           FLAG NO COMMANDS
Line S00593 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
17795  M01S00593.242l642 +++| ITS9     RJM    MSR         PROCESS MASS STORAGE ERROR
17796  M01S00594.242l642 +++| ITS10    LDN    0           FLAG NO COMMANDS
Line S00293 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17797  M01S00293.241l630 +++|          LJM    ITSX        RETURN DROPPING OUTPUT
Line S00407 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17798  M01S00407.ns22000 +++|
17799  M01S00408.ns22000 +++|
Line S00409 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17800  M02S00409.v23l617 ---|*         TERMINATION CONTROL STATEMENTS.
Line S00836 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17801  M01S00836.v23l617 +++|*         TERMINATION COMMANDS.
Line S00410 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17802  M01S00410.ns22000 +++|
17803  M01S00411.ns22000 +++| ITSB     VFD    60/10L$OUT(*/OP=
17804  M01S00412.ns22000 +++|          VFD    60/2LE)
Line S00006 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
17805  M01S00006.274l797 +++|          VFD    60/10L$UNLOAD(*/
17806  M01S00007.274l797 +++|          VFD    60/5LOP=O)
Line S00413 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17807  M01S00413.ns22000 +++| ITSBL    EQU    *-ITSB
17808  M01S00414.ns22000 +++|          VFD    60/10L$DAYFILE(O
17809  M01S00415.ns22000 +++|          VFD    60/10LUTPUT,JT=D
17810  M01S00416.ns22000 +++|          VFD    60/1L)
17811  M01S00417.ns22000 +++| ITSCL    EQU    *-ITSB
Line S00063 Modification History
M01 (Added by) 1aj46
Seq #  *Modification Id* Act 
----------------------------+
17812  M01S00063.1aj46   +++|
17813  M01S00064.1aj46   +++|*         RERUN JOB TERMINATION COMMANDS.
17814  M01S00065.1aj46   +++|
17815  M01S00066.1aj46   +++| ITSD     VFD    60/10L$RETURN(OU
17816  M01S00067.1aj46   +++|          VFD    60/5LTPUT)
17817  M01S00068.1aj46   +++|          VFD    60/10L$DAYFILE.
17818  M01S00069.1aj46   +++|          VFD    60/0
17819  M01S00070.1aj46   +++|          VFD    60/10L$ROUTE,OUT
17820  M01S00071.1aj46   +++|          VFD    60/4LPUT.
17821  M01S00072.1aj46   +++| ITSDL    EQU    *-ITSD
Line S00294 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
17822  M01S00294.241l630 +++|
17823  M01S00295.241l630 +++| ITSE     INDEX
17824  M01S00296.241l630 +++|          INDEX  RJJT,ITS5   *RJJT* TERMINATION COMMAND PREPROCESSOR
17825  M01S00297.241l630 +++|          INDEX  HRJT,ITS6   *HRJT* TERMINATION COMMAND PREPROCESSOR
17826  M01S00298.241l630 +++|          INDEX  SRJT,ITS6   *SRJT* TERMINATION COMMAND PREPROCESSOR
17827  M01S00299.241l630 +++|          INDEX  NXJT
17828  M01S00300.241l630 +++|
17829  M01S00301.241l630 +++| ITSF     CON    HRTL+1
17830  M01S00302.241l630 +++|          CON    MSER+1
17831  M00S11649.1aj     +++| IUA      SPACE  4,10
17832  M00S11650.1aj     +++|**        IUA - ISSUE USER ACCOUNTING DAYFILE MESSAGES.
17833  M00S11651.1aj     +++|*
17834  M00S11652.1aj     +++|*         USES   T1 - T7, CM - CM+4.
17835  M00S11653.1aj     +++|*
17836  M00S11654.1aj     +++|*         CALLS  CUF, DAM, IAA, SCM, UPF.
17837  M00S11655.1aj     +++|*
17838  M00S11656.1aj     +++|*         MACROS MONITOR.
17839  M00S11657.1aj     +++|
17840  M00S11658.1aj     +++|
17841  M00S11659.1aj     +++| IUA5     RJM    CUF         CHECK FOR PROFILE FILE UPDATE FAILURE
17842  M00S11660.1aj     +++|
17843  M00S11661.1aj     +++| IUA      SUBR               ENTRY/EXIT
17844  M00S11662.1aj     +++|          LDD    CP          READ JOB CONTROL INFORMATION
Line S11663 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
17845  M01S11663.271l750 ---|          ADK    JCIW
Line S00115 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
17846  M01S00115.271l750 +++|          ADK    CWQW
17847  M00S11664.1aj     +++|          CRD    CM
17848  M00S11665.1aj     +++|          LDD    CM          CHECK CPU PRIORITY
Line S00116 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
17849  M01S00116.271l750 +++|          LPC    1770
Line S11666 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17850  M01S11666.271l716 ---|          SHN    -1
17851  M00S11667.1aj     +++|          ZJN    IUAX        IF CPU PRIORITY = 0
17852  M00S11668.1aj     +++|          RJM    UPF         UPDATE PROJECT PROFILE FILE
17853  M00S11669.1aj     +++|
17854  M00S11670.1aj     +++|*         ISSUE APPLICATION ACCOUNTING MESSAGE
17855  M00S11671.1aj     +++|
17856  M00S11672.1aj     +++|          LDD    CP          READ APPLICATION ACCOUNTING CONTROL WORD
17857  M00S11673.1aj     +++|          ADN    FPFW
17858  M00S11674.1aj     +++|          CRD    CM
17859  M00S11675.1aj     +++|          LDD    CM          CHECK FOR APPLICATION ACCOUNTING
Line S11676 Modification History
M01 (Removed by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17860  M01S11676.1aj44   ---|          SHN    21-11
17861  M01S11677.1aj44   ---|          PJN    IUA1        IF APPLICATION ACCOUNTING NOT IN PROCESS
Line S00016 Modification History
M01 (Added by) 1aj44
Seq #  *Modification Id* Act 
----------------------------+
17862  M01S00016.1aj44   +++|          LPC    1400
17863  M01S00017.1aj44   +++|          ZJN    IUA1        IF APPLICATION ACCOUNTING NOT ACTIVE
17864  M00S11678.1aj     +++|          RJM    IAA         ISSUE APPLICATION ACCOUNTING MESSAGE
17865  M00S11679.1aj     +++| IUA1     LDN    ACTWL
17866  M00S11680.1aj     +++|          STD    T4
17867  M00S11681.1aj     +++|          LDD    CP
17868  M00S11682.1aj     +++|          ADN    ACTW
17869  M00S11683.1aj     +++|          CRM    ACCT,T4     STORE IN TEMPORARY AREA
17870  M00S11684.1aj     +++|
17871  M00S11685.1aj     +++|*         SPECIAL CHECK FOR SYSTEM JOB.
17872  M00S11686.1aj     +++|
17873  M00S11687.1aj     +++|          LDM    JBOT        CHECK JOB ORIGIN
17874  M00S11688.1aj     +++|          LMK    SYOT
17875  M00S11689.1aj     +++|          NJN    IUA3        IF NOT SYSTEM ORIGIN
17876  M00S11690.1aj     +++|          LDN    4
17877  M00S11691.1aj     +++|          STD    T5          CHECK SRU ACCUMULATOR
17878  M00S11692.1aj     +++| IUA2     LDM    ACCT+5*SRUW-5*ACTW,T5
17879  M00S11693.1aj     +++|          NJN    IUA3        IF SRU ACCUMULATOR NOT ZERO
17880  M00S11694.1aj     +++|          SOD    T5
17881  M00S11695.1aj     +++|          NJN    IUA2        IF MORE TO CHECK
17882  M00S11696.1aj     +++|          UJP    IUA5        CHECK PROFILE FILE UPDATE FAILURE
17883  M00S11697.1aj     +++|
17884  M00S11698.1aj     +++|*         CONVERT CONTROL POINT AREA ACCUMULATORS.
17885  M00S11699.1aj     +++|
17886  M00S11700.1aj     +++| IUA3     LDD    MA
17887  M00S11701.1aj     +++|          CWM    ACCT,T4     TRANSFER FROM TEMPORARY STORAGE
17888  M00S11702.1aj     +++|          LDN    ABVF
17889  M00S11703.1aj     +++|          STD    CM+1        SET *ACTM* SUB-FUNCTION (ABVF)
17890  M00S11704.1aj     +++|          MONITOR  ACTM      CONVERT ACCUMULATORS
17891  M00S11705.1aj     +++|          LDN    ABNA-1
17892  M00S11706.1aj     +++|          STD    T4          STORE CONVERSIONS IN MESSAGES
17893  M00S11707.1aj     +++|          LDC    IUAB        SET MESSAGE ADDRESS
17894  M00S11708.1aj     +++|          RJM    SCM         STORE CONVERSIONS IN MESSAGE
Line S00837 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17895  M01S00837.v23l617 +++|
17896  M01S00838.v23l617 +++|*         CONVERT TERMINAL CHARACTER COUNTS.
17897  M01S00839.v23l617 +++|
17898  M01S00840.v23l617 +++|          NFA    RC2N        READ CHARACTER COUNTS
17899  M01S00841.v23l617 +++|          CRD    CM
17900  M01S00842.v23l617 +++|          LDD    CM+4        SET OUTPUT COUNT
17901  M01S00843.v23l617 +++|          STM    IUAG+7
17902  M01S00844.v23l617 +++|          LDD    CM+3        SET INPUT COUNT
17903  M01S00845.v23l617 +++|          STM    IUAF+7
17904  M01S00846.v23l617 +++|          ADD    CM+4        SET COMBINED COUNT
17905  M01S00847.v23l617 +++|          STM    IUAE+7
17906  M01S00848.v23l617 +++|          SHN    -14
17907  M01S00849.v23l617 +++|          ADD    CM+2
17908  M01S00850.v23l617 +++|          STM    IUAE+6
17909  M01S00851.v23l617 +++|          LDD    MA          SET COUNTS FOR CONVERSION
17910  M01S00852.v23l617 +++|          CWM    IUAE+3,ON
17911  M01S00853.v23l617 +++|          CWM    IUAF+3,ON
17912  M01S00854.v23l617 +++|          CWM    IUAG+3,ON
17913  M01S00855.v23l617 +++|          LDN    RCIS+3      SET F10.3 CONVERSION AND REQUEST COUNT
17914  M01S00856.v23l617 +++|          STD    CM+1
17915  M01S00857.v23l617 +++|          LDN    0
17916  M01S00858.v23l617 +++|          STD    CM+2
17917  M01S00859.v23l617 +++|          MONITOR RDCM       CONVERT CHARACTER COUNTS
17918  M01S00860.v23l617 +++|          LDD    MA
17919  M01S00861.v23l617 +++|          CRM    IUAE+3,ON   READ CONVERSIONS TO MESSAGE
17920  M01S00862.v23l617 +++|          CRM    IUAF+3,ON
17921  M01S00863.v23l617 +++|          CRM    IUAG+3,ON
17922  M00S11709.1aj     +++|
17923  M00S11710.1aj     +++|*         READ AND CONVERT NEXT ACCOUNTING BLOCK.
17924  M00S11711.1aj     +++|
Line S11712 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17925  M01S11712.ns22000 ---|          ERRNZ  AC1WL-1     CODE ASSUMES *AC1WL* = 1
Line S00418 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17926  M01S00418.ns22000 +++|          LDN    AC1WL
17927  M01S00419.ns22000 +++|          STD    T4
17928  M00S11713.1aj     +++|          LDD    CP          READ ACCUMULATORS
Line S11714 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17929  M01S11714.ns22000 ---|          ADN    AC1W
17930  M01S11715.ns22000 ---|          CRM    ACCT,ON
Line S00420 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17931  M01S00420.ns22000 +++|          ADK    AC1W
17932  M01S00421.ns22000 +++|          CRM    ACCT,T4
17933  M00S11716.1aj     +++|          LDD    MA
Line S11717 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17934  M01S11717.ns22000 ---|          CWM    ACCT,ON
Line S00422 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17935  M01S00422.ns22000 +++|          CWM    ACCT,T4
17936  M00S11718.1aj     +++|          LDN    ABOF        SET *ACTM* SUB-FUNCTION
17937  M00S11719.1aj     +++|          STD    CM+1
17938  M00S11720.1aj     +++|          MONITOR  ACTM      CONVERT OTHER ACCUMULATORS
Line S11721 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17939  M01S11721.ns22000 ---|          ERRNZ  ABNB-1      CODE ASSUMES *ABNB* - 1 = 0
17940  M01S11722.ns22000 ---|*         LDN    ABNB-1
Line S00423 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
17941  M01S00423.ns22000 +++|          LDN    ABNB-1
17942  M00S11723.1aj     +++|          STD    T4
17943  M00S11724.1aj     +++|          LDC    IUAD        SET MESSAGE ADDRESS
17944  M00S11725.1aj     +++|          RJM    SCM         STORE CONVERSIONS IN MESSAGE
17945  M00S11726.1aj     +++|
17946  M00S11727.1aj     +++|*         DISPLAY MESSAGES.
17947  M00S11728.1aj     +++|
17948  M00S11729.1aj     +++|          LDN    ABNB-1
17949  M00S11730.1aj     +++|          STD    T4
17950  M00S11731.1aj     +++|          LDM    IUAB+ABSR
17951  M00S11732.1aj     +++|          ADN    3
17952  M00S11733.1aj     +++|          STD    T5          GET ADDRESS OF SRU ACCUMULATOR
17953  M00S11734.1aj     +++|          STM    IUAA
17954  M00S11735.1aj     +++|          LDI    T5
17955  M00S11736.1aj     +++|          NJN    IUA4        IF SRU ACCUMULATOR NONZERO
17956  M00S11737.1aj     +++|          LDD    MA
17957  M00S11738.1aj     +++|          CWM    IUAC,ON     STORE DISPLAY FORMAT ZERO IN SRU MESSAGE
17958  M00S11739.1aj     +++|          SBN    1
17959  M00S11740.1aj     +++|          CRM    *,ON
17960  M00S11741.1aj     +++| IUAA     EQU    *-1
17961  M00S11742.1aj     +++| IUA4     LDC    IUAD        SET MESSAGE ADDRESS
17962  M00S11743.1aj     +++|          RJM    DAM         DISPLAY ACCOUNTING MESSAGES
Line S11744 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17963  M01S11744.v23l617 ---|          LDN    ABNA-1
Line S00864 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17964  M01S00864.v23l617 +++|          LDN    ABNA+3-1    NUMBER OF MESSAGES
17965  M00S11745.1aj     +++|          STD    T4
17966  M00S11746.1aj     +++|          LDC    IUAB        SET MESSAGE ADDRESS
17967  M00S11747.1aj     +++|          RJM    DAM         DISPLAY ACCOUNTING MESSAGES
17968  M00S11748.1aj     +++|          LJM    IUA5        EXIT
17969  M00S11749.1aj     +++|
17970  M00S11750.1aj     +++|
17971  M00S11751.1aj     +++|*         DAYFILE MESSAGES.
17972  M00S11752.1aj     +++|*
17973  M00S11753.1aj     +++|*         THE MESSAGE ADDRESSES IN THE FOLLOWING TABLE AND THE
17974  M00S11754.1aj     +++|*         ACCUMULATORS RETURNED BY *ACTM* SUB-FUNCTION *ABVF*, ARE
17975  M00S11755.1aj     +++|*         MAINTAINED IN THE SAME ORDER TO INSURE THAT THE CORRECT
17976  M00S11756.1aj     +++|*         QUANTITY IS STORED IN THE APPROPRIATE MESSAGE.  THE MESSAGES
17977  M00S11757.1aj     +++|*         ARE DISPLAYED IN THE REVERSE ORDER SO THAT SRUS ARE ALWAYS
17978  M00S11758.1aj     +++|*         THE LAST TO BE DISPLAYED.  IF SRUS ARE NOT RETURNED FIRST,
17979  M00S11759.1aj     +++|*         THE ABOVE CODE MUST BE CHANGED SO THAT THEY ARE DISPLAYED
17980  M00S11760.1aj     +++|*         LAST.
17981  M00S11761.1aj     +++|
17982  M00S11762.1aj     +++| IUAB     INDEX
17983  M00S11763.1aj     +++|
17984  M00S11764.1aj     +++|          INDEX  ABSR,(=C*AESR, 000000.000UNTS.*)
17985  M00S11765.1aj     +++|          INDEX  ABCP,(=C*UECP, 000000.000SECS.*)
17986  M00S11766.1aj     +++|          INDEX  ABMS,(=C*UEMS, 000000.000KUNS.*)
17987  M00S11767.1aj     +++|          INDEX  ABMT,(=C*UEMT, 000000.000KUNS.*)
17988  M00S11768.1aj     +++|          INDEX  ABPF,(=C*UEPF, 000000.000KUNS.*)
17989  M00S11769.1aj     +++|          INDEX  ABAD,(=C*UEAD, 000000.000KUNS.*)
Line S00865 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17990  M01S00865.v23l617 +++|          INDEX  ABNA+0,IUAE TOTAL CHARACTERS TRANSFERRED
17991  M01S00866.v23l617 +++|          INDEX  ABNA+1,IUAF CHARACTERS IN
17992  M01S00867.v23l617 +++|          INDEX  ABNA+2,IUAG CHARACTERS OUT
17993  M00S11770.1aj     +++|
Line S11771 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17994  M01S11771.v23l617 ---|          INDEX  ABNA
Line S00868 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
17995  M01S00868.v23l617 +++|          INDEX  ABNA+3
17996  M00S11772.1aj     +++|
17997  M00S11773.1aj     +++| IUAC     DATA   C*     0.000*  DISPLAY FORMAT ZERO
17998  M00S11774.1aj     +++|
17999  M00S11775.1aj     +++| IUAD     INDEX              SECOND ACCOUNT BLOCK MESSAGES
18000  M00S11776.1aj     +++|
18001  M00S11777.1aj     +++|          INDEX  ABMP,(=C*UEMP, 000000.000KUNS.*)
Line S00424 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18002  M01S00424.ns22000 +++|          INDEX  ABAC,(=C*UEAC, 000000.000UNTS.*)
Line S00004 Modification History
M01 (Added by) ns2753
Seq #  *Modification Id* Act 
----------------------------+
18003  M01S00004.ns2753  +++|          INDEX  ABOD,(=C*UEOD, 000000.000KUNS.*)
18004  M00S11778.1aj     +++|
18005  M00S11779.1aj     +++|          INDEX  ABNB
Line S00869 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18006  M01S00869.v23l617 +++|
18007  M01S00870.v23l617 +++| IUAE     DATA   6HUECT, ,0,0,0,0,0,6HKCHS. ,0
18008  M01S00871.v23l617 +++| IUAF     DATA   6HUECI, ,0,0,0,0,0,6HKCHS. ,0
18009  M01S00872.v23l617 +++| IUAG     DATA   6HUECO, ,0,0,0,0,0,6HKCHS. ,0
Line S00595 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18010  M02S00595.ns2719  ---| MSR      SPACE  4,10
Line S00103 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18011  M01S00103.ns2719  +++| MSR      SPACE  4,15
Line S00596 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18012  M01S00596.242l642 +++|**        MSR - MASS STORAGE ERROR PROCESSING.
18013  M01S00597.242l642 +++|*
Line S00598 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18014  M02S00598.ns2719  ---|*         EXIT   TO *1RJ* IF JOB ROLLABLE AND RECOVERABLE ERROR.
18015  M02S00599.ns2719  ---|*                TO CALLER IF JOB NOT ROLLABLE OR NOT-RECOVERABLE
18016  M02S00600.ns2719  ---|*                ERROR.
Line S00104 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18017  M01S00104.ns2719  +++|*         ENTRY  (A) = MASS STORAGE DRIVER RETURN IF .LT. 0.
18018  M01S00105.ns2719  +++|*                (A) = 0 TO FORCE *1RJ* CALL.
18019  M01S00106.ns2719  +++|*                (T5) = EST ORDINAL OF INACCESSIBLE DEVICE.
Line S00601 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18020  M01S00601.242l642 +++|*
Line S00107 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18021  M01S00107.ns2719  +++|*         EXIT   TO *1RJ* IF NOT NON-RECOVERABLE ERROR.
18022  M01S00108.ns2719  +++|*                TO CALLER IF NON-RECOVERABLE ERROR.
18023  M01S00109.ns2719  +++|*
Line S00602 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18024  M01S00602.242l642 +++|*         USES   CM+1, IR+4.
Line S00603 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18025  M02S00603.ns2719  ---|*
18026  M02S00604.ns2719  ---|*         CALLS  *1RJ*.
Line S00605 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18027  M01S00605.242l642 +++|*
18028  M01S00606.242l642 +++|*         MACROS EXECUTE, MONITOR.
18029  M01S00607.242l642 +++|
18030  M01S00608.242l642 +++|
18031  M01S00609.242l642 +++| MSR      SUBR               ENTRY
Line S00610 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18032  M02S00610.ns2719  ---|          LDM    RDCT        CHECK NON-RECOVERABLE MASS STORAGE ERROR
Line S00611 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18033  M01S00611.242l642 +++|          SHN    21-12
Line S00612 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18034  M02S00612.ns2719  ---|          MJN    MSRX        IF NON-RECOVERABLE
18035  M02S00613.ns2719  ---|          LDM    MSD         CHECK FOR SUBSYSTEM
18036  M02S00614.ns2719  ---|          SHN    21-13
18037  M02S00615.ns2719  ---|          PJN    MSRX        IF A SUBSYSTEM, ABORT JOB
Line S00110 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18038  M01S00110.ns2719  +++|          MJN    MSRX        IF NON-RECOVERABLE ERROR
Line S00616 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18039  M01S00616.242l642 +++|          LDD    T5          SET EQUIPMENT TO WAIT FOR
18040  M01S00617.242l642 +++|          STD    IR+4
18041  M01S00618.242l642 +++|          LDN    0           CLEAR JOB ADVANCE
18042  M01S00619.242l642 +++|          STD    CM+1
18043  M01S00620.242l642 +++|          MONITOR  JACM
Line S00621 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18044  M02S00621.ns2719  ---|          EXECUTE  1RJ       ROLL JOB
18045  M02S00622.ns2719  ---|*         LJM    PPR         DOES NOT RETURN
Line S00111 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18046  M01S00111.ns2719  +++|          EXECUTE  1RJ       RECALL *1AJ* AND ROLL OUT JOB IF POSSIBLE
18047  M00S11780.1aj     +++| RLF      SPACE  4,25
18048  M00S11781.1aj     +++|**        RLF - RELEASE LOCAL FILES.
18049  M00S11782.1aj     +++|*
18050  M00S11783.1aj     +++|*         1. RETURN ALL FILES THAT WILL NOT BE PROCESSED BY THE *OUT*
Line S11784 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18051  M01S11784.v23l617 ---|*            OR *DAYFILE* STATEMENTS AT JOB TERMINATION.
Line S00873 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
18052  M01S00873.v23l617 +++|*            OR *DAYFILE* COMMANDS AT JOB TERMINATION.
18053  M00S11785.1aj     +++|*         2. RETURN ANY FILE THAT WOULD BE PROCESSED BY *OUT* IF THAT
18054  M00S11786.1aj     +++|*            FILE IS NOT MASS STORAGE.
18055  M00S11787.1aj     +++|*         3. DO NOT RETURN FILE *INPUT* (TYPE *INFT*).
18056  M00S11788.1aj     +++|*         4. IF THE JOB IS SYSTEM ORIGIN AND THERE ARE NO FILES TO
18057  M00S11789.1aj     +++|*            BE PRINTED, SET *EOJW* TO *NOJT* STATUS.
Line S00425 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18058  M01S00425.ns22000 +++|*         5. SET JOB TERMINATION IN PROGRESS FLAG IN EJT.
18059  M00S11790.1aj     +++|*
18060  M00S11791.1aj     +++|*         ENTRY  (NL) = NEGATIVE FIELD LENGTH.
Line S00426 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18061  M01S00426.ns22000 +++|*                (RLFB) = EJT ORDINAL.
18062  M00S11792.1aj     +++|*
18063  M00S11793.1aj     +++|*         EXIT   FILES RETURNED.
18064  M00S11794.1aj     +++|*
Line S11795 Modification History
M01 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18065  M01S11795.ns2719  ---|*         USES   CN, CN+1, FA, T1, CM - CM+4, FN - FN+4, FS - FS+4.
Line S00112 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18066  M01S00112.ns2719  +++|*         USES   CN, CN+1, FA, T1, T5, CM - CM+4, FN - FN+4, FS - FS+4.
18067  M00S11796.1aj     +++|*
Line S11797 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18068  M01S11797.242l642 ---|*         CALLS *0DF*.
Line S00623 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18069  M01S00623.242l642 +++|*         CALLS  MSR, *0DF*.
18070  M00S11798.1aj     +++|*
Line S11799 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18071  M01S11799.ns22000 ---|*         MACROS EXECUTE, NFA.
Line S00427 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18072  M01S00427.ns22000 +++|*         MACROS EXECUTE, NFA, SFA.
18073  M00S11800.1aj     +++|
18074  M00S11801.1aj     +++|
Line S11802 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18075  M02S11802.242l642 ---| RLF7     LDD    CP          READ JOB STATUS WORD
18076  M02S11803.242l642 ---|          ADK    EOJW
18077  M02S11804.242l642 ---|          CRD    CM
18078  M02S11805.242l642 ---|          LDD    CM          SET TERMINATION-IN PROGRESS FLAG
18079  M02S11806.242l642 ---|          LPC    3777
18080  M02S11807.242l642 ---|          LMC    4000
Line S11808 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18081  M03S11808.242l642 ---|          STD    CM
Line S11809 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18082  M02S11809.242l642 ---|          STM    JTFG
Line S00428 Modification History
M01 (Added by) ns22000
M02 (Removed by) 241l630
M03 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18083  M03S00428.242l642 ---|          LDC    **
Line S00303 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18084  M02S00303.242l642 ---| RLF7     LDC    **
Line S00624 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18085  M02S00624.ns2719  ---| RLF7     LDC    0           FLAG FOR ANY RECOVERABLE ERRORS
18086  M02S00625.ns2719  ---|*         LDC    *           EQUIPMENT IF MASS STORAGE ERROR
18087  M02S00626.ns2719  ---| RLFC     EQU    *-1
18088  M02S00627.ns2719  ---|          ZJN    RLF7.1      IF NO RECOVERABLE ERRORS
Line S00113 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18089  M01S00113.ns2719  +++| RLF7     LDC    0
18090  M01S00114.ns2719  +++| RLFC     EQU    *-1         EST ORDINAL OF INACCESSIBLE DEVICE
18091  M01S00115.ns2719  +++|          ZJN    RLF7.1      IF NO INACESSIBLE DEVICE
Line S00628 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18092  M01S00628.242l642 +++|          STD    T5
Line S00629 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18093  M02S00629.ns2719  ---|          LDN    0           SET RECOVERABLE ERROR STATUS
18094  M02S00630.ns2719  ---|          STM    RDCT
Line S00116 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18095  M01S00116.ns2719  +++|          LDN    0           FORCE *1RJ* CALL
18096  M01S00117.ns2719  +++|          RJM    MSR         PROCESS MASS STORAGE ERROR (NO RETURN)
Line S00631 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18097  M01S00631.242l642 +++|
Line S00632 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
18098  M02S00632.ns2719  ---|*         NOTE WE WILL RETURN FROM *MSR* IF THIS IS A SUBSYSTEM.
18099  M02S00633.ns2719  ---|
18100  M02S00634.ns2719  ---|          RJM    MSR
Line S00635 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18101  M01S00635.242l642 +++| RLF7.1   LDC    **          SET JOB TERMINATION MODE
Line S00429 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
18102  M01S00429.ns22000 +++| RLFB     EQU    *-1         (EJT ORDINAL)
Proceed to Part 14
cdc/nos2.source/opl.opl871/deck/1aj.013.txt ยท Last modified: by 127.0.0.1