Common COMSSCD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comsscd ---|          CTEXT  COMSSCD - SERVICE CLASS DEFINITIONS.
00002  M00S00002.comsscd ---|          SPACE  4
00003  M00S00003.comsscd ---|          BASE   O

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M00S00005.comsscd +++|          SPACE  4
00007  M00S00006.comsscd +++|***       COMSSCD - SERVICE CLASS DEFINITIONS.
00008  M00S00007.comsscd +++|*
00009  M00S00008.comsscd +++|*         B. M. SLIWINSKI.   82/09/28.
00010  M00S00009.comsscd +++|*         R. C. SCHMITTER.   84/06/26.
00011  M00S00010.comsscd +++|          SPACE  4
00012  M00S00011.comsscd +++|***       *COMSSCD* DEFINES ALL SERVICE CLASSES AND OTHER VALUES
00013  M00S00012.comsscd +++|*         ASSOCIATED WITH SERVICE CLASS.
00014  M00S00013.comsscd +++|*
00015  M00S00014.comsscd +++|*         IF *SCL$* IS DEFINED, THE CALLER MUST DEFINE THE *SCLASS*
00016  M00S00015.comsscd +++|*         MACRO TO BUILD THE DESIRED TABLE OF SERVICE CLASS DATA,
00017  M00S00016.comsscd +++|*         SINCE THE *CLASS* MACRO WILL INVOKE *SCLASS* IN THIS CASE.
00018  M00S00017.comsscd +++|*         IF *SCL$* = 0, *SCLASS* WILL ONLY BE INVOKED FOR SERVICE
00019  M00S00018.comsscd +++|*         CLASSES WITH JOB CONTROL BLOCKS.  IF *SCL$* = ANYTHING ELSE,
00020  M00S00019.comsscd +++|*         *SCLASS* WILL BE INVOKED FOR ALL SERVICE CLASSES.  IF *SCL$*
00021  M00S00020.comsscd +++|*         IS NOT DEFINED, *SCLASS* WILL NOT BE INVOKED.
00022  M00S00021.comsscd +++| CLASS    SPACE  4,15
00023  M00S00022.comsscd +++|**        CLASS - DEFINE SERVICE CLASS AND ATTRIBUTES.
00024  M00S00023.comsscd +++|*
00025  M00S00024.comsscd +++|*         CLASS  NAME,MNEMONIC,DAYFILE,STEXT,TEXT
00026  M00S00025.comsscd +++|*
00027  M00S00026.comsscd +++|*         ENTRY  *NAME* = SERVICE CLASS NAME.
00028  M00S00027.comsscd +++|*                *MNEMONIC* = TWO CHARACTER MNEMONIC.
00029  M00S00028.comsscd +++|*                *DAYFILE* = ONE CHARACTER DAYFILE MESSAGE CHARACTER.
00030  M00S00029.comsscd +++|*                *STEXT* = SHORT TEXT NAME FOR *QFTLIST*.
00031  M00S00030.comsscd +++|*                *TEXT* = LONG TEXT NAME OF SERVICE CLASS.
00032  M00S00031.comsscd +++|*
00033  M00S00032.comsscd +++|*         NOTE - THE FIRST CALL IN A SEQUENCE OF CALLS TO *CLASS*
00034  M00S00033.comsscd +++|*                MUST USE THE NAME *BEGIN*.  THE LAST CALL MUST USE
00035  M00S00034.comsscd +++|*                THE NAME *END*.
00036  M00S00035.comsscd +++|
00037  M00S00036.comsscd +++|          PURGMAC  CLASS
00038  M00S00037.comsscd +++|
00039  M00S00038.comsscd +++|          MACRO  CLASS,NAME,MNEMONIC,DAYFILE,STEXT,TEXT
00040  M00S00039.comsscd +++|
00041  M00S00040.comsscd +++|*         INITIALIZE VALUES.
00042  M00S00041.comsscd +++|
00043  M00S00042.comsscd +++| .A       IFC    EQ,$NAME$BEGIN$
00044  M00S00043.comsscd +++| .1       SET    0           SERVICE CLASS VALUE
00045  M00S00044.comsscd +++| .2       SET    0           END OF CLASSES WITH JCB-S FLAG
00046  M00S00045.comsscd +++| .A1MK    SET    0           FIRST BYTE VALIDATION MASK VALUE
00047  M00S00046.comsscd +++| .A2MK    SET    0           SECOND BYTE VALIDATION MASK VALUE
00048  M00S00047.comsscd +++|          LOC    1
00049  M00S00048.comsscd +++| NMSC     MICRO  1,, **      SERVICE CLASS MNEMONIC MICRO
00050  M00S00049.comsscd +++| NMDS     MICRO  1,, *       DAYFILE CHARACTER MICRO
00051  M00S00050.comsscd +++| .J       SKIP
00052  M00S00051.comsscd +++| .A       ENDIF
00053  M00S00052.comsscd +++|
00054  M00S00053.comsscd +++|*         TERMINATE PROCESSING.
00055  M00S00054.comsscd +++|
00056  M00S00055.comsscd +++| .B       IFC    EQ,$NAME$END$
00057  M00S00056.comsscd +++| .A1MK    SET    .A1MK-SSMK  REMOVE SUBSYSTEM MASK BIT
00058  M00S00057.comsscd +++|          LOC    *O          RESET LOCATION
00059  M00S00058.comsscd +++| .K       SKIP
00060  M00S00059.comsscd +++| .B       ENDIF
00061  M00S00060.comsscd +++|
00062  M00S00061.comsscd +++|*         DEFINE SERVICE CLASS VALUE AND CONSTRUCT MICROS.
00063  M00S00062.comsscd +++|
00064  M00S00063.comsscd +++| NAME     EQU    .1          SET CLASS VALUE
00065  M00S00064.comsscd +++|          LOC    *+1
00066  M00S00065.comsscd +++| .NMSC    MICRO  1,, MNEMONIC
00067  M00S00066.comsscd +++| .NMDS    MICRO  1,, DAYFILE
00068  M00S00067.comsscd +++| NMSC     MICRO  1,,+"NMSC"".NMSC"+  CONSTRUCT SERVICE CLASS MICRO
00069  M00S00068.comsscd +++| NMDS     MICRO  1,,+"NMDS"".NMDS"+  CONSTRUCT DAYFILE CHARACTER MICRO
00070  M00S00069.comsscd +++|
00071  M00S00070.comsscd +++| .C       IFC    EQ,$NAME$DSSC$
00072  M00S00071.comsscd +++| .2       SET    1           SET END OF JCB-S FLAG
00073  M00S00072.comsscd +++| .C       ENDIF
00074  M00S00073.comsscd +++| .D       IFEQ   .2,0
00075  M00S00074.comsscd +++|
00076  M00S00075.comsscd +++|
00077  M00S00076.comsscd +++|*         DEFINE VALIDATION MASK BITS (CLASSES WITH JCB-S ONLY).
00078  M00S00077.comsscd +++|
00079  M00S00078.comsscd +++| .E       IFGT   NAME,11D
00080  M00S00079.comsscd +++| .3       DECMIC .1-12D
00081  M00S00080.comsscd +++| MNEMONIC_MK SET 1S".3"
00082  M00S00081.comsscd +++| .A2MK    SET    .A2MK+MNEMONIC_MK
00083  M00S00082.comsscd +++| .E       ELSE
00084  M00S00083.comsscd +++| .3       DECMIC .1
00085  M00S00084.comsscd +++| MNEMONIC_MK SET 1S".3"
00086  M00S00085.comsscd +++| .A1MK    SET    .A1MK+MNEMONIC_MK
00087  M00S00086.comsscd +++| .E       ENDIF
00088  M00S00087.comsscd +++|
00089  M00S00088.comsscd +++|*         DETERMINE WHETHER TO INVOKE *SCLASS*.
00090  M00S00089.comsscd +++|*         IF *SCL$* IS NOT DEFINED, DO NOT CALL *SCLASS*.
00091  M00S00090.comsscd +++|*         IF *SCL$* = 0, CALL *SCLASS* ONLY FOR CLASSES WITH JCB-S.
00092  M00S00091.comsscd +++|*         OTHERWISE, CALL *SCLASS* FOR ALL SERVICE CLASSES.
00093  M00S00092.comsscd +++|
00094  M00S00093.comsscd +++| .D       ENDIF
00095  M00S00094.comsscd +++| .F       IF     DEF,SCL$
00096  M00S00095.comsscd +++| .G       IFEQ   SCL$,0
00097  M00S00096.comsscd +++| .H       IFEQ   .2,0
00098  M00S00097.comsscd +++| .G       ENDIF
00099  M00S00098.comsscd +++|          SCLASS NAME,MNEMONIC,DAYFILE,STEXT,(TEXT)
00100  M00S00099.comsscd +++| .H       ENDIF
00101  M00S00100.comsscd +++| .F       ENDIF
00102  M00S00101.comsscd +++|
00103  M00S00102.comsscd +++| .J       ENDIF
00104  M00S00103.comsscd +++| .1       SET    .1+1        ADVANCE CLASS VALUE
00105  M00S00104.comsscd +++| .K       ENDIF
00106  M00S00105.comsscd +++| CLASS    ENDM
00107  M00S00106.comsscd +++|          SPACE  4,10
00108  M00S00107.comsscd +++|**        DEFINE SERVICE CLASS ATTRIBUTES.
00109  M00S00108.comsscd +++|*
00110  M00S00109.comsscd +++|*         THESE MACRO CALLS DEFINE THE ATTRIBUTES OF EACH SERVICE
00111  M00S00110.comsscd +++|*         CLASS IN THE SYSTEM.  EACH DECK THAT REQUIRES A TABLE OF ONE
00112  M00S00111.comsscd +++|*         OR MORE OF THESE ATTRIBUTES MUST DEFINE THE *SCLASS* MACRO
00113  M00S00112.comsscd +++|*         APPROPRIATELY.  NOTE THAT IF THE NUMBER OF SERVICE CLASSES
00114  M00S00113.comsscd +++|*         CHANGES, THE DATA FILE CREATED BY *CPD* WILL NOT BE
00115  M00S00114.comsscd +++|*         COMPATIBLE WITH PREVIOUS VERSIONS.  TO CHANGE AN ATTRIBUTE
00116  M00S00115.comsscd +++|*         FOR A SERVICE CLASS, OR TO ADD A SERVICE CLASS, MAKE THE
00117  M00S00116.comsscd +++|*         APPROPRIATE CHANGES TO THE *CLASS* MACRO CALLS AND REASSEMBLE
00118  M00S00117.comsscd +++|*         ALL DECKS THAT CALL THIS COMMON DECK.  CHANGES TO *CCL* AND
00119  M00S00118.comsscd +++|*         *RHF* MAY ALSO BE NECESSARY.
00120  M00S00119.comsscd +++|          LIST   G
00121  M00S00120.comsscd +++|
00122  M00S00121.comsscd +++| BEGIN    CLASS
00123  M00S00122.comsscd +++|
00124  M00S00123.comsscd +++|*         DEFINE SERVICE CLASSES WITH JCB-S.
00125  M00S00124.comsscd +++|
00126  M00S00125.comsscd +++| SYSC     CLASS  SY,S,SYSTEM,SYSTEM
00127  M00S00126.comsscd +++| BCSC     CLASS  BC,B,BATCH,BATCH
00128  M00S00127.comsscd +++| RBSC     CLASS  RB,R,REMOTE,(REMOTE BATCH)
00129  M00S00128.comsscd +++| TSSC     CLASS  TS,T,TIMESHR,INTERACTIVE
00130  M00S00129.comsscd +++| DISC     CLASS  DI,D,DETACH,(DETACHED INTERACTIVE)
00131  M00S00130.comsscd +++| NSSC     CLASS  NS,N,NETWORK,(NETWORK SUPERVISOR)
00132  M00S00131.comsscd +++| SSSC     CLASS  SS,X,SUBSYS,SUBSYSTEM
00133  M00S00132.comsscd +++| MASC     CLASS  MA,M,MAINTEN,MAINTENANCE
00134  M00S00133.comsscd +++| CTSC     CLASS  CT,C,COMTASK,(COMMUNICATION TASK)

