User Tools

Site Tools


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

Deck 1SJ

101 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1sj     +++|          IDENT  1SJ,SCJ
00002  M01S00002.1sj     +++|          PERIPH
00003  M01S00003.1sj     +++|          BASE   MIXED
00004  M01S00004.1sj     +++|          LIST   F
00005  M01S00005.1sj     +++|          SST
00006  M01S00006.1sj     +++|*COMMENT  1SJ - JOB SCHEDULER.
Line S00007 Modification History
M01 (Added by) 1sj
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1sj     +++|          TITLE  1SJ - JOB SCHEDULER.
00010  M01S00009.1sj     +++|          SPACE  4
00011  M01S00010.1sj     +++|***       1SJ - JOB SCHEDULER.
00012  M01S00011.1sj     +++|*         G. R. MANSFIELD.   70/09/24.
00013  M01S00012.1sj     +++|*         R. E. TATE.        71/01/25.
00014  M01S00013.1sj     +++|*         R. M. DANISCH      81/01/28.
00015  M01S00014.1sj     +++|          SPACE  4
00016  M01S00015.1sj     +++|***              *1SJ* IS RESPONSIBLE FOR SCHEDULING JOBS TO AND FROM
00017  M01S00016.1sj     +++|*         CENTRAL MEMORY.
00018  M01S00017.1sj     +++|*
00019  M01S00018.1sj     +++|*         *1SJ* ALWAYS ATTEMPTS TO SATISFY CM/ECS FL INCREASE
00020  M01S00019.1sj     +++|*         REQUESTS OF JOBS ALREADY AT CONTROL POINTS BEFORE SELECTING
00021  M01S00020.1sj     +++|*         ROLLED OUT JOBS FOR SCHEDULING.  WHEN NO CM/ECS FL INCREASE
00022  M01S00021.1sj     +++|*         REQUESTS ARE PRESENT, *1SJ* ATTEMPTS TO SCHEDULE ROLLED
00023  M01S00022.1sj     +++|*         OUT JOBS TO CONTROL POINTS.  WHETHER OR NOT ANY SUCH
00024  M01S00023.1sj     +++|*         SCHEDULING ACTUALLY OCCURS DURING A GIVEN SCHEDULER CYCLE
00025  M01S00024.1sj     +++|*         DEPENDS ON MANY FACTORS INCLUDING - AVAILABILITY OF CM AND
00026  M01S00025.1sj     +++|*         ECS, AVAILABILITY OF CONTROL POINTS, PRIORITIES OF SCHEDULING
00027  M01S00026.1sj     +++|*         CANDIDATES, PRIORITIES OF JOBS PRESENTLY IN CM, AND SERVICE
00028  M01S00027.1sj     +++|*         CLASS CONSTRAINTS ON THE ALLOCATION OF MEMORY.
00029  M01S00028.1sj     +++|*
Line S00029 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00029.271l716 ---|*         IN ADDITION TO ITS CM/ECS SCHEDULING FUNCTION, *1SJ* PERFORMS
Line S00030 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00030.271l716 ---|*         SEVERAL TASK ON A PERIODIC BASIS, INCLUDING THE FOLLOWING -
Line S00031 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00031.271l716 ---|*
Line S00032 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00032.271l716 ---|*              - SCHEDULE INPUT FILES TO THE EJT.
Line S00033 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00033.271l716 ---|*
Line S00034 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00034.271l716 ---|*              - PROCESS SUSPENDED JOBS.
Line S00035 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00035.271l716 ---|*
Line S00036 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00036.271l716 ---|*              - PERFORM TIMED/EVENT ROLLOUT PROCESSING.
Line S00037 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00037.271l716 ---|*
Line S00038 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00038.271l716 ---|*              - CHECK FOR EXPIRED CM/CPU TIME SLICES.
Line S00039 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00039.271l716 ---|*
Line S00040 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00040.271l716 ---|*              - CHECK WAIT RESPONSE/CONNECTION INDICATORS.
Line S00041 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00041.271l716 ---|*
Line S00042 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00042.271l716 ---|*              - PROCESS ACCUMULATOR OVERFLOW FLAGS.
Line S00043 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00043.271l716 ---|*
Line S00044 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00044.271l716 ---|*              - CHECK FOR MASS STORAGE CHECKPOINT AND LABEL
Line S00045 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00045.271l716 ---|*                INITIALIZATION REQUESTS.
00047  M01S00001.271l716 +++|*         IN ADDITION TO IT-S CM/EM SCHEDULING FUNCTION, *1SJ* ALSO
00048  M01S00002.271l716 +++|*         PERIODICALLY SCHEDULES INPUT FILES TO THE EJT.
00049  M01S00046.1sj     +++|          SPACE  4
00050  M01S00047.1sj     +++|***       CALL.
00051  M01S00048.1sj     +++|*
00052  M01S00049.1sj     +++|*
Line S00050 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00050.271l716 ---|*T        18/  *1SJ*,6/  CP,10/  0,1/  P,1/  Q,24/
Figure

02324252629 Q P 0303536414259 0 CP *1SJ*

00054  M01S00003.271l716 +++|*T        18/  *1SJ*,6/  CP,11/  0,1/  Q,24/
Figure

023242529 Q 0303536414259 0 CP *1SJ*

