User Tools

Site Tools


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

Deck DSP Part 003

81 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04128  M01S03158.dsp     +++| VIF17    LDM    VIFT,OT     RESET SERVICE CLASS
04129  M01S03159.dsp     +++|          STM    IOSS+SCLQ*5
04130  M01S03160.dsp     +++| VIF18    LDM    INFL        GET INPUT FLAGS
04131  M01S03161.dsp     +++|          SHN    21-7
Line S03162 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
04132  M02S03162.ns2242  ---|          MJP    VIF27       IF FILE TO BE QUEUED DESPITE ERROR
Line S03163 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2242
Seq #  *Modification Id* Act 
----------------------------+
04133  M02S03163.ns2242  ---|          LDM    JASS        CHECK ERROR TYPE
04134  M01S00009.ns2242  +++|          PJN    VIF18.1     IF FILE NOT TO BE QUEUED
04135  M01S00010.ns2242  +++|          AOM    DSPF        FLAG ABORTED INPUT FILE
04136  M01S00011.ns2242  +++|          LJM    VIF27       QUEUE THE FILE
04137  M01S00012.ns2242  +++|
04138  M01S00013.ns2242  +++| VIF18.1  LDM    JASS        CHECK ERROR FLAG
04139  M01S03164.dsp     +++|          LMN    JCIE
04140  M01S03165.dsp     +++|          NJN    VIF19       IF NOT JOB COMMAND ERROR
Line S03166 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04141  M02S03166.v23l617 ---|          ERROR  /ERR/EC32   (JOB CARD ERROR.)
04142  M01S00091.v23l617 +++|          ERROR  /ERR/EC32   (JOB COMMAND ERROR.)
04143  M01S03167.dsp     +++|
04144  M01S03168.dsp     +++| VIF19    LMN    IDIE&JCIE
Line S03169 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04145  M02S03169.v23l617 ---|          NJN    VIF20       IF NOT INVALID LID
Line S03170 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04146  M02S03170.v23l617 ---|          ERROR  /ERR/EC15   * DSP - INVALID LID.*
04147  M01S00092.v23l617 +++|          NJN    VIF20       IF NOT INCORRECT LID
04148  M01S00093.v23l617 +++|          ERROR  /ERR/EC15   * DSP - INCORRECT LID.*
04149  M01S03171.dsp     +++|
04150  M01S03172.dsp     +++| VIF20    LMN    STIE&IDIE
Line S03173 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04151  M02S03173.v23l617 ---|          NJN    VIF22       IF NOT INVALID ATTEMPT TO SPECIFY *ST*
Line S03174 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04152  M02S03174.v23l617 ---| VIF21    ERROR  /ERR/EC10   * DSP - INVALID USER ACCESS.*
04153  M01S00094.v23l617 +++|          NJN    VIF22       IF NOT INCORRECT ATTEMPT TO SPECIFY *ST*
04154  M01S00095.v23l617 +++| VIF21    ERROR  /ERR/EC10   * DSP - USER ACCESS NOT VALID.*
04155  M01S03175.dsp     +++|
04156  M01S03176.dsp     +++| VIF22    LMN    SCIE&STIE
Line S03177 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04157  M02S03177.v23l617 ---|          NJN    VIF24       IF NOT INVALID SERVICE CLASS
Line S03178 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04158  M02S03178.v23l617 ---| VIF23    ERROR  /ERR/EC45   * DSP - INVALID SERVICE CLASS.*
04159  M01S00096.v23l617 +++|          NJN    VIF24       IF NOT INCORRECT SERVICE CLASS
04160  M01S00097.v23l617 +++| VIF23    ERROR  /ERR/EC45   * DSP - INCORRECT SERVICE CLASS.*
04161  M01S03179.dsp     +++|
04162  M01S03180.dsp     +++| VIF24    LMN    USIE&SCIE
04163  M01S03181.dsp     +++|          NJN    VIF25       IF NOT UNDEFINED SERVICE CLASS ERROR
04164  M01S03182.dsp     +++|          ERROR  /ERR/EC11   * DSP - UNDEFINED SERVICE CLASS.*
04165  M01S03183.dsp     +++|
04166  M01S03184.dsp     +++| VIF25    LDM    IOSS+INSQ*5+1
04167  M01S03185.dsp     +++|          NJN    VIF26       IF DLID SPECIFIED ON JOB COMMAND
04168  M01S03186.dsp     +++|          LDD    ST
04169  M01S03187.dsp     +++|          LPC    DLFL
04170  M01S03188.dsp     +++|          ZJN    VIF27       IF DLID NOT SPECIFIED IN PARAMETER BLOCK
04171  M01S03189.dsp     +++| VIF26    LDD    CP
04172  M01S03190.dsp     +++|          ADK    AACW        CHECK FOR *CUST* VALIDATION
04173  M01S03191.dsp     +++|          CRD    CM
04174  M01S03192.dsp     +++|          LDD    CM+3
04175  M01S03193.dsp     +++|          SHN    21-5
04176  M01S03194.dsp     +++|          PJN    VIF21       IF CALLING USER NOT VALIDATED TO USE *ST*
04177  M01S03195.dsp     +++|          SHN    21-4-21+5   CHECK FOR *CQLK* VALIDATION
04178  M01S03196.dsp     +++|          MJN    VIF27       IF CALLING USER VALIDATED TO USE LCN
04179  M01S03197.dsp     +++|          LDM    DLAT
Line S03198 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04180  M02S03198.v23l617 ---|          SHN    21-12
Line S03199 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04181  M02S03199.v23l617 ---|          MJP    VIF21       IF DLID HAS *LINKED* ATTRIBUTE
04182  M01S00098.v23l617 +++|          SHN    21-13
04183  M01S00099.v23l617 +++|          PJP    VIF21       IF DLID DOES NOT HAVE *HOST* ATTRIBUTE
04184  M01S00100.v23l617 +++|
Line S03200 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04185  M02S03200.ns2420c ---|
04186  M01S03201.dsp     +++|*         SET QUEUE FILE OWNERSHIP.
04187  M01S03202.dsp     +++|
04188  M01S03203.dsp     +++| VIF27    LDD    ST          CHECK IF SUBSYSTEM CALL
04189  M01S03204.dsp     +++|          LPN    SSFL
04190  M01S03205.dsp     +++|          ZJN    VIF28       IF SUBSYSTEM
04191  M01S03206.dsp     +++|          RJM    SQO         SET QFT OWNER
04192  M01S03207.dsp     +++|          LJM    VIF29       CONTINUE
04193  M01S03208.dsp     +++|
04194  M01S03209.dsp     +++| VIF28    LDD    MA          SAVE FILE NAME
04195  M01S03210.dsp     +++|          CWD    FN
04196  M01S03211.dsp     +++|          CRD    UN
04197  M01S03212.dsp     +++|          CWM    ACSS,ON     SET ACCOUNT OF OWNER
04198  M01S03213.dsp     +++|          CWM    FMSS,ON     SET FAMILY OF OWNER
04199  M01S03214.dsp     +++|          LDD    MA
04200  M01S03215.dsp     +++|          CRM    OASS,ON
04201  M01S03216.dsp     +++|          CRM    FOSS,ON
04202  M01S03217.dsp     +++|          SBN    1
04203  M01S03218.dsp     +++|          CRD    FN          GET FAMILY ORDINAL
04204  M01S03219.dsp     +++|*         LDN    (NONZERO)
04205  M01S03220.dsp     +++|          RJM    GFO         GET FAMILY ORDINAL
04206  M01S03221.dsp     +++|          LDD    FN+4
04207  M01S03222.dsp     +++|          SHN    6
04208  M01S03223.dsp     +++|          LMM    OASS+3      SET *FO,UI* OF OWNER
04209  M01S03224.dsp     +++|          SCN    77
04210  M01S03225.dsp     +++|          LMM    OASS+3
04211  M01S03226.dsp     +++|          STM    IOSS+JSNQ*5+2
04212  M01S03227.dsp     +++|          LDM    OASS+4
04213  M01S03228.dsp     +++|          STM    IOSS+JSNQ*5+3
04214  M01S03229.dsp     +++|          LDD    MA
04215  M01S03230.dsp     +++|          CWD    UN
04216  M01S03231.dsp     +++|          CRD    FN
04217  M01S03232.dsp     +++|
04218  M01S03233.dsp     +++|*         SET ACCOUNTING INFORMATION INTO SYSTEM SECTOR.
04219  M01S03234.dsp     +++|
04220  M01S03235.dsp     +++| VIF29    LDD    FB          CHECK IF NO ACCOUNTING SET
04221  M01S03236.dsp     +++|          SHN    21-4
04222  M01S03237.dsp     +++|          PJN    VIF30       IF NO ACCOUNTING INFORMATION
04223  M01S03238.dsp     +++|          RJM    GFA         SET ACCOUNTING INFORMATION
04224  M01S03239.dsp     +++|          ADN    5
04225  M01S03240.dsp     +++|          CRD    CM
04226  M01S03241.dsp     +++|          ADN    1
04227  M01S03242.dsp     +++|          CRM    TNSS,ON     READ TERMINAL NAME OR EST ORDINAL
Line S03243 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04228  M02S03243.v23l617 ---|          LDD    CM+3        SET CARD COUNT
04229  M01S00101.v23l617 +++|          LDD    CM+3        SET COMMAND COUNT
04230  M01S03244.dsp     +++|          STM    CRSS
04231  M01S03245.dsp     +++|          LDD    CM+4
04232  M01S03246.dsp     +++|          STM    CRSS+1
04233  M01S03247.dsp     +++|
04234  M01S03248.dsp     +++|*         SET ABORT CODE IN SYSTEM SECTOR.
04235  M01S03249.dsp     +++|
04236  M01S03250.dsp     +++| VIF30    LDM    INFL        CHECK INPUT FLAGS
04237  M01S03251.dsp     +++|          SHN    21-10
04238  M01S03252.dsp     +++|          PJN    VIF31       IF FORCED ABORT FLAG NOT SET
04239  M01S03253.dsp     +++|          LDM    JASS
04240  M01S03254.dsp     +++|          NJN    VIF31       IF ERROR STATUS ALREADY SET
04241  M01S03255.dsp     +++|          RJM    GFA         GET JOB ABORT CODE
04242  M01S03256.dsp     +++|          ADN    4
04243  M01S03257.dsp     +++|          CRD    CM
04244  M01S03258.dsp     +++|          LDD    CM+2        SAVE JOB ABORT CODE
04245  M01S03259.dsp     +++|          STM    JASS
04246  M01S03260.dsp     +++|          SBN    MXIE
04247  M01S03261.dsp     +++|          MJN    VIF31       IF VALID JOB ABORT CODE
Line S03262 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04248  M02S03262.v23l617 ---|          ERROR  /ERR/EC42   * DSP - INVALID JOB ABORT CODE.*
04249  M01S00102.v23l617 +++|          ERROR  /ERR/EC42   * DSP - INCORRECT JOB ABORT CODE.*
04250  M01S03263.dsp     +++|
04251  M01S03264.dsp     +++| VIF31    LDD    FB+1        CHECK FOR SUBSYSTEM INITIATION
04252  M01S03265.dsp     +++|          SHN    21-13
04253  M01S03266.dsp     +++|          PJN    VIF32       IF NOT SUBSYSTEM INITIATION
04254  M01S03267.dsp     +++|          LDM    SBID        SET SUBSYSTEM ID
04255  M01S03268.dsp     +++|          STM    SISS
04256  M01S03269.dsp     +++|          LDM    SBCP        SET CONTROL POINT NUMBER SPECIFICATION
04257  M01S03270.dsp     +++|          STM    CPSS
04258  M01S03271.dsp     +++| VIF32    LDN    SCFL        SET REQUEST SCHEDULER FLAG
04259  M01S03272.dsp     +++|          RAD    ST
04260  M01S03273.dsp     +++|
Line S03274 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04261  M02S03274.ns2420  ---|*         REWRITE FIRST SECTOR OF INPUT FILE.
04262  M01S00019.ns2420  +++|*         *0VJ* CALLS *0AV* TO VALIDATE THE USER NAME EVEN IF THE
04263  M01S00020.ns2420  +++|*         *PRE-VALIDATE* BIT IS NOT SET IN THE LID CONFIGURATION
Line S00021 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04264  M02S00021.ns2420c ---|*         TABLE.  ALSO, IT ALWAYS DELETES THE PASSWORD FROM THE FIRST
Line S00022 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04265  M02S00022.ns2420c ---|*         SECTOR OF THE INPUT FILE (THE LOCAL COPY).  THEREFORE, THE
Line S00023 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04266  M02S00023.ns2420c ---|*         FIRST SECTOR OF THE INPUT FILE SHOULD NOT BE REWRITTEN IF
Line S00024 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04267  M02S00024.ns2420c ---|*         BOTH OF THE FOLLOWING CONDITIONS ARE PRESENT - 1) THE
Line S00025 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04268  M02S00025.ns2420c ---|*         PASSWORD WAS NOT VALID, AND 2) THE FILE WAS DESTINED FOR
Line S00026 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420c
Seq #  *Modification Id* Act 
----------------------------+
04269  M02S00026.ns2420c ---|*         ANOTHER MAINFRAME.
04270  M01S00001.ns2420c +++|*         TABLE.  ALSO, *0VJ* ALWAYS DELETES THE PASSWORD FROM THE
04271  M01S00002.ns2420c +++|*         BUFFER CONTAINING THE FIRST SECTOR OF THE INPUT FILE.
04272  M01S00003.ns2420c +++|*         THEREFORE, THE BUFFER CONTAINING THE FIRST SECTOR OF THE
04273  M01S00004.ns2420c +++|*         INPUT FILE SHOULD NOT BE REWRITTEN TO THE FILE IF BOTH OF
04274  M01S00005.ns2420c +++|*         THE FOLLOWING CONDITIONS ARE PRESENT -
04275  M01S00006.ns2420c +++|*         1) THE PASSWORD WAS NOT VALID, AND
04276  M01S00007.ns2420c +++|*         2) THE FILE WAS DESTINED FOR ANOTHER MAINFRAME.
04277  M01S03275.dsp     +++|
04278  M01S03276.dsp     +++| VIFA     LDN    0           CHECK IF FIRST SECTOR HAS BEEN READ
04279  M01S03277.dsp     +++|*         LDN    1           (FIRST SECTOR HAS BEEN READ)
04280  M01S03278.dsp     +++|          ZJN    VIF35       IF FIRST SECTOR HAS NOT BEEN READ
Line S03279 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2420
Seq #  *Modification Id* Act 
----------------------------+
04281  M02S03279.ns2420  ---|          LDD    FS          SET DISK ADDRESS
04282  M01S00027.ns2420  +++|          LDM    JASS
04283  M01S00028.ns2420  +++|          LMN    UNIE
04284  M01S00029.ns2420  +++|          NJN    VIF33       IF USER NAME/PASSWORD VALID
04285  M01S00030.ns2420  +++|          LDM    DLAT
Line S00031 Modification History
M01 (Added by) ns2420
M02 (Updated by) ns2420a
Seq #  *Modification Id* Act 
----------------------------+
04286  M02S00031.ns2420a ---|          ZJN    VIF33       IF NO LID SPECIFIED
04287  M01S00032.ns2420  +++|          SHN    21-13
04288  M01S00033.ns2420  +++|          PJN    VIF35       IF NOT HOST LID
04289  M01S00034.ns2420  +++| VIF33    LDD    FS          SET DISK ADDRESS
04290  M01S03280.dsp     +++|          STD    T5
04291  M01S03281.dsp     +++|          LDD    FS+1
04292  M01S03282.dsp     +++|          STD    T6
04293  M01S03283.dsp     +++|          LDN    FSMS
04294  M01S03284.dsp     +++|          STD    T7
Line S03285 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04295  M02S03285.242l642 ---|          SETMS  WRITE,RW
04296  M01S00108.242l642 +++|          SETMS  IO,RW
04297  M01S03286.dsp     +++|          LDC    SBUF+WLSF
Line S03287 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
04298  M02S03287.251l664 ---|          RJM    WDS         WRITE SECTOR
04299  M01S00017.251l664 +++|          RJM    WMS         WRITE SECTOR
Line S03288 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04300  M02S03288.242l642 ---|          PJN    VIF34       IF NO ERROR
Line S03289 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04301  M02S03289.242l642 ---| VIF33    ERROR  /ERR/EC30   * DSP - MASS STORAGE ERROR.*
Line S03290 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04302  M02S03290.242l642 ---| MSR      EQU    VIF33-1     ADDRESS FOR MASS STORAGE ERROR IN *RNS*
Line S03291 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04303  M02S03291.242l642 ---|
04304  M01S03292.dsp     +++| VIF34    ENDMS
04305  M01S03293.dsp     +++| VIF35    LJM    VIFX        RETURN
04306  M01S03294.dsp     +++|
Line S03295 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04307  M02S03295.v23l617 ---| VIFB     VFD    60/0L"SYSCHG"
04308  M01S00103.v23l617 +++| VIFB     BSS    5           BUFFER FOR FNT ENTRY
04309  M01S03296.dsp     +++| VIFC     VFD    42/0,18/SYUI
04310  M01S03297.dsp     +++| VIFD     VFD    60/-0
04311  M01S03298.dsp     +++|
04312  M01S03299.dsp     +++|
04313  M01S03300.dsp     +++|*         TABLE OF DEFAULT ORIGIN TYPE AND SERVICE CLASS DESCRIPTORS
04314  M01S03301.dsp     +++|*         FOR INPUT FILES.
04315  M01S03302.dsp     +++|
04316  M01S03303.dsp     +++| VIFT     BSS    0
04317  M01S03304.dsp     +++|          LOC    0
04318  M01S03305.dsp     +++|          VFD    6/SYSC,6/SYOT  SYSTEM SERVICE CLASS
04319  M01S03306.dsp     +++|          VFD    6/BCSC,6/BCOT  BATCH SERVICE CLASS
04320  M01S03307.dsp     +++|          VFD    6/RBSC,6/RBOT  REMOTE BATCH SERVICE CLASS
04321  M01S03308.dsp     +++|          VFD    6/BCSC,6/BCOT  INTERACTIVE SERVICE CLASS
04322  M01S03309.dsp     +++|          LOC    *O
04323  M01S00001.dsp30   +++| CRF      SPACE  4,10
04324  M01S00002.dsp30   +++|**        CRF - CLEAR REMOTE FAMILY/USER NAME.
04325  M01S00003.dsp30   +++|*
04326  M01S00004.dsp30   +++|*         EXIT (RFSS - RFSS+4) AND (RUSS - RUSS+4) ARE CLEARED.
04327  M01S00005.dsp30   +++|
04328  M01S00006.dsp30   +++|
04329  M01S00007.dsp30   +++| CRF      SUBR               ENTRY/EXIT
04330  M01S00008.dsp30   +++|          LDK    ZERL        CLEAR REMOTE FAMILY
04331  M01S00009.dsp30   +++|          CRM    RFSS,ON
04332  M01S00010.dsp30   +++|          SBN    1           CLEAR REMOTE USER NAME
04333  M01S00011.dsp30   +++|          CRM    RUSS,ON
04334  M01S00012.dsp30   +++|          UJN    CRFX        RETURN
04335  M01S03310.dsp     +++| CVS      SPACE  4,10
04336  M01S03311.dsp     +++|**        CVS - CHECK FOR VALID SERVICE CLASS.
04337  M01S03312.dsp     +++|*
04338  M01S03313.dsp     +++|*         ENTRY  (FSSC) = SERVICE CLASS TO BE VALIDATED.
04339  M01S03314.dsp     +++|*                (CN+2 - CN+4) = SERVICE CLASS VALIDATION MASK.
04340  M01S03315.dsp     +++|*
04341  M01S03316.dsp     +++|*         EXIT   (A) = ERROR CODE.  ZERO IF NO ERROR.
04342  M01S03317.dsp     +++|*
04343  M01S03318.dsp     +++|*         USES   T3.
04344  M01S03319.dsp     +++|*
04345  M01S03320.dsp     +++|*         CALLS  VSP.
04346  M01S03321.dsp     +++|
04347  M01S03322.dsp     +++|
04348  M01S00002.dsp40   +++| CVS3     LDN    0           INDICATE NO ERROR
04349  M01S00003.dsp40   +++|
04350  M01S03323.dsp     +++| CVS      SUBR               ENTRY/EXIT
04351  M01S00004.dsp40   +++|          LDM    EBIT+1
04352  M01S00005.dsp40   +++|          LPK    EFDS
04353  M01S00006.dsp40   +++|          NJN    CVS3        IF NOT TO VALIDATE SERVICE CLASS
04354  M01S03324.dsp     +++|          LDN    0           PRESET NON-SUBSYSTEM AND NON-SSJ= JOB
04355  M01S03325.dsp     +++|          STD    T3
04356  M01S03326.dsp     +++|          LDM    EBIT+1
04357  M01S03327.dsp     +++|          LPN    EFCU
04358  M01S03328.dsp     +++|          NJN    CVS2        IF CREATION FAMILY/USER SPECIFIED
04359  M01S03329.dsp     +++|          LDD    QT
04360  M01S03330.dsp     +++|          LMK    INQT
04361  M01S03331.dsp     +++|          ZJN    CVS2        IF INPUT FILE
Line S03332 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp10
Seq #  *Modification Id* Act 
----------------------------+
04362  M02S03332.dsp10   ---|          LDD    OT
Line S03333 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp10
Seq #  *Modification Id* Act 
----------------------------+
04363  M02S03333.dsp10   ---|          LMK    SYOT
Line S03334 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp10
Seq #  *Modification Id* Act 
----------------------------+
04364  M02S03334.dsp10   ---|          NJN    CVS2        IF NOT SYSTEM ORIGIN
04365  M01S03335.dsp     +++|          LDD    ST
04366  M01S03336.dsp     +++|          LPN    SSFL
04367  M01S03337.dsp     +++|          ZJN    CVS1        IF SUBSYSTEM
04368  M01S00001.dsp10   +++|          LDD    ST
04369  M01S00002.dsp10   +++|          LPK    SYFL
04370  M01S00003.dsp10   +++|          ZJN    CVS2        IF CALLING JOB IS NOT *SYOT*
04371  M01S03338.dsp     +++|          LDD    ST
04372  M01S03339.dsp     +++|          LPK    SJFL
Line S03340 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp10
Seq #  *Modification Id* Act 
----------------------------+
04373  M02S03340.dsp10   ---|          PJN    CVS2        IF NOT SSJ= JOB
Line S03341 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp10
Seq #  *Modification Id* Act 
----------------------------+
04374  M02S03341.dsp10   ---| CVS1     LDN    1           SET SUBSYSTEM OR SSJ= JOB
04375  M01S00004.dsp10   +++|          ZJN    CVS2        IF CALLING PROGRAM IS NOT *SSJ=*
04376  M01S00005.dsp10   +++| CVS1     LDN    1           SET SUBSYSTEM OR *SYOT*/*SSJ=* CALLER
04377  M01S03342.dsp     +++|          STD    T3
04378  M01S03343.dsp     +++| CVS2     LDM    FSSC
04379  M01S03344.dsp     +++|          RJM    VSP         VALIDATE SERVICE CLASS
04380  M01S03345.dsp     +++|          UJN    CVSX        RETURN
04381  M01S03346.dsp     +++|          SPACE  4,10
04382  M01S03347.dsp     +++|**        COMMON DECKS.
04383  M01S03348.dsp     +++|
04384  M01S00005.dsp16   +++|
04385  M01S03349.dsp     +++| CUV$     EQU    1           CHECK SERVICE CLASS VALID FOR USER
04386  M01S03350.dsp     +++|*CALL     COMPVSP
04387  M01S03351.dsp     +++|          SPACE  4,10
04388  M01S03352.dsp     +++|          USE    OVL
Line S03353 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04389  M02S03353.v23l617 ---|          ERRNG  SBUF-*      OVERFLOW INTO *0VJ* STATEMENT BUFFER
04390  M01S00104.v23l617 +++|          ERRNG  SBUF-*      OVERFLOW INTO *0VJ* COMMAND BUFFER
04391  M01S03354.dsp     +++|          TITLE  OVERLAYABLE ROUTINES.
04392  M01S03355.dsp     +++| DFO      SPACE  4,10
04393  M01S03356.dsp     +++|**        DFO - DESTINATION FAMILY ORDINAL.
04394  M01S03357.dsp     +++|*
04395  M01S03358.dsp     +++|*         ENTRY  (FDSS) = DESTINATION FAMILY NAME.
04396  M01S03359.dsp     +++|*
04397  M01S03360.dsp     +++|*         EXIT   ROUTING INFORMATION UPDATED.
04398  M01S03361.dsp     +++|*
04399  M01S03362.dsp     +++|*         USES   FN - FN+4, UN - UN+4.
04400  M01S03363.dsp     +++|*
04401  M01S03364.dsp     +++|*         CALLS  GFO.
04402  M01S03365.dsp     +++|
04403  M01S03366.dsp     +++|
04404  M01S03367.dsp     +++| DFO      SUBR               ENTRY/EXIT
04405  M01S03368.dsp     +++|          LDD    MA          PRESERVE FILE NAME
04406  M01S03369.dsp     +++|          CWD    FN
04407  M01S03370.dsp     +++|          CRD    UN
04408  M01S03371.dsp     +++|          CWM    FDSS,ON
04409  M01S03372.dsp     +++|          SBN    1
04410  M01S03373.dsp     +++|          CRD    FN
04411  M01S03374.dsp     +++|*         LDN    (NONZERO)   DO NOT ADD FAMILY
04412  M01S03375.dsp     +++|          RJM    GFO         GENERATE FAMILY ORDINAL
04413  M01S03376.dsp     +++|          LDD    FN+4
04414  M01S03377.dsp     +++|          SHN    6
04415  M01S03378.dsp     +++|          RAM    IOSS+SCLQ*5+1
04416  M01S03379.dsp     +++|          LDD    MA          RESTORE FILE NAME
04417  M01S03380.dsp     +++|          CWD    UN
04418  M01S03381.dsp     +++|          CRD    FN
04419  M01S03382.dsp     +++|          UJN    DFOX        RETURN
04420  M01S03383.dsp     +++| GUD      SPACE  4,10
04421  M01S03384.dsp     +++|**        GUD - GET USER DEFAULT SERVICE CLASS.
04422  M01S03385.dsp     +++|*
04423  M01S03386.dsp     +++|*         ENTRY  (T3) = ADDRESS OF ACCOUNT BLOCK.
04424  M01S03387.dsp     +++|*
04425  M01S03388.dsp     +++|*         EXIT   (FSSC) = USER DEFAULT SERVICE CLASS.
04426  M01S03389.dsp     +++|*                (A) .EQ. SERVICE CLASS VALUE.
04427  M01S03390.dsp     +++|*                (A) .EQ. ZERO IF ERROR.
04428  M01S03391.dsp     +++|*
04429  M01S03392.dsp     +++|*         USES   T1, T2.
04430  M01S03393.dsp     +++|
04431  M01S03394.dsp     +++|
04432  M01S03395.dsp     +++| GUD      SUBR               ENTRY/EXIT
04433  M01S03396.dsp     +++|          LDN    SYSC        PRESET SYSTEM ORIGIN DEFAULT
04434  M01S03397.dsp     +++|          STD    T2
04435  M01S03398.dsp     +++|          LDD    OT
04436  M01S03399.dsp     +++|          LMK    SYOT
04437  M01S03400.dsp     +++|          ZJP    GUD4        IF SYSTEM ORIGIN
04438  M01S03401.dsp     +++|          LDN    0
04439  M01S03402.dsp     +++|          STD    T2
04440  M01S03403.dsp     +++|          LDD    T3          GET ADDRESS OF USER DEFAULT
04441  M01S03404.dsp     +++|          ADK    ASC1*5
04442  M01S03405.dsp     +++|          STD    T1
04443  M01S03406.dsp     +++|          LDD    OT          SET BYTE NUMBER WITH USER DEFAULT
04444  M01S03407.dsp     +++|          SHN    21
04445  M01S03408.dsp     +++|          STM    GUDA
04446  M01S03409.dsp     +++|          PJN    GUD1        IF UPPER SIX BITS ARE USER DEFAULT
04447  M01S03410.dsp     +++|          LDN    0
04448  M01S03411.dsp     +++|          STM    GUDB
04449  M01S03412.dsp     +++| GUD1     LDM    0,T1        GET USER DEFAULT SERVICE CLASS
04450  M01S03413.dsp     +++| GUDA     EQU    *-1         (BYTE NUMBER OF USER DEFAULT)
04451  M01S03414.dsp     +++|          SHN    -6
04452  M01S03415.dsp     +++|*         SHN    0           (LOWER SIX BITS ARE USER DEFAULT)
04453  M01S03416.dsp     +++| GUDB     EQU    *-1
04454  M01S03417.dsp     +++|          LPN    77
04455  M01S03418.dsp     +++|          STD    T1
04456  M01S03419.dsp     +++| GUD2     LDM    TGUD,T2     GET SERVICE CLASS VALUE
04457  M01S03420.dsp     +++|          LMD    T1
04458  M01S03421.dsp     +++|          ZJN    GUD4        IF MATCH
04459  M01S03422.dsp     +++|          AOD    T2
04460  M01S03423.dsp     +++|          SBN    MXSC
04461  M01S03424.dsp     +++|          NJN    GUD2        IF NOT END OF SERVICE CLASSES
04462  M01S03425.dsp     +++| GUD3     LJM    GUDX        RETURN
04463  M01S03426.dsp     +++|
04464  M01S03427.dsp     +++| GUD4     LDD    T2          SET SERVICE CLASS
04465  M01S03428.dsp     +++|          STM    FSSC
04466  M01S03429.dsp     +++|          UJN    GUD3        RETURN
04467  M01S03430.dsp     +++|
04468  M01S03431.dsp     +++|
04469  M01S03432.dsp     +++|**        TGUD - TABLE OF USER DEFAULT SERVICE CLASSES.
04470  M01S03433.dsp     +++|
04471  M01S03434.dsp     +++| TGUD     INDEX
Line S03435 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04472  M02S03435.ns2217  ---|          INDEX  SYSC,1RS
Line S03436 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04473  M02S03436.ns2217  ---|          INDEX  BCSC,1RB
Line S03437 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04474  M02S03437.ns2217  ---|          INDEX  RBSC,1RR
Line S03438 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04475  M02S03438.ns2217  ---|          INDEX  TSSC,1RT
Line S03439 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04476  M02S03439.ns2217  ---|          INDEX  DISC,1RD
Line S03440 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04477  M02S03440.ns2217  ---|          INDEX  NSSC,1RN
Line S03441 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04478  M02S03441.ns2217  ---|          INDEX  MASC,1RM
Line S03442 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04479  M02S03442.ns2217  ---|          INDEX  CTSC,1RC
Line S03443 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04480  M02S03443.ns2217  ---|          INDEX  I0SC,1R0
Line S03444 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04481  M02S03444.ns2217  ---|          INDEX  I1SC,1R1
Line S03445 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04482  M02S03445.ns2217  ---|          INDEX  I2SC,1R2
Line S03446 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
04483  M02S03446.ns2217  ---|          INDEX  I3SC,1R3
04484  M01S00032.ns2217  +++|          LIST   D
04485  M01S00033.ns2217  +++| .SCL     HERE
04486  M01S00034.ns2217  +++|          LIST   *
04487  M01S03447.dsp     +++|          INDEX  MXJC
04488  M01S03448.dsp     +++| NTS      SPACE  4,15
04489  M01S03449.dsp     +++|**        NTS - NO TID SPECIFIED.
04490  M01S03450.dsp     +++|*
04491  M01S03451.dsp     +++|*         EXIT   FAMILY NAME DETERMINED FROM *FO*.
04492  M01S03452.dsp     +++|*                DESTINATION USER INDEX TAKEN FROM EJT.
04493  M01S03453.dsp     +++|*
04494  M01S03454.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S03455 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04495  M02S03455.v23l617 ---|*                INVALID TID.
04496  M01S00105.v23l617 +++|*                INCORRECT TID.
04497  M01S03456.dsp     +++|*
04498  M01S03457.dsp     +++|*         USES   CN - CN+4, FN - FN+4, UN - UN+4.
04499  M01S03458.dsp     +++|*
Line S03459 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp30
Seq #  *Modification Id* Act 
----------------------------+
04500  M02S03459.dsp30   ---|*         CALLS  GEA, GFM.
04501  M01S00013.dsp30   +++|*         CALLS  CRF, GEA, GFM.
04502  M01S03460.dsp     +++|*
04503  M01S03461.dsp     +++|*         MACROS ERROR.
04504  M01S03462.dsp     +++|
04505  M01S03463.dsp     +++|
04506  M01S03464.dsp     +++| NTS1     LDD    MA          SAVE FAMILY NAME
04507  M01S03465.dsp     +++|          CWD    FN
04508  M01S03466.dsp     +++|          CRM    FDSS,ON
04509  M01S03467.dsp     +++| NTS2     LDD    MA          RESTORE (FN - FN+4)
04510  M01S03468.dsp     +++|          CWD    UN
04511  M01S03469.dsp     +++|          CRD    FN
04512  M01S03470.dsp     +++|          LDD    CN+1        SET DESTINATION UI
04513  M01S03471.dsp     +++|          LMM    DASS+3
04514  M01S03472.dsp     +++|          SCN    37
04515  M01S03473.dsp     +++|          LMD    CN+1
04516  M01S03474.dsp     +++|          STM    DASS+3
04517  M01S03475.dsp     +++|          LDD    CN+2
04518  M01S03476.dsp     +++|          STM    DASS+4
04519  M01S00014.dsp30   +++|          RJM    CRF         CLEAR REMOTE FAMILY/USER NAME
04520  M01S03477.dsp     +++|
04521  M01S03478.dsp     +++| NTS      SUBR               ENTRY/EXIT
04522  M01S03479.dsp     +++|          LDD    ST
04523  M01S03480.dsp     +++|          LPN    DSFL
04524  M01S03481.dsp     +++|          NJN    NTSX        IF FILE PREVIOUSLY ROUTED
04525  M01S03482.dsp     +++|          RJM    GEA         GET *FO,UI* FROM EJT
04526  M01S03483.dsp     +++|          ADK    SCLE
04527  M01S03484.dsp     +++|          CRD    CN
04528  M01S03485.dsp     +++|          LDD    MA          PRESERVE (FN - FN+4)
04529  M01S03486.dsp     +++|          CWD    FN
04530  M01S03487.dsp     +++|          CRD    UN
04531  M01S03488.dsp     +++|          LDD    CN+1
04532  M01S03489.dsp     +++|          SHN    -6
04533  M01S03490.dsp     +++|          ZJN    NTS2        IF NO DESTINATION FAMILY SPECIFIED
04534  M01S03491.dsp     +++|          RJM    GFM         GET FAMILY NAME
04535  M01S03492.dsp     +++|          NJP    NTS1        IF FAMILY NAME FOUND
Line S03493 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04536  M02S03493.v23l617 ---|          ERROR  /ERR/EC21   * DSP - INVALID TID.*
04537  M01S00106.v23l617 +++|          ERROR  /ERR/EC21   * DSP - INCORRECT TID.*
04538  M01S03494.dsp     +++| PSI      SPACE  4,15
04539  M01S03495.dsp     +++|**        PSI - PROCESS SUBSYSTEM INITIATION.
04540  M01S03496.dsp     +++|*
Line S03497 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
04541  M02S03497.ns2556  ---|*         ENTRY  (SBSN - SBSN+1) = SUBSYSTEM NAME.
04542  M01S00057.ns2556  +++|*         ENTRY  (FJSN - FJSN+1) = SUBSYSTEM NAME.
04543  M01S03498.dsp     +++|*                (SBID) = SUBSYSTEM ID (IF SPECIFIED IN CALL).
04544  M01S03499.dsp     +++|*
04545  M01S03500.dsp     +++|*         EXIT   (SBID) = SUBSYSTEM ID.
Line S03501 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04546  M02S03501.v23l617 ---|*                TO ERR, IF INVALID REQUEST.
04547  M01S00107.v23l617 +++|*                TO ERR, IF INCORRECT REQUEST.
04548  M01S03502.dsp     +++|*
04549  M01S03503.dsp     +++|*         USES   RI.
04550  M01S03504.dsp     +++|*
Line S03505 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04551  M02S03505.dsp12   ---|*         CALLS  AST, CUA.
04552  M01S00014.dsp12   +++|*         CALLS  AST.
04553  M01S03506.dsp     +++|*
04554  M01S03507.dsp     +++|*         MACROS ERROR.
04555  M01S03508.dsp     +++|
04556  M01S03509.dsp     +++|
04557  M01S03510.dsp     +++| PSI      SUBR               ENTRY/EXIT
Line S03511 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
Seq #  *Modification Id* Act 
----------------------------+
04558  M02S03511.dsp12   ---|          RJM    CUA         CHECK FOR SYSTEM ORIGIN PRIVILEGES
04559  M01S00015.dsp12   +++|          LDM    CUAV        CHECK USER ACCESS
04560  M01S03512.dsp     +++|          ZJN    PSI2        IF VALID USER
Line S03513 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04561  M02S03513.v23l617 ---| PSI1     ERROR  /ERR/EC12   * DSP - INVALID REQUEST.*
04562  M01S00108.v23l617 +++| PSI1     ERROR  /ERR/EC12   * DSP - INCORRECT REQUEST.*
04563  M01S03514.dsp     +++|
04564  M01S03515.dsp     +++| PSI2     LDD    QT
04565  M01S03516.dsp     +++|          LMK    INQT
04566  M01S03517.dsp     +++|          NJN    PSI1        IF NOT INPUT FILE
04567  M01S03518.dsp     +++|          LDD    OT
04568  M01S03519.dsp     +++|          LMK    SYOT
04569  M01S03520.dsp     +++|          NJN    PSI1        IF NOT ROUTE TO SYSTEM ORIGIN
04570  M01S03521.dsp     +++|          LDC    TSUB
04571  M01S03522.dsp     +++|          STD    RI
04572  M01S03523.dsp     +++|          LDM    SBID
04573  M01S03524.dsp     +++|          ZJN    PSI3        IF SUBSYSTEM ID NOT SPECIFIED IN CALL
04574  M01S03525.dsp     +++|          SBK    LSSI+1
04575  M01S03526.dsp     +++|          MJN    PSIX        IF SUBSYSTEM NOT IN *SSCT* SPECIFIED
04576  M01S03527.dsp     +++| PSI3     LDI    RI          SEARCH TABLE FOR SUBSYSTEM
Line S03528 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
04577  M02S03528.ns2556  ---|          LMM    SBSN
04578  M01S00058.ns2556  +++|          LMM    FJSN
04579  M01S03529.dsp     +++|          NJN    PSI4        IF NO MATCH
04580  M01S03530.dsp     +++|          LDM    1,RI
Line S03531 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2556
Seq #  *Modification Id* Act 
----------------------------+
04581  M02S03531.ns2556  ---|          LMM    SBSN+1
04582  M01S00059.ns2556  +++|          LMM    FJSN+1
04583  M01S03532.dsp     +++|          ZJN    PSI6        IF MATCH
04584  M01S03533.dsp     +++| PSI4     LDN    TSUBE       GET NEXT TABLE ENTRY
04585  M01S03534.dsp     +++|          RAD    RI
04586  M01S03535.dsp     +++|          LMC    TSUBL
04587  M01S03536.dsp     +++|          NJN    PSI3        IF NOT END OF TABLE
Line S03537 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04588  M02S03537.v23l617 ---| PSI5     LJM    PSI1        * DSP - INVALID REQUEST.*
04589  M01S00109.v23l617 +++| PSI5     LJM    PSI1        * DSP - INCORRECT REQUEST.*
04590  M01S00001.ns2244  +++|
Line S00002 Modification History
M01 (Added by) ns2244
M02 (Updated by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
04591  M02S00002.ns2746  ---| PSI5.1   LDM    SBID        CHECK FOR PLATO
04592  M01S00001.ns2746  +++| PSI5.1   LDM    SBID        CHECK FOR CYBIS
04593  M01S00003.ns2244  +++|          LMC    PLSI
04594  M01S00004.ns2244  +++|          ZJP    PSIX        IF ALREADY ACTIVE
04595  M01S00005.ns2244  +++|          UJN    PSI5        SET ERROR
04596  M01S03538.dsp     +++|
04597  M01S03539.dsp     +++| PSI6     LDM    SBID
04598  M01S03540.dsp     +++|          ZJN    PSI6.1      IF SUBSYSTEM ID NOT SPECIFIED IN CALL
04599  M01S03541.dsp     +++|          LMM    2,RI
04600  M01S03542.dsp     +++|          NJN    PSI5        IF SUBSYSTEM ID DID NOT MATCH NAME
04601  M01S03543.dsp     +++| PSI6.1   LDM    2,RI        SAVE SUBSYSTEM ID
04602  M01S03544.dsp     +++|          STM    SBID
04603  M01S03545.dsp     +++|          LMC    FEAF*10000  CHECK FOR SUBSYSTEM ALREADY ACTIVE
04604  M01S03546.dsp     +++|          RJM    AST
Line S03547 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
04605  M02S03547.ns2244  ---|          NJN    PSI5        IF SUBSYSTEM ALREADY ACTIVE
04606  M01S00006.ns2244  +++| PSI6.2   NJN    PSI5.1      IF SUBSYSTEM ALREADY ACTIVE
04607  M01S03548.dsp     +++|          LDM    SBID
04608  M01S03549.dsp     +++|          LMC    RDSI
04609  M01S03550.dsp     +++|          NJN    PSI9        IF NOT *RDF*
04610  M01S03551.dsp     +++|          LDC    IFSI+FEAF*10000  CHECK IF *IAF* ACTIVE
04611  M01S03552.dsp     +++| PSI7     RJM    AST
Line S03553 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
04612  M02S03553.ns2244  ---|          NJN    PSI5        IF SUBSYSTEM ACTIVE
04613  M01S00007.ns2244  +++|          NJN    PSI6.2      IF SUBSYSTEM ACTIVE
04614  M01S03554.dsp     +++| PSI8     LJM    PSIX        RETURN
04615  M01S03555.dsp     +++|
04616  M01S03556.dsp     +++| PSI9     LMC    IFSI&RDSI
04617  M01S03557.dsp     +++|          NJN    PSI8        IF NOT *IAF*
04618  M01S03558.dsp     +++|          LDC    RDSI+FEAF*10000
04619  M01S03559.dsp     +++|          UJN    PSI7        CHECK IF *RDF* ACTIVE
04620  M01S03560.dsp     +++| TSUB     SPACE  4,10
04621  M01S03561.dsp     +++|**        TABLE OF NON-PP-INITIATED SUBSYSTEMS.
04622  M01S03562.dsp     +++|*
04623  M01S03563.dsp     +++|*         ENTRY FORMAT.
04624  M01S03564.dsp     +++|*
04625  M01S03565.dsp     +++|*T        24/NAME, 12/SSID
Figure

0111229SSIDNAME3035NAME

04626  M01S03566.dsp     +++|*
04627  M01S03567.dsp     +++|*         NAME = 3-CHARACTER SUBSYSTEM NAME + BLANK.
04628  M01S03568.dsp     +++|*         SSID = SUBSYSTEM ID.
04629  M01S03569.dsp     +++|
04630  M01S03570.dsp     +++|
04631  M01S03571.dsp     +++| TSUB     BSS    0
Line S03572 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04632  M02S03572.v22l602 ---|          VFD    24/4LCDC ,12/CDSI  *CDCS*
Line S03573 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04633  M02S03573.v22l602 ---| TSUBE    EQU    *-TSUB      TABLE ENTRY LENGTH
Line S03574 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04634  M02S03574.v22l602 ---|          VFD    24/4LIAF ,12/IFSI  *IAF*
Line S03575 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04635  M02S03575.v22l602 ---|          VFD    24/4LMAG ,12/MTSI  *MAGNET*
Line S03576 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04636  M02S03576.v22l602 ---|          VFD    24/4LMAP ,12/MPSI  *MAP*
Line S03577 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04637  M02S03577.v22l602 ---|          VFD    24/4LMCS ,12/MCSI  *MCS*
Line S03578 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04638  M02S03578.v22l602 ---|          VFD    24/4LMSS ,12/MFSI  *MSS*
Line S03579 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04639  M02S03579.v22l602 ---|          VFD    24/4LNAM ,12/NMSI  *NAM*
Line S03580 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04640  M02S03580.v22l602 ---|          VFD    24/4LNVE ,12/NVSI  *NVE*
Line S03581 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04641  M02S03581.v22l602 ---|          VFD    24/4LRBF ,12/RBSI  *RBF*
Line S03582 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04642  M02S03582.v22l602 ---|          VFD    24/4LRHF ,12/RFSI  *RHF*
Line S03583 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04643  M02S03583.v22l602 ---|          VFD    24/4LRDF ,12/RDSI  *RDF*
Line S03584 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04644  M02S03584.v22l602 ---|          VFD    24/4LSMF ,12/SMSI  *SMF*
Line S03585 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04645  M02S03585.v22l602 ---|          VFD    24/4LSSF ,12/SSSI  *SSF*
Line S03586 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04646  M02S03586.v22l602 ---|          VFD    24/4LSTM ,12/STSI  *STM*
Line S03587 Modification History
M01 (Added by) dsp
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
04647  M02S03587.v22l602 ---|          VFD    24/4LTAF ,12/TRSI  *TAF*
04648  M01S00033.v22l602 +++|          LIST   G
04649  M01S00034.v22l602 +++| .SUB     HERE
04650  M01S00035.v22l602 +++|          LIST   *
04651  M01S03588.dsp     +++| TSUBL    BSS    0           END OF TABLE
04652  M01S03589.dsp     +++| SBI      SPACE  4,10
04653  M01S03590.dsp     +++|**        SBI - SET BATCH ID.
04654  M01S03591.dsp     +++|*
04655  M01S03592.dsp     +++|*         ENTRY  (CM - CM+4) = SECOND WORD OF ARGUMENT TABLE.
04656  M01S03593.dsp     +++|*                (CM - CM+4) = 0 IF NO BATCH ID IS SPECIFIED.
04657  M01S03594.dsp     +++|*                (FB+1) = FLAG BITS.
04658  M01S03595.dsp     +++|*                (OT) = DESTINATION ORIGIN TYPE.
04659  M01S03596.dsp     +++|*
04660  M01S03597.dsp     +++|*         EXIT   QFT UPDATED.
04661  M01S03598.dsp     +++|*
04662  M01S03599.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S03600 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04663  M02S03600.v23l617 ---|*                INVALID TID.
04664  M01S00110.v23l617 +++|*                INCORRECT TID.
04665  M01S03601.dsp     +++|*
04666  M01S03602.dsp     +++|*         USES   T1, T2.
04667  M01S00015.dsp30   +++|*
04668  M01S00016.dsp30   +++|*         CALLS  CRF.
04669  M01S03603.dsp     +++|*
04670  M01S03604.dsp     +++|*         MACROS ERROR.
04671  M01S03605.dsp     +++|
04672  M01S03606.dsp     +++|
04673  M01S03607.dsp     +++| SBI      SUBR               ENTRY
04674  M01S03608.dsp     +++|          LDD    FB+1
04675  M01S03609.dsp     +++|          LPN    4
04676  M01S03610.dsp     +++|          NJN    SBI0        IF BATCH ID SPECIFIED
04677  M01S03611.dsp     +++|          LDM    IOSS+SCLQ*5+1
04678  M01S03612.dsp     +++|          ZJN    SBIX        IF BATCH ID IS ALREADY SET
04679  M01S03613.dsp     +++| SBI0     LDD    CM+3
04680  M01S03614.dsp     +++|          STM    IOSS+SCLQ*5+1
04681  M01S03615.dsp     +++|          ZJN    SBI2        IF VALID TID
Line S03616 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04682  M02S03616.v23l617 ---| SBI1     ERROR  /ERR/EC21   * DSP - INVALID TID.*
04683  M01S00111.v23l617 +++| SBI1     ERROR  /ERR/EC21   * DSP - INCORRECT TID.*
04684  M01S03617.dsp     +++|
04685  M01S03618.dsp     +++| SBI2     LDD    CM+4
04686  M01S03619.dsp     +++|          STM    IOSS+SCLQ*5+2
04687  M01S03620.dsp     +++|          SBN    IDLM
04688  M01S03621.dsp     +++|          PJN    SBI1        IF ID .GT. MAXIMUM ALLOWED
04689  M01S03622.dsp     +++|          LDN    ZERL        CLEAR DESTINATION FAMILY
04690  M01S03623.dsp     +++|          CRM    FDSS,ON
04691  M01S03624.dsp     +++|          SBN    1           CLEAR DESTINATION USER NAME
04692  M01S03625.dsp     +++|          CRM    DASS,ON
04693  M01S00017.dsp30   +++|          RJM    CRF         CLEAR REMOTE FAMILY/USER NAME
04694  M01S03626.dsp     +++|          UJN    SBIX        RETURN
04695  M01S03627.dsp     +++| SDO      SPACE  4,10
04696  M01S03628.dsp     +++|**        SDO - SET DESTINATION ORIGIN TYPE.
04697  M01S03629.dsp     +++|*
04698  M01S03630.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
04699  M01S03631.dsp     +++|*                (OT) = ORIGIN TYPE OF CONTROL POINT AREA.
04700  M01S03632.dsp     +++|*                (QT) = DESTINATION QUEUE TYPE.
04701  M01S03633.dsp     +++|*
04702  M01S03634.dsp     +++|*         EXIT   (OT) = ORIGIN TYPE.
04703  M01S03635.dsp     +++|*                (A) = ORIGIN TYPE OF QUEUED FILE.
04704  M01S03636.dsp     +++|*
04705  M01S03637.dsp     +++|*         USES   OT, CM - CM+4.
04706  M01S03638.dsp     +++|*
04707  M01S03639.dsp     +++|*         CALLS  GFA.
04708  M01S03640.dsp     +++|
04709  M01S03641.dsp     +++|
04710  M01S03642.dsp     +++| SDO      SUBR               ENTRY/EXIT
04711  M01S03643.dsp     +++|
04712  M01S03644.dsp     +++|*         SET ORIGIN TYPE FOR FILE.
04713  M01S03645.dsp     +++|
04714  M01S03646.dsp     +++|          LDD    ST          CHECK IF FILE PREVIOUSLY ROUTED
04715  M01S03647.dsp     +++|          LPN    DSFL
04716  M01S03648.dsp     +++|          ZJN    SDO1        IF NOT PREVIOUSLY ROUTED
04717  M01S03649.dsp     +++|          LDM    IOSS+SCLQ*5
04718  M01S03650.dsp     +++|          UJN    SDO3        SET FROM QFT ENTRY
04719  M01S03651.dsp     +++|
04720  M01S03652.dsp     +++| SDO1     LDD    QT
04721  M01S03653.dsp     +++|          LMK    INQT
04722  M01S03654.dsp     +++|          NJN    SDO2        IF NOT INPUT FILE
04723  M01S03655.dsp     +++|          LDM    JBOT
04724  M01S03656.dsp     +++|          LPN    17
04725  M01S03657.dsp     +++|          LMK    SYOT
04726  M01S03658.dsp     +++|          NJN    SDO1.1      IF NOT SYSTEM ORIGIN JOB
04727  M01S03659.dsp     +++|          LDN    BCOT        SET BATCH ORIGIN TYPE
04728  M01S03660.dsp     +++|          STD    OT
04729  M01S03661.dsp     +++| SDO1.1   LDM    VIFT,OT     INITIALIZE ORIGIN TYPE AND SERVICE CLASS
04730  M01S03662.dsp     +++|          STM    JBOT
04731  M01S03663.dsp     +++| SDO2     LDM    JBOT        SET FROM EJT ENTRY OF CALLER
04732  M01S03664.dsp     +++|          STM    IOSS+SCLQ*5
04733  M01S03665.dsp     +++| SDO3     LPN    17
04734  M01S03666.dsp     +++|          STD    OT
04735  M01S03667.dsp     +++|          LDM    FSOT
04736  M01S03668.dsp     +++|          SHN    21-13
04737  M01S03669.dsp     +++|          MJN    SDO4        IF NOT FORCED ORIGIN REQUEST
04738  M01S03670.dsp     +++|          SHN    13-21
04739  M01S03671.dsp     +++|          STD    OT
Line S03672 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
04740  M02S03672.ns2168  ---|          LDM    IOSS+SCLQ*5 RESET ORIGIN TYPE
Line S03673 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
04741  M02S03673.ns2168  ---|          SCN    77
Line S03674 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2168
Seq #  *Modification Id* Act 
----------------------------+
04742  M02S03674.ns2168  ---|          LMD    OT
04743  M01S00001.ns2168  +++|          LDM    SCDT,OT     RESET ORIGIN TYPE AND SERVICE CLASS
04744  M01S03675.dsp     +++|          STM    IOSS+SCLQ*5
04745  M01S03676.dsp     +++| SDO4     LDD    FB+1
04746  M01S03677.dsp     +++|          SHN    21-13
04747  M01S03678.dsp     +++|          PJN    SDO5        IF NOT SUBSYSTEM INITIATION
04748  M01S03679.dsp     +++|          LDM    IOSS+SCLQ*5 RESET SERVICE CLASS
04749  M01S03680.dsp     +++|          LPN    17
04750  M01S03681.dsp     +++|          LMC    SSSC*100
04751  M01S03682.dsp     +++|          STM    IOSS+SCLQ*5
04752  M01S03683.dsp     +++| SDO5     UJP    SDOX        RETURN
04753  M01S03684.dsp     +++|
04754  M01S03685.dsp     +++|
04755  M01S03686.dsp     +++|*         TABLE OF DEFAULT ORIGIN TYPE AND SERVICE CLASS DESCRIPTORS
04756  M01S03687.dsp     +++|*         FOR OUTPUT FILES.
04757  M01S03688.dsp     +++|
04758  M01S03689.dsp     +++| SCDT     BSS    0
04759  M01S03690.dsp     +++|          LOC    0
04760  M01S03691.dsp     +++|          VFD    6/SYSC,6/SYOT  SYSTEM SERVICE CLASS
04761  M01S03692.dsp     +++|          VFD    6/BCSC,6/BCOT  BATCH SERVICE CLASS
04762  M01S03693.dsp     +++|          VFD    6/RBSC,6/EIOT  REMOTE BATCH SERVICE CLASS
04763  M01S03694.dsp     +++|          VFD    6/TSSC,6/IAOT  INTERACTIVE SERVICE CLASS
04764  M01S03695.dsp     +++|          LOC    *O
04765  M01S03696.dsp     +++| SFD      SPACE  4,30
04766  M01S03697.dsp     +++|**        SFD - SET FILE DESTINATION.
04767  M01S03698.dsp     +++|*
04768  M01S03699.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
04769  M01S03700.dsp     +++|*                (FN - FN+4) = FNT ENTRY.
04770  M01S03701.dsp     +++|*                (FS - FS+4) = FST ENTRY.
04771  M01S03702.dsp     +++|*                (OT) = DEFAULT ORIGIN TYPE.
04772  M01S03703.dsp     +++|*                (QT) = QUEUE TYPE.
04773  M01S03704.dsp     +++|*
04774  M01S03705.dsp     +++|*         EXIT   (FN - FN+4) = UPDATED FNT.
04775  M01S03706.dsp     +++|*                (FS - FS+4) = FST ENTRY.
04776  M01S03707.dsp     +++|*                (OT) = ORIGIN TYPE.
04777  M01S03708.dsp     +++|*                (QT) = QUEUE TYPE.
04778  M01S03709.dsp     +++|*                (DASS - DASS+4) = DESTINATION USER NAME.
04779  M01S03710.dsp     +++|*                QFT ROUTE INFO UPDATED.
04780  M01S03711.dsp     +++|*                (FDSS - FDSS+4) = DESTINATION FAMILY NAME.
04781  M01S03712.dsp     +++|*
04782  M01S03713.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S03714 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04783  M02S03714.v23l617 ---|*                INVALID TID.
Line S03715 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04784  M02S03715.v23l617 ---|*                INVALID SERVICE CLASS.
04785  M01S00112.v23l617 +++|*                INCORRECT TID.
04786  M01S00113.v23l617 +++|*                INCORRECT SERVICE CLASS.
04787  M01S03716.dsp     +++|*                ALTERNATE FAMILY NOT ALLOWED.
04788  M01S00109.242l642 +++|*         ERROR  TO *EER3* IF INACCESSIBLE DEVICE RETURN BY *0AV*.
04789  M01S03717.dsp     +++|*
04790  M01S03718.dsp     +++|*         USES   FN+3, FS+2, FS+3, OT, T1, T2, CM - CM+4,
04791  M01S03719.dsp     +++|*                CN - CN+4, UN - UN+4.
04792  M01S03720.dsp     +++|*
Line S03721 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp30
Seq #  *Modification Id* Act 
----------------------------+
04793  M02S03721.dsp30   ---|*         CALLS  CVS, DFO, GUD, GFA, NTS, RFN, SBI, SDO, SSJ, VCA,
04794  M01S00018.dsp30   +++|*         CALLS  CRF, CVS, DFO, GUD, GFA, NTS, RFN, SBI, SDO, SSJ, VCA.
Line S03722 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04795  M02S03722.ns2734  ---|*                VFM, *0AV*.
04796  M01S00087.ns2734  +++|*                *0AV*.
04797  M01S03723.dsp     +++|*
Line S03724 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04798  M02S03724.242l642 ---|*         MACROS EXECUTE, ERROR.
04799  M01S00110.242l642 +++|*         MACROS ERROR, EXECUTE.
04800  M01S03725.dsp     +++|
04801  M01S03726.dsp     +++|
04802  M01S03727.dsp     +++| SFD      SUBR               ENTRY/EXIT
04803  M01S03728.dsp     +++|          RJM    SDO         SET DESTINATION ORIGIN TYPE
04804  M01S03729.dsp     +++|          LDD    FB+1
04805  M01S03730.dsp     +++|          LPN    6
04806  M01S03731.dsp     +++|          NJN    SFD1        IF CENTRAL SITE OR TID SPECIFIED
04807  M01S03732.dsp     +++|          RJM    NTS         NO TID SPECIFIED
04808  M01S03733.dsp     +++|          UJN    SFD4        CHECK FOR FORCED SERVICE CLASS
04809  M01S03734.dsp     +++|
04810  M01S03735.dsp     +++| SFD1     LPN    4
04811  M01S03736.dsp     +++|          NJN    SFD2        IF TID SPECIFIED
04812  M01S03737.dsp     +++|          LDN    ZERL
04813  M01S03738.dsp     +++|          UJN    SFD3        CLEAR ROUTING INFORMATION
04814  M01S03739.dsp     +++|
04815  M01S03740.dsp     +++| SFD2     RJM    GFA         GET TID FROM PARAMETER BLOCK
04816  M01S03741.dsp     +++|          ADN    2
04817  M01S03742.dsp     +++| SFD3     CRD    CM
04818  M01S03743.dsp     +++|          LDD    CM+3
04819  M01S03744.dsp     +++|          NJN    SFD6        IF ADDRESS SPECIFIED
04820  M01S03745.dsp     +++|          RJM    SBI         SET BATCH ID
04821  M01S03746.dsp     +++| SFD4     LJM    SFD19       CHECK FOR FORCED SERVICE CLASS
04822  M01S03747.dsp     +++|
Line S03748 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04823  M02S03748.v23l617 ---| SFD5     ERROR  /ERR/EC21   * DSP - INVALID TID.*
04824  M01S00114.v23l617 +++| SFD5     ERROR  /ERR/EC21   * DSP - INCORRECT TID.*
04825  M01S03749.dsp     +++|
04826  M01S03750.dsp     +++|*         PROCESS TID PARAMETER BLOCK.
04827  M01S03751.dsp     +++|
04828  M01S03752.dsp     +++| SFD6     LDD    QT
04829  M01S03753.dsp     +++|          LMK    INQT
04830  M01S03754.dsp     +++|          NJN    SFD7        IF NOT ROUTE TO INPUT
04831  M01S03755.dsp     +++|          LDM    SLAT
04832  M01S03756.dsp     +++|          UJN    SFD8        CHECK SLID ATTRIBUTES (INPUT FILE)
04833  M01S03757.dsp     +++|
04834  M01S03758.dsp     +++| SFD7     LDM    DLAT        CHECK DLID ATTRIBUTES (OUTPUT FILE)
04835  M01S03759.dsp     +++| SFD8     SHN    21-13
04836  M01S03760.dsp     +++|          MJN    SFD9        IF LOCAL HOST
04837  M01S03761.dsp     +++|          LDN    PSNI        SET RUSS/RFSS RATHER THAN DASS/FDSS
04838  M01S03762.dsp     +++|          STM    SFDA
04839  M01S03763.dsp     +++|          STM    SFDA+1
04840  M01S00001.dsp36   +++|          STM    SFDC
Line S03764 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp23
Seq #  *Modification Id* Act 
----------------------------+
04841  M02S03764.dsp23   ---| SFD9     LDD    CM+3        VALIDATE ADDRESS FOR PARAMETER BLOCK
04842  M01S00001.dsp23   +++|          LDN    ZERL        PRESET SELECTION OF DEFAULT FAMILY
04843  M01S00002.dsp23   +++|          CRM    RFSS,ON
Line S00003 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04844  M02S00003.dsp36   ---|          UJN    SFD9.1      VALIDATE PARAMETER BLOCK ADDRESS
Line S00004 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04845  M02S00004.dsp36   ---|
Line S00005 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04846  M02S00005.dsp36   ---| SFD9     LDK    PSNI        SET DASS/FDSS
Line S00006 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04847  M02S00006.dsp36   ---|          STM    SFDC
Line S00019 Modification History
M01 (Added by) dsp30
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04848  M02S00019.dsp36   ---|          STM    SFDC+1
Line S00007 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04849  M02S00007.dsp36   ---| SFD9.1   LDD    CM+3        VALIDATE ADDRESS OF PARAMETER BLOCK
04850  M01S00002.dsp36   +++| SFD9     LDD    CM+3        VALIDATE ADDRESS OF PARAMETER BLOCK
04851  M01S03765.dsp     +++|          SHN    14
04852  M01S03766.dsp     +++|          SCN    77
04853  M01S03767.dsp     +++|          LMD    CM+4
04854  M01S03768.dsp     +++|          LMC    777777
04855  M01S03769.dsp     +++|          NJN    SFD10       IF NONZERO ADDRESS SPECIFIED
04856  M01S03770.dsp     +++|          LJM    SFD12       SET DEFAULT FAMILY AND USER NAME
04857  M01S03771.dsp     +++|
04858  M01S03772.dsp     +++| SFD10    RJM    VCA         VALIDATE ADDRESS
Line S03773 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04859  M02S03773.v23l617 ---| SFD11    ZJN    SFD5        IF INVALID ADDRESS
Line S00115 Modification History
M01 (Added by) v23l617
M02 (Updated by) dsp23
Seq #  *Modification Id* Act 
----------------------------+
04860  M02S00115.dsp23   ---| SFD11    ZJN    SFD5        IF INCORRECT ADDRESS
04861  M01S00008.dsp23   +++| SFD11    ZJP    SFD5        IF INCORRECT ADDRESS
04862  M01S03774.dsp     +++|          ADN    1
04863  M01S03775.dsp     +++|          RJM    VCA         VALIDATE CENTRAL ADDRESS
Line S03776 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04864  M02S03776.v23l617 ---|          ZJN    SFD11       IF INVALID ADDRESS
04865  M01S00116.v23l617 +++|          ZJN    SFD11       IF INCORRECT ADDRESS
04866  M01S03777.dsp     +++|          SBN    1
04867  M01S03778.dsp     +++| SFDA     LJM    SFD15       PROCESS TID
04868  M01S03779.dsp     +++|*         PSN                (SET RUSS/RFSS FROM TID)
04869  M01S03780.dsp     +++|
04870  M01S03781.dsp     +++|*         SET REMOTE FAMILY AND USER NAME FROM TID BLOCK.
04871  M01S03782.dsp     +++|
04872  M01S03783.dsp     +++|          SHN    14          READ REMOTE USER/FAMILY
04873  M01S03784.dsp     +++|          ADD    RA
04874  M01S03785.dsp     +++|          SHN    6
04875  M01S03786.dsp     +++|          CRM    RFSS,ON
Line S03787 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp23
Seq #  *Modification Id* Act 
----------------------------+
04876  M02S03787.dsp23   ---|          CRM    RUSS,ON
Line S00009 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04877  M02S00009.dsp36   ---| SFD11.1  CRM    RUSS,ON
Line S03788 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04878  M02S03788.dsp36   ---|          LDN    0           ZERO FILL REMOTE USER/FAMILY
04879  M01S00003.dsp36   +++|          CRM    RUSS,ON
04880  M01S00004.dsp36   +++| SFD11.1  LDN    0           ZERO FILL REMOTE USER/FAMILY
04881  M01S03789.dsp     +++|          STM    RUSS+4
04882  M01S03790.dsp     +++|          STM    RFSS+4
04883  M01S03791.dsp     +++|          LDM    RUSS+3
04884  M01S03792.dsp     +++|          SCN    77
04885  M01S03793.dsp     +++|          STM    RUSS+3
04886  M01S03794.dsp     +++|          LDM    RFSS+3
04887  M01S03795.dsp     +++|          SCN    77
04888  M01S03796.dsp     +++|          STM    RFSS+3
04889  M01S00020.dsp30   +++|          LDK    ZERL        CLEAR DESTINATION FAMILY
04890  M01S00021.dsp30   +++|          CRM    FDSS,ON
04891  M01S00022.dsp30   +++|          SBN    1           CLEAR DESTINATION USER NAME
04892  M01S00023.dsp30   +++|          CRM    DASS,ON
04893  M01S03797.dsp     +++|          LJM    SFD19       CHECK FOR FORCED SERVICE CLASS
04894  M01S03798.dsp     +++|
04895  M01S03799.dsp     +++|*         READ DEFAULT FAMILY AND USER NAME FROM CPA.
04896  M01S03800.dsp     +++|
Line S03801 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp23
Seq #  *Modification Id* Act 
----------------------------+
04897  M02S03801.dsp23   ---| SFD12    RJM    RFN         READ DESTINATION FAMILY NAME
Line S03802 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp23
Seq #  *Modification Id* Act 
----------------------------+
04898  M02S03802.dsp23   ---|          CRM    FDSS,ON
Line S03803 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp23
Seq #  *Modification Id* Act 
----------------------------+
04899  M02S03803.dsp23   ---|          RJM    SSJ         CHECK IF SSJ= JOB
04900  M01S00010.dsp23   +++| SFD12    RJM    SSJ         CHECK IF SSJ= JOB
04901  M01S03804.dsp     +++|          ZJN    SFD13       IF NO SSJ= BLOCK
04902  M01S03805.dsp     +++|          ADK    UIDS
04903  M01S03806.dsp     +++|          UJN    SFD14       CONTINUE PROCESSING
04904  M01S03807.dsp     +++|
04905  M01S03808.dsp     +++| SFD13    LDD    CP          READ UI FROM CONTROL POINT AREA
04906  M01S03809.dsp     +++|          ADK    UIDW
04907  M01S03810.dsp     +++| SFD14    CRD    CM
Line S00011 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp30
Seq #  *Modification Id* Act 
----------------------------+
04908  M02S00011.dsp30   ---| SFDC     UJN    SFD11.1     SET RUSS/RFSS
Line S00024 Modification History
M01 (Added by) dsp30
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04909  M02S00024.dsp36   ---| SFDC     LJM    SFD11.1     SET RUSS/RFSS
Line S00012 Modification History
M01 (Added by) dsp23
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04910  M02S00012.dsp36   ---|*         PSN                SET DASS/FDSS
Line S03811 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp36
Seq #  *Modification Id* Act 
----------------------------+
04911  M02S03811.dsp36   ---|          CRM    DASS,ON     READ DESTINATION USER NAME
04912  M01S00005.dsp36   +++| SFDC     UJN    SFD14.1     SET DASS/FDSS
04913  M01S00006.dsp36   +++|*         PSN                (SET RUSS/RFSS)
04914  M01S00007.dsp36   +++|          CRM    RUSS,ON     READ REMOTE USER NAME
04915  M01S00008.dsp36   +++|          RJM    RFN         DETERMINE FAMILY NAME
04916  M01S00009.dsp36   +++|          CRM    RFSS,ON
04917  M01S00010.dsp36   +++|          LJM    SFD11.1     ZERO FILL REMOTE USER/FAMILY
04918  M01S00011.dsp36   +++|
04919  M01S00012.dsp36   +++| SFD14.1  CRM    DASS,ON     READ DESTINATION USER NAME
04920  M01S03812.dsp     +++|          LDD    CM+3        PRESET UI FOR ROUTING FIELD
04921  M01S03813.dsp     +++|          LPN    37
04922  M01S03814.dsp     +++|          STD    T1
04923  M01S03815.dsp     +++|          LDD    CM+4
04924  M01S03816.dsp     +++|          STD    T2
04925  M01S00013.dsp23   +++|          RJM    RFN         READ DESTINATION FAMILY NAME
04926  M01S00014.dsp23   +++|          CRM    FDSS,ON
04927  M01S03817.dsp     +++|          LJM    SFD18       DETERMINE FAMILY ORDINAL
04928  M01S03818.dsp     +++|
04929  M01S03819.dsp     +++|*         SET DESTINATION FAMILY AND USER NAME FROM TID BLOCK.
04930  M01S03820.dsp     +++|
04931  M01S03821.dsp     +++| SFD15    SHN    14
04932  M01S03822.dsp     +++|          ADD    RA
04933  M01S03823.dsp     +++|          SHN    6
04934  M01S03824.dsp     +++|          CRD    CN          READ FAMILY NAME
04935  M01S03825.dsp     +++|          CRM    FDSS,ON
04936  M01S03826.dsp     +++|          CRD    UN          READ USER NAME
04937  M01S03827.dsp     +++|          CRM    DASS,ON
04938  M01S03828.dsp     +++|          LDD    CN
Line S03829 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04939  M02S03829.ns2734  ---|          ZJN    SFD15.1     IF FAMILY NAME NOT PRESENT
Line S03830 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04940  M02S03830.ns2734  ---|          LDC    FDSS        SET FAMILY FIELD
Line S03831 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04941  M02S03831.ns2734  ---|          RJM    VFM         VALIDATE SPECIFIED FAMILY
Line S03832 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04942  M02S03832.ns2734  ---|          ZJN    SFD16       IF ACCESS ALLOWED
Line S03833 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04943  M02S03833.ns2734  ---|          ERROR  /ERR/EC46   * DSP - ALTERNATE FAMILY NOT ALLOWED.*
Line S03834 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04944  M02S03834.ns2734  ---|
Line S03835 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2734
Seq #  *Modification Id* Act 
----------------------------+
04945  M02S03835.ns2734  ---| SFD15.1  RJM    RFN
04946  M01S00088.ns2734  +++|          NJN    SFD16       IF FAMILY NAME PRESENT
04947  M01S00089.ns2734  +++|          RJM    RFN         READ FAMILY NAME
04948  M01S03836.dsp     +++|          CRD    CN
04949  M01S03837.dsp     +++|          CRM    FDSS,ON
04950  M01S03838.dsp     +++| SFD16    LDD    ST
04951  M01S03839.dsp     +++|          LPN    SSFL
04952  M01S03840.dsp     +++|          NJN    SFD17       IF NOT SUBSYSTEM CALL
04953  M01S03841.dsp     +++|          LDD    UN+3        CHECK IF UI IS SPECIFIED
04954  M01S03842.dsp     +++|          LPN    37
04955  M01S03843.dsp     +++|          STD    T1
04956  M01S03844.dsp     +++|          SHN    14
04957  M01S03845.dsp     +++|          LMD    UN+4
04958  M01S03846.dsp     +++|          STD    T2
04959  M01S03847.dsp     +++|          NJN    SFD18       IF USER INDEX SPECIFIED
04960  M01S03848.dsp     +++|
04961  M01S03849.dsp     +++|*         VALIDATE USER NAME.
04962  M01S03850.dsp     +++|
04963  M01S03851.dsp     +++| SFD17    LDN    0           SET VALIDATE USER NAME FUNCTION
04964  M01S03852.dsp     +++|          STD    UN+4
04965  M01S03853.dsp     +++|          EXECUTE  0AV,OVL1
04966  M01S00111.242l642 +++|          MJP    EER3        IF MASS STORAGE DEVICE INACCESSIBLE
04967  M01S03854.dsp     +++|          LDD    T1
04968  M01S03855.dsp     +++|          SHN    14
04969  M01S03856.dsp     +++|          LMD    T2
04970  M01S03857.dsp     +++|          NJN    SFD18       IF UI PRESENT
Line S03858 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04971  M02S03858.v23l617 ---|          LJM    SFD5        * DSP - INVALID TID.*
04972  M01S00117.v23l617 +++|          LJM    SFD5        * DSP - INCORRECT TID.*
04973  M01S03859.dsp     +++|
04974  M01S03860.dsp     +++|*         STORE ROUTING INFORMATION IN QFT.
04975  M01S03861.dsp     +++|
04976  M01S03862.dsp     +++| SFD18    LDD    T1          PRESERVE UI IN QFT
04977  M01S03863.dsp     +++|          STM    IOSS+SCLQ*5+1
04978  M01S03864.dsp     +++|          LDM    DASS+3
04979  M01S03865.dsp     +++|          SCN    77
04980  M01S03866.dsp     +++|          LMD    T1
04981  M01S03867.dsp     +++|          STM    DASS+3
04982  M01S03868.dsp     +++|          LDD    T2
04983  M01S03869.dsp     +++|          STM    IOSS+SCLQ*5+2
04984  M01S03870.dsp     +++|          STM    DASS+4
04985  M01S03871.dsp     +++|          RJM    DFO         DETERMINE FAMILY ORDINAL
04986  M01S00025.dsp30   +++|          RJM    CRF         CLEAR REMOTE FAMILY/USER NAME
04987  M01S03872.dsp     +++|
04988  M01S03873.dsp     +++|*         VALIDATE SERVICE CLASS.
04989  M01S03874.dsp     +++|
04990  M01S03875.dsp     +++| SFD19    LDD    QT
04991  M01S03876.dsp     +++|          LMK    INQT
04992  M01S03877.dsp     +++|          ZJP    SFDX        IF INPUT FILE
04993  M01S03878.dsp     +++|          LDM    EBIT+1
04994  M01S03879.dsp     +++|          SHN    21-6
04995  M01S03880.dsp     +++|          ERRNZ  EFSC-100    SHIFT COUNT INCORRECT
04996  M01S03881.dsp     +++|          PJN    SFD21       IF ORIGIN DEFAULT NOT SELECTED
04997  M01S03882.dsp     +++| SFD20    LDM    SCDT,OT
04998  M01S03883.dsp     +++|          UJP    SFD30       SET ORIGIN DEFAULT SERVICE CLASS
04999  M01S03884.dsp     +++|
05000  M01S03885.dsp     +++|*         IF CREATION USER NAME IS SPECIFIED, GET SERVICE
05001  M01S03886.dsp     +++|*         CLASS VALIDATION MASK FOR THAT USER.
05002  M01S03887.dsp     +++|
05003  M01S03888.dsp     +++| SFD21    LDM    EBIT+1
05004  M01S03889.dsp     +++|          LPN    EFCU
05005  M01S03890.dsp     +++|          ZJN    SFD22       IF CREATION USER NAME NOT SPECIFIED
05006  M01S03891.dsp     +++|          RJM    GFA         GET PARAMETER BLOCK ADDRESS
05007  M01S03892.dsp     +++|          ADN    13
05008  M01S03893.dsp     +++|          CRD    CN          GET CREATION FAMILY NAME
05009  M01S03894.dsp     +++|          SBN    1
05010  M01S03895.dsp     +++|          UJN    SFD25       GET CREATION USER NAME
05011  M01S03896.dsp     +++|
05012  M01S03897.dsp     +++| SFD22    LDM    FSSC
05013  M01S03898.dsp     +++|          ZJN    SFD23       IF NO SERVICE CLASS SELECTED
05014  M01S03899.dsp     +++|          SHN    6
05015  M01S03900.dsp     +++|          MJN    SFD24       IF USER DEFAULT REQUIRED
05016  M01S03901.dsp     +++|          NFA    SCVN
05017  M01S03902.dsp     +++|          UJP    SFD29       GET VALIDATION MASK
05018  M01S03903.dsp     +++|
05019  M01S03904.dsp     +++|*         PROCESS USER DEFAULT SERVICE CLASS SPECIFICATION.
05020  M01S03905.dsp     +++|
05021  M01S03906.dsp     +++| SFD23    LDM    FSOT
05022  M01S03907.dsp     +++|          SHN    21-13
05023  M01S03908.dsp     +++|          MJP    SFDX        IF NO FORCED ORIGIN TYPE
05024  M01S03909.dsp     +++|          SHN    13-21
05025  M01S03910.dsp     +++|          LMK    SYOT
05026  M01S03911.dsp     +++|          ZJN    SFD20       IF SYSTEM ORIGIN DEFAULT REQUIRED
05027  M01S03912.dsp     +++|          LCN    0           FORCE USER DEFAULT
05028  M01S03913.dsp     +++|          STM    FSSC
05029  M01S03914.dsp     +++| SFD24    LDN    ZERL        SET NO FAMILY NAME
05030  M01S03915.dsp     +++|          CRD    CN
Line S03916 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp28
Seq #  *Modification Id* Act 
----------------------------+
05031  M02S03916.dsp28   ---|          LDD    CP          GET USER NAME
05032  M01S00001.dsp28   +++|          RJM    SSJ         CHECK FOR SSJ= BLOCK
05033  M01S00002.dsp28   +++|          ZJN    SFD24.1     IF NO SSJ= BLOCK PRESENT
05034  M01S00003.dsp28   +++|          ADK    UIDS
05035  M01S00004.dsp28   +++|          UJN    SFD25       GET USER NAME
05036  M01S00005.dsp28   +++|
05037  M01S00006.dsp28   +++| SFD24.1  LDD    CP          GET USER NAME
05038  M01S03917.dsp     +++|          ADK    UIDW
05039  M01S03918.dsp     +++| SFD25    CRD    UN
05040  M01S03919.dsp     +++|          LDD    UN
05041  M01S03920.dsp     +++|          ZJP    SFD20       IF NO USER NAME FOR *DIS* JOB
05042  M01S03921.dsp     +++|          LDD    UN+3
05043  M01S03922.dsp     +++|          SCN    77
05044  M01S03923.dsp     +++|          STD    UN+3
05045  M01S03924.dsp     +++|          LDN    0           SET VALIDATE USER NAME FUNCTION
05046  M01S03925.dsp     +++|          STD    UN+4
05047  M01S03926.dsp     +++|          EXECUTE  0AV,OVL1
05048  M01S00112.242l642 +++|          MJP    EER3        IF MASS STORAGE DEVICE INACCESSIBLE
05049  M01S03927.dsp     +++|          LDD    T1
05050  M01S03928.dsp     +++|          ADD    T2
Line S03929 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05051  M02S03929.251l664 ---|          NJN    SFD26       IF USER NAME VALID
Line S03930 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
M03 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05052  M03S03930.251l664 ---|          ERROR  /ERR/EC44   * DSP - INVALID CREATION USER/FAMILY.*
Line S00118 Modification History
M01 (Added by) v23l617
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05053  M02S00118.251l664 ---|          ERROR  /ERR/EC44   * DSP - INCORRECT CREATION USER/FAMILY.*
Line S03931 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05054  M02S03931.251l664 ---|
Line S03932 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05055  M02S03932.251l664 ---| SFD26    LDM    FSSC
Line S03933 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05056  M02S03933.251l664 ---|          SHN    6
05057  M01S00018.251l664 +++|          ZJP    SFD20       IF CREATION USER NOT VALID
05058  M01S00019.251l664 +++|          LDM    FSSC
05059  M01S00020.251l664 +++|          SHN    21-13
05060  M01S03934.dsp     +++|          PJN    SFD28       IF USER DEFAULT SERVICE CLASS NOT NEEDED
05061  M01S03935.dsp     +++|          RJM    GUD         GET USER DEFAULT SERVICE CLASS
05062  M01S03936.dsp     +++|          NJN    SFD28       IF FOUND
Line S03937 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05063  M02S03937.v23l617 ---| SFD27    ERROR  /ERR/EC45   * DSP - INVALID SERVICE CLASS.*
05064  M01S00119.v23l617 +++| SFD27    ERROR  /ERR/EC45   * DSP - INCORRECT SERVICE CLASS.*
05065  M01S03938.dsp     +++|
05066  M01S03939.dsp     +++| SFD28    LDD    T3          GET VALIDATION MASK
05067  M01S03940.dsp     +++|          ADK    ASCV*5
05068  M01S03941.dsp     +++|          STM    SFDB
05069  M01S03942.dsp     +++|          LDD    MA
05070  M01S03943.dsp     +++|          CWM    **,ON
05071  M01S03944.dsp     +++| SFDB     EQU    *-1         (ADDRESS OF VALIDATION MASK)
05072  M01S03945.dsp     +++|          SBN    1
05073  M01S03946.dsp     +++| SFD29    CRD    CN
05074  M01S03947.dsp     +++|          RJM    CVS         CHECK FOR VALID SERVICE CLASS
Line S03948 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05075  M02S03948.v23l617 ---|          NJN    SFD27       IF INVALID
05076  M01S00120.v23l617 +++|          NJN    SFD27       IF INCORRECT
05077  M01S03949.dsp     +++|          LDM    IOSS+SCLQ*5 SET SERVICE CLASS
05078  M01S03950.dsp     +++|          SHN    21-5
05079  M01S03951.dsp     +++|          SCN    77
05080  M01S03952.dsp     +++|          LMM    FSSC
05081  M01S03953.dsp     +++|          SHN    6
05082  M01S03954.dsp     +++| SFD30    STM    IOSS+SCLQ*5
05083  M01S03955.dsp     +++|          LJM    SFDX        RETURN
05084  M01S00021.251l664 +++|          SPACE  4,10
05085  M01S00022.251l664 +++|**        COMMON DECKS.
05086  M01S00023.251l664 +++|
05087  M01S00024.251l664 +++|
05088  M01S00025.251l664 +++|*CALL     COMPAST
05089  M01S00026.251l664 +++|*CALL     COMPCUA
05090  M01S00027.251l664 +++|          QUAL   MIO
05091  M01S00028.251l664 +++| RDS      EQU    RMS         USE *RMS* IN PLACE OF *RDS*
05092  M01S00029.251l664 +++|*CALL     COMPRNS
05093  M01S00030.251l664 +++|          QUAL   *
05094  M01S00031.251l664 +++| RNS      EQU    /MIO/RNS
05095  M01S00032.251l664 +++|          SPACE  4,10
05096  M01S00033.251l664 +++|**        DEFINE UNQUALIFIED ENTRY POINTS.
05097  M01S00034.251l664 +++|
05098  M01S00035.251l664 +++|          QUAL
05099  M01S00036.251l664 +++| PSI      EQU    /3DA/PSI
05100  M01S00037.251l664 +++| SFD      EQU    /3DA/SFD
05101  M01S00038.251l664 +++| VIF      EQU    /3DA/VIF
05102  M01S00039.251l664 +++|          QUAL   *
05103  M01S00040.251l664 +++|          SPACE  4,10
05104  M01S00041.251l664 +++|          OVERFLOW  OVL4,BFMS
05105  M01S00042.251l664 +++|          SPACE  4,10
05106  M01S00043.251l664 +++|          USE    OVERFLOW
05107  M01S00044.251l664 +++|          ERRNG  OVL1-5-*    OVERFLOW INTO *0AV*
05108  M01S00045.251l664 +++|          OVERLAY  (FILE ATTRIBUTE ROUTINES.),OVL4
05109  M01S03956.dsp     +++| SOD      SPACE  4,20
05110  M01S03957.dsp     +++|**        SOD - SET OUTPUT FILE DATA.
05111  M01S03958.dsp     +++|*
05112  M01S03959.dsp     +++|*         ENTRY  (FB - FB+1) = FLAG BITS.
05113  M01S03960.dsp     +++|*                (FS - FS+4) = FST ENTRY.
05114  M01S03961.dsp     +++|*                (QT) = QUEUE TYPE.
05115  M01S03962.dsp     +++|*
05116  M01S03963.dsp     +++|*         EXIT   (RCSS) = REPEAT COUNT.
05117  M01S03964.dsp     +++|*                QFT FIELDS UPDATED.
05118  M01S03965.dsp     +++|*
05119  M01S03966.dsp     +++|*         ERROR  TO *ERR*, IF ONE OF THE FOLLOWING OCCURS,
Line S03967 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05120  M02S03967.v23l617 ---|*                INVALID EXTERNAL CHARACTERISTICS.
Line S03968 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05121  M02S03968.v23l617 ---|*                INVALID INTERNAL CHARACTERISTICS.
05122  M01S00121.v23l617 +++|*                INCORRECT EXTERNAL CHARACTERISTICS.
05123  M01S00122.v23l617 +++|*                INCORRECT INTERNAL CHARACTERISTICS.
05124  M01S03969.dsp     +++|*                FORMS CODE NOT ALPHANUMERIC.
Line S03970 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05125  M02S03970.v23l617 ---|*                INVALID SPACING CODE.
05126  M01S00123.v23l617 +++|*                INCORRECT SPACING CODE.
05127  M01S03971.dsp     +++|*
05128  M01S03972.dsp     +++|*         USES   CM - CM+4, T0 - T5.
05129  M01S03973.dsp     +++|*
05130  M01S03974.dsp     +++|*         CALLS  GEA, GFA, VFC.
05131  M01S03975.dsp     +++|*
05132  M01S03976.dsp     +++|*         MACROS ERROR.
05133  M01S03977.dsp     +++|
05134  M01S03978.dsp     +++|
05135  M01S03979.dsp     +++| SOD      SUBR               ENTRY/EXIT
05136  M01S03980.dsp     +++|
05137  M01S03981.dsp     +++|*         SET REPEAT COUNT.
05138  M01S03982.dsp     +++|
05139  M01S03983.dsp     +++|          LDD    FB
05140  M01S03984.dsp     +++|          SHN    21-2
05141  M01S03985.dsp     +++|          PJN    SOD1        IF REPEAT COUNT NOT SPECIFIED
05142  M01S03986.dsp     +++|          RJM    GFA         READ REPEAT COUNT
05143  M01S03987.dsp     +++|          ADN    4
05144  M01S03988.dsp     +++|          CRD    CM
05145  M01S03989.dsp     +++|          LDD    CM+3        SET REPEAT COUNT
Line S03990 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2591
Seq #  *Modification Id* Act 
----------------------------+
05146  M02S03990.ns2591  ---|          LPN    37
05147  M01S00002.ns2591  +++|          LPN    77
05148  M01S00003.ns2591  +++|          STM    IOSS+INSQ*5+4
05149  M01S03991.dsp     +++|          STM    RCSS
05150  M01S03992.dsp     +++|
05151  M01S03993.dsp     +++|*         SET RANDOM ADDRESS.
05152  M01S03994.dsp     +++|
05153  M01S03995.dsp     +++| SOD1     RJM    GFA
05154  M01S03996.dsp     +++|          ADN    1           READ INTERNAL AND EXTERNAL CHARACTERISTICS
05155  M01S03997.dsp     +++|          CRD    CM
05156  M01S03998.dsp     +++|          ADN    6           READ RANDOM ADDRESS
05157  M01S03999.dsp     +++|          CRD    T1
05158  M01S04000.dsp     +++|          LDD    FB
05159  M01S04001.dsp     +++|          SHN    21-11
05160  M01S04002.dsp     +++|          PJN    SOD2        IF RANDOM ADDRESS NOT SET
05161  M01S04003.dsp     +++|          LDD    T1+1        SET RANDOM ADDRESS IN SYSTEM SECTOR
05162  M01S04004.dsp     +++|          STM    RASS
05163  M01S04005.dsp     +++|          LDD    T1+2
05164  M01S04006.dsp     +++|          STM    RASS+1
05165  M01S04007.dsp     +++|
05166  M01S04008.dsp     +++|*         SET EXTERNAL CHARACTERISTICS.
05167  M01S04009.dsp     +++|
05168  M01S04010.dsp     +++| SOD2     LDD    CM+3        SET EXTERNAL CHARACTERISTICS
05169  M01S04011.dsp     +++|          SHN    -11
05170  M01S04012.dsp     +++|          STD    T1
05171  M01S04013.dsp     +++|          LDM    TDIC,T1     SET DEFAULT INTERNAL CHARACTERISTICS
05172  M01S04014.dsp     +++|          STD    T2
05173  M01S04015.dsp     +++|          LDD    FB+1
05174  M01S04016.dsp     +++|          SHN    21-7
05175  M01S04017.dsp     +++|          MJN    SOD3        IF EXTERNAL CHARACTERISTICS SPECIFIED
Line S04018 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05176  M02S04018.ns2597  ---|          LJM    SOD8        SET INTERNAL CHARACTERISTICS
05177  M01S00001.ns2597  +++|          LJM    SOD7        SET INTERNAL CHARACTERISTICS
05178  M01S04019.dsp     +++|
05179  M01S04020.dsp     +++| SOD3     LDD    T1          SAVE EXTERNAL CHARACTERISTICS
05180  M01S04021.dsp     +++|          SHN    3
05181  M01S04022.dsp     +++|          STD    T0
05182  M01S04023.dsp     +++|
05183  M01S04024.dsp     +++|*         SET DEFAULT INTERNAL CHARACTERISTICS BASED ON
05184  M01S04025.dsp     +++|*         EXTERNAL CHARACTERISTICS.
05185  M01S04026.dsp     +++|
05186  M01S04027.dsp     +++|          LDD    QT          DETERMINE QUEUE TYPE
05187  M01S04028.dsp     +++|          LMN    PHQT
05188  M01S04029.dsp     +++|          ZJN    SOD5        IF PUNCH FILE
05189  M01S04030.dsp     +++|          LMN    PLQT&PHQT
05190  M01S04031.dsp     +++|          ZJN    SOD4        IF PLOT FILE
05191  M01S04032.dsp     +++|          LDD    T2          SET IC FOR PRINT FILES
05192  M01S04033.dsp     +++|          SHN    -10
05193  M01S04034.dsp     +++|          UJN    SOD6        SET IC
05194  M01S04035.dsp     +++|
05195  M01S04036.dsp     +++| SOD4     LDD    T2          SET IC FOR PLOT FILES
05196  M01S04037.dsp     +++|          UJN    SOD6        SET IC
05197  M01S04038.dsp     +++|
05198  M01S04039.dsp     +++| SOD5     LDD    T2          SET IC FOR PUNCH FILES
05199  M01S04040.dsp     +++|          SHN    -4
05200  M01S04041.dsp     +++| SOD6     LPN    17
05201  M01S04042.dsp     +++|          STD    T2
05202  M01S04043.dsp     +++|          RAD    T0
05203  M01S04044.dsp     +++|
05204  M01S04045.dsp     +++|*         SET INTERNAL AND EXTERNAL CHARACTERISTICS.
05205  M01S04046.dsp     +++|
05206  M01S04047.dsp     +++|          LDM    IOSS+SCLQ*5+3
05207  M01S04048.dsp     +++|          SCN    77
05208  M01S04049.dsp     +++|          LMD    T0
05209  M01S04050.dsp     +++|          STM    IOSS+SCLQ*5+3
05210  M01S04051.dsp     +++|          LDD    T2          VALIDATE EXTERNAL CHARACTERISTICS
05211  M01S04052.dsp     +++|          LMN    17
05212  M01S04053.dsp     +++|          NJN    SOD7        IF VALID EXTERNAL CHARACTERISTICS
Line S04054 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05213  M02S04054.v23l617 ---|          ERROR  /ERR/EC37   * DSP - INVALID EXTERNAL CHARACTERISTICS.*
05214  M01S00124.v23l617 +++|          ERROR  /ERR/EC37   *DSP - INCORRECT EXTERNAL CHARACTERISTICS.*
Line S04055 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05215  M02S04055.ns2597  ---|
Line S04056 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05216  M02S04056.ns2597  ---| SOD7     LDD    T1
Line S04057 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05217  M02S04057.ns2597  ---|          LMN    A9EX
Line S04058 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05218  M02S04058.ns2597  ---|          NJN    SOD8        IF EC .NE. A9
Line S04059 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05219  M02S04059.ns2597  ---|          LDD    QT          DETERMINE IF PRINT FILE
Line S04060 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05220  M02S04060.ns2597  ---|          LMN    PRQT
Line S04061 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05221  M02S04061.ns2597  ---|          NJN    SOD8        IF NOT PRINT FILE
Line S04062 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05222  M02S04062.ns2597  ---|          LDD    FB+1
Line S04063 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05223  M02S04063.ns2597  ---|          SHN    21-0
Line S04064 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05224  M02S04064.ns2597  ---|          PJN    SOD8        IF NOT DEFERRED ROUTE
Line S04065 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05225  M02S04065.ns2597  ---|          LDN    SOST        SET *SOST* STATUS
Line S04066 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05226  M02S04066.ns2597  ---|          STM    LFST
05227  M01S04067.dsp     +++|
05228  M01S04068.dsp     +++|*         SET INTERNAL CHARACTERISTICS.
05229  M01S04069.dsp     +++|
Line S04070 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05230  M02S04070.ns2597  ---| SOD8     LDD    FB+1
05231  M01S00002.ns2597  +++| SOD7     LDD    FB+1
05232  M01S04071.dsp     +++|          SHN    21-10
Line S04072 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05233  M02S04072.ns2597  ---|          PJN    SOD9        IF INTERNAL CHARACTERISTICS NOT SPECIFIED
05234  M01S00003.ns2597  +++|          PJN    SOD8        IF INTERNAL CHARACTERISTICS NOT SPECIFIED
05235  M01S04073.dsp     +++|          LDD    CM+3        SET INTERNAL CHARACTERISTICS
05236  M01S04074.dsp     +++|          SHN    -6
05237  M01S04075.dsp     +++|          LPN    3
05238  M01S04076.dsp     +++|          STD    T0
05239  M01S04077.dsp     +++|          LDM    IOSS+SCLQ*5+3
05240  M01S04078.dsp     +++|          SCN    7
05241  M01S04079.dsp     +++|          LMD    T0
05242  M01S04080.dsp     +++|          STM    IOSS+SCLQ*5+3
05243  M01S04081.dsp     +++|          LPN    7
Line S04082 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05244  M02S04082.ns2597  ---|          SBN    BNIC+1
Line S04083 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
05245  M02S04083.ns2597  ---|          MJN    SOD9        IF VALID INTERNAL CHARACTERISTICS
05246  M01S00004.ns2597  +++|          SBN    MXIC
05247  M01S00005.ns2597  +++|          MJN    SOD8        IF VALID INTERNAL CHARACTERISTICS
Line S04084 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05248  M02S04084.v23l617 ---|          ERROR  /ERR/EC23   * DSP - INVALID INTERNAL CHARACTERISTICS.*
05249  M01S00125.v23l617 +++|          ERROR  /ERR/EC23   *DSP - INCORRECT INTERNAL CHARACTERISTICS.*
05250  M01S00006.ns2597  +++|
05251  M01S00007.ns2597  +++|*         CHECK IF FILE NEEDS *SOST* STATUS.
05252  M01S00008.ns2597  +++|
05253  M01S00009.ns2597  +++| SOD8     LDD    T1
05254  M01S00010.ns2597  +++|          LMN    A9EX
05255  M01S00011.ns2597  +++|          NJN    SOD9        IF EC .NE. A9
05256  M01S00012.ns2597  +++|          LDM    IOSS+SCLQ*5+3
05257  M01S00013.ns2597  +++|          LPN    7
05258  M01S00014.ns2597  +++|          LMK    DCIC
05259  M01S00015.ns2597  +++|          ZJN    SOD9        IF IC .EQ. DIS
05260  M01S00016.ns2597  +++|          LMK    A6IC&DCIC
05261  M01S00017.ns2597  +++|          ZJN    SOD9        IF IC .EQ. ASCII6
05262  M01S00018.ns2597  +++|          LDD    QT          DETERMINE IF PRINT FILE
05263  M01S00019.ns2597  +++|          LMN    PRQT
05264  M01S00020.ns2597  +++|          NJN    SOD9        IF NOT PRINT FILE
05265  M01S00021.ns2597  +++|          LDD    FB+1
05266  M01S00022.ns2597  +++|          SHN    21-0
05267  M01S00023.ns2597  +++|          PJN    SOD9        IF NOT DEFERRED ROUTE
05268  M01S00024.ns2597  +++|          LDN    SOST        SET *SOST* STATUS
05269  M01S00025.ns2597  +++|          STM    LFST
05270  M01S04085.dsp     +++|
05271  M01S04086.dsp     +++|*         SET FORMS CODE.
05272  M01S04087.dsp     +++|
05273  M01S04088.dsp     +++| SOD9     LDD    FB+1
05274  M01S04089.dsp     +++|          SHN    21-12
05275  M01S04090.dsp     +++|          PJN    SOD10       IF FORMS CODE NOT SELECTED
05276  M01S04091.dsp     +++|          LDD    CM+1
05277  M01S04092.dsp     +++|          STM    IOSS+SCLQ*5+4
05278  M01S04093.dsp     +++|          RJM    VFC         VALIDATE FORMS CODE
05279  M01S04094.dsp     +++|          PJN    SOD10       IF VALID FORMS CODE
05280  M01S04095.dsp     +++|          ERROR  /ERR/EC22   * DSP - FORMS CODE NOT ALPHANUMERIC.*
05281  M01S00046.251l664 +++|
05282  M01S00047.251l664 +++|*         SET PRINT IMAGE CODE FOR PRINT FILES.
05283  M01S00048.251l664 +++|
05284  M01S00049.251l664 +++| SOD10    RJM    GFA         GET PARAMETER BLOCK ADDRESS
05285  M01S00050.251l664 +++|          ADN    4
05286  M01S00051.251l664 +++|          CRD    CM
05287  M01S00052.251l664 +++|          LDD    CM
05288  M01S00053.251l664 +++|          SHN    21-11
05289  M01S00054.251l664 +++|          PJN    SOD10.1     IF NO PRINT IMAGE SPECIFIED
05290  M01S00055.251l664 +++|          LDM    SCSS        CLEAR PRINT IMAGE PRESERVING SPACING CODE
05291  M01S00056.251l664 +++|          LPN    77
05292  M01S00057.251l664 +++|          STM    SCSS
05293  M01S00058.251l664 +++|          LDD    CM
05294  M01S00059.251l664 +++|          LPC    1700        PRINT IMAGE FLAG AND CODE
05295  M01S00060.251l664 +++|          RAM    SCSS
05296  M01S04096.dsp     +++|
05297  M01S04097.dsp     +++|*         SET SPACING CODE FOR PRINT FILES.
05298  M01S04098.dsp     +++|
Line S04099 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05299  M02S04099.251l664 ---| SOD10    LDD    FB
05300  M01S00061.251l664 +++| SOD10.1  LDD    FB
05301  M01S04100.dsp     +++|          SHN    21-3
05302  M01S04101.dsp     +++|          PJN    SOD11       IF SPACING CODE NOT SPECIFIED
Line S04102 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05303  M02S04102.251l664 ---|          RJM    GFA         READ SPACING CODE
Line S04103 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05304  M02S04103.251l664 ---|          ADN    4
Line S04104 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05305  M02S04104.251l664 ---|          CRD    CM
05306  M01S00062.251l664 +++|          LDM    SCSS        CLEAR SPACING CODE PRESERVING PRINT IMAGE
05307  M01S00063.251l664 +++|          SCN    77
05308  M01S00064.251l664 +++|          STM    SCSS
05309  M01S04105.dsp     +++|          LDD    CM          SET SPACING CODE
Line S04106 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05310  M02S04106.251l664 ---|          STM    SCSS
05311  M01S00065.251l664 +++|          LPN    77
05312  M01S00066.251l664 +++|          RAM    SCSS
05313  M01S00067.251l664 +++|          LDD    CM
05314  M01S04107.dsp     +++|          SHN    -6
05315  M01S04108.dsp     +++|          ZJN    SOD11       IF VALID SPACING CODE
05316  M01S00068.251l664 +++|          LPN    10          CHECK PRINT IMAGE FLAG
05317  M01S00069.251l664 +++|          NJN    SOD11       IF PRINT IMAGE SPECIFIED
Line S04109 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05318  M02S04109.v23l617 ---|          ERROR  /ERR/EC41   * DSP - INVALID SPACING CODE.*
05319  M01S00126.v23l617 +++|          ERROR  /ERR/EC41   * DSP - INCORRECT SPACING CODE.*
05320  M01S04110.dsp     +++|
05321  M01S04111.dsp     +++|*         SET ACCESS LEVEL INTO QFT ENTRY.
05322  M01S04112.dsp     +++|
05323  M01S04113.dsp     +++|
05324  M01S04114.dsp     +++| SOD11    LDM    LFAL        GET LOCAL FILE ACCESS LEVEL
05325  M01S04115.dsp     +++|          SHN    3
05326  M01S04116.dsp     +++|          LMM    IOSS+INSQ*5+3
05327  M01S04117.dsp     +++|          LPN    70
05328  M01S04118.dsp     +++|          LMM    IOSS+INSQ*5+3
05329  M01S04119.dsp     +++|          STM    IOSS+INSQ*5+3
05330  M01S04120.dsp     +++|
05331  M01S04121.dsp     +++|*         SET UP ACCOUNTING LIMITS FOR PRINT, PUNCH AND PLOT FILES.
05332  M01S04122.dsp     +++|
05333  M01S04123.dsp     +++|          LDD    CP          READ FILE SIZE LIMITS
05334  M01S04124.dsp     +++|          ADK    ALMW
05335  M01S04125.dsp     +++|          CRD    CM
05336  M01S04126.dsp     +++|          LDD    QT          DETERMINE QUEUE TYPE
05337  M01S04127.dsp     +++|          LMN    PHQT
05338  M01S04128.dsp     +++|          ZJN    SOD13       IF PUNCH FILE
05339  M01S04129.dsp     +++|          LMN    PLQT&PHQT
05340  M01S04130.dsp     +++|          ZJN    SOD12       IF PLOT FILE
05341  M01S04131.dsp     +++|          LDD    CM+4        SET PRINT FILE LIMIT
05342  M01S04132.dsp     +++|          SHN    -6
05343  M01S04133.dsp     +++|          UJN    SOD14       SET LIMIT
05344  M01S04134.dsp     +++|
05345  M01S04135.dsp     +++| SOD12    LDD    CM          SET PLOT FILE LIMIT
05346  M01S04136.dsp     +++|          UJN    SOD14       SET LIMIT
05347  M01S04137.dsp     +++|
05348  M01S04138.dsp     +++| SOD13    LDD    CM+4        SET PUNCH FILE LIMIT
05349  M01S04139.dsp     +++| SOD14    LPN    77
05350  M01S04140.dsp     +++|          STM    LCSS
Line S00127 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05351  M02S00127.ns2580  ---|          NFA    CHGN        SET CHARGE AND PROJECT NUMBER
Line S00128 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05352  M02S00128.ns2580  ---|          CRM    CHSS,TR
Line S04141 Modification History
M01 (Added by) dsp
M02 (Updated by) ns2397
M03 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05353  M03S04141.ns2580  ---|          LJM    SODX        RETURN
Line S00007 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05354  M02S00007.ns2580  ---|*
Line S00008 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05355  M02S00008.ns2580  ---|*         SET CHARGE AND PROJECT NUMBERS.
Line S00009 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05356  M02S00009.ns2580  ---|*
Line S00010 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05357  M02S00010.ns2580  ---|          LDM    EBIT+1      CHECK IF SETTING CHARGE/PROJECT
Line S00011 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05358  M02S00011.ns2580  ---|          LPK    EFCH
Line S00012 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05359  M02S00012.ns2580  ---|          ZJN    SOD15       IF NOT SETTING CHARGE/PROJECT
Line S00013 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05360  M02S00013.ns2580  ---|          RJM    GFA         READ CHARGE/PROJECT NUMBERS
Line S00014 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05361  M02S00014.ns2580  ---|          ADN    17
Line S00015 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05362  M02S00015.ns2580  ---|          CRM    CHSS,TR
Line S00016 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05363  M02S00016.ns2580  ---|          ERRNZ  PJSS-CHSS-5
Line S00017 Modification History
M01 (Added by) ns2397
M02 (Updated by) ns2580
Seq #  *Modification Id* Act 
----------------------------+
05364  M02S00017.ns2580  ---| SOD15    UJP    SODX        RETURN
Line S00012 Modification History
M01 (Added by) ns2580
M02 (Updated by) tldsp1
Seq #  *Modification Id* Act 
----------------------------+
05365  M02S00012.tldsp1  ---|          UJP    SODX        RETURN
05366  M01S00023.tldsp1  +++|
05367  M01S00024.tldsp1  +++|*         SET ADDITIONAL *TIELINE/NP* ROUTING.
05368  M01S00025.tldsp1  +++|
05369  M01S00026.tldsp1  +++| SOD15    LDM    TLFC
05370  M01S00027.tldsp1  +++|          ZJN    SOD16       IF NOT *TLF* CALL
05371  M01S00028.tldsp1  +++|          RJM    GFA         SET PARAMETER BLOCK ADDRESS
05372  M01S00029.tldsp1  +++|          ADN    15
05373  M01S00030.tldsp1  +++|          CRD    CM          SET CREATION JSN
05374  M01S00031.tldsp1  +++|          LDD    CM
05375  M01S00032.tldsp1  +++|          ZJN    SOD16       IF NO JSN SPECIFIED
05376  M01S00033.tldsp1  +++|          LMC    2R
05377  M01S00034.tldsp1  +++|          ZJN    SOD16       IF BLANK JSN SPECIFIED
05378  M01S00035.tldsp1  +++|          LDD    CM
05379  M01S00036.tldsp1  +++|          STM    CJSS
05380  M01S00037.tldsp1  +++|          LDD    CM+1
05381  M01S00038.tldsp1  +++|          STM    CJSS+1
05382  M01S00039.tldsp1  +++| SOD16    UJP    SODX        RETURN
05383  M01S04142.dsp     +++|          SPACE  4,10
05384  M01S04143.dsp     +++|**        TDIC - TABLE OF DEFAULT INTERNAL CHARACTERISTICS.
05385  M01S04144.dsp     +++|*
05386  M01S04145.dsp     +++|*         INDEXED BY EXTERNAL CHARACTERISTICS CODE.
05387  M01S04146.dsp     +++|*
05388  M01S04147.dsp     +++|*T        4/ PRIC, 4/PHIC, 4/ PLIC
Figure

0347811 PLICPHIC PRIC

05389  M01S04148.dsp     +++|*                PHIC = PUNCH INTERNAL CHARACTERISTICS.
05390  M01S04149.dsp     +++|*                PRIC = PRINT INTERNAL CHARACTERISTICS.
05391  M01S04150.dsp     +++|*                PLIC = PLOT INTERNAL CHARACTERISTICS.
Line S04151 Modification History
M01 (Added by) dsp
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05392  M02S04151.v23l617 ---|*                17B = INVALID INTERNAL CHARACTERISTICS.
05393  M01S00129.v23l617 +++|*                17B = INCORRECT INTERNAL CHARACTERISTICS.
05394  M01S04152.dsp     +++|
05395  M01S04153.dsp     +++|
05396  M01S04154.dsp     +++| TDIC     BSS    0
05397  M01S04155.dsp     +++|          LOC    0
05398  M01S04156.dsp     +++|*                                      PRINT     PUNCH     PLOT
05399  M01S04157.dsp     +++|          VFD    4/DCIC,4/DCIC,4/17B   DISPLAY   DISPLAY   INVALID
05400  M01S04158.dsp     +++|          VFD    4/17B,4/BNIC,4/BNIC   INVALID   BINARY    BINARY
05401  M01S04159.dsp     +++|          VFD    4/ASIC,4/BNIC,4/ASIC  ASCII     BINARY    ASCII
05402  M01S04160.dsp     +++|          VFD    4/DCIC,4/17B,4/17B    DISPLAY   INVALID   INVALID
05403  M01S04161.dsp     +++|          VFD    4/DCIC,4/DCIC,4/17B   DISPLAY   DISPLAY   INVALID
05404  M01S04162.dsp     +++|          VFD    4/DCIC,4/DCIC,4/17B   DISPLAY   DISPLAY   INVALID
05405  M01S04163.dsp     +++|          VFD    4/ASIC,4/ASIC,4/17B   ASCII     ASCII     INVALID
05406  M01S04164.dsp     +++|          VFD    4/17B,4/17B,4/17B     INVALID   INVALID   INVALID
05407  M01S04165.dsp     +++|          LOC    *O
05408  M01S04166.dsp     +++|          SPACE  4,10
05409  M01S04167.dsp     +++|**        COMMON DECKS.
05410  M01S00006.dsp16   +++|
05411  M01S00007.dsp16   +++|
Line S04168 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05412  M02S04168.251l664 ---|*CALL     COMPAST
Line S04169 Modification History
M01 (Added by) dsp
M02 (Updated by) dsp12
M03 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05413  M03S04169.251l664 ---|*CALL     COMPCUA
Line S04170 Modification History
M01 (Added by) dsp
M02 (Updated by) 242l642
M03 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05414  M03S04170.251l664 ---| MSR$     EQU    1           EXIT TO $MSR$ FROM $RNS$ ON DISK ERROR
Line S04171 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05415  M02S04171.251l664 ---|*CALL     COMPRNS
05416  M01S04172.dsp     +++|*CALL     COMPVFC
05417  M01S04173.dsp     +++|          SPACE  4,10
05418  M01S04174.dsp     +++|**        DEFINE UNQUALIFIED ENTRY POINTS.
05419  M01S00008.dsp16   +++|
05420  M01S04175.dsp     +++|
05421  M01S04176.dsp     +++|          QUAL
Line S04177 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05422  M02S04177.251l664 ---| PSI      EQU    /3DA/PSI
Line S04178 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05423  M02S04178.251l664 ---| SFD      EQU    /3DA/SFD
Line S04179 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05424  M02S04179.251l664 ---| SOD      EQU    /3DA/SOD
Line S04180 Modification History
M01 (Added by) dsp
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
05425  M02S04180.251l664 ---| VIF      EQU    /3DA/VIF
05426  M01S00070.251l664 +++| SOD      EQU    /3DB/SOD
05427  M01S04181.dsp     +++|          QUAL   *
05428  M01S04182.dsp     +++|          SPACE  4,10
05429  M01S04183.dsp     +++|          OVERFLOW  OVL4,BFMS
05430  M01S04184.dsp     +++|          SPACE  4,10
05431  M01S04185.dsp     +++|          USE    OVERFLOW
05432  M01S04186.dsp     +++|          ERRNG  OVL1-5-*    OVERFLOW INTO *0AV*
05433  M01S04187.dsp     +++|          OVERLAY  (SYSTEM SECTOR/EOI UPDATE ROUTINES.),OVL4
05434  M01S04188.dsp     +++| AEO      SPACE  4,10
05435  M01S04189.dsp     +++|**        AEO - ATTACH EJT ORDINAL.
05436  M01S04190.dsp     +++|*
05437  M01S04191.dsp     +++|*         *AEO* DETERMINES THE EJT ORDINAL OF THE CONTROL
05438  M01S04192.dsp     +++|*         POINT AND THEN INSERTS THE ORDINAL INTO THE QFT.
05439  M01S04193.dsp     +++|*
05440  M01S04194.dsp     +++|*         EXIT   APPROPRIATE FLAGS SET IN QFT SAYING QFT
05441  M01S04195.dsp     +++|*                IS ATTACHED TO AN EJT.
05442  M01S04196.dsp     +++|
05443  M01S04197.dsp     +++|
05444  M01S04198.dsp     +++| AEO      SUBR               ENTRY/EXIT
05445  M01S04199.dsp     +++|          LDM    EJTO        GET EJT ORDINAL
05446  M01S04200.dsp     +++|          STM    IOSS+ENTQ*5+4
05447  M01S04201.dsp     +++|          LDM    IOSS+JSNQ*5+4  FLAG FILE ASSIGNED TO EJT
05448  M01S04202.dsp     +++|          SCN    37
05449  M01S04203.dsp     +++|          LMN    2           FLAG FILE ASSIGNED TO EJT
05450  M01S04204.dsp     +++|          STM    IOSS+JSNQ*5+4
05451  M01S04205.dsp     +++|          UJN    AEOX        RETURN
05452  M01S04206.dsp     +++| BSE      SPACE  4,15
05453  M01S04207.dsp     +++|**        BSE - CHECK FOR BINARY CARD SEQUENCE ERROR.
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/dsp.003.txt ยท Last modified: by 127.0.0.1