User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:compcsc

Common COMPCSC

6 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compcsc +++|          CTEXT  COMPCSC - CHANGE JOB SERVICE CLASS.
00002  M01S00002.compcsc +++|          SPACE  4,10
00003  M01S00003.compcsc +++| QUAL$    IF     -DEF,QUAL$
00004  M01S00004.compcsc +++|          QUAL   COMPCSC
00005  M01S00005.compcsc +++| QUAL$    ENDIF
Line S00006 Modification History
M01 (Added by) compcsc
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  COMPCSC - CHANGE JOB SERVICE CLASS.
Line S00007 Modification History
M01 (Added by) compcsc
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.compcsc +++|          SPACE  4,10
00010  M01S00009.compcsc +++|***       COMPCSC - CHANGE JOB SERVICE CLASS.
00011  M01S00010.compcsc +++|*
00012  M01S00011.compcsc +++|*         J. L. LARSON.      81/04/30.
00013  M01S00012.compcsc +++|          SPACE  4,10
00014  M01S00013.compcsc +++|**        *COMPCSC* CHANGES THE SERVICE CLASS OF A JOB IN THE EJT.
00015  M01S00014.compcsc +++|*
00016  M01S00015.compcsc +++|*         IF *CSC$* IS DEFINED, IT IS ASSUMED THAT THE SERVICE CLASS
00017  M01S00016.compcsc +++|*         HAS ALREADY BEEN VALIDATED AND THAT THE JOB BEING CHANGED
00018  M01S00017.compcsc +++|*         IS NOT A SUBSYSTEM.
00019  M01S00018.compcsc +++|*
00020  M01S00019.compcsc +++|*         XREF   COMPAST, COMPGFP, COMPRJC, COMPCPS, COMSEJT, COMSSSJ.
00021  M01S00020.compcsc +++| CSC      SPACE  4,15
00022  M01S00021.compcsc +++|**        CSC - CHANGE JOB SERVICE CLASS.
00023  M01S00022.compcsc +++|*
00024  M01S00023.compcsc +++|*         ENTRY  (A) = NEW SERVICE CLASS.
00025  M01S00024.compcsc +++|*
00026  M01S00025.compcsc +++|*         EXIT   (A) .GE. 0, IF ILLEGAL SERVICE CLASS.
00027  M01S00026.compcsc +++|*
Line S00027 Modification History
M01 (Added by) compcsc
M02 (Updated by) pcsc7
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00027.pcsc7   ---|*         USES   CM - CM+4, CN - CN+4, T0 - T6.
Line S00001 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00001.ns2731  ---|*         USES   CM - CM+4, CN - CN+4, T0 - T7.
00030  M01S00001.ns2731  +++|*         USES   CM - CM+4, CN - CN+4, T4, T5.
00031  M01S00028.compcsc +++|*
00032  M01S00029.compcsc +++|*         CALLS  DFM, RJC, UJS.
00033  M01S00030.compcsc +++|*
Line S00031 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00031.ns2731  ---|*         MACROS MONITOR, NFA, SFA.
00035  M01S00002.ns2731  +++|*         MACROS CFI, MONITOR, SFA.
00036  M01S00032.compcsc +++|
00037  M01S00033.compcsc +++|
00038  M01S00034.compcsc +++| CSC      SUBR               ENTRY/EXIT
00039  M01S00035.compcsc +++|          STD    T5          SAVE NEW SERVICE CLASS
00040  M01S00036.compcsc +++| CSC$     IF     -DEF,CSC$
00041  M01S00037.compcsc +++|          STM    CSCB+4
00042  M01S00038.compcsc +++|          SBN    MXJC
00043  M01S00039.compcsc +++|          PJN    CSCX        IF ILLEGAL SERVICE CLASS
00044  M01S00040.compcsc +++| CSC$     ENDIF
00045  M01S00041.compcsc +++|          LDD    CP          RETRIEVE CURRENT SERVICE CLASS
00046  M01S00042.compcsc +++|          ADN    TFSW
00047  M01S00043.compcsc +++|          CRD    CM
00048  M01S00044.compcsc +++|          LDD    CM
00049  M01S00045.compcsc +++| CSC$     IF     -DEF,CSC$
00050  M01S00046.compcsc +++|          STM    UJSC
00051  M01S00047.compcsc +++| CSC$     ENDIF
00052  M01S00048.compcsc +++|          SFA    EJT         GET ADDRESS OF EJT ENTRY
00053  M01S00049.compcsc +++|          ADK    JSNE
00054  M01S00050.compcsc +++|          CRM    CSCC,ON     READ CURRENT JSN
00055  M01S00051.compcsc +++|          ADN    SCLE-JSNE-1
00056  M01S00052.compcsc +++|          CRD    CM
00057  M01S00053.compcsc +++|          LDD    CM
00058  M01S00054.compcsc +++|          SHN    -6
00059  M01S00055.compcsc +++| CSC$     IF     -DEF,CSC$
00060  M01S00056.compcsc +++|          STM    UJSA
00061  M01S00057.compcsc +++|          LMC    7700        SET FIELD NON-ZERO
00062  M01S00058.compcsc +++| CSC$     ENDIF
Line S00059 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00059.271l750 ---|          STM    CSCC+4      SAVE CURRENT SERVICE CLASS
00064  M01S00001.271l750 +++|          STM    CSCC+4      SAVE OLD SERVICE CLASS
Line S00002 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00002.ns2731  ---|          LPN    77
Line S00003 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00066  M03S00003.ns2731  ---|          RJM    RJC         GET CURRENT CPU UPPER BOUND
Line S00004 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00067  M03S00004.ns2731  ---|          ADK    SVJT
Line S00002 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00002.ns2731  ---|          RJM    RJC         GET OLD SERVICE CLASS CPU PRIORITY
Line S00003 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00003.ns2731  ---|          ADK    CSJT
Line S00005 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00005.ns2731  ---|          CRD    CM
Line S00006 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00071  M03S00006.ns2731  ---|          LDD    CM
Line S00007 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00072  M03S00007.ns2731  ---|          LPN    77
Line S00004 Modification History
M01 (Added by) 271l750
M02 (Updated 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 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00008.ns2731  ---|          STD    T7
00075  M01S00060.compcsc +++|          LCN    0
00076  M01S00061.compcsc +++|          STM    CSCC+2
00077  M01S00062.compcsc +++|          STM    CSCC+3
00078  M01S00063.compcsc +++| CSC$     IF     -DEF,CSC$
00079  M01S00064.compcsc +++|          LDM    TUSC,T5     CHECK IF CHANGE ALLOWED
00080  M01S00065.compcsc +++|          NJP    CSCX        IF SERVICE CLASS CHANGE NOT ALLOWED
00081  M01S00066.compcsc +++| CSC$     ENDIF
00082  M01S00067.compcsc +++|          LDD    T5          GET NEW SERVICE CLASS
00083  M01S00068.compcsc +++|          RJM    RJC
00084  M01S00069.compcsc +++|          ZJP    CSCX        IF NO JCB FOR SERVICE CLASS
Line S00070 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00070.271l750 ---|          ADN    SVJT
Line S00005 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00005.ns2731  ---|          ADN    CSJT
Line S00071 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00071.ns2731  ---|          CRD    CM
Line S00072 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00088  M03S00072.ns2731  ---|          ADK    JCTT-SVJT   READ JOBS WAITING INDICATOR
Line S00006 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00006.ns2731  ---|          ADK    JCTT-CSJT   READ JOBS WAITING INDICATOR
00090  M01S00003.ns2731  +++|          ADK    JCTT        READ JOBS WAITING INDICATOR
00091  M01S00073.compcsc +++|          CRD    CN
Line S00074 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00074.271l716 ---|          LDD    CM          SAVE CPU PRIORITY
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00001.271l750 ---|          LDD    CM          SAVE UPPER BOUND CPU PRIORITY
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00002.271l750 ---|          LPN    77
Line S00007 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00007.ns2731  ---|          LDD    CM          SAVE NEW SERVICE CLASS CPU PRIORITY
Line S00075 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00075.ns2731  ---|          STD    T6
00097  M01S00076.compcsc +++|          LDN    0           CLEAR JOBS WAITING INDICATOR
00098  M01S00077.compcsc +++|          STD    CN+1
00099  M01S00078.compcsc +++|          LDD    T5
00100  M01S00079.compcsc +++|          RJM    RJC
00101  M01S00080.compcsc +++|          ADK    JCTT
00102  M01S00081.compcsc +++|          CWD    CN
Line S00082 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00082.271l716 ---|          LDD    CP          CHECK FOR SSJ= JOB
Line S00083 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00083.271l716 ---|          ADC    SEPW
Line S00003 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00003.ns2731  ---|          LDD    CP          CHECK CURRENT CPU PRIORITY
Line S00004 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00106  M03S00004.ns2731  ---|          ADK    JCIW
Line S00008 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00008.ns2731  ---|          ADK    CWQW
Line S00005 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00005.ns2731  ---|          CRD    CN
Line S00006 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
M03 (Updated 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 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00009.ns2731  ---|          ADK    SEPW-CWQW   CHECK FOR *SSJ=* JOB
Line S00084 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00084.ns2731  ---|          CRD    CM
Line S00007 Modification History
M01 (Added by) 271l716
M02 (Updated by) pcsc7
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00112  M03S00007.ns2731  ---|          LDD    CN
Line S00008 Modification History
M01 (Added by) 271l716
M02 (Updated by) pcsc7
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00113  M03S00008.ns2731  ---|          SHN    21-10
Line S00009 Modification History
M01 (Added by) 271l716
M02 (Updated by) pcsc7
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00114  M03S00009.ns2731  ---|          MJN    CSC4        IF CURRENT CPU PRIORITY AT LEAST *LFCS*
Line S00085 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00085.ns2731  ---|          LDD    CM
Line S00086 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00086.ns2731  ---|          SHN    21-2
Line S00087 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00087.ns2731  ---|          PJN    CSC3        IF NO *SSJ=* ENTRY POINT
Line S00088 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00088.ns2731  ---|          LDD    CM+3        CHECK FOR SWAP BLOCK
Line S00089 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00089.ns2731  ---|          LPN    37
Line S00090 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00090.ns2731  ---|          ADD    CM+4
Line S00091 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00091.ns2731  ---|          ZJN    CSC3        IF NO SWAP BLOCK
Line S00092 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00092.ns2731  ---|          NFA    SSJN+SPPS   READ *SSJ=* BLOCK
Line S00093 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00093.ns2731  ---|          CRD    T0
Line S00009 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00009.ns2731  ---|          LDD    T7
Line S00010 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00010.ns2731  ---|          SBD    T0+3
Line S00011 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00126  M03S00011.ns2731  ---|          MJN    CSC4        IF CURRENT PRIORITY .GT. OLD UPPER BOUND
Line S00094 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00127  M03S00094.ns2731  ---|          LDD    T6          SET CPU PRIORITY IN SSJ= BLOCK
Line S00095 Modification History
M01 (Added by) compcsc
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00128  M03S00095.ns2731  ---|          STD    T0+3
Line S00010 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00010.ns2731  ---|          MJN    CSC4        IF JOB ABOVE OLD SERVICE CLASS PRIORITY
Line S00011 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00011.ns2731  ---|          LDD    T6          CPU PRIORITY FROM NEW SERVICE CLASS
Line S00012 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00012.ns2731  ---|          STD    T0+3        SET CPU PRIORITY IN *SSJ=* BLOCK
Line S00096 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00096.ns2731  ---|          NFA    SSJN+SPPS
Line S00097 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00097.ns2731  ---|          CWD    T0
Line S00098 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00098.ns2731  ---|          UJN    CSC4        SET SERVICE CLASS IDENTIFIER
Line S00099 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00099.ns2731  ---|
Line S00100 Modification History
M01 (Added by) compcsc
M02 (Updated by) pcsc7
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00136  M03S00100.ns2731  ---| CSC3     LDD    T6          SET CPU PRIORITY
Line S00012 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00012.ns2731  ---| CSC3     LDD    CN
Line S00013 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00013.ns2731  ---|          SHN    -3
Line S00013 Modification History
M01 (Added by) pcsc7
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00013.ns2731  ---|          LPC    177
Line S00014 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00140  M03S00014.ns2731  ---|          SBD    T7
Line S00015 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00141  M03S00015.ns2731  ---|          MJN    CSC3.1      IF CURRENT PRIORITY .LT. OLD UPPER BOUND
Line S00016 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00142  M03S00016.ns2731  ---|          NJN    CSC4        IF CURRENT PRIORITY .GT. OLD UPPER BOUND
Line S00017 Modification History
M01 (Added by) pcsc7
M02 (Updated by) 271l750
M03 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00143  M03S00017.ns2731  ---| CSC3.1   LDD    T6          SET CPU PRIORITY
Line S00014 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00014.ns2731  ---|          SBD    T7          CPU PRIORITY FROM OLD SERVICE CLASS
Line S00015 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00015.ns2731  ---|          MJN    CSC3.1      IF JOB IS BELOW SERVICE CLASS CPU PRIORITY
Line S00016 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00016.ns2731  ---|          NJN    CSC4        IF JOB IS ABOVE SERVICE CLASS CPU PRIORITY
Line S00017 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00017.ns2731  ---| CSC3.1   LDD    T6          SET CPU PRIORITY FROM NEW SERVICE CLASS
Line S00101 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00101.ns2731  ---|          STD    CM+4
Line S00102 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00102.ns2731  ---|          LDN    CPRS
Line S00103 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00103.ns2731  ---|          STD    CM+1
Line S00104 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00151  M02S00104.ns2731  ---|          MONITOR  SJCM
Line S00105 Modification History
M01 (Added by) compcsc
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00105.ns2731  ---| CSC4     LDM    CSCA,T5     GET NEW SERVICE CLASS CHARACTER
00153  M01S00004.ns2731  +++|          LDM    CSCA,T5     GET NEW SERVICE CLASS CHARACTER
00154  M01S00106.compcsc +++|          STM    CSCD+3
00155  M01S00107.compcsc +++| CSC$     IF     -DEF,CSC$
00156  M01S00108.compcsc +++|          LDM    UJSC
00157  M01S00109.compcsc +++|          SFA    EJT         GET FWA OF EJT ENTRY
00158  M01S00110.compcsc +++|          STD    CM+4
00159  M01S00111.compcsc +++|          SHN    -14
00160  M01S00112.compcsc +++|          STD    CM+3
00161  M01S00113.compcsc +++|          LDN    1           SET NUMBER OF REQUESTS FOR *UTEM*
00162  M01S00114.compcsc +++|          STD    CM+1
00163  M01S00115.compcsc +++|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
00164  M01S00116.compcsc +++|          CWM    CSCB,CM+1
00165  M01S00117.compcsc +++|          MONITOR  UTEM      CHANGE SERVICE CLASS IN EJT ENTRY
00166  M01S00005.ns2731  +++| CSC$     ENDIF
00167  M01S00006.ns2731  +++|
00168  M01S00007.ns2731  +++|*         SET CPU SCHEDULING PARAMETERS FOR NEW SERVICE CLASS.
00169  M01S00008.ns2731  +++|
00170  M01S00018.271l750 +++|          LDN    ZERL
00171  M01S00019.271l750 +++|          CRD    CM
Line S00020 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00020.ns2731  ---|          LDN    SSPS        SET SCHEDULING PARAMETERS INDEX IN *CWQW*
00173  M01S00009.ns2731  +++|          LDN    SSPS        SET CPU SCHEDULING PARAMETERS
00174  M01S00021.271l750 +++|          STD    CM+1
Line S00022 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00022.ns2731  ---|          LDD    T5
00176  M01S00010.ns2731  +++|          LDD    T5          SET JCB OFFSET
00177  M01S00023.271l750 +++|          CFI    JCB
00178  M01S00024.271l750 +++|          STD    CM+4
00179  M01S00025.271l750 +++|          MONITOR  SJCM
00180  M01S00118.compcsc +++|
00181  M01S00119.compcsc +++|*         DETERMINE IF FORMERLY A SUBSYSTEM.
00182  M01S00120.compcsc +++|
00183  M01S00011.ns2731  +++| CSC$     IF     -DEF,CSC$
00184  M01S00121.compcsc +++|          RJM    UJS         UPDATE JSN AND SUBSYSTEM TABLES
00185  M01S00122.compcsc +++| CSC$     ENDIF
00186  M01S00123.compcsc +++|
00187  M01S00124.compcsc +++|*         GET ACCUMULATED SRU-S FOR *ACSC* MESSAGE.
00188  M01S00125.compcsc +++|
00189  M01S00126.compcsc +++|          LDN    ACTWL
00190  M01S00127.compcsc +++|          STD    T4
00191  M01S00128.compcsc +++|          LDD    CP          GET CONVERTED SRU-S FOR MESSAGE
00192  M01S00129.compcsc +++|          ADN    ACTW
00193  M01S00130.compcsc +++|          CRM    CSCE,T4
00194  M01S00131.compcsc +++|          LDD    MA
00195  M01S00132.compcsc +++|          CWM    CSCE,T4
00196  M01S00133.compcsc +++|          LDN    ABVF
00197  M01S00134.compcsc +++|          STD    CM+1
00198  M01S00135.compcsc +++|          MONITOR  ACTM
00199  M01S00136.compcsc +++|          LDD    MA          SET SRU-S INTO MESSAGE
00200  M01S00137.compcsc +++|          CRM    CSCD+10,ON
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  M01S00138.compcsc +++|
00208  M01S00139.compcsc +++|*         ISSUE ACCOUNTING MESSAGES.
00209  M01S00140.compcsc +++|
Line S00141 Modification History
M01 (Added by) compcsc
M02 (Updated by) pcsc6
Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00141.pcsc6   ---|          LDC    CPON+CSCD   ISSUE MESSAGE TO USER DAYFILE
Line S00007 Modification History
M01 (Added by) pcsc6
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00007.ns2731  ---| CSC5     LDC    CPON+CSCD   ISSUE MESSAGE TO USER DAYFILE
00212  M01S00012.ns2731  +++| CSC5     LDC    CDON+CSCD   ISSUE MESSAGE TO USER DAYFILE ONLY
00213  M01S00142.compcsc +++|          RJM    DFM
00214  M01S00143.compcsc +++|          LDC    AJNN+CSCC   ISSUE MESSAGE TO ACCOUNT FILE WITH OLD JSN
00215  M01S00144.compcsc +++|          RJM    DFM
00216  M01S00145.compcsc +++|
00217  M01S00146.compcsc +++|*         RESET PARAMETERS.
00218  M01S00147.compcsc +++|
00219  M01S00148.compcsc +++|          LDC    2R          CLEAR JSN
00220  M01S00149.compcsc +++|          STM    CSCD+5
00221  M01S00150.compcsc +++|          STM    CSCD+6
00222  M01S00151.compcsc +++|          LCN    1           SET *NO ERROR* STATUS
00223  M01S00152.compcsc +++|          LJM    CSCX        RETURN
00224  M01S00153.compcsc +++|
00225  M01S00154.compcsc +++|
00226  M01S00155.compcsc +++| CSCA     BSS    0           TABLE OF SERVICE CLASS CHARACTERS
00227  M01S00156.compcsc +++| .1       SET    1
00228  M01S00157.compcsc +++| .A       DUP    MXJC
00229  M01S00158.compcsc +++| .2       MICRO  .1,1,$"NMDS"$
00230  M01S00159.compcsc +++|          CON    2H ".2"
00231  M01S00160.compcsc +++| .1       SET    .1+1
00232  M01S00161.compcsc +++| .A       ENDD
00233  M01S00162.compcsc +++|
00234  M01S00163.compcsc +++| CSCB     VFD    1/0,5/SCLE,6/6,6/54D,36/,6/**
00235  M01S00164.compcsc +++| CSCC     BSS    5           CURRENT JSN AND SERVICE CLASS
00236  M01S00165.compcsc +++| CSCD     DATA   C*ACSC,  S,     , 000000.000UNTS.*
00237  M01S00166.compcsc +++|
00238  M01S00167.compcsc +++| CSCE     BSS    ACTWL*5     BUFFER FOR CPA ACCUMULATOR WORDS
00239  M01S00008.pcsc6   +++| CSCG     DATA   C*    0.000*  DISPLAY FORMAT ZERO
00240  M01S00168.compcsc +++| CSC$     IF     -DEF,CSC$
00241  M01S00169.compcsc +++| TUSC     SPACE  4,10
00242  M01S00170.compcsc +++|**        TUSC - TABLE OF UNALLOWABLE SERVICE CLASS CHANGES.
00243  M01S00171.compcsc +++|*
00244  M01S00172.compcsc +++|*         TABLE IS INDEXED BY SERVICE CLASS.
00245  M01S00173.compcsc +++|*
00246  M01S00174.compcsc +++|*T        12/ ST
Figure

011 ST

00247  M01S00175.compcsc +++|*         ST = STATUS OF CHANGE.
00248  M01S00176.compcsc +++|*                0 = CHANGE ALLOWED.
00249  M01S00177.compcsc +++|*                1 = CHANGE NOT ALLOWED.
00250  M01S00178.compcsc +++|
00251  M01S00179.compcsc +++| TUSC     INDEX
00252  M01S00180.compcsc +++|          INDEX  SSSC,1      SUBSYSTEM
00253  M01S00181.compcsc +++|          INDEX  DSSC,1      DEADSTART SEQUENCING
00254  M01S00182.compcsc +++|          INDEX  MXSC        MAXIMUM NUMBER OF SERVICE CLASSES
00255  M01S00183.compcsc +++| UJS      SPACE  4,10
00256  M01S00184.compcsc +++|**        UJS - UPDATE JSN AND SUBSYSTEM TABLES.
00257  M01S00185.compcsc +++|*
00258  M01S00186.compcsc +++|*         USES   T1 - T5, CM - CM+4.
00259  M01S00187.compcsc +++|*
00260  M01S00188.compcsc +++|*         CALLS  AST.
00261  M01S00189.compcsc +++|*
00262  M01S00190.compcsc +++|*         MACROS MONITOR, SFA.
00263  M01S00191.compcsc +++|
00264  M01S00192.compcsc +++|
00265  M01S00193.compcsc +++| UJS      SUBR               ENTRY/EXIT
00266  M01S00194.compcsc +++|
00267  M01S00195.compcsc +++|*         DETERMINE IF FORMERLY A SUBSYSTEM.
00268  M01S00196.compcsc +++|
00269  M01S00197.compcsc +++|          LDC    **          CHECK IF FORMERLY A SUBSYSTEM
00270  M01S00198.compcsc +++| UJSA     EQU    *-1         (FORMER SERVICE CLASS)
00271  M01S00199.compcsc +++|          LMN    SSSC
00272  M01S00200.compcsc +++|          NJN    UJSX        IF NOT FORMERLY A SUBSYSTEM
00273  M01S00201.compcsc +++|
00274  M01S00202.compcsc +++|*         ALTER SSAT/SSCT TABLES.
00275  M01S00203.compcsc +++|
00276  M01S00204.compcsc +++|          LDD    CP          GET SUBSYSTEM ID
00277  M01S00205.compcsc +++|          ADN    JCIW
00278  M01S00206.compcsc +++|          CRD    CM
00279  M01S00207.compcsc +++|          LDD    CM+2        SAVE SUBSYSTEM ID
00280  M01S00208.compcsc +++|          STD    T5
00281  M01S00209.compcsc +++|          LDN    ZERL        CLEAR SSID FIELD
00282  M01S00210.compcsc +++|          CRD    CM
00283  M01S00211.compcsc +++|          LDK    SSIS        SET SUBFUNCTION CODE
00284  M01S00212.compcsc +++|          STD    CM+1
00285  M01S00213.compcsc +++|          MONITOR  SJCM      SELECT JOB CONTROL PARAMETERS
00286  M01S00214.compcsc +++|          LDN    CSCF        CLEAR SUBSYSTEM ACCESS FLAG
00287  M01S00215.compcsc +++|          SHN    14
00288  M01S00216.compcsc +++|          LMD    T5
00289  M01S00217.compcsc +++|          RJM    AST         ACCESS SUBSYSTEM TABLES
00290  M01S00218.compcsc +++|          LDN    CEAF        RELEASE EJT ASSIGNMENT
00291  M01S00219.compcsc +++|          SHN    14
00292  M01S00220.compcsc +++|          LMD    T5
00293  M01S00221.compcsc +++|          RJM    AST         ACCESS SUBSYSTEM TABLES
00294  M01S00222.compcsc +++|
00295  M01S00223.compcsc +++|*         CHANGE FORMER SUBSYSTEM-S JSN.
00296  M01S00224.compcsc +++|
00297  M01S00225.compcsc +++|          LDN    ZERL        CLEAR PARAMETERS
00298  M01S00226.compcsc +++|          CRD    CM
00299  M01S00227.compcsc +++|          CRD    T1
00300  M01S00228.compcsc +++|          LDN    1           DO NOT REQUEST A QFT ENTRY
00301  M01S00229.compcsc +++|          STD    CM+1
00302  M01S00230.compcsc +++|          MONITOR  RJSM      REQUEST JOB SEQUENCE NUMBER
00303  M01S00231.compcsc +++|*         LDN    0           CLEAR *UTEM* PARAMETER BYTE
00304  M01S00232.compcsc +++|          STD    CM+2
00305  M01S00233.compcsc +++|          STD    T3
00306  M01S00234.compcsc +++|          LDD    CM+3        PUT JSN IN DAYFILE MESSAGE
00307  M01S00235.compcsc +++|          STM    CSCD+5
00308  M01S00236.compcsc +++|          STD    T4
00309  M01S00237.compcsc +++|          LDD    CM+4
00310  M01S00238.compcsc +++|          STM    CSCD+6
00311  M01S00239.compcsc +++|          STD    T5
00312  M01S00240.compcsc +++|          LDK    JSNE*100+24D  SET WORD OFFSET AND FIELD SIZE
00313  M01S00241.compcsc +++|          STD    T1
00314  M01S00242.compcsc +++|          LDC    36D*100     SET BEGINNING BIT POSITION
00315  M01S00243.compcsc +++|          STD    T2
00316  M01S00244.compcsc +++|          LDC    **          EJT ORDINAL
00317  M01S00245.compcsc +++| UJSC     EQU    *-1
00318  M01S00246.compcsc +++|          SFA    EJT         GET EJT ADDRESS
00319  M01S00247.compcsc +++|          STD    CM+4
00320  M01S00248.compcsc +++|          SHN    -14
00321  M01S00249.compcsc +++|          STD    CM+3
00322  M01S00250.compcsc +++|          LDN    1           SET NUMBER OF REQUESTS
00323  M01S00251.compcsc +++|          STD    CM+1
00324  M01S00252.compcsc +++|          LDD    MA
00325  M01S00253.compcsc +++|          CWD    T1
00326  M01S00254.compcsc +++|          MONITOR  UTEM      UPDATE EJT ENTRY WITH JSN
00327  M01S00255.compcsc +++|          LJM    UJSX        RETURN
00328  M01S00256.compcsc +++| CSC$     ENDIF
00329  M01S00257.compcsc +++|          SPACE  4,10
00330  M01S00258.compcsc +++| QUAL$    IF     -DEF,QUAL$
00331  M01S00259.compcsc +++|          QUAL   *
00332  M01S00260.compcsc +++| CSC      EQU    /COMPCSC/CSC
00333  M01S00261.compcsc +++| QUAL$    ENDIF
00334  M01S00262.compcsc +++|          ENDX
cdc/nos2.source/opl.opl871/common/compcsc.txt ยท Last modified: by 127.0.0.1