00055  M01S00051.1sj     +++|*         CP     SYSTEM CONTROL POINT NUMBER.
Line S00052 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00052.271l716 ---|*         P = 0  NON-PERIODIC CALL (DON-T PERFORM PERIODIC FUNCTIONS).
Line S00053 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00053.271l716 ---|*           = 1  PERIODIC CALL (PERFORM PERIODIC FUNCTIONS).
00058  M01S00054.1sj     +++|*         Q = 0  NO QFT SCHEDULING.
Line S00055 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00055.271l716 ---|*           = 1  PERFORM QFT SCHEDULING.
Line S00001 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00001.271l716 ---|          SPACE  4,10
Line S00002 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00002.271l716 ---|***       ERROR LOG MESSAGES.
Line S00003 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00003.271l716 ---|*
Line S00004 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00004.271l716 ---|*
Line S00001 Modification History
M01 (Added by) 241l630
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00064  M03S00001.271l716 ---|*         *EQORD,TKNNNN, MEDIA DEFECT FLAWED.* = THE LOGICAL TRACK NNNN
Line S00002 Modification History
M01 (Added by) 241l630
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00065  M03S00002.271l716 ---|*                ON EQUIPMENT ORD HAS BEEN FLAWED.  THIS TRACK IS NO
Line S00003 Modification History
M01 (Added by) 241l630
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00066  M03S00003.271l716 ---|*                LONGER AVAILABLE TO BE USED BY THE SYSTEM.
Line S00004 Modification History
M01 (Added by) 241l630
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00067  M03S00004.271l716 ---|*
Line S00005 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00005.271l716 ---|*         *XXYYY,   RECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
Line S00006 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00006.271l716 ---|*                OF RECOVERED ERRORS ON DEVICE TYPE XX WITH EST ORDINAL
Line S00007 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00007.271l716 ---|*                YYY IS GREATER THAN THE THRESHOLD DEFINED FOR THAT
Line S00008 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00008.271l716 ---|*                DEVICE TYPE.
Line S00009 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00009.271l716 ---|*
Line S00010 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00010.271l716 ---|*         *XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
Line S00011 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00011.271l716 ---|*                OF UNRECOVERED ERRORS ON DEVICE TYPE XX WITH EST
Line S00012 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00012.271l716 ---|*                ORDINAL YYY IS GREATER THAN THE THRESHOLD DEFINED FOR
Line S00013 Modification History
M01 (Added by) v23l617
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00013.271l716 ---|*                THAT DEVICE TYPE.
Line S00056 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00056.271l716 ---|          SPACE  4
Line S00057 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00057.271l716 ---|**        ROUTINES USED.
Line S00058 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00058.271l716 ---|*
Line S00059 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00059.271l716 ---|*
Line S00060 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00060.271l716 ---|*         0AU - PROCESS ACCUMULATOR OVERFLOW FLAGS.
00082  M01S00004.271l716 +++|*           = 1  PERFORM INPUT FILE SCHEDULING.
00083  M01S00061.1sj     +++|          SPACE  4
00084  M01S00062.1sj     +++|**        PROGRAMS CALLED.
00085  M01S00063.1sj     +++|*
00086  M01S00064.1sj     +++|*
Line S00065 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00065.271l716 ---|*         CMS - MASS STORAGE LABEL INITIALIZATION.
00088  M01S00066.1sj     +++|*         1AJ - JOB INITIATION.
Line S00067 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00067.271l716 ---|*         1CK - MASS STORAGE CHECKPOINT.
00090  M01S00068.1sj     +++|*         1RI - ROLLIN JOB.
00091  M01S00069.1sj     +++|          SPACE  4,10
00092  M01S00070.1sj     +++|**        COMMON DECKS.
00093  M01S00071.1sj     +++|
00094  M01S00072.1sj     +++|
00095  M01S00073.1sj     +++|*CALL     COMPMAC
Line S00074 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00074.271l716 ---|          LIST   X
00097  M01S00075.1sj     +++|          QUAL   CPS
00098  M01S00076.1sj     +++|*CALL     COMSCPS
00099  M01S00077.1sj     +++|          QUAL    *
00100  M01S00005.271l716 +++|          QUAL   DSL
00101  M01S00006.271l716 +++|*CALL     COMSDSL
00102  M01S00007.271l716 +++|          QUAL   *
00103  M01S00005.241l630 +++|*CALL     COMSDST
00104  M01S00008.271l716 +++|          LIST   X
00105  M01S00078.1sj     +++|*CALL     COMSEJT
00106  M01S00009.271l716 +++|          LIST   *
00107  M01S00079.1sj     +++|*CALL     COMSEVT
00108  M01S00080.1sj     +++|*CALL     COMSJIO
00109  M01S00081.1sj     +++|*CALL     COMSMSC
Line S00010 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00010.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
Line S00011 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00011.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
Line S00012 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00012.273l780 ---|*CALL     COMSPCP
00113  M01S00014.v23l617 +++|*CALL     COMSMSP
Line S00082 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00082.271l716 ---|*CALL     COMSMST
00115  M01S00083.1sj     +++|*CALL     COMSPIM
00116  M01S00013.271l716 +++|          LIST   X
00117  M01S00084.1sj     +++|*CALL     COMSPRD
00118  M01S00014.271l716 +++|          LIST   *
00119  M01S00001.ns22000 +++|*CALL     COMSSCD
00120  M01S00085.1sj     +++|*CALL     COMSSCP
00121  M01S00015.271l716 +++|          LIST   X
00122  M01S00086.1sj     +++|*CALL     COMSSSD
00123  M01S00087.1sj     +++|          LIST   *
00124  M01S00088.1sj     +++|*CALL     COMSSSE
Line S00089 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00089.271l716 ---|*CALL     COMSZOL
00126  M01S00090.1sj     +++|          QUAL   1DS
00127  M01S00091.1sj     +++|*CALL     COMS1DS
00128  M01S00092.1sj     +++|          QUAL   *
Line S00001 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00001.271l716 ---|*CALL     COMS1MV
00130  M01S00093.1sj     +++|          TITLE  MACRO DEFINITIONS.
00131  M01S00094.1sj     +++|**        MACRO  DEFINITIONS.
00132  M01S00095.1sj     +++|
00133  M01S00096.1sj     +++|
Line S00097 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00097.242l642 ---|**        JOBSTAT - DEFINE SCHEDULABLE JOB STATES.
00135  M01S00002.242l642 +++|**        JOBSTAT - DEFINE JOB STATE ATTRIBUTES.
00136  M01S00098.1sj     +++|*
Line S00099 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00099.242l642 ---|*         JOBSTAT A,B,C,D,E
Line S00100 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00100.242l642 ---|*                A     TABLE NAME IF PRESENT.
Line S00101 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00101.242l642 ---|*                B     JOB STATUS.
Line S00102 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00102.242l642 ---|*                C     NON-BLANK IF SCHEDULABLE JOB STATUS.
Line S00103 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00103.242l642 ---|*                D     NON-BLANK IF ERROR FLAG SET CAUSES JOB STATUS TO
Line S00104 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00104.242l642 ---|*                      BECOME SCHEDULABLE.
Line S00105 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00105.242l642 ---|*                E     NON-BLANK IF JOB MAY BE FORCED ROLLED IN.
00144  M01S00003.242l642 +++|*         JOBSTAT NAME,STATUS,SS,ES,FR,TE,PI
00145  M01S00004.242l642 +++|*                NAME        TABLE NAME IF PRESENT.
00146  M01S00005.242l642 +++|*                STATUS      JOB STATUS.
00147  M01S00006.242l642 +++|*                SS          NON-BLANK IF SCHEDULABLE JOB STATUS.
00148  M01S00007.242l642 +++|*                ES          NON-BLANK IF ERROR FLAG SET CAUSES JOB
00149  M01S00008.242l642 +++|*                            STATUS TO BECOME SCHEDULABLE.
00150  M01S00009.242l642 +++|*                FR          NON-BLANK IF JOB MAY BE FORCED ROLLED IN.
00151  M01S00010.242l642 +++|*                TE          NON-BLANK IF TIMED/EVENT TYPE JOB STATUS.
00152  M01S00011.242l642 +++|*                PI          NON-BLANK IF PRE-INITIAL JOB STEP TYPE
00153  M01S00012.242l642 +++|*                            STATUS.
00154  M01S00013.242l642 +++|*         JOBSTAT A,B,C,D,E,F,G
00155  M01S00016.271l716 +++|*
00156  M01S00017.271l716 +++|*         NOTE - ANY CHANGES TO THIS MACRO MUST BE ACCOMPANIED BY A
00157  M01S00018.271l716 +++|*                CORRESPONDING CHANGE TO THE *JOBSTAT* MACRO DEFINED
00158  M01S00019.271l716 +++|*                IN *1PP*.
00159  M01S00106.1sj     +++|
00160  M01S00107.1sj     +++|
00161  M01S00108.1sj     +++|          PURGMAC JOBSTAT
00162  M01S00109.1sj     +++|
Line S00110 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00110.242l642 ---|          MACRO  JOBSTAT,A,B,C,D,E
Line S00111 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00111.242l642 ---| .A       IFC    NE,$A$$
Line S00112 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00112.242l642 ---| A        BSS    0
Line S00113 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00113.242l642 ---| .1       SET    A
Line S00114 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00114.242l642 ---| .A       ELSE
Line S00115 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00115.242l642 ---|          ORG    .1+B
Line S00116 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00116.242l642 ---| .2       SET    0
Line S00117 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00117.242l642 ---|          LOC    B
Line S00118 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00118.242l642 ---|          IFC    NE,$C$$,1
Line S00119 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00119.242l642 ---| .2       SET    .2+4000
Line S00120 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00120.242l642 ---|          IFC    NE,$D$$,1
Line S00121 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00121.242l642 ---| .2       SET    .2+2000
Line S00122 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00122.242l642 ---|          IFC    NE,$E$$,1
Line S00123 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00123.242l642 ---| .2       SET    .2+1000
Line S00124 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00124.242l642 ---|          VFD    12/.2
Line S00125 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00125.242l642 ---| .A       ENDIF
00179  M01S00014.242l642 +++|          MACRO  JOBSTAT,NAME,STATUS,SS,ES,FR,TE,PI
00180  M01S00015.242l642 +++|.1        IFC    NE,$NAME$$
Line S00016 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00016.271l716 ---|NAME      BSS    0
Line S00017 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00017.271l716 ---|.N        SET    NAME
00183  M01S00020.271l716 +++|NAME      INDEX
00184  M01S00018.242l642 +++|.1        ELSE
Line S00019 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00019.271l716 ---|          ORG    .N+STATUS
Line S00020 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00020.271l716 ---|.2        SET    0
Line S00021 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00021.271l716 ---|          LOC    STATUS
00188  M01S00021.271l716 +++|.V        SET    0
00189  M01S00022.242l642 +++|          IFC    NE,$SS$$,1
Line S00023 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00023.271l716 ---|.2        SET    .2+4000
00191  M01S00022.271l716 +++|.V        SET    .V+4000
00192  M01S00024.242l642 +++|          IFC    NE,$ES$$,1
Line S00025 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00025.271l716 ---|.2        SET    .2+2000
00194  M01S00023.271l716 +++|.V        SET    .V+2000
00195  M01S00026.242l642 +++|          IFC    NE,$FR$$,1
Line S00027 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00027.271l716 ---|.2        SET    .2+1000
00197  M01S00024.271l716 +++|.V        SET    .V+1000
00198  M01S00028.242l642 +++|          IFC    NE,$TE$$,1
Line S00029 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00029.271l716 ---|.2        SET    .2+400
00200  M01S00025.271l716 +++|.V        SET    .V+400
00201  M01S00030.242l642 +++|          IFC    NE,$PI$$,1
Line S00031 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00031.271l716 ---|.2        SET    .2+200
Line S00032 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00032.271l716 ---|          VFD    12/.2
00204  M01S00026.271l716 +++|.V        SET    .V+200
00205  M01S00027.271l716 +++|          INDEX  STATUS,.V
00206  M01S00033.242l642 +++|.1        ENDIF
00207  M01S00126.1sj     +++|          ENDM
00208  M01S00001.v22l602 +++| SUBSYST  SPACE  4,10
00209  M01S00002.v22l602 +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00210  M01S00003.v22l602 +++|*
00211  M01S00004.v22l602 +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00212  M01S00005.v22l602 +++|*
00213  M01S00006.v22l602 +++|*         ENTRY  *PR* = CPU PRIORITY AT WHICH TO INITIATE THE
00214  M01S00007.v22l602 +++|*                       SUBSYSTEM.
00215  M01S00008.v22l602 +++|*
00216  M01S00009.v22l602 +++|*         TABLE OF SUBSYSTEM CPU PRIORITIES.
00217  M01S00010.v22l602 +++|*
00218  M01S00011.v22l602 +++|*T        12/ PRIORITY
Figure

