Common COMPCSC

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcsc +++|          CTEXT  COMPCSC - CHANGE JOB SERVICE CLASS.
00002  M00S00002.compcsc +++|          SPACE  4,10
00003  M00S00003.compcsc +++| QUAL$    IF     -DEF,QUAL$
00004  M00S00004.compcsc +++|          QUAL   COMPCSC
00005  M00S00005.compcsc +++| QUAL$    ENDIF

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT  COMPCSC - CHANGE JOB SERVICE CLASS.
00007  M01S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.compcsc +++|          SPACE  4,10
00010  M00S00009.compcsc +++|***       COMPCSC - CHANGE JOB SERVICE CLASS.
00011  M00S00010.compcsc +++|*
00012  M00S00011.compcsc +++|*         J. L. LARSON.      81/04/30.
00013  M00S00012.compcsc +++|          SPACE  4,10
00014  M00S00013.compcsc +++|**        *COMPCSC* CHANGES THE SERVICE CLASS OF A JOB IN THE EJT.
00015  M00S00014.compcsc +++|*
00016  M00S00015.compcsc +++|*         IF *CSC$* IS DEFINED, IT IS ASSUMED THAT THE SERVICE CLASS
00017  M00S00016.compcsc +++|*         HAS ALREADY BEEN VALIDATED AND THAT THE JOB BEING CHANGED
00018  M00S00017.compcsc +++|*         IS NOT A SUBSYSTEM.
00019  M00S00018.compcsc +++|*
00020  M00S00019.compcsc +++|*         XREF   COMPAST, COMPGFP, COMPRJC, COMPCPS, COMSEJT, COMSSSJ.
00021  M00S00020.compcsc +++| CSC      SPACE  4,15
00022  M00S00021.compcsc +++|**        CSC - CHANGE JOB SERVICE CLASS.
00023  M00S00022.compcsc +++|*
00024  M00S00023.compcsc +++|*         ENTRY  (A) = NEW SERVICE CLASS.
00025  M00S00024.compcsc +++|*
00026  M00S00025.compcsc +++|*         EXIT   (A) .GE. 0, IF ILLEGAL SERVICE CLASS.
00027  M00S00026.compcsc +++|*

Line S00027 Modification History
`M01` (Removed by)	`pcsc7`

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00027.pcsc7   ---|*         USES   CM - CM+4, CN - CN+4, T0 - T6.

Line S00001 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00001.ns2731  ---|*         USES   CM - CM+4, CN - CN+4, T0 - T7.

Line S00001 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00001.ns2731  +++|*         USES   CM - CM+4, CN - CN+4, T4, T5.
00031  M00S00028.compcsc +++|*
00032  M00S00029.compcsc +++|*         CALLS  DFM, RJC, UJS.
00033  M00S00030.compcsc +++|*

Line S00031 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00031.ns2731  ---|*         MACROS MONITOR, NFA, SFA.

Line S00002 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00002.ns2731  +++|*         MACROS CFI, MONITOR, SFA.
00036  M00S00032.compcsc +++|
00037  M00S00033.compcsc +++|
00038  M00S00034.compcsc +++| CSC      SUBR               ENTRY/EXIT
00039  M00S00035.compcsc +++|          STD    T5          SAVE NEW SERVICE CLASS
00040  M00S00036.compcsc +++| CSC$     IF     -DEF,CSC$
00041  M00S00037.compcsc +++|          STM    CSCB+4
00042  M00S00038.compcsc +++|          SBN    MXJC
00043  M00S00039.compcsc +++|          PJN    CSCX        IF ILLEGAL SERVICE CLASS
00044  M00S00040.compcsc +++| CSC$     ENDIF
00045  M00S00041.compcsc +++|          LDD    CP          RETRIEVE CURRENT SERVICE CLASS
00046  M00S00042.compcsc +++|          ADN    TFSW
00047  M00S00043.compcsc +++|          CRD    CM
00048  M00S00044.compcsc +++|          LDD    CM
00049  M00S00045.compcsc +++| CSC$     IF     -DEF,CSC$
00050  M00S00046.compcsc +++|          STM    UJSC
00051  M00S00047.compcsc +++| CSC$     ENDIF
00052  M00S00048.compcsc +++|          SFA    EJT         GET ADDRESS OF EJT ENTRY
00053  M00S00049.compcsc +++|          ADK    JSNE
00054  M00S00050.compcsc +++|          CRM    CSCC,ON     READ CURRENT JSN
00055  M00S00051.compcsc +++|          ADN    SCLE-JSNE-1
00056  M00S00052.compcsc +++|          CRD    CM
00057  M00S00053.compcsc +++|          LDD    CM
00058  M00S00054.compcsc +++|          SHN    -6
00059  M00S00055.compcsc +++| CSC$     IF     -DEF,CSC$
00060  M00S00056.compcsc +++|          STM    UJSA
00061  M00S00057.compcsc +++|          LMC    7700        SET FIELD NON-ZERO
00062  M00S00058.compcsc +++| CSC$     ENDIF

