Common COMPVSP

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compvsp +++|          CTEXT  COMPVSP - VALIDATE SERVICE CLASS PARAMETER.
00002  M00S00002.compvsp +++|          SPACE  4
00003  M00S00003.compvsp +++| QUAL$    IF     -DEF,QUAL$
00004  M00S00004.compvsp +++|          QUAL   COMPVSP
00005  M00S00005.compvsp +++| QUAL$    ENDIF

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compvsp +++|          SPACE  4
00009  M00S00008.compvsp +++|***       COMPVSP - VALIDATE SERVICE CLASS PARAMETER.
00010  M00S00009.compvsp +++|*
00011  M00S00010.compvsp +++|*         B. M. SLIWINSKI.   82/10/04.
00012  M00S00011.compvsp +++|          SPACE  4,10
00013  M00S00012.compvsp +++|***       *COMPVSP* VALIDATES THE SERVICE CLASS PARAMETER ON COMMANDS.
00014  M00S00013.compvsp +++|*
00015  M00S00014.compvsp +++|*         IF *VSP$* IS DEFINED, THE TWO CHARACTER SERVICE CLASS
00016  M00S00015.compvsp +++|*         PARAMETER IS CHECKED FOR VALIDITY.
00017  M00S00016.compvsp +++|*
00018  M00S00017.compvsp +++|*         IF *CUV$* IS DEFINED, *COMPVSP* WILL ALSO CHECK IF THE
00019  M00S00018.compvsp +++|*         SERVICE CLASS IS VALID FOR THE USER.  THAT IS, IT WILL
00020  M00S00019.compvsp +++|*         CHECK IF THE SERVICE CLASS IS DEFINED IN THE VALIDATION
00021  M00S00020.compvsp +++|*         MASK OF THE USER AND IN THE *SCT* ENTRY FOR THE CURRENT
00022  M00S00021.compvsp +++|*         ORIGIN TYPE OF THE USER.  FOR SUBSYSTEMS AND SSJ= JOBS, ONLY
00023  M00S00022.compvsp +++|*         THE ORIGIN TYPE *SCT* ENTRY WILL BE CHECKED.

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00023.compvsp +++|*
00033  M00S00024.compvsp +++|*         IF *CJL$* IS DEFINED, *COMPVSP* WILL CHECK IF THE NUMBER OF
00034  M00S00025.compvsp +++|*         JOBS CURRENTLY IN THAT SERVICE CLASS IS AT THE SERVICE LIMIT.
00035  M00S00026.compvsp +++|          SPACE  4,10
00036  M00S00027.compvsp +++|**        VSP - VALIDATE SERVICE CLASS PARAMETER.
00037  M00S00028.compvsp +++|*
00038  M00S00029.compvsp +++|*         ENTRY  (A) = TWO CHARACTER DISPLAY CODE SERVICE CLASS
00039  M00S00030.compvsp +++|*                      MNEMONIC RIGHT JUSTIFIED (IF *VSP$* DEFINED).
00040  M00S00031.compvsp +++|*                (A) = SERVICE CLASS VALUE (IF *VSP$* NOT DEFINED).
00041  M00S00032.compvsp +++|*                (OT) = ORIGIN TYPE (IF *CUV$* DEFINED).
00042  M00S00033.compvsp +++|*                (T3) .NE. 0 IF SUBSYSTEM OR SSJ= JOB (*CUV$* DEFINED).
00043  M00S00034.compvsp +++|*                (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK.
00044  M00S00035.compvsp +++|*
00045  M00S00036.compvsp +++|*         EXIT   (A) = 0 IF NO ERROR.
00046  M00S00037.compvsp +++|*                    = 1 IF UNDEFINED SERVICE CLASS MNEMONIC.
00047  M00S00038.compvsp +++|*                    = 2 IF SERVICE CLASS NOT VALID FOR USER.
00048  M00S00039.compvsp +++|*                    = 3 IF SERVICE CLASS AT SERVICE LIMIT.
00049  M00S00040.compvsp +++|*                (T2) = SERVICE CLASS VALUE IF NO ERROR.

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

Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00001.ns2694  +++|*                (CN) = JOB COUNT FOR SERVICE CLASS (*CJL$* DEFINED).
00051  M00S00041.compvsp +++|*

Line S00042 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00042.v23l617 ---|*         USES   T2, CM - CM+4, CN - CN+4.

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

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00001.v23l617 +++|*         USES   T1, T2, CM - CM+4, CN - CN+4.
00054  M00S00043.compvsp +++|*
00055  M00S00044.compvsp +++|*         CALLS  RJC.
00056  M00S00045.compvsp +++|*
00057  M00S00046.compvsp +++|*         XREF   COMPRJC, COMSSCD.
00058  M00S00047.compvsp +++|
00059  M00S00048.compvsp +++|
00060  M00S00049.compvsp +++| VSP      SUBR               ENTRY/EXIT

Line S00050 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00050.v23l617 ---|          STD    T2          SAVE SERVICE CLASS
00062  M00S00051.compvsp ---| VSP$     IF     DEF,VSP$

Line S00002 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00002.v23l617 +++|          STD    T1          SAVE SERVICE CLASS
00064  M00S00052.compvsp +++|          LDN    1           INITIALIZE TABLE INDEX

Line S00053 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00053.v23l617 ---|          STD    T1
00066  M01S00054.v23l617 ---| VSP1     LDM    TSCP,T1     CHECK FOR VALID SERVICE CLASS

Line S00003 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00003.v23l617 +++|          STD    T2
00068  M01S00004.v23l617 +++| VSP1     LDM    TSCP,T2     CHECK FOR VALID SERVICE CLASS
00069  M00S00055.compvsp +++|          ZJN    VSP2        IF END OF TABLE

Line S00056 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00056.v23l617 ---|          LMD    T2

Line S00005 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00005.v23l617 +++|          LMD    T1
00072  M00S00057.compvsp +++|          ZJN    VSP3        IF MATCH FOUND

Line S00058 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00058.v23l617 ---|          AOD    T1          INCREMENT TABLE INDEX

Line S00006 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00074  M01S00006.v23l617 +++|          AOD    T2          INCREMENT TABLE ENTRY
00075  M00S00059.compvsp +++|          UJN    VSP1        CHECK NEXT ENTRY
00076  M00S00060.compvsp +++|
00077  M00S00061.compvsp +++| VSP2     LDN    1           INDICATE SERVICE CLASS NOT DEFINED
00078  M00S00062.compvsp +++|          UJN    VSPX        RETURN
00079  M00S00063.compvsp +++|
00080  M00S00064.compvsp +++| VSP3     BSS    0           CONTINUE VALIDATION
00081  M01S00007.v23l617 +++| VSP$     ELSE
00082  M01S00008.v23l617 +++|          STD    T2          SAVE SERVICE CLASS
00083  M00S00065.compvsp +++| VSP$     ENDIF
00084  M00S00066.compvsp +++|
00085  M00S00067.compvsp +++| CUV$     IF     DEF,CUV$
00086  M00S00068.compvsp +++|          LDD    T2
00087  M00S00069.compvsp +++|          SBN    MXJC
00088  M00S00070.compvsp +++|          MJN    CUV1        IF VALID SERVICE CLASS
00089  M00S00071.compvsp +++|          LDN    1           INDICATE SERVICE CLASS NOT DEFINED
00090  M00S00072.compvsp +++|          UJP    VSPX        RETURN
00091  M00S00073.compvsp +++|

Line S00074 Modification History
`M01` (Removed by)	`ns2217`

Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00074.ns2217  ---|          ERRPL  MXJC-30     VALIDATION MASK LARGER THAN 24 BITS
00093  M00S00075.compvsp ---| CUV1     LDN    4           DETERMINE BYTE INDEX
00094  M00S00076.compvsp ---|          STD    T4
00095  M00S00077.compvsp ---|          LDD    T2
00096  M00S00078.compvsp ---|          SBN    12D
00097  M00S00079.compvsp ---|          MJN    CUV2        IF NOT CORRECT BYTE
00098  M00S00080.compvsp ---|          SOD    T4          SET BYTE INDEX

Line S00081 Modification History
`M01` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00081.273l780 ---| CUV2     LDN    JBCP        GET JOB CONTROL AREA POINTER

Line S00001 Modification History
`M01` (Added by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00001.273l780 +++| CUV2     LDK    JBCP        GET JOB CONTROL AREA POINTER
00101  M00S00082.compvsp +++|          CRD    CM
00102  M00S00083.compvsp +++|          LDD    CM          GET *SCT* ENTRY FOR ORIGIN TYPE
00103  M00S00084.compvsp +++|          SHN    14
00104  M00S00085.compvsp +++|          ADD    CM+1
00105  M00S00086.compvsp +++|          ADD    OT
00106  M00S00087.compvsp +++|          CRD    CM
00107  M00S00088.compvsp +++|          LDM    TSCM,T2     GET SERVICE CLASS MASK BIT
00108  M00S00089.compvsp +++|          ZJN    CUV3        IF INVALID SERVICE CLASS
00109  M00S00090.compvsp +++|          STM    CUVA
00110  M00S00091.compvsp +++|          STM    CUVB
00111  M00S00092.compvsp +++|          LDM    CM,T4       CHECK *SCT* ENTRY
00112  M00S00093.compvsp +++|          LPC    *
00113  M00S00094.compvsp +++| CUVA     EQU    *-1         (MASK BIT)
00114  M00S00095.compvsp +++|          ZJN    CUV3        IF NOT VALID
00115  M00S00096.compvsp +++|          LDD    CP          GET ORIGIN TYPE OF CALLER
00116  M00S00097.compvsp +++|          ADK    JOTW
00117  M00S00098.compvsp +++|          CRD    CM
00118  M00S00099.compvsp +++|          LDD    CM+3
00119  M00S00100.compvsp +++|          LPN    17
00120  M00S00101.compvsp +++|          LMK    SYOT
00121  M00S00102.compvsp +++|          NJN    CUV2.1      IF NOT SYSTEM ORIGIN JOB
00122  M00S00103.compvsp +++|          LDD    T3
00123  M00S00104.compvsp +++|          NJN    CUV4        IF SUBSYSTEM OR SSJ= JOB
00124  M00S00105.compvsp +++| REL$     IF     DEF,REL$
00125  M00S00106.compvsp +++| CUV2.1   LDM.   CN,T4       CHECK VALIDATION MASK
00126  M00S00107.compvsp +++| REL$     ELSE
00127  M00S00108.compvsp +++| CUV2.1   LDM    CN,T4       CHECK VALIDATION MASK
00128  M00S00109.compvsp +++| REL$     ENDIF
00129  M00S00110.compvsp +++|          LPC    *
00130  M00S00111.compvsp +++| CUVB     EQU    *-1         (MASK BIT)
00131  M00S00112.compvsp +++|          NJN    CUV4        IF VALID SERVICE CLASS
00132  M00S00113.compvsp +++| CUV3     ADN    2           INDICATE SERVICE CLASS NOT VALID FOR USER
00133  M00S00114.compvsp +++|          UJP    VSPX        RETURN
00134  M00S00115.compvsp +++|
00135  M00S00116.compvsp +++| CUV4     BSS    0           CONTINUE VALIDATION
00136  M00S00117.compvsp +++| CUV$     ENDIF
00137  M00S00118.compvsp +++|
00138  M00S00119.compvsp +++| CJL$     IF     DEF,CJL$
00139  M00S00120.compvsp +++|          LDD    T2
00140  M00S00121.compvsp +++|          RJM    RJC         READ JOB CONTROL WORD
00141  M00S00122.compvsp +++|          ZJN    CJL1        IF NO SERVICE CLASS DEFINED
00142  M00S00123.compvsp +++|          ADN    SVJT        GET SERVICE LIMIT
00143  M00S00124.compvsp +++|          CRD    CM
00144  M00S00125.compvsp +++|          ADN    JCTT-SVJT
00145  M00S00126.compvsp +++|          CRD    CN
00146  M00S00127.compvsp +++|          LDD    CN
00147  M00S00128.compvsp +++|          SBD    CM+3
00148  M00S00129.compvsp +++|          MJN    CJL2        IF BELOW LIMIT
00149  M00S00130.compvsp +++|          LDN    2           INDICATE SERVICE CLASS FULL
00150  M00S00131.compvsp +++| CJL1     ADN    1
00151  M00S00132.compvsp +++|          UJP    VSPX        RETURN
00152  M00S00133.compvsp +++|
00153  M00S00134.compvsp +++| CJL2     BSS    0           INDICATE NO ERROR
00154  M00S00135.compvsp +++| CJL$     ENDIF
00155  M00S00136.compvsp +++|
00156  M00S00137.compvsp +++|          LDN    0           INDICATE NO ERROR
00157  M00S00138.compvsp +++|          UJP    VSPX        RETURN
00158  M00S00139.compvsp +++|
00159  M00S00140.compvsp +++| CUV$     IF     DEF,CUV$
00160  M00S00141.compvsp +++| TSCM     SPACE  4,10
00161  M00S00142.compvsp +++|**        TSCM - TABLE OF SERVICE CLASS MASK BIT DEFINITIONS.
00162  M00S00143.compvsp +++|*
00163  M00S00144.compvsp +++|*         THIS TABLE IS INDEXED BY SERVICE CLASS.
00164  M00S00145.compvsp +++|
00165  M00S00146.compvsp +++|
00166  M00S00147.compvsp +++| TSCM     INDEX

Line S00148 Modification History
`M01` (Removed by)	`ns2217`

Seq #  *Modification Id* Act 
----------------------------+
00167  M01S00148.ns2217  ---|          INDEX  SYSC,STMK   SYSTEM
00168  M01S00149.ns2217  ---|          INDEX  BCSC,BCMK   BATCH
00169  M01S00150.ns2217  ---|          INDEX  RBSC,RBMK   REMOTE BATCH
00170  M01S00151.ns2217  ---|          INDEX  TSSC,TSMK   TIMESHARING
00171  M01S00152.ns2217  ---|          INDEX  DISC,DIMK   DETACHED INTERACTIVE
00172  M01S00153.ns2217  ---|          INDEX  NSSC,NSMK   NETWORK SUPERVISOR
00173  M01S00154.ns2217  ---|          INDEX  MASC,MAMK   MAINTENANCE
00174  M01S00155.ns2217  ---|          INDEX  CTSC,CTMK   COMMUNICATION TASK
00175  M01S00156.ns2217  ---|          INDEX  I0SC,I0MK   INSTALLATION CLASS 0
00176  M01S00157.ns2217  ---|          INDEX  I1SC,I1MK   INSTALLATION CLASS 1
00177  M01S00158.ns2217  ---|          INDEX  I2SC,I2MK   INSTALLATION CLASS 2
00178  M01S00159.ns2217  ---|          INDEX  I3SC,I3MK   INSTALLATION CLASS 3

Line S00009 Modification History
`M01` (Added by)	`ns2217`

Seq #  *Modification Id* Act 
----------------------------+
00179  M01S00009.ns2217  +++|          LIST   D
00180  M01S00010.ns2217  +++| .SCLVSP  HERE
00181  M00S00160.compvsp +++|          INDEX  MXSC

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

Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00001.pvsp1   +++|          LIST   *
00183  M00S00161.compvsp +++| CUV$     ENDIF
00184  M00S00162.compvsp +++| VSP$     IF     DEF,VSP$
00185  M00S00163.compvsp +++| TSCP     SPACE  4,10
00186  M00S00164.compvsp +++|**        TSCP - TABLE OF SERVICE CLASS PARAMETERS.
00187  M00S00165.compvsp +++|
00188  M00S00166.compvsp +++|
00189  M00S00167.compvsp +++| TSCP     BSS    0

Line S00168 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00168.v23l617 ---|          DATA   H+NMSC+

Line S00009 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00191  M01S00009.v23l617 +++|          DATA   H+"NMSC"+
00192  M00S00169.compvsp +++|          CON    0           END OF TABLE
00193  M00S00170.compvsp +++| VSP$     ENDIF
00194  M00S00171.compvsp +++|          SPACE  4
00195  M00S00172.compvsp +++| QUAL$    IF     -DEF,QUAL$
00196  M00S00173.compvsp +++|          QUAL   *
00197  M00S00174.compvsp +++| VSP      EQU    /COMPVSP/VSP
00198  M00S00175.compvsp +++| QUAL$    ENDIF
00199  M00S00176.compvsp +++|          ENDX