Common COMSSCD

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comsscd +++|          CTEXT  COMSSCD - SERVICE CLASS DEFINITIONS.
00002  M01S00002.comsscd +++|          SPACE  4
00003  M01S00003.comsscd +++|          BASE   O

Line S00004 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.comsscd +++|          SPACE  4
00007  M01S00006.comsscd +++|***       COMSSCD - SERVICE CLASS DEFINITIONS.
00008  M01S00007.comsscd +++|*
00009  M01S00008.comsscd +++|*         B. M. SLIWINSKI.   82/09/28.
00010  M01S00009.comsscd +++|*         R. C. SCHMITTER.   84/06/26.
00011  M01S00010.comsscd +++|          SPACE  4
00012  M01S00011.comsscd +++|***       *COMSSCD* DEFINES ALL SERVICE CLASSES AND OTHER VALUES
00013  M01S00012.comsscd +++|*         ASSOCIATED WITH SERVICE CLASS.
00014  M01S00013.comsscd +++|*
00015  M01S00014.comsscd +++|*         IF *SCL$* IS DEFINED, THE CALLER MUST DEFINE THE *SCLASS*
00016  M01S00015.comsscd +++|*         MACRO TO BUILD THE DESIRED TABLE OF SERVICE CLASS DATA,
00017  M01S00016.comsscd +++|*         SINCE THE *CLASS* MACRO WILL INVOKE *SCLASS* IN THIS CASE.
00018  M01S00017.comsscd +++|*         IF *SCL$* = 0, *SCLASS* WILL ONLY BE INVOKED FOR SERVICE
00019  M01S00018.comsscd +++|*         CLASSES WITH JOB CONTROL BLOCKS.  IF *SCL$* = ANYTHING ELSE,
00020  M01S00019.comsscd +++|*         *SCLASS* WILL BE INVOKED FOR ALL SERVICE CLASSES.  IF *SCL$*
00021  M01S00020.comsscd +++|*         IS NOT DEFINED, *SCLASS* WILL NOT BE INVOKED.
00022  M01S00021.comsscd +++| CLASS    SPACE  4,15
00023  M01S00022.comsscd +++|**        CLASS - DEFINE SERVICE CLASS AND ATTRIBUTES.
00024  M01S00023.comsscd +++|*
00025  M01S00024.comsscd +++|*         CLASS  NAME,MNEMONIC,DAYFILE,STEXT,TEXT
00026  M01S00025.comsscd +++|*
00027  M01S00026.comsscd +++|*         ENTRY  *NAME* = SERVICE CLASS NAME.
00028  M01S00027.comsscd +++|*                *MNEMONIC* = TWO CHARACTER MNEMONIC.
00029  M01S00028.comsscd +++|*                *DAYFILE* = ONE CHARACTER DAYFILE MESSAGE CHARACTER.
00030  M01S00029.comsscd +++|*                *STEXT* = SHORT TEXT NAME FOR *QFTLIST*.
00031  M01S00030.comsscd +++|*                *TEXT* = LONG TEXT NAME OF SERVICE CLASS.
00032  M01S00031.comsscd +++|*
00033  M01S00032.comsscd +++|*         NOTE - THE FIRST CALL IN A SEQUENCE OF CALLS TO *CLASS*
00034  M01S00033.comsscd +++|*                MUST USE THE NAME *BEGIN*.  THE LAST CALL MUST USE
00035  M01S00034.comsscd +++|*                THE NAME *END*.
00036  M01S00035.comsscd +++|
00037  M01S00036.comsscd +++|          PURGMAC  CLASS
00038  M01S00037.comsscd +++|
00039  M01S00038.comsscd +++|          MACRO  CLASS,NAME,MNEMONIC,DAYFILE,STEXT,TEXT
00040  M01S00039.comsscd +++|
00041  M01S00040.comsscd +++|*         INITIALIZE VALUES.
00042  M01S00041.comsscd +++|
00043  M01S00042.comsscd +++| .A       IFC    EQ,$NAME$BEGIN$
00044  M01S00043.comsscd +++| .1       SET    0           SERVICE CLASS VALUE
00045  M01S00044.comsscd +++| .2       SET    0           END OF CLASSES WITH JCB-S FLAG
00046  M01S00045.comsscd +++| .A1MK    SET    0           FIRST BYTE VALIDATION MASK VALUE
00047  M01S00046.comsscd +++| .A2MK    SET    0           SECOND BYTE VALIDATION MASK VALUE
00048  M01S00047.comsscd +++|          LOC    1
00049  M01S00048.comsscd +++| NMSC     MICRO  1,, **      SERVICE CLASS MNEMONIC MICRO
00050  M01S00049.comsscd +++| NMDS     MICRO  1,, *       DAYFILE CHARACTER MICRO
00051  M01S00050.comsscd +++| .J       SKIP
00052  M01S00051.comsscd +++| .A       ENDIF
00053  M01S00052.comsscd +++|
00054  M01S00053.comsscd +++|*         TERMINATE PROCESSING.
00055  M01S00054.comsscd +++|
00056  M01S00055.comsscd +++| .B       IFC    EQ,$NAME$END$
00057  M01S00056.comsscd +++| .A1MK    SET    .A1MK-SSMK  REMOVE SUBSYSTEM MASK BIT
00058  M01S00057.comsscd +++|          LOC    *O          RESET LOCATION
00059  M01S00058.comsscd +++| .K       SKIP
00060  M01S00059.comsscd +++| .B       ENDIF
00061  M01S00060.comsscd +++|
00062  M01S00061.comsscd +++|*         DEFINE SERVICE CLASS VALUE AND CONSTRUCT MICROS.
00063  M01S00062.comsscd +++|
00064  M01S00063.comsscd +++| NAME     EQU    .1          SET CLASS VALUE
00065  M01S00064.comsscd +++|          LOC    *+1
00066  M01S00065.comsscd +++| .NMSC    MICRO  1,, MNEMONIC
00067  M01S00066.comsscd +++| .NMDS    MICRO  1,, DAYFILE
00068  M01S00067.comsscd +++| NMSC     MICRO  1,,+"NMSC"".NMSC"+  CONSTRUCT SERVICE CLASS MICRO
00069  M01S00068.comsscd +++| NMDS     MICRO  1,,+"NMDS"".NMDS"+  CONSTRUCT DAYFILE CHARACTER MICRO
00070  M01S00069.comsscd +++|
00071  M01S00070.comsscd +++| .C       IFC    EQ,$NAME$DSSC$
00072  M01S00071.comsscd +++| .2       SET    1           SET END OF JCB-S FLAG
00073  M01S00072.comsscd +++| .C       ENDIF
00074  M01S00073.comsscd +++| .D       IFEQ   .2,0
00075  M01S00074.comsscd +++|
00076  M01S00075.comsscd +++|
00077  M01S00076.comsscd +++|*         DEFINE VALIDATION MASK BITS (CLASSES WITH JCB-S ONLY).
00078  M01S00077.comsscd +++|
00079  M01S00078.comsscd +++| .E       IFGT   NAME,11D
00080  M01S00079.comsscd +++| .3       DECMIC .1-12D
00081  M01S00080.comsscd +++| MNEMONIC_MK SET 1S".3"
00082  M01S00081.comsscd +++| .A2MK    SET    .A2MK+MNEMONIC_MK
00083  M01S00082.comsscd +++| .E       ELSE
00084  M01S00083.comsscd +++| .3       DECMIC .1
00085  M01S00084.comsscd +++| MNEMONIC_MK SET 1S".3"
00086  M01S00085.comsscd +++| .A1MK    SET    .A1MK+MNEMONIC_MK
00087  M01S00086.comsscd +++| .E       ENDIF
00088  M01S00087.comsscd +++|
00089  M01S00088.comsscd +++|*         DETERMINE WHETHER TO INVOKE *SCLASS*.
00090  M01S00089.comsscd +++|*         IF *SCL$* IS NOT DEFINED, DO NOT CALL *SCLASS*.
00091  M01S00090.comsscd +++|*         IF *SCL$* = 0, CALL *SCLASS* ONLY FOR CLASSES WITH JCB-S.
00092  M01S00091.comsscd +++|*         OTHERWISE, CALL *SCLASS* FOR ALL SERVICE CLASSES.
00093  M01S00092.comsscd +++|
00094  M01S00093.comsscd +++| .D       ENDIF
00095  M01S00094.comsscd +++| .F       IF     DEF,SCL$
00096  M01S00095.comsscd +++| .G       IFEQ   SCL$,0
00097  M01S00096.comsscd +++| .H       IFEQ   .2,0
00098  M01S00097.comsscd +++| .G       ENDIF
00099  M01S00098.comsscd +++|          SCLASS NAME,MNEMONIC,DAYFILE,STEXT,(TEXT)
00100  M01S00099.comsscd +++| .H       ENDIF
00101  M01S00100.comsscd +++| .F       ENDIF
00102  M01S00101.comsscd +++|
00103  M01S00102.comsscd +++| .J       ENDIF
00104  M01S00103.comsscd +++| .1       SET    .1+1        ADVANCE CLASS VALUE
00105  M01S00104.comsscd +++| .K       ENDIF
00106  M01S00105.comsscd +++| CLASS    ENDM
00107  M01S00106.comsscd +++|          SPACE  4,10
00108  M01S00107.comsscd +++|**        DEFINE SERVICE CLASS ATTRIBUTES.
00109  M01S00108.comsscd +++|*
00110  M01S00109.comsscd +++|*         THESE MACRO CALLS DEFINE THE ATTRIBUTES OF EACH SERVICE
00111  M01S00110.comsscd +++|*         CLASS IN THE SYSTEM.  EACH DECK THAT REQUIRES A TABLE OF ONE
00112  M01S00111.comsscd +++|*         OR MORE OF THESE ATTRIBUTES MUST DEFINE THE *SCLASS* MACRO
00113  M01S00112.comsscd +++|*         APPROPRIATELY.  NOTE THAT IF THE NUMBER OF SERVICE CLASSES
00114  M01S00113.comsscd +++|*         CHANGES, THE DATA FILE CREATED BY *CPD* WILL NOT BE
00115  M01S00114.comsscd +++|*         COMPATIBLE WITH PREVIOUS VERSIONS.  TO CHANGE AN ATTRIBUTE
00116  M01S00115.comsscd +++|*         FOR A SERVICE CLASS, OR TO ADD A SERVICE CLASS, MAKE THE
00117  M01S00116.comsscd +++|*         APPROPRIATE CHANGES TO THE *CLASS* MACRO CALLS AND REASSEMBLE
00118  M01S00117.comsscd +++|*         ALL DECKS THAT CALL THIS COMMON DECK.  CHANGES TO *CCL* AND
00119  M01S00118.comsscd +++|*         *RHF* MAY ALSO BE NECESSARY.
00120  M01S00119.comsscd +++|          LIST   G
00121  M01S00120.comsscd +++|
00122  M01S00121.comsscd +++| BEGIN    CLASS
00123  M01S00122.comsscd +++|
00124  M01S00123.comsscd +++|*         DEFINE SERVICE CLASSES WITH JCB-S.
00125  M01S00124.comsscd +++|
00126  M01S00125.comsscd +++| SYSC     CLASS  SY,S,SYSTEM,SYSTEM
00127  M01S00126.comsscd +++| BCSC     CLASS  BC,B,BATCH,BATCH
00128  M01S00127.comsscd +++| RBSC     CLASS  RB,R,REMOTE,(REMOTE BATCH)
00129  M01S00128.comsscd +++| TSSC     CLASS  TS,T,TIMESHR,INTERACTIVE
00130  M01S00129.comsscd +++| DISC     CLASS  DI,D,DETACH,(DETACHED INTERACTIVE)
00131  M01S00130.comsscd +++| NSSC     CLASS  NS,N,NETWORK,(NETWORK SUPERVISOR)
00132  M01S00131.comsscd +++| SSSC     CLASS  SS,X,SUBSYS,SUBSYSTEM
00133  M01S00132.comsscd +++| MASC     CLASS  MA,M,MAINTEN,MAINTENANCE
00134  M01S00133.comsscd +++| CTSC     CLASS  CT,C,COMTASK,(COMMUNICATION TASK)