011 PRIORITY

00219  M01S00012.v22l602 +++|
00220  M01S00013.v22l602 +++|
00221  M01S00014.v22l602 +++|          PURGMAC  SUBSYST
00222  M01S00015.v22l602 +++|
00223  M01S00016.v22l602 +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00224  M01S00017.v22l602 +++| .A       IFC    NE,$PT$$
00225  M01S00018.v22l602 +++| .SUB     RMT
00226  M01S00019.v22l602 +++|          INDEX  (MXSI-ID),PT
00227  M01S00020.v22l602 +++| .SUB     RMT
00228  M01S00021.v22l602 +++| .A       ENDIF
00229  M01S00022.v22l602 +++| SUBSYST  ENDM
00230  M01S00127.1sj     +++|          SPACE  4,10
00231  M01S00128.1sj     +++|**        CONSTANTS.
00232  M01S00129.1sj     +++|
00233  M01S00130.1sj     +++|
00234  M01S00131.1sj     +++| MXPR     EQU    7777        MAXIMUM SCHEDULING PRIORITY (INTERNAL)
Line S00001 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00001.271l716 ---| MRCC     EQU    10          MAXIMUM RECYCLE COUNT
00236  M01S00132.1sj     +++|          TITLE  DIRECT CELL ASSIGNMENTS.
00237  M01S00133.1sj     +++|****      DIRECT CELL ASSIGNMENTS.
00238  M01S00134.1sj     +++|
00239  M01S00135.1sj     +++|
00240  M01S00034.242l642 +++| T8       EQU    16          SCRATCH
00241  M01S00035.242l642 +++| T9       EQU    17          SCRATCH
00242  M01S00136.1sj     +++| AA       EQU    20 - 24     SCRATCH (5 CELLS)
00243  M01S00137.1sj     +++| TM       EQU    25 - 26     SECONDS PORTION OF *RTCL* (2 CELLS)
00244  M01S00138.1sj     +++| BB       EQU    27 - 33     SCRATCH (5 CELLS)
00245  M01S00139.1sj     +++| EO       EQU    34          EJT ORDINAL
00246  M01S00140.1sj     +++| IO       EQU    35          QFT ORDINAL (USED ONLY IN *SIE*)
00247  M01S00141.1sj     +++| TE       EQU    36          LWA OF LAST *TACP* ENTRY
00248  M01S00142.1sj     +++| AM       EQU    37 - 40     AVAILABLE + ROLLING CM (2 CELLS)
Line S00143 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00143.271l716 ---| AE       EQU    41          AVAILABLE + ROLLING ECS
Line S00144 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00144.271l716 ---| RM       EQU    42 - 43     ROLLING CM (2 CELLS)
Line S00145 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00145.271l716 ---| RE       EQU    44          ROLLING ECS
Line S00146 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00146.271l716 ---| CS       EQU    45 - 46     EXCESS CM OF SERVICE CLASS (2 CELLS)
00253  M01S00028.271l716 +++| SC       EQU    41          SERVICE CLASS
00254  M01S00029.271l716 +++| AE       EQU    42          AVAILABLE + ROLLING EM
00255  M01S00030.271l716 +++| TP       EQU    43          SCRATCH
00256  M01S00031.271l716 +++| RM       EQU    44 - 45     ROLLING CM (2 CELLS)
00257  M01S00032.271l716 +++| RE       EQU    46          ROLLING EM
00258  M01S00147.1sj     +++| ES       EQU    47          EXCESS ECS OF SERVICE CLASS
00259  M01S00148.1sj     +++| EJ       EQU    50 - 54     EJT BUFFER (5 CELLS)
Line S00149 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00149.271l716 ---| SC       EQU    57          SERVICE CLASS
Line S00150 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00150.271l716 ---| EP       EQU    60          EJT ORDINAL OF SELECTED JOB
00262  M01S00033.271l716 +++| CS       EQU    57 - 60     EXCESS CM OF SERVICE CLASS (2 CELLS)
00263  M01S00151.1sj     +++| SP       EQU    61          SERVICE CLASS OF SELECTED JOB
00264  M01S00152.1sj     +++| JP       EQU    62          SCHEDULING PRIORITY OF SELECTED JOB
00265  M01S00153.1sj     +++| JC       EQU    63          CONTROL POINT NUMBER OF SELECTED JOB
00266  M01S00154.1sj     +++| JM       EQU    64          CM FL REQUIRED BY SELECTED JOB
00267  M01S00155.1sj     +++| JE       EQU    65          ECS FL REQUIRED BY SELECTED JOB
00268  M01S00156.1sj     +++| NC       EQU    66          NUMBER OF CONTROL POINTS
Line S00157 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00157.271l716 ---| TP       EQU    67          SCRATCH
00270  M01S00034.271l716 +++| EP       EQU    67          EJT ORDINAL OF SELECTED JOB
00271  M01S00158.1sj     +++|
00272  M01S00159.1sj     +++|
00273  M01S00160.1sj     +++|****
00274  M01S00161.1sj     +++|          TITLE  TABLES.
00275  M01S00162.1sj     +++|          USE    TABLES
00276  M01S00163.1sj     +++| TABLES   SPACE  4,10
00277  M01S00164.1sj     +++|**        TDAC - DEVICE ACTIVITY.
00278  M01S00165.1sj     +++|*         ENTRY = 1 WORD.
00279  M01S00166.1sj     +++|*         INDEXED BY EST ORDINAL.
00280  M01S00167.1sj     +++|*
00281  M01S00168.1sj     +++|*T        12/ AC
Figure

011 AC

00282  M01S00169.1sj     +++|*         AC     ACTIVITY COUNT FROM MST OF DEVICE.
00283  M01S00170.1sj     +++|
00284  M01S00171.1sj     +++|
00285  M01S00172.1sj     +++| TDAC     BSS    0
00286  M01S00035.271l716 +++| TDACE    EQU    1           ENTRY SIZE
00287  M01S00173.1sj     +++| TABLES   SPACE  4,10
00288  M01S00174.1sj     +++|**        TTCU - ASSIGNED CM FL.
00289  M01S00175.1sj     +++|*         ENTRY = 2 WORDS.
00290  M01S00176.1sj     +++|*         INDEXED BY SERVICE CLASS.
00291  M01S00177.1sj     +++|*
00292  M01S00178.1sj     +++|*T        24/ CM
Figure

023 CM

00293  M01S00179.1sj     +++|*         CM     CM FL ASSIGNED TO JOBS OF SERVICE CLASS.
00294  M01S00180.1sj     +++|
00295  M01S00181.1sj     +++|
Line S00182 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00182.ns22000 ---| TTCU     EQU    TDAC+NMSD
00297  M01S00002.ns22000 +++| TTCU     EQU    TDAC+ESMX
00298  M01S00036.271l716 +++| TTCUE    EQU    2           ENTRY SIZE
00299  M01S00183.1sj     +++| TABLES   SPACE  4,10
Line S00184 Modification History
M01 (Added by) 1sj
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00184.284l847 ---|**        TTEU - ASSIGNED ECS FL.
00301  M01S00001.284l847 +++|**        TTUE - ASSIGNED ECS FL.
00302  M01S00185.1sj     +++|*         ENTRY = 1 WORD.
00303  M01S00186.1sj     +++|*         INDEXED BY SERVICE CLASS.
00304  M01S00187.1sj     +++|*
00305  M01S00188.1sj     +++|*T        12/ EC
Figure

011 EC

00306  M01S00189.1sj     +++|*         EC     ECS FL ASSIGNED TO JOBS OF SERVICE CLASS.
00307  M01S00190.1sj     +++|
00308  M01S00191.1sj     +++|
Line S00192 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00192.271l716 ---| TTEU     EQU    TTCU+MXJC*2
Line S00037 Modification History
M01 (Added by) 271l716
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00037.284l847 ---| TTEU     EQU    TTCU+MXJC*TTCUE
Line S00038 Modification History
M01 (Added by) 271l716
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00038.284l847 ---| TTEUE    EQU    1           ENTRY SIZE
00312  M01S00002.284l847 +++| TTUE     EQU    TTCU+MXJC*TTCUE
00313  M01S00003.284l847 +++| TTUEE    EQU    1           ENTRY SIZE
00314  M01S00039.271l716 +++| TABLES   SPACE  4
00315  M01S00193.1sj     +++|          USE    *
Line S00194 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00316  M02S00194.271l716 ---| TABLES   SPACE  4,10
00317  M01S00040.271l716 +++| TABLES   SPACE  4,10
00318  M01S00195.1sj     +++|*         THE FOLLOWING TABLES ARE LOCATED TOWARD THE HIGH END OF PP
00319  M01S00196.1sj     +++|*         MEMORY TO FACILITATE *1SJ-S* OVERLAY STRUCTURE.
00320  M01S00197.1sj     +++| TABLES   SPACE  4,10
Line S00001 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00001.271l716 ---|**        TPRS - PREVIOUSLY REJECTED SUBSYSTEMS.
Line S00002 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00002.271l716 ---|*         ENTRY = 1 WORD.
Line S00003 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00003.271l716 ---|*         INDEXED BY RECYCLE COUNT *SCJE*.
Line S00004 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00324  M02S00004.271l716 ---|*
Line S00005 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00005.271l716 ---|*T        12/  EJTO
Figure

