User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0vu

Deck 0VU

16 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0vu     +++|          IDENT  0VU,/REL/RVUX
00002  M01S00002.0vu     +++|          PERIPH J
00003  M01S00003.0vu     +++|          BASE   MIXED
00004  M01S00004.0vu     +++|          SST
00005  M01S00005.0vu     +++| QUAL$    EQU    1
00006  M01S00006.0vu     +++|*COMMENT  0VU - VERIFY USER AND JOB.
Line S00007 Modification History
M01 (Added by) 0vu
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1983.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.0vu     +++|          TITLE  0VU - VERIFY USER AND JOB.
00010  M01S00009.0vu     +++|          SPACE  4,10
00011  M01S00010.0vu     +++|***       0VU - VERIFY USER AND JOB.
00012  M01S00011.0vu     +++|*         P. C. SMITH.       83/02/11.
00013  M01S00012.0vu     +++|          SPACE  4,10
00014  M01S00013.0vu     +++|***       *0VU* VALIDATES THE USER NAME SPECIFIED AND THE JOB
00015  M01S00014.0vu     +++|*         TO BE CREATED.  *0VU* IS CALLED BY *0VJ*.
00016  M01S00015.0vu     +++|          SPACE  4,10
00017  M01S00016.0vu     +++|***       ENTRY CONDITIONS.
00018  M01S00017.0vu     +++|*
00019  M01S00018.0vu     +++|*         (OT) = ORIGIN TYPE OF JOB TO BE CREATED.
00020  M01S00019.0vu     +++|*         (BFMS) = SYSTEM SECTOR.
00021  M01S00020.0vu     +++|*
00022  M01S00021.0vu     +++|*         SEE *COMS0VU* FOR MORE CONDITIONS.
00023  M01S00022.0vu     +++|          SPACE  4,10
00024  M01S00023.0vu     +++|***       EXIT CONDITIONS.
00025  M01S00001.242l642 +++|*
00026  M01S00002.242l642 +++|*         (A) .GE. 0.
00027  M01S00024.0vu     +++|*
00028  M01S00025.0vu     +++|*         SYSTEM SECTOR INITIALIZATION COMPLETED.
00029  M01S00026.0vu     +++|*
00030  M01S00027.0vu     +++|*         *0VU* RETURNS DIRECTLY TO THE PROGRAM THAT CALLED *0VJ*.
00031  M01S00028.0vu     +++|*
00032  M01S00029.0vu     +++|*         SEE *0VJ* DOCUMENTATION FOR MORE CONDITIONS.
00033  M01S00030.0vu     +++|          SPACE  4,10
00034  M01S00031.0vu     +++|          TITLE  MACRO DEFINITIONS.
00035  M01S00032.0vu     +++| PARAM    SPACE  4,10
00036  M01S00033.0vu     +++|**        PARAM - DEFINE *0VJ*/*0VU* INTERFACE PARAMETER.
00037  M01S00034.0vu     +++|*
00038  M01S00035.0vu     +++|* TAG     PARAM  NUM,VAL
00039  M01S00036.0vu     +++|*
00040  M01S00037.0vu     +++|*         ENTRY  TAG = SYMBOLIC NAME FOR LOCATION(S).
00041  M01S00038.0vu     +++|*                NUM = NUMBER OF LOCATIONS TO RESERVE.
00042  M01S00039.0vu     +++|*                      (IF NUM = *FIRST*, INITIALIZE BLOCK;
00043  M01S00040.0vu     +++|*                       IF NUM = *LAST*, TERMINATE BLOCK.)
00044  M01S00041.0vu     +++|*                VAL = VALUE TO PRESET LOCATION(S) WITH
00045  M01S00042.0vu     +++|*                      (USED ONLY IN *0VJ* VERSION OF MACRO).
00046  M01S00043.0vu     +++|
00047  M01S00044.0vu     +++|
00048  M01S00045.0vu     +++|          PURGMAC  PARAM
00049  M01S00046.0vu     +++|
00050  M01S00047.0vu     +++|          MACRO  PARAM,TAG,NUM,VAL
00051  M01S00048.0vu     +++| .A       IFC    EQ,$VAL$$
00052  M01S00049.0vu     +++| .B       IFC    EQ,$NUM$FIRST$
00053  M01S00050.0vu     +++|          LOC    -ZVPL-5
00054  M01S00051.0vu     +++| TAG      EQU    *
00055  M01S00052.0vu     +++| .B       ELSE
00056  M01S00053.0vu     +++| .C       IFC    EQ,$NUM$LAST$
00057  M01S00054.0vu     +++| TAG      EQU    *
00058  M01S00055.0vu     +++|          ERRNZ  *+5         PARAMETER BLOCK LENGTH ERROR
00059  M01S00056.0vu     +++|          LOC    *O
00060  M01S00057.0vu     +++| .C       ELSE
00061  M01S00058.0vu     +++|          ERR                MISSING PARAMETER
00062  M01S00059.0vu     +++| .C       ENDIF
00063  M01S00060.0vu     +++| .B       ENDIF
00064  M01S00061.0vu     +++| .A       ELSE
00065  M01S00062.0vu     +++| TAG      EQU    *
00066  M01S00063.0vu     +++|          LOC    *+NUM
00067  M01S00064.0vu     +++| .A       ENDIF
00068  M01S00065.0vu     +++|          ENDM
00069  M01S00001.ns2217  +++| SCLASS   SPACE  4,15
00070  M01S00002.ns2217  +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00071  M01S00003.ns2217  +++|*
00072  M01S00004.ns2217  +++|*         SCLASS NM,MN,DF,ST,TX
00073  M01S00005.ns2217  +++|*
00074  M01S00006.ns2217  +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00075  M01S00007.ns2217  +++|*                *MN* = TWO CHARACTER MNEMONIC.
00076  M01S00008.ns2217  +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00077  M01S00009.ns2217  +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00078  M01S00010.ns2217  +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00079  M01S00011.ns2217  +++|*
00080  M01S00012.ns2217  +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00081  M01S00013.ns2217  +++|*                THIS MACRO.
00082  M01S00014.ns2217  +++|
00083  M01S00015.ns2217  +++|
00084  M01S00016.ns2217  +++|          PURGMAC  SCLASS
00085  M01S00017.ns2217  +++|
00086  M01S00018.ns2217  +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00087  M01S00019.ns2217  +++| .A       IFC    NE,$NM$SSSC$
00088  M01S00020.ns2217  +++| .SCL     RMT
00089  M01S00021.ns2217  +++|          INDEX  NM,1R_DF    TX
00090  M01S00022.ns2217  +++| .SCL     RMT
00091  M01S00023.ns2217  +++| .SCLVSP  RMT
00092  M01S00024.ns2217  +++|          INDEX  NM,MN_MK    TX
00093  M01S00025.ns2217  +++| .SCLVSP  RMT
00094  M01S00026.ns2217  +++| .A       ENDIF
00095  M01S00027.ns2217  +++| SCLASS   ENDM
00096  M01S00028.ns2217  +++|
00097  M01S00029.ns2217  +++|
00098  M01S00066.0vu     +++| COMMON   SPACE  4,10
00099  M01S00067.0vu     +++|**        COMMON DECKS.
00100  M01S00068.0vu     +++|
00101  M01S00069.0vu     +++|
00102  M01S00070.0vu     +++|*CALL     COMPMAC
00103  M01S00071.0vu     +++|*CALL     COMPRLI
00104  M01S00072.0vu     +++|*CALL     COMSACC
00105  M01S00073.0vu     +++|*CALL     COMSCPS
00106  M01S00074.0vu     +++|*CALL     COMSDSP
00107  M01S00075.0vu     +++|*CALL     COMSPIM
00108  M01S00030.ns2217  +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00109  M01S00076.0vu     +++|*CALL     COMSSCD
Line S00001 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00001.ns2601  ---|*CALL,COMSMLS
00111  M01S00001.ns2601  +++|*CALL     COMSMLS
00112  M01S00077.0vu     +++|*CALL     COMSSSE
00113  M01S00078.0vu     +++|*CALL     COMSZOL
00114  M01S00079.0vu     +++|          SPACE  4,10
00115  M01S00080.0vu     +++|          LIST   X,G
00116  M01S00081.0vu     +++|*CALL     COMS0VU
00117  M01S00082.0vu     +++|          LIST   *
00118  M01S00083.0vu     +++|          SPACE  4,10
00119  M01S00084.0vu     +++|****      DIRECT CELLS.
00120  M01S00085.0vu     +++|
00121  M01S00002.ns2601  +++| T8       EQU    16          TEMPORARY STORAGE (USED BY *COMPVID*)
00122  M01S00086.0vu     +++| CN       EQU    30 - 34     ASSEMBLY BUFFER
00123  M01S00087.0vu     +++| JF       EQU    35          INITIAL JOB FIELD LENGTH
00124  M01S00003.ns2601  +++| UN       EQU    40 - 44     TEMPORARY STORAGE (USED BY *COMPVID*)
00125  M01S00088.0vu     +++| OT       EQU    46          ORIGIN TYPE
00126  M01S00089.0vu     +++| ER       EQU    47          ERROR STATUS
00127  M01S00090.0vu     +++|
00128  M01S00091.0vu     +++|****
00129  M01S00092.0vu     +++|          TITLE  MAIN ROUTINE.
00130  M01S00093.0vu     +++| RVU      SPACE  4,10
00131  M01S00094.0vu     +++|**        RVU - MAIN ROUTINE.
00132  M01S00095.0vu     +++|
00133  M01S00096.0vu     +++|          ORG    5
00134  M01S00097.0vu     +++|
00135  M01S00098.0vu     +++| RVU      SUBR               ENTRY/EXIT
00136  M01S00099.0vu     +++|          RJM    REL         RELOCATE ADDRESSES
00137  M01S00100.0vu     +++|          LDM    ZVJR        SET *0VJ* RETURN ADDRESS
00138  M01S00101.0vu     +++|          STM    RVU
00139  M01S00004.ns2601  +++|          RJM    VST         VALIDATE *ST* PARAMETER
Line S00102 Modification History
M01 (Added by) 0vu
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00102.v23l617 ---|          RJM    RUA         READ USER ACCOUNTING BLOCK
00141  M01S00002.v23l617 +++|          LDM    SCAL
Line S00003 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00003.ns2601  ---|          ZJN    RVU0.1      IF NO ACCESS LEVEL SPECIFIED
00143  M01S00005.ns2601  +++|          ZJN    RVU1.1      IF NO ACCESS LEVEL SPECIFIED
00144  M01S00004.v23l617 +++|          LDC.   SCAL
00145  M01S00005.v23l617 +++|          RJM    VAL         VALIDATE ACCESS LEVEL
Line S00006 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00006.ns2601  ---|          PJN    RVU0        IF NO ERROR
00147  M01S00006.ns2601  +++|          PJN    RVU1        IF NO ERROR
00148  M01S00007.v23l617 +++|          AOM    JCEF        SET ERROR FLAG
Line S00008 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00008.ns2601  ---|          UJN    RVU0.1      CONTINUE
00150  M01S00007.ns2601  +++|          UJN    RVU1.1      CONTINUE
00151  M01S00009.v23l617 +++|
Line S00010 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00010.ns2601  ---| RVU0     STM    UALL        SAVE ACCESS LEVEL
00153  M01S00008.ns2601  +++| RVU1     STM    UALL        SAVE ACCESS LEVEL
00154  M01S00011.v23l617 +++|          STM    JCAL
Line S00012 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00012.ns2601  ---| RVU0.1   RJM    RUA         READ USER ACCOUNTING BLOCK
00156  M01S00009.ns2601  +++| RVU1.1   RJM    RUA         READ USER ACCOUNTING BLOCK
00157  M01S00103.0vu     +++|
Line S00104 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2516a
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00104.ns2516a ---|*         VALIDATE SERVICE CLASS.
00159  M01S00001.ns2516a +++|*         VALIDATE SERVICE CLASS AND TIME LIMIT.
00160  M01S00105.0vu     +++|
00161  M01S00106.0vu     +++|          RJM    VSC         VALIDATE SERVICE CLASS
00162  M01S00002.ns2516a +++|          RJM    VTL         VALIDATE TIME LIMIT
00163  M01S00107.0vu     +++|
00164  M01S00108.0vu     +++|*         VALIDATE SECURITY ACCESS LEVELS AND CATEGORIES.
00165  M01S00109.0vu     +++|
Line S00110 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2601
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00110.ns2601  ---| RVU1     LDD    MA          SET VALIDATIONS FROM SYSTEM SECTOR
00167  M01S00010.ns2601  +++|          LDD    MA          SET VALIDATIONS FROM SYSTEM SECTOR
00168  M01S00111.0vu     +++|          CWM.   VASS+5*ASVW,ON
00169  M01S00112.0vu     +++|          LDM    UCNV
Line S00113 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2243
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00113.ns2243  ---|          ZJN    RVU2        IF USER COMMAND VALID
Line S00001 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00001.ns2727  ---|          ZJN    RVU2        IF USER COMMAND REQUIRED AND VALID
00172  M01S00001.ns2727  +++|          ZJN    RVU2        IF *USER* COMMAND VALID
00173  M01S00114.0vu     +++|          LDD    MA          SET UNLIMITED ACCESS LEVEL VALIDATIONS
00174  M01S00115.0vu     +++|          CWM    RVUA,ON
00175  M01S00001.0vu2    +++|          LDM    SCAL
00176  M01S00002.0vu2    +++|          NJN    RVU2        IF ACCESS LEVEL SPECIFIED ON JOB COMMAND
00177  M01S00003.0vu2    +++|          LDN    7           SET MAXIMUM UPPER ACCESS LEVEL LIMIT
00178  M01S00004.0vu2    +++|          STM    UALL
00179  M01S00116.0vu     +++| RVU2     LDD    OT
00180  M01S00117.0vu     +++|          STD    CM+2
Line S00118 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00118.ns2202  ---|          LDM    LALL        SET LOWER ACCESS LEVEL LIMIT
00182  M01S00001.ns2202  +++|          LDM    LFAL        SET INITIAL JOB ACCESS LEVEL
00183  M01S00119.0vu     +++|          STD    CM+4
00184  M01S00120.0vu     +++|          LDM    UALL        SET UPPER ACCESS LEVEL LIMIT
00185  M01S00121.0vu     +++|          STD    CM+3
00186  M01S00122.0vu     +++|          LDN    VJCS        VALIDATE JOB CREATION PARAMETERS
00187  M01S00123.0vu     +++|          STD    CM+1
00188  M01S00124.0vu     +++|          MONITOR  VSAM
00189  M01S00125.0vu     +++|          LDD    CM+1
Line S00126 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00126.ns2202  ---|          NJN    RVU4        IF JOB MAY NOT BE CREATED
00191  M01S00002.ns2202  +++|          NJN    RVU2.1      IF JOB MAY NOT BE CREATED
00192  M01S00127.0vu     +++|          LDK    SSML        CHECK SYSTEM SECURITY MODE
00193  M01S00128.0vu     +++|          CRD    T0
00194  M01S00129.0vu     +++|          LDD    T0
00195  M01S00130.0vu     +++|          LPN    77
00196  M01S00131.0vu     +++|          ZJN    RVU3        IF UNSECURED SYSTEM
00197  M01S00132.0vu     +++|          LDM    JCAL        CHECK IF JOB COMMAND ACCESS LEVEL VALID
00198  M01S00133.0vu     +++|          LMN    77
00199  M01S00134.0vu     +++|          ZJN    RVU3        IF NO ACCESS LEVEL ON JOB COMMAND
00200  M01S00135.0vu     +++|          LMN    77
00201  M01S00136.0vu     +++|          LMD    CM+3
Line S00137 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00137.ns2202  ---|          NJN    RVU4        IF SPECIFIED ACCESS LEVEL NOT VALID
00203  M01S00003.ns2202  +++| RVU2.1   NJN    RVU4        IF SPECIFIED ACCESS LEVEL NOT VALID
00204  M01S00138.0vu     +++| RVU3     LDD    MA          UPDATE VALIDATION ENTRY IN SYSTEM SECTOR
00205  M01S00139.0vu     +++|          CRM.   VASS+5*ASVW,ON
00206  M01S00140.0vu     +++|          LDM.   IOSS+5*INSQ+3  SET ACCESS LEVEL LIMITS IN QFT ENTRY
Line S00141 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00141.ns2202  ---|          SCN    77
Line S00142 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00142.ns2202  ---|          SHN    -3
Line S00143 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00209  M02S00143.ns2202  ---|          LMD    CM+4
00210  M01S00004.ns2202  +++|          SHN    -11
00211  M01S00005.ns2202  +++|          SHN    3
00212  M01S00006.ns2202  +++|          LMD    CM+4        LOWER ACCESS LEVEL LIMIT
00213  M01S00144.0vu     +++|          SHN    3
Line S00145 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2202
Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00145.ns2202  ---|          LMD    CM+3
00215  M01S00007.ns2202  +++|          LMD    CM+2        INITIAL JOB ACCESS LEVEL
00216  M01S00008.ns2202  +++|          SHN    3
00217  M01S00009.ns2202  +++|          LMD    CM+3        UPPER ACCESS LEVEL LIMIT
00218  M01S00146.0vu     +++|          STM.   IOSS+5*INSQ+3
00219  M01S00147.0vu     +++|          UJN    RVU5        CHECK LID ATTRIBUTES
00220  M01S00148.0vu     +++|
00221  M01S00149.0vu     +++|*         SET *JOB COMMAND ERROR* STATUS.
00222  M01S00150.0vu     +++|
00223  M01S00151.0vu     +++| RVU4     LDN    JCIE        SET JOB COMMAND ERROR CODE
00224  M01S00152.0vu     +++|          STM    JCEC
00225  M01S00153.0vu     +++|          AOM    JCEF        FLAG JOB COMMAND ERROR
00226  M01S00154.0vu     +++|
00227  M01S00155.0vu     +++|*         CHECK VALIDATIONS FOR SPECIFYING LID.
00228  M01S00156.0vu     +++|
00229  M01S00157.0vu     +++| RVU5     LDM    DLAT
00230  M01S00158.0vu     +++|          ZJP    RVU8        IF DESTINATION LID NOT SPECIFIED
Line S00159 Modification History
M01 (Added by) 0vu
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00159.v23l617 ---|          SHN    21-10
00232  M01S00013.v23l617 +++|          SHN    21-11
00233  M01S00160.0vu     +++|          PJN    RVU7        IF VALIDATION NOT REQUIRED FOR DLID
00234  M01S00161.0vu     +++|          LDM    UCNV
Line S00162 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2243
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00162.ns2243  ---|          NJP    RVU7        IF USER COMMAND NOT VALID
Line S00002 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00002.ns2420  ---|          NJP    RVU7        IF NO VALIDATION REQUIRED/*USER* NOT VALID
00237  M01S00001.ns2420  +++|          NJN    RVU7        IF *USER* NOT VALID
00238  M01S00163.0vu     +++|          LDM.   AWSS+3      CHECK USER VALIDATIONS
00239  M01S00164.0vu     +++|          SHN    21-5
00240  M01S00165.0vu     +++|          PJN    RVU6        IF NOT VALIDATED TO SPECIFY LID (*CUST*)
00241  M01S00166.0vu     +++|          SHN    21-4-21+5
00242  M01S00167.0vu     +++|          MJN    RVU7        IF VALIDATED TO USE LCN (*CQLK*)
00243  M01S00168.0vu     +++|          LDM    DLAT
Line S00169 Modification History
M01 (Added by) 0vu
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00169.v23l617 ---|          SHN    21-12
Line S00170 Modification History
M01 (Added by) 0vu
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00170.v23l617 ---|          PJN    RVU7        IF NOT *LINKED* LID
00246  M01S00014.v23l617 +++|          SHN    21-13
00247  M01S00015.v23l617 +++|          MJN    RVU7        IF HOST LID
00248  M01S00171.0vu     +++|
00249  M01S00172.0vu     +++|*         SET *INVALID LID* ERROR STATUS.
00250  M01S00173.0vu     +++|
00251  M01S00174.0vu     +++| RVU6     LDN    STIE        SET ERROR CODE
00252  M01S00175.0vu     +++|          STM    JCEC
00253  M01S00176.0vu     +++|          AOM    JCEF        FLAG *JOB COMMAND ERROR*
00254  M01S00177.0vu     +++|          LDN    0           CLEAR ATTRIBUTES
00255  M01S00178.0vu     +++|          STM    DLAT
00256  M01S00179.0vu     +++|          STM    DLID        CLEAR DLID
00257  M01S00180.0vu     +++|          STM    DLID+1
00258  M01S00181.0vu     +++|
00259  M01S00182.0vu     +++|*         SET DESTINATION LID IN QFT / SYSTEM SECTOR.
00260  M01S00183.0vu     +++|
00261  M01S00184.0vu     +++| RVU7     LDM    DLID        SET DLID
00262  M01S00185.0vu     +++|          STM.   IOSS+INSQ*5+1
00263  M01S00186.0vu     +++|          LDM.   IOSS+INSQ*5+2
00264  M01S00187.0vu     +++|          LPN    77
00265  M01S00188.0vu     +++|          LMM    DLID+1
00266  M01S00189.0vu     +++|          STM.   IOSS+INSQ*5+2
00267  M01S00190.0vu     +++|
00268  M01S00191.0vu     +++|*         RETURN STATUS TO *0VJ* CALLER.
00269  M01S00192.0vu     +++|
00270  M01S00193.0vu     +++| RVU8     LDN    0           CLEAR RETURN STATUS
00271  M01S00194.0vu     +++|          STD    ER
00272  M01S00195.0vu     +++|          LDM    DLAT        RETURN DLID ATTRIBUTES
00273  M01S00196.0vu     +++|          STD    CN
00274  M01S00197.0vu     +++|          ZJN    RVU9        IF NO DLID SPECIFIED
00275  M01S00198.0vu     +++|          SHN    21-13
00276  M01S00199.0vu     +++|          PJN    RVU10       IF DLID NOT *HOST* LID
00277  M01S00200.0vu     +++| RVU9     LDM    JCEF
00278  M01S00201.0vu     +++|          ZJN    RVU10       IF NO JOB COMMAND ERROR
00279  M01S00202.0vu     +++|          LDM    JCEC        SET JOB COMMAND ERROR CODE
00280  M01S00203.0vu     +++|          STM.   JASS
00281  M01S00204.0vu     +++|          LDN    1           SET *JOB COMMAND ERROR* RETURN STATUS
00282  M01S00205.0vu     +++|          STD    ER
00283  M01S00206.0vu     +++|          LDN    DNFL        SET FIELD LENGTH FOR NFL ONLY
00284  M01S00207.0vu     +++|          STD    JF
00285  M01S00208.0vu     +++|          LDN    0           SET JOB STEP TIME LIMIT = 10B
00286  M01S00209.0vu     +++|          STM.   JTSS
00287  M01S00210.0vu     +++|          LDN    10
00288  M01S00211.0vu     +++|          STM.   JTSS+1
00289  M01S00001.ns2168  +++|          LDM    JCEC
00290  M01S00002.ns2168  +++|          LMN    IDIE
00291  M01S00003.ns2168  +++|          ZJN    RVU12       IF *INVALID LID* ERROR
00292  M01S00212.0vu     +++| RVU10    LDM    UCNV
Line S00213 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2243
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00213.ns2243  ---|          ZJN    RVU12       IF USER COMMAND VALID
Line S00003 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00003.ns2420  ---|          ZJN    RVU12       IF USER COMMAND REQUIRED AND VALID
Line S00214 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00214.ns2420  ---|          LDM    DLAT
Line S00215 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00215.ns2420  ---|          ZJN    RVU11       IF NO DLID SPECIFIED
Line S00216 Modification History
M01 (Added by) 0vu
M02 (Updated by) v23l617
M03 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00297  M03S00216.ns2420  ---|          SHN    21-10
Line S00016 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00016.ns2420  ---|          SHN    21-11
Line S00217 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00217.ns2420  ---|          PJN    RVU12       IF VALIDATION NOT REQUIRED FOR DLID
Line S00218 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00218.ns2420  ---| RVU11    LDM    ZVJP
00301  M01S00002.ns2420  +++|          ZJN    RVU12       IF USER COMMAND VALID
00302  M01S00003.ns2420  +++|          LDM    ZVJP
00303  M01S00219.0vu     +++|          SHN    21-11
Line S00220 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00220.ns2420  ---|          MJN    RVU11.1     IF JOB WILL BE ROUTED TO SYSTEM ORIGIN
00305  M01S00004.ns2420  +++|          MJN    RVU11       IF JOB WILL BE ROUTED TO SYSTEM ORIGIN
00306  M01S00221.0vu     +++| RVUB     LDN    UNIE        * USER NAME/PASSWORD NOT VALID.*
00307  M01S00222.0vu     +++|*         LDN    UCIE        * USER SECURITY COUNT EXHAUSTED.*
00308  M01S00223.0vu     +++|          STM.   JASS        SET JOB COMMAND ERROR CODE
Line S00224 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00224.ns2420  ---| RVU11.1  LDN    3           SET *USER COMMAND ERROR* RETURN STATUS
00310  M01S00005.ns2420  +++| RVU11    LDN    3           SET *USER COMMAND ERROR* RETURN STATUS
00311  M01S00225.0vu     +++|          STD    ER
00312  M01S00226.0vu     +++| RVU12    LJM    RVUX        RETURN TO CALLER OF *0VJ*
00313  M01S00227.0vu     +++|
00314  M01S00228.0vu     +++| RVUA     VFD    12/0,12/377,36/0
00315  M01S00229.0vu     +++|          TITLE  SUBROUTINES.
00316  M01S00230.0vu     +++| CPW      SPACE  4,10
00317  M01S00231.0vu     +++|**        CPW - COMPARE PASSWORDS.
00318  M01S00232.0vu     +++|*
00319  M01S00233.0vu     +++|*         ENTRY  (T3) = FWA OF PASSWORD IN USER BLOCK.
00320  M01S00234.0vu     +++|*                (PSWD - PSWD+3) = SUPPLIED PASSWORD.
00321  M01S00235.0vu     +++|*
00322  M01S00236.0vu     +++|*         EXIT   (A) = 0 IF PASSWORDS MATCH.
00323  M01S00237.0vu     +++|*
00324  M01S00238.0vu     +++|*         USES   CM, T6.
00325  M01S00239.0vu     +++|
00326  M01S00240.0vu     +++|
00327  M01S00241.0vu     +++| CPW      SUBR               ENTRY/EXIT
00328  M01S00242.0vu     +++|          LDN    0
00329  M01S00243.0vu     +++|          STD    T6
00330  M01S00244.0vu     +++|          LDD    T3
00331  M01S00245.0vu     +++|          STD    CM
00332  M01S00246.0vu     +++| CPW1     LDM    PSWD,T6     CHECK NEXT BYTE
00333  M01S00247.0vu     +++|          LMI    CM
00334  M01S00248.0vu     +++|          NJN    CPWX        IF NO MATCH
00335  M01S00249.0vu     +++|          AOD    CM
00336  M01S00250.0vu     +++|          AOD    T6
00337  M01S00251.0vu     +++|          LMN    3
00338  M01S00252.0vu     +++|          NJN    CPW1        IF MORE BYTES TO COMPARE
00339  M01S00253.0vu     +++|          LDM    PSWD,T6     COMPARE LAST CHARACTER
00340  M01S00254.0vu     +++|          LMI    CM
00341  M01S00255.0vu     +++|          SCN    77
00342  M01S00256.0vu     +++|          UJN    CPWX        RETURN
00343  M01S00257.0vu     +++| RUA      SPACE  4,20
00344  M01S00258.0vu     +++|**        RUA - RETRIEVE USER ACCOUNT BLOCK.
00345  M01S00259.0vu     +++|*
00346  M01S00260.0vu     +++|*         ENTRY  (UBAD) = ADDRESS OF USER BLOCK.
00347  M01S00261.0vu     +++|*                (SPUI) = SPECIAL USER INDEX FLAG.
Line S00262 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2243
Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00262.ns2243  ---|*                (UCNV) = USER COMMAND NOT VALID STATUS FROM *0VJ*.
Line S00004 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00004.ns2420  ---|*                (UCNV) = USER COMMAND NOT VALID OR NO VALIDATION
Line S00005 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00005.ns2420  ---|*                         REQUIRED FLAG FROM *0VJ*.
00351  M01S00006.ns2420  +++|*                (UCNV) = USER COMMAND NOT VALID.
00352  M01S00263.0vu     +++|*                (UIDX - UIDX+1) = USER INDEX.
00353  M01S00264.0vu     +++|*
00354  M01S00265.0vu     +++|*         EXIT   (UCNV) .NE. 0, IF USER COMMAND ERROR ENCOUNTERED.
00355  M01S00266.0vu     +++|*                (RVUB) MODIFIED IF USER SECURITY COUNT EXHAUSTED.
00356  M01S00267.0vu     +++|*                USER ACCOUNT BLOCK SET IN SYSTEM SECTOR.
00357  M01S00268.0vu     +++|*                PASSWORD VALIDATED.
00358  M01S00269.0vu     +++|*                ENCRYPTED BATCH PASSWORD SET IN SYSTEM SECTOR.
00359  M01S00270.0vu     +++|*
00360  M01S00271.0vu     +++|*         USES   T1, T2, T3, T6.
00361  M01S00272.0vu     +++|*
00362  M01S00273.0vu     +++|*         CALLS  VPW.
00363  M01S00274.0vu     +++|*
00364  M01S00275.0vu     +++|*         MACROS EXECUTE.
00365  M01S00276.0vu     +++|
00366  M01S00277.0vu     +++|
Line S00278 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00278.ns2420  ---| RUA4     AOM    UCNV        SET *USER COMMAND NOT VALID* STATUS
Line S00279 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00279.ns2420  ---| RUA5     LDN    ZERL        CLEAR USER NAME/USER INDEX
Line S00007 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00007.ns2420a ---| RUA6     LDM    DLAT
Line S00008 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00008.ns2420a ---|          SHN    21-13
Line S00009 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00009.ns2420a ---|          MJN    RUA7        IF HOST LID
Line S00010 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00372  M02S00010.ns2420a ---|          SHN    21-11-21+13
Line S00011 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00373  M02S00011.ns2420a ---|          PJP    RUA1        IF VALIDATION NOT REQUIRED FOR DLID
Line S00012 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00012.ns2420a ---| RUA7     AOM    UCNV        SET *USER COMMAND NOT VALID* STATUS
Line S00013 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00013.ns2420a ---| RUA8     LDN    ZERL        CLEAR USER NAME/USER INDEX
Line S00280 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00280.ns2420a ---|          CRM.   ACSS,ON
Line S00281 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00281.ns2420a ---|
Line S00282 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00282.ns2420a ---|
00379  M01S00283.0vu     +++| RUA      SUBR               ENTRY/EXIT
00380  M01S00284.0vu     +++|          LDM    UCNV
Line S00285 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2243
Seq #  *Modification Id* Act 
----------------------------+
00381  M02S00285.ns2243  ---|          NJN    RUA5        IF USER COMMAND NOT VALID
Line S00006 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00382  M02S00006.ns2420  ---|          NJN    RUA5        IF NO VALIDATION REQUIRED/*USER* NOT VALID
Line S00014 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00014.ns2420a ---|          NJN    RUA8        IF *USER* NOT VALID
00384  M01S00001.ns2420a +++|          NJP    RUA2        IF ERROR IN CRACKING USER COMMAND
00385  M01S00286.0vu     +++|          LDM    UIDX
00386  M01S00287.0vu     +++|          STD    T1
00387  M01S00288.0vu     +++|          SHN    14
00388  M01S00289.0vu     +++|          LMM    UIDX+1
Line S00290 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00290.ns2420  ---|          ZJN    RUA4        IF USER NOT VALID
Line S00015 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00015.ns2420a ---|          ZJN    RUA7        IF USER NOT VALID
00391  M01S00002.ns2420a +++|          ZJN    RUA1        IF USER NAME / FAMILY NOT VALID
00392  M01S00291.0vu     +++|          STD    T2
00393  M01S00292.0vu     +++|          LDM    UBAD        SET USER BLOCK ADDRESS
00394  M01S00293.0vu     +++|          STD    T3
Line S00294 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00294.ns2420  ---|          STM    RUAB
00396  M01S00016.ns2420  +++|          STM    RUAA
00397  M01S00295.0vu     +++|          ADK    APSW*5      SET PASSWORD ADDRESS
Line S00296 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00296.ns2420  ---|          STM    RUAC
00399  M01S00017.ns2420  +++|          STM    RUAB
00400  M01S00297.0vu     +++|          ADK    ASCV*5-APSW*5
00401  M01S00298.0vu     +++|          STM    VSCA        SET SERVICE CLASS VALIDATION MASK ADDRESS
00402  M01S00299.0vu     +++|          RJM    VPW         VALIDATE PASSWORD
Line S00300 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00300.ns2420  ---| RUA0     NJP    RUA4        IF PASSWORD NOT VALID
Line S00301 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00301.ns2420  ---|          LDM    SPUI
Line S00302 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00302.ns2420  ---|          ZJN    RUA1        IF USER INDEX .LT. *AUIMX*
Line S00018 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00018.ns2420a ---|          NJP    RUA6        IF PASSWORD NOT VALID
Line S00019 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00019.ns2420a ---| RUA1     LDM    SPUI
Line S00020 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00020.ns2420a ---|          ZJN    RUA2        IF USER INDEX .LT. *AUIMX*
00409  M01S00003.ns2420a +++|          ZJN    RUA3        IF PASSWORD IS VALID
00410  M01S00004.ns2420a +++|
00411  M01S00005.ns2420a +++|*         PASSWORD NOT VALID.
00412  M01S00006.ns2420a +++|
Line S00007 Modification History
M01 (Added by) ns2420a
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00007.ns2420c ---|          LDM    DLAT
Line S00008 Modification History
M01 (Added by) ns2420a
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00008.ns2420c ---|          ZJN    RUA1        IF NO DESTINATION LID SPECIFIED
Line S00009 Modification History
M01 (Added by) ns2420a
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00009.ns2420c ---|          SHN    21-13
Line S00010 Modification History
M01 (Added by) ns2420a
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00010.ns2420c ---|          MJN    RUA1        IF HOST LID
Line S00011 Modification History
M01 (Added by) ns2420a
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00011.ns2420c ---|          SHN    21-11-21+13
Line S00012 Modification History
M01 (Added by) ns2420a
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00012.ns2420c ---|          PJN    RUA3        IF VALIDATION NOT REQUIRED FOR DLID
00419  M01S00013.ns2420a +++| RUA1     AOM    UCNV        SET *USER COMMAND NOT VALID* STATUS
00420  M01S00014.ns2420a +++| RUA2     LDN    ZERL        CLEAR USER NAME/USER INDEX
00421  M01S00015.ns2420a +++|          CRM.   ACSS,ON
00422  M01S00016.ns2420a +++|          UJP    RUAX        RETURN
00423  M01S00017.ns2420a +++|
00424  M01S00018.ns2420a +++|*         CHECK FOR OTHER ERRORS.
00425  M01S00019.ns2420a +++|
00426  M01S00020.ns2420a +++| RUA3     LDM    SPUI
00427  M01S00021.ns2420a +++|          ZJN    RUA4        IF USER INDEX .LT. *AUIMX*
00428  M01S00303.0vu     +++|          LDD    OT
00429  M01S00304.0vu     +++|          LMK    SYOT
Line S00305 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00305.ns2420  ---|          NJN    RUA0        IF NOT *SYOT* JOB
Line S00306 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00306.ns2420  ---| RUA1     LDM    USCT
Line S00307 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00307.ns2420  ---|          NJN    RUA1.1      IF USER SECURITY COUNT NOT EXHAUSTED
Line S00021 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00021.ns2420a ---|          NJN    RUA3        IF NOT *SYOT* JOB
Line S00022 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00022.ns2420a ---| RUA2     LDM    USCT
Line S00023 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00023.ns2420a ---|          NJN    RUA4        IF USER SECURITY COUNT NOT EXHAUSTED
00436  M01S00022.ns2420a +++|          NJN    RUA1        IF NOT *SYOT* JOB
00437  M01S00023.ns2420a +++| RUA4     LDM    USCT
00438  M01S00024.ns2420a +++|          NJN    RUA5        IF USER SECURITY COUNT NOT EXHAUSTED
00439  M01S00308.0vu     +++|          LDN    UCIE-UNIE   SET ERROR CODE
00440  M01S00309.0vu     +++|          RAM    RVUB
Line S00310 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00310.ns2420  ---|          LJM    RUA4        SET *USER COMMAND NOT VALID* STATUS
Line S00024 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00024.ns2420a ---| RUA3     LJM    RUA7        SET *USER COMMAND NOT VALID* STATUS
00443  M01S00025.ns2420a +++|          UJN    RUA1        SET *USER COMMAND NOT VALID* STATUS
00444  M01S00311.0vu     +++|
Line S00312 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00312.ns2420  ---| RUA1.1   LDM.   ACSS+3      SET CREATION USER INDEX
Line S00025 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00025.ns2420a ---| RUA4     LDM.   ACSS+3      SET CREATION USER INDEX
00447  M01S00026.ns2420a +++|*         SAVE USER ACCOUNT BLOCK.
00448  M01S00027.ns2420a +++|
00449  M01S00028.ns2420a +++| RUA5     LDM.   ACSS+3      SET CREATION USER INDEX
00450  M01S00313.0vu     +++|          SCN    77
00451  M01S00314.0vu     +++|          LMD    T1
00452  M01S00315.0vu     +++|          STM.   ACSS+3
00453  M01S00316.0vu     +++|          LDD    T2
00454  M01S00317.0vu     +++|          STM.   ACSS+4
Line S00318 Modification History
M01 (Added by) 0vu
M02 (Updated by) 0vu3
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00318.0vu3    ---|          ADD    T1
00456  M01S00319.0vu     +++|          LDC    5*ABSS-1    COPY FIRST HALF OF USER BLOCK
00457  M01S00320.0vu     +++|          STD    T6
Line S00321 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00321.ns2420  ---| RUA2     LDM.   *,T6
Line S00322 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00322.ns2420  ---| RUAB     EQU    *-1
Line S00026 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00026.ns2420a ---| RUA5     LDM.   *,T6
00461  M01S00029.ns2420a +++| RUA6     LDM.   *,T6
00462  M01S00027.ns2420  +++| RUAA     EQU    *-1
00463  M01S00323.0vu     +++|          STM.   VASS,T6
00464  M01S00324.0vu     +++|          SOD    T6
Line S00325 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00325.ns2420  ---|          PJN    RUA2        IF MORE BYTES TO MOVE
Line S00028 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00028.ns2420a ---|          PJN    RUA5        IF MORE BYTES TO MOVE
00467  M01S00030.ns2420a +++|          PJN    RUA6        IF MORE BYTES TO MOVE
00468  M01S00326.0vu     +++|          LDD    MA          COPY ENCRYPTED BATCH PASSWORD
00469  M01S00327.0vu     +++|          CWM.   *,ON
Line S00328 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00328.ns2420  ---| RUAC     EQU    *-1         (FWA OF ENCRYPTED BATCH PASSWORD)
00471  M01S00029.ns2420  +++| RUAB     EQU    *-1         (FWA OF ENCRYPTED BATCH PASSWORD)
00472  M01S00329.0vu     +++|          SBN    1
00473  M01S00330.0vu     +++|          CRM.   EPSS,ON
Line S00331 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00331.ns2420  ---| RUA3     LJM    RUAX        RETURN
00475  M01S00030.ns2420  +++|          LJM    RUAX        RETURN
00476  M01S00332.0vu     +++| VPW      SPACE  4,15
00477  M01S00333.0vu     +++|**        VPW - VALIDATE PASSWORD.
00478  M01S00334.0vu     +++|*
00479  M01S00335.0vu     +++|*         ENTRY  (PSWD - PSWD+4) = PASSWORD FROM USER COMMAND.
00480  M01S00336.0vu     +++|*                (T3) = FWA OF USER ACCOUNT BLOCK.
00481  M01S00337.0vu     +++|*                (T1 - T2) = USER INDEX.
00482  M01S00338.0vu     +++|*
00483  M01S00339.0vu     +++|*         EXIT   (A) .NE. 0, IF PASSWORD NOT VALID.
00484  M01S00340.0vu     +++|*
00485  M01S00341.0vu     +++|*         USES   T3, CM - CM+4.
00486  M01S00342.0vu     +++|*
00487  M01S00343.0vu     +++|*         CALLS  CPW.
00488  M01S00344.0vu     +++|*
00489  M01S00345.0vu     +++|*         MACROS MONITOR.
00490  M01S00346.0vu     +++|
00491  M01S00347.0vu     +++|
00492  M01S00348.0vu     +++| VPW      SUBR               ENTRY/EXIT
00493  M01S00349.0vu     +++|          LDK    APSW*5
00494  M01S00350.0vu     +++|          RAD    T3
00495  M01S00351.0vu     +++|          LDM    ZVJP
00496  M01S00352.0vu     +++|          SHN    21-13
00497  M01S00353.0vu     +++|          MJP    VPW2        IF PASSWORD VALIDATION NOT REQUIRED
00498  M01S00354.0vu     +++|          LDM    PSWD
00499  M01S00355.0vu     +++|          NJN    VPW1        IF PASSWORD PRESENT ON USER COMMAND
00500  M01S00356.0vu     +++|          LDM    ZVJP
00501  M01S00357.0vu     +++|          SHN    21-12
00502  M01S00358.0vu     +++|          PJN    VPW1        IF FILE NOT PREVIOUSLY ROUTED
00503  M01S00359.0vu     +++|
00504  M01S00360.0vu     +++|*         VALIDATE ENCRYPTED PASSWORD FROM SYSTEM SECTOR.
00505  M01S00361.0vu     +++|
00506  M01S00362.0vu     +++|          LDD    MA          COPY ENCRYPTED PASSWORD
00507  M01S00363.0vu     +++|          CWM.   EPSS,ON
00508  M01S00364.0vu     +++|          SBN    1
00509  M01S00365.0vu     +++|          CRM    PSWD,ON
00510  M01S00366.0vu     +++|          RJM    CPW         COMPARE PASSWORDS
00511  M01S00367.0vu     +++|          ZJN    VPW2        IF PASSWORD MATCHED
00512  M01S00368.0vu     +++|          LDN    ZERL        ENCRYPT AND COMPARE NULL PASSWORD
00513  M01S00369.0vu     +++|          CRM    PSWD,ON
00514  M01S00370.0vu     +++|
00515  M01S00371.0vu     +++|*         ENCRYPT SUPPLIED PASSWORD AND VALIDATE.
00516  M01S00372.0vu     +++|
00517  M01S00373.0vu     +++| VPW1     LDD    MA          ENCRYPT PASSWORD
00518  M01S00374.0vu     +++|          CWM    PSWD,ON
00519  M01S00375.0vu     +++|          LDN    REPS
00520  M01S00376.0vu     +++|          STD    CM+1
00521  M01S00377.0vu     +++|          MONITOR  RDCM
00522  M01S00378.0vu     +++|          LDD    MA
00523  M01S00379.0vu     +++|          CRM    PSWD,ON
00524  M01S00380.0vu     +++|          RJM    CPW         COMPARE PASSWORDS
00525  M01S00381.0vu     +++|          NJN    VPW3        IF NO MATCH
00526  M01S00382.0vu     +++|
00527  M01S00383.0vu     +++|*         CHECK FOR PASSWORD EXPIRATION.
00528  M01S00384.0vu     +++|
00529  M01S00385.0vu     +++| VPW2     LDM.   3,T3        CHECK PASSWORD EXPIRATION DATE
00530  M01S00386.0vu     +++|          LPN    77
00531  M01S00387.0vu     +++|          STD    CM+3
00532  M01S00388.0vu     +++|          SHN    14
00533  M01S00389.0vu     +++|          LMM.   4,T3
00534  M01S00390.0vu     +++|          ZJN    VPW4        IF NONEXPIRING PASSWORD
00535  M01S00391.0vu     +++|          STD    CM+4
00536  M01S00392.0vu     +++|          LDN    VEDS        VALIDATE EXPIRATION DATE
00537  M01S00393.0vu     +++|          STD    CM+1
00538  M01S00394.0vu     +++|          MONITOR  VSAM
00539  M01S00395.0vu     +++|          LDD    CM+1
00540  M01S00396.0vu     +++|          ZJN    VPW4        IF PASSWORD NOT EXPIRED
00541  M01S00397.0vu     +++| VPW3     LDN    1           SET ERROR STATUS
00542  M01S00398.0vu     +++| VPW4     LJM    VPWX        RETURN
Line S00399 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00399.ns2727  ---| VSC      SPACE  4,15
00544  M01S00002.ns2727  +++| VSC      SPACE  4,20
00545  M01S00400.0vu     +++|**        VSC - VALIDATE SERVICE CLASS.
00546  M01S00401.0vu     +++|*
00547  M01S00402.0vu     +++|*         ENTRY  (OT) = ORIGIN TYPE.
00548  M01S00003.ns2727  +++|*                (DLAT) = DESTINATION LID ATTRIBUTES.
00549  M01S00403.0vu     +++|*                (JCSC) = JOB COMMAND SERVICE CLASS, IF SPECIFIED.
Line S00007 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00007.ns2727  ---|*                (UCNV) = USER COMMAND NOT VALID OR NO VALIDATION
Line S00008 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00008.ns2727  ---|*                         REQUIRED FLAG FROM *0VJ*.
00552  M01S00004.ns2727  +++|*                (UCNV) = *USER* COMMAND NOT VALID.
00553  M01S00404.0vu     +++|*                (VSCA) = ADDRESS OF USER ACCOUNT BLOCK WORD *ASCV*.
00554  M01S00405.0vu     +++|*
00555  M01S00406.0vu     +++|*         EXIT   IF VALID, SERVICE CLASS UPDATED IN *IOSS*.
00556  M01S00407.0vu     +++|*                (JCEC) = *SCIE* IF INVALID SERVICE CLASS.
00557  M01S00408.0vu     +++|*                (CN+1) = USER DEFAULT SERVICE CLASS FOR ORIGIN TYPE
00558  M01S00409.0vu     +++|*                         OF INPUT FILE.
00559  M01S00410.0vu     +++|*                (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK.
00560  M01S00411.0vu     +++|*
Line S00412 Modification History
M01 (Added by) 0vu
M02 (Updated by) 0vu1
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00412.0vu1    ---|*         USES   T1, T2, CN - CN+4.
00562  M01S00001.0vu1    +++|*         USES   T1, T2, T3, CN - CN+4.
00563  M01S00413.0vu     +++|*
00564  M01S00414.0vu     +++|*         CALLS  VSP.
00565  M01S00415.0vu     +++|
00566  M01S00416.0vu     +++|
00567  M01S00417.0vu     +++| VSC      SUBR               ENTRY/EXIT
00568  M01S00004.ns2168  +++|          LDM    UCNV
Line S00005 Modification History
M01 (Added by) ns2168
M02 (Updated by) ns2243
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00005.ns2243  ---|          NJN    VSC1        IF USER COMMAND NOT VALID
Line S00009 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00009.ns2727  ---|          NJN    VSC1        IF NO VALIDATION REQUIRED/*USER* NOT VALID
Line S00418 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00418.ns2727  ---|          LDD    MA          SET SERVICE CLASS VALIDATION MASK
00572  M01S00005.ns2727  +++|          NJN    VSC1        IF *USER* COMMAND NOT VALID
00573  M01S00006.ns2727  +++|          LDM    DLAT
00574  M01S00007.ns2727  +++|          ZJN    VSC0        IF DESTINATION LID NOT SELECTED
00575  M01S00008.ns2727  +++|          SHN    21-11
00576  M01S00009.ns2727  +++|          PJN    VSC1        IF VALIDATION NOT REQUIRED FOR DLID
00577  M01S00010.ns2727  +++| VSC0     LDD    MA          SET SERVICE CLASS VALIDATION MASK
00578  M01S00419.0vu     +++|          CWM    **,ON
00579  M01S00420.0vu     +++| VSCA     EQU    *-1         (ADDRESS OF VALIDATION MASK)
00580  M01S00421.0vu     +++|          SBN    1
00581  M01S00422.0vu     +++|          CRD    CN
Line S00423 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00423.ns2168  ---|          LDM    UCNV
Line S00424 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00424.ns2168  ---|          ZJN    VSC1        IF USER COMMAND VALID
Line S00425 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00425.ns2168  ---|          LCN    0           ALLOW ALL SERVICE CLASSES
00585  M01S00006.ns2168  +++|          LDM    JCEF
00586  M01S00007.ns2168  +++|          NJN    VSCX        IF PREVIOUS JOB COMMAND ERROR
00587  M01S00008.ns2168  +++|          UJN    VSC2        PRESET SERVICE CLASS
00588  M01S00009.ns2168  +++|
00589  M01S00010.ns2168  +++| VSC1     LCN    0           ALLOW ALL SERVICE CLASSES
00590  M01S00426.0vu     +++|          STD    CN+2
00591  M01S00427.0vu     +++|          STD    CN+3
00592  M01S00428.0vu     +++|          STD    CN+4
Line S00429 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00429.ns2168  ---|          UJN    VSC2        BYPASS JOB COMMAND ERROR CHECK
Line S00430 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00430.ns2168  ---|
Line S00431 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00431.ns2168  ---| VSC1     LDM    JCEF
Line S00432 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00432.ns2168  ---|          NJN    VSCX        IF PREVIOUS JOB COMMAND ERROR
00597  M01S00433.0vu     +++| VSC2     LDM.   IOSS+SCLQ*5
00598  M01S00434.0vu     +++|          SHN    -6
00599  M01S00435.0vu     +++|          LMN    SSSC
00600  M01S00436.0vu     +++|          ZJN    VSCX        IF SUBSYSTEM
Line S00437 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00437.ns2727  ---|          LDN    SYSC        PRESET SYSTEM SERVICE CLASS
00602  M01S00011.ns2727  +++|          LMN    SSSC        RESTORE SERVICE CLASS
00603  M01S00438.0vu     +++|          STD    T2
00604  M01S00439.0vu     +++|          LDD    OT
00605  M01S00440.0vu     +++|          LMK    SYOT
Line S00441 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00441.ns2727  ---|          ZJP    VSC5        IF SYSTEM ORIGIN
Line S00011 Modification History
M01 (Added by) ns2168
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00011.ns2727  ---|          LDM    UCNV
Line S00012 Modification History
M01 (Added by) ns2168
M02 (Updated by) ns2243
M03 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00608  M03S00012.ns2727  ---|          NJP    VSC5        IF USER COMMAND NOT VALID
Line S00010 Modification History
M01 (Added by) ns2243
M02 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00010.ns2727  ---|          NJP    VSC5        IF NO VALIDATION REQUIRED/*USER* NOT VALID
00610  M01S00012.ns2727  +++|          NJN    VSC2.1      IF NOT SYSTEM ORIGIN
00611  M01S00013.ns2727  +++|          LDN    SYSC        SET SYSTEM SERVICE CLASS
00612  M01S00014.ns2727  +++|          STD    T2
00613  M01S00015.ns2727  +++|          UJP    VSC5        RETURN SERVICE CLASS
00614  M01S00016.ns2727  +++|
00615  M01S00017.ns2727  +++| VSC2.1   LDM    UCNV
00616  M01S00018.ns2727  +++|          NJP    VSC5        IF *USER* COMMAND NOT VALID
00617  M01S00442.0vu     +++|          LDN    0           INITIALIZE SERVICE CLASS INDEX
00618  M01S00443.0vu     +++|          STD    CN+1        PRESET INVALID USER DEFAULT SERVICE CLASS
00619  M01S00444.0vu     +++|          STD    T2
00620  M01S00445.0vu     +++|          LDM    VSCA        GET USER DEFAULT FOR ORIGIN TYPE OF JOB
00621  M01S00446.0vu     +++|          ADK    ASC1*5-ASCV*5
00622  M01S00447.0vu     +++|          STD    T1          SET ADDRESS OF USER DEFAULT
00623  M01S00448.0vu     +++|          LDD    OT          SET BYTE NUMBER WITH USER DEFAULT
00624  M01S00449.0vu     +++|          SHN    -1+22       (DIVIDE BY TWO; PLACE BIT 0 IN SIGN BIT)
00625  M01S00450.0vu     +++|          STM    VSCC
00626  M01S00451.0vu     +++|          PJN    VSC3        IF UPPER SIX BITS ARE USER DEFAULT
00627  M01S00452.0vu     +++|          LDK    PSNI
00628  M01S00453.0vu     +++|          STM    VSCD
00629  M01S00454.0vu     +++| VSC3     LDM    0,T1
00630  M01S00455.0vu     +++| VSCC     EQU    *-1         (BYTE NUMBER OF USER DEFAULT)
00631  M01S00456.0vu     +++| VSCD     SHN    -6          CHECK UPPER SIX BITS
00632  M01S00457.0vu     +++|*         PSN                (USER DEFAULT IS IN LOWER SIX BITS)
00633  M01S00458.0vu     +++|          LPN    77
00634  M01S00459.0vu     +++|          STD    T1
00635  M01S00460.0vu     +++| VSC4     LDM    TVSC,T2     GET SERVICE CLASS VALUE
00636  M01S00461.0vu     +++|          LMD    T1
00637  M01S00462.0vu     +++|          ZJN    VSC5        IF MATCH
00638  M01S00463.0vu     +++|          AOD    T2
00639  M01S00464.0vu     +++|          LDN    MXSC
00640  M01S00465.0vu     +++|          SBD    T2
00641  M01S00466.0vu     +++|          PJN    VSC4        IF NOT END OF TABLE
00642  M01S00467.0vu     +++|          LDM    JCSC
00643  M01S00468.0vu     +++|          NJN    VSC6        IF SERVICE CLASS SPECIFIED ON JOB COMMAND
00644  M01S00469.0vu     +++|          UJN    VSC7        RETURN ERROR
00645  M01S00470.0vu     +++|
00646  M01S00471.0vu     +++| VSC5     LDD    T2          RETURN USER DEFAULT SERVICE CLASS
00647  M01S00472.0vu     +++|          STD    CN+1
00648  M01S00002.0vu1    +++|          LDN    0           USE THE USER-S SERVICE CLASS VALIDATION
00649  M01S00003.0vu1    +++|          STD    T3
00650  M01S00473.0vu     +++|          LDM    JCSC
00651  M01S00474.0vu     +++|          NJN    VSC6        IF SERVICE CLASS SPECIFIED ON JOB COMMAND
00652  M01S00475.0vu     +++|          LDD    T2
00653  M01S00476.0vu     +++| VSC6     RJM    VSP         VALIDATE SERVICE CLASS
00654  M01S00477.0vu     +++|          ZJN    VSC9        IF NO ERROR
00655  M01S00478.0vu     +++| VSC7     AOM    JCEF        SET JOB COMMAND ERROR FLAG
00656  M01S00479.0vu     +++|          LDK    SCIE        SET INVALID SERVICE CLASS STATUS
00657  M01S00480.0vu     +++|          STM    JCEC
00658  M01S00481.0vu     +++| VSC8     UJP    VSCX        RETURN
00659  M01S00482.0vu     +++|
00660  M01S00483.0vu     +++| VSC9     LDM.   IOSS+SCLQ*5 SET NEW SERVICE CLASS
00661  M01S00484.0vu     +++|          SHN    21-5
00662  M01S00485.0vu     +++|          SCN    77
00663  M01S00486.0vu     +++|          LMD    T2
00664  M01S00487.0vu     +++|          SHN    6
00665  M01S00488.0vu     +++|          STM.   IOSS+SCLQ*5
00666  M01S00489.0vu     +++|          UJN    VSC8        RETURN
00667  M01S00490.0vu     +++| TVSC     SPACE  4,10
00668  M01S00491.0vu     +++|**        TVSC - TABLE OF VALID USER DEFAULT SERVICE CLASSES.
00669  M01S00492.0vu     +++|
00670  M01S00493.0vu     +++|
00671  M01S00494.0vu     +++| TVSC     INDEX
Line S00495 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00495.ns2217  ---|          INDEX  SYSC,1RS
Line S00496 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00496.ns2217  ---|          INDEX  BCSC,1RB
Line S00497 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00497.ns2217  ---|          INDEX  RBSC,1RR
Line S00498 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00498.ns2217  ---|          INDEX  TSSC,1RT
Line S00499 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00499.ns2217  ---|          INDEX  DISC,1RD
Line S00500 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00500.ns2217  ---|          INDEX  NSSC,1RN
Line S00501 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00501.ns2217  ---|          INDEX  MASC,1RM
Line S00502 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00502.ns2217  ---|          INDEX  CTSC,1RC
Line S00503 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00503.ns2217  ---|          INDEX  I0SC,1R0
Line S00504 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00504.ns2217  ---|          INDEX  I1SC,1R1
Line S00505 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00505.ns2217  ---|          INDEX  I2SC,1R2
Line S00506 Modification History
M01 (Added by) 0vu
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00506.ns2217  ---|          INDEX  I3SC,1R3
00684  M01S00031.ns2217  +++|          LIST   D
00685  M01S00032.ns2217  +++| .SCL     HERE
00686  M01S00033.ns2217  +++|          LIST   *
00687  M01S00507.0vu     +++|          INDEX  MXSC
00688  M01S00011.ns2601  +++| VST      SPACE  4,10
00689  M01S00012.ns2601  +++|**        VST - VALIDATE *ST* PARAMETER.
00690  M01S00013.ns2601  +++|*
00691  M01S00014.ns2601  +++|*         ENTRY  (DLAT) = EXISTING DLID ATTRIBUTES (FROM CALLER).
00692  M01S00015.ns2601  +++|*                (DLID) = DESTINATION LID FROM JOB COMMAND.
00693  M01S00016.ns2601  +++|*
00694  M01S00017.ns2601  +++|*         EXIT   (DLAT) = DLID ATTRIBUTES.
00695  M01S00018.ns2601  +++|*                (DLID) = 0, IF DLID NOT VALID.
00696  M01S00019.ns2601  +++|*                (JCEC) = *IDIE*, IF DLID NOT VALID.
00697  M01S00020.ns2601  +++|*
00698  M01S00021.ns2601  +++|*         USES   T1.
00699  M01S00022.ns2601  +++|*
00700  M01S00023.ns2601  +++|*         CALLS  VID.
00701  M01S00024.ns2601  +++|
00702  M01S00025.ns2601  +++|
00703  M01S00026.ns2601  +++| VST      SUBR               ENTRY/EXIT
00704  M01S00027.ns2601  +++|          LDM    DLID+1      GET DESTINATION LID (FROM JOB COMMAND)
00705  M01S00028.ns2601  +++|          SHN    6
00706  M01S00029.ns2601  +++|          LMM    DLID
00707  M01S00030.ns2601  +++|          SHN    6
00708  M01S00031.ns2601  +++|          ZJN    VSTX        IF NO DESTINATION LID SPECIFIED
00709  M01S00032.ns2601  +++|          RJM    VID         VALIDATE LID
00710  M01S00033.ns2601  +++|          ZJN    VST1        IF NOT VALID LID
00711  M01S00034.ns2601  +++|          STD    T1          SAVE DLID ATTRIBUTES
00712  M01S00035.ns2601  +++|          LDM    DLAT
00713  M01S00036.ns2601  +++|          NJN    VSTX        IF DLID ATTRIBUTES ALREADY SET
00714  M01S00037.ns2601  +++|          LDD    T1          SET DLID ATTRIBUTES
00715  M01S00038.ns2601  +++|          STM    DLAT
00716  M01S00039.ns2601  +++|          UJN    VSTX        RETURN
00717  M01S00040.ns2601  +++|
00718  M01S00041.ns2601  +++| VST1     LDN    0           CLEAR DLID
00719  M01S00042.ns2601  +++|          STM    DLID
00720  M01S00043.ns2601  +++|          STM    DLID+1
00721  M01S00044.ns2601  +++|          LDN    IDIE        SET *INCORRECT LID* ERROR CODE
00722  M01S00045.ns2601  +++|          STM    JCEC
00723  M01S00046.ns2601  +++|          AOM    JCEF        FLAG JOB COMMAND ERROR
00724  M01S00047.ns2601  +++|          UJN    VSTX        RETURN
00725  M01S00003.ns2516a +++| VTL      SPACE  4,15
00726  M01S00004.ns2516a +++|**        VTL - VALIDATE TIME LIMIT.
00727  M01S00005.ns2516a +++|*
00728  M01S00006.ns2516a +++|*         ENTRY  (JTSS - JTSS+1) = TIME LIMIT ENTERED ON JOB CARD.
00729  M01S00007.ns2516a +++|*                (VASS+5*AHMT+2) = VALIDATION TIME LIMIT INDEX.
00730  M01S00008.ns2516a +++|*                (UCNV) = 0, IF VALID USER COMMAND FOUND.
00731  M01S00009.ns2516a +++|*
00732  M01S00010.ns2516a +++|*         EXIT   (JTSS - JTSS+1) = LESSER OF JOB CARD TIME LIMIT AND
00733  M01S00011.ns2516a +++|*                VALIDATION TIME LIMIT.
00734  M01S00012.ns2516a +++|*
00735  M01S00013.ns2516a +++|*         USES   CM.
00736  M01S00014.ns2516a +++|*
00737  M01S00015.ns2516a +++|*         CALLS  TLI.
00738  M01S00016.ns2516a +++|
00739  M01S00017.ns2516a +++|
00740  M01S00018.ns2516a +++| VTL      SUBR               ENTRY/EXIT
00741  M01S00019.ns2516a +++|          LDM    UCNV
00742  M01S00020.ns2516a +++|          NJN    VTLX        IF NO VALID USER COMMAND FOUND
00743  M01S00021.ns2516a +++|          LDM.   VASS+5*AHMT+2  CHECK VALIDATION TIME LIMIT
00744  M01S00022.ns2516a +++|          RJM    TLI
00745  M01S00023.ns2516a +++|          STD    CM
00746  M01S00024.ns2516a +++|          MJN    VTLX        IF UNLIMITED
00747  M01S00025.ns2516a +++|          LDM.   JTSS        COMPARE TO TIME LIMIT
00748  M01S00026.ns2516a +++|          SHN    14
00749  M01S00027.ns2516a +++|          LMM.   JTSS+1
00750  M01S00028.ns2516a +++|          SHN    -3
00751  M01S00029.ns2516a +++|          SBD    CM
00752  M01S00030.ns2516a +++|          MJN    VTLX        IF TIME LIMIT .LT. VALIDATION LIMIT
00753  M01S00031.ns2516a +++|          LDD    CM          REPLACE TIME LIMIT WITH VALIDATION LIMIT
00754  M01S00032.ns2516a +++|          SHN    3
00755  M01S00033.ns2516a +++|          STM.   JTSS+1
00756  M01S00034.ns2516a +++|          SHN    -14
00757  M01S00035.ns2516a +++|          STM.   JTSS
00758  M01S00036.ns2516a +++|          UJN    VTLX        RETURN
00759  M01S00508.0vu     +++|          SPACE  4,10
00760  M01S00509.0vu     +++|*         COMMON DECKS.
00761  M01S00510.0vu     +++|
00762  M01S00037.ns2516a +++| TLI$     SET    1
00763  M01S00038.ns2516a +++|*CALL     COMPCVI
00764  M01S00048.ns2601  +++|*CALL     COMPVID
00765  M01S00017.v23l617 +++| VAL$     SET    0           ASSEMBLE ACCESS LEVEL CODE
00766  M01S00018.v23l617 +++| SCH$     SET    0           ASSEMBLE SEARCH CODE
00767  M01S00019.v23l617 +++|*CALL     COMPVLC
00768  M01S00511.0vu     +++| CUV$     EQU    1           CHECK FOR SERVICE CLASS VALID FOR USER
00769  M01S00512.0vu     +++|*CALL     COMPVSP
00770  M01S00513.0vu     +++|          SPACE  4,10
00771  M01S00514.0vu     +++|          HERE
00772  M01S00515.0vu     +++|          SPACE  4,10
00773  M01S00516.0vu     +++|          OVERFLOW 5,ZVUL
00774  M01S00517.0vu     +++|
00775  M01S00518.0vu     +++|          END
cdc/nos2.source/opl.opl871/deck/0vu.txt ยท Last modified: by 127.0.0.1