Line S00134 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00134.ns2437  ---| I0SC     CLASS  I0,0,ICLASS0,(INSTALLATION CLASS 0)

Line S00135 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00135.ns2437  ---| I1SC     CLASS  I1,1,ICLASS1,(INSTALLATION CLASS 1)

Line S00136 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00136.ns2437  ---| I2SC     CLASS  I2,2,ICLASS2,(INSTALLATION CLASS 2)

Line S00137 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00137.ns2437  ---| I3SC     CLASS  I3,3,ICLASS3,(INSTALLATION CLASS 3)

Line S00138 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00138.ns2437  ---|*I4SC     CLASS  I4,4,ICLASS4,(INSTALLATION CLASS 4)

Line S00139 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00139.ns2437  ---|*I5SC     CLASS  I5,5,ICLASS5,(INSTALLATION CLASS 5)

Line S00140 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00140.ns2437  ---|*I6SC     CLASS  I6,6,ICLASS6,(INSTALLATION CLASS 6)

Line S00141 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00141.ns2437  ---|*I7SC     CLASS  I7,7,ICLASS7,(INSTALLATION CLASS 7)

Line S00142 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00142.ns2437  ---|*I8SC     CLASS  I8,8,ICLASS8,(INSTALLATION CLASS 8)

Line S00143 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00143.ns2437  ---|*I9SC     CLASS  I9,9,ICLASS9,(INSTALLATION CLASS 9)