011 EJTO


Line S00006 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00006.271l716 ---|*         EJTO   EJT ORDINAL OF SUBSYSTEM REJECTED ON A PREVIOUS PASS.
Line S00007 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00007.271l716 ---|
Line S00008 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00328  M02S00008.271l716 ---|
Line S00009 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00009.271l716 ---| TPRS     EQU    BFMS-MRCC
00330  M01S00010.1sj30a  +++| TABLES   SPACE  4,10
00331  M01S00198.1sj     +++|**        TEPB - EJT/CP SCHEDULING PARAMETERS.
Line S00199 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00199.271l716 ---|*         ENTRY = 5 WORDS.
00333  M01S00041.271l716 +++|*         ENTRY = 4 WORDS.
00334  M01S00200.1sj     +++|*         INDEXED BY SERVICE CLASS.
00335  M01S00201.1sj     +++|*
Line S00202 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00336  M02S00202.271l716 ---|*T        12/  IL,12/  LB,12/  UB,12/  WF,12/  IP
Figure

01112232429 IP WF UB303536474859 UB LB IL


Line S00203 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00203.271l716 ---|*         IL     LOWER BOUND SCHEDULING PRIORITY USED FOR INITIAL
Line S00204 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00204.271l716 ---|*                SLICE.
00339  M01S00042.271l716 +++|*T        12/  LB,12/  UB,12/  WF,12/  IP
Figure

01112232429 IP WF UB30353647 UB LB

00340  M01S00205.1sj     +++|*         LB     LOWER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS.
00341  M01S00206.1sj     +++|*         UB     UPPER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS.
00342  M01S00207.1sj     +++|*         WF     WEIGHTING FACTOR.
00343  M01S00208.1sj     +++|*         IP     INITIAL SCHEDULING PRIORITY OF EXECUTING JOBS.
00344  M01S00209.1sj     +++|
00345  M01S00210.1sj     +++|
Line S00211 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj30a
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00211.1sj30a  ---| TEPB     EQU    BFMS-MXJC*5
Line S00011 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00011.271l716 ---| TEPB     EQU    TPRS-MXJC*5
00348  M01S00043.271l716 +++| TEPBE    EQU    4           ENTRY SIZE
00349  M01S00044.271l716 +++| TEPB     EQU    BFMS-MXJC*TEPBE
00350  M01S00212.1sj     +++| TABLES   SPACE  4,10
00351  M01S00213.1sj     +++|**        TJAM - SERVICE CLASS RESOURCE CONSTRAINTS.
00352  M01S00214.1sj     +++|*         ENTRY = 6 WORDS.
00353  M01S00215.1sj     +++|*         INDEXED BY SERVICE CLASS.
00354  M01S00216.1sj     +++|*
00355  M01S00217.1sj     +++|*T        12/ MJ,12/ MCJ,24/ MCT,12/ MEJ,12/ MET
Figure

01112232429 MET MEJ MCT30474859 MCT MCJ

00356  M01S00218.1sj     +++|*         MJ     MAXIMUM NUMBER OF JOBS OF SERVICE CLASS ALLOWED IN
00357  M01S00219.1sj     +++|*                SYSTEM (ASSIGNED TO EJT ENTRIES).
00358  M01S00220.1sj     +++|*         MCJ    MAXIMUM CM FL/100B PER JOB OF SERVICE CLASS.
00359  M01S00221.1sj     +++|*         MCT    MAXIMUM TOTAL CM FL/100B FOR ALL JOBS OF SERVICE
00360  M01S00222.1sj     +++|*                CLASS.
00361  M01S00223.1sj     +++|*         MEJ    MAXIMUM ECS FL/100B PER JOB OF SERVICE CLASS.
00362  M01S00224.1sj     +++|*         MET    MAXIMUM TOTAL ECS FL/100B FOR ALL JOBS OF SERVICE
00363  M01S00225.1sj     +++|*                CLASS.
00364  M01S00226.1sj     +++|
00365  M01S00227.1sj     +++|
Line S00228 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00228.271l716 ---| TJAM     EQU    TEPB-MXJC*6
00367  M01S00045.271l716 +++| TJAME    EQU    6           ENTRY SIZE
00368  M01S00046.271l716 +++| TJAM     EQU    TEPB-MXJC*TJAME
00369  M01S00229.1sj     +++| TABLES   SPACE  4,10
Line S00230 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00230.271l716 ---|*         THE FOLLOWING TABLES ARE OVERLAYED BY *3SA*, *3SB* AND *3SC*.
00371  M01S00047.271l716 +++|*         THE FOLLOWING TABLES ARE OVERLAYED BY *3SA* AND *3SB*.
00372  M01S00231.1sj     +++| TABLES   SPACE  4,10
Line S00232 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00373  M02S00232.271l716 ---|**        TACP - ACTIVE CONTROL POINTS.
00374  M01S00048.271l716 +++|**        TACP - ACTIVE CP-S AND PCP-S.
00375  M01S00233.1sj     +++|*         ENTRY = 1 WORD.
00376  M01S00234.1sj     +++|*         ENTRIES ARE ORDERED BY DESCENDING SCHEDULING PRIORITY. A ZERO
00377  M01S00235.1sj     +++|*         ENTRY TERMINATES THE TABLE AND A ZERO WORD MUST PRECEDE THE
00378  M01S00236.1sj     +++|*         TABLE.
00379  M01S00237.1sj     +++|*
Line S00238 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00238.271l716 ---|*T        1/ P,1/ R,5/,5/ CP
Figure

04591011 CP R P

00381  M01S00049.271l716 +++|*T        1/  P,1/  R,3/,7/  CP
Figure

06791011 CP R P

00382  M01S00239.1sj     +++|*         P      ROLLOUT IN PROGRESS.
00383  M01S00240.1sj     +++|*         R      REQUEST ROLLOUT.
Line S00241 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00241.271l716 ---|*         CP     CONTROL POINT NUMBER.
00385  M01S00050.271l716 +++|*         CP     CP/PCP NUMBER.
00386  M01S00242.1sj     +++|
00387  M01S00243.1sj     +++|
Line S00244 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00244.271l716 ---| TACP     EQU    TJAM-40
00389  M01S00051.271l716 +++| TACPE    EQU    1           ENTRY SIZE
00390  M01S00052.271l716 +++| TACP     EQU    TJAM-/DSL/NCPS-1-/DSL/NPPS
00391  M01S00245.1sj     +++| TABLES   SPACE  4,10
00392  M01S00246.1sj     +++|**        TJEC - JOB ECS FIELD LENGTH.
00393  M01S00247.1sj     +++|*         ENTRY = 1 WORD.
Line S00248 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00248.271l716 ---|*         INDEXED BY CONTROL POINT NUMBER.
00395  M01S00053.271l716 +++|*         INDEXED BY CP/PCP NUMBER.
00396  M01S00249.1sj     +++|*
00397  M01S00250.1sj     +++|*T        12/ EC
Figure

011 EC


Line S00251 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00251.271l716 ---|*         EC     ECS FIELD LENGTH ASSIGNED TO CONTROL POINT.
00399  M01S00054.271l716 +++|*         EC     EM FL ASSIGNED TO CP/PCP.
00400  M01S00252.1sj     +++|
00401  M01S00253.1sj     +++|
Line S00254 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00254.271l716 ---| TJEC     EQU    TACP-40-1
00403  M01S00055.271l716 +++| TJECE    EQU    1           ENTRY SIZE
00404  M01S00056.271l716 +++| TJEC     EQU    TACP-/DSL/NCPS-2-/DSL/NPPS
00405  M01S00255.1sj     +++| TABLES   SPACE  4,10
00406  M01S00256.1sj     +++|**        TJCM - JOB CM FIELD LENGTH (INCLUDING NFL).
00407  M01S00257.1sj     +++|*         ENTRY = 1 WORD.
Line S00258 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00258.271l716 ---|*         INDEXED BY CONTROL POINT NUMBER.
00409  M01S00057.271l716 +++|*         INDEXED BY CP/PCP NUMBER.
00410  M01S00259.1sj     +++|*
00411  M01S00260.1sj     +++|*T        12/ FL
Figure

011 FL


