cdc:nos2.source:opl.opl871:common:compvsp
Common COMPVSP
6 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compvsp +++| CTEXT COMPVSP - VALIDATE SERVICE CLASS PARAMETER. 00002 M01S00002.compvsp +++| SPACE 4 00003 M01S00003.compvsp +++| QUAL$ IF -DEF,QUAL$ 00004 M01S00004.compvsp +++| QUAL COMPVSP 00005 M01S00005.compvsp +++| QUAL$ ENDIF
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.compvsp +++| SPACE 4 00009 M01S00008.compvsp +++|*** COMPVSP - VALIDATE SERVICE CLASS PARAMETER. 00010 M01S00009.compvsp +++|* 00011 M01S00010.compvsp +++|* B. M. SLIWINSKI. 82/10/04. 00012 M01S00011.compvsp +++| SPACE 4,10 00013 M01S00012.compvsp +++|*** *COMPVSP* VALIDATES THE SERVICE CLASS PARAMETER ON COMMANDS. 00014 M01S00013.compvsp +++|* 00015 M01S00014.compvsp +++|* IF *VSP$* IS DEFINED, THE TWO CHARACTER SERVICE CLASS 00016 M01S00015.compvsp +++|* PARAMETER IS CHECKED FOR VALIDITY. 00017 M01S00016.compvsp +++|* 00018 M01S00017.compvsp +++|* IF *CUV$* IS DEFINED, *COMPVSP* WILL ALSO CHECK IF THE 00019 M01S00018.compvsp +++|* SERVICE CLASS IS VALID FOR THE USER. THAT IS, IT WILL 00020 M01S00019.compvsp +++|* CHECK IF THE SERVICE CLASS IS DEFINED IN THE VALIDATION 00021 M01S00020.compvsp +++|* MASK OF THE USER AND IN THE *SCT* ENTRY FOR THE CURRENT 00022 M01S00021.compvsp +++|* ORIGIN TYPE OF THE USER. FOR SUBSYSTEMS AND SSJ= JOBS, ONLY 00023 M01S00022.compvsp +++|* THE ORIGIN TYPE *SCT* ENTRY WILL BE CHECKED. 00024 M01S00001.ns2217 +++|* ALSO, IF *CUV$* IS DEFINED, THE CALLING PROGRAM MUST DEFINE 00025 M01S00002.ns2217 +++|* THE *SCLASS* MACRO WITH A REMOTE BLOCK DEFINITION OF THE 00026 M01S00003.ns2217 +++|* FOLLOWING FORMAT. SEE *COMSSCD* FOR MORE INFORMATION. 00027 M01S00004.ns2217 +++|* .A IFC NE,$NM$SSSC$ 00028 M01S00005.ns2217 +++|* .SCLVSP RMT 00029 M01S00006.ns2217 +++|* INDEX NM,MN_MK 00030 M01S00007.ns2217 +++|* .SCLVSP RMT 00031 M01S00008.ns2217 +++|* .A ENDIF 00032 M01S00023.compvsp +++|* 00033 M01S00024.compvsp +++|* IF *CJL$* IS DEFINED, *COMPVSP* WILL CHECK IF THE NUMBER OF 00034 M01S00025.compvsp +++|* JOBS CURRENTLY IN THAT SERVICE CLASS IS AT THE SERVICE LIMIT. 00035 M01S00026.compvsp +++| SPACE 4,10 00036 M01S00027.compvsp +++|** VSP - VALIDATE SERVICE CLASS PARAMETER. 00037 M01S00028.compvsp +++|* 00038 M01S00029.compvsp +++|* ENTRY (A) = TWO CHARACTER DISPLAY CODE SERVICE CLASS 00039 M01S00030.compvsp +++|* MNEMONIC RIGHT JUSTIFIED (IF *VSP$* DEFINED). 00040 M01S00031.compvsp +++|* (A) = SERVICE CLASS VALUE (IF *VSP$* NOT DEFINED). 00041 M01S00032.compvsp +++|* (OT) = ORIGIN TYPE (IF *CUV$* DEFINED). 00042 M01S00033.compvsp +++|* (T3) .NE. 0 IF SUBSYSTEM OR SSJ= JOB (*CUV$* DEFINED). 00043 M01S00034.compvsp +++|* (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK. 00044 M01S00035.compvsp +++|* 00045 M01S00036.compvsp +++|* EXIT (A) = 0 IF NO ERROR. 00046 M01S00037.compvsp +++|* = 1 IF UNDEFINED SERVICE CLASS MNEMONIC. 00047 M01S00038.compvsp +++|* = 2 IF SERVICE CLASS NOT VALID FOR USER. 00048 M01S00039.compvsp +++|* = 3 IF SERVICE CLASS AT SERVICE LIMIT. 00049 M01S00040.compvsp +++|* (T2) = SERVICE CLASS VALUE IF NO ERROR. 00050 M01S00001.ns2694 +++|* (CN) = JOB COUNT FOR SERVICE CLASS (*CJL$* DEFINED). 00051 M01S00041.compvsp +++|*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00052 M02S00042.v23l617 ---|* USES T2, CM - CM+4, CN - CN+4. 00053 M01S00001.v23l617 +++|* USES T1, T2, CM - CM+4, CN - CN+4. 00054 M01S00043.compvsp +++|* 00055 M01S00044.compvsp +++|* CALLS RJC. 00056 M01S00045.compvsp +++|* 00057 M01S00046.compvsp +++|* XREF COMPRJC, COMSSCD. 00058 M01S00047.compvsp +++| 00059 M01S00048.compvsp +++| 00060 M01S00049.compvsp +++| VSP SUBR ENTRY/EXIT
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00061 M02S00050.v23l617 ---| STD T2 SAVE SERVICE CLASS 00062 M01S00051.compvsp +++| VSP$ IF DEF,VSP$ 00063 M01S00002.v23l617 +++| STD T1 SAVE SERVICE CLASS 00064 M01S00052.compvsp +++| LDN 1 INITIALIZE TABLE INDEX
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00065 M02S00053.v23l617 ---| STD T1
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00066 M02S00054.v23l617 ---| VSP1 LDM TSCP,T1 CHECK FOR VALID SERVICE CLASS 00067 M01S00003.v23l617 +++| STD T2 00068 M01S00004.v23l617 +++| VSP1 LDM TSCP,T2 CHECK FOR VALID SERVICE CLASS 00069 M01S00055.compvsp +++| ZJN VSP2 IF END OF TABLE
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00056.v23l617 ---| LMD T2 00071 M01S00005.v23l617 +++| LMD T1 00072 M01S00057.compvsp +++| ZJN VSP3 IF MATCH FOUND
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00073 M02S00058.v23l617 ---| AOD T1 INCREMENT TABLE INDEX 00074 M01S00006.v23l617 +++| AOD T2 INCREMENT TABLE ENTRY 00075 M01S00059.compvsp +++| UJN VSP1 CHECK NEXT ENTRY 00076 M01S00060.compvsp +++| 00077 M01S00061.compvsp +++| VSP2 LDN 1 INDICATE SERVICE CLASS NOT DEFINED 00078 M01S00062.compvsp +++| UJN VSPX RETURN 00079 M01S00063.compvsp +++| 00080 M01S00064.compvsp +++| VSP3 BSS 0 CONTINUE VALIDATION 00081 M01S00007.v23l617 +++| VSP$ ELSE 00082 M01S00008.v23l617 +++| STD T2 SAVE SERVICE CLASS 00083 M01S00065.compvsp +++| VSP$ ENDIF 00084 M01S00066.compvsp +++| 00085 M01S00067.compvsp +++| CUV$ IF DEF,CUV$ 00086 M01S00068.compvsp +++| LDD T2 00087 M01S00069.compvsp +++| SBN MXJC 00088 M01S00070.compvsp +++| MJN CUV1 IF VALID SERVICE CLASS 00089 M01S00071.compvsp +++| LDN 1 INDICATE SERVICE CLASS NOT DEFINED 00090 M01S00072.compvsp +++| UJP VSPX RETURN 00091 M01S00073.compvsp +++|
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00074.ns2217 ---| ERRPL MXJC-30 VALIDATION MASK LARGER THAN 24 BITS 00093 M01S00075.compvsp +++| CUV1 LDN 4 DETERMINE BYTE INDEX 00094 M01S00076.compvsp +++| STD T4 00095 M01S00077.compvsp +++| LDD T2 00096 M01S00078.compvsp +++| SBN 12D 00097 M01S00079.compvsp +++| MJN CUV2 IF NOT CORRECT BYTE 00098 M01S00080.compvsp +++| SOD T4 SET BYTE INDEX
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00099 M02S00081.273l780 ---| CUV2 LDN JBCP GET JOB CONTROL AREA POINTER 00100 M01S00001.273l780 +++| CUV2 LDK JBCP GET JOB CONTROL AREA POINTER 00101 M01S00082.compvsp +++| CRD CM 00102 M01S00083.compvsp +++| LDD CM GET *SCT* ENTRY FOR ORIGIN TYPE 00103 M01S00084.compvsp +++| SHN 14 00104 M01S00085.compvsp +++| ADD CM+1 00105 M01S00086.compvsp +++| ADD OT 00106 M01S00087.compvsp +++| CRD CM 00107 M01S00088.compvsp +++| LDM TSCM,T2 GET SERVICE CLASS MASK BIT 00108 M01S00089.compvsp +++| ZJN CUV3 IF INVALID SERVICE CLASS 00109 M01S00090.compvsp +++| STM CUVA 00110 M01S00091.compvsp +++| STM CUVB 00111 M01S00092.compvsp +++| LDM CM,T4 CHECK *SCT* ENTRY 00112 M01S00093.compvsp +++| LPC * 00113 M01S00094.compvsp +++| CUVA EQU *-1 (MASK BIT) 00114 M01S00095.compvsp +++| ZJN CUV3 IF NOT VALID 00115 M01S00096.compvsp +++| LDD CP GET ORIGIN TYPE OF CALLER 00116 M01S00097.compvsp +++| ADK JOTW 00117 M01S00098.compvsp +++| CRD CM 00118 M01S00099.compvsp +++| LDD CM+3 00119 M01S00100.compvsp +++| LPN 17 00120 M01S00101.compvsp +++| LMK SYOT 00121 M01S00102.compvsp +++| NJN CUV2.1 IF NOT SYSTEM ORIGIN JOB 00122 M01S00103.compvsp +++| LDD T3 00123 M01S00104.compvsp +++| NJN CUV4 IF SUBSYSTEM OR SSJ= JOB 00124 M01S00105.compvsp +++| REL$ IF DEF,REL$ 00125 M01S00106.compvsp +++| CUV2.1 LDM. CN,T4 CHECK VALIDATION MASK 00126 M01S00107.compvsp +++| REL$ ELSE 00127 M01S00108.compvsp +++| CUV2.1 LDM CN,T4 CHECK VALIDATION MASK 00128 M01S00109.compvsp +++| REL$ ENDIF 00129 M01S00110.compvsp +++| LPC * 00130 M01S00111.compvsp +++| CUVB EQU *-1 (MASK BIT) 00131 M01S00112.compvsp +++| NJN CUV4 IF VALID SERVICE CLASS 00132 M01S00113.compvsp +++| CUV3 ADN 2 INDICATE SERVICE CLASS NOT VALID FOR USER 00133 M01S00114.compvsp +++| UJP VSPX RETURN 00134 M01S00115.compvsp +++| 00135 M01S00116.compvsp +++| CUV4 BSS 0 CONTINUE VALIDATION 00136 M01S00117.compvsp +++| CUV$ ENDIF 00137 M01S00118.compvsp +++| 00138 M01S00119.compvsp +++| CJL$ IF DEF,CJL$ 00139 M01S00120.compvsp +++| LDD T2 00140 M01S00121.compvsp +++| RJM RJC READ JOB CONTROL WORD 00141 M01S00122.compvsp +++| ZJN CJL1 IF NO SERVICE CLASS DEFINED 00142 M01S00123.compvsp +++| ADN SVJT GET SERVICE LIMIT 00143 M01S00124.compvsp +++| CRD CM 00144 M01S00125.compvsp +++| ADN JCTT-SVJT 00145 M01S00126.compvsp +++| CRD CN 00146 M01S00127.compvsp +++| LDD CN 00147 M01S00128.compvsp +++| SBD CM+3 00148 M01S00129.compvsp +++| MJN CJL2 IF BELOW LIMIT 00149 M01S00130.compvsp +++| LDN 2 INDICATE SERVICE CLASS FULL 00150 M01S00131.compvsp +++| CJL1 ADN 1 00151 M01S00132.compvsp +++| UJP VSPX RETURN 00152 M01S00133.compvsp +++| 00153 M01S00134.compvsp +++| CJL2 BSS 0 INDICATE NO ERROR 00154 M01S00135.compvsp +++| CJL$ ENDIF 00155 M01S00136.compvsp +++| 00156 M01S00137.compvsp +++| LDN 0 INDICATE NO ERROR 00157 M01S00138.compvsp +++| UJP VSPX RETURN 00158 M01S00139.compvsp +++| 00159 M01S00140.compvsp +++| CUV$ IF DEF,CUV$ 00160 M01S00141.compvsp +++| TSCM SPACE 4,10 00161 M01S00142.compvsp +++|** TSCM - TABLE OF SERVICE CLASS MASK BIT DEFINITIONS. 00162 M01S00143.compvsp +++|* 00163 M01S00144.compvsp +++|* THIS TABLE IS INDEXED BY SERVICE CLASS. 00164 M01S00145.compvsp +++| 00165 M01S00146.compvsp +++| 00166 M01S00147.compvsp +++| TSCM INDEX
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00167 M02S00148.ns2217 ---| INDEX SYSC,STMK SYSTEM
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00168 M02S00149.ns2217 ---| INDEX BCSC,BCMK BATCH
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00150.ns2217 ---| INDEX RBSC,RBMK REMOTE BATCH
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00151.ns2217 ---| INDEX TSSC,TSMK TIMESHARING
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00152.ns2217 ---| INDEX DISC,DIMK DETACHED INTERACTIVE
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00172 M02S00153.ns2217 ---| INDEX NSSC,NSMK NETWORK SUPERVISOR
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00154.ns2217 ---| INDEX MASC,MAMK MAINTENANCE
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00155.ns2217 ---| INDEX CTSC,CTMK COMMUNICATION TASK
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00156.ns2217 ---| INDEX I0SC,I0MK INSTALLATION CLASS 0
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00157.ns2217 ---| INDEX I1SC,I1MK INSTALLATION CLASS 1
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00177 M02S00158.ns2217 ---| INDEX I2SC,I2MK INSTALLATION CLASS 2
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | ns2217 |
Seq # *Modification Id* Act ----------------------------+ 00178 M02S00159.ns2217 ---| INDEX I3SC,I3MK INSTALLATION CLASS 3 00179 M01S00009.ns2217 +++| LIST D 00180 M01S00010.ns2217 +++| .SCLVSP HERE 00181 M01S00160.compvsp +++| INDEX MXSC 00182 M01S00001.pvsp1 +++| LIST * 00183 M01S00161.compvsp +++| CUV$ ENDIF 00184 M01S00162.compvsp +++| VSP$ IF DEF,VSP$ 00185 M01S00163.compvsp +++| TSCP SPACE 4,10 00186 M01S00164.compvsp +++|** TSCP - TABLE OF SERVICE CLASS PARAMETERS. 00187 M01S00165.compvsp +++| 00188 M01S00166.compvsp +++| 00189 M01S00167.compvsp +++| TSCP BSS 0
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | compvsp |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00190 M02S00168.v23l617 ---| DATA H+NMSC+ 00191 M01S00009.v23l617 +++| DATA H+"NMSC"+ 00192 M01S00169.compvsp +++| CON 0 END OF TABLE 00193 M01S00170.compvsp +++| VSP$ ENDIF 00194 M01S00171.compvsp +++| SPACE 4 00195 M01S00172.compvsp +++| QUAL$ IF -DEF,QUAL$ 00196 M01S00173.compvsp +++| QUAL * 00197 M01S00174.compvsp +++| VSP EQU /COMPVSP/VSP 00198 M01S00175.compvsp +++| QUAL$ ENDIF 00199 M01S00176.compvsp +++| ENDX
cdc/nos2.source/opl.opl871/common/compvsp.txt · Last modified: by 127.0.0.1