Line S00144 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00144.ns2437  ---|*IISC     CLASS  II,I,ICLASSI,(INSTALLATION CLASS I)

Line S00145 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00145.ns2437  ---|*IJSC     CLASS  IJ,J,ICLASSJ,(INSTALLATION CLASS J)

Line S00146 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00146.ns2437  ---|*IKSC     CLASS  IK,K,ICLASSK,(INSTALLATION CLASS K)

Line S00147 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00147.ns2437  ---|*ILSC     CLASS  IL,L,ICLASSL,(INSTALLATION CLASS L)
00149  M01S00001.ns2437  +++| I0SC     CLASS  I0,0,ICLASS0,(CLASS I0)
00150  M01S00002.ns2437  +++| I1SC     CLASS  I1,1,ICLASS1,(CLASS I1)
00151  M01S00003.ns2437  +++| I2SC     CLASS  I2,2,ICLASS2,(CLASS I2)
00152  M01S00004.ns2437  +++| I3SC     CLASS  I3,3,ICLASS3,(CLASS I3)

Line S00005 Modification History
`M01` (Added by)	`ns2437`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00005.274l797 ---|*I4SC     CLASS  I4,4,ICLASS4,(CLASS I4)

Line S00006 Modification History
`M01` (Added by)	`ns2437`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00006.274l797 ---|*I5SC     CLASS  I5,5,ICLASS5,(CLASS I5)

