User Tools

Site Tools


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

Deck 1AJ Part 004

214 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05113  M02S03268.v23l617 ---| ARID     BSS    0
05114  M02S03269.v23l617 ---|          CON    =C* ARITHMETIC UNDERFLOW.*
05115  M02S03270.v23l617 ---|          CON    =C* ARITHMETIC OVERFLOW.*
05116  M02S03271.v23l617 ---|          CON    =C* ARITHMETIC INDEFINITE.*
05117  M02S03272.v23l617 ---|          CON    =C* STEP CONDITION.*
05118  M02S03273.v23l617 ---|          CON    =C* BREAKPOINT CONDITION.*
05119  M02S03274.v23l617 ---|          CON    =C* PROGRAM STOP.*
05120  M02S03275.v23l617 ---|          CON    =C* CM OUT OF RANGE.*
05121  M02S03276.v23l617 ---|          CON    =C* ECS OUT OF RANGE.*
05122  M02S03277.v23l617 ---|          CON    =C* CM BLOCK OUT OF RANGE.*
05123  M02S03278.v23l617 ---|          CON    =C* ECS BLOCK OUT OF RANGE.*
05124  M02S03279.v23l617 ---|          CON    =C* CM PARITY ERROR.*
05125  M02S03280.v23l617 ---|          CON    =C* ECS PARITY ERROR.*
05126  M02S03281.v23l617 ---|
05127  M02S03282.v23l617 ---| ARIE     CON    =C* ECS FLAG REGISTER PARITY.*
05128  M02S03283.v23l617 ---|          CON    =C* CMC PARITY ERROR.*
05129  M02S03284.v23l617 ---|          CON    =C* INVALID INSTRUCTION.*
Line S00110 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05130  M02S00110.v23l617 ---| ARI      EXECUTE  3AL
05131  M02S00111.v23l617 ---|          LJM    /EFX/ARI
Line S03285 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05132  M01S03285.v23l617 ---| DRE      SPACE  4,10
05133  M01S03286.v23l617 ---|**        DRE - DEADSTART RERUN PROCESSOR.
05134  M01S03287.v23l617 ---|*
05135  M01S03288.v23l617 ---|*         SETS THE JOB TERMINATION STATUS OF NON-TIMESHARING
05136  M01S03289.v23l617 ---|*         JOB TO *RJJP*, ISSUES RERUN ACCOUNT FILE MESSAGE,
05137  M01S03290.v23l617 ---|*         AND ADVANCES JOB TO THE NEXT *EXIT* STATEMENT.
05138  M01S03291.v23l617 ---|*
Line S03292 Modification History
M01 (Removed by) 1aj17
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05139  M02S03292.v23l617 ---|*         CALLS  DFM, SEJ.
Line S00002 Modification History
M01 (Added by) 1aj17
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05140  M02S00002.v23l617 ---|*         CALLS  DFM, RSF, SEJ.
Line S03293 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05141  M01S03293.v23l617 ---|
05142  M01S03294.v23l617 ---|
05143  M01S03295.v23l617 ---| DRE      BSS    0           ENTRY
Line S03296 Modification History
M01 (Removed by) ns2117
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05144  M02S03296.v23l617 ---|          LDM    TSTN        CHECK TERMINAL NUMBER
05145  M02S03297.v23l617 ---|          NJN    DRE1        IF TIMESHARING JOB
Line S03298 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05146  M01S03298.v23l617 ---|          LDN    RJJT        SELECT RERUN OPTION
05147  M01S03299.v23l617 ---|          RJM    SEJ         SET END OF JOB OPTION
Line S03300 Modification History
M01 (Removed by) ns2117
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05148  M02S03300.v23l617 ---| DRE1     LDC    DREA+ACFN   ISSUE ACCOUNT FILE MESSAGE
Line S00001 Modification History
M01 (Added by) ns2117
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05149  M02S00001.v23l617 ---|          LDC    DREA+ACFN   ISSUE ACCOUNT FILE MESSAGE
Line S03301 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05150  M01S03301.v23l617 ---|          RJM    DFM
Line S00003 Modification History
M01 (Added by) 1aj17
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05151  M02S00003.v23l617 ---|          RJM    RSF         RETURN SPECIAL FILES
Line S03302 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05152  M01S03302.v23l617 ---|          LJM    EBCX        EXIT
05153  M01S03303.v23l617 ---|
05154  M01S03304.v23l617 ---|
05155  M01S03305.v23l617 ---| DREA     DATA   C*AERR, DS.*
05156  M00S03306.1aj     +++| IDL      SPACE  4,15
05157  M00S03307.1aj     +++|**        IDL - IDLEDOWN SUBSYSTEM.
Line S03308 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05158  M01S03308.ns21000 ---|*
05159  M01S03309.ns21000 ---|*         IF THE JOB IS A SPECIAL SUBSYSTEM (*BATCHIO*, *MAGNET*,
Line S03310 Modification History
M01 (Removed by) 1aj19
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05160  M02S03310.ns21000 ---|*         *MSS* OR *TAF*), THE SUBSYSTEM IDLEDOWN FLAG (BIT 2**13 OF
05161  M02S03311.ns21000 ---|*         RA+0 AND BIT 2**14 OF CONTROL POINT AREA WORD *SNSW*) WILL
Line S00001 Modification History
M01 (Added by) 1aj19
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05162  M02S00001.ns21000 ---|*         *MSS* OR *TAF*), THE SUBSYSTEM IDLEDOWN FLAG (BIT 2**15 OF
05163  M02S00002.ns21000 ---|*         RA+0 AND BIT 2**15 OF CONTROL POINT AREA WORD *SNSW*) WILL
Line S03312 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05164  M01S03312.ns21000 ---|*         BE SET.  IF THE JOB IS NOT A SPECIAL SUBSYSTEM, IT WILL BE
05165  M01S03313.ns21000 ---|*         ABORTED WITH THE *ODET* ERROR FLAG.
05166  M01S03314.ns21000 ---|*
05167  M01S03315.ns21000 ---|*         EXIT   TO *STC* TO RESTART JOB IF SPECIAL SUBSYSTEM,
05168  M01S03316.ns21000 ---|*                ELSE TO *PEF5* TO PROCESS *ODET* ERROR FLAG.
05169  M01S03317.ns21000 ---|*
05170  M01S03318.ns21000 ---|*         USES   CM - CM+4, EF.
05171  M01S03319.ns21000 ---|*
Line S03320 Modification History
M01 (Removed by) ns2009
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05172  M02S03320.ns21000 ---|*         CALLS  CSS, DFM.
Line S00033 Modification History
M01 (Added by) ns2009
M02 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05173  M02S00033.ns21000 ---|*         CALLS  DFM.
Line S00112 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05174  M01S00112.ns21000 +++|*
05175  M01S00113.ns21000 +++|*         EXIT   TO *PEF5* IF NOT SPECIAL SUBSYSTEM.
05176  M00S03321.1aj     +++|
05177  M00S03322.1aj     +++|
Line S03323 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05178  M01S03323.ns21000 ---| IDL      SUBR               ENTRY/EXIT
Line S00114 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05179  M01S00114.ns21000 +++| IDL      BSS    0           ENTRY
Line S03324 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
05180  M01S03324.ns2009  ---|          RJM    CSS         CHECK FOR SPECIAL SUBSYSTEM
05181  M01S03325.ns2009  ---|          ZJN    IDL1        IF SPECIAL SUBSYSTEM
Line S00034 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
05182  M01S00034.ns2009  +++| IDLA     LDN    0           CHECK FOR SUBSYSTEM
05183  M01S00035.ns2009  +++|*         LDN    1           (SPECIAL SUBSYSTEM IDLE)
05184  M01S00036.ns2009  +++|          NJN    IDL1        IF SPECIAL SUBSYSTEM
05185  M00S03326.1aj     +++|
05186  M00S03327.1aj     +++|*         PROCESS NON-SPECIAL SUBSYSTEM JOB.
05187  M00S03328.1aj     +++|
05188  M00S03329.1aj     +++|          LDK    ODET        CHANGE ERROR FLAG TO *ODET*
05189  M00S03330.1aj     +++|          STD    EF
05190  M00S03331.1aj     +++|          LJM    PEF5        PROCESS AS *ODET* ERROR FLAG
05191  M00S03332.1aj     +++|
05192  M00S03333.1aj     +++|*         IDLEDOWN SUBSYSTEM.
05193  M00S03334.1aj     +++|
Line S03335 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05194  M01S03335.ns21000 ---| IDL1     LDC    =C* OPERATOR IDLEDOWN.*
05195  M01S03336.ns21000 ---|          RJM    DFM         ISSUE DAYFILE MESSAGE
05196  M01S03337.ns21000 ---|          LDD    RA          READ RA+0
05197  M01S03338.ns21000 ---|          SHN    6
05198  M01S03339.ns21000 ---|          CRD    CM
05199  M01S03340.ns21000 ---|          LDD    CM+3        SET IDLEDOWN FLAG IN (RA)
05200  M01S03341.ns21000 ---|          SCN    10
05201  M01S03342.ns21000 ---|          LMN    10
05202  M01S03343.ns21000 ---|          STD    CM+3
05203  M01S03344.ns21000 ---|          LDD    RA          REWRITE RA+0
05204  M01S03345.ns21000 ---|          SHN    6
05205  M01S03346.ns21000 ---|          CWD    CM
05206  M01S03347.ns21000 ---|          LDD    CP          READ CPA WORD *SNSW*
05207  M01S03348.ns21000 ---|          ADK    SNSW
05208  M01S03349.ns21000 ---|          CRD    CM
05209  M01S03350.ns21000 ---|          LDD    CM+3        SET IDLEDOWN FLAG IN CPA
05210  M01S03351.ns21000 ---|          SCN    10
05211  M01S03352.ns21000 ---|          LMN    10
05212  M01S03353.ns21000 ---|          STD    CM+3
05213  M01S03354.ns21000 ---|          LDD    CP          REWRITE CPA WORD *SNSW*
05214  M01S03355.ns21000 ---|          ADK    SNSW
05215  M01S03356.ns21000 ---|          CWD    CM
05216  M01S03357.ns21000 ---|          ADK    CSSW-SNSW   READ CPA WORD *CSSW*
05217  M01S03358.ns21000 ---|          CRD    CM
05218  M01S03359.ns21000 ---|          LDD    CM          CLEAR *SKIP-TO-EXIT* FLAG
05219  M01S03360.ns21000 ---|          LPC    5777
05220  M01S03361.ns21000 ---|          STD    CM
05221  M01S03362.ns21000 ---|          LDD    CP          WRITE CPA WORD *CSSW*
05222  M01S03363.ns21000 ---|          ADK    CSSW
05223  M01S03364.ns21000 ---|          CWD    CM
05224  M01S03365.ns21000 ---|          UJP    STC         RESTART CPU
Line S00115 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
05225  M01S00115.ns21000 +++| IDL1     EXECUTE  3AL
05226  M01S00116.ns21000 +++|          LJM    /EFX/IDL    EXECUTE IDLEDOWN ROUTINE
Line S03366 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05227  M01S03366.v23l617 ---| MCL      SPACE  4,10
05228  M01S03367.v23l617 ---|**        MCL - MONITOR CALL PROCESSOR.
Line S03368 Modification History
M01 (Removed by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05229  M02S03368.v23l617 ---|*
05230  M02S03369.v23l617 ---|*         CALLS  C2D, DFM.
05231  M02S03370.v23l617 ---|
05232  M02S03371.v23l617 ---|
05233  M02S03372.v23l617 ---| MCL      LDD    RA          READ (RA+1)
05234  M02S03373.v23l617 ---|          SHN    6
05235  M02S03374.v23l617 ---|          ADN    1
05236  M02S03375.v23l617 ---|          CRD    CM
05237  M02S03376.v23l617 ---|          LDC    EXPA+6      SET BUFFER ADDRESS
05238  M02S03377.v23l617 ---|          STD    T3
05239  M02S03378.v23l617 ---|          LDN    CM          SET BYTE ADDRESS
05240  M02S03379.v23l617 ---|          STD    T2
05241  M02S03380.v23l617 ---| MCL1     LDI    T2          REPLACE BLANKS WITH SPACES
05242  M02S03381.v23l617 ---|          SCN    77
05243  M02S03382.v23l617 ---|          NJN    MCL2        IF UPPER CHARACTER NOT ZERO
05244  M02S03383.v23l617 ---|          LDN    1R
05245  M02S03384.v23l617 ---|          SHN    6
05246  M02S03385.v23l617 ---| MCL2     STD    T0
05247  M02S03386.v23l617 ---|          LDI    T2
05248  M02S03387.v23l617 ---|          LPN    77
05249  M02S03388.v23l617 ---|          NJN    MCL3        IF LOWER CHARACTER NOT ZERO
05250  M02S03389.v23l617 ---|          LDN    1R
05251  M02S03390.v23l617 ---| MCL3     LMD    T0
05252  M02S03391.v23l617 ---|          STM    EXPA-CM,T2
05253  M02S03392.v23l617 ---|          LDI    T2          CONVERT DATA
05254  M02S03393.v23l617 ---|          SHN    -6
05255  M02S03394.v23l617 ---|          RJM    C2D
05256  M02S03395.v23l617 ---|          STI    T3
05257  M02S03396.v23l617 ---|          AOD    T3
05258  M02S03397.v23l617 ---|          LDI    T2
05259  M02S03398.v23l617 ---|          RJM    C2D
05260  M02S03399.v23l617 ---|          STI    T3
05261  M02S03400.v23l617 ---|          AOD    T3
05262  M02S03401.v23l617 ---|          AOD    T2
05263  M02S03402.v23l617 ---|          LMN    CM+5
05264  M02S03403.v23l617 ---|          NJN    MCL1        IF MORE BYTES TO CONVERT
05265  M02S03404.v23l617 ---|          STI    T3
05266  M02S03405.v23l617 ---|          LDC    2R
05267  M02S03406.v23l617 ---|          STM    EXPA-CM,T2
05268  M02S03407.v23l617 ---|          LDC    EXPA        ISSUE (RA+1) TO DAYFILE
05269  M02S03408.v23l617 ---|          RJM    DFM
05270  M02S03409.v23l617 ---|          LDC    MCLA
05271  M02S03410.v23l617 ---|          RJM    DFM         ISSUE *MONITOR CALL ERROR.* TO THE DAYFILE
05272  M02S03411.v23l617 ---|          LJM    EBCX        RETURN
05273  M02S03412.v23l617 ---|
05274  M02S03413.v23l617 ---|
05275  M02S03414.v23l617 ---| MCLA     DATA   C* MONITOR CALL ERROR.*
Line S00117 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05276  M02S00117.v23l617 ---|
05277  M02S00118.v23l617 ---|
05278  M02S00119.v23l617 ---| MCL      EXECUTE  3AL
05279  M02S00120.v23l617 ---|          LJM    /EFX/MCL    PROCESS ERROR CODE
Line S03415 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05280  M01S03415.v23l617 ---| MSL      SPACE  4,10
05281  M01S03416.v23l617 ---|**        MSL - PROCESS MESSAGE LIMIT ERROR.
Line S03417 Modification History
M01 (Removed by) 1aj34
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05282  M02S03417.v23l617 ---|*
05283  M02S03418.v23l617 ---|*         EXIT   TO *UTJ* IF INITIAL MESSAGE LIMIT FLAG HAS
05284  M02S03419.v23l617 ---|*                ALREADY BEEN SET.
05285  M02S03420.v23l617 ---|*
05286  M02S03421.v23l617 ---|*         USES   CM - CM+4.
05287  M02S03422.v23l617 ---|*
05288  M02S03423.v23l617 ---|*         CALLS  DFM.
05289  M02S03424.v23l617 ---|*
05290  M02S03425.v23l617 ---|*         MACROS MONITOR.
05291  M02S03426.v23l617 ---|
05292  M02S03427.v23l617 ---|
05293  M02S03428.v23l617 ---| MSL      LDD    CP          READ ACCOUNTING LIMIT FLAGS
05294  M02S03429.v23l617 ---|          ADN    ACTW
05295  M02S03430.v23l617 ---|          CRD    CM
05296  M02S03431.v23l617 ---|          LDD    CM          CHECK INITIAL MESSAGE LIMIT
05297  M02S03432.v23l617 ---|          SHN    21-6
05298  M02S03433.v23l617 ---|          PJN    MSL1        IF INITIAL MESSAGE LIMIT
05299  M02S03434.v23l617 ---|          LDC    MSLC        * MESSAGE LIMIT.*
05300  M02S03435.v23l617 ---|          RJM    DFM
05301  M02S03436.v23l617 ---|          LJM    UTJ         TERMINATE JOB
05302  M02S03437.v23l617 ---|
05303  M02S03438.v23l617 ---| MSL1     LDN    1           SETUP *UADM* CALL
05304  M02S03439.v23l617 ---|          STD    CM+2
05305  M02S03440.v23l617 ---|          LDN    2
05306  M02S03441.v23l617 ---|          STD    CM+1
05307  M02S03442.v23l617 ---|          LDD    MA          STORE *UADM* PARAMETERS
05308  M02S03443.v23l617 ---|          CWM    MSLA,CM+1
05309  M02S03444.v23l617 ---|          MONITOR  UADM      INCREMENT MESSAGE LIMIT
05310  M02S03445.v23l617 ---|          LDC    MSLB        * INITIAL MESSAGE LIMIT.*
05311  M02S03446.v23l617 ---|          RJM    DFM
05312  M02S03447.v23l617 ---|          LJM    EBCX        RETURN
05313  M02S03448.v23l617 ---|
05314  M02S03449.v23l617 ---|
05315  M02S03450.v23l617 ---| MSLA     CON    CICS        INCREMENT CP AREA FIELD
05316  M02S03451.v23l617 ---|          CON    ACLW        CP AREA WORD
05317  M02S03452.v23l617 ---|          CON    36DS6+12D   LOCATION WITHIN WORD + FIELD WIDTH
05318  M02S03453.v23l617 ---|          CON    0,DMLI      INCREMENT VALUE
05319  M02S03454.v23l617 ---|
05320  M02S03455.v23l617 ---|          CON    CIOS        INCREMENT CP AREA FIELD BY ONE
05321  M02S03456.v23l617 ---|          CON    ACTW        CP AREA WORD
05322  M02S03457.v23l617 ---|          CON    54DS6+1     LOCATION WITHIN WORD + FIELD WIDTH
05323  M02S03458.v23l617 ---|          CON    0,0
05324  M02S03459.v23l617 ---|
05325  M02S03460.v23l617 ---| MSLB     DATA   H* INITIAL*
05326  M02S03461.v23l617 ---| MSLC     DATA   C* MESSAGE LIMIT.*
Line S00015 Modification History
M01 (Added by) 1aj34
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05327  M02S00015.v23l617 ---|
05328  M02S00016.v23l617 ---|
05329  M02S00017.v23l617 ---| MSL      EXECUTE  3AL
05330  M02S00018.v23l617 ---|          LJM    /EFX/MSL    PROCESS ERROR CODE
Line S03462 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05331  M01S03462.v23l617 ---| PPA      SPACE  4,10
05332  M01S03463.v23l617 ---|**        PPA - PROCESS PPU ABORT.
Line S03464 Modification History
M01 (Removed by) 1aj46
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05333  M02S03464.v23l617 ---|*
05334  M02S03465.v23l617 ---|*         EXIT   TO *DMP1* TO PROCESS DUMP.
05335  M02S03466.v23l617 ---|*                TO *EBCX* IF NO DUMP REQUIRED.
05336  M02S03467.v23l617 ---|*
05337  M02S03468.v23l617 ---|*         CALLS  CPD.
05338  M02S03469.v23l617 ---|
05339  M02S03470.v23l617 ---|
05340  M02S03471.v23l617 ---| PPA      BSS    0           ENTRY
05341  M02S03472.v23l617 ---|          LDD    CP          CHECK IF *DMP* REQUIRED
05342  M02S03473.v23l617 ---|          ADC    PPDW
05343  M02S03474.v23l617 ---|          CRD    CM
05344  M02S03475.v23l617 ---|          LDD    CM+3
05345  M02S03476.v23l617 ---|          ADD    CM+4
05346  M02S03477.v23l617 ---|          NJN    PPA1        IF PPU DUMP CALL
05347  M02S03478.v23l617 ---|          LJM    EBCX        RETURN
05348  M02S03479.v23l617 ---|
05349  M02S03480.v23l617 ---| PPA1     LDD    CM+3        SET DUMP CALL
05350  M02S03481.v23l617 ---|          LPN    77
05351  M02S03482.v23l617 ---|          SHN    14
05352  M02S03483.v23l617 ---|          ADD    CM+4
05353  M02S03484.v23l617 ---|          SHN    14
05354  M02S03485.v23l617 ---|          STM    DMPA+2
05355  M02S03486.v23l617 ---|          SHN    -6
05356  M02S03487.v23l617 ---|          SCN    77
05357  M02S03488.v23l617 ---|          STM    DMPA+3
05358  M02S03489.v23l617 ---|          LDD    CM+3
05359  M02S03490.v23l617 ---|          SHN    14
05360  M02S03491.v23l617 ---|          ADD    CM+4
05361  M02S03492.v23l617 ---|          STM    DMPA+4
05362  M02S03493.v23l617 ---|          SHN    -14
05363  M02S03494.v23l617 ---|          RAM    DMPA+3
05364  M02S03495.v23l617 ---|          RJM    CPD         CLEAR PPU DUMP WORD
05365  M02S03496.v23l617 ---|          LJM    DMP1        PROCESS DMP CALL
Line S00006 Modification History
M01 (Added by) 1aj46
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05366  M02S00006.v23l617 ---|
05367  M02S00007.v23l617 ---|
05368  M02S00008.v23l617 ---| PPA      EXECUTE  3AL
05369  M02S00009.v23l617 ---|          LJM    /EFX/PPA    PROCESS PP ABORT
Line S00006 Modification History
M01 (Added by) ns2152
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05370  M02S00006.v23l617 ---| PSL      SPACE  4,10
05371  M02S00007.v23l617 ---|**        PSL - PROCESS SERVICE LIMIT.
05372  M02S00008.v23l617 ---|*
05373  M02S00009.v23l617 ---|*         EXIT   TO *EBCX*.
05374  M02S00010.v23l617 ---|*
05375  M02S00011.v23l617 ---|*         CALLS  ESB.
05376  M02S00012.v23l617 ---|
05377  M02S00013.v23l617 ---|
05378  M02S00014.v23l617 ---| PSL      RJM    ESB         EMPTY CONTROL STATEMENT BUFFER
05379  M02S00015.v23l617 ---|          LJM    EBCX        RETURN
Line S03497 Modification History
M01 (Removed by) ns2134
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05380  M02S03497.v23l617 ---| PSA      SPACE  4,10
05381  M02S03498.v23l617 ---|**        PSA - PROCESS SYSTEM ABORT.
Line S03499 Modification History
M01 (Removed by) 1aj34
M02 (Removed by) ns2134
M03 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05382  M03S03499.v23l617 ---|*
05383  M03S03500.v23l617 ---|*         EXIT   TO *EBCX* IF JOB NOT TO BE TERMINATED.
05384  M03S03501.v23l617 ---|*                TO *UTJ* IF JOB TO BE TERMINATED.
05385  M03S03502.v23l617 ---|
05386  M03S03503.v23l617 ---|
05387  M03S03504.v23l617 ---| PSA      BSS    0           ENTRY
05388  M03S03505.v23l617 ---|          LDM    JBOT        CHECK JOB ORIGIN TYPE
05389  M03S03506.v23l617 ---|          LMN    SYOT
05390  M03S03507.v23l617 ---|          ZJN    PSA1        IF SYSTEM ORIGIN
05391  M03S03508.v23l617 ---|          LDD    IR+2        CHECK *1AJ* CALL PARAMETERS
05392  M03S03509.v23l617 ---|          LMN    2
05393  M03S03510.v23l617 ---|          NJN    PSA2        IF NOT *DIS* CALL
05394  M03S03511.v23l617 ---| PSA1     LDD    FL          CHECK FIELD LENGTH
05395  M03S03512.v23l617 ---|          ZJN    PSA2        IF NO FIELD LENGTH ASSIGNED
05396  M03S03513.v23l617 ---|          LJM    EBCX        EXIT
05397  M03S03514.v23l617 ---|
05398  M03S03515.v23l617 ---| PSA2     LJM    UTJ         UNCONDITIONALLY TERMINATE JOB
Line S00019 Modification History
M01 (Added by) 1aj34
M02 (Removed by) ns2134
M03 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05399  M03S00019.v23l617 ---|
05400  M03S00020.v23l617 ---|
05401  M03S00021.v23l617 ---| PSA      EXECUTE  3AL
05402  M03S00022.v23l617 ---|          LJM    /EFX/PSA    PROCESS ERROR CODE
Line S03516 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05403  M01S03516.v23l617 ---| PST      SPACE  4,10
05404  M01S03517.v23l617 ---|**        PST - PROGRAM STOP PROCESSOR.
Line S03518 Modification History
M01 (Removed by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05405  M02S03518.v23l617 ---|*
05406  M02S03519.v23l617 ---|*         SEND ADDRESS MESSAGE.
05407  M02S03520.v23l617 ---|*
05408  M02S03521.v23l617 ---|*         EXIT TO *DMP*.
05409  M02S03522.v23l617 ---|*
05410  M02S03523.v23l617 ---|*         CALLS  C2D, DFM.
05411  M02S03524.v23l617 ---|
05412  M02S03525.v23l617 ---|
05413  M02S03526.v23l617 ---| PST      BSS    0           ENTRY
05414  M02S03527.v23l617 ---|          LDD    CP          READ EXCHANGE PACKAGE P-REGISTER
05415  M02S03528.v23l617 ---|          CRD    CM
05416  M02S03529.v23l617 ---|          LDD    CM          CONVERT ADDRESS
05417  M02S03530.v23l617 ---|          RJM    C2D
05418  M02S03531.v23l617 ---|          STM    PSTB
05419  M02S03532.v23l617 ---|          LDD    CM+1
05420  M02S03533.v23l617 ---|          SHN    -6
05421  M02S03534.v23l617 ---|          RJM    C2D
05422  M02S03535.v23l617 ---|          STM    PSTB+1
05423  M02S03536.v23l617 ---|          LDD    CM+1
05424  M02S03537.v23l617 ---|          RJM    C2D
05425  M02S03538.v23l617 ---|          STM    PSTB+2
05426  M02S03539.v23l617 ---|          LDC    PSTA        ERROR MESSAGE TO DAYFILE
05427  M02S03540.v23l617 ---|          RJM    DFM
05428  M02S03541.v23l617 ---|          LJM    DMP         EXIT TO DMP
05429  M02S03542.v23l617 ---|
05430  M02S03543.v23l617 ---|
05431  M02S03544.v23l617 ---| PSTA     DATA   H* PROGRAM STOP AT *
05432  M02S03545.v23l617 ---| PSTB     DATA   C*000000.*
Line S00121 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05433  M02S00121.v23l617 ---|
05434  M02S00122.v23l617 ---|
05435  M02S00123.v23l617 ---| PST      EXECUTE  3AL
05436  M02S00124.v23l617 ---|          LJM    /EFX/PST    PROCESS ERROR CODE
Line S00146 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2395
Seq #  *Modification Id* Act 
----------------------------+
05437  M02S00146.ns2395  ---| PSL      SPACE  4,10
05438  M02S00147.ns2395  ---|**        PSL - PROCESS SERVICE LIMIT.
05439  M02S00148.ns2395  ---|*
05440  M02S00149.ns2395  ---|*         EXIT   TO *EBCX*.
05441  M02S00150.ns2395  ---|*
05442  M02S00151.ns2395  ---|*         CALLS  ESB.
05443  M02S00152.ns2395  ---|
05444  M02S00153.ns2395  ---|
05445  M02S00154.ns2395  ---| PSL      BSS    0           ENTRY
05446  M02S00155.ns2395  ---|          RJM    ESB         EMPTY CONTROL STATEMENT BUFFER
05447  M02S00156.ns2395  ---|          LJM    EBCX        RETURN
05448  M00S03546.1aj     +++| PTA      SPACE  4,10
05449  M00S03547.1aj     +++|**        PTA - PROCESS TERMINAL ABORT (USER BREAK 2).
05450  M00S03548.1aj     +++|*
05451  M00S03549.1aj     +++|*         EXIT   TO *EBCX*.
05452  M00S03550.1aj     +++|*
Line S03551 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05453  M01S03551.272l774 ---|*         USES   T1 - T5.
05454  M01S03552.272l774 ---|*
05455  M00S03553.1aj     +++|*         CALLS  CMF, DFM, DTC, PLF.
05456  M00S03554.1aj     +++|
05457  M00S03555.1aj     +++|
05458  M00S03556.1aj     +++| PTA      BSS    0           ENTRY
05459  M00S03557.1aj     +++|          RJM    DTC         PROCESS DISABLED TERMINAL CONTROL
05460  M00S03558.1aj     +++|
05461  M00S03559.1aj     +++|*         CONTROL WILL RETURN FROM *DTC* ONLY IF DISABLED
05462  M00S03560.1aj     +++|*         TERMINAL CONTROL WAS NOT PROCESSED.
05463  M00S03561.1aj     +++|
Line S03562 Modification History
M01 (Removed by) 1aj26
Seq #  *Modification Id* Act 
----------------------------+
05464  M01S03562.1aj26   ---|          LDC    =C* USER BREAK TWO ENCOUNTERED.*+NMSN
05465  M01S03563.1aj26   ---|          RJM    DFM         ISSUE DAYFILE MESSAGE
05466  M00S03564.1aj     +++|          LDD    FL          CHECK FIELD LENGTH
05467  M00S03565.1aj     +++|          ZJN    PTA2        IF NO FIELD LENGTH ASSIGNED
Line S03566 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05468  M01S03566.272l774 ---|          LDD    CP          READ LIST OF FILES POINTER
05469  M01S03567.272l774 ---|          ADK    LOFW
05470  M01S03568.272l774 ---|          CRD    T1
05471  M01S03569.272l774 ---|          LDD    T2          CHECK LIST OF FILES ADDRESS
05472  M01S03570.272l774 ---|          LPN    77
05473  M01S03571.272l774 ---|          ADD    T3
05474  M01S03572.272l774 ---|          ZJN    PTA1        IF NO LIST OF FILES
05475  M00S03573.1aj     +++|          RJM    PLF         PROCESS LIST OF FILES
Line S03574 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05476  M01S03574.272l774 ---|          UJN    PTA2        EXIT
05477  M01S03575.272l774 ---|
05478  M01S03576.272l774 ---| PTA1     RJM    CMF         COMPLETE SPECIAL FILES
Line S00019 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05479  M01S00019.272l774 +++|          ZJN    PTA2        IF LIST OF FILES DEFINED
05480  M01S00020.272l774 +++|          RJM    CMF         COMPLETE SPECIAL FILES
Line S03577 Modification History
M01 (Removed by) 1aj26
Seq #  *Modification Id* Act 
----------------------------+
05481  M01S03577.1aj26   ---| PTA2     UJP    EBCX        RETURN
Line S00001 Modification History
M01 (Added by) 1aj26
Seq #  *Modification Id* Act 
----------------------------+
05482  M01S00001.1aj26   +++| PTA2     LDC    =C* USER BREAK TWO ENCOUNTERED.*+NMSN
05483  M01S00002.1aj26   +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
05484  M01S00003.1aj26   +++|          UJP    EBCX        RETURN
05485  M00S03578.1aj     +++| PTI      SPACE  4,10
05486  M00S03579.1aj     +++|**        PTI - PROCESS TERMINAL INTERRUPT (USER BREAK 1).
05487  M00S03580.1aj     +++|*
05488  M00S03581.1aj     +++|*         EXIT   TO *//ROJ* TO ROLLOUT JOB.
05489  M00S03582.1aj     +++|*
05490  M00S03583.1aj     +++|*         CALLS  DTC.
05491  M00S03584.1aj     +++|
05492  M00S03585.1aj     +++|
05493  M00S03586.1aj     +++| PTI      BSS    0           ENTRY
05494  M00S03587.1aj     +++|          RJM    DTC         PROCESS DISABLED TERMINAL CONTROL
05495  M00S03588.1aj     +++|
05496  M00S03589.1aj     +++|*         CONTROL WILL RETURN FROM *DTC* ONLY IF DISABLED
05497  M00S03590.1aj     +++|*         TERMINAL CONTROL WAS NOT PROCESSED.
05498  M00S03591.1aj     +++|
05499  M00S03592.1aj     +++|          LJM    //ROJ       ROLLOUT JOB
05500  M00S03593.1aj     +++| RAB      SPACE  4,10
05501  M00S03594.1aj     +++|**        RAB - PROCESS RECOVERY ABORT.
05502  M00S03595.1aj     +++|*
Line S03596 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05503  M01S03596.v23l617 ---|*         SETS THE JOB TERMINATION STATUS OF NON-TIMESHARING
Line S00157 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05504  M01S00157.v23l617 +++|*         SETS THE JOB TERMINATION STATUS OF NON-INTERACTIVE
05505  M00S03597.1aj     +++|*         JOB TO *TJJT* AND ADVANCES THE JOB TO THE NEXT *EXIT*
Line S03598 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05506  M01S03598.v23l617 ---|*         STATEMENT.
Line S00158 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05507  M01S00158.v23l617 +++|*         COMMAND.
05508  M00S03599.1aj     +++|*
05509  M00S03600.1aj     +++|*         EXIT   TO *EBCX*.
05510  M00S03601.1aj     +++|*
Line S03602 Modification History
M01 (Removed by) 1aj17
Seq #  *Modification Id* Act 
----------------------------+
05511  M01S03602.1aj17   ---|*         CALLS  SEJ.
Line S00004 Modification History
M01 (Added by) 1aj17
Seq #  *Modification Id* Act 
----------------------------+
05512  M01S00004.1aj17   +++|*         CALLS  RSF, SEJ.
05513  M00S03603.1aj     +++|
05514  M00S03604.1aj     +++|
05515  M00S03605.1aj     +++| RAB      BSS    0           ENTRY
Line S00002 Modification History
M01 (Added by) ns2117
Seq #  *Modification Id* Act 
----------------------------+
05516  M01S00002.ns2117  +++|          RJM    RSF         RETURN SPECIAL FILES
05517  M00S03606.1aj     +++|          LDM    TSTN        CHECK TERMINAL NUMBER
05518  M00S03607.1aj     +++|          NJN    RAB1        IF ON-LINE INTERACTIVE JOB
Line S03608 Modification History
M01 (Removed by) ns2117
Seq #  *Modification Id* Act 
----------------------------+
05519  M01S03608.ns2117  ---|          LDN    TJJT        SELECT TERMINATE-JOB OPTION
Line S00003 Modification History
M01 (Added by) ns2117
Seq #  *Modification Id* Act 
----------------------------+
05520  M01S00003.ns2117  +++|          LDM    JBCS        CHECK CONNECTION STATUS
05521  M01S00004.ns2117  +++|          LMN    DTCS
05522  M01S00005.ns2117  +++|          NJN    RAB1        IF BATCH JOB
05523  M01S00006.ns2117  +++|          LDN    SUJT        SET JOB OPTION FOR DETACHED JOB
05524  M00S03609.1aj     +++|          RJM    SEJ         SET END OF JOB OPTION
Line S03610 Modification History
M01 (Removed by) 1aj17
Seq #  *Modification Id* Act 
----------------------------+
05525  M01S03610.1aj17   ---| RAB1     LJM    EBCX        EXIT
Line S00005 Modification History
M01 (Added by) 1aj17
M02 (Removed by) ns2117
Seq #  *Modification Id* Act 
----------------------------+
05526  M02S00005.ns2117  ---| RAB1     RJM    RSF         RETURN SPECIAL FILES
05527  M02S00006.ns2117  ---|          LJM    EBCX        RETURN
Line S00007 Modification History
M01 (Added by) ns2117
Seq #  *Modification Id* Act 
----------------------------+
05528  M01S00007.ns2117  +++| RAB1     LJM    EBCX        RETURN
05529  M00S03611.1aj     +++| RER      SPACE  4,10
05530  M00S03612.1aj     +++|**        RER - RERUN JOB.
05531  M00S03613.1aj     +++|*
Line S03614 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05532  M01S03614.v23l617 ---|*         SETS THE JOB TERMINATION OPTION FOR NON-TIMESHARING
Line S00159 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05533  M01S00159.v23l617 +++|*         SETS THE JOB TERMINATION OPTION FOR NON-INTERACTIVE
Line S03615 Modification History
M01 (Removed by) 1aj51
Seq #  *Modification Id* Act 
----------------------------+
05534  M01S03615.1aj51   ---|*         JOB TO *RJJT* AND TERMINATES THE JOB.
Line S00001 Modification History
M01 (Added by) 1aj51
Seq #  *Modification Id* Act 
----------------------------+
05535  M01S00001.1aj51   +++|*         JOB TO *RJJT*, ISSUES THE RERUN ACCOUNT FILE MESSAGE,
05536  M01S00002.1aj51   +++|*         AND ADVANCES THE JOB TO THE NEXT *EXIT* COMMAND.
05537  M00S03616.1aj     +++|*
05538  M00S03617.1aj     +++|*         EXIT   TO *EBCX*.
05539  M00S03618.1aj     +++|*
Line S03619 Modification History
M01 (Removed by) 1aj51
Seq #  *Modification Id* Act 
----------------------------+
05540  M01S03619.1aj51   ---|*         CALLS  ESB, SEJ.
Line S00003 Modification History
M01 (Added by) 1aj51
Seq #  *Modification Id* Act 
----------------------------+
05541  M01S00003.1aj51   +++|*         CALLS  DFM, ESB, SEJ.
05542  M00S03620.1aj     +++|
05543  M00S03621.1aj     +++|
05544  M00S03622.1aj     +++| RER      BSS    0           ENTRY
Line S03623 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05545  M01S03623.v23l617 ---|          RJM    ESB         EMPTY STATEMENT BUFFER
Line S00160 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05546  M01S00160.v23l617 +++|          RJM    ESB         EMPTY COMMAND BUFFER
05547  M00S03624.1aj     +++|          LDM    TSTN        CHECK TERMINAL NUMBER
05548  M00S03625.1aj     +++|          NJN    RER1        IF ON-LINE INTERACTIVE JOB
05549  M00S03626.1aj     +++|          LDN    RJJT        SELECT RERUN JOB OPTION
05550  M00S03627.1aj     +++|          RJM    SEJ         SET END-OF-JOB OPTION
Line S00004 Modification History
M01 (Added by) 1aj51
Seq #  *Modification Id* Act 
----------------------------+
05551  M01S00004.1aj51   +++|          LDC    RREA+ACFN   ISSUE ACCOUNT FILE MESSAGE
05552  M01S00005.1aj51   +++|          RJM    DFM
05553  M00S03628.1aj     +++| RER1     LJM    EBCX        EXIT
Line S00006 Modification History
M01 (Added by) 1aj51
Seq #  *Modification Id* Act 
----------------------------+
05554  M01S00006.1aj51   +++|
05555  M01S00007.1aj51   +++|
05556  M01S00008.1aj51   +++| RREA     DATA   C*AERR, OP.*
05557  M00S03629.1aj     +++| SRL      SPACE  4,10
05558  M00S03630.1aj     +++|**        SRL - SRU LIMIT ERROR PROCESSOR.
05559  M00S03631.1aj     +++|*
05560  M00S03632.1aj     +++|*         INCREASES USERS SRU LIMIT BY DSLI UNITS SO THAT THE USER MAY
05561  M00S03633.1aj     +++|*         FINISH CURRENT PROCESSING.
05562  M00S03634.1aj     +++|*
05563  M00S03635.1aj     +++|*         EXIT   TO *EBCX*.
05564  M00S03636.1aj     +++|*
Line S03637 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05565  M01S03637.ns2323  ---|*         CALLS  DFM, ITL.
Line S00116 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05566  M01S00116.ns2323  +++|*         CALLS  DFM, ITL, SCR.
05567  M00S03638.1aj     +++|*
05568  M00S03639.1aj     +++|*         MACROS MONITOR.
05569  M00S03640.1aj     +++|
05570  M00S03641.1aj     +++|
05571  M00S03642.1aj     +++| SRL      LDD    CP          CHECK IF ACCOUNT BLOCK OR JOB STEP LIMIT
05572  M00S03643.1aj     +++|          ADN    SRUW
05573  M00S03644.1aj     +++|          CRD    CM
05574  M00S03645.1aj     +++|          ADN    STLW-SRUW   COMPARE ACCUMULATOR TO ACCOUNT BLOCK LIMIT
05575  M00S03646.1aj     +++|          CRD    T3
05576  M00S03647.1aj     +++|          LDD    T3+1
05577  M00S03648.1aj     +++|          SCN    77
05578  M00S03649.1aj     +++|          SHN    6
05579  M00S03650.1aj     +++|          LMD    T3
05580  M00S03651.1aj     +++|          SHN    6
05581  M00S03652.1aj     +++|          STD    T3+4
05582  M00S03653.1aj     +++|          SHN    -14
05583  M00S03654.1aj     +++|          STD    T3+3
05584  M00S03655.1aj     +++|          LDN    0
05585  M00S03656.1aj     +++|          STD    T3+2
05586  M00S03657.1aj     +++|          LDN    2
05587  M00S03658.1aj     +++|          STD    T1
05588  M00S03659.1aj     +++|          LDD    MA
05589  M00S03660.1aj     +++|          CWM    T3,T1
05590  M00S03661.1aj     +++|          LDD    CM          CHECK IF VALIDATION LIMIT REACHED
05591  M00S03662.1aj     +++|          SHN    21-11
05592  M00S03663.1aj     +++|          PJN    SRL1        IF NOT VALIDATION LIMIT
Line S03664 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05593  M01S03664.ns2323  ---|          LDD    CP          SET CHARGE REQUIRED
05594  M01S03665.ns2323  ---|          ADN    UIDW
05595  M01S03666.ns2323  ---|          CRD    CM
05596  M01S03667.ns2323  ---|          LDN    40
05597  M01S03668.ns2323  ---|          LMD    CM+3
05598  M01S03669.ns2323  ---|          STD    CM+3
05599  M01S03670.ns2323  ---|          LDD    CP
05600  M01S03671.ns2323  ---|          ADN    UIDW
05601  M01S03672.ns2323  ---|          CWD    CM
Line S00117 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05602  M01S00117.ns2323  +++|          RJM    SCR         SET CHARGE REQUIRED
05603  M00S03673.1aj     +++| SRL1     LDN    11          3/OPERATION FLAG,3/WORD COUNT
05604  M00S03674.1aj     +++|          STD    CM+4
05605  M00S03675.1aj     +++|          LDN    ABIF        SUBFUNCTION CODE
05606  M00S03676.1aj     +++|          STD    CM+1
05607  M00S03677.1aj     +++|          MONITOR  ACTM
05608  M00S03678.1aj     +++|          LDD    MA
05609  M00S03679.1aj     +++|          CRD    CM
05610  M00S03680.1aj     +++|          LDD    CM
05611  M00S03681.1aj     +++|          SHN    6
05612  M00S03682.1aj     +++|          MJN    SRL2        IF NOT ACCOUNT BLOCK LIMIT
05613  M00S03683.1aj     +++|          LDN    RLIA-RLIS
05614  M00S03684.1aj     +++|          RAM    SRLA
05615  M00S03685.1aj     +++|          LDC    SRLB
05616  M00S03686.1aj     +++|          UJN    SRL3        ISSUE ACCOUNT BLOCK LIMIT MESSAGE
05617  M00S03687.1aj     +++|
05618  M00S03688.1aj     +++| SRL2     LDC    SRLC
05619  M00S03689.1aj     +++| SRL3     RJM    DFM         ACCOUNT BLOCK LIMIT MESSAGE
05620  M00S03690.1aj     +++|          LDN    DSLI
05621  M00S03691.1aj     +++|          STD    CM+4
05622  M00S03692.1aj     +++|          LDN    RLIS        SRU REQUEST
05623  M00S03693.1aj     +++|*         LDN    RLIA        (ACCOUNT BLOCK LIMIT)
05624  M00S03694.1aj     +++| SRLA     EQU    *-1
05625  M00S03695.1aj     +++|          RJM    ITL         REQUEST LIMIT INCREASE
05626  M00S03696.1aj     +++|          LJM    EBCX        RETURN
05627  M00S03697.1aj     +++|
05628  M00S03698.1aj     +++|
05629  M00S03699.1aj     +++| SRLB     DATA   C* ACCOUNT BLOCK LIMIT.*
05630  M00S03700.1aj     +++| SRLC     DATA   C* JOB STEP LIMIT.*
05631  M00S03701.1aj     +++| SVE      SPACE  4,15
05632  M00S03702.1aj     +++|**        SVE - PROCESS SECURITY VIOLATION ERROR.
05633  M00S03703.1aj     +++|*
05634  M00S03704.1aj     +++|*         DECREMENTS THE USER SECURITY COUNT AND TERMINATES THE JOB.
05635  M00S03705.1aj     +++|*
Line S03706 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05636  M01S03706.ns22000 ---|*         EXIT   TO *UTJ* TO TERMINATE JOB.
Line S00180 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05637  M02S00180.ns2323  ---|*         EXIT   TO *UTJ*, IF SECURITY COUNT = 0.
Line S00118 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05638  M01S00118.ns2323  +++|*         EXIT   TO *TRJ*, IF SECURITY COUNT = 0.
Line S00181 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05639  M01S00181.ns22000 +++|*                TO *EBCX*, OTHERWISE.
05640  M00S03707.1aj     +++|*
05641  M00S03708.1aj     +++|*         USES   CM - CM+4, SP - SP+4, 30 - 34, T1.
05642  M00S03709.1aj     +++|*
05643  M00S03710.1aj     +++|*         CALLS  *0AV*.
05644  M00S03711.1aj     +++|*
Line S03712 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05645  M01S03712.ns22000 ---|*         MACROS EXECUTE.
Line S00182 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05646  M01S00182.ns22000 +++|*         MACROS EXECUTE, SFA.
05647  M00S03713.1aj     +++|
05648  M00S03714.1aj     +++|
05649  M00S03715.1aj     +++| SVE      BSS    0           ENTRY
Line S03716 Modification History
M01 (Removed by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05650  M01S03716.1aj43   ---|          LDD    CP          READ DEFAULT FAMILY EQUIPMENT
Line S00001 Modification History
M01 (Added by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05651  M01S00001.1aj43   +++|          LDD    CP          GET FAMILY EST ORDINAL FROM CPA
05652  M00S03717.1aj     +++|          ADN    PFCW
05653  M00S03718.1aj     +++|          CRD    CM
Line S03719 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05654  M01S03719.ns22000 ---|          LDD    CM+3        READ EST ENTRY
05655  M01S03720.ns22000 ---|          ADM    ESTS
Line S00183 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05656  M02S00183.1aj43   ---|          SFA    EST,CM+3    READ EST ENTRY
Line S00002 Modification History
M01 (Added by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05657  M01S00002.1aj43   +++|          ADN    UIDW-PFCW   GET USER NAME FROM CPA
05658  M01S00003.1aj43   +++|          CRD    SP
05659  M01S00004.1aj43   +++|          SFA    EST,CM+3    READ EST ENTRY FOR FAMILY
Line S00184 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05660  M01S00184.ns22000 +++|          ADK    EQDE
05661  M00S03721.1aj     +++|          CRD    CM
Line S03722 Modification History
M01 (Removed by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05662  M01S03722.1aj43   ---|          LDD    CM+4        READ FAMILY NAME
Line S00005 Modification History
M01 (Added by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05663  M01S00005.1aj43   +++|          LDD    CM+4        READ FAMILY NAME FROM MST
05664  M00S03723.1aj     +++|          SHN    3
05665  M00S03724.1aj     +++|          ADN    PFGL
05666  M00S03725.1aj     +++|          CRD    30B         (*0AV* ENTRY CONDITION)
Line S03726 Modification History
M01 (Removed by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05667  M01S03726.1aj43   ---|          LDD    CP          READ USER NAME
05668  M01S03727.1aj43   ---|          ADK    UIDW
05669  M01S03728.1aj43   ---|          CRD    SP
05670  M01S03729.1aj43   ---|          LDN    1           SET *DECREMENT SECURITY COUNT* FUNCTION
Line S00006 Modification History
M01 (Added by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05671  M01S00006.1aj43   +++|          LDD    CP          CHECK FOR *SSJ=* PROGRAM
05672  M01S00007.1aj43   +++|          ADK    SEPW
05673  M01S00008.1aj43   +++|          CRD    CM
05674  M01S00009.1aj43   +++|          LDD    CM
05675  M01S00010.1aj43   +++|          LPN    4
05676  M01S00011.1aj43   +++|          ZJN    SVE0        IF NOT *SSJ=* PROGRAM
05677  M01S00012.1aj43   +++|          LDD    CM+3
05678  M01S00013.1aj43   +++|          LPN    77
Line S00014 Modification History
M01 (Added by) 1aj43
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05679  M02S00014.ns2323  ---|          SHN    14
05680  M02S00015.ns2323  ---|          LMD    CM+4
Line S00119 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05681  M01S00119.ns2323  +++|          ADD    CM+4
Line S00016 Modification History
M01 (Added by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05682  M01S00016.1aj43   +++|          ZJN    SVE0        IF NO *SSJ=* BLOCK
Line S00017 Modification History
M01 (Added by) 1aj43
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05683  M02S00017.ns2323  ---|          ADK    UIDS        READ USER NAME FROM *SSJ=* BLOCK
05684  M02S00018.ns2323  ---|          SHN    -6+22
05685  M02S00019.ns2323  ---|          ADD    RA
05686  M02S00020.ns2323  ---|          SHN    6
Line S00120 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05687  M01S00120.ns2323  +++|          NFA    SSJN+UIDS   READ USER NAME FROM SSJ= BLOCK
Line S00021 Modification History
M01 (Added by) 1aj43
Seq #  *Modification Id* Act 
----------------------------+
05688  M01S00021.1aj43   +++|          CRD    SP
05689  M01S00022.1aj43   +++| SVE0     LDN    1           SET *DECREMENT SECURITY COUNT* FUNCTION
05690  M00S03730.1aj     +++|          STD    SP+4
05691  M00S03731.1aj     +++|          EXECUTE  0AV,L0AV  UPDATE USER VALIDATION VIA *0AV*
Line S00185 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05692  M01S00185.ns22000 +++|          LDD    T6
05693  M01S00186.ns22000 +++|          NJN    SVE1        IF SECURITY COUNT .NE. 0
Line S03732 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05694  M01S03732.ns2323  ---|          LJM    UTJ         TERMINATE JOB
Line S00121 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05695  M01S00121.ns2323  +++|          LJM    TRJ         TERMINATE JOB
Line S00187 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05696  M01S00187.ns22000 +++|
05697  M01S00188.ns22000 +++| SVE1     LJM    EBCX        RETURN
Line S00051 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
05698  M01S00051.241l630 +++| SWE      SPACE  4,10
05699  M01S00052.241l630 +++|**        SWE - PROCESS SYSTEM SOFTWARE ERROR.
05700  M01S00053.241l630 +++|*
05701  M01S00054.241l630 +++|*         SETS THE JOB TERMINATION OPTION TO *SRJT*,
05702  M01S00055.241l630 +++|*         ISSUES THE SYSTEM SOFTWARE ERROR ACCOUNT
05703  M01S00056.241l630 +++|*         FILE MESSAGE, AND TERMINATES THE JOB.
05704  M01S00057.241l630 +++|*
05705  M01S00058.241l630 +++|*         EXIT   TO *EBCX*.
05706  M01S00059.241l630 +++|*
05707  M01S00060.241l630 +++|*         CALLS  ESB, LOF.
05708  M01S00061.241l630 +++|
05709  M01S00062.241l630 +++|
05710  M01S00063.241l630 +++| SWE      BSS    0           ENTRY
Line S00064 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05711  M02S00064.ns2323  ---|          LDD    CP          CLEAR EPILOGUE REQUIRED FLAG
05712  M02S00065.ns2323  ---|          ADK    CSPW
05713  M02S00066.ns2323  ---|          CRD    CM
05714  M02S00067.ns2323  ---|          LDD    CM
05715  M02S00068.ns2323  ---|          SCN    10
05716  M02S00069.ns2323  ---|          STD    CM
05717  M02S00070.ns2323  ---|          LDD    CP
05718  M02S00071.ns2323  ---|          ADK    CSPW
05719  M02S00072.ns2323  ---|          CWD    CM
Line S00073 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
05720  M01S00073.241l630 +++|          LDM    JBCS        CHECK JOB CONNECTION STATUS
05721  M01S00074.241l630 +++|          LMK    OLCS
05722  M01S00075.241l630 +++|          ZJN    SWE1        IF ON-LINE INTERACTIVE JOB
05723  M01S00076.241l630 +++|          LMK    DTCS&OLCS
05724  M01S00077.241l630 +++|          NJN    SWE2        IF NON-INTERACTIVE JOB
Line S00078 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05725  M02S00078.ns2323  ---| SWE1     LJM    UTJ         UNCONDITIONALLY TERMINATE JOB
Line S00122 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05726  M01S00122.ns2323  +++| SWE1     LJM    TRJ         TERMINATE JOB
Line S00079 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
05727  M01S00079.241l630 +++|
05728  M01S00080.241l630 +++| SWE2     RJM    ESB         EMPTY COMMAND BUFFER
05729  M01S00081.241l630 +++|          LDN    SRJT        SELECT *SOFTWARE ERROR RERUN* OPTION
05730  M01S00082.241l630 +++|          RJM    SEJ
05731  M01S00083.241l630 +++|          LJM    EBCX        RETURN
Line S03733 Modification History
M01 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05732  M01S03733.ns2197  ---| TEJ      SPACE  4,20
Line S03734 Modification History
M01 (Removed by) ns2197
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05733  M02S03734.v23l617 ---|**        TEJ - TERMINATE TIMESHARING JOB.
Line S03735 Modification History
M01 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05734  M01S03735.ns2197  ---|*
05735  M01S03736.ns2197  ---|*         THIS ROUTINE INITIATES JOB TERMINATION PROCESSING FOR AN
05736  M01S03737.ns2197  ---|*         ON-LINE INTERACTIVE JOB THAT HAS BEEN LOGGED OFF BY *IAF*.
05737  M01S03738.ns2197  ---|*         IF THE JOB IS NOT ON-LINE INTERACTIVE, THE PP WILL BE HUNG,
05738  M01S03739.ns2197  ---|*         THEN THE ERROR FLAG WILL BE CHANGED TO *SYET* AND THE JOB
05739  M01S03740.ns2197  ---|*         TERMINATED.
05740  M01S03741.ns2197  ---|*
05741  M01S03742.ns2197  ---|*         ENTRY  (JO) = EJT ORDINAL.
05742  M01S03743.ns2197  ---|*
05743  M01S03744.ns2197  ---|*         EXIT   (TSTN) = 0.
05744  M01S03745.ns2197  ---|*                TO *EBCX*.
05745  M01S03746.ns2197  ---|*
05746  M01S03747.ns2197  ---|*         ERROR  TO *PSA*.
05747  M01S03748.ns2197  ---|*
05748  M01S03749.ns2197  ---|*         USES   T1 - T5, CM - CM+4.
05749  M01S03750.ns2197  ---|*
05750  M01S03751.ns2197  ---|*         CALLS  ESB, GTA, SEJ, SQD.
05751  M01S03752.ns2197  ---|*
05752  M01S03753.ns2197  ---|*         MACROS MONITOR, SFA.
05753  M01S03754.ns2197  ---|
05754  M01S03755.ns2197  ---|
05755  M01S03756.ns2197  ---| TEJ      BSS    0           ENTRY
Line S03757 Modification History
M01 (Removed by) ns2197
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05756  M02S03757.v23l617 ---|          RJM    ESB         EMPTY CONTROL STATEMENT BUFFER
Line S03758 Modification History
M01 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05757  M01S03758.ns2197  ---|
05758  M01S03759.ns2197  ---|*         CLEAR EJT ORDINAL IN TERMINAL TABLE.
05759  M01S03760.ns2197  ---|
05760  M01S03761.ns2197  ---|          LDM    TSTN        SET TERMINAL NUMBER
Line S03762 Modification History
M01 (Removed by) ns2197
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05761  M02S03762.v23l617 ---|          ZJP    TEJ1        IF NOT ONLINE TIMESHARING JOB
Line S03763 Modification History
M01 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05762  M01S03763.ns2197  ---|          RJM    GTA         GET TERMINAL TABLE ADDRESS
05763  M01S03764.ns2197  ---|          ADK    /REM/VUIT
05764  M01S03765.ns2197  ---|          CRD    CM
05765  M01S03766.ns2197  ---|          ADN    /REM/VROT-/REM/VUIT
05766  M01S03767.ns2197  ---|          CRD    T1
05767  M01S03768.ns2197  ---|          LDN    0           CLEAR EJT ORDINAL
05768  M01S03769.ns2197  ---|          STD    CM+4
05769  M01S03770.ns2197  ---|          LDD    T1+4
05770  M01S03771.ns2197  ---|          SHN    21-0
05771  M01S03772.ns2197  ---|          MJN    TEJ0        IF *VROT* COMPLETE
05772  M01S03773.ns2197  ---|          AOD    T1+4        COMPLETE *VROT*
05773  M01S03774.ns2197  ---|          RJM    GTA         REWRITE *VROT*
05774  M01S03775.ns2197  ---|          ADN    /REM/VROT
05775  M01S03776.ns2197  ---|          CWD    T1
05776  M01S03777.ns2197  ---| TEJ0     RJM    GTA         REWRITE *VUIT*
05777  M01S03778.ns2197  ---|          ADK    /REM/VUIT
05778  M01S03779.ns2197  ---|          CWD    CM          REWRITE *VUIT*
05779  M01S03780.ns2197  ---|
05780  M01S03781.ns2197  ---|*         SET JOB TERMINATION OPTIONS.
05781  M01S03782.ns2197  ---|
05782  M01S03783.ns2197  ---|          LDN    TJJT        SELECT *TERMINATE JOB* OPTION
05783  M01S03784.ns2197  ---|          RJM    SEJ         SET END-OF-JOB OPTION
05784  M01S03785.ns2197  ---|          LDN    NOJT        SELECT *DROP OUTPUT* OPTION
05785  M01S03786.ns2197  ---|          RJM    SQD         SET QUEUE FILE DISPOSITION
05786  M01S03787.ns2197  ---|
05787  M01S03788.ns2197  ---|*         CHANGE CONNECTION STATUS TO NON-INTERACTIVE.
05788  M01S03789.ns2197  ---|
05789  M01S03790.ns2197  ---|          LDN    0           CLEAR INTERNAL INTERACTIVE FLAG
05790  M01S03791.ns2197  ---|          STM    TSTN
05791  M01S03792.ns2197  ---|          STD    CM+2        CHANGE CONNECTION STATUS TO *NICS*
05792  M01S03793.ns2197  ---|          LDN    TEJAL
05793  M01S03794.ns2197  ---|          STD    CM+1
05794  M01S03795.ns2197  ---|          SFA    EJT,JO
05795  M01S03796.ns2197  ---|          STD    CM+4
05796  M01S03797.ns2197  ---|          SHN    -14
05797  M01S03798.ns2197  ---|          STD    CM+3
05798  M01S03799.ns2197  ---|          LDD    MA
05799  M01S03800.ns2197  ---|          CWM    TEJA,CM+1
05800  M01S03801.ns2197  ---|          MONITOR  UTEM
05801  M01S03802.ns2197  ---|          LJM    EBCX        EXIT
05802  M01S03803.ns2197  ---|
Line S03804 Modification History
M01 (Removed by) ns2197
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05803  M02S03804.v23l617 ---|*         PROCESS INVALID JOB TYPE.
Line S03805 Modification History
M01 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05804  M01S03805.ns2197  ---|
05805  M01S03806.ns2197  ---| TEJ1     MONITOR  HNGM      HANG PPU
05806  M01S03807.ns2197  ---|          LDK    SYET        CHANGE ERROR FLAG TO *SYET*
05807  M01S03808.ns2197  ---|          STD    EF
Line S03809 Modification History
M01 (Removed by) ns2134
M02 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05808  M02S03809.ns2197  ---|          LJM    PSA         PROCESS SYSTEM ERROR
Line S00002 Modification History
M01 (Added by) ns2134
M02 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05809  M02S00002.ns2197  ---|          LJM    UTJ         TERMINATE JOB
Line S03810 Modification History
M01 (Removed by) ns2197
Seq #  *Modification Id* Act 
----------------------------+
05810  M01S03810.ns2197  ---|
05811  M01S03811.ns2197  ---|*         *UTEM* PARAMETERS.
05812  M01S03812.ns2197  ---|
05813  M01S03813.ns2197  ---| TEJA     VFD    1/0,5/JSNE,6/4   CONNECTION STATUS
05814  M01S03814.ns2197  ---|          VFD    6/7,6/0
05815  M01S03815.ns2197  ---|          CON    0,0,NICS
05816  M01S03816.ns2197  ---|
05817  M01S03817.ns2197  ---| TEJAL    EQU    */5-TEJA/5   PARAMETER BLOCK LENGTH
Line S03818 Modification History
M01 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05818  M01S03818.ns2463  ---| TLE      SPACE  4,10
05819  M01S03819.ns2463  ---|**        TLE - TIME LIMIT ERROR PROCESSOR.
05820  M01S03820.ns2463  ---|*
Line S03821 Modification History
M01 (Removed by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05821  M02S03821.ns2463  ---|*         INCREASES USERS TIME BY DTLI SECONDS SO THAT THE USER MAY
05822  M02S03822.ns2463  ---|*         FINISH CURRENT PROCESSING.
Line S00001 Modification History
M01 (Added by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05823  M02S00001.ns2463  ---|*         CLEAR TIME LIMIT FLAGS BEFORE ADVANCING TO THE NEXT JOB STEP.
Line S03823 Modification History
M01 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05824  M01S03823.ns2463  ---|*
05825  M01S03824.ns2463  ---|*         EXIT   TO *EBCX*.
Line S03825 Modification History
M01 (Removed by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05826  M02S03825.ns2463  ---|*
05827  M02S03826.ns2463  ---|*         CALLS  ITL.
Line S03827 Modification History
M01 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05828  M01S03827.ns2463  ---|
05829  M01S03828.ns2463  ---|
Line S03829 Modification History
M01 (Removed by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05830  M02S03829.ns2463  ---| TLE      LDD    CP          CHECK FOR VALIDATION LIMIT
Line S00002 Modification History
M01 (Added by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05831  M02S00002.ns2463  ---| TLE      LDD    CP          CLEAR THE TIME LIMIT FLAGS
Line S03830 Modification History
M01 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05832  M01S03830.ns2463  ---|          ADN    SRUW
05833  M01S03831.ns2463  ---|          CRD    CM
05834  M01S03832.ns2463  ---|          LDD    CM
Line S03833 Modification History
M01 (Removed by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05835  M02S03833.ns2463  ---|          SHN    21-13
05836  M02S03834.ns2463  ---|          MJN    TLE1        IF VALIDATION LIMIT
05837  M02S03835.ns2463  ---|          LDN    DTLI
05838  M02S03836.ns2463  ---|          STD    CM+4
05839  M02S03837.ns2463  ---|          LDN    RLIT        INCREASE SPECIFIED LIMIT
05840  M02S03838.ns2463  ---|          RJM    ITL
Line S00003 Modification History
M01 (Added by) ns2324
M02 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05841  M02S00003.ns2463  ---|          LPC    1777
05842  M02S00004.ns2463  ---|          STD    CM
05843  M02S00005.ns2463  ---|          LDD    CP          RESTORE *SRUW*
05844  M02S00006.ns2463  ---|          ADN    SRUW
05845  M02S00007.ns2463  ---|          CWD    CM
Line S03839 Modification History
M01 (Removed by) ns2463
Seq #  *Modification Id* Act 
----------------------------+
05846  M01S03839.ns2463  ---| TLE1     LJM    EBCX        RETURN
Line S03840 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05847  M01S03840.ns2323  ---| UTJ      SPACE  4,10
05848  M01S03841.ns2323  ---|**        UTJ - UNCONDITIONALLY TERMINATE JOB.
Line S00123 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05849  M01S00123.ns2323  +++| TRJ      SPACE  4,10
05850  M01S00124.ns2323  +++|**        TRJ - TERMINATE JOB.
05851  M00S03842.1aj     +++|*
05852  M00S03843.1aj     +++|*         EXIT   TO *EBCX*.
05853  M00S03844.1aj     +++|*
Line S03845 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05854  M01S03845.ns2323  ---|*         CALLS  ESB, LOF.
05855  M01S03846.ns2323  ---|*
05856  M01S03847.ns2323  ---|*         MACROS SFA.
Line S00125 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05857  M01S00125.ns2323  +++|*         CALLS  CJA.
05858  M00S03848.1aj     +++|
05859  M00S03849.1aj     +++|
Line S03850 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05860  M01S03850.ns2323  ---| UTJ      BSS    0           ENTRY
Line S03851 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05861  M02S03851.ns2323  ---|          RJM    ESB         EMPTY CONTROL STATEMENT BUFFER
Line S00161 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05862  M02S00161.ns2323  ---|          RJM    ESB         EMPTY COMMAND BUFFER
Line S03852 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05863  M01S03852.ns2323  ---|          LDN    TJJT        SELECT *TERMINATE JOB* OPTION
05864  M01S03853.ns2323  ---|          RJM    SEJ
05865  M01S03854.ns2323  ---|          LDM    TSTN        CHECK TERMINAL NUMBER
05866  M01S03855.ns2323  ---|          ZJN    UTJ1        IF NOT ON-LINE INTERACTIVE JOB
05867  M01S03856.ns2323  ---|          RJM    LOF         LOGOFF TERMINAL
05868  M01S03857.ns2323  ---| UTJ1     LJM    EBCX        EXIT
05869  M01S03858.ns2323  ---|          TITLE  REPRIEVE/EREXIT PROCESSORS.
Line S00126 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
05870  M01S00126.ns2323  +++| TRJ      BSS    0           ENTRY
05871  M01S00127.ns2323  +++|          RJM    CJA         CLEAR JOB ACTIVITY
05872  M01S00128.ns2323  +++|          LJM    EBCX        EXIT
05873  M01S00129.ns2323  +++|          TITLE  REPRIEVE/TERMINAL INTERRUPT PROCESSORS.
05874  M00S03859.1aj     +++| CEI      SPACE  4,15
05875  M00S03860.1aj     +++|**        CEI - CHECK ERROR INTERRUPT.
05876  M00S03861.1aj     +++|*
05877  M00S03862.1aj     +++|*         ENTRY  (CW - CW+4) = ERROR EXIT CONTROL WORD.
05878  M00S03863.1aj     +++|*
05879  M00S03864.1aj     +++|*         EXIT   TO *RIP* TO SET REPRIEVE PARAMETERS.
05880  M00S03865.1aj     +++|*                TO *SPI* TO SET PENDING INTERRUPT.
05881  M00S03866.1aj     +++|*
05882  M00S03867.1aj     +++|*         USES   T1 - T5, CM - CM+4, AB - AB+4, FS - FS+4.
05883  M00S03868.1aj     +++|*
05884  M00S03869.1aj     +++|*         CALLS  CJS,DFM.
05885  M00S03870.1aj     +++|
05886  M00S03871.1aj     +++|
05887  M00S03872.1aj     +++|
05888  M00S03873.1aj     +++| CEI10    LDN    0           CLEAR REPRIEVE OPTIONS
05889  M00S03874.1aj     +++| CEI11    STD    CW+1
05890  M00S03875.1aj     +++|          LDD    CP          WRITE EXIT CONTROL WORD
05891  M00S03876.1aj     +++|          ADN    EECW
05892  M00S03877.1aj     +++|          CWD    CW
05893  M00S03878.1aj     +++|
05894  M00S03879.1aj     +++| CEI      SUBR               ENTRY/EXIT
05895  M00S03880.1aj     +++|          LDM    TROF,EF     CHECK REPRIEVE OPTIONS
05896  M00S03881.1aj     +++|          STM    CEIA
05897  M00S03882.1aj     +++|          LDD    RF
05898  M00S03883.1aj     +++|          LPC    *           (REPRIEVE OPTION)
05899  M00S03884.1aj     +++| CEIA     EQU    *-1
05900  M00S03885.1aj     +++|          ZJN    CEI11       IF THIS ERROR NOT SELECTED
05901  M00S03886.1aj     +++|          RJM    CJS         CHECK JOB STATUS
05902  M00S03887.1aj     +++|          ZJN    CEI11       IF JOB STEP COMPLETE
05903  M00S03888.1aj     +++|          LDD    EF          CHECK ERROR
05904  M00S03889.1aj     +++|          LMN    OKET
05905  M00S03890.1aj     +++|          NJN    CEI1        IF NOT OPERATOR KILL
05906  M00S03891.1aj     +++|          LDD    CW
05907  M00S03892.1aj     +++|          SHN    21-10
05908  M00S03893.1aj     +++|          MJN    CEI10       IF PREVIOUS KILL REPRIEVED
05909  M00S03894.1aj     +++|          LDC    400         SET KILL REPRIEVED
05910  M00S03895.1aj     +++|          RAD    CW
05911  M00S03896.1aj     +++| CEI1     LDD    CW+3        VALIDATE BLOCK ADDRESS
05912  M00S03897.1aj     +++|          LPN    37
05913  M00S03898.1aj     +++|          SHN    6
05914  M00S03899.1aj     +++|          SBD    FL
05915  M00S03900.1aj     +++|          SHN    6
05916  M00S03901.1aj     +++|          ADD    CW+4
05917  M00S03902.1aj     +++|          ADN    7
05918  M00S03903.1aj     +++|          PJN    CEI2        IF BLOCK PARAMETERS OUTSIDE FL
05919  M00S03904.1aj     +++|          SBN    7
05920  M00S03905.1aj     +++|          SHN    14
05921  M00S03906.1aj     +++|          ADD    FL
05922  M00S03907.1aj     +++|          ADD    RA
05923  M00S03908.1aj     +++|          SHN    6           READ BLOCK PARAMETERS
05924  M00S03909.1aj     +++|          ADK    /COMSRPV/LNTH
05925  M00S03910.1aj     +++|          CRD    CM
05926  M00S03911.1aj     +++|          ADN    /COMSRPV/CKLW  READ CHECKSUM LWA
05927  M00S03912.1aj     +++|          CRD    CN
05928  M00S03913.1aj     +++|          ADN    /COMSRPV/CKSM-/COMSRPV/CKLW  READ CHECKSUM
05929  M00S03914.1aj     +++|          CRD    T1
05930  M00S03915.1aj     +++|          ADN    /COMSRPV/ERCD-/COMSRPV/CKSM  READ COMMON ERROR CODES
05931  M00S03916.1aj     +++|          CRD    FS
05932  M00S03917.1aj     +++|          ADN    /COMSRPV/OSEF-/COMSRPV/ERCD  READ SYSTEM ERROR FLAG
05933  M00S03918.1aj     +++|          CRD    AB
05934  M00S03919.1aj     +++|          SBN    /COMSRPV/OSEF  VALIDATE OPERATING SYSTEM ERROR FLAG
05935  M00S03920.1aj     +++|          SHN    14
05936  M00S03921.1aj     +++|          SBD    RA
05937  M00S03922.1aj     +++|          SBD    FL
05938  M00S03923.1aj     +++|          SHN    6
05939  M00S03924.1aj     +++|          ADD    CM+3
05940  M00S03925.1aj     +++| CEI2     PJN    CEI3        IF BLOCK LWA OUTSIDE FL
05941  M00S03926.1aj     +++|          LDD    CM+3
05942  M00S03927.1aj     +++|          SBN    /COMSRPV/REPL
05943  M00S03928.1aj     +++|          MJN    CEI3        IF BLOCK LENGTH TOO SHORT
05944  M00S03929.1aj     +++|          LDD    CN+3
05945  M00S03930.1aj     +++|          LPN    37
05946  M00S03931.1aj     +++|          STD    CN+3
05947  M00S03932.1aj     +++|          SHN    14
05948  M00S03933.1aj     +++|          ADD    CN+4
05949  M00S03934.1aj     +++|          SBN    2
Line S03935 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05950  M01S03935.v23l617 ---|          MJN    CEI3        IF ILLEGAL TRANSFER ADDRESS
Line S00162 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05951  M01S00162.v23l617 +++|          MJN    CEI3        IF INCORRECT TRANSFER ADDRESS
05952  M00S03936.1aj     +++|          ADN    2
05953  M00S03937.1aj     +++|          SHN    -6
05954  M00S03938.1aj     +++|          SBD    FL
05955  M00S03939.1aj     +++|          MJN    CEI4        IF TRANSFER ADDRESS WITHIN FL
05956  M00S03940.1aj     +++| CEI3     LDC    =C* REPRIEVE BLOCK ERROR.*
05957  M00S03941.1aj     +++|          LJM    CEI8        ISSUE DAYFILE MESSAGE
05958  M00S03942.1aj     +++|
05959  M00S03943.1aj     +++| CEI4     LDD    CN+2        CHECK IF CHECKSUM NEEDED
05960  M00S03944.1aj     +++|          SCN    77
05961  M00S03945.1aj     +++|          SHN    6
05962  M00S03946.1aj     +++|          ADD    CN+1
05963  M00S03947.1aj     +++|          LPC    773777
05964  M00S03948.1aj     +++|          STD    CM+4        PRESET CHECKSUM GOOD
05965  M00S03949.1aj     +++|          ZJN    CEI6        IF NO CHECKSUM REQUIRED
05966  M00S03950.1aj     +++|          SBD    FL
05967  M00S03951.1aj     +++|          SHN    6
05968  M00S03952.1aj     +++| CEI5     PJN    CEI3        IF CHECKSUM LWA OUTSIDE FL
05969  M00S03953.1aj     +++|          SHN    14
05970  M00S03954.1aj     +++|          ADD    FL
05971  M00S03955.1aj     +++|          SHN    6
05972  M00S03956.1aj     +++|          ADN    1
05973  M00S03957.1aj     +++|          SBD    CN+4        SET WORD COUNT
05974  M00S03958.1aj     +++|          STD    CM+2
05975  M00S03959.1aj     +++|          MJN    CEI3        IF LWA+1 .LT. FWA
05976  M00S03960.1aj     +++|          SHN    -14
05977  M00S03961.1aj     +++|          SBD    CN+3
05978  M00S03962.1aj     +++|          MJN    CEI3        IF LWA+1 .LT. FWA
05979  M00S03963.1aj     +++|          STD    CM+1
05980  M00S03964.1aj     +++|          LDD    CN+3        SET CHECKSUM FWA
05981  M00S03965.1aj     +++|          STD    CM+3
05982  M00S03966.1aj     +++|          LDD    CN+4
05983  M00S03967.1aj     +++|          STD    CM+4
05984  M00S03968.1aj     +++|          LDD    MA
05985  M00S03969.1aj     +++|          CWD    T1
05986  M00S03970.1aj     +++|          MONITOR  CKSM      COMPUTE CHECKSUM
05987  M00S03971.1aj     +++| CEI6     LDD    CW          CHECK INTERRUPT PROCESSOR ACTIVE
05988  M00S03972.1aj     +++|          SHN    21-11
05989  M00S03973.1aj     +++|          PJN    CEI7        IF INTERRUPT PROCESSOR NOT ACTIVE
05990  M00S03974.1aj     +++|          LDM    TROF,EF
05991  M00S03975.1aj     +++|          LPC    163
05992  M00S03976.1aj     +++|          NJN    CEI9        IF INTERRUPT PROCESSOR ABORTED - EXIT
Line S03977 Modification History
M01 (Removed by) ns2021
Seq #  *Modification Id* Act 
----------------------------+
05993  M01S03977.ns2021  ---|          LJM    SPI         SET PENDING INTERRUPT
Line S00001 Modification History
M01 (Added by) ns2021
Seq #  *Modification Id* Act 
----------------------------+
05994  M01S00001.ns2021  +++|          LDD    EF
05995  M01S00002.ns2021  +++|          LMN    TLET
05996  M01S00003.ns2021  +++|          ZJN    CEI6.2      IF TIME LIMIT
05997  M01S00004.ns2021  +++|          LMN    SRET&TLET
05998  M01S00005.ns2021  +++|          ZJN    CEI6.2      IF SRU LIMIT
05999  M01S00006.ns2021  +++| CEI6.1   LJM    SPI         SET PENDING INTERRUPT
06000  M01S00007.ns2021  +++|
06001  M01S00008.ns2021  +++| CEI6.2   LDD    CW
06002  M01S00009.ns2021  +++|          SHN    21-7
06003  M01S00010.ns2021  +++|          MJN    CEI9        IF CONDITION PREVIOUSLY ENCOUNTERED
06004  M01S00011.ns2021  +++|          LDC    200
06005  M01S00012.ns2021  +++|          RAD    CW
06006  M01S00013.ns2021  +++|          UJN    CEI6.1      SET PENDING INTERRUPT
06007  M00S03978.1aj     +++|
06008  M00S03979.1aj     +++| CEI7     LDD    CM+4        VALIDATE CHECKSUM
06009  M00S03980.1aj     +++|          ZJP    RIP         IF CHECKSUM GOOD
06010  M00S03981.1aj     +++|          LDC    =C* REPRIEVE CHECKSUM BAD.*
06011  M00S03982.1aj     +++| CEI8     RJM    DFM         ISSUE ERROR MESSAGE
06012  M00S03983.1aj     +++| CEI9     LJM    CEI10       EXIT
06013  M00S03984.1aj     +++| DTC      SPACE  4,15
06014  M00S03985.1aj     +++|**        DTC - PROCESS DISABLED TERMINAL CONTROL.
06015  M00S03986.1aj     +++|*
06016  M00S03987.1aj     +++|*         PROCESSES ERROR RECOVERY FOR USER BREAKS ONE AND
06017  M00S03988.1aj     +++|*         TWO FOR TERMINALS WITH TERMINAL CONTROL DISABLED.
06018  M00S03989.1aj     +++|*
06019  M00S03990.1aj     +++|*         EXIT   TO *STC* TO RESTART JOB IF DISABLED TERMINAL
06020  M00S03991.1aj     +++|*                  CONTROL PROCESSED.
06021  M00S03992.1aj     +++|*                RETURNS TO CALLER IF DISABLED TERMINAL CONTROL
06022  M00S03993.1aj     +++|*                  NOT PROCESSED.
06023  M00S03994.1aj     +++|*
06024  M00S03995.1aj     +++|*         USES   T1 - T3, CM - CM+4, CW - CW+4.
06025  M00S03996.1aj     +++|*
06026  M00S03997.1aj     +++|*         CALL   CJS,VCA.
06027  M00S03998.1aj     +++|
06028  M00S03999.1aj     +++|
06029  M00S04000.1aj     +++| DTC      SUBR               ENTRY/EXIT
06030  M00S04001.1aj     +++|          RJM    CJS         CHECK JOB STATUS
06031  M00S04002.1aj     +++|          ZJN    DTCX        IF JOB STEP COMPLETE
06032  M00S04003.1aj     +++|          LDD    CP          READ TERMINAL INTERRUPT POINTER
06033  M00S04004.1aj     +++|          ADK    TIAW
06034  M00S04005.1aj     +++|          CRD    CW
06035  M00S04006.1aj     +++|          ADK    EECW-TIAW
06036  M00S04007.1aj     +++|          CRD    CM          CHECK FOR EXTENDED REPRIEVE
06037  M00S04008.1aj     +++|          LDD    CM
06038  M00S04009.1aj     +++|          SHN    21-12
06039  M00S04010.1aj     +++|          MJN    DTCX        IF EXTENDED REPRIEVE SET
06040  M00S04011.1aj     +++|          LDD    CW+3        SET INTERRUPT ADDRESS
06041  M00S04012.1aj     +++|          SCN    77
06042  M00S04013.1aj     +++|          SHN    6
06043  M00S04014.1aj     +++|          LMD    CW+2
06044  M00S04015.1aj     +++|          SHN    6
06045  M00S04016.1aj     +++|          ZJN    DTCX        IF TERMINAL CONTROL NOT DISABLED
06046  M00S04017.1aj     +++|          MJN    DTC1        IF EXCHANGE PACKAGE ADDRESS
06047  M00S04018.1aj     +++|
06048  M00S04019.1aj     +++|*         SET INTERRUPT FLAG.
06049  M00S04020.1aj     +++|
06050  M00S04021.1aj     +++|          RJM    VCA         VALIDATE CENTRAL ADDRESS
Line S04022 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06051  M01S04022.v23l617 ---|          ZJN    DTCX        IF ADDRESS INVALID
Line S00163 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06052  M01S00163.v23l617 +++|          ZJN    DTCX        IF ADDRESS INCORRECT
06053  M00S04023.1aj     +++|          LDN    ZERL        READ ZERO WORD
06054  M00S04024.1aj     +++|          CRD    CM
06055  M00S04025.1aj     +++|          LDD    EF          SET ERROR FLAG IN INTERRUPT WORD
06056  M00S04026.1aj     +++|          STD    CM+4
06057  M00S04027.1aj     +++|          LDD    T1          REWRITE INTERRUPT FLAG WORD
06058  M00S04028.1aj     +++|          SHN    14
06059  M00S04029.1aj     +++|          ADD    T2
06060  M00S04030.1aj     +++|          CWD    CM
06061  M00S04031.1aj     +++|          LJM    DTC4        RESTART JOB
06062  M00S04032.1aj     +++|
06063  M00S04033.1aj     +++|*         VALIDATE EXCHANGE PACKAGE POINTERS.
06064  M00S04034.1aj     +++|
06065  M00S04035.1aj     +++| DTC1     LPC    377777      CLEAR EXCHANGE PACKAGE FLAG BIT
06066  M00S04036.1aj     +++|          RJM    VCA         VALIDATE CM ADDRESS
Line S04037 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06067  M01S04037.v23l617 ---|          ZJN    DTC2        IF ADDRESS INVALID
Line S00164 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06068  M01S00164.v23l617 +++|          ZJN    DTC2        IF ADDRESS INCORRECT
06069  M00S04038.1aj     +++|          ADN    17          CHECK EXCHANGE PACKAGE LENGTH
06070  M00S04039.1aj     +++|          SHN    -6
06071  M00S04040.1aj     +++|          SBD    RA
06072  M00S04041.1aj     +++|          SBD    FL
06073  M00S04042.1aj     +++|          MJN    DTC3        IF ADDRESS WITHIN FL
06074  M00S04043.1aj     +++| DTC2     LJM    DTCX        RETURN
06075  M00S04044.1aj     +++|
06076  M00S04045.1aj     +++|*         STORE EXCHANGE PACKAGE IN USER FL.
06077  M00S04046.1aj     +++|
06078  M00S04047.1aj     +++| DTC3     LDN    20          SET EXCHANGE PACKAGE LENGTH
06079  M00S04048.1aj     +++|          STD    T3
06080  M00S04049.1aj     +++|          LDD    CP          READ EXCHANGE PACKAGE
06081  M00S04050.1aj     +++|          CRD    CM
06082  M00S04051.1aj     +++|          CRM    EXPA,T3
06083  M00S04052.1aj     +++|          LDD    T1          WRITE EXCHANGE PACKAGE TO CM
06084  M00S04053.1aj     +++|          SHN    14
06085  M00S04054.1aj     +++|          LMD    T2
06086  M00S04055.1aj     +++|          CWM    EXPA,T3
06087  M00S04056.1aj     +++|
06088  M00S04057.1aj     +++|*         RESTART CPU AT NEW EXECUTION ADDRESS.
06089  M00S04058.1aj     +++|
06090  M00S04059.1aj     +++|          SHN    22-6        SET P-ADDRESS TO END OF EXCHANGE PACKAGE
06091  M00S04060.1aj     +++|          SBD    RA
06092  M00S04061.1aj     +++|          SHN    6
06093  M00S04062.1aj     +++|          STD    CM+1
06094  M00S04063.1aj     +++|          SHN    -14
06095  M00S04064.1aj     +++|          STD    CM
06096  M00S04065.1aj     +++|          LDD    CP          REWRITE JOB P-REGISTER
06097  M00S04066.1aj     +++|          CWD    CM
06098  M00S04067.1aj     +++| DTC4     LDD    CP          CLEAR *SKIP TO EXIT* FLAG
06099  M00S04068.1aj     +++|          ADK    CSSW
06100  M00S04069.1aj     +++|          CRD    CM
06101  M00S04070.1aj     +++|          LDD    CM
06102  M00S04071.1aj     +++|          LPC    5777
06103  M00S04072.1aj     +++|          STD    CM
06104  M00S04073.1aj     +++|          LDD    CP
06105  M00S04074.1aj     +++|          ADK    CSSW
06106  M00S04075.1aj     +++|          CWD    CM
06107  M00S04076.1aj     +++|          LJM    STC         RESTART CPU
06108  M00S04077.1aj     +++| RIP      SPACE  4,15
06109  M00S04078.1aj     +++|**        RIP - RETURN INTERRUPT PARAMETERS.
06110  M00S04079.1aj     +++|*
06111  M00S04080.1aj     +++|*         ENTRY  (CW - CW+4) = ERROR EXIT CONTROL WORD.
06112  M00S04081.1aj     +++|*                (CN+3 - CN+4) = TRANSFER ADDRESS.
06113  M00S04082.1aj     +++|*                (FS - FS+4) = WORD /COMSRPV/ERCD OF REPRIEVE BLOCK.
06114  M00S04083.1aj     +++|*                (AB - AB+4) = WORD /COMSRPV/OSEF OF REPRIEVE BLOCK.
06115  M00S04084.1aj     +++|*
Line S04085 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06116  M01S04085.ns2724  ---|*         EXIT   TO *RIJ* TO RESTART JOB-
06117  M01S04086.ns2724  ---|*                  PARAMETERS SET IN JOB REPRIEVE BLOCK.
Line S00001 Modification History
M01 (Added by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06118  M01S00001.ns2724  +++|*         EXIT   TO *SRE*.
06119  M01S00002.ns2724  +++|*                PARAMETERS SET IN REPRIEVE BLOCK.
06120  M00S04087.1aj     +++|*
Line S04088 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06121  M01S04088.ns2724  ---|*         USES   T1 - T5, CM - CM+4, CN.
Line S00003 Modification History
M01 (Added by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06122  M01S00003.ns2724  +++|*         USES   AB+4, CN, CW, CM - CM+4, FS+2 - FS+4, T1 - T5.
06123  M00S04089.1aj     +++|
06124  M00S04090.1aj     +++|
06125  M00S04091.1aj     +++| RIP      BSS    0           ENTRY
06126  M00S04092.1aj     +++|          LDN    /COMSRPV/EXPL  SET EXCHANGE PACKAGE LENGTH
06127  M00S04093.1aj     +++|          STD    CN
06128  M00S04094.1aj     +++|          LDD    CP          READ (P)
06129  M00S04095.1aj     +++|          CRD    T1
06130  M00S04096.1aj     +++|          CRM    EXPA,CN     READ EXCHANGE PACKAGE
Line S04097 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06131  M01S04097.ns2724  ---|          ADN    TIAW-20
06132  M01S04098.ns2724  ---|          CRD    CM
06133  M00S04099.1aj     +++|          LDD    CN+3        SET (P) TO TRANSFER ADDRESS
06134  M00S04100.1aj     +++|          STD    T1
06135  M00S04101.1aj     +++|          LDD    CN+4
06136  M00S04102.1aj     +++|          STD    T1+1
Line S04103 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06137  M01S04103.ns2724  ---|          LDD    EF          SAVE ERROR FLAG FOR POSSIBLE RESET
06138  M01S04104.ns2724  ---|          STD    CM+2
Line S00004 Modification History
M01 (Added by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06139  M01S00004.ns2724  +++|          LDD    EF
06140  M00S04105.1aj     +++|          STD    AB+4        SET ERROR IN PARAMETER BLOCK
06141  M00S04106.1aj     +++|          LDD    CP          WRITE (P) TO EXCHANGE PACKAGE
06142  M00S04107.1aj     +++|          CWD    T1
Line S04108 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06143  M01S04108.ns2724  ---|          ADN    TIAW        WRITE ERROR FLAG TO CP AREA
06144  M01S04109.ns2724  ---|          CWD    CM
06145  M00S04110.1aj     +++|          LDM    TROF,EF     SET ERROR TYPE FOR INTERRUPT PROCESSOR
06146  M00S04111.1aj     +++|          STD    FS+3
06147  M00S04112.1aj     +++|          LDN    0
06148  M00S04113.1aj     +++|          STD    FS+2
06149  M00S04114.1aj     +++|          LDM    TCEC,EF     SET COMMON ERROR CODE
06150  M00S04115.1aj     +++|          STD    FS+4
06151  M00S04116.1aj     +++|          LDN    ZERL
06152  M00S04117.1aj     +++|          CRD    T1
Line S04118 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06153  M01S04118.v23l617 ---|          LDD    RA          READ RA+1
Line S00165 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06154  M01S00165.v23l617 +++|          LDD    RA          READ SYSTEM REQUEST
06155  M00S04119.1aj     +++|          SHN    6
06156  M00S04120.1aj     +++|          ADN    1
06157  M00S04121.1aj     +++|          CRD    CM
Line S04122 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06158  M01S04122.v23l617 ---|          CWD    T1          CLEAR RA+1
Line S00166 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06159  M01S00166.v23l617 +++|          CWD    T1          CLEAR SYSTEM REQUEST
06160  M00S04123.1aj     +++|
06161  M00S04124.1aj     +++|*         IF *1RI* DETECTED A USER BREAK ON A JOB WITH EXTENDED
06162  M00S04125.1aj     +++|*         REPRIEVE, THE TERMINAL INPUT POINTER WILL NOT BE CLEARED,
06163  M00S04126.1aj     +++|*         ALLOWING *3AB* TO RECONSTRUCT THE PENDING INPUT REQUEST
06164  M00S04127.1aj     +++|*         (IF ANY) AND PLACE IT IN THE REPRIEVE BLOCK.
06165  M00S04128.1aj     +++|
06166  M00S04129.1aj     +++|          LDC    **          CHECK FOR INPUT PENDING ON USER BREAK
06167  M00S04130.1aj     +++| RIPA     EQU    *-1         (INPUT FET ADDRESS)
06168  M00S04131.1aj     +++|          ZJN    RIP2        IF NO TERMINAL INPUT OR NOT USER BREAK
06169  M00S04132.1aj     +++|          STD    T1+4        STORE FET ADDRESS IN *CIO* CALL
06170  M00S04133.1aj     +++|          SHN    -14
06171  M00S04134.1aj     +++|          STD    T1+3
06172  M00S04135.1aj     +++|          LDC    2RCI        BUILD *CIO* CALL
06173  M00S04136.1aj     +++|          STD    T1
06174  M00S04137.1aj     +++|          LDC    2ROP
06175  M00S04138.1aj     +++|          STD    T1+1
06176  M00S04139.1aj     +++|
06177  M00S04140.1aj     +++|*         CHECK FOR JOB IN RECALL WAITING FOR INPUT FET COMPLETION.
06178  M00S04141.1aj     +++|
06179  M00S04142.1aj     +++|          LDD    CM
06180  M00S04143.1aj     +++|          LMC    2RRC
06181  M00S04144.1aj     +++|          NJN    RIP2        IF NOT *RCL* CALL IN RA+1
06182  M00S04145.1aj     +++|          LDD    CM+1
06183  M00S04146.1aj     +++|          LMC    2RLP
06184  M00S04147.1aj     +++|          NJN    RIP2        IF NOT *RCL* CALL IN RA+1
06185  M00S04148.1aj     +++|          LDD    CM+3
06186  M00S04149.1aj     +++|          LPN    37
06187  M00S04150.1aj     +++|          LMD    T1+3
06188  M00S04151.1aj     +++|          NJN    RIP2        IF NOT WAITING FOR INPUT FET
06189  M00S04152.1aj     +++|          LDD    CM+4
06190  M00S04153.1aj     +++|          LMD    T1+4
06191  M00S04154.1aj     +++|          NJN    RIP2        IF NOT WAITING FOR INPUT FET
06192  M00S04155.1aj     +++|          LDN    ZERL        CLEAR RA+1 IMAGE
06193  M00S04156.1aj     +++|          CRD    CM
06194  M00S04157.1aj     +++| RIP2     LDD    CW+3        WRITE PARAMETERS TO REPRIEVE BLOCK
06195  M00S04158.1aj     +++|          LPN    37
06196  M00S04159.1aj     +++|          SHN    6
06197  M00S04160.1aj     +++|          ADD    RA
06198  M00S04161.1aj     +++|          SHN    6
06199  M00S04162.1aj     +++|          ADD    CW+4
06200  M00S04163.1aj     +++|          ADN    /COMSRPV/ERCD  WRITE COMMON ERROR CODE
06201  M00S04164.1aj     +++|          CWD    FS
06202  M00S04165.1aj     +++|          ADN    /COMSRPV/PRAR-/COMSRPV/ERCD  WRITE RA+1 CONTENTS
06203  M00S04166.1aj     +++|          CWD    CM
06204  M00S04167.1aj     +++|          ADN    /COMSRPV/ITIO-/COMSRPV/PRAR  SET/CLEAR TERMINAL INPUT
06205  M00S04168.1aj     +++|          CWD    T1
06206  M00S04169.1aj     +++|          ADN    /COMSRPV/OSEF-/COMSRPV/ITIO  WRITE SYSTEM ERROR FLAG
06207  M00S04170.1aj     +++|          CWD    AB
06208  M00S04171.1aj     +++|          ADN    /COMSRPV/RPPL-/COMSRPV/OSEF  WRITE EXCHANGE PACKAGE
06209  M00S04172.1aj     +++|          CWM    EXPA,CN
06210  M00S04173.1aj     +++|          LDD    TH          SET INTERRUPT PROCESSING ACTIVE
06211  M00S04174.1aj     +++|          RAD    CW
Line S04175 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06212  M01S04175.ns2724  ---|          LJM    RIJ         RESTART INTERRUPTED JOB
Line S00005 Modification History
M01 (Added by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06213  M01S00005.ns2724  +++|          LJM    SRE         SET REPRIEVED ERROR
06214  M00S04176.1aj     +++| SPI      SPACE  4,10
06215  M00S04177.1aj     +++|**        SPI - SET PENDING INTERRUPT.
06216  M00S04178.1aj     +++|*
06217  M00S04179.1aj     +++|*         ENTRY  (CW+3 - CW+4) = PARAMETER BLOCK ADDRESS.
06218  M00S04180.1aj     +++|*
Line S04181 Modification History
M01 (Removed by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06219  M01S04181.ns2724  ---|*         EXIT   TO *RIJ* TO RESTART JOB-
06220  M01S04182.ns2724  ---|*                  INTERRUPT-PENDING STATUS SET IN REPRIEVE BLOCK.
Line S00006 Modification History
M01 (Added by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06221  M01S00006.ns2724  +++|*         EXIT   TO *SRE*.
06222  M01S00007.ns2724  +++|*                INTERRUPT PENDING STATUS SET IN REPRIEVE BLOCK.
06223  M00S04183.1aj     +++|*
06224  M00S04184.1aj     +++|*         USES   T1, T2, CM - CM+4.
06225  M00S04185.1aj     +++|
06226  M00S04186.1aj     +++|
06227  M00S04187.1aj     +++| SPI      BSS    0           ENTRY
06228  M00S04188.1aj     +++|          LDD    CW+3        READ PENDING INTERRUPTS
06229  M00S04189.1aj     +++|          LPN    37
06230  M00S04190.1aj     +++|          SHN    6
06231  M00S04191.1aj     +++|          ADD    RA
06232  M00S04192.1aj     +++|          SHN    6
06233  M00S04193.1aj     +++|          ADD    CW+4
06234  M00S04194.1aj     +++|          ADN    /COMSRPV/PINT
06235  M00S04195.1aj     +++|          CRD    CM
06236  M00S04196.1aj     +++|          LDD    EF          SET CURRENT INTERRUPT PENDING
06237  M00S04197.1aj     +++|          STD    T1
06238  M00S04198.1aj     +++|          LDN    CM+5        SELECT BYTE FOR INTERRUPT
06239  M00S04199.1aj     +++|          STD    T2
06240  M00S04200.1aj     +++| SPI1     SOD    T2          ADVANCE BYTE
06241  M00S04201.1aj     +++|          LCN    14
06242  M00S04202.1aj     +++|          RAD    T1
06243  M00S04203.1aj     +++|          PJN    SPI1        IF NOT PROPER BYTE
06244  M00S04204.1aj     +++|          ADN    14          SET BIT POSITION
06245  M00S04205.1aj     +++|          RAM    SPIB        SET SHIFT INSTRUCTIONS
06246  M00S04206.1aj     +++|          LPN    37
06247  M00S04207.1aj     +++|          LMC    777777
06248  M00S04208.1aj     +++|          RAM    SPIA
06249  M00S04209.1aj     +++|          LDI    T2          SET INTERRUPT BIT
06250  M00S04210.1aj     +++| SPIA     SHN    22
06251  M00S04211.1aj     +++|          SCN    1
06252  M00S04212.1aj     +++|          LMN    1
06253  M00S04213.1aj     +++| SPIB     SHN    0
06254  M00S04214.1aj     +++|          STI    T2
06255  M00S04215.1aj     +++|          LDD    CW+3        WRITE PENDING INTERRUPTS
06256  M00S04216.1aj     +++|          LPN    37
06257  M00S04217.1aj     +++|          SHN    6
06258  M00S04218.1aj     +++|          ADD    RA
06259  M00S04219.1aj     +++|          SHN    6
06260  M00S04220.1aj     +++|          ADD    CW+4
06261  M00S04221.1aj     +++|          ADN    /COMSRPV/PINT
Line S00008 Modification History
M01 (Added by) ns2724
Seq #  *Modification Id* Act 
----------------------------+
06262  M01S00008.ns2724  +++|          CWD    CM
06263  M01S00009.ns2724  +++|*         UJN    SRE         SET REPRIEVED ERROR
06264  M01S00010.ns2724  +++| SRE      SPACE  4,10
06265  M01S00011.ns2724  +++|**        SRE - SET REPRIEVED ERROR FOR POSSIBLE *RESET* CALL.
06266  M01S00012.ns2724  +++|*
06267  M01S00013.ns2724  +++|*         EXIT   TO *RIJ*.
06268  M01S00014.ns2724  +++|*                REPRIEVED ERROR UPDATED IF NECESSARY.
06269  M01S00015.ns2724  +++|*
06270  M01S00016.ns2724  +++|*         USES   CM - CM+4.
06271  M01S00017.ns2724  +++|
06272  M01S00018.ns2724  +++|
06273  M01S00019.ns2724  +++| SRE      BSS    0           ENTRY
06274  M01S00020.ns2724  +++|          LDD    CP          READ REPRIEVED ERROR
06275  M01S00021.ns2724  +++|          ADN    TIAW
06276  M01S00022.ns2724  +++|          CRD    CM
06277  M01S00023.ns2724  +++|          LDD    EF
06278  M01S00024.ns2724  +++|          SBD    CM+2
06279  M01S00025.ns2724  +++|          MJN    RIJ         IF OLD ERROR .GT. NEW
06280  M01S00026.ns2724  +++|          RAD    CM+2        SET REPRIEVED ERROR
06281  M01S00027.ns2724  +++|          LDD    CP          WRITE REPRIEVED ERROR
06282  M01S00028.ns2724  +++|          ADN    TIAW
06283  M00S04222.1aj     +++|          CWD    CM
06284  M00S04223.1aj     +++|*         UJN    RIJ         RESTART INTERRUPTED JOB
06285  M00S04224.1aj     +++| RIJ      SPACE  4,10
06286  M00S04225.1aj     +++|**        RIJ - RESTART INTERRUPTED JOB.
06287  M00S04226.1aj     +++|*
06288  M00S04227.1aj     +++|*         ENTRY  (CW - CW+4) = ERROR EXIT CONTROL WORD.
06289  M00S04228.1aj     +++|*
06290  M00S04229.1aj     +++|*         EXIT   TO *STC* TO STARTUP CPU.
06291  M00S04230.1aj     +++|*
06292  M00S04231.1aj     +++|*         USES   CM - CM+4, CN - CN+4.
06293  M00S04232.1aj     +++|*
06294  M00S04233.1aj     +++|*         CALLS  CPD, ITL.
06295  M00S04234.1aj     +++|
06296  M00S04235.1aj     +++|
06297  M00S04236.1aj     +++| RIJ      BSS    0           ENTRY
06298  M00S04237.1aj     +++|          LDD    CP          REWRITE ERROR/EXIT CONTROL WORD
06299  M00S04238.1aj     +++|          ADN    EECW
06300  M00S04239.1aj     +++|          CWD    CW
06301  M00S04240.1aj     +++|          LDD    EF          CHECK ERROR FLAG
06302  M00S04241.1aj     +++|          LMN    TLET
06303  M00S04242.1aj     +++|          NJN    RIJ1        IF NOT TIME LIMIT
06304  M00S04243.1aj     +++|          LDN    DTLI        SET INCREMENT
06305  M00S04244.1aj     +++|          STD    CM+4
06306  M00S04245.1aj     +++|          LDN    RLIT
06307  M00S04246.1aj     +++|          UJN    RIJ2        INCREASE TIME LIMIT
06308  M00S04247.1aj     +++|
06309  M00S04248.1aj     +++| RIJ1     LMN    SRET&TLET
06310  M00S04249.1aj     +++|          NJN    RIJ3        IF NOT SRU LIMIT
06311  M00S04250.1aj     +++|          LDN    DSLI        SET INCREMENT
06312  M00S04251.1aj     +++|          STD    CM+4
06313  M00S04252.1aj     +++|          LDN    RLIA
06314  M00S04253.1aj     +++| RIJ2     RJM    ITL         INCREASE LIMIT
Line S04254 Modification History
M01 (Removed by) 1aj23
Seq #  *Modification Id* Act 
----------------------------+
06315  M01S04254.1aj23   ---|          UJN    RIJ4        CHECK FOR *SSJ=* JOB
Line S00032 Modification History
M01 (Added by) 1aj23
Seq #  *Modification Id* Act 
----------------------------+
06316  M01S00032.1aj23   +++|          UJN    STC         START UP CPU
06317  M00S04255.1aj     +++|
06318  M00S04256.1aj     +++| RIJ3     LMN    PPET&SRET
Line S04257 Modification History
M01 (Removed by) 1aj23
Seq #  *Modification Id* Act 
----------------------------+
06319  M01S04257.1aj23   ---|          NJN    RIJ4        IF NOT PPU ABORT
Line S00033 Modification History
M01 (Added by) 1aj23
Seq #  *Modification Id* Act 
----------------------------+
06320  M01S00033.1aj23   +++|          NJN    STC         IF NOT PPU ABORT
06321  M00S04258.1aj     +++|          RJM    CPD         CLEAR PPU DUMP WORD
Line S04259 Modification History
M01 (Removed by) 1aj23
Seq #  *Modification Id* Act 
----------------------------+
06322  M01S04259.1aj23   ---| RIJ4     LDD    CP          CHECK FOR *SSJ=* JOB
06323  M01S04260.1aj23   ---|          ADN    SNSW
06324  M01S04261.1aj23   ---|          CRD    CN
06325  M01S04262.1aj23   ---|          ADN    SEPW-SNSW
06326  M01S04263.1aj23   ---|          CRD    CM
06327  M01S04264.1aj23   ---|          LDD    CM
06328  M01S04265.1aj23   ---|          SHN    21-2
06329  M01S04266.1aj23   ---|          PJN    STC         IF NOT *SSJ=*
06330  M01S04267.1aj23   ---|          LDD    CN          SET *OVERRIDE* REQUIRED
06331  M01S04268.1aj23   ---|          LPC    6777
06332  M01S04269.1aj23   ---|          LMD    TH
06333  M01S04270.1aj23   ---|          STD    CN
06334  M01S04271.1aj23   ---|          LDD    CP
06335  M01S04272.1aj23   ---|          ADN    SNSW
06336  M01S04273.1aj23   ---|          CWD    CN
06337  M00S04274.1aj     +++|*         UJN    STC         STARTUP CPU
06338  M00S04275.1aj     +++| STC      SPACE  4,10
06339  M00S04276.1aj     +++|**        STC - STARTUP CPU.
06340  M00S04277.1aj     +++|*
06341  M00S04278.1aj     +++|*         REQUESTS THE CPU TO RESTART THE JOB.
06342  M00S04279.1aj     +++|*
06343  M00S04280.1aj     +++|*         USES   CM - CM+4.
06344  M00S04281.1aj     +++|*
06345  M00S04282.1aj     +++|*         EXIT   TO *DPP*.
06346  M00S04283.1aj     +++|*
06347  M00S04284.1aj     +++|*         MACROS MONITOR.
06348  M00S04285.1aj     +++|
06349  M00S04286.1aj     +++|
06350  M00S04287.1aj     +++| STC      BSS    0           ENTRY
06351  M00S04288.1aj     +++|          LDD    CP          CLEAR POSSIBLE *PSD* STATUS
06352  M00S04289.1aj     +++|          ADN    3
06353  M00S04290.1aj     +++|          CRD    CM
06354  M00S04291.1aj     +++|          LDD    CM+1
06355  M00S04292.1aj     +++|          LPN    10          RETAIN STEP CONDITION
06356  M00S04293.1aj     +++|          STD    CM+1
06357  M00S04294.1aj     +++|          LDD    CP
06358  M00S04295.1aj     +++|          ADN    3
06359  M00S04296.1aj     +++|          CWD    CM
06360  M00S04297.1aj     +++|          ADK    JCIW-3      READ JOB CONTROL INFORMATION
06361  M00S04298.1aj     +++|          CRD    CM
06362  M00S04299.1aj     +++|          LDD    CM+2        CHECK SUBSYSTEM ID
06363  M00S04300.1aj     +++|          LMK    BISI
06364  M00S04301.1aj     +++|          ZJN    STC1        IF *BATCHIO*
06365  M00S04302.1aj     +++|          MONITOR  RCPM      REQUEST CPU
06366  M00S04303.1aj     +++| STC1     LJM    DPP         DROP PPU
06367  M00S04304.1aj     +++| TROF     EJECT
06368  M00S04305.1aj     +++|**        TROF - TABLE OF REPRIEVE OPTION CLASS FLAG BITS.
06369  M00S04306.1aj     +++|*
06370  M00S04307.1aj     +++|*         INDEXED BY NOS ERROR FLAG.
06371  M00S04308.1aj     +++|
06372  M00S04309.1aj     +++|
06373  M00S04310.1aj     +++| TROF     INDEX
06374  M00S04311.1aj     +++|          INDEX  0,/COMSRPV/NTCL      NORMAL TERMINATION
06375  M00S04312.1aj     +++|          INDEX  ARET,/COMSRPV/EECL   CPU ERROR EXIT
06376  M00S04313.1aj     +++|          INDEX  CPET,/COMSRPV/CPCL   CPU ABORT
Line S04314 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06377  M01S04314.v23l617 ---|          INDEX  ECET,/COMSRPV/ECCL   ECS PARITY ERROR
Line S00167 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06378  M01S00167.v23l617 +++|          INDEX  ECET,/COMSRPV/ECCL   EXTENDED MEMORY PARITY ERROR
06379  M00S04315.1aj     +++|          INDEX  FLET,/COMSRPV/FLCL   MASS STORAGE LIMIT
06380  M00S04316.1aj     +++|          INDEX  FSET,/COMSRPV/OKCL   OPERATOR KILL
Line S00003 Modification History
M01 (Added by) 1aj19
Seq #  *Modification Id* Act 
----------------------------+
06381  M01S00003.1aj19   +++|          INDEX  IDET,/COMSRPV/ODCL   IDLEDOWN
06382  M00S04317.1aj     +++|          INDEX  ITET,/COMSRPV/PPCL   PPU ABORT
06383  M00S04318.1aj     +++|          INDEX  MLET,/COMSRPV/ECCL   MESSAGE LIMIT
06384  M00S04319.1aj     +++|          INDEX  ODET,/COMSRPV/ODCL   OPERATOR DROP
06385  M00S04320.1aj     +++|          INDEX  OKET,/COMSRPV/OKCL   OPERATOR KILL
06386  M00S04321.1aj     +++|          INDEX  ORET,/COMSRPV/OKCL   OPERATOR KILL
06387  M00S04322.1aj     +++|          INDEX  PCET,/COMSRPV/PCCL   PP CALL ERROR
06388  M00S04323.1aj     +++|          INDEX  PEET,/COMSRPV/EECL   CPU PARITY ERROR
06389  M00S04324.1aj     +++|          INDEX  PPET,/COMSRPV/PPCL   PPU ABORT
06390  M00S04325.1aj     +++|          INDEX  PSET,/COMSRPV/EECL   CPU ERROR EXIT
Line S00006 Modification History
M01 (Added by) ns2112
Seq #  *Modification Id* Act 
----------------------------+
06391  M01S00006.ns2112  +++|          INDEX  RCET,/COMSRPV/PCCL   JOB HUNG IN AUTORECALL
06392  M00S04326.1aj     +++|          INDEX  RRET,/COMSRPV/RRCL   OPERATOR RERUN
Line S00016 Modification History
M01 (Added by) ns2152
M02 (Removed by) ns2395
Seq #  *Modification Id* Act 
----------------------------+
06393  M02S00016.ns2395  ---|          INDEX  SLET,/COMSRPV/FLCL  SERVICE LIMIT
06394  M00S04327.1aj     +++|          INDEX  SRET,/COMSRPV/SRCL   I/O LIMITS
06395  M00S04328.1aj     +++|          INDEX  SSET,/COMSRPV/OKCL   OPERATOR KILL
Line S00001 Modification History
M01 (Added by) ns2100
Seq #  *Modification Id* Act 
----------------------------+
06396  M01S00001.ns2100  +++|          INDEX  STET,/COMSRPV/ODCL   SUSPENSION TIMEOUT
06397  M00S04329.1aj     +++|          INDEX  SYET,/COMSRPV/OKCL   OPERATOR KILL
06398  M00S04330.1aj     +++|          INDEX  TAET,/COMSRPV/TICL   USER BREAK TWO
06399  M00S04331.1aj     +++|          INDEX  TIET,/COMSRPV/TICL   USER BREAK ONE
06400  M00S04332.1aj     +++|          INDEX  TKET,/COMSRPV/FLCL   MASS STORAGE LIMIT
06401  M00S04333.1aj     +++|          INDEX  TLET,/COMSRPV/TLCL   TIME LIMIT
06402  M00S04334.1aj     +++|
06403  M00S04335.1aj     +++|          INDEX  MXET
06404  M00S04336.1aj     +++| TCEC     EJECT
06405  M00S04337.1aj     +++|**        TCEC - TABLE OF REPRIEVE COMMON ERROR CODES.
06406  M00S04338.1aj     +++|*
06407  M00S04339.1aj     +++|*         INDEXED BY NOS ERROR FLAG.
06408  M00S04340.1aj     +++|
06409  M00S04341.1aj     +++|
06410  M00S04342.1aj     +++| TCEC     INDEX
06411  M00S04343.1aj     +++|          INDEX  0,/COMSRPV/NTEC      NORMAL TERMINATION
06412  M00S04344.1aj     +++|          INDEX  ARET,/COMSRPV/EEEC   CPU ERROR EXIT
06413  M00S04345.1aj     +++|          INDEX  CPET,/COMSRPV/CPEC   CPU ABORT
Line S04346 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06414  M01S04346.v23l617 ---|          INDEX  ECET,/COMSRPV/ECEC   ECS PARITY ERROR
Line S00168 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06415  M01S00168.v23l617 +++|          INDEX  ECET,/COMSRPV/ECEC   EXTENDED MEMORY PARITY ERROR
06416  M00S04347.1aj     +++|          INDEX  FLET,/COMSRPV/MLEC   MASS STORAGE LIMIT
06417  M00S04348.1aj     +++|          INDEX  FSET,/COMSRPV/OKEC   OPERATOR KILL
Line S00004 Modification History
M01 (Added by) 1aj19
Seq #  *Modification Id* Act 
----------------------------+
06418  M01S00004.1aj19   +++|          INDEX  IDET,/COMSRPV/ODEC   IDLEDOWN
06419  M00S04349.1aj     +++|          INDEX  ITET,/COMSRPV/PPEC   PPU ABORT
06420  M00S04350.1aj     +++|          INDEX  MLET,/COMSRPV/PPEC   MESSAGE LIMIT
06421  M00S04351.1aj     +++|          INDEX  ODET,/COMSRPV/ODEC   OPERATOR DROP
06422  M00S04352.1aj     +++|          INDEX  OKET,/COMSRPV/OKEC   OPERATOR KILL
06423  M00S04353.1aj     +++|          INDEX  ORET,/COMSRPV/OKEC   OPERATOR KILL
06424  M00S04354.1aj     +++|          INDEX  PCET,/COMSRPV/PCEC   PP CALL ERROR
06425  M00S04355.1aj     +++|          INDEX  PEET,/COMSRPV/EEEC   CPU ERROR EXIT
06426  M00S04356.1aj     +++|          INDEX  PPET,/COMSRPV/PPEC   PPU ABORT
06427  M00S04357.1aj     +++|          INDEX  PSET,/COMSRPV/EEEC   CPU ERROR EXIT
Line S00007 Modification History
M01 (Added by) ns2112
Seq #  *Modification Id* Act 
----------------------------+
06428  M01S00007.ns2112  +++|          INDEX  RCET,/COMSRPV/RCEC   JOB HUNG IN AUTORECALL
06429  M00S04358.1aj     +++|          INDEX  RRET,/COMSRPV/RREC   OPERATOR RERUN
06430  M00S04359.1aj     +++|          INDEX  SRET,/COMSRPV/SREC   I/O LIMITS
Line S00017 Modification History
M01 (Added by) ns2152
M02 (Removed by) ns2395
Seq #  *Modification Id* Act 
----------------------------+
06431  M02S00017.ns2395  ---|          INDEX  SLET,/COMSRPV/MLEC  SERVICE LIMIT
06432  M00S04360.1aj     +++|          INDEX  SSET,/COMSRPV/OKEC   OPERATOR KILL
Line S00002 Modification History
M01 (Added by) ns2100
Seq #  *Modification Id* Act 
----------------------------+
06433  M01S00002.ns2100  +++|          INDEX  STET,/COMSRPV/ODEC   SUSPENSION TIMEOUT
06434  M00S04361.1aj     +++|          INDEX  SYET,/COMSRPV/OKEC   OPERATOR KILL
06435  M00S04362.1aj     +++|          INDEX  TAET,/COMSRPV/TIEC   USER BREAK TWO
06436  M00S04363.1aj     +++|          INDEX  TIET,/COMSRPV/TIEC   USER BREAK ONE
06437  M00S04364.1aj     +++|          INDEX  TKET,/COMSRPV/MLEC   MASS STORAGE LIMIT
06438  M00S04365.1aj     +++|          INDEX  TLET,/COMSRPV/TLEC   TIME LIMIT
06439  M00S04366.1aj     +++|
06440  M00S04367.1aj     +++|          INDEX  MXET
06441  M00S04368.1aj     +++|          TITLE  SUBROUTINES.
06442  M00S04369.1aj     +++| CCO      SPACE  4,20
06443  M00S04370.1aj     +++|**        CCO - CALL CIO TO DUMP FET.
06444  M00S04371.1aj     +++|*
06445  M00S04372.1aj     +++|*         A *WRITER* WILL BE ISSUED TO FLUSH A BUFFER UNLESS
06446  M00S04373.1aj     +++|*         THE LAST OPERATION WAS A 204 OR 264 WRITE, IN WHICH
06447  M00S04374.1aj     +++|*         CASE THAT WRITE FUNCTION WILL BE REISSUED.
06448  M00S04375.1aj     +++|*
06449  M00S04376.1aj     +++|*         ENTRY  (CM+3 - CM+4) = FET ADDRESS.
06450  M00S04377.1aj     +++|*                (CN - CN+4) = FIRST WORD OF FET.
06451  M00S04378.1aj     +++|*                (T1) = LIST OF FILES INDEX.
06452  M00S04379.1aj     +++|*                AT *CCO2* IF *CIO* IN PROGRESS.
06453  M00S04380.1aj     +++|*
06454  M00S04381.1aj     +++|*         EXIT   TO *PPR* IF RECALL STACK FULL.
06455  M00S04382.1aj     +++|*
06456  M00S04383.1aj     +++|*         USES   CM - CM+4, CW - CW+4.
06457  M00S04384.1aj     +++|*
06458  M00S04385.1aj     +++|*         MACROS LDA, MONITOR.
06459  M00S04386.1aj     +++|
06460  M00S04387.1aj     +++|
06461  M00S04388.1aj     +++| CCO      SUBR               ENTRY/EXIT
06462  M00S04389.1aj     +++|          AOM    CCOA        FLAG *CIO* CALLED
06463  M00S04390.1aj     +++|          LDD    CP          UPDATE LIST OF FILES INDEX
06464  M00S04391.1aj     +++|          ADC    LOFW
06465  M00S04392.1aj     +++|          STD    T0
06466  M00S04393.1aj     +++|          CRD    CW
06467  M00S04394.1aj     +++|          LDD    T1
06468  M00S04395.1aj     +++|          STD    CW
06469  M00S04396.1aj     +++|          LDD    T0
06470  M00S04397.1aj     +++|          CWD    CW
06471  M00S04398.1aj     +++|          LDC    3ROCI       SET *CIO* CALL
06472  M00S04399.1aj     +++|          STD    CM
06473  M00S04400.1aj     +++|          SHN    -6
06474  M00S04401.1aj     +++|          SCN    77
06475  M00S04402.1aj     +++|          STD    CM+1
06476  M00S04403.1aj     +++|          LDN    0
06477  M00S04404.1aj     +++|          STD    CM+2
06478  M00S04405.1aj     +++|          LDD    MA
06479  M00S04406.1aj     +++|          CWD    CM
06480  M00S04407.1aj     +++|          LDD    CN+4        CHECK FOR CONTROL WORD WRITE
06481  M00S04408.1aj     +++|          LPC    776
06482  M00S04409.1aj     +++|          STD    CN+4
06483  M00S04410.1aj     +++|          SHN    -3
06484  M00S04411.1aj     +++|          LMN    204/10
06485  M00S04412.1aj     +++|          ZJN    CCO1        IF 204 WRITE
06486  M00S04413.1aj     +++|          LMN    264/10&204/10
06487  M00S04414.1aj     +++|          ZJN    CCO1        IF 264 WRITE
06488  M00S04415.1aj     +++|          LDD    CN+4        SET EOR REQUEST
06489  M00S04416.1aj     +++|          LPN    2
06490  M00S04417.1aj     +++|          LMN    24
06491  M00S04418.1aj     +++|          STD    CN+4
06492  M00S04419.1aj     +++| CCO1     LDD    CN+3        CLEAR LEVEL NUMBER AND ERROR STATUS
06493  M00S04420.1aj     +++|          SCN    77
06494  M00S04421.1aj     +++|          STD    CN+3
06495  M00S04422.1aj     +++|          LDA    CM+3        STORE FET STATUS
06496  M00S04423.1aj     +++|          CWD    CN
06497  M00S04424.1aj     +++|          LDN    ZERL
06498  M00S04425.1aj     +++|          CRD    CM
06499  M00S04426.1aj     +++|          LDD    MA
06500  M00S04427.1aj     +++|          ADN    1
06501  M00S04428.1aj     +++|          CWD    CM
06502  M00S04429.1aj     +++|          MONITOR  RPPM      REQUEST *CIO*
06503  M00S04430.1aj     +++|          LDD    CM+1
06504  M00S04431.1aj     +++|          ZJN    CCO2        IF REQUEST NOT PROCESSED
06505  M00S04432.1aj     +++|          LJM    CCOX        RETURN
06506  M00S04433.1aj     +++|
06507  M00S04434.1aj     +++|*         RECALL STACK FULL, DROP PP.
06508  M00S04435.1aj     +++|
06509  M00S04436.1aj     +++| CCO2     LDD    EF          CHECK ERROR FLAG
06510  M00S04437.1aj     +++|          ZJN    CCO3        IF NO ERROR FLAG
06511  M00S04438.1aj     +++|          STD    CM+1        RESET ERROR FLAG
06512  M00S04439.1aj     +++|          MONITOR  CEFM
06513  M00S04440.1aj     +++| CCO3     LDN    DPPS        CLEAR JOB ADVANCE AND DROP PP
06514  M00S04441.1aj     +++|          STD    CM+1
06515  M00S04442.1aj     +++|          MONITOR  JACM
06516  M00S04443.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
06517  M00S04444.1aj     +++|
06518  M00S04445.1aj     +++|
06519  M00S04446.1aj     +++| CCOA     CON    0           *CIO* CALLED FLAG
Line S04447 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06520  M01S04447.v23l617 ---| CER      SPACE  4,10
06521  M01S04448.v23l617 ---|**        CER - CHECK ERROR RETURN.
06522  M01S04449.v23l617 ---|*
06523  M01S04450.v23l617 ---|*         ENTRY  (A) = ERROR EXIT ADDRESS.
06524  M01S04451.v23l617 ---|*                (T1) = 22B, IF NON-EXTENDED REPRIEVE.
06525  M01S04452.v23l617 ---|*                (T1) = 0, IF ERROR EXIT.
06526  M01S04453.v23l617 ---|*                (CW - CW+4) = EXIT CONTROL WORD.
06527  M01S04454.v23l617 ---|*
06528  M01S04455.v23l617 ---|*         EXIT   TO *RIJ* TO RESTART JOB IF POSSIBLE.
06529  M01S04456.v23l617 ---|*
06530  M01S04457.v23l617 ---|*         CALLS  CJS,,DFM,PEX,PRP.
06531  M01S04458.v23l617 ---|
06532  M01S04459.v23l617 ---|
06533  M01S04460.v23l617 ---| CER3     LDC    =C* ILLEGAL ERROR EXIT ADDRESS.*
06534  M01S04461.v23l617 ---|          RJM    DFM
06535  M01S04462.v23l617 ---| CER4     LDN    0           CLEAR ERROR EXIT ADDRESS AND RPV OPTIONS
06536  M01S04463.v23l617 ---|          STD    CW+1
06537  M01S04464.v23l617 ---|          STD    CW+4
06538  M01S04465.v23l617 ---|          LDD    CW+3
06539  M01S04466.v23l617 ---|          SCN    77
06540  M01S04467.v23l617 ---|          STD    CW+3
06541  M01S04468.v23l617 ---|          LDD    CP
06542  M01S04469.v23l617 ---|          ADN    EECW
06543  M01S04470.v23l617 ---|          CWD    CW
06544  M01S04471.v23l617 ---|
06545  M01S04472.v23l617 ---| CER      SUBR               ENTRY/EXIT
06546  M01S04473.v23l617 ---|          STD    T7          SAVE ADDRESS
06547  M01S04474.v23l617 ---|          SHN    -14
06548  M01S04475.v23l617 ---|          STD    T6
06549  M01S04476.v23l617 ---|          RJM    CJS         CHECK JOB STATUS
06550  M01S04477.v23l617 ---|          ZJN    CER4        IF JOB STEP COMPLETE
06551  M01S04478.v23l617 ---|          LDD    T6
06552  M01S04479.v23l617 ---|          SHN    14          CHECK IF VALID ADDRESS
06553  M01S04480.v23l617 ---|          LMD    T7
06554  M01S04481.v23l617 ---|          SBN    2
06555  M01S04482.v23l617 ---|          MJN    CER3        IF ILLEGAL ADDRESS
06556  M01S04483.v23l617 ---|          ADN    2
06557  M01S04484.v23l617 ---|          ADD    T1
06558  M01S04485.v23l617 ---|          SHN    -6
06559  M01S04486.v23l617 ---|          SBD    FL
06560  M01S04487.v23l617 ---|          PJN    CER3        IF ADDRESS OUTSIDE FL
06561  M01S04488.v23l617 ---|          LDD    RF
06562  M01S04489.v23l617 ---|          NJN    CER1        IF REPREIVE
06563  M01S04490.v23l617 ---|          LDD    EF
06564  M01S04491.v23l617 ---|          LMN    CPET
06565  M01S04492.v23l617 ---|          ZJN    CERX        IF CPU ABORT
06566  M01S04493.v23l617 ---|          LMN    RRET&CPET
06567  M01S04494.v23l617 ---|          ZJN    CERX        IF RERUN
06568  M01S04495.v23l617 ---|          RJM    PEX         PROCESS EXIT
06569  M01S04496.v23l617 ---|          UJN    CER2        RESET (P)
06570  M01S04497.v23l617 ---|
06571  M01S04498.v23l617 ---| CER1     RJM    PRP         PROCESS REPRIEVE
06572  M01S04499.v23l617 ---|          ZJN    CER2        IF REPRIEVE POSSIBLE
06573  M01S04500.v23l617 ---|          LJM    CER4        CLEAR OPTIONS
06574  M01S04501.v23l617 ---|
06575  M01S04502.v23l617 ---| CER2     LDD    CP          RESET (P)
06576  M01S04503.v23l617 ---|          CRD    CM
06577  M01S04504.v23l617 ---|          LDD    T6
06578  M01S04505.v23l617 ---|          STD    CM
06579  M01S04506.v23l617 ---|          LDD    T7
06580  M01S04507.v23l617 ---|          STD    CM+1
06581  M01S04508.v23l617 ---|          LDD    CP          STORE (P)
06582  M01S04509.v23l617 ---|          CWD    CM
06583  M01S04510.v23l617 ---|          LDN    ZERL        CLEAR (RA+1)
06584  M01S04511.v23l617 ---|          CRD    CM
06585  M01S04512.v23l617 ---|          LDD    RA
06586  M01S04513.v23l617 ---|          SHN    6
06587  M01S04514.v23l617 ---|          ADN    1
06588  M01S04515.v23l617 ---|          CWD    CM
06589  M01S04516.v23l617 ---|          LJM    RIJ         RESTART JOB
06590  M00S04517.1aj     +++| CFP      SPACE  4,15
06591  M00S04518.1aj     +++|**        CFP - CHECK FET PARAMETERS.
06592  M00S04519.1aj     +++|*
06593  M00S04520.1aj     +++|*         ENTRY  (CM+3 - CM+4) = FET ADDRESS.
06594  M00S04521.1aj     +++|*
06595  M00S04522.1aj     +++|*         EXIT   (A) = 0, BUFFER PARAMETERS ARE VALID, FET IS WITHIN FL
06596  M00S04523.1aj     +++|*                AND CONTAINS DATA.
06597  M00S04524.1aj     +++|*                (CW+1) = FLUSH BIT.
06598  M00S04525.1aj     +++|*                (CN - CN+4) = FIRST WORD OF FET.
06599  M00S04526.1aj     +++|*                (CW+3 - CW+4) = FIRST.
06600  M00S04527.1aj     +++|*                (FS+3 - FS+4) = IN.
06601  M00S04528.1aj     +++|*                (AB+3 - AB+4) = OUT.
06602  M00S04529.1aj     +++|*                (T6 - T7) = LIMIT.
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/1aj.004.txt ยท Last modified: by 127.0.0.1