User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dsp.002

Deck DSP Part 002

81 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
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 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02954  M02S00018.v23l617 ---|          ERROR  /ERR/EC03   * DSP - INVALID FILE TYPE.*
02955  M01S00055.v23l617 +++|          ERROR  /ERR/EC03   * DSP - INCORRECT FILE TYPE.*
02956  M01S00019.dsp15   +++|
02957  M01S02350.dsp     +++|*         VALIDATE FILE-S CURRENT MASS STORAGE ASSIGNMENT.
02958  M01S02351.dsp     +++|
Line S02352 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02959  M02S02352.dsp9    ---| FFQ8     LDD    FS          GET EST ORDINAL
Line S02353 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp9
Seq #  *Modification Id* Act 
----------------------------+
02960  M02S02353.dsp9    ---|          ZJN    FFQ9        IF *RD* DEVICE
Line S00004 Modification History
M01 (Added by) dsp9
M02 (Updated by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02961  M02S00004.dsp9a   ---| FFQ8     LDD    FS+1        CHECK FST ENTRY
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
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 (Updated by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02969  M02S00008.dsp9a   ---|          LDD    FS
Line S00009 Modification History
M01 (Added by) dsp9
M02 (Updated by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02970  M02S00009.dsp9a   ---|          ZJN    FFQ10       IF NULL FILE
Line S02354 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp9a
Seq #  *Modification Id* Act 
----------------------------+
02971  M02S02354.dsp9a   ---|          RJM    VMS         VALIDATE MASS STORAGE
02972  M01S02355.dsp     +++| FFQ9     LJM    FFQX        RETURN
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.*
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"
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  M01S02356.dsp     +++| VUL      SPACE  4,10
03018  M01S02357.dsp     +++|**        VUL - VALIDATE USER LIMITS.
03019  M01S02358.dsp     +++|*
03020  M01S02359.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
03021  M01S02360.dsp     +++|*
03022  M01S02361.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
03023  M01S02362.dsp     +++|*                TOO MANY DEFERRED BATCH JOBS.
03024  M01S02363.dsp     +++|*
03025  M01S02364.dsp     +++|*         USES   T0 - T4, CM - CM+4.
03026  M01S02365.dsp     +++|*
Line S02366 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03027  M02S02366.dsp12   ---|*         CALLS  CDB, CUA, DBI, GEA.
03028  M01S00002.dsp12   +++|*         CALLS  CDB, DBI, GEA.
03029  M01S02367.dsp     +++|*
03030  M01S02368.dsp     +++|*         MACROS ERROR.
03031  M01S02369.dsp     +++|
03032  M01S02370.dsp     +++|
03033  M01S02371.dsp     +++| VUL      SUBR               ENTRY/EXIT
03034  M01S02372.dsp     +++|          LDD    FB
03035  M01S02373.dsp     +++|          SHN    21-13
03036  M01S02374.dsp     +++|          MJN    VULX        IF JOB TERMINATION AND VALIDATION DISABLED
03037  M01S02375.dsp     +++|          LDD    FB+1
03038  M01S02376.dsp     +++|          SHN    21-0
03039  M01S02377.dsp     +++|          MJN    VULX        IF DEFERRED ROUTE
Line S02378 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03040  M02S02378.dsp12   ---|          RJM    CUA         CHECK USER ACCESS
03041  M01S00003.dsp12   +++|          LDM    CUAV        CHECK USER ACCESS
03042  M01S02379.dsp     +++|          ZJN    VULX        IF USER SYSTEM PRIVILEGES
03043  M01S02380.dsp     +++|          RJM    GEA         GET EJT ADDRESS
03044  M01S02381.dsp     +++|          CRD    T0
03045  M01S02382.dsp     +++|          RJM    CDB         COUNT DEFERRED BATCH JOBS
03046  M01S02383.dsp     +++|          LDD    CP          GET *DB* FIELD FROM CONTROL POINT
03047  M01S02384.dsp     +++|          ADN    ALMW
03048  M01S02385.dsp     +++|          CRD    CM
03049  M01S02386.dsp     +++|          LDD    CM+1
03050  M01S02387.dsp     +++|          RJM    DBI         GET DEFERRED BATCH LIMITS
03051  M01S02388.dsp     +++|          MJN    VULX        IF UNLIMITED
03052  M01S02389.dsp     +++|          SBD    T4
03053  M01S02390.dsp     +++|          SBN    1
03054  M01S02391.dsp     +++|          PJN    VULX        IF LIMIT NOT REACHED
03055  M01S02392.dsp     +++|          ERROR  /ERR/EC33   * DSP - TOO MANY DEFERRED BATCH JOBS.*
03056  M01S02393.dsp     +++|          SPACE  4,10
03057  M01S02394.dsp     +++|**        COMMON DECKS.
03058  M01S02395.dsp     +++|
03059  M01S00003.dsp16   +++|
03060  M01S02396.dsp     +++|*CALL     COMPCDB
Line S02397 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03061  M02S02397.dsp12   ---|*CALL     COMPCUA
03062  M01S02398.dsp     +++| DBI$     SET    1           DEFINE DEFERRED BATCH CONVERSION
03063  M01S02399.dsp     +++|*CALL     COMPCVI
03064  M01S02400.dsp     +++| SAF$     SET    1           SELECT *COMPSAF* SEARCH FOR ASSIGNED FILE
03065  M01S02401.dsp     +++|*CALL     COMPSAF
03066  M01S02402.dsp     +++|*CALL     COMPSFB
03067  M01S02403.dsp     +++|*CALL     COMPVFN
03068  M01S02404.dsp     +++| PRS      TITLE  PRESET.
03069  M01S02405.dsp     +++|**        PRS - PRESET ROUTINE.
03070  M01S02406.dsp     +++|*
03071  M01S02407.dsp     +++|*         EXIT   (FB - FB+1) = FLAG BITS.
03072  M01S02408.dsp     +++|*                (FN - FN+4) = (UN - UN+4) = FILE NAME.
03073  M01S02409.dsp     +++|*                (DDCB) = DISPOSITION CODE.
03074  M01S02410.dsp     +++|*                (EBIT - EBIT+1) = EXTENDED PARAMETER BLOCK FLAG BITS.
03075  M01S02411.dsp     +++|*                (SFDA) = FORCED ORIGIN TYPE INSTRUCTION.
03076  M01S02412.dsp     +++|*                (VULA) = SYSTEM ORIGIN PRIVILEGES FLAG.
03077  M01S02413.dsp     +++|*
03078  M01S02414.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S02415 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03079  M02S02415.v23l617 ---|*                INVALID DSP REQUEST.
03080  M01S00056.v23l617 +++|*                INCORRECT *DSP* REQUEST.
03081  M01S02416.dsp     +++|*                COMPLETE BIT ALREADY SET.
Line S02417 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03082  M02S02417.v23l617 ---|*                INVALID ORIGIN TYPE.
03083  M01S00057.v23l617 +++|*                INCORRECT ORIGIN TYPE.
03084  M01S02418.dsp     +++|*
03085  M01S02419.dsp     +++|*         USES   ER, FA, QA, ST, T7, CM - CM+4, CN - CN+4,
03086  M01S02420.dsp     +++|*                FB - FB+1, FN - FN+4.
03087  M01S02421.dsp     +++|*
Line S02422 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
03088  M02S02422.dsp12   ---|*         CALLS  CRS, GFA, IFP, VCA, VLD, VTA.
03089  M01S00004.dsp12   +++|*         CALLS  CRS, CUA, GFA, IFP, VCA, VLD, VTA.
03090  M01S02423.dsp     +++|*
03091  M01S02424.dsp     +++|*         MACROS ERROR, SFA.
03092  M01S02425.dsp     +++|
03093  M01S02426.dsp     +++|
03094  M01S02427.dsp     +++| PRS      SUBR               ENTRY/EXIT
03095  M01S02428.dsp     +++|          LDN    0           CLEAR ERROR STATUS AND FNT POINTERS
03096  M01S02429.dsp     +++|          STD    ER
03097  M01S02430.dsp     +++|          STD    ST
03098  M01S02431.dsp     +++|          STD    FA
03099  M01S02432.dsp     +++|          STD    QA
03100  M01S02433.dsp     +++|          STD    FB
03101  M01S02434.dsp     +++|          STD    FB+1
03102  M01S02435.dsp     +++|          RJM    IFP         INITIALIZE *SFA* CALL
03103  M01S00005.dsp12   +++|          RJM    CUA         CHECK USER ACCESS
03104  M01S00006.dsp12   +++|          STM    CUAV
03105  M01S02436.dsp     +++|
03106  M01S02437.dsp     +++|*         CHECK AUTO RECALL STATUS.
03107  M01S02438.dsp     +++|
03108  M01S02439.dsp     +++|          LDD    CP          READ SUBSYSTEM ID
03109  M01S02440.dsp     +++|          ADN    JCIW
03110  M01S02441.dsp     +++|          CRD    CM
03111  M01S02442.dsp     +++|          ADN    AACW-JCIW
03112  M01S02443.dsp     +++|          CRD    FS
03113  M01S02444.dsp     +++|          ADN    SEPW-AACW   GET SPECIAL ENTRY POINT WORD
03114  M01S02445.dsp     +++|          CRD    CN
03115  M01S02446.dsp     +++|          LDC    LSSI
03116  M01S02447.dsp     +++|          SBD    CM+2
Line S02448 Modification History
M01 (Added by) dsp
M02 (Updated by) tldsp1
Seq #  *Modification Id* Act 
----------------------------+
03117  M02S02448.tldsp1  ---|          MJN    PRS1        IF SUBSYSTEM
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  M01S02449.dsp     +++|          LDN    SSFL        FLAG NO SUBSYSTEM
03133  M01S02450.dsp     +++|          RAD    ST
03134  M01S02451.dsp     +++|          RJM    CRS         CHECK RECALL STATUS
03135  M01S02452.dsp     +++|          ZJN    PRS3        IF NOT CALLED WITH RECALL
03136  M01S02453.dsp     +++| PRS1     LDD    CN          CHECK ENTRY POINTS
03137  M01S02454.dsp     +++|          SHN    21-2
03138  M01S02455.dsp     +++|          PJN    PRS2        IF NOT *SSJ=*
03139  M01S02456.dsp     +++|          LDC    SJFL        FLAG *SSJ=* PROGRAM
03140  M01S02457.dsp     +++|          RAD    ST
03141  M01S02458.dsp     +++|
03142  M01S02459.dsp     +++|*         CHECK ADDRESS OF ARGUMENT TABLE.
03143  M01S02460.dsp     +++|
03144  M01S02461.dsp     +++| PRS2     LDD    IR+3        CHECK PARAMETER ADDRESS
03145  M01S02462.dsp     +++|          LPN    37
03146  M01S02463.dsp     +++|          SHN    14
03147  M01S02464.dsp     +++|          LMD    IR+4
03148  M01S02465.dsp     +++|          RJM    VCA         VALIDATE ADDRESS
03149  M01S02466.dsp     +++|          ZJN    PRS3        IF NOT VALID ADDRESS
Line S02467 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2606
Seq #  *Modification Id* Act 
----------------------------+
03150  M02S02467.ns2606  ---|          ADN    6
03151  M01S00001.ns2606  +++|          ADN    DPBL-1      CHECK IF PARAMETER BLOCK IS WITHIN FL
03152  M01S02468.dsp     +++|          RJM    VCA         VALIDATE ADDRESS
03153  M01S02469.dsp     +++|          NJN    PRS4        IF VALID ADDRESS
Line S02470 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03154  M02S02470.v23l617 ---| PRS3     ERROR  /ERR/EC12   * DSP - INVALID REQUEST.*
03155  M01S00058.v23l617 +++| PRS3     ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
03156  M01S02471.dsp     +++|
Line S02472 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2397
Seq #  *Modification Id* Act 
----------------------------+
03157  M02S02472.ns2397  ---| PRS4     ADN    10
Line S00005 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2606
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S00005.ns2606  ---| PRS4     ADN    13
03159  M01S00002.ns2606  +++| PRS4     ADN    EPBL-DPBL   CHECK IF EXTENDED BLOCK IS WITHIN FL
03160  M01S02473.dsp     +++|          RJM    VCA
03161  M01S02474.dsp     +++|          NJN    PRS5        IF ENOUGH SPACE FOR EXTENDED BLOCK
03162  M01S02475.dsp     +++|          AOM    PRSA        SET *NOT ENOUGH SPACE* FLAG
03163  M01S02476.dsp     +++|
03164  M01S02477.dsp     +++|*         READ FILE NAME AND FLAG BITS FROM ARGUMENT TABLE.
03165  M01S02478.dsp     +++|
03166  M01S02479.dsp     +++| PRS5     RJM    GFA         READ FIRST WORD OF PARAMETER BLOCK
03167  M01S02480.dsp     +++|          CRD    FN
Line S02481 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03168  M02S02481.v23l617 ---|          CRD    UN          READ FILE NAME FOR *EFN*
03169  M01S02482.dsp     +++|          ADN    1           READ FLAG BITS
03170  M01S02483.dsp     +++|          CRD    CM
03171  M01S02484.dsp     +++|          ADN    3           GET FNT ADDRESS
03172  M01S02485.dsp     +++|          CRD    CN
03173  M01S02486.dsp     +++|          LDD    CN+4
03174  M01S02487.dsp     +++|          STM    FFQA
03175  M01S02488.dsp     +++|          LDD    CM+1        SAVE INPUT FLAGS
03176  M01S02489.dsp     +++|          STM    INFL
03177  M01S02490.dsp     +++|          LDD    CM+3        SAVE FLAG BITS
03178  M01S02491.dsp     +++|          LPN    77
03179  M01S02492.dsp     +++|          STD    FB
03180  M01S02493.dsp     +++|          LDD    CM+4
03181  M01S02494.dsp     +++|          STD    FB+1
03182  M01S02495.dsp     +++|          SHN    21-6
03183  M01S02496.dsp     +++|          MJN    PRS6        IF EXTENDED BLOCK SPECIFIED
03184  M01S02497.dsp     +++|          LJM    PRS15       BYPASS EXTENDED BLOCK PROCESSING
03185  M01S02498.dsp     +++|
03186  M01S02499.dsp     +++|*         SAVE FLAG BITS FOR EXTENDED PARAMETER BLOCK.
03187  M01S02500.dsp     +++|
03188  M01S02501.dsp     +++| PRS6     LDN    0
03189  M01S02502.dsp     +++|*         LDN    1           (NOT ENOUGH SPACE FOR EXTENDED BLOCK)
03190  M01S02503.dsp     +++| PRSA     EQU    *-1
03191  M01S02504.dsp     +++|          NJN    PRS7        IF NOT ENOUGH SPACE
03192  M01S02505.dsp     +++|          RJM    GFA         GET EXTENDED FLAG BITS
03193  M01S02506.dsp     +++|          ADN    7
03194  M01S02507.dsp     +++|          CRD    CN
03195  M01S02508.dsp     +++|          LDD    CN+3
03196  M01S02509.dsp     +++|          LPN    77
03197  M01S02510.dsp     +++|          STM    EBIT
03198  M01S02511.dsp     +++|          LDD    CN+4
03199  M01S02512.dsp     +++|          STM    EBIT+1
Line S02513 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
03200  M02S02513.ns2156  ---|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP
Line S00051 Modification History
M01 (Added by) ns2156
M02 (Updated 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 (Updated by) ns2397
Seq #  *Modification Id* Act 
----------------------------+
03202  M02S00007.ns2397  ---|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP+EFRQ+EFDS
03203  M01S00006.ns2397  +++|          LPK    EFOU+EFCU+EFSP+EFNV+EFSC+EFEP+EFRQ+EFDS+EFCH
03204  M01S02514.dsp     +++|          ZJN    PRS8        IF NO PRIVILEGED FLAG BITS SET
03205  M01S02515.dsp     +++|          LDD    ST
03206  M01S02516.dsp     +++|          SHN    21-7
03207  M01S02517.dsp     +++|          MJN    PRS7.1      IF CALLER IS *SSJ=*
03208  M01S00001.dsp21   +++|          SHN    21-0-21+7
03209  M01S00002.dsp21   +++|          PJN    PRS7.1      IF CALLER IS SUBSYSTEM
Line S02518 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03210  M02S02518.v23l617 ---| PRS7     LJM    PRS3        * DSP - INVALID REQUEST.*
03211  M01S00059.v23l617 +++| PRS7     LJM    PRS3        * DSP - INCORRECT REQUEST.*
03212  M01S02519.dsp     +++|
03213  M01S02520.dsp     +++| PRS7.1   LDM    EBIT+1      CHECK FOR SUBSYSTEM PROCESSING
03214  M01S02521.dsp     +++|          LPN    EFSP
03215  M01S02522.dsp     +++|          ZJN    PRS8        IF SUBSYSTEM PROCESSING BIT NOT SET
03216  M01S02523.dsp     +++|          LDD    ST          FLAG SUBSYSTEM
03217  M01S02524.dsp     +++|          SCN    SSFL
03218  M01S02525.dsp     +++|          STD    ST
03219  M01S02526.dsp     +++|
03220  M01S02527.dsp     +++|*         VALIDATE REMOTE TEXT ADDRESSES.
03221  M01S02528.dsp     +++|
03222  M01S02529.dsp     +++| PRS8     RJM    GFA         CHECK IMPLICIT TEXT ADDRESS
03223  M01S02530.dsp     +++|          ADN    10
03224  M01S02531.dsp     +++|          CRD    CM
03225  M01S02532.dsp     +++|          RJM    VTA         VALIDATE TEXT ADDRESS
03226  M01S02533.dsp     +++|          STM    IRTL        SAVE LENGTH OF IMPLICIT TEXT
03227  M01S02534.dsp     +++|          ZJN    PRS10       IF NO IMPLICIT TEXT SPECIFIED
03228  M01S02535.dsp     +++|          LDD    ST          CHECK FOR *SSJ=*
03229  M01S02536.dsp     +++|          SHN    21-7
03230  M01S02537.dsp     +++|          PJN    PRS7        IF NOT *SSJ=*
03231  M01S02538.dsp     +++|          LDD    FB+1
03232  M01S02539.dsp     +++|          SHN    21-0
03233  M01S02540.dsp     +++|          PJN    PRS10       IF NOT DEFERRED ROUTE
03234  M01S02541.dsp     +++| PRS9     ERROR  /ERR/EC13   * DSP - DEFERRED ROUTING NOT ALLOWED.*
03235  M01S02542.dsp     +++|
03236  M01S02543.dsp     +++| PRS10    RJM    GFA         CHECK EXPLICIT TEXT ADDRESS
03237  M01S02544.dsp     +++|          ADN    11
03238  M01S02545.dsp     +++|          CRD    CM
03239  M01S02546.dsp     +++|          RJM    VTA         VALIDATE TEXT ADDRESS
03240  M01S02547.dsp     +++|          STM    ERTL        SAVE LENGTH OF EXPLICIT TEXT
03241  M01S02548.dsp     +++|          ZJN    PRS11       IF NO EXPLICIT TEXT SPECIFIED
03242  M01S02549.dsp     +++|          LDD    FS+3
03243  M01S02550.dsp     +++|          SHN    21-5
03244  M01S02551.dsp     +++|          PJN    PRS12       IF NOT VALIDATED TO SPECIFY LID
03245  M01S02552.dsp     +++|          LDD    FB+1
03246  M01S02553.dsp     +++|          SHN    21-0
03247  M01S02554.dsp     +++|          MJN    PRS9        IF DEFERRED ROUTE
03248  M01S02555.dsp     +++|
03249  M01S02556.dsp     +++|*         PROCESS DATA DECLARATION.
03250  M01S02557.dsp     +++|
03251  M01S02558.dsp     +++| PRS11    LDM    EBIT+1
03252  M01S02559.dsp     +++|          SHN    21-0
03253  M01S02560.dsp     +++|          PJN    PRS15       IF DATA DECLARATION NOT SPECIFIED
03254  M01S02561.dsp     +++|          LDD    FS+3
03255  M01S02562.dsp     +++|          SHN    21-5
03256  M01S02563.dsp     +++|          MJN    PRS13       IF VALIDATED TO SPECIFY LID
Line S02564 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03257  M02S02564.v23l617 ---| PRS12    LJM    PRS18       * DSP - INVALID USER ACCESS.*
03258  M01S00060.v23l617 +++| PRS12    LJM    PRS18       * DSP - USER ACCESS NOT VALID.*
03259  M01S02565.dsp     +++|
03260  M01S02566.dsp     +++| PRS13    LDD    FB+1
03261  M01S02567.dsp     +++|          SHN    21-0
03262  M01S02568.dsp     +++|          MJN    PRS9        IF DEFERRED ROUTE
03263  M01S02569.dsp     +++|          RJM    GFA         GET DATA DECLARATION VALUE
03264  M01S02570.dsp     +++|          ADN    7
03265  M01S02571.dsp     +++|          CRD    CM
03266  M01S02572.dsp     +++|          LDD    CM          SAVE DATA DECLARATION
03267  M01S02573.dsp     +++|          STM    DDEC
03268  M01S02574.dsp     +++|          LDN    TODDL
03269  M01S02575.dsp     +++|          STD    T1
03270  M01S02576.dsp     +++| PRS14    LDD    CM
03271  M01S02577.dsp     +++|          LMM    TODD-1,T1
03272  M01S02578.dsp     +++|          ZJN    PRS15       IF LEGAL DATA DECLARATION
03273  M01S02579.dsp     +++|          SOD    T1
03274  M01S02580.dsp     +++|          NJN    PRS14       IF MORE LEGAL VALUES TO CHECK
Line S02581 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03275  M02S02581.v23l617 ---|          ERROR  /ERR/EC14   * DSP - INVALID DATA DECLARATION.*
03276  M01S00061.v23l617 +++|          ERROR  /ERR/EC14   * DSP - INCORRECT DATA DECLARATION.*
03277  M01S02582.dsp     +++|
03278  M01S02583.dsp     +++|*         CLEAR ERROR CODE IN PARAMETER BLOCK.
03279  M01S02584.dsp     +++|
Line S02585 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03280  M02S02585.v23l617 ---| PRS15    LDD    UN+3        CLEAR ERROR CODE
03281  M01S00062.v23l617 +++| PRS15    LDD    FN+3        CLEAR ERROR CODE
03282  M01S02586.dsp     +++|          SCN    77
Line S02587 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03283  M02S02587.v23l617 ---|          STD    UN+3
03284  M01S02588.dsp     +++|          STD    FN+3
03285  M01S02589.dsp     +++|          LDD    FN+4        CHECK COMPLETE BIT
03286  M01S02590.dsp     +++|          STM    DSPC
03287  M01S02591.dsp     +++|          LPN    1
03288  M01S02592.dsp     +++|          ZJN    PRS16       IF COMPLETE BIT CLEARED
03289  M01S02593.dsp     +++|          ERROR  /ERR/EC17   * DSP COMPLETE BIT ALREADY SET.*
03290  M01S02594.dsp     +++|
03291  M01S02595.dsp     +++|*         PROCESS *SLID*/*DLID* PARAMETERS.
03292  M01S02596.dsp     +++|
03293  M01S02597.dsp     +++| PRS16    LDD    FB+1
03294  M01S02598.dsp     +++|          SHN    21-3
03295  M01S02599.dsp     +++|          MJN    PRS17       IF SLID/DLID SPECIFIED
03296  M01S02600.dsp     +++|          LJM    PRS21       SET OUTPUT FILE DESTINATION
03297  M01S02601.dsp     +++|
03298  M01S02602.dsp     +++| PRS17    LDD    FS+3
03299  M01S02603.dsp     +++|          SHN    21-5
03300  M01S02604.dsp     +++|          MJN    PRS19       IF VALIDATED TO SPECIFY SLID/DLID
Line S02605 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03301  M02S02605.v23l617 ---| PRS18    ERROR  /ERR/EC10   * DSP - INVALID USER ACCESS.*
03302  M01S00063.v23l617 +++| PRS18    ERROR  /ERR/EC10   * DSP - USER ACCESS NOT VALID.*
03303  M01S02606.dsp     +++|
03304  M01S02607.dsp     +++| PRS19    RJM    GFA         GET SLID/DLID
03305  M01S02608.dsp     +++|          ADN    2
03306  M01S02609.dsp     +++|          CRD    CN
03307  M01S02610.dsp     +++|          LDD    CN+1
03308  M01S02611.dsp     +++|          SCN    77
03309  M01S02612.dsp     +++|          SHN    6
03310  M01S02613.dsp     +++|          LMD    CN
03311  M01S02614.dsp     +++|          SHN    6
03312  M01S02615.dsp     +++|          ZJN    PRS20       IF SLID NOT SPECIFIED
03313  M01S02616.dsp     +++|          RJM    VLD         VALIDATE SLID
03314  M01S02617.dsp     +++|          LDC    SLFL        SET *SLID SPECIFIED* FLAG
03315  M01S02618.dsp     +++|          RAD    ST
03316  M01S02619.dsp     +++| PRS20    LDD    CN+1
03317  M01S02620.dsp     +++|          LPN    77
03318  M01S02621.dsp     +++|          SHN    14
03319  M01S02622.dsp     +++|          LMD    CN+2
03320  M01S02623.dsp     +++|          ZJN    PRS21       IF DLID NOT SPECIFIED
03321  M01S02624.dsp     +++|          RJM    VLD         VALIDATE DLID
03322  M01S02625.dsp     +++|          LDC    DLFL        SET *DLID SPECIFIED* FLAG
03323  M01S02626.dsp     +++|          RAD    ST
03324  M01S02627.dsp     +++|
03325  M01S02628.dsp     +++|*         SET OUTPUT FILE DESTINATION, IF END OF JOB.
03326  M01S02629.dsp     +++|
03327  M01S02630.dsp     +++| PRS21    LDD    CP          DETERMINE IF END OF JOB
03328  M01S02631.dsp     +++|          ADK    TFSW
03329  M01S02632.dsp     +++|          CRD    CM
03330  M01S02633.dsp     +++|          LDD    CM
03331  M01S02634.dsp     +++|          STM    EJTO        SAVE EJT ORDINAL
03332  M01S02635.dsp     +++|          SFA    EJT
03333  M01S02636.dsp     +++|          ADK    SCHE
03334  M01S02637.dsp     +++|          CRD    T3
03335  M01S02638.dsp     +++|          LDD    CP          GET END OF JOB DESTINATION
03336  M01S02639.dsp     +++|          ADN    EOJW
03337  M01S02640.dsp     +++|          CRD    CN
03338  M01S02641.dsp     +++|          RJM    GFA
03339  M01S02642.dsp     +++|          ADN    1
03340  M01S02643.dsp     +++|          CRD    CM
03341  M01S02644.dsp     +++|          LDD    T3+2
Line S02645 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03342  M02S02645.242l642 ---|          SHN    21-12
Line S02646 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03343  M02S02646.242l642 ---|          PJN    PRS22       IF NOT END OF JOB
03344  M01S00102.242l642 +++|          LPC    3000
03345  M01S00103.242l642 +++|          LMK    NOTM*1000
03346  M01S00104.242l642 +++|          ZJN    PRS22       IF NOT END OF JOB
03347  M01S02647.dsp     +++|          LDD    CN          SET END OF JOB DESTINATION
03348  M01S02648.dsp     +++|          SHN    -6
03349  M01S02649.dsp     +++|          LPN    7
03350  M01S02650.dsp     +++|          STD    T7
03351  M01S02651.dsp     +++|          LDM    TOQD,T7     GET CORRESPONDING DISPOSITION CODE
03352  M01S02652.dsp     +++|          STD    T7
03353  M01S02653.dsp     +++|          LDI    T7
03354  M01S02654.dsp     +++|          STM    TSFN+TSFNL-1
03355  M01S02655.dsp     +++|          LDD    CM          SET TERMINATION FLAG BITS
03356  M01S02656.dsp     +++|          SCN    77
03357  M01S02657.dsp     +++|          RAD    FB
03358  M01S02658.dsp     +++| PRS22    LDD    CM+2        SET DISPOSITION CODE
03359  M01S02659.dsp     +++|          STM    DDCB
03360  M01S02660.dsp     +++|
03361  M01S02661.dsp     +++|*         SET DEFAULT PUNCH MODE IN DISPOSITION TABLE.
03362  M01S02662.dsp     +++|
03363  M01S02663.dsp     +++|          LDD    CP          CHECK KEYPUNCH MODE OF JOB
03364  M01S02664.dsp     +++|          ADN    SNSW
03365  M01S02665.dsp     +++|          CRD    CM
03366  M01S02666.dsp     +++|          LDD    CM
03367  M01S02667.dsp     +++|          SHN    21-12
03368  M01S02668.dsp     +++|          PJN    PRS23       IF O26
03369  M01S02669.dsp     +++| .A       IF     DEF,PU$
03370  M01S02670.dsp     +++|          LDM    TODCA+1
03371  M01S02671.dsp     +++|          SCN    70
03372  M01S02672.dsp     +++|          LMN    P9FR*10
03373  M01S02673.dsp     +++|          STM    TODCA+1
03374  M01S02674.dsp     +++| .A       ENDIF
03375  M01S02675.dsp     +++| .B       IF     DEF,PH$
03376  M01S02676.dsp     +++|          LDM    TODCB+1
03377  M01S02677.dsp     +++|          SCN    70
03378  M01S02678.dsp     +++|          LMN    P9FR*10
03379  M01S02679.dsp     +++|          STM    TODCB+1
03380  M01S02680.dsp     +++| .B       ENDIF
03381  M01S02681.dsp     +++|
03382  M01S02682.dsp     +++|*         CHECK FOR FORCED ORIGIN TYPE.
03383  M01S02683.dsp     +++|
03384  M01S02684.dsp     +++| PRS23    LDM    EJTO        GET ORIGIN TYPE FROM EJT
03385  M01S02685.dsp     +++|          SFA    EJT
03386  M01S02686.dsp     +++|          ADK    SCLE
03387  M01S02687.dsp     +++|          CRD    CM
03388  M01S02688.dsp     +++|          LDD    CM          SAVE ORIGIN TYPE OF CALLING JOB
03389  M01S02689.dsp     +++|          SCN    60
03390  M01S02690.dsp     +++|          STM    JBOT
03391  M01S02691.dsp     +++|          LPN    17
03392  M01S02692.dsp     +++|          STD    OT
03393  M01S02693.dsp     +++|          LMK    SYOT
03394  M01S02694.dsp     +++|          NJN    PRS26       IF NOT SYSTEM ORIGIN
03395  M01S02695.dsp     +++|          LDN    SYFL        SET *SYOT* CP STATUS
03396  M01S02696.dsp     +++|          RAD    ST
03397  M01S02697.dsp     +++|          LDD    FN+4
03398  M01S02698.dsp     +++|          SHN    21-13
03399  M01S02699.dsp     +++|          PJN    PRS26       IF NOT FORCED ORIGIN FLAG
03400  M01S02700.dsp     +++|          SHN    -21+13-1
03401  M01S02701.dsp     +++|          LPN    77
03402  M01S02702.dsp     +++|          STD    T7          SAVE FORCED ORIGIN CODE
03403  M01S02703.dsp     +++|          SBN    MXOT
03404  M01S02704.dsp     +++|          PJN    PRS24       IF OUT OF RANGE
03405  M01S02705.dsp     +++|          LDM    TOOT,T7
03406  M01S02706.dsp     +++|          NJN    PRS25       IF LEGAL ORIGIN TYPE
Line S02707 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03407  M02S02707.v23l617 ---| PRS24    ERROR  /ERR/EC40   * DSP - INVALID ORIGIN TYPE.*
03408  M01S00064.v23l617 +++| PRS24    ERROR  /ERR/EC40   * DSP - INCORRECT ORIGIN TYPE.*
03409  M01S02708.dsp     +++|
03410  M01S02709.dsp     +++| PRS25    LDD    T7
03411  M01S02710.dsp     +++|          STM    FSOT        SAVE FORCED ORIGIN TYPE
03412  M01S02711.dsp     +++|
03413  M01S02712.dsp     +++|*         CHECK FOR FORCED SERVICE CLASS.
03414  M01S02713.dsp     +++|
03415  M01S02714.dsp     +++| PRS26    RJM    GFA         GET FORCED SERVICE CLASS FLAG
03416  M01S02715.dsp     +++|          ADN    1
03417  M01S02716.dsp     +++|          CRD    CM
03418  M01S02717.dsp     +++|          ADN    3           GET FORCED SERVICE CLASS
03419  M01S02718.dsp     +++|          CRD    CN
03420  M01S02719.dsp     +++|          LDD    CM+3
03421  M01S02720.dsp     +++|          SHN    21-10
03422  M01S02721.dsp     +++|          PJN    PRS29       IF NOT FORCED SERVICE CLASS FLAG
03423  M01S02722.dsp     +++|          LCN    0           PRESET USER DEFAULT SELECTED
03424  M01S02723.dsp     +++|          STD    T7
03425  M01S02724.dsp     +++|          LDD    CN+1
03426  M01S02725.dsp     +++|          LMC    2RDF
03427  M01S02726.dsp     +++|          ZJN    PRS28       IF USER DEFAULT SELECTED
03428  M01S02727.dsp     +++|          LDN    MXSC-1      SET TABLE INDEX
03429  M01S02728.dsp     +++|          STD    T7
03430  M01S02729.dsp     +++| PRS27    LDM    TSCC,T7
03431  M01S02730.dsp     +++|          LMD    CN+1
03432  M01S02731.dsp     +++|          ZJN    PRS28       IF MATCH
03433  M01S02732.dsp     +++|          SOD    T7          DECREMENT INDEX
03434  M01S02733.dsp     +++|          NJN    PRS27       IF NOT END OF TABLE
03435  M01S02734.dsp     +++|          ERROR  /ERR/EC11   * DSP - UNDEFINED SERVICE CLASS.*
03436  M01S02735.dsp     +++|
03437  M01S02736.dsp     +++| PRS28    LDD    T7          SAVE FORCED SERVICE CLASS
03438  M01S02737.dsp     +++|          STM    FSSC
03439  M01S02738.dsp     +++|
03440  M01S02739.dsp     +++|*         PROCESS SUBSYSTEM INITIATION PARAMETERS.
03441  M01S02740.dsp     +++|
Line S02741 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03442  M02S02741.ns2556  ---| PRS29    RJM    GFA         GET POSSIBLE SUBSYSTEM NAME
03443  M01S00053.ns2556  +++| PRS29    RJM    GFA         GET POSSIBLE SUBSYSTEM NAME / FORCED JSN
03444  M01S02742.dsp     +++|          ADN    6
03445  M01S02743.dsp     +++|          CRD    CN
Line S02744 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03446  M02S02744.ns2556  ---|          LDD    CN+3        SAVE SUBSYSTEM NAME FOR JSN
03447  M01S00054.ns2556  +++|          LDD    CN+3        SAVE JSN
03448  M01S02745.dsp     +++|          LPN    77
03449  M01S02746.dsp     +++|          SHN    14
03450  M01S02747.dsp     +++|          LMD    CN+4
03451  M01S02748.dsp     +++|          SHN    -6+22
Line S02749 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03452  M02S02749.ns2556  ---|          STM    SBSN
03453  M01S00055.ns2556  +++|          STM    FJSN
03454  M01S02750.dsp     +++|          SHN    -6
03455  M01S02751.dsp     +++|          SCN    77
03456  M01S02752.dsp     +++|          LMN    1R          SPACE FILL JSN
Line S02753 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
03457  M02S02753.ns2556  ---|          STM    SBSN+1
03458  M01S00056.ns2556  +++|          STM    FJSN+1
Line S02754 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03459  M02S02754.ns2785  ---|          LDM    EBIT+1      CHECK FOR CONTROL POINT SELECTION
03460  M01S00003.ns2785  +++|          LDM    EBIT+1      CHECK SUBSYSTEM/CONTROL POINT SELECTION
03461  M01S02755.dsp     +++|          LPN    EFCP
Line S02756 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03462  M02S02756.ns2785  ---|          ZJN    PRS30       IF NO CONTROL POINT SELECTION
03463  M01S00004.ns2785  +++|          ZJN    PRS30       IF NO SUBSYSTEM/CONTROL POINT SELECTED
03464  M01S02757.dsp     +++|          LDN    NCPL        GET NUMBER OF CONTROL POINTS IN SYSTEM
03465  M01S02758.dsp     +++|          CRD    CM
03466  M01S02759.dsp     +++|          RJM    GFA         GET PARAMETER BLOCK ADDRESS
03467  M01S02760.dsp     +++|          ADN    12
03468  M01S02761.dsp     +++|          CRD    CN          READ PARAMETERS
03469  M01S02762.dsp     +++|          LDD    CN+3        CHECK CONTROL POINT NUMBER
03470  M01S02763.dsp     +++|          LPN    77
Line S02764 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03471  M02S02764.ns2785  ---|          ZJN    PRS31       IF NOT SPECIFIED
Line S02765 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03472  M02S02765.ns2785  ---|          STM    SBCP        PRESET CONTROL POINT NUMBER
03473  M01S02766.dsp     +++|          SBD    CM+1
Line S02767 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03474  M02S02767.ns2785  ---|          SBN    1
Line S02768 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
M03 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03475  M03S02768.ns2785  ---|          PJN    PRS31       IF INVALID CONTROL POINT NUMBER
Line S00065 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2785
Seq #  *Modification Id* Act 
----------------------------+
03476  M02S00065.ns2785  ---|          PJN    PRS31       IF INCORRECT CONTROL POINT NUMBER
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  M01S02769.dsp     +++|          LDD    CN+4        CHECK SSID
03484  M01S02770.dsp     +++|          ZJN    PRS31       IF NOT SPECIFIED
03485  M01S02771.dsp     +++|          STM    SBID        PRESET SSID
03486  M01S02772.dsp     +++|          LDD    FB+1
03487  M01S02773.dsp     +++|          SHN    21-13
03488  M01S02774.dsp     +++|          PJN    PRS31       IF SUBSYSTEM INITIATION NOT SET
03489  M01S02775.dsp     +++| PRS30    LJM    PRSX        RETURN
03490  M01S02776.dsp     +++|
Line S02777 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03491  M02S02777.v23l617 ---| PRS31    LJM    PRS3        * DSP - INVALID REQUEST *
03492  M01S00066.v23l617 +++| PRS31    LJM    PRS3        * DSP - INCORRECT REQUEST *
03493  M01S02778.dsp     +++| TSCC     SPACE  4,10
03494  M01S02779.dsp     +++|**        TSCC - TABLE OF SERVICE CLASS CODES.
03495  M01S02780.dsp     +++|*
03496  M01S02781.dsp     +++|*         INDEXED BY SERVICE CLASS.
03497  M01S02782.dsp     +++|*
03498  M01S02783.dsp     +++|*T        12/ SVC
Figure

011 SVC

03499  M01S02784.dsp     +++|*
03500  M01S02785.dsp     +++|*                SVC = SERVICE CLASS IN DISPLAY CODE.
03501  M01S02786.dsp     +++|
03502  M01S02787.dsp     +++|
03503  M01S02788.dsp     +++| TSCC     BSS    0
03504  M01S02789.dsp     +++|          LOC    0
03505  M01S02790.dsp     +++|
03506  M01S02791.dsp     +++|          DATA   H+"NMSC"+
03507  M01S02792.dsp     +++|
03508  M01S02793.dsp     +++|          LOC    *O
03509  M01S02794.dsp     +++| VLD      SPACE  4,15
03510  M01S02795.dsp     +++|**        VLD - VALIDATE LID.
03511  M01S02796.dsp     +++|*
03512  M01S02797.dsp     +++|*         ENTRY  (A) = LID.
03513  M01S02798.dsp     +++|*
Line S02799 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03514  M02S02799.v23l617 ---|*         EXIT   TO *ERR* IF INVALID LID SPECIFIED.
03515  M01S00067.v23l617 +++|*         EXIT   TO *ERR* IF INCORRECT LID SPECIFIED.
03516  M01S02800.dsp     +++|*
03517  M01S02801.dsp     +++|*         CALLS  VID.
03518  M01S02802.dsp     +++|*
03519  M01S02803.dsp     +++|*         MACROS ERROR.
03520  M01S02804.dsp     +++|
03521  M01S02805.dsp     +++|
03522  M01S02806.dsp     +++| VLD      SUBR               ENTRY/EXIT
03523  M01S02807.dsp     +++|          MJN    VLD1        IF NOT SPECIAL CODE
03524  M01S02808.dsp     +++|          SBN    MXLC
03525  M01S02809.dsp     +++|          MJN    VLDX        IF VALID SPECIAL CODE
03526  M01S02810.dsp     +++|          ADN    MXLC
03527  M01S02811.dsp     +++| VLD1     RJM    VID         VALIDATE LOGICAL ID
03528  M01S02812.dsp     +++|          NJN    VLDX        IF VALID LID FOUND
Line S02813 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03529  M02S02813.v23l617 ---|          ERROR  /ERR/EC15   * DSP - INVALID LID.*
03530  M01S00068.v23l617 +++|          ERROR  /ERR/EC15   * DSP - INCORRECT LID.*
03531  M01S02814.dsp     +++| VTA      SPACE  4,15
03532  M01S02815.dsp     +++|**        VTA - VALIDATE TEXT ADDRESS.
03533  M01S02816.dsp     +++|*
03534  M01S02817.dsp     +++|*         ENTRY  (CM+3 - CM+4) = ADDRESS OF REMOTE TEXT.
03535  M01S02818.dsp     +++|*
03536  M01S02819.dsp     +++|*         EXIT   (A) = LENGTH OF REMOTE TEXT (IN CM WORDS).
03537  M01S02820.dsp     +++|*                (A) = 0 IF NO TEXT.
03538  M01S02821.dsp     +++|*                TO *ERR* IF TEXT OUTSIDE FL, OR IF BAD TEXT LENGTH.
03539  M01S02822.dsp     +++|*
03540  M01S02823.dsp     +++|*         USES   T3, CN - CN+4.
03541  M01S02824.dsp     +++|*
03542  M01S02825.dsp     +++|*         CALLS  DV5, VCA.
03543  M01S02826.dsp     +++|*
03544  M01S02827.dsp     +++|*         MACROS ERROR.
03545  M01S02828.dsp     +++|
03546  M01S02829.dsp     +++|
03547  M01S02830.dsp     +++| VTA      SUBR               ENTRY/EXIT
03548  M01S02831.dsp     +++|          LDD    CM+3
03549  M01S02832.dsp     +++|          LPN    77
03550  M01S02833.dsp     +++|          SHN    14
03551  M01S02834.dsp     +++|          LMD    CM+4
03552  M01S02835.dsp     +++|          ZJN    VTAX        IF NO TEXT
03553  M01S02836.dsp     +++|          RJM    VCA         VALIDATE CENTRAL ADDRESS
03554  M01S02837.dsp     +++|          ZJN    VTA1        IF TEXT NOT WITHIN FL
03555  M01S02838.dsp     +++|          SHN    -6+22       READ LENGTH OF TEXT
03556  M01S02839.dsp     +++|          ADD    RA
03557  M01S02840.dsp     +++|          SHN    6
03558  M01S02841.dsp     +++|          CRD    CN
03559  M01S02842.dsp     +++|          LDD    CN+4        CHECK TEXT LENGTH
Line S02843 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03560  M02S02843.v23l617 ---|          ZJN    VTA1        IF ILLEGAL LENGTH
03561  M01S00069.v23l617 +++|          ZJN    VTA1        IF INCORRECT LENGTH
03562  M01S02844.dsp     +++|          ADC    -257D
Line S02845 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03563  M02S02845.v23l617 ---|          PJN    VTA1        IF ILLEGAL LENGTH
03564  M01S00070.v23l617 +++|          PJN    VTA1        IF INCORRECT LENGTH
03565  M01S02846.dsp     +++|          ADC    257D+1      ROUND UP
03566  M01S02847.dsp     +++|          SHN    -1          CONVERT CHARACTER LENGTH TO CM WORDS
03567  M01S02848.dsp     +++|          RJM    DV5
03568  M01S02849.dsp     +++|          STD    T3
03569  M01S02850.dsp     +++|          LDD    CM+3        ENSURE ENTIRE TEXT IS WITHIN FL
03570  M01S02851.dsp     +++|          LPN    77
03571  M01S02852.dsp     +++|          SHN    14
03572  M01S02853.dsp     +++|          LMD    CM+4
03573  M01S02854.dsp     +++|          ADD    T3
03574  M01S02855.dsp     +++|          RJM    VCA         VALIDATE ADDRESS
03575  M01S02856.dsp     +++|          ZJN    VTA1        IF TEXT NOT WITHIN FL
03576  M01S02857.dsp     +++|          LDD    T3          RETURN LENGTH OF TEXT
03577  M01S02858.dsp     +++|          LJM    VTAX        RETURN
03578  M01S02859.dsp     +++|
Line S02860 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03579  M02S02860.v23l617 ---| VTA1     ERROR  /ERR/EC12   * DSP - INVALID REQUEST.*
03580  M01S00071.v23l617 +++| VTA1     ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
03581  M01S02861.dsp     +++| TODD     SPACE  4,10
03582  M01S02862.dsp     +++|**        TODD - TABLE OF LEGAL DATA DEFINITIONS.
03583  M01S02863.dsp     +++|
03584  M01S02864.dsp     +++|
03585  M01S02865.dsp     +++| TODD     BSS    0
03586  M01S02866.dsp     +++|          CON    2LC6
03587  M01S02867.dsp     +++|          CON    2LC8
03588  M01S02868.dsp     +++|          CON    2LUS
03589  M01S02869.dsp     +++|          CON    2LUU
03590  M01S02870.dsp     +++| TODDL    EQU    *-TODD
03591  M01S02871.dsp     +++| TOOT     SPACE  4,10
03592  M01S02872.dsp     +++|**        TOOT - TABLE OF ORIGIN TYPES.
03593  M01S02873.dsp     +++|*
03594  M01S02874.dsp     +++|*T        12/FO
Figure

011FO

03595  M01S02875.dsp     +++|*
03596  M01S02876.dsp     +++|*         FO = IF NONZERO, THIS ORIGIN TYPE IS VALID AS A
03597  M01S02877.dsp     +++|*                ORIGIN TYPE FOR *SYOT* CALLERS.
03598  M01S02878.dsp     +++|
03599  M01S02879.dsp     +++|
03600  M01S02880.dsp     +++| TOOT     INDEX
03601  M01S02881.dsp     +++|          INDEX  SYOT,2
03602  M01S02882.dsp     +++|          INDEX  BCOT,2
03603  M01S02883.dsp     +++|          INDEX  EIOT,2
03604  M01S02884.dsp     +++|          INDEX  IAOT,2
03605  M01S02885.dsp     +++|          INDEX  MXOT
03606  M01S02886.dsp     +++| TOQD     SPACE  4,10
03607  M01S02887.dsp     +++|**        TOQD - TABLE OF QUEUE DESTINATIONS.
03608  M01S02888.dsp     +++|*
03609  M01S02889.dsp     +++|*T        12/DC
Figure

011DC

03610  M01S02890.dsp     +++|*
03611  M01S02891.dsp     +++|*         DC= DESTINATION CODE FOR SPECIFIED QUEUE
03612  M01S02892.dsp     +++|
03613  M01S02893.dsp     +++|
03614  M01S02894.dsp     +++| TOQD     INDEX
03615  M01S02895.dsp     +++|          INDEX  QOJT,(=C*LP*)  QUEUE ALL OUTPUT
03616  M01S02896.dsp     +++|          INDEX  NOJT,(=C*SC*)  DROP ALL OUTPUT
03617  M01S02897.dsp     +++|          INDEX  TTJT,(=C*TT*)  OUTPUT TO INTERACTIVE QUEUE
03618  M01S02898.dsp     +++|          INDEX  SSJT,(=C*SS*)  OUTPUT TO STATION OUTPUT QUEUE
03619  M01S02899.dsp     +++|          INDEX  MXJT
03620  M01S02900.dsp     +++|          SPACE  4,10
03621  M01S02901.dsp     +++|**        COMMON DECKS.
03622  M01S02902.dsp     +++|
03623  M01S00004.dsp16   +++|
03624  M01S02903.dsp     +++|*CALL     COMPCRS
03625  M01S00007.dsp12   +++|*CALL     COMPCUA
03626  M01S02904.dsp     +++| RND$     EQU    1           FORCE ROUNDING ON *DV5* CONVERSION
03627  M01S02905.dsp     +++|*CALL     COMPDV5
03628  M01S02906.dsp     +++|          SPACE  4,10
03629  M01S02907.dsp     +++| IFP      HERE               REMOTE INITIALIZATION CODE
03630  M01S02908.dsp     +++|          SPACE  4,10
03631  M01S02909.dsp     +++|          OVERFLOW  PPFW,EPFW
03632  M01S02910.dsp     +++|          OVERLAY  (FILE DESTINATION ROUTINES.),OVL4
Line S00027 Modification History
M01 (Added by) v22l602
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03633  M02S00027.ns2493  ---|          SPACE  4,10
Line S00028 Modification History
M01 (Added by) v22l602
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03634  M02S00028.ns2493  ---|*         COMMON DECKS.
Line S00029 Modification History
M01 (Added by) v22l602
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03635  M02S00029.ns2493  ---|
Line S00030 Modification History
M01 (Added by) v22l602
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03636  M02S00030.ns2493  ---|
Line S00031 Modification History
M01 (Added by) v22l602
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03637  M02S00031.ns2493  ---| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
Line S00032 Modification History
M01 (Added by) v22l602
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03638  M02S00032.ns2493  ---|*CALL     COMSSSD
Line S00001 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03639  M02S00001.ns2734  ---| CFM      SPACE  4,10
Line S00002 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03640  M02S00002.ns2734  ---|**        CFM - COMPARE FAMILY NAME.
03641  M01S00001.ns2734  +++| CAA      SPACE  4,10
03642  M01S00002.ns2734  +++|**        CAA - CHECK ALTERNATE FAMILY/USER ACCESS.
03643  M01S00003.dsp26   +++|*
Line S00004 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03644  M02S00004.ns2734  ---|*         ENTRY  (T3) = ADDRESS OF FAMILY FIELD TO BE CHECKED.
03645  M01S00003.ns2734  +++|*         ENTRY  (ST) = STATUS WORD.
03646  M01S00005.dsp26   +++|*
Line S00006 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03647  M02S00006.ns2734  ---|*         EXIT   (A) = 0 IF FAMILY NAMES IDENTICAL.
Line S00007 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03648  M02S00007.ns2734  ---|*                (A) .NE. 0 OTHERWISE.
03649  M01S00004.ns2734  +++|*         EXIT   TO *ERR* IF ACCESS NOT ALLOWED.
03650  M01S00008.dsp26   +++|*
Line S00009 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03651  M02S00009.ns2734  ---|*         USES   CM - CM+4.
03652  M01S00005.ns2734  +++|*         USES   T1, T4 - T7, CM - CM+4, UN - UN+4.
03653  M01S00010.dsp26   +++|*
Line S00011 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03654  M02S00011.ns2734  ---|*         CALLS  RFN.
03655  M01S00006.ns2734  +++|*         CALLS  CPN, RFN, SSJ.
03656  M01S00007.ns2734  +++|*
03657  M01S00008.ns2734  +++|*         MACROS ERROR.
03658  M01S00012.dsp26   +++|
03659  M01S00013.dsp26   +++|
Line S00014 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03660  M02S00014.ns2734  ---| CFM      SUBR               ENTRY/EXIT
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
03683  M01S00015.dsp26   +++|          RJM    RFN         READ FAMILY NAME
03684  M01S00016.dsp26   +++|          CRD    CM
Line S00017 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03685  M02S00017.ns2734  ---|          LDD    CM
Line S00018 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03686  M02S00018.ns2734  ---|          LMI    T3
Line S00019 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03687  M02S00019.ns2734  ---|          NJN    CFMX        IF NOT SAME FAMILY
Line S00020 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03688  M02S00020.ns2734  ---|          LDD    CM+1
Line S00021 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03689  M02S00021.ns2734  ---|          LMM    1,T3
Line S00022 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03690  M02S00022.ns2734  ---|          NJN    CFMX        IF NOT SAME FAMILY
Line S00023 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03691  M02S00023.ns2734  ---|          LDD    CM+2
Line S00024 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03692  M02S00024.ns2734  ---|          LMM    2,T3
Line S00025 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03693  M02S00025.ns2734  ---|          NJN    CFMX        IF NOT SAME FAMILY
Line S00026 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03694  M02S00026.ns2734  ---|          LDD    CM+3
Line S00027 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03695  M02S00027.ns2734  ---|          LMM    3,T3
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
03739  M01S00028.dsp26   +++|          SCN    77
Line S00029 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03740  M02S00029.ns2734  ---|          UJN    CFMX        RETURN
Line S02911 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03741  M02S02911.ns2734  ---| VFM      SPACE  4,15
Line S02912 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03742  M02S02912.ns2734  ---|**        VFM - VALIDATE FAMILY ACCESS.
Line S02913 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03743  M02S02913.ns2734  ---|*
Line S02914 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03744  M02S02914.ns2734  ---|*         ENTRY  (A) = ADDRESS OF SYSTEM SECTOR FIELD FOR FAMILY CHECK.
Line S02915 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03745  M02S02915.ns2734  ---|*                (ST) = STATUS WORD.
Line S02916 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03746  M02S02916.ns2734  ---|*
Line S02917 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03747  M02S02917.ns2734  ---|*         EXIT   (A) = 0 IF FAMILY ACCESS ALLOWED.
Line S02918 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03748  M02S02918.ns2734  ---|*                (A) .NE. 0 IF FAMILY ACCESS NOT ALLOWED.
Line S02919 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03749  M02S02919.ns2734  ---|*
Line S02920 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03750  M03S02920.ns2734  ---|*         USES   CM - CM+4, T3.
Line S00030 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03751  M02S00030.ns2734  ---|*         USES   T3, CM - CM+4.
Line S02921 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03752  M02S02921.ns2734  ---|*
Line S02922 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03753  M03S02922.ns2734  ---|*         CALLS  RFN, SSJ.
Line S00031 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03754  M02S00031.ns2734  ---|*         CALLS  CFM, SSJ.
Line S02923 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03755  M02S02923.ns2734  ---|
Line S02924 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03756  M02S02924.ns2734  ---|
Line S02925 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03757  M02S02925.ns2734  ---| VFM4     LDN    0           SET VALID FAMILY ACCESS
Line S02926 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03758  M02S02926.ns2734  ---|
Line S02927 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03759  M02S02927.ns2734  ---| VFM      SUBR               ENTRY/EXIT
Line S02928 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03760  M02S02928.ns2734  ---|          STD    T3
Line S02929 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03761  M02S02929.ns2734  ---|          LDD    ST
Line S02930 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03762  M02S02930.ns2734  ---|          LPN    SYFL
Line S02931 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03763  M02S02931.ns2734  ---|          NJN    VFM4        IF SYSTEM ORIGIN
Line S02932 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03764  M02S02932.ns2734  ---|          LDD    ST
Line S02933 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03765  M02S02933.ns2734  ---|          LPN    SSFL
Line S02934 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03766  M03S02934.ns2734  ---|          ZJN    VFM4        IF SUBSYSTEM
Line S00032 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03767  M02S00032.ns2734  ---|          ZJN    VFMX        IF SUBSYSTEM
Line S02935 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03768  M02S02935.ns2734  ---|          RJM    SSJ         CHECK FOR SSJ= BLOCK
Line S02936 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03769  M02S02936.ns2734  ---|          ZJN    VFM1        IF NO SSJ= BLOCK
Line S02937 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03770  M02S02937.ns2734  ---|          ADK    AACS        GET ACCESS WORD
Line S02938 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03771  M02S02938.ns2734  ---|          UJN    VFM2        CHECK FAMILY ACCESS
Line S02939 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03772  M02S02939.ns2734  ---|
Line S02940 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03773  M02S02940.ns2734  ---| VFM1     LDD    CP          GET ACCESS WORD
Line S02941 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03774  M02S02941.ns2734  ---|          ADK    AACW
Line S02942 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03775  M02S02942.ns2734  ---| VFM2     CRD    CM
Line S02943 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03776  M02S02943.ns2734  ---|          LDD    CM+3        CHECK IF ALTERNATE FAMILY ACCESS ALLOWED
Line S02944 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03777  M02S02944.ns2734  ---|          SHN    21-11
Line S02945 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03778  M02S02945.ns2734  ---|          MJN    VFM4        IF ALTERNATE FAMILY ALLOWED
Line S02946 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03779  M03S02946.ns2734  ---|          RJM    RFN         READ FAMILY NAME
Line S02947 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03780  M03S02947.ns2734  ---|          CRD    CM
Line S02948 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03781  M03S02948.ns2734  ---|          LDD    CM
Line S02949 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03782  M03S02949.ns2734  ---|          LMM    0,T3
Line S02950 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03783  M03S02950.ns2734  ---|          NJN    VFM3        IF NOT SAME FAMILY
Line S02951 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03784  M03S02951.ns2734  ---|          LDD    CM+1
Line S02952 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03785  M03S02952.ns2734  ---|          LMM    1,T3
Line S02953 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03786  M03S02953.ns2734  ---|          NJN    VFM3        IF NOT SAME FAMILY
Line S02954 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03787  M03S02954.ns2734  ---|          LDD    CM+2
Line S02955 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03788  M03S02955.ns2734  ---|          LMM    2,T3
Line S02956 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03789  M03S02956.ns2734  ---|          NJN    VFM3        IF NOT SAME FAMILY
Line S02957 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03790  M03S02957.ns2734  ---|          LDD    CM+3
Line S02958 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03791  M03S02958.ns2734  ---|          LMM    3,T3
Line S02959 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03792  M03S02959.ns2734  ---|          SCN    77
Line S02960 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03793  M03S02960.ns2734  ---| VFM3     LJM    VFMX        RETURN
Line S00033 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03794  M02S00033.ns2734  ---|          RJM    CFM         COMPARE FAMILY NAMES
Line S00034 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03795  M02S00034.ns2734  ---|          UJN    VFMX        RETURN
03796  M01S00074.ns2734  +++|          UJN    CPNX        RETURN WITH (A) = 0 IF MATCH
03797  M01S02961.dsp     +++| VIF      SPACE  4,25
03798  M01S02962.dsp     +++|**        VIF - VERIFY INPUT FILE.
03799  M01S02963.dsp     +++|*
03800  M01S02964.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
03801  M01S02965.dsp     +++|*                (FS - FS+4) = FST ENTRY.
03802  M01S02966.dsp     +++|*                (OT) = ORIGIN TYPE.
03803  M01S02967.dsp     +++|*
03804  M01S02968.dsp     +++|*         EXIT   (FN - FN+4) = FNT ENTRY FOR INPUT FILE.
03805  M01S02969.dsp     +++|*                (FS - FS+4) = FST ENTRY.
03806  M01S02970.dsp     +++|*
03807  M01S02971.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
03808  M01S02972.dsp     +++|*                ROUTE TO INPUT NOT IMMEDIATE.
03809  M01S02973.dsp     +++|*                IMMEDIATE ROUTE - NO FILE.
Line S02974 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03810  M02S02974.v23l617 ---|*                INVALID USER CARD.
Line S02975 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03811  M02S02975.v23l617 ---|*                JOB CARD ERROR.
Line S02976 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03812  M02S02976.v23l617 ---|*                INVALID JOB ABORT CODE.
Line S02977 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03813  M02S02977.v23l617 ---|*                INVALID SERVICE CLASS.
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  M01S02978.dsp     +++|*                ALTERNATE FAMILY NOT ALLOWED.
03819  M01S00105.242l642 +++|*         ERROR  TO *EER3* IF INACCESSIBLE DEVICE RETURN BY *0VJ*.
03820  M01S02979.dsp     +++|*
Line S02980 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03821  M02S02980.ns2734  ---|*         USES   ST, T1, T3, T5 - T7, FN - FN+4, CM - CM+4,
Line S02981 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03822  M02S02981.ns2734  ---|*                CN - CN+4, UN - UN+4.
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  M01S02982.dsp     +++|*
Line S02983 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
03826  M03S02983.251l664 ---|*         CALLS  CVS, GFA, GFM, GFO, RNS, SQO, VFM, WDS, *0VJ*.
Line S00014 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03827  M02S00014.ns2734  ---|*         CALLS  CVS, GFA, GFM, GFO, RNS, SQO, VFM, WMS, *0VJ*.
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 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
03830  M02S00035.251l664 ---|*         CALLS  CFM, CVS, GFA, GFM, GFO, RNS, SQO, SSJ, VFM, WDS,
Line S00036 Modification History
M01 (Added by) dsp26
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
03831  M02S00036.251l664 ---|*                *0VJ*.
03832  M01S02984.dsp     +++|*
03833  M01S02985.dsp     +++|*         MACROS ENDMS, ERROR, EXECUTE, SETMS.
03834  M01S02986.dsp     +++|
03835  M01S02987.dsp     +++|
03836  M01S02988.dsp     +++| VIF      SUBR               ENTRY/EXIT
Line S02989 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03837  M02S02989.ns2493  ---|          LDD    FB+1
Line S02990 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03838  M02S02990.ns2493  ---|          SHN    21-0
Line S02991 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03839  M02S02991.ns2493  ---|          PJN    VIF1        IF NOT DEFERRED ROUTE
Line S02992 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03840  M02S02992.ns2493  ---|          ERROR  /ERR/EC05   * DSP - ROUTE TO INPUT NOT IMMEDIATE.*
Line S02993 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03841  M02S02993.ns2493  ---|
Line S02994 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2493
Seq #  *Modification Id* Act 
----------------------------+
03842  M02S02994.ns2493  ---| VIF1     LDM    INFL        CHECK INPUT FLAGS
03843  M01S00093.ns2493  +++|          LDM    INFL        CHECK INPUT FLAGS
03844  M01S02995.dsp     +++|          SHN    21-10
Line S02996 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03845  M02S02996.ns2420  ---|          MJP    VIF16       IF FORCED ABORT FLAG SET
03846  M01S00001.ns2420  +++|          MJP    VIF15       IF FORCED ABORT FLAG SET
03847  M01S02997.dsp     +++|
03848  M01S02998.dsp     +++|*         READ FIRST SECTOR OF INPUT FILE.
03849  M01S02999.dsp     +++|
03850  M01S03000.dsp     +++|          AOM    VIFA        INDICATE FIRST SECTOR OF FILE WAS READ
03851  M01S03001.dsp     +++|          LDD    FS          SET EQUIPMENT
03852  M01S03002.dsp     +++|          STD    T5
03853  M01S03003.dsp     +++|          LDD    FS+1        SET FIRST TRACK
03854  M01S03004.dsp     +++|          STD    T6
03855  M01S03005.dsp     +++|          LDN    FSMS        SET FIRST SECTOR
03856  M01S03006.dsp     +++|          STD    T7
Line S03007 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03857  M02S03007.242l642 ---|          SETMS  READ
03858  M01S00106.242l642 +++|          SETMS  IO
03859  M01S03008.dsp     +++|          LDC    SBUF        READ NEXT SECTOR
03860  M01S03009.dsp     +++|          RJM    RNS
03861  M01S03010.dsp     +++|          ENDMS
03862  M01S03011.dsp     +++|          LDD    T1
03863  M01S03012.dsp     +++|          NJN    VIF2        IF FILE NOT EMPTY
03864  M01S03013.dsp     +++|          ERROR  /ERR/EC06   * DSP - IMMEDIATE ROUTING - NO FILE.*
03865  M01S03014.dsp     +++|
Line S03015 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03866  M02S03015.v23l617 ---|*         VALIDATE JOB CARD AND USER STATEMENT.
03867  M01S00076.v23l617 +++|*         VALIDATE JOB COMMAND AND USER COMMAND.
03868  M01S03016.dsp     +++|
Line S03017 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03869  M02S03017.v23l617 ---| VIF2     LDC    STMT        SET STATEMENT BUFFER ADDRESS
03870  M01S00077.v23l617 +++| VIF2     LDC    STMT        SET COMMAND BUFFER ADDRESS
03871  M01S03018.dsp     +++|          STD    CN
03872  M01S03019.dsp     +++|          LDM    DLAT        SET DLID ATTRIBUTES
03873  M01S03020.dsp     +++|          STD    CN+1
03874  M01S03021.dsp     +++|          LDM    LFAL        SET LOCAL FILE ACCESS LEVEL
03875  M01S03022.dsp     +++|          STD    CN+2
03876  M01S03023.dsp     +++|          LDM    EBIT+1      PASS *DO NOT VALIDATE PASSWORD* FLAG
03877  M01S03024.dsp     +++|          LPN    EFNV
03878  M01S00037.dsp26   +++|          STM    VIFE+1
03879  M01S03025.dsp     +++|          SHN    13-4
03880  M01S03026.dsp     +++|          ERRNZ  EFNV-20     CODE DEPENDS ON VALUE
03881  M01S03027.dsp     +++|          RAD    CN+2
03882  M01S03028.dsp     +++|          LDD    ST
03883  M01S03029.dsp     +++|          LPN    DSFL        IF FILE ROUTED BEFORE, CHECK ENCRYPTED PW
03884  M01S03030.dsp     +++|          SHN    12-1
03885  M01S03031.dsp     +++|          ERRNZ  DSFL-2      CODE DEPENDS ON VALUE
03886  M01S03032.dsp     +++|          RAD    CN+2
03887  M01S03033.dsp     +++|          LDM    EBIT+1
03888  M01S03034.dsp     +++|          LPK    EFEP
03889  M01S03035.dsp     +++|          ZJN    VIF3        IF ENCRYPTED PASSWORD NOT SPECIFIED
03890  M01S03036.dsp     +++|          LDD    CN+2        SET ENCRYPTED PW VALIDATION BIT
03891  M01S03037.dsp     +++|          LPC    5777
03892  M01S03038.dsp     +++|          LMC    2000
03893  M01S03039.dsp     +++|          STD    CN+2
03894  M01S03040.dsp     +++|          RJM    GFA         GET PARAMETER BLOCK ADDRESS
03895  M01S03041.dsp     +++|          ADN    14
03896  M01S03042.dsp     +++|          CRD    CM
03897  M01S03043.dsp     +++|          LDD    MA          MOVE PASSWORD TO SYSTEM SECTOR
03898  M01S03044.dsp     +++|          CWD    CM
03899  M01S03045.dsp     +++|          CRM    EPSS,ON
03900  M01S03046.dsp     +++| VIF3     LDD    OT
03901  M01S03047.dsp     +++|          LMK    SYOT
03902  M01S03048.dsp     +++|          NJN    VIF3.1      IF NOT ROUTE TO *SYOT*
03903  M01S03049.dsp     +++|          LDC    1000        SET SYSTEM ORIGIN JOB BIT
03904  M01S03050.dsp     +++|          RAD    CN+2
03905  M01S03051.dsp     +++| VIF3.1   LDD    ST
Line S03052 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp32
Seq #  *Modification Id* Act 
----------------------------+
03906  M02S03052.dsp32   ---|          LPC    DLFL
Line S00001 Modification History
M01 (Added by) dsp32
M02 (Updated by) dsp32a
Seq #  *Modification Id* Act 
----------------------------+
03907  M02S00001.dsp32a  ---|          LPC    DLFL+DSFL
03908  M01S00001.dsp32a  +++|          LPK    DLFL
03909  M01S03053.dsp     +++|          NJN    VIF4        IF DLID SPECIFIED IN PARAMETER BLOCK
Line S03054 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp32a
Seq #  *Modification Id* Act 
----------------------------+
03910  M02S03054.dsp32a  ---|          STD    CN+1        CLEAR DLID ATTRIBUTES
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 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03918  M02S03055.v23l617 ---| VIF4     EXECUTE 0VJ,OVL3   VERIFY JOB/USER STATEMENTS
03919  M01S00078.v23l617 +++| VIF4     EXECUTE 0VJ,OVL3   VERIFY JOB/USER COMMANDS
03920  M01S00107.242l642 +++|          MJP    EER3        IF MASS STORAGE DEVICE INACCESSIBLE
Line S03056 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp22
Seq #  *Modification Id* Act 
----------------------------+
03921  M02S03056.dsp22   ---|          LDD    FN+4
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  M01S03057.dsp     +++|          LPN    77
03935  M01S03058.dsp     +++|          LMC    INFT*100
03936  M01S03059.dsp     +++|          STD    FN+4
03937  M01S03060.dsp     +++|          LDD    CN
03938  M01S03061.dsp     +++|          ZJN    VIF5        IF DLID NOT SPECIFIED
03939  M01S03062.dsp     +++|          STM    DLAT        SET DLID ATTRIBUTES
Line S03063 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03940  M02S03063.dsp26   ---|          UJN    VIF6        ALLOW ALTERNATE FAMILY WITH DLID
Line S00038 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03941  M02S00038.ns2734  ---|          LJM    VIF6.3      ALLOW ALTERNATE FAMILY WITH DLID
Line S03064 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03942  M02S03064.ns2734  ---|
Line S00039 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03943  M02S00039.ns2734  ---|*         CHECK IF ALTERNATE FAMILY ACCESS IS ALLOWED.
Line S00040 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03944  M02S00040.ns2734  ---|
Line S03065 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03945  M02S03065.ns2734  ---| VIF5     LDC    FMSS        SET FAMILY FIELD
Line S03066 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03946  M02S03066.ns2734  ---|          RJM    VFM         VALIDATE FAMILY
Line S03067 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
M03 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03947  M03S03067.ns2734  ---|          NJN    VIF7        IF ACCESS NOT ALLOWED
Line S00041 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03948  M02S00041.ns2734  ---|          NJN    VIF6.2      IF ACCESS NOT ALLOWED
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  M01S03068.dsp     +++|
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
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
03962  M01S00047.dsp26   +++|          LDC    FMSS        ADDRESS OF FAMILY IN SYSTEM SECTOR
Line S00048 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03963  M02S00048.ns2734  ---|          STD    T3
Line S00049 Modification History
M01 (Added by) dsp26
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
03964  M02S00049.ns2734  ---|          RJM    CFM         COMPARE FAMILY NAMES
03965  M01S00086.ns2734  +++|          RJM    CPN         COMPARE FAMILY NAMES
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 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03981  M02S00065.ns2420  ---| VIF6.2   NJN    VIF7        IF DIFFERENT USER INDEX
03982  M01S00002.ns2420  +++| VIF6.2   NJP    VIF7        IF DIFFERENT USER INDEX
03983  M01S00066.dsp26   +++|
Line S03069 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03984  M02S03069.v23l617 ---|*         CHECK FOR USER CARD ERROR.
03985  M01S00079.v23l617 +++|*         CHECK FOR USER COMMAND ERROR.
03986  M01S03070.dsp     +++|
Line S03071 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp26
Seq #  *Modification Id* Act 
----------------------------+
03987  M02S03071.dsp26   ---| VIF6     LDD    ER          CHECK ERROR STATUS
03988  M01S00067.dsp26   +++| VIF6.3   LDD    ER          CHECK ERROR STATUS
03989  M01S03072.dsp     +++|          LMN    3
Line S03073 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03990  M02S03073.ns2420  ---|          NJN    VIF9        IF NOT USER COMMAND ERROR
Line S03074 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
03991  M02S03074.ns2420  ---|          STM    IOSS+INSQ*5+1  CLEAR DLID
03992  M01S00003.ns2420  +++|          NJP    VIF9        IF NOT USER COMMAND ERROR
03993  M01S00004.ns2420  +++|          LDM    DLAT
Line S00005 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
03994  M02S00005.ns2420a ---|          ZJN    VIF6.4      IF NO DLID SPECIFIED
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 (Updated by) ns2727
Seq #  *Modification Id* Act 
----------------------------+
03998  M02S00009.ns2727  ---|          PJP    VIF27       IF VALIDATION NOT REQUIRED FOR DLID
03999  M01S00001.ns2727  +++|          PJN    VIF9        IF VALIDATION NOT REQUIRED FOR DLID
04000  M01S00010.ns2420  +++| VIF6.4   LDN    0           CLEAR DLID
04001  M01S00011.ns2420  +++|          STM    IOSS+INSQ*5+1
04002  M01S03075.dsp     +++|          LDM    IOSS+INSQ*5+2
04003  M01S03076.dsp     +++|          LPN    77
04004  M01S03077.dsp     +++|          STM    IOSS+INSQ*5+2
04005  M01S03078.dsp     +++|          LDD    OT
04006  M01S03079.dsp     +++|          LMK    SYOT
04007  M01S03080.dsp     +++|          ZJN    VIF10       IF ROUTE TO *SYOT* - IGNORE USER COMMAND
04008  M01S03081.dsp     +++|          LDD    ST
04009  M01S03082.dsp     +++|          LPN    SSFL
Line S03083 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp38
Seq #  *Modification Id* Act 
----------------------------+
04010  M02S03083.dsp38   ---|          ZJN    VIF9        IF SUBSYSTEM CALL
Line S03084 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp38
Seq #  *Modification Id* Act 
----------------------------+
04011  M02S03084.dsp38   ---|          LDM    JASS        CHECK ERROR CODE
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  M01S03085.dsp     +++|          LMN    UCIE
04018  M01S03086.dsp     +++|          ZJN    VIF8        IF USER SECURITY COUNT EXHAUSTED
04019  M01S03087.dsp     +++| VIF7     ERROR  /ERR/EC34   * DSP - INCORRECT USER COMMAND.*
04020  M01S03088.dsp     +++|
04021  M01S03089.dsp     +++| VIF8     ERROR  /ERR/EC47   * DSP - USER SECURITY COUNT EXHAUSTED.*
04022  M01S03090.dsp     +++|
Line S03091 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04023  M02S03091.dsp12   ---| VIF9     UJN    VIF11       CHECK SERVICE CLASS
04024  M01S00008.dsp12   +++| VIF9     LJM    VIF11       CHECK SERVICE CLASS
04025  M01S03092.dsp     +++|
04026  M01S03093.dsp     +++|*         SET *SYSTEMX* LIMITS FOR SYSTEM JOBS WITH NO
Line S03094 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04027  M02S03094.v23l617 ---|*         OR ILLEGAL USER CARDS.
04028  M01S00080.v23l617 +++|*         OR INCORRECT USER COMMANDS.
04029  M01S03095.dsp     +++|
Line S03096 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04030  M02S03096.dsp12   ---| VIF10    LDN    1           GET DEFAULT FAMILY NAME
04031  M01S00009.dsp12   +++| VIF10    LDD    MA          SAVE THE FNT ENTRY
Line S00010 Modification History
M01 (Added by) dsp12
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04032  M02S00010.v23l617 ---|          ADN    4
04033  M01S00011.dsp12   +++|          CWD    FN
04034  M01S00081.v23l617 +++|          CRM    VIFB,ON
04035  M01S00012.dsp12   +++|          LDN    1           GET DEFAULT FAMILY NAME
04036  M01S03097.dsp     +++|          RJM    GFM
Line S03098 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04037  M02S03098.v23l617 ---|          LDD    MA          SET UN, UI, CHARGE IN VALIDATION BLOCK
Line S03099 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04038  M02S03099.v23l617 ---|          CWM    VIFB,ON
04039  M01S00082.v23l617 +++|          LDD    MA          SET UN/UI IN VALIDATION BLOCK
04040  M01S03100.dsp     +++|          CWM    VIFC,ON
04041  M01S03101.dsp     +++|          CWD    FN
04042  M01S03102.dsp     +++|          ADN    1
04043  M01S03103.dsp     +++|          CWM    VIFD,ON
04044  M01S03104.dsp     +++|          LDD    MA
Line S03105 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04045  M02S03105.v23l617 ---|          CRM    VASS+ACGN*5,ON
04046  M01S03106.dsp     +++|          CRM    VASS+ACCN*5,ON
04047  M01S03107.dsp     +++|          SBN    1
04048  M01S03108.dsp     +++|          CRM    ACSS,ON     SET USER NAME
04049  M01S03109.dsp     +++|          CRM    FMSS,ON     SET FAMILY NAME
04050  M01S03110.dsp     +++|          CRM    VASS+AHMT*5,ON  SET UNLIMITED USER VALIDATION INDICES
04051  M01S03111.dsp     +++|          SBN    1
04052  M01S03112.dsp     +++|          CRM    VASS+AHDS*5,ON
04053  M01S03113.dsp     +++|          SBN    1
04054  M01S03114.dsp     +++|          CRM    VASS+AAWC*5,ON
Line S00013 Modification History
M01 (Added by) dsp12
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04055  M02S00013.v23l617 ---|          CRD    FN          RESTORE THE FNT ENTRY
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  M01S03115.dsp     +++|
04061  M01S03116.dsp     +++|*         CHECK FOR SERVICE CLASS SPECIFIED IN PARAMETER BLOCK.
04062  M01S03117.dsp     +++|
04063  M01S03118.dsp     +++| VIF11    LDD    FB+1
04064  M01S03119.dsp     +++|          SHN    21-13
Line S03120 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04065  M02S03120.ns2420  ---|          MJP    VIF16       IF SUBSYSTEM INITIATION
04066  M01S00012.ns2420  +++|          MJP    VIF15       IF SUBSYSTEM INITIATION
04067  M01S03121.dsp     +++|          LDM    EBIT+1
04068  M01S03122.dsp     +++|          LPK    EFSC
04069  M01S03123.dsp     +++|          ZJN    VIF12       IF ORIGIN DEFAULT NOT SELECTED
04070  M01S03124.dsp     +++|          LDM    VIFT,OT
Line S03125 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04071  M02S03125.ns2317  ---|          UJN    VIF14       SET ORIGIN DEFAULT
04072  M01S00008.ns2317  +++|          LJM    VIF14       SET ORIGIN DEFAULT
04073  M01S03126.dsp     +++|
04074  M01S03127.dsp     +++| VIF12    LDM    FSSC
04075  M01S03128.dsp     +++|          SHN    6
04076  M01S03129.dsp     +++|          STD    T1
Line S03130 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04077  M02S03130.ns2420  ---|          ZJP    VIF16       IF NO SERVICE CLASS SPECIFIED
04078  M01S00013.ns2420  +++|          ZJP    VIF15       IF NO SERVICE CLASS SPECIFIED
Line S00009 Modification History
M01 (Added by) ns2317
M02 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04079  M02S00009.dsp40   ---|          LDM    EBIT+1
Line S00010 Modification History
M01 (Added by) ns2317
M02 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04080  M02S00010.dsp40   ---|          LPK    EFDS
Line S00011 Modification History
M01 (Added by) ns2317
M02 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04081  M02S00011.dsp40   ---|          NJN    VIF13.1     IF SERVICE CLASS NOT TO BE VALIDATED
Line S00012 Modification History
M01 (Added by) ns2317
M02 (Updated by) 251l664
M03 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04082  M03S00012.dsp40   ---|          LDD    T1
Line S00015 Modification History
M01 (Added by) 251l664
M02 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04083  M02S00015.dsp40   ---|          LDM    FSSC
Line S00016 Modification History
M01 (Added by) 251l664
M02 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04084  M02S00016.dsp40   ---|          SHN    21-13
04085  M01S03131.dsp     +++|          PJN    VIF13       IF NOT USER DEFAULT
04086  M01S03132.dsp     +++|          LDD    CN+1        USE DEFAULT RETURNED BY *0VJ*
04087  M01S03133.dsp     +++|          STM    FSSC
04088  M01S03134.dsp     +++|          SHN    6
04089  M01S03135.dsp     +++|          STD    T1
Line S03136 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04090  M02S03136.v23l617 ---|          ZJP    VIF23       IF INVALID USER DEFAULT
04091  M01S00087.v23l617 +++|          ZJP    VIF23       IF INCORRECT USER DEFAULT
04092  M01S03137.dsp     +++| VIF13    RJM    CVS         CHECK FOR VALID SERVICE CLASS
04093  M01S03138.dsp     +++|          NJP    VIF23       IF ERROR
Line S03139 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04094  M02S03139.ns2317  ---|          LDM    IOSS+SCLQ*5 UPDATE SERVICE CLASS IN QFT ENTRY
Line S00013 Modification History
M01 (Added by) ns2317
M02 (Updated by) dsp40
Seq #  *Modification Id* Act 
----------------------------+
04095  M02S00013.dsp40   ---| VIF13.1  LDM    IOSS+SCLQ*5 UPDATE SERVICE CLASS IN QFT ENTRY
04096  M01S00001.dsp40   +++|          LDM    IOSS+SCLQ*5 UPDATE SERVICE CLASS IN QFT ENTRY
04097  M01S03140.dsp     +++|          LPN    77
04098  M01S03141.dsp     +++|          LMD    T1
04099  M01S03142.dsp     +++| VIF14    STM    IOSS+SCLQ*5
04100  M01S03143.dsp     +++|          LDM    JASS
04101  M01S03144.dsp     +++|          LMN    SCIE
Line S03145 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04102  M02S03145.v23l617 ---|          ZJN    VIF15       IF INVALID SERVICE CLASS ERROR
Line S00088 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04103  M02S00088.ns2420  ---|          ZJN    VIF15       IF INCORRECT SERVICE CLASS
Line S00014 Modification History
M01 (Added by) ns2420
M02 (Updated by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04104  M02S00014.dsp41   ---|          ZJN    VIF16       IF INCORRECT SERVICE CLASS
04105  M01S00001.dsp41   +++|          ZJN    VIF14.1     IF INCORRECT SERVICE CLASS
04106  M01S03146.dsp     +++|          LMN    USIE&SCIE
Line S03147 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2317
Seq #  *Modification Id* Act 
----------------------------+
04107  M02S03147.ns2317  ---|          NJN    VIF18       IF DEFINDED SERVICE CLASSERROR
Line S00014 Modification History
M01 (Added by) ns2317
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04108  M02S00014.ns2420  ---|          NJN    VIF18       IF NOT DEFINED SERVICE CLASS ERROR
Line S03148 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04109  M02S03148.ns2420  ---| VIF15    STM    JASS
Line S00015 Modification History
M01 (Added by) ns2420
M02 (Updated by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04110  M02S00015.dsp41   ---|          ZJN    VIF16       IF UNDEFINED SERVICE CLASS ERROR
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 (Updated by) ns2420b
Seq #  *Modification Id* Act 
----------------------------+
04113  M02S00016.ns2420b ---|          UJN    VIF18       CHECK IF FILE TO BE QUEUED
04114  M01S03149.dsp     +++|
Line S03150 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04115  M02S03150.v23l617 ---|*         CHECK FOR JOB CARD ERRORS.
04116  M01S00089.v23l617 +++|*         CHECK FOR JOB COMMAND ERRORS.
04117  M01S03151.dsp     +++|
Line S03152 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04118  M02S03152.ns2420  ---| VIF16    LDM    JASS
Line S03153 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04119  M02S03153.ns2420  ---|          ZJP    VIF25       IF NO ERROR
04120  M01S00017.ns2420  +++| VIF15    LDM    JASS
Line S00018 Modification History
M01 (Added by) ns2420
M02 (Updated by) dsp41
Seq #  *Modification Id* Act 
----------------------------+
04121  M02S00018.dsp41   ---| VIF16    ZJP    VIF25       IF NO ERROR OR SERVICE CLASS ERROR
04122  M01S00004.dsp41   +++|          ZJP    VIF25       IF NO ERROR
04123  M01S03154.dsp     +++|          LMN    SCIE
Line S03155 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04124  M02S03155.v23l617 ---|          ZJN    VIF17       IF INVALID SERVICE CLASS ERROR
04125  M01S00090.v23l617 +++|          ZJN    VIF17       IF INCORRECT SERVICE CLASS
04126  M01S03156.dsp     +++|          LMN    USIE&SCIE
04127  M01S03157.dsp     +++|          NJN    VIF18       IF DEFINED SERVICE CLASS
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/dsp.002.txt ยท Last modified: by 127.0.0.1