Line S00261 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00261.271l716 ---|*         FL     CM FIELD LENGTH (INCLUDING NFL) ASSIGNED TO CP.
00413  M01S00058.271l716 +++|*         FL     CM FL (INCLUDING NFL) ASSIGNED TO CP/PCP.
00414  M01S00262.1sj     +++|
00415  M01S00263.1sj     +++|
Line S00264 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00264.271l716 ---| TJCM     EQU    TJEC-40
00417  M01S00059.271l716 +++| TJCME    EQU    1           ENTRY SIZE
00418  M01S00060.271l716 +++| TJCM     EQU    TJEC-/DSL/NCPS-1-/DSL/NPPS
00419  M01S00265.1sj     +++| TABLES   SPACE  4,10
00420  M01S00266.1sj     +++|**        TJPR - JOB SCHEDULING PRIORITY.
00421  M01S00267.1sj     +++|*         ENTRY = 1 WORD.
Line S00268 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00268.271l716 ---|*         INDEXED BY CONTROL POINT NUMBER.
00423  M01S00061.271l716 +++|*         INDEXED BY CP/PCP NUMBER.
00424  M01S00269.1sj     +++|*
00425  M01S00270.1sj     +++|*T        12/ PR
Figure

011 PR

00426  M01S00271.1sj     +++|*         PR     SCHEDULING PRIORITY OF JOB.
00427  M01S00272.1sj     +++|
00428  M01S00273.1sj     +++|
Line S00274 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00274.271l716 ---| TJPR     EQU    TJCM-40
00430  M01S00062.271l716 +++| TJPRE    EQU    1           ENTRY SIZE
00431  M01S00063.271l716 +++| TJPR     EQU    TJCM-/DSL/NCPS-1-/DSL/NPPS
00432  M01S00275.1sj     +++| TABLES   SPACE  4,10
00433  M01S00276.1sj     +++|**        TJSC - JOB SERVICE CLASS.
00434  M01S00277.1sj     +++|*         ENTRY = 1 WORD.
Line S00278 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00278.271l716 ---|*         INDEXED BY CONTROL POINT NUMBER.
00436  M01S00064.271l716 +++|*         INDEXED BY CP/PCP NUMBER.
00437  M01S00279.1sj     +++|*
00438  M01S00280.1sj     +++|*T        12/ SC
Figure

011 SC