Line S00059 Modification History
`M01` (Removed by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00059.271l750 ---|          STM    CSCC+4      SAVE CURRENT SERVICE CLASS

Line S00001 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00001.271l750 +++|          STM    CSCC+4      SAVE OLD SERVICE CLASS

Line S00002 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00002.ns2731  ---|          LPN    77

Line S00003 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`271l750`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00066  M03S00003.ns2731  ---|          RJM    RJC         GET CURRENT CPU UPPER BOUND
00067  M03S00004.ns2731  ---|          ADK    SVJT

Line S00002 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00002.ns2731  ---|          RJM    RJC         GET OLD SERVICE CLASS CPU PRIORITY
00069  M02S00003.ns2731  ---|          ADK    CSJT

Line S00005 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00005.ns2731  ---|          CRD    CM

Line S00006 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`271l750`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00071  M03S00006.ns2731  ---|          LDD    CM
00072  M03S00007.ns2731  ---|          LPN    77

Line S00004 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00004.ns2731  ---|          LDD    CM          SAVE OLD SERVICE CLASS CPU PRIORITY

Line S00008 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00008.ns2731  ---|          STD    T7
00075  M00S00060.compcsc +++|          LCN    0
00076  M00S00061.compcsc +++|          STM    CSCC+2
00077  M00S00062.compcsc +++|          STM    CSCC+3
00078  M00S00063.compcsc +++| CSC$     IF     -DEF,CSC$
00079  M00S00064.compcsc +++|          LDM    TUSC,T5     CHECK IF CHANGE ALLOWED
00080  M00S00065.compcsc +++|          NJP    CSCX        IF SERVICE CLASS CHANGE NOT ALLOWED
00081  M00S00066.compcsc +++| CSC$     ENDIF
00082  M00S00067.compcsc +++|          LDD    T5          GET NEW SERVICE CLASS
00083  M00S00068.compcsc +++|          RJM    RJC
00084  M00S00069.compcsc +++|          ZJP    CSCX        IF NO JCB FOR SERVICE CLASS

Line S00070 Modification History
`M01` (Removed by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00070.271l750 ---|          ADN    SVJT

Line S00005 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00005.ns2731  ---|          ADN    CSJT

Line S00071 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00071.ns2731  ---|          CRD    CM

Line S00072 Modification History
`M01` (Removed by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00072.ns2731  ---|          ADK    JCTT-SVJT   READ JOBS WAITING INDICATOR

Line S00006 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00006.ns2731  ---|          ADK    JCTT-CSJT   READ JOBS WAITING INDICATOR

Line S00003 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00003.ns2731  +++|          ADK    JCTT        READ JOBS WAITING INDICATOR
00091  M00S00073.compcsc +++|          CRD    CN

Line S00074 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00074.271l716 ---|          LDD    CM          SAVE CPU PRIORITY

Line S00001 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00001.271l750 ---|          LDD    CM          SAVE UPPER BOUND CPU PRIORITY
00094  M02S00002.271l750 ---|          LPN    77

Line S00007 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00007.ns2731  ---|          LDD    CM          SAVE NEW SERVICE CLASS CPU PRIORITY

Line S00075 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00075.ns2731  ---|          STD    T6
00097  M00S00076.compcsc +++|          LDN    0           CLEAR JOBS WAITING INDICATOR
00098  M00S00077.compcsc +++|          STD    CN+1
00099  M00S00078.compcsc +++|          LDD    T5
00100  M00S00079.compcsc +++|          RJM    RJC
00101  M00S00080.compcsc +++|          ADK    JCTT
00102  M00S00081.compcsc +++|          CWD    CN

Line S00082 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00082.271l716 ---|          LDD    CP          CHECK FOR SSJ= JOB
00104  M01S00083.271l716 ---|          ADC    SEPW

Line S00003 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00003.ns2731  ---|          LDD    CP          CHECK CURRENT CPU PRIORITY

Line S00004 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`271l750`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00106  M03S00004.ns2731  ---|          ADK    JCIW

Line S00008 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00008.ns2731  ---|          ADK    CWQW

Line S00005 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00005.ns2731  ---|          CRD    CN

Line S00006 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`271l750`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00109  M03S00006.ns2731  ---|          ADK    SEPW-JCIW   CHECK FOR *SSJ=* JOB

Line S00009 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00009.ns2731  ---|          ADK    SEPW-CWQW   CHECK FOR *SSJ=* JOB

Line S00084 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00084.ns2731  ---|          CRD    CM

Line S00007 Modification History
`M01` (Added by)	`271l716`
`M02` (Removed by)	`pcsc7`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00112  M03S00007.ns2731  ---|          LDD    CN
00113  M03S00008.ns2731  ---|          SHN    21-10
00114  M03S00009.ns2731  ---|          MJN    CSC4        IF CURRENT CPU PRIORITY AT LEAST *LFCS*

Line S00085 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00115  M01S00085.ns2731  ---|          LDD    CM
00116  M01S00086.ns2731  ---|          SHN    21-2
00117  M01S00087.ns2731  ---|          PJN    CSC3        IF NO *SSJ=* ENTRY POINT
00118  M01S00088.ns2731  ---|          LDD    CM+3        CHECK FOR SWAP BLOCK
00119  M01S00089.ns2731  ---|          LPN    37
00120  M01S00090.ns2731  ---|          ADD    CM+4
00121  M01S00091.ns2731  ---|          ZJN    CSC3        IF NO SWAP BLOCK
00122  M01S00092.ns2731  ---|          NFA    SSJN+SPPS   READ *SSJ=* BLOCK
00123  M01S00093.ns2731  ---|          CRD    T0

Line S00009 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00009.ns2731  ---|          LDD    T7
00125  M02S00010.ns2731  ---|          SBD    T0+3

Line S00011 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`271l750`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00126  M03S00011.ns2731  ---|          MJN    CSC4        IF CURRENT PRIORITY .GT. OLD UPPER BOUND

Line S00094 Modification History
`M01` (Removed by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00094.ns2731  ---|          LDD    T6          SET CPU PRIORITY IN SSJ= BLOCK
00128  M02S00095.ns2731  ---|          STD    T0+3

Line S00010 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00010.ns2731  ---|          MJN    CSC4        IF JOB ABOVE OLD SERVICE CLASS PRIORITY
00130  M02S00011.ns2731  ---|          LDD    T6          CPU PRIORITY FROM NEW SERVICE CLASS
00131  M02S00012.ns2731  ---|          STD    T0+3        SET CPU PRIORITY IN *SSJ=* BLOCK

Line S00096 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00132  M01S00096.ns2731  ---|          NFA    SSJN+SPPS
00133  M01S00097.ns2731  ---|          CWD    T0
00134  M01S00098.ns2731  ---|          UJN    CSC4        SET SERVICE CLASS IDENTIFIER
00135  M01S00099.ns2731  ---|

Line S00100 Modification History
`M01` (Removed by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00100.ns2731  ---| CSC3     LDD    T6          SET CPU PRIORITY

Line S00012 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00012.ns2731  ---| CSC3     LDD    CN

Line S00013 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00013.ns2731  ---|          SHN    -3

Line S00013 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00013.ns2731  ---|          LPC    177

Line S00014 Modification History
`M01` (Added by)	`pcsc7`
`M02` (Removed by)	`271l750`
`M03` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00140  M03S00014.ns2731  ---|          SBD    T7
00141  M03S00015.ns2731  ---|          MJN    CSC3.1      IF CURRENT PRIORITY .LT. OLD UPPER BOUND
00142  M03S00016.ns2731  ---|          NJN    CSC4        IF CURRENT PRIORITY .GT. OLD UPPER BOUND
00143  M03S00017.ns2731  ---| CSC3.1   LDD    T6          SET CPU PRIORITY

Line S00014 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00014.ns2731  ---|          SBD    T7          CPU PRIORITY FROM OLD SERVICE CLASS
00145  M02S00015.ns2731  ---|          MJN    CSC3.1      IF JOB IS BELOW SERVICE CLASS CPU PRIORITY
00146  M02S00016.ns2731  ---|          NJN    CSC4        IF JOB IS ABOVE SERVICE CLASS CPU PRIORITY
00147  M02S00017.ns2731  ---| CSC3.1   LDD    T6          SET CPU PRIORITY FROM NEW SERVICE CLASS

Line S00101 Modification History
`M01` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00148  M01S00101.ns2731  ---|          STD    CM+4
00149  M01S00102.ns2731  ---|          LDN    CPRS
00150  M01S00103.ns2731  ---|          STD    CM+1
00151  M01S00104.ns2731  ---|          MONITOR  SJCM
00152  M01S00105.ns2731  ---| CSC4     LDM    CSCA,T5     GET NEW SERVICE CLASS CHARACTER

Line S00004 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00153  M01S00004.ns2731  +++|          LDM    CSCA,T5     GET NEW SERVICE CLASS CHARACTER
00154  M00S00106.compcsc +++|          STM    CSCD+3
00155  M00S00107.compcsc +++| CSC$     IF     -DEF,CSC$
00156  M00S00108.compcsc +++|          LDM    UJSC
00157  M00S00109.compcsc +++|          SFA    EJT         GET FWA OF EJT ENTRY
00158  M00S00110.compcsc +++|          STD    CM+4
00159  M00S00111.compcsc +++|          SHN    -14
00160  M00S00112.compcsc +++|          STD    CM+3
00161  M00S00113.compcsc +++|          LDN    1           SET NUMBER OF REQUESTS FOR *UTEM*
00162  M00S00114.compcsc +++|          STD    CM+1
00163  M00S00115.compcsc +++|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
00164  M00S00116.compcsc +++|          CWM    CSCB,CM+1
00165  M00S00117.compcsc +++|          MONITOR  UTEM      CHANGE SERVICE CLASS IN EJT ENTRY

Line S00005 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00166  M01S00005.ns2731  +++| CSC$     ENDIF
00167  M01S00006.ns2731  +++|
00168  M01S00007.ns2731  +++|*         SET CPU SCHEDULING PARAMETERS FOR NEW SERVICE CLASS.
00169  M01S00008.ns2731  +++|

Line S00018 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00018.271l750 +++|          LDN    ZERL
00171  M01S00019.271l750 +++|          CRD    CM

Line S00020 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00020.ns2731  ---|          LDN    SSPS        SET SCHEDULING PARAMETERS INDEX IN *CWQW*

Line S00009 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00173  M01S00009.ns2731  +++|          LDN    SSPS        SET CPU SCHEDULING PARAMETERS

Line S00021 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00021.271l750 +++|          STD    CM+1

Line S00022 Modification History
`M01` (Added by)	`271l750`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00022.ns2731  ---|          LDD    T5

Line S00010 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00176  M01S00010.ns2731  +++|          LDD    T5          SET JCB OFFSET

Line S00023 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00177  M01S00023.271l750 +++|          CFI    JCB
00178  M01S00024.271l750 +++|          STD    CM+4
00179  M01S00025.271l750 +++|          MONITOR  SJCM
00180  M00S00118.compcsc +++|
00181  M00S00119.compcsc +++|*         DETERMINE IF FORMERLY A SUBSYSTEM.
00182  M00S00120.compcsc +++|

Line S00011 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00183  M01S00011.ns2731  +++| CSC$     IF     -DEF,CSC$
00184  M00S00121.compcsc +++|          RJM    UJS         UPDATE JSN AND SUBSYSTEM TABLES
00185  M00S00122.compcsc +++| CSC$     ENDIF
00186  M00S00123.compcsc +++|
00187  M00S00124.compcsc +++|*         GET ACCUMULATED SRU-S FOR *ACSC* MESSAGE.
00188  M00S00125.compcsc +++|
00189  M00S00126.compcsc +++|          LDN    ACTWL
00190  M00S00127.compcsc +++|          STD    T4
00191  M00S00128.compcsc +++|          LDD    CP          GET CONVERTED SRU-S FOR MESSAGE
00192  M00S00129.compcsc +++|          ADN    ACTW
00193  M00S00130.compcsc +++|          CRM    CSCE,T4
00194  M00S00131.compcsc +++|          LDD    MA
00195  M00S00132.compcsc +++|          CWM    CSCE,T4
00196  M00S00133.compcsc +++|          LDN    ABVF
00197  M00S00134.compcsc +++|          STD    CM+1
00198  M00S00135.compcsc +++|          MONITOR  ACTM
00199  M00S00136.compcsc +++|          LDD    MA          SET SRU-S INTO MESSAGE
00200  M00S00137.compcsc +++|          CRM    CSCD+10,ON

Line S00001 Modification History
`M01` (Added by)	`pcsc6`

Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00001.pcsc6   +++|          LDM    CSCD+10
00202  M01S00002.pcsc6   +++|          NJN    CSC5        IF SRU ACCUMULATOR NONZERO
00203  M01S00003.pcsc6   +++|          LDD    MA
00204  M01S00004.pcsc6   +++|          CWM    CSCG,ON     FORMAT CORRECT MESSAGE
00205  M01S00005.pcsc6   +++|          SBN    1
00206  M01S00006.pcsc6   +++|          CRM    CSCD+10,ON
00207  M00S00138.compcsc +++|
00208  M00S00139.compcsc +++|*         ISSUE ACCOUNTING MESSAGES.
00209  M00S00140.compcsc +++|

Line S00141 Modification History
`M01` (Removed by)	`pcsc6`

Seq #  *Modification Id* Act 
----------------------------+
00210  M01S00141.pcsc6   ---|          LDC    CPON+CSCD   ISSUE MESSAGE TO USER DAYFILE

Line S00007 Modification History
`M01` (Added by)	`pcsc6`
`M02` (Removed by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00007.ns2731  ---| CSC5     LDC    CPON+CSCD   ISSUE MESSAGE TO USER DAYFILE

Line S00012 Modification History
`M01` (Added by)	`ns2731`

Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00012.ns2731  +++| CSC5     LDC    CDON+CSCD   ISSUE MESSAGE TO USER DAYFILE ONLY
00213  M00S00142.compcsc +++|          RJM    DFM
00214  M00S00143.compcsc +++|          LDC    AJNN+CSCC   ISSUE MESSAGE TO ACCOUNT FILE WITH OLD JSN
00215  M00S00144.compcsc +++|          RJM    DFM
00216  M00S00145.compcsc +++|
00217  M00S00146.compcsc +++|*         RESET PARAMETERS.
00218  M00S00147.compcsc +++|
00219  M00S00148.compcsc +++|          LDC    2R          CLEAR JSN
00220  M00S00149.compcsc +++|          STM    CSCD+5
00221  M00S00150.compcsc +++|          STM    CSCD+6
00222  M00S00151.compcsc +++|          LCN    1           SET *NO ERROR* STATUS
00223  M00S00152.compcsc +++|          LJM    CSCX        RETURN
00224  M00S00153.compcsc +++|
00225  M00S00154.compcsc +++|
00226  M00S00155.compcsc +++| CSCA     BSS    0           TABLE OF SERVICE CLASS CHARACTERS
00227  M00S00156.compcsc +++| .1       SET    1
00228  M00S00157.compcsc +++| .A       DUP    MXJC
00229  M00S00158.compcsc +++| .2       MICRO  .1,1,$"NMDS"$
00230  M00S00159.compcsc +++|          CON    2H ".2"
00231  M00S00160.compcsc +++| .1       SET    .1+1
00232  M00S00161.compcsc +++| .A       ENDD
00233  M00S00162.compcsc +++|
00234  M00S00163.compcsc +++| CSCB     VFD    1/0,5/SCLE,6/6,6/54D,36/,6/**
00235  M00S00164.compcsc +++| CSCC     BSS    5           CURRENT JSN AND SERVICE CLASS
00236  M00S00165.compcsc +++| CSCD     DATA   C*ACSC,  S,     , 000000.000UNTS.*
00237  M00S00166.compcsc +++|
00238  M00S00167.compcsc +++| CSCE     BSS    ACTWL*5     BUFFER FOR CPA ACCUMULATOR WORDS

Line S00008 Modification History
`M01` (Added by)	`pcsc6`

Seq #  *Modification Id* Act 
----------------------------+
00239  M01S00008.pcsc6   +++| CSCG     DATA   C*    0.000*  DISPLAY FORMAT ZERO
00240  M00S00168.compcsc +++| CSC$     IF     -DEF,CSC$
00241  M00S00169.compcsc +++| TUSC     SPACE  4,10
00242  M00S00170.compcsc +++|**        TUSC - TABLE OF UNALLOWABLE SERVICE CLASS CHANGES.
00243  M00S00171.compcsc +++|*
00244  M00S00172.compcsc +++|*         TABLE IS INDEXED BY SERVICE CLASS.
00245  M00S00173.compcsc +++|*
00246  M00S00174.compcsc +++|*T        12/ ST

Figure

00247  M00S00175.compcsc +++|*         ST = STATUS OF CHANGE.
00248  M00S00176.compcsc +++|*                0 = CHANGE ALLOWED.
00249  M00S00177.compcsc +++|*                1 = CHANGE NOT ALLOWED.
00250  M00S00178.compcsc +++|
00251  M00S00179.compcsc +++| TUSC     INDEX
00252  M00S00180.compcsc +++|          INDEX  SSSC,1      SUBSYSTEM
00253  M00S00181.compcsc +++|          INDEX  DSSC,1      DEADSTART SEQUENCING
00254  M00S00182.compcsc +++|          INDEX  MXSC        MAXIMUM NUMBER OF SERVICE CLASSES
00255  M00S00183.compcsc +++| UJS      SPACE  4,10
00256  M00S00184.compcsc +++|**        UJS - UPDATE JSN AND SUBSYSTEM TABLES.
00257  M00S00185.compcsc +++|*
00258  M00S00186.compcsc +++|*         USES   T1 - T5, CM - CM+4.
00259  M00S00187.compcsc +++|*
00260  M00S00188.compcsc +++|*         CALLS  AST.
00261  M00S00189.compcsc +++|*
00262  M00S00190.compcsc +++|*         MACROS MONITOR, SFA.
00263  M00S00191.compcsc +++|
00264  M00S00192.compcsc +++|
00265  M00S00193.compcsc +++| UJS      SUBR               ENTRY/EXIT
00266  M00S00194.compcsc +++|
00267  M00S00195.compcsc +++|*         DETERMINE IF FORMERLY A SUBSYSTEM.
00268  M00S00196.compcsc +++|
00269  M00S00197.compcsc +++|          LDC    **          CHECK IF FORMERLY A SUBSYSTEM
00270  M00S00198.compcsc +++| UJSA     EQU    *-1         (FORMER SERVICE CLASS)
00271  M00S00199.compcsc +++|          LMN    SSSC
00272  M00S00200.compcsc +++|          NJN    UJSX        IF NOT FORMERLY A SUBSYSTEM
00273  M00S00201.compcsc +++|
00274  M00S00202.compcsc +++|*         ALTER SSAT/SSCT TABLES.
00275  M00S00203.compcsc +++|
00276  M00S00204.compcsc +++|          LDD    CP          GET SUBSYSTEM ID
00277  M00S00205.compcsc +++|          ADN    JCIW
00278  M00S00206.compcsc +++|          CRD    CM
00279  M00S00207.compcsc +++|          LDD    CM+2        SAVE SUBSYSTEM ID
00280  M00S00208.compcsc +++|          STD    T5
00281  M00S00209.compcsc +++|          LDN    ZERL        CLEAR SSID FIELD
00282  M00S00210.compcsc +++|          CRD    CM
00283  M00S00211.compcsc +++|          LDK    SSIS        SET SUBFUNCTION CODE
00284  M00S00212.compcsc +++|          STD    CM+1
00285  M00S00213.compcsc +++|          MONITOR  SJCM      SELECT JOB CONTROL PARAMETERS
00286  M00S00214.compcsc +++|          LDN    CSCF        CLEAR SUBSYSTEM ACCESS FLAG
00287  M00S00215.compcsc +++|          SHN    14
00288  M00S00216.compcsc +++|          LMD    T5
00289  M00S00217.compcsc +++|          RJM    AST         ACCESS SUBSYSTEM TABLES
00290  M00S00218.compcsc +++|          LDN    CEAF        RELEASE EJT ASSIGNMENT
00291  M00S00219.compcsc +++|          SHN    14
00292  M00S00220.compcsc +++|          LMD    T5
00293  M00S00221.compcsc +++|          RJM    AST         ACCESS SUBSYSTEM TABLES
00294  M00S00222.compcsc +++|
00295  M00S00223.compcsc +++|*         CHANGE FORMER SUBSYSTEM-S JSN.
00296  M00S00224.compcsc +++|
00297  M00S00225.compcsc +++|          LDN    ZERL        CLEAR PARAMETERS
00298  M00S00226.compcsc +++|          CRD    CM
00299  M00S00227.compcsc +++|          CRD    T1
00300  M00S00228.compcsc +++|          LDN    1           DO NOT REQUEST A QFT ENTRY
00301  M00S00229.compcsc +++|          STD    CM+1
00302  M00S00230.compcsc +++|          MONITOR  RJSM      REQUEST JOB SEQUENCE NUMBER
00303  M00S00231.compcsc +++|*         LDN    0           CLEAR *UTEM* PARAMETER BYTE
00304  M00S00232.compcsc +++|          STD    CM+2
00305  M00S00233.compcsc +++|          STD    T3
00306  M00S00234.compcsc +++|          LDD    CM+3        PUT JSN IN DAYFILE MESSAGE
00307  M00S00235.compcsc +++|          STM    CSCD+5
00308  M00S00236.compcsc +++|          STD    T4
00309  M00S00237.compcsc +++|          LDD    CM+4
00310  M00S00238.compcsc +++|          STM    CSCD+6
00311  M00S00239.compcsc +++|          STD    T5
00312  M00S00240.compcsc +++|          LDK    JSNE*100+24D  SET WORD OFFSET AND FIELD SIZE
00313  M00S00241.compcsc +++|          STD    T1
00314  M00S00242.compcsc +++|          LDC    36D*100     SET BEGINNING BIT POSITION
00315  M00S00243.compcsc +++|          STD    T2
00316  M00S00244.compcsc +++|          LDC    **          EJT ORDINAL
00317  M00S00245.compcsc +++| UJSC     EQU    *-1
00318  M00S00246.compcsc +++|          SFA    EJT         GET EJT ADDRESS
00319  M00S00247.compcsc +++|          STD    CM+4
00320  M00S00248.compcsc +++|          SHN    -14
00321  M00S00249.compcsc +++|          STD    CM+3
00322  M00S00250.compcsc +++|          LDN    1           SET NUMBER OF REQUESTS
00323  M00S00251.compcsc +++|          STD    CM+1
00324  M00S00252.compcsc +++|          LDD    MA
00325  M00S00253.compcsc +++|          CWD    T1
00326  M00S00254.compcsc +++|          MONITOR  UTEM      UPDATE EJT ENTRY WITH JSN
00327  M00S00255.compcsc +++|          LJM    UJSX        RETURN
00328  M00S00256.compcsc +++| CSC$     ENDIF
00329  M00S00257.compcsc +++|          SPACE  4,10
00330  M00S00258.compcsc +++| QUAL$    IF     -DEF,QUAL$
00331  M00S00259.compcsc +++|          QUAL   *
00332  M00S00260.compcsc +++| CSC      EQU    /COMPCSC/CSC
00333  M00S00261.compcsc +++| QUAL$    ENDIF
00334  M00S00262.compcsc +++|          ENDX