Line S00007 Modification History
`M01` (Added by)	`ns2437`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00007.274l797 ---|*I6SC     CLASS  I6,6,ICLASS6,(CLASS I6)

Line S00008 Modification History
`M01` (Added by)	`ns2437`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00008.274l797 ---|*I7SC     CLASS  I7,7,ICLASS7,(CLASS I7)

Line S00009 Modification History
`M01` (Added by)	`ns2437`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00009.274l797 ---|*I8SC     CLASS  I8,8,ICLASS8,(CLASS I8)
00158  M01S00001.274l797 +++| I4SC     CLASS  I4,4,ICLASS4,(CLASS I4)
00159  M01S00002.274l797 +++| I5SC     CLASS  I5,5,ICLASS5,(CLASS I5)
00160  M01S00003.274l797 +++| I6SC     CLASS  I6,6,ICLASS6,(CLASS I6)
00161  M01S00004.274l797 +++| I7SC     CLASS  I7,7,ICLASS7,(CLASS I7)
00162  M01S00005.274l797 +++| I8SC     CLASS  I8,8,ICLASS8,(CLASS I8)
00163  M01S00010.ns2437  +++|*I9SC     CLASS  I9,9,ICLASS9,(CLASS I9)
00164  M01S00011.ns2437  +++|*IISC     CLASS  II,I,ICLASSI,(CLASS II)
00165  M01S00012.ns2437  +++|*IJSC     CLASS  IJ,J,ICLASSJ,(CLASS IJ)
00166  M01S00013.ns2437  +++|*IKSC     CLASS  IK,K,ICLASSK,(CLASS IK)
00167  M01S00014.ns2437  +++|*ILSC     CLASS  IL,L,ICLASSL,(CLASS IL)
00168  M01S00148.comsscd +++|
00169  M01S00149.comsscd +++| MXJC     EQU    .1          NUMBER OF SERVICE CLASSES WITH JCB-S
00170  M01S00150.comsscd +++|          ERRNG  24D-MXJC    TOO MANY SERVICE CLASSES
00171  M01S00151.comsscd +++|
00172  M01S00152.comsscd +++|*         THE FOLLOWING SERVICE CLASSES HAVE NO JCB-S.
00173  M01S00153.comsscd +++|

Line S00154 Modification History
`M01` (Added by)	`comsscd`
`M02` (Updated by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00154.ns2437  ---| DSSC     CLASS  DS,A,DEADST,(DEADSTART SEQUENCING)
00175  M01S00015.ns2437  +++| DSSC     CLASS  DS,A,DEADST,(DEADSTART)
00176  M01S00155.comsscd +++| END      CLASS
00177  M01S00156.comsscd +++|
00178  M01S00157.comsscd +++| MXSC     EQU    .1          TOTAL NUMBER OF SERVICE CLASSES
00179  M01S00158.comsscd +++|
00180  M01S00159.comsscd +++|*         TOTAL MASK BITS DEFINED IN EACH BYTE FOR NON-SYSTEM ORIGIN
00181  M01S00160.comsscd +++|*         JOBS.  THE VALIDATION MASK FOR SERVICE CLASS *N* IS BIT *N*.
00182  M01S00161.comsscd +++|*         BITS ARE SET FOR ALL SERVICE CLASSES WITH JCB-S EXCEPT FOR
00183  M01S00162.comsscd +++|*         SUBSYSTEM SERVICE CLASS *SSSC*.
00184  M01S00163.comsscd +++|
00185  M01S00164.comsscd +++| A1MK     EQU    .A1MK       FIRST BYTE VALIDATION MASK
00186  M01S00165.comsscd +++| A2MK     EQU    .A2MK       SECOND BYTE VALIDATION MASK
00187  M01S00166.comsscd +++|          LIST   *
00188  M01S00167.comsscd +++|          SPACE  4
00189  M01S00168.comsscd +++|          BASE   *
00190  M01S00169.comsscd +++|          ENDX