Deck DSP Part 002

81 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00054 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02934  M01S00054.v23l617 +++|          ERROR  /ERR/EC36   * DSP - INCORRECT FILE MODE.*
02935  M00S02344.dsp     +++|
02936  M00S02345.dsp     +++| FFQ7     SHN    21-0-21+2
Line S02346 Modification History
M01 (Removed by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02937  M01S02346.dsp15   ---|          PJN    FFQ8        IF FILE NOT LOCKED
Line S00005 Modification History
M01 (Added by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02938  M01S00005.dsp15   +++|          PJN    FFQ7.1      IF FILE NOT LOCKED
02939  M00S02347.dsp     +++|          LDC    LKFL        SET *FILE LOCKED* FLAG
02940  M00S02348.dsp     +++|          RAD    ST
02941  M00S02349.dsp     +++|
02942  M01S00006.dsp15   +++|*         VALIDATE FILE TYPE.
02943  M01S00007.dsp15   +++|
02944  M01S00008.dsp15   +++| FFQ7.1   LDD    FN+4        SET CURRENT FILE TYPE
02945  M01S00009.dsp15   +++|          SHN    -6
02946  M01S00010.dsp15   +++|          STD    T1
02947  M01S00011.dsp15   +++|          LDC    SHNI+21
02948  M01S00012.dsp15   +++|          SBD    T1
02949  M01S00013.dsp15   +++|          STM    FFQB
02950  M01S00014.dsp15   +++|          LDC    QMSK
02951  M01S00015.dsp15   +++|          SHN    21-0
02952  M01S00016.dsp15   +++| FFQB     EQU    *-1         (MODIFIED *SHN* INSTRUCTION)
02953  M01S00017.dsp15   +++|          MJN    FFQ8        IF VALID FILE TYPE
Line S00018 Modification History
M01 (Added by) dsp15
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02954  M02S00018.v23l617 ---|          ERROR  /ERR/EC03   * DSP - INVALID FILE TYPE.*
Line S00055 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02955  M01S00055.v23l617 +++|          ERROR  /ERR/EC03   * DSP - INCORRECT FILE TYPE.*
Line S00019 Modification History
M01 (Added by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02956  M01S00019.dsp15   +++|
02957  M00S02350.dsp     +++|*         VALIDATE FILE-S CURRENT MASS STORAGE ASSIGNMENT.
02958  M00S02351.dsp     +++|
Line S02352 Modification History
M01 (Removed by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02959  M01S02352.dsp9    ---| FFQ8     LDD    FS          GET EST ORDINAL
02960  M01S02353.dsp9    ---|          ZJN    FFQ9        IF *RD* DEVICE
Line S00004 Modification History
M01 (Added by) dsp9
M02 (Removed by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02961  M02S00004.dsp9a   ---| FFQ8     LDD    FS+1        CHECK FST ENTRY
Line S00001 Modification History
M01 (Added by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02962  M01S00001.dsp9a   +++| FFQ8     LDD    FS          CHECK FST ENTRY
02963  M01S00002.dsp9a   +++|          ZJN    FFQ10       IF NULL ENTRY
02964  M01S00003.dsp9a   +++|          RJM    VMS         VALIDATE MASS STORAGE FILE
02965  M01S00004.dsp9a   +++|          LDD    FS+1
Line S00005 Modification History
M01 (Added by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02966  M01S00005.dsp9    +++|          ZJN    FFQ10       IF NULL FILE
02967  M01S00006.dsp9    +++|          LDD    FS+2
02968  M01S00007.dsp9    +++|          ZJN    FFQ10       IF NULL FILE
Line S00008 Modification History
M01 (Added by) dsp9
M02 (Removed by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02969  M02S00008.dsp9a   ---|          LDD    FS
02970  M02S00009.dsp9a   ---|          ZJN    FFQ10       IF NULL FILE
Line S02354 Modification History
M01 (Removed by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02971  M01S02354.dsp9a   ---|          RJM    VMS         VALIDATE MASS STORAGE
02972  M00S02355.dsp     ---| FFQ9     LJM    FFQX        RETURN
Line S00010 Modification History
M01 (Added by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02973  M01S00010.dsp9    +++|
02974  M01S00011.dsp9    +++|*         FOR A NULL OR NONEXISTENT FILE, ONLY ALLOW A DEFERRED ROUTE.
02975  M01S00012.dsp9    +++|
02976  M01S00013.dsp9    +++| FFQ10    LDD    FB+1
02977  M01S00014.dsp9    +++|          LPN    FRDR
02978  M01S00015.dsp9    +++|          NJN    FFQ9        IF DEFERRED ROUTE
02979  M01S00016.dsp9    +++|          ERROR  /ERR/EC06   * DSP - IMMEDIATE ROUTING - NO FILE.*
Line S00020 Modification History
M01 (Added by) dsp15
Seq #  *Modification Id* Act 
----------------------------+
02980  M01S00020.dsp15   +++|
02981  M01S00021.dsp15   +++|
02982  M01S00022.dsp15   +++| INFT     DECMIC INFT
02983  M01S00023.dsp15   +++| QFFT     DECMIC QFFT
02984  M01S00024.dsp15   +++| LOFT     DECMIC LOFT
02985  M01S00025.dsp15   +++|
02986  M01S00026.dsp15   +++| QMSK     EQU    1S"INFT"+1S"QFFT"+1S"LOFT"
Line S00023 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
02987  M01S00023.ns2556  +++| VJS      SPACE  4,10
02988  M01S00024.ns2556  +++|**        VJS - VALIDATE JSN SPECIFICATION.
02989  M01S00025.ns2556  +++|*
02990  M01S00026.ns2556  +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
02991  M01S00027.ns2556  +++|*                (FJSN - FJSN+1) = FORCED JSN TO VALIDATE.
02992  M01S00028.ns2556  +++|*
02993  M01S00029.ns2556  +++|*         EXIT   JSN VALIDATED.
02994  M01S00030.ns2556  +++|*
02995  M01S00031.ns2556  +++|*         ERROR  TO *ERR* IF AN INVALID JSN WAS SPECIFIED.
02996  M01S00032.ns2556  +++|*
02997  M01S00033.ns2556  +++|*         MACROS ERROR.
02998  M01S00034.ns2556  +++|
02999  M01S00035.ns2556  +++|
03000  M01S00036.ns2556  +++| VJS      SUBR               ENTRY/EXIT
03001  M01S00037.ns2556  +++|          LDM    FJSN        VALIDATE SPECIFIED JSN
03002  M01S00038.ns2556  +++|          SHN    -6
03003  M01S00039.ns2556  +++|          ZJN    VJS1        IF CHARACTER .LT. *A*
03004  M01S00040.ns2556  +++|          SBN    1R9+1
03005  M01S00041.ns2556  +++|          PJN    VJS1        IF CHARACTER .GT. *9*
03006  M01S00042.ns2556  +++|          LDM    FJSN
03007  M01S00043.ns2556  +++|          LPN    77
03008  M01S00044.ns2556  +++|          ZJN    VJS1        IF CHARACTER .LT. *A*
03009  M01S00045.ns2556  +++|          SBN    1R9+1
03010  M01S00046.ns2556  +++|          PJN    VJS1        IF CHARACTER .GT. *9*
03011  M01S00047.ns2556  +++|          LDM    FJSN+1
03012  M01S00048.ns2556  +++|          SHN    -6
03013  M01S00049.ns2556  +++|          ZJN    VJS1        IF CHARACTER .LT. *A*
03014  M01S00050.ns2556  +++|          SBN    1R9+1
03015  M01S00051.ns2556  +++|          MJN    VJSX        IF CHARACTER .LE. *9*
03016  M01S00052.ns2556  +++| VJS1     ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
03017  M00S02356.dsp     +++| VUL      SPACE  4,10
03018  M00S02357.dsp     +++|**        VUL - VALIDATE USER LIMITS.
03019  M00S02358.dsp     +++|*
03020  M00S02359.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
03021  M00S02360.dsp     +++|*
03022  M00S02361.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
03023  M00S02362.dsp     +++|*                TOO MANY DEFERRED BATCH JOBS.
03024  M00S02363.dsp     +++|*
03025  M00S02364.dsp     +++|*         USES   T0 - T4, CM - CM+4.
03026  M00S02365.dsp     +++|*
Line S02366 Modification History
M01 (Removed by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03027  M01S02366.dsp12   ---|*         CALLS  CDB, CUA, DBI, GEA.
Line S00002 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03028  M01S00002.dsp12   +++|*         CALLS  CDB, DBI, GEA.
03029  M00S02367.dsp     +++|*
03030  M00S02368.dsp     +++|*         MACROS ERROR.
03031  M00S02369.dsp     +++|
03032  M00S02370.dsp     +++|
03033  M00S02371.dsp     +++| VUL      SUBR               ENTRY/EXIT
03034  M00S02372.dsp     +++|          LDD    FB
03035  M00S02373.dsp     +++|          SHN    21-13
03036  M00S02374.dsp     +++|          MJN    VULX        IF JOB TERMINATION AND VALIDATION DISABLED
03037  M00S02375.dsp     +++|          LDD    FB+1
03038  M00S02376.dsp     +++|          SHN    21-0
03039  M00S02377.dsp     +++|          MJN    VULX        IF DEFERRED ROUTE
Line S02378 Modification History
M01 (Removed by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03040  M01S02378.dsp12   ---|          RJM    CUA         CHECK USER ACCESS
Line S00003 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03041  M01S00003.dsp12   +++|          LDM    CUAV        CHECK USER ACCESS
03042  M00S02379.dsp     +++|          ZJN    VULX        IF USER SYSTEM PRIVILEGES
03043  M00S02380.dsp     +++|          RJM    GEA         GET EJT ADDRESS
03044  M00S02381.dsp     +++|          CRD    T0
03045  M00S02382.dsp     +++|          RJM    CDB         COUNT DEFERRED BATCH JOBS
03046  M00S02383.dsp     +++|          LDD    CP          GET *DB* FIELD FROM CONTROL POINT
03047  M00S02384.dsp     +++|          ADN    ALMW
03048  M00S02385.dsp     +++|          CRD    CM
03049  M00S02386.dsp     +++|          LDD    CM+1
03050  M00S02387.dsp     +++|          RJM    DBI         GET DEFERRED BATCH LIMITS
03051  M00S02388.dsp     +++|          MJN    VULX        IF UNLIMITED
03052  M00S02389.dsp     +++|          SBD    T4
03053  M00S02390.dsp     +++|          SBN    1
03054  M00S02391.dsp     +++|          PJN    VULX        IF LIMIT NOT REACHED
03055  M00S02392.dsp     +++|          ERROR  /ERR/EC33   * DSP - TOO MANY DEFERRED BATCH JOBS.*
03056  M00S02393.dsp     +++|          SPACE  4,10
03057  M00S02394.dsp     +++|**        COMMON DECKS.
03058  M00S02395.dsp     +++|
Line S00003 Modification History
M01 (Added by) dsp16
Seq #  *Modification Id* Act 
----------------------------+
03059  M01S00003.dsp16   +++|
03060  M00S02396.dsp     +++|*CALL     COMPCDB
Line S02397 Modification History
M01 (Removed by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03061  M01S02397.dsp12   ---|*CALL     COMPCUA
03062  M00S02398.dsp     ---| DBI$     SET    1           DEFINE DEFERRED BATCH CONVERSION
03063  M00S02399.dsp     ---|*CALL     COMPCVI
03064  M00S02400.dsp     ---| SAF$     SET    1           SELECT *COMPSAF* SEARCH FOR ASSIGNED FILE
03065  M00S02401.dsp     ---|*CALL     COMPSAF
03066  M00S02402.dsp     ---|*CALL     COMPSFB
03067  M00S02403.dsp     ---|*CALL     COMPVFN
03068  M00S02404.dsp     ---| PRS      TITLE  PRESET.
03069  M00S02405.dsp     ---|**        PRS - PRESET ROUTINE.
03070  M00S02406.dsp     ---|*
03071  M00S02407.dsp     ---|*         EXIT   (FB - FB+1) = FLAG BITS.
03072  M00S02408.dsp     ---|*                (FN - FN+4) = (UN - UN+4) = FILE NAME.
03073  M00S02409.dsp     ---|*                (DDCB) = DISPOSITION CODE.
03074  M00S02410.dsp     ---|*                (EBIT - EBIT+1) = EXTENDED PARAMETER BLOCK FLAG BITS.
03075  M00S02411.dsp     ---|*                (SFDA) = FORCED ORIGIN TYPE INSTRUCTION.
03076  M00S02412.dsp     ---|*                (VULA) = SYSTEM ORIGIN PRIVILEGES FLAG.
03077  M00S02413.dsp     ---|*
03078  M00S02414.dsp     ---|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S02415 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03079  M01S02415.v23l617 ---|*                INVALID DSP REQUEST.
Line S00056 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03080  M01S00056.v23l617 +++|*                INCORRECT *DSP* REQUEST.
03081  M00S02416.dsp     +++|*                COMPLETE BIT ALREADY SET.
Line S02417 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03082  M01S02417.v23l617 ---|*                INVALID ORIGIN TYPE.
Line S00057 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03083  M01S00057.v23l617 +++|*                INCORRECT ORIGIN TYPE.
03084  M00S02418.dsp     +++|*
03085  M00S02419.dsp     +++|*         USES   ER, FA, QA, ST, T7, CM - CM+4, CN - CN+4,
03086  M00S02420.dsp     +++|*                FB - FB+1, FN - FN+4.
03087  M00S02421.dsp     +++|*
Line S02422 Modification History
M01 (Removed by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03088  M01S02422.dsp12   ---|*         CALLS  CRS, GFA, IFP, VCA, VLD, VTA.
Line S00004 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03089  M01S00004.dsp12   +++|*         CALLS  CRS, CUA, GFA, IFP, VCA, VLD, VTA.
03090  M00S02423.dsp     +++|*
03091  M00S02424.dsp     +++|*         MACROS ERROR, SFA.
03092  M00S02425.dsp     +++|
03093  M00S02426.dsp     +++|
03094  M00S02427.dsp     +++| PRS      SUBR               ENTRY/EXIT
03095  M00S02428.dsp     +++|          LDN    0           CLEAR ERROR STATUS AND FNT POINTERS
03096  M00S02429.dsp     +++|          STD    ER
03097  M00S02430.dsp     +++|          STD    ST
03098  M00S02431.dsp     +++|          STD    FA
03099  M00S02432.dsp     +++|          STD    QA
03100  M00S02433.dsp     +++|          STD    FB
03101  M00S02434.dsp     +++|          STD    FB+1
03102  M00S02435.dsp     +++|          RJM    IFP         INITIALIZE *SFA* CALL
03103  M01S00005.dsp12   +++|          RJM    CUA         CHECK USER ACCESS
03104  M01S00006.dsp12   +++|          STM    CUAV
03105  M00S02436.dsp     +++|
03106  M00S02437.dsp     +++|*         CHECK AUTO RECALL STATUS.
03107  M00S02438.dsp     +++|
03108  M00S02439.dsp     +++|          LDD    CP          READ SUBSYSTEM ID
03109  M00S02440.dsp     +++|          ADN    JCIW
03110  M00S02441.dsp     +++|          CRD    CM
03111  M00S02442.dsp     +++|          ADN    AACW-JCIW
03112  M00S02443.dsp     +++|          CRD    FS
03113  M00S02444.dsp     +++|          ADN    SEPW-AACW   GET SPECIAL ENTRY POINT WORD
03114  M00S02445.dsp     +++|          CRD    CN
03115  M00S02446.dsp     +++|          LDC    LSSI
03116  M00S02447.dsp     +++|          SBD    CM+2
Line S02448 Modification History
M01 (Removed by) tldsp1
Seq #  *Modification Id* Act 
----------------------------+
03117  M01S02448.tldsp1  ---|          MJN    PRS1        IF SUBSYSTEM
Line S00009 Modification History
M01 (Added by) tldsp1
Seq #  *Modification Id* Act 
----------------------------+
03118  M01S00009.tldsp1  +++|          PJN    PRS0.1      IF NOT SUBSYSTEM
03119  M01S00010.tldsp1  +++|          ADN    TLSI-LSSI
03120  M01S00011.tldsp1  +++|          NJN    PRS1        IF NOT *TLF* CALL
03121  M01S00012.tldsp1  +++|          RJM    GFA         SET PARAMETER BLOCK ADDRESS
03122  M01S00013.tldsp1  +++|          ADN    1           GET TERMINATION FLAGS
03123  M01S00014.tldsp1  +++|          CRD    CM
03124  M01S00015.tldsp1  +++|          LDD    CM
03125  M01S00016.tldsp1  +++|          NJN    PRS1        IF *TLF* SUBSYSTEM TERMINATION
03126  M01S00017.tldsp1  +++|          AOM    TLFC        FLAG NORMAL *TLF* CALL
03127  M01S00018.tldsp1  +++|          UJN    PRS1        CHECK ENTRY POINTS
03128  M01S00019.tldsp1  +++|
03129  M01S00020.tldsp1  +++| PRS0.1   BSS
03130  M01S00021.tldsp1  +++|*/D,4082
03131  M01S00022.tldsp1  +++|*/D,NS2397.17                 (4140)
03132  M00S02449.dsp     +++|          LDN    SSFL        FLAG NO SUBSYSTEM
03133  M00S02450.dsp     +++|          RAD    ST
03134  M00S02451.dsp     +++|          RJM    CRS         CHECK RECALL STATUS
03135  M00S02452.dsp     +++|          ZJN    PRS3        IF NOT CALLED WITH RECALL
03136  M00S02453.dsp     +++| PRS1     LDD    CN          CHECK ENTRY POINTS
03137  M00S02454.dsp     +++|          SHN    21-2
03138  M00S02455.dsp     +++|          PJN    PRS2        IF NOT *SSJ=*
03139  M00S02456.dsp     +++|          LDC    SJFL        FLAG *SSJ=* PROGRAM
03140  M00S02457.dsp     +++|          RAD    ST
03141  M00S02458.dsp     +++|
03142  M00S02459.dsp     +++|*         CHECK ADDRESS OF ARGUMENT TABLE.
03143  M00S02460.dsp     +++|
03144  M00S02461.dsp     +++| PRS2     LDD    IR+3        CHECK PARAMETER ADDRESS
03145  M00S02462.dsp     +++|          LPN    37
03146  M00S02463.dsp     +++|          SHN    14
03147  M00S02464.dsp     +++|          LMD    IR+4
03148  M00S02465.dsp     +++|          RJM    VCA         VALIDATE ADDRESS
03149  M00S02466.dsp     +++|          ZJN    PRS3        IF NOT VALID ADDRESS
Line S02467 Modification History
M01 (Removed by) ns2606
Seq #  *Modification Id* Act 
----------------------------+
03150  M01S02467.ns2606  ---|          ADN    6
Line S00001 Modification History
M01 (Added by) ns2606
Seq #  *Modification Id* Act 
----------------------------+
03151  M01S00001.ns2606  +++|          ADN    DPBL-1      CHECK IF PARAMETER BLOCK IS WITHIN FL
03152  M00S02468.dsp     +++|          RJM    VCA         VALIDATE ADDRESS
03153  M00S02469.dsp     +++|          NJN    PRS4        IF VALID ADDRESS
Line S02470 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03154  M01S02470.v23l617 ---| PRS3     ERROR  /ERR/EC12   * DSP - INVALID REQUEST.*
Line S00058 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03155  M01S00058.v23l617 +++| PRS3     ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
03156  M00S02471.dsp     +++|
Line S02472 Modification History
M01 (Removed by) ns2397
Seq #  *Modification Id* Act 
----------------------------+
03157  M01S02472.ns2397  ---| PRS4     ADN    10
Line S00005 Modification History
M01 (Added by) ns2397
M02 (Removed by) ns2606
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S00005.ns2606  ---| PRS4     ADN    13
Line S00002 Modification History
M01 (Added by) ns2606
Seq #  *Modification Id* Act 
----------------------------+
03159  M01S00002.ns2606  +++| PRS4     ADN    EPBL-DPBL   CHECK IF EXTENDED BLOCK IS WITHIN FL
03160  M00S02473.dsp     +++|          RJM    VCA
03161  M00S02474.dsp     +++|          NJN    PRS5        IF ENOUGH SPACE FOR EXTENDED BLOCK
03162  M00S02475.dsp     +++|          AOM    PRSA        SET *NOT ENOUGH SPACE* FLAG
03163  M00S02476.dsp     +++|
03164  M00S02477.dsp     +++|*         READ FILE NAME AND FLAG BITS FROM ARGUMENT TABLE.
03165  M00S02478.dsp     +++|
03166  M00S02479.dsp     +++| PRS5     RJM    GFA         READ FIRST WORD OF PARAMETER BLOCK
03167  M00S02480.dsp     +++|          CRD    FN
Line S02481 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03168  M01S02481.v23l617 ---|          CRD    UN          READ FILE NAME FOR *EFN*
03169  M00S02482.dsp     ---|          ADN    1           READ FLAG BITS
03170  M00S02483.dsp     ---|          CRD    CM
03171  M00S02484.dsp     ---|          ADN    3           GET FNT ADDRESS
03172  M00S02485.dsp     ---|          CRD    CN
03173  M00S02486.dsp     ---|          LDD    CN+4
03174  M00S02487.dsp     ---|          STM    FFQA
03175  M00S02488.dsp     ---|          LDD    CM+1        SAVE INPUT FLAGS
03176  M00S02489.dsp     ---|          STM    INFL
03177  M00S02490.dsp     ---|          LDD    CM+3        SAVE FLAG BITS
03178  M00S02491.dsp     ---|          LPN    77
03179  M00S02492.dsp     ---|          STD    FB
03180  M00S02493.dsp     ---|          LDD    CM+4
03181  M00S02494.dsp     ---|          STD    FB+1
03182  M00S02495.dsp     ---|          SHN    21-6
03183  M00S02496.dsp     ---|          MJN    PRS6        IF EXTENDED BLOCK SPECIFIED
03184  M00S02497.dsp     ---|          LJM    PRS15       BYPASS EXTENDED BLOCK PROCESSING
03185  M00S02498.dsp     ---|
03186  M00S02499.dsp     ---|*         SAVE FLAG BITS FOR EXTENDED PARAMETER BLOCK.
03187  M00S02500.dsp     ---|
03188  M00S02501.dsp     ---| PRS6     LDN    0
03189  M00S02502.dsp     ---|*         LDN    1           (NOT ENOUGH SPACE FOR EXTENDED BLOCK)
03190  M00S02503.dsp     ---| PRSA     EQU    *-1
03191  M00S02504.dsp     ---|          NJN    PRS7        IF NOT ENOUGH SPACE
03192  M00S02505.dsp     ---|          RJM    GFA         GET EXTENDED FLAG BITS
03193  M00S02506.dsp     ---|          ADN    7
03194  M00S02507.dsp     ---|          CRD    CN
03195  M00S02508.dsp     ---|          LDD    CN+3
03196  M00S02509.dsp     ---|          LPN    77
03197  M00S02510.dsp     ---|          STM    EBIT
03198  M00S02511.dsp     ---|          LDD    CN+4
03199  M00S02512.dsp     ---|          STM    EBIT+1
Line S02513 Modification History
M01 (Removed by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
03200  M01S02513.ns2156  ---|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP
Line S00051 Modification History
M01 (Added by) ns2156
M02 (Removed by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
03201  M02S00051.ns2317  ---|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP+EFRQ
Line S00007 Modification History
M01 (Added by) ns2317
M02 (Removed by) ns2397
Seq #  *Modification Id* Act 
----------------------------+
03202  M02S00007.ns2397  ---|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP+EFRQ+EFDS
Line S00006 Modification History
M01 (Added by) ns2397
Seq #  *Modification Id* Act 
----------------------------+
03203  M01S00006.ns2397  +++|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP+EFRQ+EFDS+EFCH
03204  M00S02514.dsp     +++|          ZJN    PRS8        IF NO PRIVILEGED FLAG BITS SET
03205  M00S02515.dsp     +++|          LDD    ST
03206  M00S02516.dsp     +++|          SHN    21-7
03207  M00S02517.dsp     +++|          MJN    PRS7.1      IF CALLER IS *SSJ=*
Line S00001 Modification History
M01 (Added by) dsp21
Seq #  *Modification Id* Act 
----------------------------+
03208  M01S00001.dsp21   +++|          SHN    21-0-21+7
03209  M01S00002.dsp21   +++|          PJN    PRS7.1      IF CALLER IS SUBSYSTEM
Line S02518 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03210  M01S02518.v23l617 ---| PRS7     LJM    PRS3        * DSP - INVALID REQUEST.*
Line S00059 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03211  M01S00059.v23l617 +++| PRS7     LJM    PRS3        * DSP - INCORRECT REQUEST.*
03212  M00S02519.dsp     +++|
03213  M00S02520.dsp     +++| PRS7.1   LDM    EBIT+1      CHECK FOR SUBSYSTEM PROCESSING
03214  M00S02521.dsp     +++|          LPN    EFSP
03215  M00S02522.dsp     +++|          ZJN    PRS8        IF SUBSYSTEM PROCESSING BIT NOT SET
03216  M00S02523.dsp     +++|          LDD    ST          FLAG SUBSYSTEM
03217  M00S02524.dsp     +++|          SCN    SSFL
03218  M00S02525.dsp     +++|          STD    ST
03219  M00S02526.dsp     +++|
03220  M00S02527.dsp     +++|*         VALIDATE REMOTE TEXT ADDRESSES.
03221  M00S02528.dsp     +++|
03222  M00S02529.dsp     +++| PRS8     RJM    GFA         CHECK IMPLICIT TEXT ADDRESS
03223  M00S02530.dsp     +++|          ADN    10
03224  M00S02531.dsp     +++|          CRD    CM
03225  M00S02532.dsp     +++|          RJM    VTA         VALIDATE TEXT ADDRESS
03226  M00S02533.dsp     +++|          STM    IRTL        SAVE LENGTH OF IMPLICIT TEXT
03227  M00S02534.dsp     +++|          ZJN    PRS10       IF NO IMPLICIT TEXT SPECIFIED
03228  M00S02535.dsp     +++|          LDD    ST          CHECK FOR *SSJ=*
03229  M00S02536.dsp     +++|          SHN    21-7
03230  M00S02537.dsp     +++|          PJN    PRS7        IF NOT *SSJ=*
03231  M00S02538.dsp     +++|          LDD    FB+1
03232  M00S02539.dsp     +++|          SHN    21-0
03233  M00S02540.dsp     +++|          PJN    PRS10       IF NOT DEFERRED ROUTE
03234  M00S02541.dsp     +++| PRS9     ERROR  /ERR/EC13   * DSP - DEFERRED ROUTING NOT ALLOWED.*
03235  M00S02542.dsp     +++|
03236  M00S02543.dsp     +++| PRS10    RJM    GFA         CHECK EXPLICIT TEXT ADDRESS
03237  M00S02544.dsp     +++|          ADN    11
03238  M00S02545.dsp     +++|          CRD    CM
03239  M00S02546.dsp     +++|          RJM    VTA         VALIDATE TEXT ADDRESS
03240  M00S02547.dsp     +++|          STM    ERTL        SAVE LENGTH OF EXPLICIT TEXT
03241  M00S02548.dsp     +++|          ZJN    PRS11       IF NO EXPLICIT TEXT SPECIFIED
03242  M00S02549.dsp     +++|          LDD    FS+3
03243  M00S02550.dsp     +++|          SHN    21-5
03244  M00S02551.dsp     +++|          PJN    PRS12       IF NOT VALIDATED TO SPECIFY LID
03245  M00S02552.dsp     +++|          LDD    FB+1
03246  M00S02553.dsp     +++|          SHN    21-0
03247  M00S02554.dsp     +++|          MJN    PRS9        IF DEFERRED ROUTE
03248  M00S02555.dsp     +++|
03249  M00S02556.dsp     +++|*         PROCESS DATA DECLARATION.
03250  M00S02557.dsp     +++|
03251  M00S02558.dsp     +++| PRS11    LDM    EBIT+1
03252  M00S02559.dsp     +++|          SHN    21-0
03253  M00S02560.dsp     +++|          PJN    PRS15       IF DATA DECLARATION NOT SPECIFIED
03254  M00S02561.dsp     +++|          LDD    FS+3
03255  M00S02562.dsp     +++|          SHN    21-5
03256  M00S02563.dsp     +++|          MJN    PRS13       IF VALIDATED TO SPECIFY LID
Line S02564 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03257  M01S02564.v23l617 ---| PRS12    LJM    PRS18       * DSP - INVALID USER ACCESS.*
Line S00060 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03258  M01S00060.v23l617 +++| PRS12    LJM    PRS18       * DSP - USER ACCESS NOT VALID.*
03259  M00S02565.dsp     +++|
03260  M00S02566.dsp     +++| PRS13    LDD    FB+1
03261  M00S02567.dsp     +++|          SHN    21-0
03262  M00S02568.dsp     +++|          MJN    PRS9        IF DEFERRED ROUTE
03263  M00S02569.dsp     +++|          RJM    GFA         GET DATA DECLARATION VALUE
03264  M00S02570.dsp     +++|          ADN    7
03265  M00S02571.dsp     +++|          CRD    CM
03266  M00S02572.dsp     +++|          LDD    CM          SAVE DATA DECLARATION
03267  M00S02573.dsp     +++|          STM    DDEC
03268  M00S02574.dsp     +++|          LDN    TODDL
03269  M00S02575.dsp     +++|          STD    T1
03270  M00S02576.dsp     +++| PRS14    LDD    CM
03271  M00S02577.dsp     +++|          LMM    TODD-1,T1
03272  M00S02578.dsp     +++|          ZJN    PRS15       IF LEGAL DATA DECLARATION
03273  M00S02579.dsp     +++|          SOD    T1
03274  M00S02580.dsp     +++|          NJN    PRS14       IF MORE LEGAL VALUES TO CHECK
Line S02581 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03275  M01S02581.v23l617 ---|          ERROR  /ERR/EC14   * DSP - INVALID DATA DECLARATION.*
Line S00061 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03276  M01S00061.v23l617 +++|          ERROR  /ERR/EC14   * DSP - INCORRECT DATA DECLARATION.*
03277  M00S02582.dsp     +++|
03278  M00S02583.dsp     +++|*         CLEAR ERROR CODE IN PARAMETER BLOCK.
03279  M00S02584.dsp     +++|
Line S02585 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03280  M01S02585.v23l617 ---| PRS15    LDD    UN+3        CLEAR ERROR CODE
Line S00062 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03281  M01S00062.v23l617 +++| PRS15    LDD    FN+3        CLEAR ERROR CODE
03282  M00S02586.dsp     +++|          SCN    77
Line S02587 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03283  M01S02587.v23l617 ---|          STD    UN+3
03284  M00S02588.dsp     ---|          STD    FN+3
03285  M00S02589.dsp     ---|          LDD    FN+4        CHECK COMPLETE BIT
03286  M00S02590.dsp     ---|          STM    DSPC
03287  M00S02591.dsp     ---|          LPN    1
03288  M00S02592.dsp     ---|          ZJN    PRS16       IF COMPLETE BIT CLEARED
03289  M00S02593.dsp     ---|          ERROR  /ERR/EC17   * DSP COMPLETE BIT ALREADY SET.*
03290  M00S02594.dsp     ---|
03291  M00S02595.dsp     ---|*         PROCESS *SLID*/*DLID* PARAMETERS.
03292  M00S02596.dsp     ---|
03293  M00S02597.dsp     ---| PRS16    LDD    FB+1
03294  M00S02598.dsp     ---|          SHN    21-3
03295  M00S02599.dsp     ---|          MJN    PRS17       IF SLID/DLID SPECIFIED
03296  M00S02600.dsp     ---|          LJM    PRS21       SET OUTPUT FILE DESTINATION
03297  M00S02601.dsp     ---|
03298  M00S02602.dsp     ---| PRS17    LDD    FS+3
03299  M00S02603.dsp     ---|          SHN    21-5
03300  M00S02604.dsp     ---|          MJN    PRS19       IF VALIDATED TO SPECIFY SLID/DLID
03301  M01S02605.v23l617 ---| PRS18    ERROR  /ERR/EC10   * DSP - INVALID USER ACCESS.*
Line S00063 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03302  M01S00063.v23l617 +++| PRS18    ERROR  /ERR/EC10   * DSP - USER ACCESS NOT VALID.*
03303  M00S02606.dsp     +++|
03304  M00S02607.dsp     +++| PRS19    RJM    GFA         GET SLID/DLID
03305  M00S02608.dsp     +++|          ADN    2
03306  M00S02609.dsp     +++|          CRD    CN
03307  M00S02610.dsp     +++|          LDD    CN+1
03308  M00S02611.dsp     +++|          SCN    77
03309  M00S02612.dsp     +++|          SHN    6
03310  M00S02613.dsp     +++|          LMD    CN
03311  M00S02614.dsp     +++|          SHN    6
03312  M00S02615.dsp     +++|          ZJN    PRS20       IF SLID NOT SPECIFIED
03313  M00S02616.dsp     +++|          RJM    VLD         VALIDATE SLID
03314  M00S02617.dsp     +++|          LDC    SLFL        SET *SLID SPECIFIED* FLAG
03315  M00S02618.dsp     +++|          RAD    ST
03316  M00S02619.dsp     +++| PRS20    LDD    CN+1
03317  M00S02620.dsp     +++|          LPN    77
03318  M00S02621.dsp     +++|          SHN    14
03319  M00S02622.dsp     +++|          LMD    CN+2
03320  M00S02623.dsp     +++|          ZJN    PRS21       IF DLID NOT SPECIFIED
03321  M00S02624.dsp     +++|          RJM    VLD         VALIDATE DLID
03322  M00S02625.dsp     +++|          LDC    DLFL        SET *DLID SPECIFIED* FLAG
03323  M00S02626.dsp     +++|          RAD    ST
03324  M00S02627.dsp     +++|
03325  M00S02628.dsp     +++|*         SET OUTPUT FILE DESTINATION, IF END OF JOB.
03326  M00S02629.dsp     +++|
03327  M00S02630.dsp     +++| PRS21    LDD    CP          DETERMINE IF END OF JOB
03328  M00S02631.dsp     +++|          ADK    TFSW
03329  M00S02632.dsp     +++|          CRD    CM
03330  M00S02633.dsp     +++|          LDD    CM
03331  M00S02634.dsp     +++|          STM    EJTO        SAVE EJT ORDINAL
03332  M00S02635.dsp     +++|          SFA    EJT
03333  M00S02636.dsp     +++|          ADK    SCHE
03334  M00S02637.dsp     +++|          CRD    T3
03335  M00S02638.dsp     +++|          LDD    CP          GET END OF JOB DESTINATION
03336  M00S02639.dsp     +++|          ADN    EOJW
03337  M00S02640.dsp     +++|          CRD    CN
03338  M00S02641.dsp     +++|          RJM    GFA
03339  M00S02642.dsp     +++|          ADN    1
03340  M00S02643.dsp     +++|          CRD    CM
03341  M00S02644.dsp     +++|          LDD    T3+2
Line S02645 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03342  M01S02645.242l642 ---|          SHN    21-12
03343  M01S02646.242l642 ---|          PJN    PRS22       IF NOT END OF JOB
Line S00102 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03344  M01S00102.242l642 +++|          LPC    3000
03345  M01S00103.242l642 +++|          LMK    NOTM*1000
03346  M01S00104.242l642 +++|          ZJN    PRS22       IF NOT END OF JOB
03347  M00S02647.dsp     +++|          LDD    CN          SET END OF JOB DESTINATION
03348  M00S02648.dsp     +++|          SHN    -6
03349  M00S02649.dsp     +++|          LPN    7
03350  M00S02650.dsp     +++|          STD    T7
03351  M00S02651.dsp     +++|          LDM    TOQD,T7     GET CORRESPONDING DISPOSITION CODE
03352  M00S02652.dsp     +++|          STD    T7
03353  M00S02653.dsp     +++|          LDI    T7
03354  M00S02654.dsp     +++|          STM    TSFN+TSFNL-1
03355  M00S02655.dsp     +++|          LDD    CM          SET TERMINATION FLAG BITS
03356  M00S02656.dsp     +++|          SCN    77
03357  M00S02657.dsp     +++|          RAD    FB
03358  M00S02658.dsp     +++| PRS22    LDD    CM+2        SET DISPOSITION CODE
03359  M00S02659.dsp     +++|          STM    DDCB
03360  M00S02660.dsp     +++|
03361  M00S02661.dsp     +++|*         SET DEFAULT PUNCH MODE IN DISPOSITION TABLE.
03362  M00S02662.dsp     +++|
03363  M00S02663.dsp     +++|          LDD    CP          CHECK KEYPUNCH MODE OF JOB
03364  M00S02664.dsp     +++|          ADN    SNSW
03365  M00S02665.dsp     +++|          CRD    CM
03366  M00S02666.dsp     +++|          LDD    CM
03367  M00S02667.dsp     +++|          SHN    21-12
03368  M00S02668.dsp     +++|          PJN    PRS23       IF O26
03369  M00S02669.dsp     +++| .A       IF     DEF,PU$
03370  M00S02670.dsp     +++|          LDM    TODCA+1
03371  M00S02671.dsp     +++|          SCN    70
03372  M00S02672.dsp     +++|          LMN    P9FR*10
03373  M00S02673.dsp     +++|          STM    TODCA+1
03374  M00S02674.dsp     +++| .A       ENDIF
03375  M00S02675.dsp     +++| .B       IF     DEF,PH$
03376  M00S02676.dsp     +++|          LDM    TODCB+1
03377  M00S02677.dsp     +++|          SCN    70
03378  M00S02678.dsp     +++|          LMN    P9FR*10
03379  M00S02679.dsp     +++|          STM    TODCB+1
03380  M00S02680.dsp     +++| .B       ENDIF
03381  M00S02681.dsp     +++|
03382  M00S02682.dsp     +++|*         CHECK FOR FORCED ORIGIN TYPE.
03383  M00S02683.dsp     +++|
03384  M00S02684.dsp     +++| PRS23    LDM    EJTO        GET ORIGIN TYPE FROM EJT
03385  M00S02685.dsp     +++|          SFA    EJT
03386  M00S02686.dsp     +++|          ADK    SCLE
03387  M00S02687.dsp     +++|          CRD    CM
03388  M00S02688.dsp     +++|          LDD    CM          SAVE ORIGIN TYPE OF CALLING JOB
03389  M00S02689.dsp     +++|          SCN    60
03390  M00S02690.dsp     +++|          STM    JBOT
03391  M00S02691.dsp     +++|          LPN    17
03392  M00S02692.dsp     +++|          STD    OT
03393  M00S02693.dsp     +++|          LMK    SYOT
03394  M00S02694.dsp     +++|          NJN    PRS26       IF NOT SYSTEM ORIGIN
03395  M00S02695.dsp     +++|          LDN    SYFL        SET *SYOT* CP STATUS
03396  M00S02696.dsp     +++|          RAD    ST
03397  M00S02697.dsp     +++|          LDD    FN+4
03398  M00S02698.dsp     +++|          SHN    21-13
03399  M00S02699.dsp     +++|          PJN    PRS26       IF NOT FORCED ORIGIN FLAG
03400  M00S02700.dsp     +++|          SHN    -21+13-1
03401  M00S02701.dsp     +++|          LPN    77
03402  M00S02702.dsp     +++|          STD    T7          SAVE FORCED ORIGIN CODE
03403  M00S02703.dsp     +++|          SBN    MXOT
03404  M00S02704.dsp     +++|          PJN    PRS24       IF OUT OF RANGE
03405  M00S02705.dsp     +++|          LDM    TOOT,T7
03406  M00S02706.dsp     +++|          NJN    PRS25       IF LEGAL ORIGIN TYPE
Line S02707 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03407  M01S02707.v23l617 ---| PRS24    ERROR  /ERR/EC40   * DSP - INVALID ORIGIN TYPE.*
Line S00064 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03408  M01S00064.v23l617 +++| PRS24    ERROR  /ERR/EC40   * DSP - INCORRECT ORIGIN TYPE.*
03409  M00S02708.dsp     +++|
03410  M00S02709.dsp     +++| PRS25    LDD    T7
03411  M00S02710.dsp     +++|          STM    FSOT        SAVE FORCED ORIGIN TYPE
03412  M00S02711.dsp     +++|
03413  M00S02712.dsp     +++|*         CHECK FOR FORCED SERVICE CLASS.
03414  M00S02713.dsp     +++|
03415  M00S02714.dsp     +++| PRS26    RJM    GFA         GET FORCED SERVICE CLASS FLAG
03416  M00S02715.dsp     +++|          ADN    1
03417  M00S02716.dsp     +++|          CRD    CM
03418  M00S02717.dsp     +++|          ADN    3           GET FORCED SERVICE CLASS
03419  M00S02718.dsp     +++|          CRD    CN
03420  M00S02719.dsp     +++|          LDD    CM+3
03421  M00S02720.dsp     +++|          SHN    21-10
03422  M00S02721.dsp     +++|          PJN    PRS29       IF NOT FORCED SERVICE CLASS FLAG
03423  M00S02722.dsp     +++|          LCN    0           PRESET USER DEFAULT SELECTED
03424  M00S02723.dsp     +++|          STD    T7
03425  M00S02724.dsp     +++|          LDD    CN+1
03426  M00S02725.dsp     +++|          LMC    2RDF
03427  M00S02726.dsp     +++|          ZJN    PRS28       IF USER DEFAULT SELECTED
03428  M00S02727.dsp     +++|          LDN    MXSC-1      SET TABLE INDEX
03429  M00S02728.dsp     +++|          STD    T7
03430  M00S02729.dsp     +++| PRS27    LDM    TSCC,T7
03431  M00S02730.dsp     +++|          LMD    CN+1
03432  M00S02731.dsp     +++|          ZJN    PRS28       IF MATCH
03433  M00S02732.dsp     +++|          SOD    T7          DECREMENT INDEX
03434  M00S02733.dsp     +++|          NJN    PRS27       IF NOT END OF TABLE
03435  M00S02734.dsp     +++|          ERROR  /ERR/EC11   * DSP - UNDEFINED SERVICE CLASS.*
03436  M00S02735.dsp     +++|
03437  M00S02736.dsp     +++| PRS28    LDD    T7          SAVE FORCED SERVICE CLASS
03438  M00S02737.dsp     +++|          STM    FSSC
03439  M00S02738.dsp     +++|
03440  M00S02739.dsp     +++|*         PROCESS SUBSYSTEM INITIATION PARAMETERS.
03441  M00S02740.dsp     +++|
Line S02741 Modification History
M01 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03442  M01S02741.ns2556  ---| PRS29    RJM    GFA         GET POSSIBLE SUBSYSTEM NAME
Line S00053 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03443  M01S00053.ns2556  +++| PRS29    RJM    GFA         GET POSSIBLE SUBSYSTEM NAME / FORCED JSN
03444  M00S02742.dsp     +++|          ADN    6
03445  M00S02743.dsp     +++|          CRD    CN
Line S02744 Modification History
M01 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03446  M01S02744.ns2556  ---|          LDD    CN+3        SAVE SUBSYSTEM NAME FOR JSN
Line S00054 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03447  M01S00054.ns2556  +++|          LDD    CN+3        SAVE JSN
03448  M00S02745.dsp     +++|          LPN    77
03449  M00S02746.dsp     +++|          SHN    14
03450  M00S02747.dsp     +++|          LMD    CN+4
03451  M00S02748.dsp     +++|          SHN    -6+22
Line S02749 Modification History
M01 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03452  M01S02749.ns2556  ---|          STM    SBSN
Line S00055 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03453  M01S00055.ns2556  +++|          STM    FJSN
03454  M00S02750.dsp     +++|          SHN    -6
03455  M00S02751.dsp     +++|          SCN    77
03456  M00S02752.dsp     +++|          LMN    1R          SPACE FILL JSN
Line S02753 Modification History
M01 (Removed by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03457  M01S02753.ns2556  ---|          STM    SBSN+1
Line S00056 Modification History
M01 (Added by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03458  M01S00056.ns2556  +++|          STM    FJSN+1
Line S02754 Modification History
M01 (Removed by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03459  M01S02754.ns2785  ---|          LDM    EBIT+1      CHECK FOR CONTROL POINT SELECTION
Line S00003 Modification History
M01 (Added by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03460  M01S00003.ns2785  +++|          LDM    EBIT+1      CHECK SUBSYSTEM/CONTROL POINT SELECTION
03461  M00S02755.dsp     +++|          LPN    EFCP
Line S02756 Modification History
M01 (Removed by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03462  M01S02756.ns2785  ---|          ZJN    PRS30       IF NO CONTROL POINT SELECTION
Line S00004 Modification History
M01 (Added by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03463  M01S00004.ns2785  +++|          ZJN    PRS30       IF NO SUBSYSTEM/CONTROL POINT SELECTED
03464  M00S02757.dsp     +++|          LDN    NCPL        GET NUMBER OF CONTROL POINTS IN SYSTEM
03465  M00S02758.dsp     +++|          CRD    CM
03466  M00S02759.dsp     +++|          RJM    GFA         GET PARAMETER BLOCK ADDRESS
03467  M00S02760.dsp     +++|          ADN    12
03468  M00S02761.dsp     +++|          CRD    CN          READ PARAMETERS
03469  M00S02762.dsp     +++|          LDD    CN+3        CHECK CONTROL POINT NUMBER
03470  M00S02763.dsp     +++|          LPN    77
Line S02764 Modification History
M01 (Removed by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03471  M01S02764.ns2785  ---|          ZJN    PRS31       IF NOT SPECIFIED
03472  M01S02765.ns2785  ---|          STM    SBCP        PRESET CONTROL POINT NUMBER
03473  M00S02766.dsp     ---|          SBD    CM+1
03474  M01S02767.ns2785  ---|          SBN    1
Line S02768 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03475  M02S02768.ns2785  ---|          PJN    PRS31       IF INVALID CONTROL POINT NUMBER
Line S00065 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03476  M02S00065.ns2785  ---|          PJN    PRS31       IF INCORRECT CONTROL POINT NUMBER
Line S00005 Modification History
M01 (Added by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03477  M01S00005.ns2785  +++|          ZJN    PRS29.1     IF LAST CONTROL POINT NUMBER
03478  M01S00006.ns2785  +++|          PJN    PRS31       IF INCORRECT CONTROL POINT NUMBER
03479  M01S00007.ns2785  +++| PRS29.1  ADD    CM+1
03480  M01S00008.ns2785  +++|          NJN    PRS29.2     IF CONTROL POINT SELECTED
03481  M01S00009.ns2785  +++|          LDN    77          SELECT ANY AVAILABLE CONTROL POINT
03482  M01S00010.ns2785  +++| PRS29.2  STM    SBCP        PRESET CONTROL POINT SELECTION
03483  M00S02769.dsp     +++|          LDD    CN+4        CHECK SSID
03484  M00S02770.dsp     +++|          ZJN    PRS31       IF NOT SPECIFIED
03485  M00S02771.dsp     +++|          STM    SBID        PRESET SSID
03486  M00S02772.dsp     +++|          LDD    FB+1
03487  M00S02773.dsp     +++|          SHN    21-13
03488  M00S02774.dsp     +++|          PJN    PRS31       IF SUBSYSTEM INITIATION NOT SET
03489  M00S02775.dsp     +++| PRS30    LJM    PRSX        RETURN
03490  M00S02776.dsp     +++|
Line S02777 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03491  M01S02777.v23l617 ---| PRS31    LJM    PRS3        * DSP - INVALID REQUEST *
Line S00066 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03492  M01S00066.v23l617 +++| PRS31    LJM    PRS3        * DSP - INCORRECT REQUEST *
03493  M00S02778.dsp     +++| TSCC     SPACE  4,10
03494  M00S02779.dsp     +++|**        TSCC - TABLE OF SERVICE CLASS CODES.
03495  M00S02780.dsp     +++|*
03496  M00S02781.dsp     +++|*         INDEXED BY SERVICE CLASS.
03497  M00S02782.dsp     +++|*
03498  M00S02783.dsp     +++|*T        12/ SVC
Figure

011 SVC

03499  M00S02784.dsp     +++|*
03500  M00S02785.dsp     +++|*                SVC = SERVICE CLASS IN DISPLAY CODE.
03501  M00S02786.dsp     +++|
03502  M00S02787.dsp     +++|
03503  M00S02788.dsp     +++| TSCC     BSS    0
03504  M00S02789.dsp     +++|          LOC    0
03505  M00S02790.dsp     +++|
03506  M00S02791.dsp     +++|          DATA   H+"NMSC"+
03507  M00S02792.dsp     +++|
03508  M00S02793.dsp     +++|          LOC    *O
03509  M00S02794.dsp     +++| VLD      SPACE  4,15
03510  M00S02795.dsp     +++|**        VLD - VALIDATE LID.
03511  M00S02796.dsp     +++|*
03512  M00S02797.dsp     +++|*         ENTRY  (A) = LID.
03513  M00S02798.dsp     +++|*
Line S02799 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03514  M01S02799.v23l617 ---|*         EXIT   TO *ERR* IF INVALID LID SPECIFIED.
Line S00067 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03515  M01S00067.v23l617 +++|*         EXIT   TO *ERR* IF INCORRECT LID SPECIFIED.
03516  M00S02800.dsp     +++|*
03517  M00S02801.dsp     +++|*         CALLS  VID.
03518  M00S02802.dsp     +++|*
03519  M00S02803.dsp     +++|*         MACROS ERROR.
03520  M00S02804.dsp     +++|
03521  M00S02805.dsp     +++|
03522  M00S02806.dsp     +++| VLD      SUBR               ENTRY/EXIT
03523  M00S02807.dsp     +++|          MJN    VLD1        IF NOT SPECIAL CODE
03524  M00S02808.dsp     +++|          SBN    MXLC
03525  M00S02809.dsp     +++|          MJN    VLDX        IF VALID SPECIAL CODE
03526  M00S02810.dsp     +++|          ADN    MXLC
03527  M00S02811.dsp     +++| VLD1     RJM    VID         VALIDATE LOGICAL ID
03528  M00S02812.dsp     +++|          NJN    VLDX        IF VALID LID FOUND
Line S02813 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03529  M01S02813.v23l617 ---|          ERROR  /ERR/EC15   * DSP - INVALID LID.*
Line S00068 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03530  M01S00068.v23l617 +++|          ERROR  /ERR/EC15   * DSP - INCORRECT LID.*
03531  M00S02814.dsp     +++| VTA      SPACE  4,15
03532  M00S02815.dsp     +++|**        VTA - VALIDATE TEXT ADDRESS.
03533  M00S02816.dsp     +++|*
03534  M00S02817.dsp     +++|*         ENTRY  (CM+3 - CM+4) = ADDRESS OF REMOTE TEXT.
03535  M00S02818.dsp     +++|*
03536  M00S02819.dsp     +++|*         EXIT   (A) = LENGTH OF REMOTE TEXT (IN CM WORDS).
03537  M00S02820.dsp     +++|*                (A) = 0 IF NO TEXT.
03538  M00S02821.dsp     +++|*                TO *ERR* IF TEXT OUTSIDE FL, OR IF BAD TEXT LENGTH.
03539  M00S02822.dsp     +++|*
03540  M00S02823.dsp     +++|*         USES   T3, CN - CN+4.
03541  M00S02824.dsp     +++|*
03542  M00S02825.dsp     +++|*         CALLS  DV5, VCA.
03543  M00S02826.dsp     +++|*
03544  M00S02827.dsp     +++|*         MACROS ERROR.
03545  M00S02828.dsp     +++|
03546  M00S02829.dsp     +++|
03547  M00S02830.dsp     +++| VTA      SUBR               ENTRY/EXIT
03548  M00S02831.dsp     +++|          LDD    CM+3
03549  M00S02832.dsp     +++|          LPN    77
03550  M00S02833.dsp     +++|          SHN    14
03551  M00S02834.dsp     +++|          LMD    CM+4
03552  M00S02835.dsp     +++|          ZJN    VTAX        IF NO TEXT
03553  M00S02836.dsp     +++|          RJM    VCA         VALIDATE CENTRAL ADDRESS
03554  M00S02837.dsp     +++|          ZJN    VTA1        IF TEXT NOT WITHIN FL
03555  M00S02838.dsp     +++|          SHN    -6+22       READ LENGTH OF TEXT
03556  M00S02839.dsp     +++|          ADD    RA
03557  M00S02840.dsp     +++|          SHN    6
03558  M00S02841.dsp     +++|          CRD    CN
03559  M00S02842.dsp     +++|          LDD    CN+4        CHECK TEXT LENGTH
Line S02843 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03560  M01S02843.v23l617 ---|          ZJN    VTA1        IF ILLEGAL LENGTH
Line S00069 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03561  M01S00069.v23l617 +++|          ZJN    VTA1        IF INCORRECT LENGTH
03562  M00S02844.dsp     +++|          ADC    -257D
Line S02845 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03563  M01S02845.v23l617 ---|          PJN    VTA1        IF ILLEGAL LENGTH
Line S00070 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03564  M01S00070.v23l617 +++|          PJN    VTA1        IF INCORRECT LENGTH
03565  M00S02846.dsp     +++|          ADC    257D+1      ROUND UP
03566  M00S02847.dsp     +++|          SHN    -1          CONVERT CHARACTER LENGTH TO CM WORDS
03567  M00S02848.dsp     +++|          RJM    DV5
03568  M00S02849.dsp     +++|          STD    T3
03569  M00S02850.dsp     +++|          LDD    CM+3        ENSURE ENTIRE TEXT IS WITHIN FL
03570  M00S02851.dsp     +++|          LPN    77
03571  M00S02852.dsp     +++|          SHN    14
03572  M00S02853.dsp     +++|          LMD    CM+4
03573  M00S02854.dsp     +++|          ADD    T3
03574  M00S02855.dsp     +++|          RJM    VCA         VALIDATE ADDRESS
03575  M00S02856.dsp     +++|          ZJN    VTA1        IF TEXT NOT WITHIN FL
03576  M00S02857.dsp     +++|          LDD    T3          RETURN LENGTH OF TEXT
03577  M00S02858.dsp     +++|          LJM    VTAX        RETURN
03578  M00S02859.dsp     +++|
Line S02860 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03579  M01S02860.v23l617 ---| VTA1     ERROR  /ERR/EC12   * DSP - INVALID REQUEST.*
Line S00071 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03580  M01S00071.v23l617 +++| VTA1     ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
03581  M00S02861.dsp     +++| TODD     SPACE  4,10
03582  M00S02862.dsp     +++|**        TODD - TABLE OF LEGAL DATA DEFINITIONS.
03583  M00S02863.dsp     +++|
03584  M00S02864.dsp     +++|
03585  M00S02865.dsp     +++| TODD     BSS    0
03586  M00S02866.dsp     +++|          CON    2LC6
03587  M00S02867.dsp     +++|          CON    2LC8
03588  M00S02868.dsp     +++|          CON    2LUS
03589  M00S02869.dsp     +++|          CON    2LUU
03590  M00S02870.dsp     +++| TODDL    EQU    *-TODD
03591  M00S02871.dsp     +++| TOOT     SPACE  4,10
03592  M00S02872.dsp     +++|**        TOOT - TABLE OF ORIGIN TYPES.
03593  M00S02873.dsp     +++|*
03594  M00S02874.dsp     +++|*T        12/FO
Figure

011FO

03595  M00S02875.dsp     +++|*
03596  M00S02876.dsp     +++|*         FO = IF NONZERO, THIS ORIGIN TYPE IS VALID AS A
03597  M00S02877.dsp     +++|*                ORIGIN TYPE FOR *SYOT* CALLERS.
03598  M00S02878.dsp     +++|
03599  M00S02879.dsp     +++|
03600  M00S02880.dsp     +++| TOOT     INDEX
03601  M00S02881.dsp     +++|          INDEX  SYOT,2
03602  M00S02882.dsp     +++|          INDEX  BCOT,2
03603  M00S02883.dsp     +++|          INDEX  EIOT,2
03604  M00S02884.dsp     +++|          INDEX  IAOT,2
03605  M00S02885.dsp     +++|          INDEX  MXOT
03606  M00S02886.dsp     +++| TOQD     SPACE  4,10
03607  M00S02887.dsp     +++|**        TOQD - TABLE OF QUEUE DESTINATIONS.
03608  M00S02888.dsp     +++|*
03609  M00S02889.dsp     +++|*T        12/DC
Figure

011DC

03610  M00S02890.dsp     +++|*
03611  M00S02891.dsp     +++|*         DC= DESTINATION CODE FOR SPECIFIED QUEUE
03612  M00S02892.dsp     +++|
03613  M00S02893.dsp     +++|
03614  M00S02894.dsp     +++| TOQD     INDEX
03615  M00S02895.dsp     +++|          INDEX  QOJT,(=C*LP*)  QUEUE ALL OUTPUT
03616  M00S02896.dsp     +++|          INDEX  NOJT,(=C*SC*)  DROP ALL OUTPUT
03617  M00S02897.dsp     +++|          INDEX  TTJT,(=C*TT*)  OUTPUT TO INTERACTIVE QUEUE
03618  M00S02898.dsp     +++|          INDEX  SSJT,(=C*SS*)  OUTPUT TO STATION OUTPUT QUEUE
03619  M00S02899.dsp     +++|          INDEX  MXJT
03620  M00S02900.dsp     +++|          SPACE  4,10
03621  M00S02901.dsp     +++|**        COMMON DECKS.
03622  M00S02902.dsp     +++|
Line S00004 Modification History
M01 (Added by) dsp16
Seq #  *Modification Id* Act 
----------------------------+
03623  M01S00004.dsp16   +++|
03624  M00S02903.dsp     +++|*CALL     COMPCRS
Line S00007 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03625  M01S00007.dsp12   +++|*CALL     COMPCUA
03626  M00S02904.dsp     +++| RND$     EQU    1           FORCE ROUNDING ON *DV5* CONVERSION
03627  M00S02905.dsp     +++|*CALL     COMPDV5
03628  M00S02906.dsp     +++|          SPACE  4,10
03629  M00S02907.dsp     +++| IFP      HERE               REMOTE INITIALIZATION CODE
03630  M00S02908.dsp     +++|          SPACE  4,10
03631  M00S02909.dsp     +++|          OVERFLOW  PPFW,EPFW
03632  M00S02910.dsp     +++|          OVERLAY  (FILE DESTINATION ROUTINES.),OVL4
Line S00027 Modification History
M01 (Added by) v22l602
M02 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03633  M02S00027.ns2493  ---|          SPACE  4,10
03634  M02S00028.ns2493  ---|*         COMMON DECKS.
03635  M02S00029.ns2493  ---|
03636  M02S00030.ns2493  ---|
03637  M02S00031.ns2493  ---| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
03638  M02S00032.ns2493  ---|*CALL     COMSSSD
Line S00001 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03639  M02S00001.ns2734  ---| CFM      SPACE  4,10
03640  M02S00002.ns2734  ---|**        CFM - COMPARE FAMILY NAME.
Line S00001 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03641  M01S00001.ns2734  +++| CAA      SPACE  4,10
03642  M01S00002.ns2734  +++|**        CAA - CHECK ALTERNATE FAMILY/USER ACCESS.
Line S00003 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03643  M01S00003.dsp26   +++|*
Line S00004 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03644  M02S00004.ns2734  ---|*         ENTRY  (T3) = ADDRESS OF FAMILY FIELD TO BE CHECKED.
Line S00003 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03645  M01S00003.ns2734  +++|*         ENTRY  (ST) = STATUS WORD.
Line S00005 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03646  M01S00005.dsp26   +++|*
Line S00006 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03647  M02S00006.ns2734  ---|*         EXIT   (A) = 0 IF FAMILY NAMES IDENTICAL.
03648  M02S00007.ns2734  ---|*                (A) .NE. 0 OTHERWISE.
Line S00004 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03649  M01S00004.ns2734  +++|*         EXIT   TO *ERR* IF ACCESS NOT ALLOWED.
Line S00008 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03650  M01S00008.dsp26   +++|*
Line S00009 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03651  M02S00009.ns2734  ---|*         USES   CM - CM+4.
Line S00005 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03652  M01S00005.ns2734  +++|*         USES   T1, T4 - T7, CM - CM+4, UN - UN+4.
Line S00010 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03653  M01S00010.dsp26   +++|*
Line S00011 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03654  M02S00011.ns2734  ---|*         CALLS  RFN.
Line S00006 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03655  M01S00006.ns2734  +++|*         CALLS  CPN, RFN, SSJ.
03656  M01S00007.ns2734  +++|*
03657  M01S00008.ns2734  +++|*         MACROS ERROR.
Line S00012 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03658  M01S00012.dsp26   +++|
03659  M01S00013.dsp26   +++|
Line S00014 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03660  M02S00014.ns2734  ---| CFM      SUBR               ENTRY/EXIT
Line S00009 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03661  M01S00009.ns2734  +++| CAA      SUBR               ENTRY/EXIT
03662  M01S00010.ns2734  +++|          LDD    ST
03663  M01S00011.ns2734  +++|          LPN    SYFL
03664  M01S00012.ns2734  +++|          NJN    CAAX        IF SYSTEM ORIGIN
03665  M01S00013.ns2734  +++|          LDD    ST
03666  M01S00014.ns2734  +++|          LPN    SSFL
03667  M01S00015.ns2734  +++|          ZJN    CAAX        IF SUBSYSTEM PROCESSING
03668  M01S00016.ns2734  +++|          RJM    SSJ         CHECK FOR *SSJ=* BLOCK
03669  M01S00017.ns2734  +++|          ZJN    CAA1        IF NO *SSJ=* BLOCK
03670  M01S00018.ns2734  +++|          ADK    AACS        READ ACCESS WORD
03671  M01S00019.ns2734  +++|          CRD    T4
03672  M01S00020.ns2734  +++|          ADK    UIDS-AACS
03673  M01S00021.ns2734  +++|          UJN    CAA2        READ USER NAME
03674  M01S00022.ns2734  +++|
03675  M01S00023.ns2734  +++| CAA1     LDD    CP          READ ACCESS WORD
03676  M01S00024.ns2734  +++|          ADK    AACW
03677  M01S00025.ns2734  +++|          CRD    T4
03678  M01S00026.ns2734  +++|          ADK    UIDW-AACW   READ USER NAME
03679  M01S00027.ns2734  +++| CAA2     CRD    UN          READ USER NAME
03680  M01S00028.ns2734  +++|          LDD    T4+2
03681  M01S00029.ns2734  +++|          SHN    21-6
03682  M01S00030.ns2734  +++|          MJN    CAA3        IF ROUTE TO ALTERNATE FAMILY ALLOWED
Line S00015 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03683  M01S00015.dsp26   +++|          RJM    RFN         READ FAMILY NAME
03684  M01S00016.dsp26   +++|          CRD    CM
Line S00017 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03685  M02S00017.ns2734  ---|          LDD    CM
03686  M02S00018.ns2734  ---|          LMI    T3
03687  M02S00019.ns2734  ---|          NJN    CFMX        IF NOT SAME FAMILY
03688  M02S00020.ns2734  ---|          LDD    CM+1
03689  M02S00021.ns2734  ---|          LMM    1,T3
03690  M02S00022.ns2734  ---|          NJN    CFMX        IF NOT SAME FAMILY
03691  M02S00023.ns2734  ---|          LDD    CM+2
03692  M02S00024.ns2734  ---|          LMM    2,T3
03693  M02S00025.ns2734  ---|          NJN    CFMX        IF NOT SAME FAMILY
03694  M02S00026.ns2734  ---|          LDD    CM+3
03695  M02S00027.ns2734  ---|          LMM    3,T3
Line S00031 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03696  M01S00031.ns2734  +++|          LDN    CM
03697  M01S00032.ns2734  +++|          STD    T1          SET CURRENT FAMILY NAME ADDRESS
03698  M01S00033.ns2734  +++|          LDC    FMSS        SET NEW FAMILY NAME ADDRESS
03699  M01S00034.ns2734  +++|          RJM    CPN         COMPARE FAMILY NAMES
03700  M01S00035.ns2734  +++|          ZJN    CAA3        IF SAME FAMILY
03701  M01S00036.ns2734  +++|          ERROR  /ERR/EC46   * DSP - ALTERNATE FAMILY NOT ALLOWED.*
03702  M01S00037.ns2734  +++|
03703  M01S00038.ns2734  +++| CAA3     LDD    T4+2
03704  M01S00039.ns2734  +++|          SHN    21-5
03705  M01S00040.ns2734  +++|          MJN    CAA4        IF ROUTE TO ALTERNATE USER NAME ALLOWED
03706  M01S00041.ns2734  +++|          LDN    UN          SET CURRENT USER NAME ADDRESS
03707  M01S00042.ns2734  +++|          STD    T1
03708  M01S00043.ns2734  +++|          LDC    ACSS        SET NEW USER NAME ADDRESS
03709  M01S00044.ns2734  +++|          RJM    CPN         COMPARE USER NAMES
03710  M01S00045.ns2734  +++|          NJN    CAA5        IF NOT SAME USER NAME
03711  M01S00046.ns2734  +++| CAA4     LJM    CAAX        RETURN
03712  M01S00047.ns2734  +++|
03713  M01S00048.ns2734  +++| CAA5     ERROR  /ERR/EC51   * DSP - ALTERNATE USER NOT ALLOWED.*
03714  M01S00049.ns2734  +++| CPN      SPACE  4,10
03715  M01S00050.ns2734  +++|**        CPN - COMPARE NAMES.
03716  M01S00051.ns2734  +++|*
03717  M01S00052.ns2734  +++|*         ENTRY  (A) = ADDRESS OF SECOND NAME TO COMPARE.
03718  M01S00053.ns2734  +++|*                (T1) = ADDRESS OF FIRST NAME TO COMPARE.
03719  M01S00054.ns2734  +++|*
03720  M01S00055.ns2734  +++|*         EXIT   (A) = 0 IF NAMES MATCH.
03721  M01S00056.ns2734  +++|*                (A) .NE. 0 IF NAMES DO NOT MATCH.
03722  M01S00057.ns2734  +++|*
03723  M01S00058.ns2734  +++|*         USES   T1, T2.
03724  M01S00059.ns2734  +++|
03725  M01S00060.ns2734  +++|
03726  M01S00061.ns2734  +++| CPN      SUBR               ENTRY/EXIT
03727  M01S00062.ns2734  +++|          STD    T2          SET SECOND NAME ADDRESS
03728  M01S00063.ns2734  +++|          ADN    3           SET ADDRESS OF LAST BYTE
03729  M01S00064.ns2734  +++|          STD    T0
03730  M01S00065.ns2734  +++| CPN1     LDI    T1
03731  M01S00066.ns2734  +++|          LMI    T2
03732  M01S00067.ns2734  +++|          NJN    CPNX        IF NO MATCH
03733  M01S00068.ns2734  +++|          AOD    T1
03734  M01S00069.ns2734  +++|          AOD    T2
03735  M01S00070.ns2734  +++|          LMD    T0
03736  M01S00071.ns2734  +++|          NJN    CPN1        IF MORE FULL BYTES TO CHECK
03737  M01S00072.ns2734  +++|          LDI    T1
03738  M01S00073.ns2734  +++|          LMI    T2
Line S00028 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03739  M01S00028.dsp26   +++|          SCN    77
Line S00029 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03740  M02S00029.ns2734  ---|          UJN    CFMX        RETURN
Line S02911 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03741  M01S02911.ns2734  ---| VFM      SPACE  4,15
03742  M01S02912.ns2734  ---|**        VFM - VALIDATE FAMILY ACCESS.
03743  M01S02913.ns2734  ---|*
03744  M01S02914.ns2734  ---|*         ENTRY  (A) = ADDRESS OF SYSTEM SECTOR FIELD FOR FAMILY CHECK.
03745  M01S02915.ns2734  ---|*                (ST) = STATUS WORD.
03746  M01S02916.ns2734  ---|*
03747  M01S02917.ns2734  ---|*         EXIT   (A) = 0 IF FAMILY ACCESS ALLOWED.
03748  M01S02918.ns2734  ---|*                (A) .NE. 0 IF FAMILY ACCESS NOT ALLOWED.
03749  M01S02919.ns2734  ---|*
Line S02920 Modification History
M01 (Removed by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03750  M02S02920.ns2734  ---|*         USES   CM - CM+4, T3.
Line S00030 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03751  M02S00030.ns2734  ---|*         USES   T3, CM - CM+4.
Line S02921 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03752  M01S02921.ns2734  ---|*
Line S02922 Modification History
M01 (Removed by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03753  M02S02922.ns2734  ---|*         CALLS  RFN, SSJ.
Line S00031 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03754  M02S00031.ns2734  ---|*         CALLS  CFM, SSJ.
Line S02923 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03755  M01S02923.ns2734  ---|
03756  M01S02924.ns2734  ---|
03757  M01S02925.ns2734  ---| VFM4     LDN    0           SET VALID FAMILY ACCESS
03758  M01S02926.ns2734  ---|
03759  M01S02927.ns2734  ---| VFM      SUBR               ENTRY/EXIT
03760  M01S02928.ns2734  ---|          STD    T3
03761  M01S02929.ns2734  ---|          LDD    ST
03762  M01S02930.ns2734  ---|          LPN    SYFL
03763  M01S02931.ns2734  ---|          NJN    VFM4        IF SYSTEM ORIGIN
03764  M01S02932.ns2734  ---|          LDD    ST
03765  M01S02933.ns2734  ---|          LPN    SSFL
Line S02934 Modification History
M01 (Removed by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03766  M02S02934.ns2734  ---|          ZJN    VFM4        IF SUBSYSTEM
Line S00032 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03767  M02S00032.ns2734  ---|          ZJN    VFMX        IF SUBSYSTEM
Line S02935 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03768  M01S02935.ns2734  ---|          RJM    SSJ         CHECK FOR SSJ= BLOCK
03769  M01S02936.ns2734  ---|          ZJN    VFM1        IF NO SSJ= BLOCK
03770  M01S02937.ns2734  ---|          ADK    AACS        GET ACCESS WORD
03771  M01S02938.ns2734  ---|          UJN    VFM2        CHECK FAMILY ACCESS
03772  M01S02939.ns2734  ---|
03773  M01S02940.ns2734  ---| VFM1     LDD    CP          GET ACCESS WORD
03774  M01S02941.ns2734  ---|          ADK    AACW
03775  M01S02942.ns2734  ---| VFM2     CRD    CM
03776  M01S02943.ns2734  ---|          LDD    CM+3        CHECK IF ALTERNATE FAMILY ACCESS ALLOWED
03777  M01S02944.ns2734  ---|          SHN    21-11
03778  M01S02945.ns2734  ---|          MJN    VFM4        IF ALTERNATE FAMILY ALLOWED
Line S02946 Modification History
M01 (Removed by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03779  M02S02946.ns2734  ---|          RJM    RFN         READ FAMILY NAME
03780  M02S02947.ns2734  ---|          CRD    CM
03781  M02S02948.ns2734  ---|          LDD    CM
03782  M02S02949.ns2734  ---|          LMM    0,T3
03783  M02S02950.ns2734  ---|          NJN    VFM3        IF NOT SAME FAMILY
03784  M02S02951.ns2734  ---|          LDD    CM+1
03785  M02S02952.ns2734  ---|          LMM    1,T3
03786  M02S02953.ns2734  ---|          NJN    VFM3        IF NOT SAME FAMILY
03787  M02S02954.ns2734  ---|          LDD    CM+2
03788  M02S02955.ns2734  ---|          LMM    2,T3
03789  M02S02956.ns2734  ---|          NJN    VFM3        IF NOT SAME FAMILY
03790  M02S02957.ns2734  ---|          LDD    CM+3
03791  M02S02958.ns2734  ---|          LMM    3,T3
03792  M02S02959.ns2734  ---|          SCN    77
03793  M02S02960.ns2734  ---| VFM3     LJM    VFMX        RETURN
Line S00033 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03794  M02S00033.ns2734  ---|          RJM    CFM         COMPARE FAMILY NAMES
03795  M02S00034.ns2734  ---|          UJN    VFMX        RETURN
Line S00074 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03796  M01S00074.ns2734  +++|          UJN    CPNX        RETURN WITH (A) = 0 IF MATCH
03797  M00S02961.dsp     +++| VIF      SPACE  4,25
03798  M00S02962.dsp     +++|**        VIF - VERIFY INPUT FILE.
03799  M00S02963.dsp     +++|*
03800  M00S02964.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
03801  M00S02965.dsp     +++|*                (FS - FS+4) = FST ENTRY.
03802  M00S02966.dsp     +++|*                (OT) = ORIGIN TYPE.
03803  M00S02967.dsp     +++|*
03804  M00S02968.dsp     +++|*         EXIT   (FN - FN+4) = FNT ENTRY FOR INPUT FILE.
03805  M00S02969.dsp     +++|*                (FS - FS+4) = FST ENTRY.
03806  M00S02970.dsp     +++|*
03807  M00S02971.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
03808  M00S02972.dsp     +++|*                ROUTE TO INPUT NOT IMMEDIATE.
03809  M00S02973.dsp     +++|*                IMMEDIATE ROUTE - NO FILE.
Line S02974 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03810  M01S02974.v23l617 ---|*                INVALID USER CARD.
03811  M01S02975.v23l617 ---|*                JOB CARD ERROR.
03812  M01S02976.v23l617 ---|*                INVALID JOB ABORT CODE.
03813  M01S02977.v23l617 ---|*                INVALID SERVICE CLASS.
Line S00072 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03814  M01S00072.v23l617 +++|*                INCORRECT USER COMMAND.
03815  M01S00073.v23l617 +++|*                JOB COMMAND ERROR.
03816  M01S00074.v23l617 +++|*                INCORRECT JOB ABORT CODE.
03817  M01S00075.v23l617 +++|*                INCORRECT SERVICE CLASS.
03818  M00S02978.dsp     +++|*                ALTERNATE FAMILY NOT ALLOWED.
Line S00105 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03819  M01S00105.242l642 +++|*         ERROR  TO *EER3* IF INACCESSIBLE DEVICE RETURN BY *0VJ*.
03820  M00S02979.dsp     +++|*
Line S02980 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03821  M01S02980.ns2734  ---|*         USES   ST, T1, T3, T5 - T7, FN - FN+4, CM - CM+4,
03822  M01S02981.ns2734  ---|*                CN - CN+4, UN - UN+4.
Line S00075 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03823  M01S00075.ns2734  +++|*         USES   ST, T1, T3, T5 - T7, FN - FN+4, CM - CM+4, CN - CN+4,
03824  M01S00076.ns2734  +++|*                UN - UN+4.
03825  M00S02982.dsp     +++|*
Line S02983 Modification History
M01 (Removed by) dsp26
M02 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
03826  M02S02983.251l664 ---|*         CALLS  CVS, GFA, GFM, GFO, RNS, SQO, VFM, WDS, *0VJ*.
Line S00014 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03827  M02S00014.ns2734  ---|*         CALLS  CVS, GFA, GFM, GFO, RNS, SQO, VFM, WMS, *0VJ*.
Line S00077 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03828  M01S00077.ns2734  +++|*         CALLS  CAA, CPN, CVS, GFA, GFM, GFO, RFN, RNS, SQO, SSJ, WMS,
03829  M01S00078.ns2734  +++|*                *0VJ*.
Line S00035 Modification History
M01 (Added by) dsp26
M02 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
03830  M02S00035.251l664 ---|*         CALLS  CFM, CVS, GFA, GFM, GFO, RNS, SQO, SSJ, VFM, WDS,
03831  M02S00036.251l664 ---|*                *0VJ*.
03832  M00S02984.dsp     ---|*
03833  M00S02985.dsp     ---|*         MACROS ENDMS, ERROR, EXECUTE, SETMS.
03834  M00S02986.dsp     ---|
03835  M00S02987.dsp     ---|
03836  M00S02988.dsp     ---| VIF      SUBR               ENTRY/EXIT
Line S02989 Modification History
M01 (Removed by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03837  M01S02989.ns2493  ---|          LDD    FB+1
03838  M01S02990.ns2493  ---|          SHN    21-0
03839  M01S02991.ns2493  ---|          PJN    VIF1        IF NOT DEFERRED ROUTE
03840  M01S02992.ns2493  ---|          ERROR  /ERR/EC05   * DSP - ROUTE TO INPUT NOT IMMEDIATE.*
03841  M01S02993.ns2493  ---|
03842  M01S02994.ns2493  ---| VIF1     LDM    INFL        CHECK INPUT FLAGS
Line S00093 Modification History
M01 (Added by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03843  M01S00093.ns2493  +++|          LDM    INFL        CHECK INPUT FLAGS
03844  M00S02995.dsp     +++|          SHN    21-10
Line S02996 Modification History
M01 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03845  M01S02996.ns2420  ---|          MJP    VIF16       IF FORCED ABORT FLAG SET
Line S00001 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03846  M01S00001.ns2420  +++|          MJP    VIF15       IF FORCED ABORT FLAG SET
03847  M00S02997.dsp     +++|
03848  M00S02998.dsp     +++|*         READ FIRST SECTOR OF INPUT FILE.
03849  M00S02999.dsp     +++|
03850  M00S03000.dsp     +++|          AOM    VIFA        INDICATE FIRST SECTOR OF FILE WAS READ
03851  M00S03001.dsp     +++|          LDD    FS          SET EQUIPMENT
03852  M00S03002.dsp     +++|          STD    T5
03853  M00S03003.dsp     +++|          LDD    FS+1        SET FIRST TRACK
03854  M00S03004.dsp     +++|          STD    T6
03855  M00S03005.dsp     +++|          LDN    FSMS        SET FIRST SECTOR
03856  M00S03006.dsp     +++|          STD    T7
Line S03007 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03857  M01S03007.242l642 ---|          SETMS  READ
Line S00106 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03858  M01S00106.242l642 +++|          SETMS  IO
03859  M00S03008.dsp     +++|          LDC    SBUF        READ NEXT SECTOR
03860  M00S03009.dsp     +++|          RJM    RNS
03861  M00S03010.dsp     +++|          ENDMS
03862  M00S03011.dsp     +++|          LDD    T1
03863  M00S03012.dsp     +++|          NJN    VIF2        IF FILE NOT EMPTY
03864  M00S03013.dsp     +++|          ERROR  /ERR/EC06   * DSP - IMMEDIATE ROUTING - NO FILE.*
03865  M00S03014.dsp     +++|
Line S03015 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03866  M01S03015.v23l617 ---|*         VALIDATE JOB CARD AND USER STATEMENT.
Line S00076 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03867  M01S00076.v23l617 +++|*         VALIDATE JOB COMMAND AND USER COMMAND.
03868  M00S03016.dsp     +++|
Line S03017 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03869  M01S03017.v23l617 ---| VIF2     LDC    STMT        SET STATEMENT BUFFER ADDRESS
Line S00077 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03870  M01S00077.v23l617 +++| VIF2     LDC    STMT        SET COMMAND BUFFER ADDRESS
03871  M00S03018.dsp     +++|          STD    CN
03872  M00S03019.dsp     +++|          LDM    DLAT        SET DLID ATTRIBUTES
03873  M00S03020.dsp     +++|          STD    CN+1
03874  M00S03021.dsp     +++|          LDM    LFAL        SET LOCAL FILE ACCESS LEVEL
03875  M00S03022.dsp     +++|          STD    CN+2
03876  M00S03023.dsp     +++|          LDM    EBIT+1      PASS *DO NOT VALIDATE PASSWORD* FLAG
03877  M00S03024.dsp     +++|          LPN    EFNV
Line S00037 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03878  M01S00037.dsp26   +++|          STM    VIFE+1
03879  M00S03025.dsp     +++|          SHN    13-4
03880  M00S03026.dsp     +++|          ERRNZ  EFNV-20     CODE DEPENDS ON VALUE
03881  M00S03027.dsp     +++|          RAD    CN+2
03882  M00S03028.dsp     +++|          LDD    ST
03883  M00S03029.dsp     +++|          LPN    DSFL        IF FILE ROUTED BEFORE, CHECK ENCRYPTED PW
03884  M00S03030.dsp     +++|          SHN    12-1
03885  M00S03031.dsp     +++|          ERRNZ  DSFL-2      CODE DEPENDS ON VALUE
03886  M00S03032.dsp     +++|          RAD    CN+2
03887  M00S03033.dsp     +++|          LDM    EBIT+1
03888  M00S03034.dsp     +++|          LPK    EFEP
03889  M00S03035.dsp     +++|          ZJN    VIF3        IF ENCRYPTED PASSWORD NOT SPECIFIED
03890  M00S03036.dsp     +++|          LDD    CN+2        SET ENCRYPTED PW VALIDATION BIT
03891  M00S03037.dsp     +++|          LPC    5777
03892  M00S03038.dsp     +++|          LMC    2000
03893  M00S03039.dsp     +++|          STD    CN+2
03894  M00S03040.dsp     +++|          RJM    GFA         GET PARAMETER BLOCK ADDRESS
03895  M00S03041.dsp     +++|          ADN    14
03896  M00S03042.dsp     +++|          CRD    CM
03897  M00S03043.dsp     +++|          LDD    MA          MOVE PASSWORD TO SYSTEM SECTOR
03898  M00S03044.dsp     +++|          CWD    CM
03899  M00S03045.dsp     +++|          CRM    EPSS,ON
03900  M00S03046.dsp     +++| VIF3     LDD    OT
03901  M00S03047.dsp     +++|          LMK    SYOT
03902  M00S03048.dsp     +++|          NJN    VIF3.1      IF NOT ROUTE TO *SYOT*
03903  M00S03049.dsp     +++|          LDC    1000        SET SYSTEM ORIGIN JOB BIT
03904  M00S03050.dsp     +++|          RAD    CN+2
03905  M00S03051.dsp     +++| VIF3.1   LDD    ST
Line S03052 Modification History
M01 (Removed by) dsp32
Seq #  *Modification Id* Act 
----------------------------+
03906  M01S03052.dsp32   ---|          LPC    DLFL
Line S00001 Modification History
M01 (Added by) dsp32
M02 (Removed by) dsp32a
Seq #  *Modification Id* Act 
----------------------------+
03907  M02S00001.dsp32a  ---|          LPC    DLFL+DSFL
Line S00001 Modification History
M01 (Added by) dsp32a
Seq #  *Modification Id* Act 
----------------------------+
03908  M01S00001.dsp32a  +++|          LPK    DLFL
03909  M00S03053.dsp     +++|          NJN    VIF4        IF DLID SPECIFIED IN PARAMETER BLOCK
Line S03054 Modification History
M01 (Removed by) dsp32a
Seq #  *Modification Id* Act 
----------------------------+
03910  M01S03054.dsp32a  ---|          STD    CN+1        CLEAR DLID ATTRIBUTES
Line S00002 Modification History
M01 (Added by) dsp32a
Seq #  *Modification Id* Act 
----------------------------+
03911  M01S00002.dsp32a  +++|          LDD    ST
03912  M01S00003.dsp32a  +++|          LPK    DSFL
03913  M01S00004.dsp32a  +++|          ZJN    VIF3.2      IF NOT PREVIOUSLY ROUTED FILE
03914  M01S00005.dsp32a  +++|          LDM    DLID
03915  M01S00006.dsp32a  +++|          ADM    DLID+1
03916  M01S00007.dsp32a  +++|          NJN    VIF4        IF DLID NONZERO
03917  M01S00008.dsp32a  +++| VIF3.2   STD    CN+1        CLEAR DLID ATTRIBUTES
Line S03055 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03918  M01S03055.v23l617 ---| VIF4     EXECUTE 0VJ,OVL3   VERIFY JOB/USER STATEMENTS
Line S00078 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03919  M01S00078.v23l617 +++| VIF4     EXECUTE 0VJ,OVL3   VERIFY JOB/USER COMMANDS
Line S00107 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03920  M01S00107.242l642 +++|          MJP    EER3        IF MASS STORAGE DEVICE INACCESSIBLE
Line S03056 Modification History
M01 (Removed by) dsp22
Seq #  *Modification Id* Act 
----------------------------+
03921  M01S03056.dsp22   ---|          LDD    FN+4
Line S00001 Modification History
M01 (Added by) dsp22
Seq #  *Modification Id* Act 
----------------------------+
03922  M01S00001.dsp22   +++|          LDD    ST
03923  M01S00002.dsp22   +++|          LPN    SSFL
03924  M01S00003.dsp22   +++|          ZJN    VIF4.1      IF SUBSYSTEM CALLER
03925  M01S00004.dsp22   +++|          LDD    CP          USE DEFERRED BATCH LIMIT OF OWNER USER
03926  M01S00005.dsp22   +++|          ADK    ALMW
03927  M01S00006.dsp22   +++|          CRD    CM
03928  M01S00007.dsp22   +++|          LDD    CM+1
03929  M01S00008.dsp22   +++|          LMM    VASS+AHMT*5+1
03930  M01S00009.dsp22   +++|          SCN    70
03931  M01S00010.dsp22   +++|          LMD    CM+1
03932  M01S00011.dsp22   +++|          STM    VASS+AHMT*5+1
03933  M01S00012.dsp22   +++| VIF4.1   LDD    FN+4
03934  M00S03057.dsp     +++|          LPN    77
03935  M00S03058.dsp     +++|          LMC    INFT*100
03936  M00S03059.dsp     +++|          STD    FN+4
03937  M00S03060.dsp     +++|          LDD    CN
03938  M00S03061.dsp     +++|          ZJN    VIF5        IF DLID NOT SPECIFIED
03939  M00S03062.dsp     +++|          STM    DLAT        SET DLID ATTRIBUTES
Line S03063 Modification History
M01 (Removed by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03940  M01S03063.dsp26   ---|          UJN    VIF6        ALLOW ALTERNATE FAMILY WITH DLID
Line S00038 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03941  M02S00038.ns2734  ---|          LJM    VIF6.3      ALLOW ALTERNATE FAMILY WITH DLID
Line S03064 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03942  M01S03064.ns2734  ---|
Line S00039 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03943  M02S00039.ns2734  ---|*         CHECK IF ALTERNATE FAMILY ACCESS IS ALLOWED.
03944  M02S00040.ns2734  ---|
Line S03065 Modification History
M01 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03945  M01S03065.ns2734  ---| VIF5     LDC    FMSS        SET FAMILY FIELD
03946  M01S03066.ns2734  ---|          RJM    VFM         VALIDATE FAMILY
Line S03067 Modification History
M01 (Removed by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03947  M02S03067.ns2734  ---|          NJN    VIF7        IF ACCESS NOT ALLOWED
Line S00041 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03948  M02S00041.ns2734  ---|          NJN    VIF6.2      IF ACCESS NOT ALLOWED
Line S00079 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03949  M01S00079.ns2734  +++|          LJM    VIF6.3      ALLOW ALTERNATE FAMILY/USER WITH DLID
03950  M01S00080.ns2734  +++|
03951  M01S00081.ns2734  +++| VIF5     RJM    CAA         CHECK ALTERNATE FAMILY/USER ACCESS ALLOWED
03952  M00S03068.dsp     +++|
Line S00042 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03953  M01S00042.dsp26   +++|*         VERIFY THAT THE FAMILY AND THE USER INDEX HAVE NOT BEEN
03954  M01S00043.dsp26   +++|*         CHANGED IF THE *DO NOT VALIDATE PASSWORD* FLAG IS SET.
03955  M01S00044.dsp26   +++|
03956  M01S00045.dsp26   +++| VIFE     LDC    **          (*DO NOT VALIDATE PASSWORD* FLAG)
03957  M01S00046.dsp26   +++|          ZJN    VIF6.3      IF PASSWORD VALIDATION REQUIRED
Line S00082 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03958  M01S00082.ns2734  +++|          RJM    RFN         READ FAMILY NAME
03959  M01S00083.ns2734  +++|          CRD    CM
03960  M01S00084.ns2734  +++|          LDN    CM          SET CURRENT FAMILY NAME ADDRESS
03961  M01S00085.ns2734  +++|          STD    T1
Line S00047 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03962  M01S00047.dsp26   +++|          LDC    FMSS        ADDRESS OF FAMILY IN SYSTEM SECTOR
Line S00048 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03963  M02S00048.ns2734  ---|          STD    T3
03964  M02S00049.ns2734  ---|          RJM    CFM         COMPARE FAMILY NAMES
Line S00086 Modification History
M01 (Added by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03965  M01S00086.ns2734  +++|          RJM    CPN         COMPARE FAMILY NAMES
Line S00050 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03966  M01S00050.dsp26   +++|          NJN    VIF6.2      IF DIFFERENT FAMILIES
03967  M01S00051.dsp26   +++|          RJM    SSJ         CHECK FOR *SSJ=* BLOCK
03968  M01S00052.dsp26   +++|          ZJN    VIF6        IF NO *SSJ=* BLOCK
03969  M01S00053.dsp26   +++|          ADK    UIDS
03970  M01S00054.dsp26   +++|          UJN    VIF6.1      CHECK USER INDEX
03971  M01S00055.dsp26   +++|
03972  M01S00056.dsp26   +++| VIF6     LDD    CP          GET CP USER INDEX
03973  M01S00057.dsp26   +++|          ADK    UIDW
03974  M01S00058.dsp26   +++| VIF6.1   CRD    CM
03975  M01S00059.dsp26   +++|          LDD    CM+3
03976  M01S00060.dsp26   +++|          LMM    ACSS+3
03977  M01S00061.dsp26   +++|          LPN    37
03978  M01S00062.dsp26   +++|          SHN    14
03979  M01S00063.dsp26   +++|          ADD    CM+4
03980  M01S00064.dsp26   +++|          LMM    ACSS+4
Line S00065 Modification History
M01 (Added by) dsp26
M02 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03981  M02S00065.ns2420  ---| VIF6.2   NJN    VIF7        IF DIFFERENT USER INDEX
Line S00002 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03982  M01S00002.ns2420  +++| VIF6.2   NJP    VIF7        IF DIFFERENT USER INDEX
Line S00066 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03983  M01S00066.dsp26   +++|
Line S03069 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03984  M01S03069.v23l617 ---|*         CHECK FOR USER CARD ERROR.
Line S00079 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03985  M01S00079.v23l617 +++|*         CHECK FOR USER COMMAND ERROR.
03986  M00S03070.dsp     +++|
Line S03071 Modification History
M01 (Removed by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03987  M01S03071.dsp26   ---| VIF6     LDD    ER          CHECK ERROR STATUS
Line S00067 Modification History
M01 (Added by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03988  M01S00067.dsp26   +++| VIF6.3   LDD    ER          CHECK ERROR STATUS
03989  M00S03072.dsp     +++|          LMN    3
Line S03073 Modification History
M01 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03990  M01S03073.ns2420  ---|          NJN    VIF9        IF NOT USER COMMAND ERROR
03991  M01S03074.ns2420  ---|          STM    IOSS+INSQ*5+1  CLEAR DLID
Line S00003 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03992  M01S00003.ns2420  +++|          NJP    VIF9        IF NOT USER COMMAND ERROR
03993  M01S00004.ns2420  +++|          LDM    DLAT
Line S00005 Modification History
M01 (Added by) ns2420
M02 (Removed by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
03994  M02S00005.ns2420a ---|          ZJN    VIF6.4      IF NO DLID SPECIFIED
Line S00006 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03995  M01S00006.ns2420  +++|          SHN    21-13
03996  M01S00007.ns2420  +++|          MJN    VIF6.4      IF HOST LID
03997  M01S00008.ns2420  +++|          SHN    21-11-21+13
Line S00009 Modification History
M01 (Added by) ns2420
M02 (Removed by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
03998  M02S00009.ns2727  ---|          PJP    VIF27       IF VALIDATION NOT REQUIRED FOR DLID
Line S00001 Modification History
M01 (Added by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
03999  M01S00001.ns2727  +++|          PJN    VIF9        IF VALIDATION NOT REQUIRED FOR DLID
Line S00010 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04000  M01S00010.ns2420  +++| VIF6.4   LDN    0           CLEAR DLID
04001  M01S00011.ns2420  +++|          STM    IOSS+INSQ*5+1
04002  M00S03075.dsp     +++|          LDM    IOSS+INSQ*5+2
04003  M00S03076.dsp     +++|          LPN    77
04004  M00S03077.dsp     +++|          STM    IOSS+INSQ*5+2
04005  M00S03078.dsp     +++|          LDD    OT
04006  M00S03079.dsp     +++|          LMK    SYOT
04007  M00S03080.dsp     +++|          ZJN    VIF10       IF ROUTE TO *SYOT* - IGNORE USER COMMAND
04008  M00S03081.dsp     +++|          LDD    ST
04009  M00S03082.dsp     +++|          LPN    SSFL
Line S03083 Modification History
M01 (Removed by) dsp38
Seq #  *Modification Id* Act 
----------------------------+
04010  M01S03083.dsp38   ---|          ZJN    VIF9        IF SUBSYSTEM CALL
04011  M01S03084.dsp38   ---|          LDM    JASS        CHECK ERROR CODE
Line S00003 Modification History
M01 (Added by) dsp38
Seq #  *Modification Id* Act 
----------------------------+
04012  M01S00003.dsp38   +++|          NJN    VIF6.5      IF NOT SUBSYSTEM CALL
04013  M01S00004.dsp38   +++|          LDM    INFL
04014  M01S00005.dsp38   +++|          SHN    21-7
04015  M01S00006.dsp38   +++|          MJN    VIF9        IF FILE TO BE QUEUED
04016  M01S00007.dsp38   +++| VIF6.5   LDM    JASS        CHECK ERROR CODE
04017  M00S03085.dsp     +++|          LMN    UCIE
04018  M00S03086.dsp     +++|          ZJN    VIF8        IF USER SECURITY COUNT EXHAUSTED
04019  M00S03087.dsp     +++| VIF7     ERROR  /ERR/EC34   * DSP - INCORRECT USER COMMAND.*
04020  M00S03088.dsp     +++|
04021  M00S03089.dsp     +++| VIF8     ERROR  /ERR/EC47   * DSP - USER SECURITY COUNT EXHAUSTED.*
04022  M00S03090.dsp     +++|
Line S03091 Modification History
M01 (Removed by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04023  M01S03091.dsp12   ---| VIF9     UJN    VIF11       CHECK SERVICE CLASS
Line S00008 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04024  M01S00008.dsp12   +++| VIF9     LJM    VIF11       CHECK SERVICE CLASS
04025  M00S03092.dsp     +++|
04026  M00S03093.dsp     +++|*         SET *SYSTEMX* LIMITS FOR SYSTEM JOBS WITH NO
Line S03094 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04027  M01S03094.v23l617 ---|*         OR ILLEGAL USER CARDS.
Line S00080 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04028  M01S00080.v23l617 +++|*         OR INCORRECT USER COMMANDS.
04029  M00S03095.dsp     +++|
Line S03096 Modification History
M01 (Removed by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04030  M01S03096.dsp12   ---| VIF10    LDN    1           GET DEFAULT FAMILY NAME
Line S00009 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04031  M01S00009.dsp12   +++| VIF10    LDD    MA          SAVE THE FNT ENTRY
Line S00010 Modification History
M01 (Added by) dsp12
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04032  M02S00010.v23l617 ---|          ADN    4
Line S00011 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04033  M01S00011.dsp12   +++|          CWD    FN
Line S00081 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04034  M01S00081.v23l617 +++|          CRM    VIFB,ON
Line S00012 Modification History
M01 (Added by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04035  M01S00012.dsp12   +++|          LDN    1           GET DEFAULT FAMILY NAME
04036  M00S03097.dsp     +++|          RJM    GFM
Line S03098 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04037  M01S03098.v23l617 ---|          LDD    MA          SET UN, UI, CHARGE IN VALIDATION BLOCK
04038  M01S03099.v23l617 ---|          CWM    VIFB,ON
Line S00082 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04039  M01S00082.v23l617 +++|          LDD    MA          SET UN/UI IN VALIDATION BLOCK
04040  M00S03100.dsp     +++|          CWM    VIFC,ON
04041  M00S03101.dsp     +++|          CWD    FN
04042  M00S03102.dsp     +++|          ADN    1
04043  M00S03103.dsp     +++|          CWM    VIFD,ON
04044  M00S03104.dsp     +++|          LDD    MA
Line S03105 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04045  M01S03105.v23l617 ---|          CRM    VASS+ACGN*5,ON
04046  M00S03106.dsp     ---|          CRM    VASS+ACCN*5,ON
04047  M00S03107.dsp     ---|          SBN    1
04048  M00S03108.dsp     ---|          CRM    ACSS,ON     SET USER NAME
04049  M00S03109.dsp     ---|          CRM    FMSS,ON     SET FAMILY NAME
04050  M00S03110.dsp     ---|          CRM    VASS+AHMT*5,ON  SET UNLIMITED USER VALIDATION INDICES
04051  M00S03111.dsp     ---|          SBN    1
04052  M00S03112.dsp     ---|          CRM    VASS+AHDS*5,ON
04053  M00S03113.dsp     ---|          SBN    1
04054  M00S03114.dsp     ---|          CRM    VASS+AAWC*5,ON
Line S00013 Modification History
M01 (Added by) dsp12
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04055  M02S00013.v23l617 ---|          CRD    FN          RESTORE THE FNT ENTRY
Line S00083 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04056  M01S00083.v23l617 +++|          LDD    MA          RESTORE FNT ENTRY
04057  M01S00084.v23l617 +++|          CWM    VIFB,ON
04058  M01S00085.v23l617 +++|          SBN    1
04059  M01S00086.v23l617 +++|          CRD    FN
04060  M00S03115.dsp     +++|
04061  M00S03116.dsp     +++|*         CHECK FOR SERVICE CLASS SPECIFIED IN PARAMETER BLOCK.
04062  M00S03117.dsp     +++|
04063  M00S03118.dsp     +++| VIF11    LDD    FB+1
04064  M00S03119.dsp     +++|          SHN    21-13
Line S03120 Modification History
M01 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04065  M01S03120.ns2420  ---|          MJP    VIF16       IF SUBSYSTEM INITIATION
Line S00012 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04066  M01S00012.ns2420  +++|          MJP    VIF15       IF SUBSYSTEM INITIATION
04067  M00S03121.dsp     +++|          LDM    EBIT+1
04068  M00S03122.dsp     +++|          LPK    EFSC
04069  M00S03123.dsp     +++|          ZJN    VIF12       IF ORIGIN DEFAULT NOT SELECTED
04070  M00S03124.dsp     +++|          LDM    VIFT,OT
Line S03125 Modification History
M01 (Removed by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04071  M01S03125.ns2317  ---|          UJN    VIF14       SET ORIGIN DEFAULT
Line S00008 Modification History
M01 (Added by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04072  M01S00008.ns2317  +++|          LJM    VIF14       SET ORIGIN DEFAULT
04073  M00S03126.dsp     +++|
04074  M00S03127.dsp     +++| VIF12    LDM    FSSC
04075  M00S03128.dsp     +++|          SHN    6
04076  M00S03129.dsp     +++|          STD    T1
Line S03130 Modification History
M01 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04077  M01S03130.ns2420  ---|          ZJP    VIF16       IF NO SERVICE CLASS SPECIFIED
Line S00013 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04078  M01S00013.ns2420  +++|          ZJP    VIF15       IF NO SERVICE CLASS SPECIFIED
Line S00009 Modification History
M01 (Added by) ns2317
M02 (Removed by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04079  M02S00009.dsp40   ---|          LDM    EBIT+1
04080  M02S00010.dsp40   ---|          LPK    EFDS
04081  M02S00011.dsp40   ---|          NJN    VIF13.1     IF SERVICE CLASS NOT TO BE VALIDATED
Line S00012 Modification History
M01 (Added by) ns2317
M02 (Removed by) 251l664
M03 (Removed by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04082  M03S00012.dsp40   ---|          LDD    T1
Line S00015 Modification History
M01 (Added by) 251l664
M02 (Removed by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04083  M02S00015.dsp40   ---|          LDM    FSSC
04084  M02S00016.dsp40   ---|          SHN    21-13
04085  M00S03131.dsp     ---|          PJN    VIF13       IF NOT USER DEFAULT
04086  M00S03132.dsp     ---|          LDD    CN+1        USE DEFAULT RETURNED BY *0VJ*
04087  M00S03133.dsp     ---|          STM    FSSC
04088  M00S03134.dsp     ---|          SHN    6
04089  M00S03135.dsp     ---|          STD    T1
Line S03136 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04090  M01S03136.v23l617 ---|          ZJP    VIF23       IF INVALID USER DEFAULT
Line S00087 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04091  M01S00087.v23l617 +++|          ZJP    VIF23       IF INCORRECT USER DEFAULT
04092  M00S03137.dsp     +++| VIF13    RJM    CVS         CHECK FOR VALID SERVICE CLASS
04093  M00S03138.dsp     +++|          NJP    VIF23       IF ERROR
Line S03139 Modification History
M01 (Removed by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04094  M01S03139.ns2317  ---|          LDM    IOSS+SCLQ*5 UPDATE SERVICE CLASS IN QFT ENTRY
Line S00013 Modification History
M01 (Added by) ns2317
M02 (Removed by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04095  M02S00013.dsp40   ---| VIF13.1  LDM    IOSS+SCLQ*5 UPDATE SERVICE CLASS IN QFT ENTRY
Line S00001 Modification History
M01 (Added by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04096  M01S00001.dsp40   +++|          LDM    IOSS+SCLQ*5 UPDATE SERVICE CLASS IN QFT ENTRY
04097  M00S03140.dsp     +++|          LPN    77
04098  M00S03141.dsp     +++|          LMD    T1
04099  M00S03142.dsp     +++| VIF14    STM    IOSS+SCLQ*5
04100  M00S03143.dsp     +++|          LDM    JASS
04101  M00S03144.dsp     +++|          LMN    SCIE
Line S03145 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04102  M01S03145.v23l617 ---|          ZJN    VIF15       IF INVALID SERVICE CLASS ERROR
Line S00088 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04103  M02S00088.ns2420  ---|          ZJN    VIF15       IF INCORRECT SERVICE CLASS
Line S00014 Modification History
M01 (Added by) ns2420
M02 (Removed by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04104  M02S00014.dsp41   ---|          ZJN    VIF16       IF INCORRECT SERVICE CLASS
Line S00001 Modification History
M01 (Added by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04105  M01S00001.dsp41   +++|          ZJN    VIF14.1     IF INCORRECT SERVICE CLASS
04106  M00S03146.dsp     +++|          LMN    USIE&SCIE
Line S03147 Modification History
M01 (Removed by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04107  M01S03147.ns2317  ---|          NJN    VIF18       IF DEFINDED SERVICE CLASSERROR
Line S00014 Modification History
M01 (Added by) ns2317
M02 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04108  M02S00014.ns2420  ---|          NJN    VIF18       IF NOT DEFINED SERVICE CLASS ERROR
Line S03148 Modification History
M01 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04109  M01S03148.ns2420  ---| VIF15    STM    JASS
Line S00015 Modification History
M01 (Added by) ns2420
M02 (Removed by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04110  M02S00015.dsp41   ---|          ZJN    VIF16       IF UNDEFINED SERVICE CLASS ERROR
Line S00002 Modification History
M01 (Added by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04111  M01S00002.dsp41   +++|          NJN    VIF15       IF NOT UNDEFINED SERVICE CLASS ERROR
04112  M01S00003.dsp41   +++| VIF14.1  STM    JASS        CLEAR ERROR IF SKIPPING VALIDATION
Line S00016 Modification History
M01 (Added by) ns2420
M02 (Removed by) ns2420b
Seq #  *Modification Id* Act 
----------------------------+
04113  M02S00016.ns2420b ---|          UJN    VIF18       CHECK IF FILE TO BE QUEUED
04114  M00S03149.dsp     ---|
Line S03150 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04115  M01S03150.v23l617 ---|*         CHECK FOR JOB CARD ERRORS.
Line S00089 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04116  M01S00089.v23l617 +++|*         CHECK FOR JOB COMMAND ERRORS.
04117  M00S03151.dsp     +++|
Line S03152 Modification History
M01 (Removed by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04118  M01S03152.ns2420  ---| VIF16    LDM    JASS
04119  M01S03153.ns2420  ---|          ZJP    VIF25       IF NO ERROR
Line S00017 Modification History
M01 (Added by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04120  M01S00017.ns2420  +++| VIF15    LDM    JASS
Line S00018 Modification History
M01 (Added by) ns2420
M02 (Removed by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04121  M02S00018.dsp41   ---| VIF16    ZJP    VIF25       IF NO ERROR OR SERVICE CLASS ERROR
Line S00004 Modification History
M01 (Added by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04122  M01S00004.dsp41   +++|          ZJP    VIF25       IF NO ERROR
04123  M00S03154.dsp     +++|          LMN    SCIE
Line S03155 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04124  M01S03155.v23l617 ---|          ZJN    VIF17       IF INVALID SERVICE CLASS ERROR
Line S00090 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04125  M01S00090.v23l617 +++|          ZJN    VIF17       IF INCORRECT SERVICE CLASS
04126  M00S03156.dsp     +++|          LMN    USIE&SCIE
04127  M00S03157.dsp     +++|          NJN    VIF18       IF DEFINED SERVICE CLASS
04128  M00S03158.dsp     +++| VIF17    LDM    VIFT,OT     RESET SERVICE CLASS
04129  M00S03159.dsp     +++|          STM    IOSS+SCLQ*5
04130  M00S03160.dsp     +++| VIF18    LDM    INFL        GET INPUT FLAGS
04131  M00S03161.dsp     +++|          SHN    21-7
Line S03162 Modification History
M01 (Removed by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
04132  M01S03162.ns2242  ---|          MJP    VIF27       IF FILE TO BE QUEUED DESPITE ERROR
04133  M01S03163.ns2242  ---|          LDM    JASS        CHECK ERROR TYPE
Line S00009 Modification History
M01 (Added by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
04134  M01S00009.ns2242  +++|          PJN    VIF18.1     IF FILE NOT TO BE QUEUED
04135  M01S00010.ns2242  +++|          AOM    DSPF        FLAG ABORTED INPUT FILE
04136  M01S00011.ns2242  +++|          LJM    VIF27       QUEUE THE FILE
04137  M01S00012.ns2242  +++|
04138  M01S00013.ns2242  +++| VIF18.1  LDM    JASS        CHECK ERROR FLAG
04139  M00S03164.dsp     +++|          LMN    JCIE
04140  M00S03165.dsp     +++|          NJN    VIF19       IF NOT JOB COMMAND ERROR
Line S03166 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04141  M01S03166.v23l617 ---|          ERROR  /ERR/EC32   (JOB CARD ERROR.)
Line S00091 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04142  M01S00091.v23l617 +++|          ERROR  /ERR/EC32   (JOB COMMAND ERROR.)
04143  M00S03167.dsp     +++|
04144  M00S03168.dsp     +++| VIF19    LMN    IDIE&JCIE
Line S03169 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04145  M01S03169.v23l617 ---|          NJN    VIF20       IF NOT INVALID LID
04146  M01S03170.v23l617 ---|          ERROR  /ERR/EC15   * DSP - INVALID LID.*
Line S00092 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04147  M01S00092.v23l617 +++|          NJN    VIF20       IF NOT INCORRECT LID
04148  M01S00093.v23l617 +++|          ERROR  /ERR/EC15   * DSP - INCORRECT LID.*
04149  M00S03171.dsp     +++|
04150  M00S03172.dsp     +++| VIF20    LMN    STIE&IDIE
Line S03173 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04151  M01S03173.v23l617 ---|          NJN    VIF22       IF NOT INVALID ATTEMPT TO SPECIFY *ST*
04152  M01S03174.v23l617 ---| VIF21    ERROR  /ERR/EC10   * DSP - INVALID USER ACCESS.*
Line S00094 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04153  M01S00094.v23l617 +++|          NJN    VIF22       IF NOT INCORRECT ATTEMPT TO SPECIFY *ST*
04154  M01S00095.v23l617 +++| VIF21    ERROR  /ERR/EC10   * DSP - USER ACCESS NOT VALID.*
04155  M00S03175.dsp     +++|
04156  M00S03176.dsp     +++| VIF22    LMN    SCIE&STIE
Line S03177 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04157  M01S03177.v23l617 ---|          NJN    VIF24       IF NOT INVALID SERVICE CLASS
04158  M01S03178.v23l617 ---| VIF23    ERROR  /ERR/EC45   * DSP - INVALID SERVICE CLASS.*
Line S00096 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04159  M01S00096.v23l617 +++|          NJN    VIF24       IF NOT INCORRECT SERVICE CLASS
04160  M01S00097.v23l617 +++| VIF23    ERROR  /ERR/EC45   * DSP - INCORRECT SERVICE CLASS.*
04161  M00S03179.dsp     +++|
04162  M00S03180.dsp     +++| VIF24    LMN    USIE&SCIE
04163  M00S03181.dsp     +++|          NJN    VIF25       IF NOT UNDEFINED SERVICE CLASS ERROR
04164  M00S03182.dsp     +++|          ERROR  /ERR/EC11   * DSP - UNDEFINED SERVICE CLASS.*
04165  M00S03183.dsp     +++|
04166  M00S03184.dsp     +++| VIF25    LDM    IOSS+INSQ*5+1
04167  M00S03185.dsp     +++|          NJN    VIF26       IF DLID SPECIFIED ON JOB COMMAND
04168  M00S03186.dsp     +++|          LDD    ST
04169  M00S03187.dsp     +++|          LPC    DLFL
04170  M00S03188.dsp     +++|          ZJN    VIF27       IF DLID NOT SPECIFIED IN PARAMETER BLOCK
04171  M00S03189.dsp     +++| VIF26    LDD    CP
04172  M00S03190.dsp     +++|          ADK    AACW        CHECK FOR *CUST* VALIDATION
04173  M00S03191.dsp     +++|          CRD    CM
04174  M00S03192.dsp     +++|          LDD    CM+3
04175  M00S03193.dsp     +++|          SHN    21-5
04176  M00S03194.dsp     +++|          PJN    VIF21       IF CALLING USER NOT VALIDATED TO USE *ST*
04177  M00S03195.dsp     +++|          SHN    21-4-21+5   CHECK FOR *CQLK* VALIDATION
04178  M00S03196.dsp     +++|          MJN    VIF27       IF CALLING USER VALIDATED TO USE LCN
04179  M00S03197.dsp     +++|          LDM    DLAT
Line S03198 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04180  M01S03198.v23l617 ---|          SHN    21-12
04181  M01S03199.v23l617 ---|          MJP    VIF21       IF DLID HAS *LINKED* ATTRIBUTE
Line S00098 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04182  M01S00098.v23l617 +++|          SHN    21-13
04183  M01S00099.v23l617 +++|          PJP    VIF21       IF DLID DOES NOT HAVE *HOST* ATTRIBUTE
04184  M01S00100.v23l617 +++|
Line S03200 Modification History
M01 (Removed by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04185  M01S03200.ns2420c ---|
Proceed to Part 3