Line S00134 Modification History
`M01` (Removed by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00135  M01S00134.ns2437  ---| I0SC     CLASS  I0,0,ICLASS0,(INSTALLATION CLASS 0)
00136  M01S00135.ns2437  ---| I1SC     CLASS  I1,1,ICLASS1,(INSTALLATION CLASS 1)
00137  M01S00136.ns2437  ---| I2SC     CLASS  I2,2,ICLASS2,(INSTALLATION CLASS 2)
00138  M01S00137.ns2437  ---| I3SC     CLASS  I3,3,ICLASS3,(INSTALLATION CLASS 3)
00139  M01S00138.ns2437  ---|*I4SC     CLASS  I4,4,ICLASS4,(INSTALLATION CLASS 4)
00140  M01S00139.ns2437  ---|*I5SC     CLASS  I5,5,ICLASS5,(INSTALLATION CLASS 5)
00141  M01S00140.ns2437  ---|*I6SC     CLASS  I6,6,ICLASS6,(INSTALLATION CLASS 6)
00142  M01S00141.ns2437  ---|*I7SC     CLASS  I7,7,ICLASS7,(INSTALLATION CLASS 7)
00143  M01S00142.ns2437  ---|*I8SC     CLASS  I8,8,ICLASS8,(INSTALLATION CLASS 8)
00144  M01S00143.ns2437  ---|*I9SC     CLASS  I9,9,ICLASS9,(INSTALLATION CLASS 9)
00145  M01S00144.ns2437  ---|*IISC     CLASS  II,I,ICLASSI,(INSTALLATION CLASS I)
00146  M01S00145.ns2437  ---|*IJSC     CLASS  IJ,J,ICLASSJ,(INSTALLATION CLASS J)
00147  M01S00146.ns2437  ---|*IKSC     CLASS  IK,K,ICLASSK,(INSTALLATION CLASS K)
00148  M01S00147.ns2437  ---|*ILSC     CLASS  IL,L,ICLASSL,(INSTALLATION CLASS L)

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

Seq #  *Modification Id* Act 
----------------------------+
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` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00005.274l797 ---|*I4SC     CLASS  I4,4,ICLASS4,(CLASS I4)
00154  M02S00006.274l797 ---|*I5SC     CLASS  I5,5,ICLASS5,(CLASS I5)
00155  M02S00007.274l797 ---|*I6SC     CLASS  I6,6,ICLASS6,(CLASS I6)
00156  M02S00008.274l797 ---|*I7SC     CLASS  I7,7,ICLASS7,(CLASS I7)
00157  M02S00009.274l797 ---|*I8SC     CLASS  I8,8,ICLASS8,(CLASS I8)

Line S00001 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
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)

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00148.comsscd +++|
00169  M00S00149.comsscd +++| MXJC     EQU    .1          NUMBER OF SERVICE CLASSES WITH JCB-S
00170  M00S00150.comsscd +++|          ERRNG  24D-MXJC    TOO MANY SERVICE CLASSES
00171  M00S00151.comsscd +++|
00172  M00S00152.comsscd +++|*         THE FOLLOWING SERVICE CLASSES HAVE NO JCB-S.
00173  M00S00153.comsscd +++|

Line S00154 Modification History
`M01` (Removed by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00154.ns2437  ---| DSSC     CLASS  DS,A,DEADST,(DEADSTART SEQUENCING)

Line S00015 Modification History
`M01` (Added by)	`ns2437`

Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00015.ns2437  +++| DSSC     CLASS  DS,A,DEADST,(DEADSTART)
00176  M00S00155.comsscd +++| END      CLASS
00177  M00S00156.comsscd +++|
00178  M00S00157.comsscd +++| MXSC     EQU    .1          TOTAL NUMBER OF SERVICE CLASSES
00179  M00S00158.comsscd +++|
00180  M00S00159.comsscd +++|*         TOTAL MASK BITS DEFINED IN EACH BYTE FOR NON-SYSTEM ORIGIN
00181  M00S00160.comsscd +++|*         JOBS.  THE VALIDATION MASK FOR SERVICE CLASS *N* IS BIT *N*.
00182  M00S00161.comsscd +++|*         BITS ARE SET FOR ALL SERVICE CLASSES WITH JCB-S EXCEPT FOR
00183  M00S00162.comsscd +++|*         SUBSYSTEM SERVICE CLASS *SSSC*.
00184  M00S00163.comsscd +++|
00185  M00S00164.comsscd +++| A1MK     EQU    .A1MK       FIRST BYTE VALIDATION MASK
00186  M00S00165.comsscd +++| A2MK     EQU    .A2MK       SECOND BYTE VALIDATION MASK
00187  M00S00166.comsscd +++|          LIST   *
00188  M00S00167.comsscd +++|          SPACE  4
00189  M00S00168.comsscd +++|          BASE   *
00190  M00S00169.comsscd +++|          ENDX