00439  M01S00281.1sj     +++|*         SC     SERVICE CLASS OF JOB.
00440  M01S00282.1sj     +++|
00441  M01S00283.1sj     +++|
Line S00284 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00284.271l716 ---| TJSC     EQU    TJPR-40
00443  M01S00065.271l716 +++| TJSCE    EQU    1           ENTRY SIZE
00444  M01S00066.271l716 +++| TJSC     EQU    TJPR-/DSL/NCPS-1-/DSL/NPPS
00445  M01S00285.1sj     +++| SCJ      TITLE  MAIN PROGRAM.
00446  M01S00286.1sj     +++|**        SCJ - MAIN PROGRAM.
00447  M01S00287.1sj     +++|
00448  M01S00288.1sj     +++|
00449  M01S00289.1sj     +++|          ORG    PPFW
00450  M01S00290.1sj     +++|
00451  M01S00291.1sj     +++| SCJ      BSS    0
00452  M01S00292.1sj     +++|          RJM    PRS         PRESET
Line S00293 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00293.271l716 ---|          LDC    **
Line S00294 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00294.271l716 ---| SCJA     EQU    *-1         (FLAGS BYTE FROM PP INPUT REGISTER)
Line S00295 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00295.271l716 ---|          ZJN    SCJ3        IF NOT PERIODIC AND NO QFT SCHEDULING
Line S00296 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00296.271l716 ---|
Line S00297 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00297.271l716 ---|*         DETERMINE IF INPUT FILE SCHEDULING IS REQUIRED.
Line S00298 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00298.271l716 ---|
Line S00299 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00299.271l716 ---|          LPN    1
Line S00300 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj49
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00460  M03S00300.271l716 ---|          ZJN    SCJ2        IF INPUT FILE SCHEDULING NOT REQUIRED
Line S00001 Modification History
M01 (Added by) 1sj49
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00001.271l716 ---|          ZJN    SCJ1        IF INPUT FILE SCHEDULING NOT REQUIRED
Line S00301 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00301.271l716 ---|          LDC    **
00463  M01S00067.271l716 +++|          LDN    **
00464  M01S00068.271l716 +++|*         LDN    1           (INPUT FILE SCHEDULING REQUIRED)
00465  M01S00069.271l716 +++| SCJA     EQU    *-1         (PP INPUT REGISTER FLAGS BYTE)
00466  M01S00070.271l716 +++|          ZJN    SCJ1        IF INPUT FILE SCHEDULING NOT REQUIRED
00467  M01S00071.271l716 +++|          LDN    **
00468  M01S00302.1sj     +++| SCJB     EQU    *-1         (SCHEDULER CONTROL FLAGS FROM *INWL*)
Line S00303 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00303.ns2134  ---|          LPN    2
Line S00304 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2134
Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00304.ns2134  ---|          NJN    SCJ1        IF SCHEDULING IS DISABLED
00471  M01S00001.ns2134  +++|          LPN    6
00472  M01S00002.ns2134  +++|          NJN    SCJ1        IF SCHEDULING DISABLED OR LIMITS CHANGING
Line S00305 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00305.271l716 ---|          EXECUTE  3SC       PERFORM INPUT FILE SCHEDULING
Line S00306 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00306.271l716 ---| SCJ1     LDM    SCJA
Line S00307 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00307.271l716 ---|          LPN    2
Line S00308 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00308.271l716 ---|          ZJN    SCJ3        IF NON-PERIODIC CALL
Line S00309 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj49
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00477  M03S00309.271l716 ---| SCJ2     EXECUTE  3SB       PERFORM PERIODIC FUNCTIONS
Line S00002 Modification History
M01 (Added by) 1sj49
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00002.271l716 ---|          EXECUTE  3SB       PERFORM PERIODIC FUNCTIONS
00479  M01S00072.271l716 +++|          EXECUTE  3SB       PERFORM INPUT FILE SCHEDULING
00480  M01S00310.1sj     +++|
00481  M01S00311.1sj     +++|*         INITIALIZE/RESTORE CELLS FOR THE EJT/CM SCHEDULING FUNCTION.
00482  M01S00312.1sj     +++|
Line S00313 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00313.271l716 ---| SCJ3     RJM    INT         INITIALIZE CELLS FOR EJT/CM SCHEDULING
00484  M01S00073.271l716 +++| SCJ1     RJM    INT         INITIALIZE CELLS FOR EJT/CM SCHEDULING
00485  M01S00314.1sj     +++|
00486  M01S00315.1sj     +++|*         BUILD THE FOLLOWING TABLES - *TACP*, *TJCM*, *TJEC*, *TJSC*,
Line S00316 Modification History
M01 (Added by) 1sj
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00316.284l847 ---|*         *TJPR*, *TTCU*, *TTEU*.  CALCULATE AVAILABLE AND ROLLING CM.
00488  M01S00004.284l847 +++|*         *TJPR*, *TTCU*, *TTUE*.  CALCULATE AVAILABLE AND ROLLING CM.
00489  M01S00317.1sj     +++|
00490  M01S00318.1sj     +++|          RJM    BST         BUILD CP AND SERVICE CLASS TABLES
00491  M01S00319.1sj     +++|
Line S00320 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00320.271l716 ---|*         UPDATE AVAILABLE CM AND ECS IN *ACML*.
Line S00321 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00321.271l716 ---|
Line S00322 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00322.271l716 ---|          LDN    ACML
Line S00323 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00323.271l716 ---|          CRD    CM
Line S00324 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00324.271l716 ---|          LDD    AE
Line S00325 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00325.271l716 ---|          STD    CM+1        AVAILABLE ECS
Line S00326 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00326.271l716 ---|          LDD    AM
Line S00327 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00327.271l716 ---|          STD    CM+3        AVAILABLE CM
Line S00328 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00328.271l716 ---|          LDD    AM+1
Line S00329 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00329.271l716 ---|          STD    CM+4
Line S00330 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00330.271l716 ---|          LDN    ACML
Line S00331 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00331.271l716 ---|          CWD    CM
00504  M01S00074.271l716 +++|*         OBTAIN AVAILABLE CM AND EM FROM *ACML*.
00505  M01S00075.271l716 +++|
00506  M01S00076.271l716 +++|          LDK    ACML
00507  M01S00077.271l716 +++|          CRD    AM
00508  M01S00078.271l716 +++|          ERRNZ  AE-AM-3     CODE DEPENDS ON VALUE
00509  M01S00332.1sj     +++|
00510  M01S00333.1sj     +++|*         CALCULATE AVAILABLE + ROLLING CM AND ECS.
00511  M01S00334.1sj     +++|
00512  M01S00335.1sj     +++|          LDD    RM+1
00513  M01S00336.1sj     +++|          RAD    AM+1
00514  M01S00337.1sj     +++|          SHN    -14
00515  M01S00338.1sj     +++|          ADD    RM
00516  M01S00339.1sj     +++|          RAD    AM
00517  M01S00340.1sj     +++|          LDD    RE
00518  M01S00341.1sj     +++|          RAD    AE
00519  M01S00342.1sj     +++|
Line S00343 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00343.271l716 ---|*         DETERMINE IF ANY JOB AT A CONTROL POINT IS REQUESTING A CM
00521  M01S00079.271l716 +++|*         DETERMINE IF ANY JOB AT A CP OR PCP IS REQUESTING A CM
00522  M01S00344.1sj     +++|*         OR ECS FL INCREASE.  IF SO, IT MUST BE ADDRESSED BEFORE
00523  M01S00345.1sj     +++|*         SCHEDULING ANOTHER JOB TO A CONTROL POINT.
00524  M01S00346.1sj     +++|
00525  M01S00347.1sj     +++|          LDD    JC
00526  M01S00348.1sj     +++|          ZJN    SCJ4        IF NO JOB IS REQUESTING AN FL INCREASE
00527  M01S00349.1sj     +++|
00528  M01S00350.1sj     +++|*         THE FOLLOWING CODE IS NECESSARY TO PREVENT A DEADLOCK IN THE
00529  M01S00351.1sj     +++|*         CASE OF SEVERAL OUTSTANDING CM FL INCREASE REQUESTS FOR JOBS
00530  M01S00352.1sj     +++|*         OF EQUAL PRIORITY, BUT INSUFFICIENT AVAILABLE CM TO SATISFY
00531  M01S00353.1sj     +++|*         ANY OF THE REQUESTS.
00532  M01S00354.1sj     +++|
00533  M01S00355.1sj     +++|          LDN    PSNI
00534  M01S00356.1sj     +++|          STM    CFLA
Line S00357 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00357.ns22000 ---|          UJN    SCJ7        GO CHECK FOR SUFFICIENT CM/ECS
Line S00003 Modification History
M01 (Added by) ns22000
M02 (Updated by) 1sj43
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00003.1sj43   ---|          RJM    CFL         COMMIT FIELD LENGTH
00537  M01S00001.1sj43   +++|          LDM    SCJD
Line S00002 Modification History
M01 (Added by) 1sj43
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00002.271l716 ---|          ZJN    SCJ3.1      IF ROLLOUT NOT INHIBITED
00539  M01S00080.271l716 +++|          ZJN    SCJ2        IF ROLLOUT NOT INHIBITED
00540  M01S00003.1sj43   +++|          LDK    PSNI        ALLOW ROLLOUT OF HIGHER PRIORITY JOBS
00541  M01S00004.1sj43   +++|          STM    CFLC
Line S00005 Modification History
M01 (Added by) 1sj43
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00005.271l716 ---| SCJ3.1   RJM    CFL         COMMIT FIELD LENGTH
Line S00004 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00004.271l716 ---|          ZJN    SCJ4.1      IF SUFFICIENT FL
Line S00005 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00005.271l716 ---|          MJN    SCJ4.1      IF ROLLOUT REQUEST REJECT
00545  M01S00081.271l716 +++| SCJ2     RJM    CFL         COMMIT FIELD LENGTH
00546  M01S00082.271l716 +++|          ZJN    SCJ3        IF SUFFICIENT FL
00547  M01S00083.271l716 +++|          MJN    SCJ3        IF ROLLOUT REQUEST REJECTED
00548  M01S00006.ns22000 +++|          STD    CM+1        SET CM/EM OPTION
00549  M01S00007.ns22000 +++|          LDC    0
00550  M01S00008.ns22000 +++| SCJD     EQU    *-1         (ROLLOUT INHIBITED FLAG)
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00009.271l716 ---|          NJN    SCJ4.1      IF ROLLOUT INHIBITED
00552  M01S00084.271l716 +++|          NJN    SCJ3        IF ROLLOUT INHIBITED
Line S00010 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00010.271l716 ---|          LDD    JC          SET CONTROL POINT NUMBER
00554  M01S00085.271l716 +++|          LDD    JC          SET CP/PCP NUMBER
00555  M01S00011.ns22000 +++|          STD    CM+2
00556  M01S00012.ns22000 +++|          MONITOR  SFLM      REJECT FL INCREASE
Line S00013 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00013.271l716 ---|          LJM    SCJ3        RECYCLE
00558  M01S00086.271l716 +++|          LJM    SCJ1        RECYCLE
00559  M01S00014.ns22000 +++|
Line S00015 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00015.271l716 ---| SCJ4.1   LJM    SCJ13       EXIT
00561  M01S00087.271l716 +++| SCJ3     LJM    SCJ11       EXIT
00562  M01S00358.1sj     +++|
00563  M01S00359.1sj     +++| SCJ4     LDM    SCJB
Line S00360 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00360.ns2181  ---|          SHN    21-1
Line S00361 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
M03 (Updated by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
00565  M03S00361.ns2181  ---|          MJN    SCJ6        IF JOB SCHEDULING IS DISABLED
Line S00016 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00016.ns2181  ---|          MJN    SCJ4.1      IF EJT SCHEDULING DISABLED
Line S00001 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00001.ns2181b ---|          LPN    12
00568  M01S00001.ns2181b +++|          LPN    2
Line S00002 Modification History
M01 (Added by) ns2181
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00002.271l716 ---|          NJN    SCJ4.1      IF EJT SCHEDULING DISABLED
00570  M01S00088.271l716 +++|          NJN    SCJ3        IF EJT SCHEDULING DISABLED
00571  M01S00362.1sj     +++|          RJM    DDA         BUILD *TDAC* TABLE
00572  M01S00363.1sj     +++|
00573  M01S00364.1sj     +++|*         SCAN EJT LOOKING FOR THE BEST SCHEDULABLE JOB.  IF THE
00574  M01S00365.1sj     +++|*         SELECTED JOB IS A SUBSYSTEM, OVERLAY *3SA* WILL BE CALLED.
00575  M01S00366.1sj     +++|
00576  M01S00367.1sj     +++|          RJM    SFJ         SEARCH FOR SCHEDULING CANDIDATE
00577  M01S00368.1sj     +++|          LDD    EP
Line S00369 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00369.ns22000 ---|          ZJN    SCJ9        IF NO SCHEDULABLE JOB WAS FOUND
Line S00017 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00017.ns2181  ---|          ZJN    SCJ12.1     IF NO SCHEDULABLE JOB FOUND
Line S00003 Modification History
M01 (Added by) ns2181
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00003.271l716 ---|          ZJP    SCJ12.1     IF NO SCHEDULABLE JOBS FOUND
00581  M01S00089.271l716 +++|          ZJN    SCJ7        IF NO SCHEDULABLE JOBS FOUND
00582  M01S00370.1sj     +++|          STD    EO          SET *EO* FOR FUTURE *EJA* CALLS
00583  M01S00371.1sj     +++|          LDD    SP
00584  M01S00002.ns2181b +++|          LMN    DSSC
00585  M01S00003.ns2181b +++|          ZJN    SCJ5        IF DEADSTART SEQUENCING JOB WAS SELECTED
00586  M01S00004.ns2181b +++|          LDM    SCJB
00587  M01S00005.ns2181b +++|          LPN    10
00588  M01S00006.ns2181b +++|          NJN    SCJ8        IF DEADSTART SEQUENCING JOB NOT COMPLETE
00589  M01S00007.ns2181b +++|          LDD    SP
00590  M01S00372.1sj     +++|          LMN    SSSC
Line S00373 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00373.ns2181b ---|          ZJN    SCJ5        IF SELECTED JOB IS A SUBSYSTEM
Line S00374 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00374.ns2181b ---|          LMN    DSSC&SSSC
Line S00375 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00375.ns2181b ---|          NJN    SCJ7        IF NOT DEADSTART SEQUENCING JOB
Line S00008 Modification History
M01 (Added by) ns2181b
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00008.271l716 ---|          NJN    SCJ7        IF SELECTED JOB IS NOT A SUBSYSTEM
00595  M01S00090.271l716 +++|          NJN    SCJ6        IF SELECTED JOB IS NOT A SUBSYSTEM
00596  M01S00376.1sj     +++| SCJ5     EXECUTE  3SA
Line S00012 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00012.271l716 ---|          MJN    SCJ11       IF ASSIGNED CONTROL POINT IS OCCUPIED
Line S00377 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00377.ns22000 ---| SCJ6     NJN    SCJ11       IF SUBSYSTEM NOT SCHEDULED
Line S00018 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00018.ns2181  ---|          NJN    SCJ12.1     IF SUBSYSEM NOT SCHEDULED
Line S00378 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2181
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00378.ns2181  ---|          LJM    PPR         RESTART *1SJ*
Line S00004 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00004.ns2181b ---|          ZJN    SCJ6        IF SUBSYSTEM SCHEDULED
Line S00005 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00005.ns2181b ---|          LDD    SP
Line S00006 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00006.ns2181b ---|          LMN    DSSC
Line S00007 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00007.ns2181b ---|          NJN    SCJ12.1     IF NOT DEADSTART SEQUENCING JOB
Line S00008 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00008.ns2181b ---|          LJM    SCJ3        RECYCLE
Line S00009 Modification History
M01 (Added by) ns2181b
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00009.271l716 ---|          NJN    SCJ12.1     IF SUBSYSTEM NOT SCHEDULED
Line S00010 Modification History
M01 (Added by) ns2181b
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00010.271l716 ---|          LJM    PPR         RESTART *1SJ*
00608  M01S00091.271l716 +++|          NJN    SCJ10       IF SUBSYSTEM NOT SCHEDULED
00609  M01S00092.271l716 +++|          UJN    SCJ12       RESTART *1SJ*
00610  M01S00009.ns2181  +++|
Line S00010 Modification History
M01 (Added by) ns2181
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00010.ns2181b ---| SCJ6     LJM    PPR         RESTART *1SJ*
Line S00379 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00379.ns2181b ---|
Line S00380 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00380.ns22000 ---|*         DETERMINE IF ENOUGH MEMORY IS AVAILABLE TO ACCOMMODATE THE
Line S00381 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00381.ns22000 ---|*         SELECTED JOB.  IF INSUFFICIENT MEMORY, EVEN CONSIDERING FL OF
Line S00382 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00382.ns22000 ---|*         JOBS ROLLING OUT, TRY TO OBTAIN IT BY ROLLING OTHER JOBS.
Line S00383 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00383.ns22000 ---|
Line S00384 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00384.ns22000 ---| SCJ7     LDD    AM
Line S00385 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00385.ns22000 ---|          SHN    14
Line S00386 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00386.ns22000 ---|          LMD    AM+1
Line S00387 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00387.ns22000 ---|          SBD    JM
Line S00388 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00388.ns22000 ---|          MJN    SCJ8        IF INSUFFICIENT CM
Line S00389 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00389.ns22000 ---|          LDD    AE
Line S00390 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00390.ns22000 ---|          SBD    JE
Line S00391 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00391.ns22000 ---|          PJN    SCJ10       IF SUFFICIENT ECS
Line S00392 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00392.ns22000 ---| SCJ8     RJM    CFL         TRY TO OBTAIN MEMORY BY ROLLING JOBS
Line S00393 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00393.ns22000 ---|          ZJN    SCJ10       IF ENOUGH CM AND ECS AFTER ROLLOUTS
Line S00394 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00394.ns22000 ---|          MJN    SCJ13       IF ROLLOUT REQUEST WAS REJECTED
Line S00395 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00395.ns22000 ---|          STD    CM+1        SAVE CM/ECS FLAG FOR *SFLM* FUNCTION
Line S00396 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00396.ns22000 ---|          LDD    JC
Line S00397 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00397.ns22000 ---| SCJ9     ZJN    SCJ13       IF SELECTED JOB IS ROLLED OUT
Line S00398 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00398.ns22000 ---|          STD    CM+2
Line S00001 Modification History
M01 (Added by) ns2072
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00001.ns22000 ---|          LDC    **
Line S00002 Modification History
M01 (Added by) ns2072
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00002.ns22000 ---| SCJD     EQU    *-1         (NON-ROLLABLE JOB FLAG)
Line S00003 Modification History
M01 (Added by) ns2072
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00003.ns22000 ---|          NJN    SCJ13       IF NON-ROLLABLE JOB, NO FL REJECT
Line S00399 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00399.ns22000 ---|          MONITOR  SFLM      REJECT FL INCREASE REQUEST
Line S00400 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00400.ns22000 ---|          UJN    SCJ12       GO SELECT NEW CANDIDATE
Line S00401 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00401.ns22000 ---|
Line S00402 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00402.ns22000 ---|*         ENOUGH MEMORY IS AVAILABLE, OR WILL BE AVAILABLE AFTER
Line S00403 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00403.ns22000 ---|*         ROLLOUTS IN PROGRESS COMPLETE.  FIND A CONTROL POINT FOR THE
Line S00404 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00404.ns22000 ---|*         SELECTED JOB.  IF NONE ARE AVAILABLE ISSUE *ROCM* FOR LOWEST
Line S00405 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00405.ns22000 ---|*         PRIORITY JOB HAVING A PRIORITY LESS THAN THAT OF THE SELECTED
Line S00406 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00406.ns22000 ---|*         JOB.
Line S00407 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00407.ns22000 ---|
Line S00408 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00408.ns22000 ---| SCJ10    LDD    JC
Line S00409 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00409.ns22000 ---| SCJ11    NJN    SCJ13       IF SELECTED JOB IS AT CONTROL POINT
Line S00001 Modification History
M01 (Added by) 1sj16
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00001.ns22000 ---|          STD    T1
Line S00410 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00410.ns22000 ---|          RJM    SCP         SELECT CONTROL POINT FOR JOB
Line S00411 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00411.ns22000 ---|          LDD    JC
Line S00412 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00412.ns22000 ---|          ZJN    SCJ13       IF NO AVAILABLE CONTROL POINT
Line S00413 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00413.ns22000 ---|
Line S00414 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00414.ns22000 ---|*         AN AVAILABLE CONTROL POINT WAS FOUND.  ASSIGN THE JOB TO THE
Line S00415 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00415.ns22000 ---|*         CONTROL POINT BY REQUESTING STORAGE AND INITIALIZING THE
Line S00416 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00416.ns22000 ---|*         CONTROL POINT AREA.  *1AJ* OR *1RI* WILL BE CALLED DEPENDING
Line S00417 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00417.ns22000 ---|*         ON THE JOB STATUS.
Line S00418 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00418.ns22000 ---|
Line S00019 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00019.271l716 ---| SCJ7     RJM    CFL         COMMIT FIELD LENGTH
00657  M01S00093.271l716 +++| SCJ6     RJM    SCP         SELECT CONTROL POINT
00658  M01S00094.271l716 +++| SCJ7     ZJN    SCJ10       IF NO CP AVAILABLE
00659  M01S00095.271l716 +++|          MJN    SCJ9        IF PCP REJECT
00660  M01S00096.271l716 +++|          RJM    CFL         COMMIT FIELD LENGTH
Line S00020 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2181b
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00020.ns2181b ---|          NJN    SCJ12.1     IF INSUFFICIENT FL
Line S00011 Modification History
M01 (Added by) ns2181b
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00011.271l716 ---| SCJ8     NJN    SCJ12.1     IF INSUFFICIENT FL
00663  M01S00097.271l716 +++| SCJ8     NJN    SCJ10       IF INSUFFICIENT FL
Line S00021 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00021.271l716 ---|          STD    T1          SET CP SEARCH INDEX
Line S00022 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00022.271l716 ---|          RJM    SCP         SELECT CONTROL POINT
Line S00023 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00023.271l716 ---|          LDD    JC
Line S00024 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00024.271l716 ---|          ZJN    SCJ12.1     IF NO CONTROL POINT AVAILABLE
00668  M01S00419.1sj     +++|          RJM    ASJ         ASSIGN JOB TO CONTROL POINT
00669  M01S00025.ns22000 +++|          RJM    USD         UPDATE STATISTICAL DATA
00670  M01S00420.1sj     +++|          LDC    0
00671  M01S00421.1sj     +++| SCJC     EQU    *-1         (RECYCLE FLAG)
Line S00422 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00422.271l716 ---|          ZJN    SCJ13       IF RECYCLE NOT REQUESTED
Line S00423 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj28
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00673  M03S00423.271l716 ---| SCJ12    LJM    SCJ3        RECYCLE
Line S00002 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 1sj30a
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00674  M03S00002.271l716 ---| SCL12    AOM    SCJE        INCREMENT THE RECYCLE COUNT
Line S00013 Modification History
M01 (Added by) 1sj30a
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00013.271l716 ---| SCJ11    AOM    SCJE        INCREMENT THE RECYCLE COUNT
Line S00003 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00003.271l716 ---|          LDC    **          RECYCLE COUNT
Line S00004 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00004.271l716 ---| SCJE     EQU    *-1
Line S00005 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00005.271l716 ---|          LMK    MRCC
Line S00006 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00006.271l716 ---|          ZJN    SCJ13       IF TIME TO DROP OUT
Line S00007 Modification History
M01 (Added by) 1sj28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00007.271l716 ---|          LJM    SCJ3        RECYCLE ON THE EJT SCAN
Line S00424 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00424.271l716 ---|
Line S00026 Modification History
M01 (Added by) ns22000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00026.271l716 ---| SCJ12.1  LDN    1           SET JOB NOT SCHEDULED
00683  M01S00098.271l716 +++|          ZJN    SCJ11       IF RECYCLE NOT REQUESTED
00684  M01S00099.271l716 +++| SCJ9     LJM    SCJ1        RECYCLE ON THE EJT SCAN
00685  M01S00100.271l716 +++|
00686  M01S00101.271l716 +++| SCJ10    LDN    1           SET JOB NOT SCHEDULED
00687  M01S00027.ns22000 +++|          RJM    USD         UPDATE STATISTICAL DATA
Line S00425 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00425.271l716 ---| SCJ13    MONITOR  DPPM      DROP PP
00689  M01S00102.271l716 +++| SCJ11    MONITOR  DPPM      DROP PP
00690  M01S00426.1sj     +++|          LDN    JSCL        CLEAR SCHEDULER ACTIVE FLAG
00691  M01S00427.1sj     +++|          CRD    CM
00692  M01S00428.1sj     +++|          LDC    -4000
00693  M01S00429.1sj     +++|          RAD    CM
00694  M01S00430.1sj     +++|          LDN    JSCL
00695  M01S00431.1sj     +++|          CWD    CM
Line S00432 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00432.271l716 ---|          LJM    PPR         EXIT TO IDLE LOOP
00697  M01S00103.271l716 +++| SCJ12    LJM    PPR         EXIT TO IDLE LOOP
00698  M01S00433.1sj     +++|          TITLE  SUBROUTINES.
00699  M01S00434.1sj     +++| ASJ      SPACE  4,10
00700  M01S00435.1sj     +++|**        ASJ - ASSIGN JOB TO CONTROL POINT.
00701  M01S00436.1sj     +++|*
00702  M01S00437.1sj     +++|*         REQUEST CM/ECS FL; PERFORM MINIMAL CPA INITIALIZATION; STORE
00703  M01S00438.1sj     +++|*         PRIORITY IN EJT; CALL *1AJ* IF JOB STATUS IS *PRJS*,
00704  M01S00439.1sj     +++|*         OTHERWISE CALL *1RI*.
00705  M01S00440.1sj     +++|*
00706  M01S00441.1sj     +++|*         ENTRY  (JM) = CM FL TO BE ASSIGNED TO JOB.
00707  M01S00442.1sj     +++|*                (JE) = ECS FL TO BE ASSIGNED TO JOB.
00708  M01S00443.1sj     +++|*                (EO) = EJT ORDINAL OF SELECTED JOB.
00709  M01S00444.1sj     +++|*                (JC) = CONTROL POINT NUMBER FOR JOB ASSIGNMENT.
00710  M01S00445.1sj     +++|*                (SP) = SERVICE CLASS OF SELECTED JOB.
00711  M01S00446.1sj     +++|*                (TM - TM+1) = SECONDS PORTION OF REAL TIME CLOCK.
00712  M01S00447.1sj     +++|*                (NC) = SYSTEM CONTROL POINT NUMBER.
00713  M01S00448.1sj     +++|*
00714  M01S00449.1sj     +++|*         EXIT   (A) = 0 IF JOB WAS SCHEDULED TO THE CONTROL POINT.
00715  M01S00450.1sj     +++|*                   .NE. 0 IF SCHEDULING ATTEMPT FAILED.
00716  M01S00451.1sj     +++|*
Line S00452 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00452.271l716 ---|*         USES   T1 - T5, CM - CM+4, EJ - EJ+4, AA - AA+4, BB - BB+4,
Line S00453 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00453.271l716 ---|*                CP.
Line S00104 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00104.273l780 ---|*         USES   CP, JE, JM, AA - AA+4, BB - BB+4, CM - CM+4,
Line S00105 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00720  M03S00105.273l780 ---|*                EJ - EJ+4, T1 - T5.
Line S00001 Modification History
M01 (Added by) 271l750
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00001.273l780 ---|*                EJ - EJ+4, T1 - T5, T6, T7.
00722  M01S00001.273l780 +++|*         USES   JE, JM, AA - AA+4, BB - BB+4, CM - CM+4, EJ - EJ+4,
00723  M01S00002.273l780 +++|*                T1 - T5, T6, T7.
00724  M01S00454.1sj     +++|*
Line S00455 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00455.271l716 ---|*         CALLS  AST, EJA, IRL, IUT, RJC.
00726  M01S00106.271l716 +++|*         CALLS  AST, CPR, EJA, RJC, RST.
00727  M01S00456.1sj     +++|*
00728  M01S00457.1sj     +++|*         MACROS MONITOR.
00729  M01S00458.1sj     +++|
00730  M01S00459.1sj     +++|
00731  M01S00460.1sj     +++| ASJ      SUBR               ENTRY/EXIT
00732  M01S00461.1sj     +++|          LDD    JC
Line S00462 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00462.1sj11   ---|          STM    ASJC+3      SAVE CP FOR *UTEM* FUNCTION
Line S00001 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00001.271l716 ---|          STM    ASJC+1*5+3  SAVE CP FOR *UTEM* FUNCTION
Line S00463 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00463.273l780 ---|          SHN    7
Line S00464 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00464.273l780 ---|          STD    CP
Line S00465 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00465.273l780 ---|          SHN    -7          SET CP NUMBER FOR *CCAM*
Line S00466 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00466.273l780 ---|          LMC    6400        SELECT *CCAM* OPTIONS
00739  M01S00003.273l780 +++|          LMC    /CPS/RCPS+/CPS/ENRS  SET *CCAM* OPTIONS
00740  M01S00467.1sj     +++|          STD    CM+1
00741  M01S00468.1sj     +++|          LDD    EO          SET EJT ORDINAL FOR *CCAM*
00742  M01S00469.1sj     +++|          STD    CM+2
00743  M01S00470.1sj     +++|          MONITOR  CCAM
00744  M01S00471.1sj     +++|          LDD    CM+1
Line S00472 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00472.273l780 ---|          ZJN    ASJ2        IF *CCAM* SUCCEEDED
Line S00473 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00473.273l780 ---| ASJ1     LDD    NC
Line S00474 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00474.273l780 ---|          SHN    7
Line S00475 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00748  M02S00475.273l780 ---|          STD    CP
Line S00476 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00476.273l780 ---|          UJN    ASJX        RETURN
00750  M01S00004.273l780 +++|          NJN    ASJX        IF *CCAM* FAILED
00751  M01S00477.1sj     +++|
00752  M01S00478.1sj     +++|*         REQUEST CM.
00753  M01S00479.1sj     +++|
Line S00480 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00480.271l716 ---| ASJ2     STD    CM+2        TELL *MTR* ITS A CM REQUEST
Line S00481 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00481.271l716 ---|          LDD    JM          SAVE CM AMOUNT FOR *RSTM* AND *UTEM*
Line S00482 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00756  M03S00482.271l716 ---|          STM    ASJC+1*5+4
Line S00002 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00002.271l716 ---|          STM    ASJC+2*5+4
Line S00483 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00483.271l716 ---|          STD    CM+1
Line S00484 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00484.271l716 ---|          MONITOR  RSTM      REQUEST CM FL
Line S00485 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00485.271l716 ---|          LDD    CM+1
Line S00107 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00107.273l780 ---| ASJ2     RJM    EJA         CALCULATE EJT ENTRY ADDRESS
00762  M01S00005.273l780 +++|          RJM    EJA         CALCULATE EJT ENTRY ADDRESS
00763  M01S00108.271l716 +++|          ADK    JSNE
00764  M01S00109.271l716 +++|          CRD    EJ
00765  M01S00110.271l716 +++|          ADK    SCHE-JSNE
00766  M01S00111.271l716 +++|          CRD    AA
00767  M01S00112.271l716 +++|          ADK    SCLE-SCHE
00768  M01S00113.271l716 +++|          CRD    BB
00769  M01S00114.271l716 +++|          LDC    **
00770  M01S00115.271l716 +++| ASJA     EQU    *-1         (ORIGINAL JOB STATUS)
00771  M01S00116.271l716 +++|          LMD    EJ+4
00772  M01S00117.271l716 +++|          LPC    7676
00773  M01S00118.271l716 +++|          NJN    ASJ3        IF JOB/CONNECTION/SCP STATUS CHANGED
00774  M01S00119.271l716 +++|          LDD    JM
00775  M01S00120.271l716 +++|          NJN    ASJ2.1      IF CM FL ALREADY SET (NOT PCP JOB)
00776  M01S00121.271l716 +++|          LDD    BB+3        SET EM AMOUNT
00777  M01S00122.271l716 +++|          STD    JE
00778  M01S00123.271l716 +++|          LDD    BB+4        SET CM AMOUNT
00779  M01S00124.271l716 +++|          STD    JM
00780  M01S00125.271l716 +++| ASJ2.1   RJM    RST         REQUEST CM STORAGE
00781  M01S00486.1sj     +++|          ZJN    ASJ5        IF FUNCTION ACCEPTED
00782  M01S00487.1sj     +++| ASJ3     LDN    /CPS/CCPS   RELEASE CP, CLEAR JOB ADVANCE
00783  M01S00488.1sj     +++|          STD    CM+1
00784  M01S00489.1sj     +++|          MONITOR  JACM
Line S00490 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00490.273l780 ---| ASJ4     LDD    NC          CHANGE ASSIGNMENT TO SYSTEM CP
00786  M01S00006.273l780 +++|          LDD    NC          CHANGE ASSIGNMENT TO SYSTEM CP
00787  M01S00491.1sj     +++|          STD    CM+1
00788  M01S00492.1sj     +++|          MONITOR  CCAM
Line S00493 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00493.273l780 ---|          LDD    CM+1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1sj.txt ยท Last modified: by 127.0.0.1