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