Deck DSP

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.dsp     +++|          IDENT  DSP,DSP
00002  M00S00002.dsp     +++|          PERIPH
00003  M00S00003.dsp     +++|          BASE   MIXED
00004  M00S00004.dsp     +++|          SST
00005  M00S00005.dsp     +++| SSJ$     EQU    1           ALLOW *SSJ=* JOBS SYSTEM PRIVILEGES
00006  M00S00006.dsp     +++| QUAL$    EQU    1           FORCE UNQUALIFIED COMMON DECKS
00007  M00S00007.dsp     +++|*COMMENT  DSP - DISPOSE FILE TO I/O QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00008.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1976.

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M00S00009.dsp     +++|          TITLE  DSP - DISPOSE FILE TO I/O QUEUE.
00011  M00S00010.dsp     +++|          SPACE  4
00012  M00S00011.dsp     +++|***       DSP - DISPOSE FILE TO I/O QUEUE.
00013  M00S00012.dsp     +++|*         R. A. JAPS.        76/01/12.
00014  M00S00013.dsp     +++|*         M. J. CARIDDI.     81/08/16.
00015  M00S00014.dsp     +++|*         P. C. SMITH.       82/04/01.
00016  M00S00015.dsp     +++|          SPACE  4
00017  M00S00016.dsp     +++|***       *DSP* PLACES A FILE IN THE INPUT OR OUTPUT QUEUE.
00018  M00S00017.dsp     +++|*         THE SYSTEM SECTOR IS FORMATTED WITH INFORMATION SUPPLIED
00019  M00S00018.dsp     +++|*         BY THE CALLER.
00020  M00S00019.dsp     +++|          SPACE  4
00021  M00S00020.dsp     +++|***       CALL.
00022  M00S00021.dsp     +++|*
00023  M00S00022.dsp     +++|*T        18/ *DSP*, 6/ 20B, 18/ 0, 18/ FET.

Figure

00024  M00S00023.dsp     +++|*
00025  M00S00024.dsp     +++|*                FET = FWA OF PARAMETER BLOCK.
00026  M00S00025.dsp     +++|*
00027  M00S00026.dsp     +++|*
00028  M00S00027.dsp     +++|*         PARAMETER BLOCK FORMAT.
00029  M00S00028.dsp     +++|*
00030  M00S00029.dsp     +++|*T FET0   42/ LFN,6/ ERR,1/F,4/ ,6/ OT,1/C

Figure FET0

00031  M00S00030.dsp     +++|*T,FET1   6/ TF, 6/ 0, 12/ F1, 12/ DIS, 3/ EC, 1/S, 2/ IC, 18/ FLAGS

Figure FET1

00032  M00S00031.dsp     +++|*T,FET2   18/ SLID, 18/ DLID, 24/ TID

Figure FET2

00033  M00S00032.dsp     +++|*T,FET3   42/ UJN, 6/ RESERVE, 12/ PRIORITY

Figure FET3

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00001.ns2156  +++|*T,FET3   60/ ENTRY TIME (*QMOVE* ONLY)

Figure FET3

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00033.251l664 ---|*T,FET4   12/ SC, 12/ SVC, 12/ FA, 7/ RESERVE, 5/ RC, 12/ FNT

Figure FET4

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00001.ns2591  ---|*T,FET4   2/ 0,4/ PI,6/ SC,12/ SVC,12/ FA,7/ RESERVE,5/ RC,12/ FNT

Figure FET4

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00001.ns2591  +++|*T,FET4   2/ 0,4/ PI,6/ SC,12/ SVC,12/ FA,6/ RESERVE,6/ RC,12/ FNT

Figure FET4

00038  M00S00034.dsp     +++|*T,FET5   24/ BC, 36/ COUNT

Figure FET5

Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00035.ns2556  ---|*T,FET6   42/  EQID , 18/ SUBSYSTEM NAME

Figure FET6

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00001.ns2556  +++|*T,FET6   42/ EQID, 18/ JSN

Figure FET6

00041  M00S00036.dsp     +++|*
00042  M00S00037.dsp     +++|*         EXTENDED PARAMETER BLOCK FORMAT.
00043  M00S00038.dsp     +++|*
00044  M00S00039.dsp     +++|*T,FET7   12/ DD,24/ RA,6/0,18/ EFLAGS

Figure FET7

00045  M00S00040.dsp     +++|*T,FET10  42/ OUN, 18/ IRTADDR

Figure FET10

00046  M00S00041.dsp     +++|*T,FET11  42/ OFN, 18/ ERTADDR

Figure FET11

00047  M00S00042.dsp     +++|*T,FET12  42/ CUN, 6/CP, 12/SSID

Figure FET12

00048  M00S00043.dsp     +++|*T,FET13  42/ CFN, 18/ RESERVED

Figure FET13

00049  M00S00044.dsp     +++|*T,FET14  42/ ENCRYPTED PASSWORD, 18/ RESERVED

Figure FET14

00050  M00S00045.dsp     +++|*T,FET15  60/ RESERVED

Figure FET15

00051  M00S00046.dsp     +++|*T,FET16  60/ RESERVED FOR INSTALLATIONS

Figure FET16

Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00001.ns2397  +++|*T,FET17  60/ CHARGE NUMBER

Figure FET17

00053  M01S00002.ns2397  +++|*T,FET20  60/ PROJECT NUMBER (FIRST 10 CHARACTERS)

Figure FET20

00054  M01S00003.ns2397  +++|*T,FET21  60/ PROJECT NUMBER (LAST 10 CHARACTERS)

Figure FET21

00055  M00S00047.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00056  M01S00001.tldsp1  +++|*         NOTE - FOR *TLF* CALLS, ADDITIONAL INFORMATION IS
00057  M01S00002.tldsp1  +++|*                PROVIDED IN (FET+15).
00058  M01S00003.tldsp1  +++|*
00059  M01S00004.tldsp1  +++|*T,FET+15 24/ OJSN, 36/ 0

Figure FET+15

00060  M01S00005.tldsp1  +++|*
00061  M00S00048.dsp     +++|*
00062  M00S00049.dsp     +++|*         LFN =  LOCAL FILE NAME.
00063  M00S00050.dsp     +++|*
00064  M00S00051.dsp     +++|*         ERR =  ERROR CODE RETURNED. (SEE DESCRIPTION OF DAYFILE
00065  M00S00052.dsp     +++|*                MESSAGES FOR ERROR CODES.)
00066  M00S00053.dsp     +++|*
00067  M00S00054.dsp     +++|*         F    = FORCED ORIGIN FLAG (*SYOT* ONLY).
00068  M00S00055.dsp     +++|*
00069  M00S00056.dsp     +++|*         OT   = FORCED ORIGIN CODE (*SYOT* ONLY).
00070  M00S00057.dsp     +++|*
00071  M00S00058.dsp     +++|*         C   =  COMPLETION BIT. MUST BE 0 ON CALL. SET TO 1 ON
00072  M00S00059.dsp     +++|*                COMPLETION.
00073  M00S00060.dsp     +++|*
00074  M00S00061.dsp     +++|*         TF = TERMINATION FLAGS.
00075  M00S00062.dsp     +++|*                IF AT JOB TERMINATION, FLAGS MEAN THE FOLLOWING -
00076  M00S00063.dsp     +++|*
00077  M00S00064.dsp     +++|*                BIT 59      DISABLE DEFERRED BATCH VALIDATION.
00078  M00S00065.dsp     +++|*                BIT 57      EOI RANDOM ADDRESS SET IN FET+7.
00079  M00S00066.dsp     +++|*
00080  M00S00067.dsp     +++|*         F1 =   FORMS CODE OR INPUT FLAGS.
00081  M00S00068.dsp     +++|*                IF THE FILE IS TO BE QUEUED TO THE INPUT QUEUE,
00082  M00S00069.dsp     +++|*                THE FIELD IS DEFINED AS FOLLOWS-
00083  M00S00070.dsp     +++|*
00084  M00S00071.dsp     +++|*                BIT 47-45   UNUSED
00085  M00S00072.dsp     +++|*                BIT 44      SEND FILE TO INPUT QUEUE IF FORCED ABORT

Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00073.v23l617 ---|*                BIT 43      SEND FILE TO INPUT QUEUE IF JOB CARD ERROR

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00001.v23l617 +++|*                BIT 43      SEND FILE TO INPUT QUEUE IF JOB

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00002.dsp38   ---|*                            COMMAND ERROR

Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00001.dsp38   +++|*                            COMMAND ERROR OR USER COMMAND ERROR
00090  M01S00002.dsp38   +++|*                            (SUBSYSTEM CALLER ONLY).

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00074.ns2370  ---|*                BIT 42-36   UNUSED

Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00001.ns2370  +++|*                BIT 42      BINARY CARD SEQUENCE ERROR OR INCORRECT
00093  M01S00002.ns2370  +++|*                            HOLLERITH CODE DETECTED IN CARD DECK.
00094  M01S00003.ns2370  +++|*                BIT 41-36   UNUSED
00095  M00S00075.dsp     +++|*
00096  M00S00076.dsp     +++|*         DIS =  DISPOSITION CODE IN DISPLAY CODE. (REFER TO *COMSJIO*
00097  M00S00077.dsp     +++|*                TO DETERMINE VALID DISPOSITION CODES.)
00098  M00S00078.dsp     +++|*
00099  M00S00079.dsp     +++|*                PR          ANY PRINTER
00100  M00S00080.dsp     +++|*                P1          ANY 501 PRINTER
00101  M00S00081.dsp     +++|*                P2          ANY 512 PRINTER
00102  M00S00082.dsp     +++|*                LR          ANY 580-12 PRINTER
00103  M00S00083.dsp     +++|*                LS          ANY 580-16 PRINTER
00104  M00S00084.dsp     +++|*                LT          ANY 580-20 PRINTER

Seq #  *Modification Id* Act 
----------------------------+
00105  M01S00001.241l630 +++|*                LX          ANY 5870 NIP
00106  M01S00002.241l630 +++|*                LY          ANY 5970 NIP
00107  M00S00085.dsp     +++|*                PU          PUNCH CODED
00108  M00S00086.dsp     +++|*                PH          PUNCH CODED
00109  M00S00087.dsp     +++|*                SB          PUNCH SYSTEM BINARY
00110  M00S00088.dsp     +++|*                PB          PUNCH SYSTEM BINARY (SAME AS SB)
00111  M00S00089.dsp     +++|*                P8          PUNCH TO 80 COLUMN BINARY
00112  M00S00090.dsp     +++|*                FR          MICROFILM PRINTER (NOT SUPPORTED)
00113  M00S00091.dsp     +++|*                FL          MICROFILM PLOTTER (NOT SUPPORTED)
00114  M00S00092.dsp     +++|*                HR          HARD COPY PRINTER (NOT SUPPORTED)
00115  M00S00093.dsp     +++|*                HL          HARD COPY PLOTTER (NOT SUPPORTED)
00116  M00S00094.dsp     +++|*                PL          PLOTTER
00117  M00S00095.dsp     +++|*                IN          ROUTE TO INPUT
00118  M00S00096.dsp     +++|*                NO          ROUTE TO INPUT WITH NO OUTPUT OPTION SET
00119  M00S00097.dsp     +++|*                SC          CHANGE TO LOCAL FILE (*LOFT*)
00120  M00S00098.dsp     +++|*                TO          ROUTE TO INPUT WITH *TT* OPTION SET
00121  M00S00099.dsp     +++|*                TT          ROUTE TO TERMINAL OUTPUT QUEUE
00122  M00S00100.dsp     +++|*                SO          ROUTE TO INPUT WITH *SS* OPTION SET
00123  M00S00101.dsp     +++|*                SS          ROUTE TO STATION OUTPUT QUEUE
00124  M00S00102.dsp     +++|*                WT          ROUTE TO WAIT QUEUE
00125  M00S00103.dsp     +++|*
00126  M00S00104.dsp     +++|*         EC   = EXTERNAL CHARACTERISTICS.
00127  M00S00105.dsp     +++|*                THE EC FIELD IS INTERPRETED IN ONE OF THREE WAYS
00128  M00S00106.dsp     +++|*                ACCORDING TO QUEUE TYPE.
00129  M00S00107.dsp     +++|*
00130  M00S00108.dsp     +++|*                PRINT (*PRQT*) FILES.
00131  M00S00109.dsp     +++|*
00132  M00S00110.dsp     +++|*                MNEMONIC    VALUE  DESCRIPTION
00133  M00S00111.dsp     +++|*                  ---         0      ANY PRINT TRAIN
00134  M00S00112.dsp     +++|*                  ---         1      RESERVED
00135  M00S00113.dsp     +++|*                  A4          2      ASCII 48 CHARACTER PRINT TRAIN
00136  M00S00114.dsp     +++|*                  B4          3      BCD 48 CHARACTER PRINT TRAIN
00137  M00S00115.dsp     +++|*                  B6          4      BCD 63/4 CHARACTER PRINT TRAIN
00138  M00S00116.dsp     +++|*                  A6          5      ASCII 64 CHARACTER PRINT TRAIN
00139  M00S00117.dsp     +++|*                  A9          6      ASCII 96 CHARACTER PRINT TRAIN
00140  M00S00118.dsp     +++|*                  ---         7      RESERVED FOR INSTALLATIONS
00141  M00S00119.dsp     +++|*
00142  M00S00120.dsp     +++|*
00143  M00S00121.dsp     +++|*                PUNCH (*PHQT*) FILES.
00144  M00S00122.dsp     +++|*                MNEMONIC    VALUE  DESCRIPTION
00145  M00S00123.dsp     +++|*                  PU OR ---   0      PUNCH CODED(O26/O29)
00146  M00S00124.dsp     +++|*                  SB          1      PUNCH SYSTEM BINARY
00147  M00S00125.dsp     +++|*                  80COL       2      PUNCH 80-COLUMN BINARY
00148  M00S00126.dsp     +++|*                  ---         3      RESERVED
00149  M00S00127.dsp     +++|*                  O26         4      PUNCH O26 MODE
00150  M00S00128.dsp     +++|*                  O29         5      PUNCH O29 MODE
00151  M00S00129.dsp     +++|*                  ASCII       6      PUNCH ASCII
00152  M00S00130.dsp     +++|*                  ---         7      RESERVED FOR INSTALLATIONS
00153  M00S00131.dsp     +++|*
00154  M00S00132.dsp     +++|*
00155  M00S00133.dsp     +++|*                PLOT (*PLQT*) FILES.
00156  M00S00134.dsp     +++|*                MNEMONIC    VALUE  DESCRIPTION
00157  M00S00135.dsp     +++|*                  ---         0      RESERVED
00158  M00S00136.dsp     +++|*                  T6          1      TRANSPARENT 6-BIT DATA
00159  M00S00137.dsp     +++|*                  T8          2      TRANSPARENT 8-BIT DATA
00160  M00S00138.dsp     +++|*                  ---         3      UNUSED
00161  M00S00139.dsp     +++|*                  ---         4      UNUSED
00162  M00S00140.dsp     +++|*                  ---         5      UNUSED
00163  M00S00141.dsp     +++|*                  ---         6      UNUSED
00164  M00S00142.dsp     +++|*                  ---         7      RESERVED
00165  M00S00143.dsp     +++|*
00166  M00S00144.dsp     +++|*
00167  M00S00145.dsp     +++|*         S =    FORCED SERVICE CLASS FLAG.
00168  M00S00146.dsp     +++|*
00169  M00S00147.dsp     +++|*         IC =   INTERNAL CHARACTERISTICS.
00170  M00S00148.dsp     +++|*
00171  M00S00149.dsp     +++|*                MNEMONIC    VALUE  DESCRIPTION
00172  M00S00150.dsp     +++|*                  DIS         0      FILE IS IN DISPLAY CODE
00173  M00S00151.dsp     +++|*                  ASCII       1      FILE IS IN ASCII
00174  M00S00152.dsp     +++|*                  BIN         2      FILE IS IN BINARY
00175  M00S00153.dsp     +++|*                  ---         3      RESERVED
00176  M00S00154.dsp     +++|*
00177  M00S00155.dsp     +++|*         FLAGS  FLAGS INDICATING WHICH PARAMETERS ARE SPECIFIED.
00178  M00S00156.dsp     +++|*
00179  M00S00157.dsp     +++|*               BIT         DESCRIPTION
00180  M00S00158.dsp     +++|*                17          RETURN JOBNAME IN LFN
00181  M00S00159.dsp     +++|*                16          ACCOUNTING
00182  M00S00160.dsp     +++|*                15          SPACING CODE FLAG
00183  M00S00161.dsp     +++|*                14          REPEAT COUNT
00184  M00S00162.dsp     +++|*                13          USER JOB NAME (UJN)
00185  M00S00163.dsp     +++|*                12          NO DAYFILE MESSAGES, RETURN ERROR
00186  M00S00164.dsp     +++|*                            IN ERR FIELD.
00187  M00S00165.dsp     +++|*                11          SUBSYSTEM INITIATION
00188  M00S00166.dsp     +++|*                10          FORMS CODE
00189  M00S00167.dsp     +++|*                9           PRIORITY
00190  M00S00168.dsp     +++|*                8           INTERNAL CHARACTERISTICS
00191  M00S00169.dsp     +++|*                7           EXTERNAL CHARACTERISTICS
00192  M00S00170.dsp     +++|*                6           EXTENDED PARAMETER BLOCK
00193  M00S00171.dsp     +++|*                5           RESERVED FOR INSTALLATIONS
00194  M00S00172.dsp     +++|*                4           DISPOSITION CODE
00195  M00S00173.dsp     +++|*                3           DLID/SLID
00196  M00S00174.dsp     +++|*                2           TID
00197  M00S00175.dsp     +++|*                1           ROUTE TO CENTRAL SITE

Seq #  *Modification Id* Act 
----------------------------+
00198  M01S00001.ns2493  +++|*                0           FORCED JSN FLAG (INPUT FILES ONLY)
00199  M00S00176.dsp     +++|*                0           DEFERRED ROUTE (OUTPUT FILES ONLY)
00200  M00S00177.dsp     +++|*
00201  M00S00178.dsp     +++|*                IF THE CENTRAL SITE BIT IS SET, THE FILE IS ROUTED
00202  M00S00179.dsp     +++|*                WITH BATCH ORIGIN TYPE.  IF IT IS CLEAR, AND THE TID
00203  M00S00180.dsp     +++|*                BIT IS SET, THE ORIGIN TYPE IS DETERMINED FROM THE
00204  M00S00181.dsp     +++|*                GIVEN TID.  IF BOTH BITS ARE CLEAR, THE ORIGIN TYPE IS
00205  M00S00182.dsp     +++|*                THAT OF THE JOB (EXCEPT, IT IS THAT OF THE PREVIOUS
00206  M00S00183.dsp     +++|*                ROUTING IF THE FILE HAD BEEN DEFERRED ROUTED).
00207  M00S00184.dsp     +++|*
00208  M00S00185.dsp     +++|*         SLID = SOURCE LID.  A 3-CHARACTER ALPHANUMERIC IDENTIFIER
00209  M00S00186.dsp     +++|*                FOR THE MAINFRAME WHICH IS TO BE CONSIDERED THE SOURCE
00210  M00S00187.dsp     +++|*                MAINFRAME FOR THIS FILE.  THE FOLLOWING SPECIAL OCTAL
00211  M00S00188.dsp     +++|*                VALUES MAY ALSO BE PLACED IN THIS FIELD.
00212  M00S00189.dsp     +++|*                000000 = GET SLID FROM JOB INPUT FILE SYSTEM SECTOR.
00213  M00S00190.dsp     +++|*                000001 = SET SLID TO ZERO.
00214  M00S00191.dsp     +++|*                000002 = SET SLID TO PHYSICAL ID OF THIS MAINFRAME.
00215  M00S00192.dsp     +++|*
00216  M00S00193.dsp     +++|*         DLID = DESTINATION LID.  A 3-CHARACTER ALPHANUMERIC ID
00217  M00S00194.dsp     +++|*                FOR THE MAINFRAME WHICH IS THE DESTINATION FOR THIS
00218  M00S00195.dsp     +++|*                FILE.  THE FOLLOWING SPECIAL OCTAL VALUES MAY ALSO
00219  M00S00196.dsp     +++|*                BE PLACED IN THIS FIELD.
00220  M00S00197.dsp     +++|*                000000 = SET DLID TO ZERO.
00221  M00S00198.dsp     +++|*                000001 = SET DLID TO ZERO.
00222  M00S00199.dsp     +++|*                000002 = SET DLID TO PHYSICAL ID OF THIS MAINFRAME.
00223  M00S00200.dsp     +++|*
00224  M00S00201.dsp     +++|*                NOTE - IF THE *SLID/DLID* FLAG BIT IS NOT SET IN THE
00225  M00S00202.dsp     +++|*                PARAMETER BLOCK, DLID IS SET FROM THE JOB INPUT FILE
00226  M00S00203.dsp     +++|*                SYSTEM SECTOR.  FOR A ROUTE TO INPUT, THE JOB INPUT
00227  M00S00204.dsp     +++|*                FILE DLID VALUE IS USED.  FOR A ROUTE TO OUTPUT, THE
00228  M00S00205.dsp     +++|*                JOB INPUT FILE SLID VALUE IS USED.
00229  M00S00206.dsp     +++|*
00230  M00S00207.dsp     +++|*         TID  = TERMINAL ID.
00231  M00S00208.dsp     +++|*                IF THE UPPER SIX BITS ARE EQUAL TO 77B, THE
00232  M00S00209.dsp     +++|*                LOWER EIGHTEEN BITS CONTAIN THE COMPLEMENT OF
00233  M00S00210.dsp     +++|*                THE CM ADDRESS OF A TWO WORD FAMILY NAME - USER
00234  M00S00211.dsp     +++|*                NUMBER AREA.
00235  M00S00212.dsp     +++|*                     TAG+0  42/ FAMILY NAME , 18/ 0
00236  M00S00213.dsp     +++|*                     TAG+1  42/ USER NAME , 18/ 0
00237  M00S00214.dsp     +++|*                IF THE CM ADDRESS IS ZERO, THE FILE WILL BE ROUTED TO
00238  M00S00215.dsp     +++|*                THE REMOTE BATCH QUEUE WITH THE DEFAULT DESTINATION
00239  M00S00216.dsp     +++|*                PARAMETERS OF THE JOB.
00240  M00S00217.dsp     +++|*                IF THE UPPER SIX BITS ARE NOT EQUAL TO 77B, THE
00241  M00S00218.dsp     +++|*                LOWER EIGHTEEN BITS CONTAINS A TID.
00242  M00S00219.dsp     +++|*                IF THE CENTRAL SITE AND TID BITS ARE SET, THE TID MUST
00243  M00S00220.dsp     +++|*                BE A BATCH ID CODE TO AVOID AN ERROR CONDITION.
00244  M00S00221.dsp     +++|*
00245  M00S00222.dsp     +++|*         UJN =  USER JOB NAME.  (0 TO 7 ALPHANUMERIC CHARACTERS)

Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00002.ns2556  ---|*                JSN OF SUBSYSTEM IF *FRSI* FLAG SET.  (3 CHARACTERS)
00247  M02S00003.ns2556  ---|*                JSN TO SET IF *FRFJ* FLAG SET.  (3 CHARACTERS)
00248  M00S00223.dsp     ---|*
00249  M00S00224.dsp     ---|*         PRIORITY = PRIORITY FOR FILE.

Seq #  *Modification Id* Act 
----------------------------+
00250  M01S00002.ns2156  +++|*                NOTE - IF BOTH THE PRIORITY FLAG (BIT 9 OF THE
00251  M01S00003.ns2156  +++|*                FLAGS FIELD) AND THE REQUEUE FLAG (BIT 8 OF THE
00252  M01S00004.ns2156  +++|*                EXTENDED FLAGS FIELD) ARE SET, THEN WORD 3 OF
00253  M01S00005.ns2156  +++|*                THE PARAMETER BLOCK CONTAINS THE ENTRY TIME TO
00254  M01S00006.ns2156  +++|*                SET IN THE FILE-S QFT ENTRY.  THIS FIELD IS SET
00255  M01S00007.ns2156  +++|*                TO -1 BY *QMOVE* WHEN ACTIVATING AN INACTIVE FILE
00256  M01S00008.ns2156  +++|*                SO THAT A NEW ENTRY TIME WILL BE SET.
00257  M00S00225.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00002.251l664 +++|*         PI =   PRINT IMAGE CODE FOR PRINT FILES.  WHEN THE UPPER BIT
00259  M01S00003.251l664 +++|*                IS SET, THE LOWER 3 BITS CONTAIN THE PRINT IMAGE CODE.
00260  M01S00004.251l664 +++|*                MEANINGFUL ONLY FOR 512 OR 580 PRINTERS.
00261  M01S00005.251l664 +++|*
00262  M00S00226.dsp     +++|*         SC   = SPACING CODE FOR PRINT FILES (580-PFC).  THIS IS A
00263  M00S00227.dsp     +++|*                NUMERIC VALUE FROM 0 - 77B.
00264  M00S00228.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00001.dsp9    +++|*         SVC =  FORCED SERVICE CLASS IN DISPLAY CODE.
00266  M00S00229.dsp     +++|*                *DF* MAY ALSO BE SELECTED FOR THE SERVICE CLASS.
00267  M00S00230.dsp     +++|*                *DF* WILL SELECT THE USER DEFAULT SERVICE CLASS FOR
00268  M00S00231.dsp     +++|*                THE ORIGIN TYPE OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00269  M01S00232.dsp9    ---|*         SVC =  FORCED SERVICE CLASS IN DISPLAY CODE (*SYOT* ONLY).
00270  M00S00233.dsp     ---|*
00271  M00S00234.dsp     ---|*         FA =   FORCED ABORT CODE (IF INPUT FILE)
00272  M00S00235.dsp     ---|*                ABORT CODES ARE AS DEFINED IN *COMSDSP*.
00273  M00S00236.dsp     ---|*
00274  M00S00237.dsp     ---|*         FNT =  NFL OFFSET OF FNT ENTRY.
00275  M00S00238.dsp     ---|*
00276  M00S00239.dsp     ---|*         RC  =  REPEAT COUNT.
00277  M00S00240.dsp     ---|*
00278  M00S00241.dsp     ---|*         BC =   BINARY CARD SEQUENCE ERROR DATA.
00279  M00S00242.dsp     ---|*
00280  M00S00243.dsp     ---|*         COUNT = NUMBER OF CARDS READ.
00281  M00S00244.dsp     ---|*
00282  M00S00245.dsp     ---|*         EQID = LEFT JUSTIFIED, ZERO FILLED, DISPLAY CODE EQUIPMENT
00283  M00S00246.dsp     ---|*                IDENTIFICATION FOR CARD READER.
00284  M00S00247.dsp     ---|*                FOR *RBF*, EQID IS A TERMINAL NAME.
00285  M00S00248.dsp     ---|*                FOR *BATCHIO*, EQID IS THE MACHINE ID AND
00286  M00S00249.dsp     ---|*                EST ORDINAL OF THE CARD READER.

Seq #  *Modification Id* Act 
----------------------------+
00287  M01S00002.ns2556  +++|*
00288  M01S00003.ns2556  +++|*         JSN =  JOB SEQUENCE NAME.  (ALPHANUMERIC CHARACTERS ONLY.)
00289  M01S00004.ns2556  +++|*                JSN OF SUBSYSTEM IF *FRSI* FLAG SET, OR JSN TO SET
00290  M01S00005.ns2556  +++|*                IF *FRFJ* FLAG SET.
00291  M00S00250.dsp     +++|*
00292  M00S00251.dsp     +++|*         RA  =  EOI RANDOM ADDRESS OF FILE.
00293  M00S00252.dsp     +++|*
00294  M00S00253.dsp     +++|*         DD =   DATA DECLARATION (DISPLAY CODE).  DEFINES THE
00295  M00S00254.dsp     +++|*                DATATYPE OF THE FILE, WHEN THE FILE IS DESTINED FOR
00296  M00S00255.dsp     +++|*                A REMOTE MAINFRAME.
00297  M00S00256.dsp     +++|*
00298  M00S00257.dsp     +++|*                C6 = 6-BIT CHARACTER DATA.
00299  M00S00258.dsp     +++|*                C8 = 8-BIT CHARACTER DATA.
00300  M00S00259.dsp     +++|*                US = UNDEFINED DATATYPE/STRUCTURED FILE.
00301  M00S00260.dsp     +++|*                UU = UNDEFINED DATATYPE/UNSTRUCTURED FILE.
00302  M00S00261.dsp     +++|*
00303  M00S00262.dsp     +++|*         EFLAGS = FLAGS INDICATING WHICH PARAMETERS ARE SPECIFIED
00304  M00S00263.dsp     +++|*                IN THE EXTENDED PARAMETER BLOCK.
00305  M00S00264.dsp     +++|*
00306  M00S00265.dsp     +++|*               BIT         DESCRIPTION
00307  M00S00266.dsp     +++|*                17          RESERVED
00308  M00S00267.dsp     +++|*                16          RESERVED
00309  M00S00268.dsp     +++|*                15          RESERVED
00310  M00S00269.dsp     +++|*                14          RESERVED
00311  M00S00270.dsp     +++|*                13          RESERVED
00312  M00S00271.dsp     +++|*                12          RESERVED
00313  M00S00272.dsp     +++|*                11          RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00314  M01S00273.ns2397  ---|*                10          RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00315  M01S00004.ns2397  +++|*                10          CHARGE/PROJECT (*SSJ=*)

Seq #  *Modification Id* Act 
----------------------------+
00316  M01S00274.ns2317  ---|*                9           RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00317  M01S00001.ns2317  +++|*                9           DO NOT VALIDATE SERVICE CLASS (*SSJ=*)

Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00275.ns2156  ---|*                8           RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00009.ns2156  +++|*                8           SPECIAL REQUEUE OPERATION (*SSJ=*)
00320  M00S00276.dsp     +++|*                7           USE ENCRYPTED PASSWORD (*SSJ=*)
00321  M00S00277.dsp     +++|*                6           USE ORIGIN DEFAULT SERVICE CLASS (*SSJ=*)
00322  M00S00278.dsp     +++|*                5           CONTROL POINT AND SSID SPECIFIED
00323  M00S00279.dsp     +++|*                4           DO NOT VALIDATE PASSWORD (*SSJ=* ONLY)
00324  M00S00280.dsp     +++|*                3           SUBSYSTEM PROCESSING (*SSJ=* ONLY)
00325  M00S00281.dsp     +++|*                2           CREATOR USER/FAMILY NAMES (*SSJ=* ONLY)
00326  M00S00282.dsp     +++|*                1           OWNER USER/FAMILY NAMES (*SSJ=* ONLY)
00327  M00S00283.dsp     +++|*                0           DATA DECLARATION
00328  M00S00284.dsp     +++|*
00329  M00S00285.dsp     +++|*         IF THE *SUBSYSTEM PROCESSING* BIT IS SET, THE CALLER IS
00330  M00S00286.dsp     +++|*         TREATED AS IF IT WERE A SUBSYSTEM.  IN PARTICULAR, THE
00331  M00S00287.dsp     +++|*         FOLLOWING IS TRUE -

Seq #  *Modification Id* Act 
----------------------------+
00332  M01S00288.v23l617 ---|*           - ERROR PROCESSING MAY BE DONE ON USER CARD ERRORS,

Seq #  *Modification Id* Act 
----------------------------+
00333  M01S00003.v23l617 +++|*           - ERROR PROCESSING MAY BE DONE ON USER COMMAND ERRORS,
00334  M00S00289.dsp     +++|*             AND ON OTHER ERRORS WHICH DO NOT NORMALLY ALLOW
00335  M00S00290.dsp     +++|*             ERROR PROCESSING.
00336  M00S00291.dsp     +++|*           - THE OWNER USER/FAMILY (AND OTHER SYSTEM SECTOR FIELDS)

Seq #  *Modification Id* Act 
----------------------------+
00337  M01S00292.v23l617 ---|*             WILL BE SET FROM THE USER CARD, INSTEAD OF BEING

Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00004.v23l617 +++|*             WILL BE SET FROM THE USER COMMAND, INSTEAD OF BEING
00339  M00S00293.dsp     +++|*             PROPAGATED FROM THE CALLER-S INPUT FILE SYSTEM SECTOR.
00340  M00S00294.dsp     +++|*           - THE USER INDEX MAY BE SPECIFIED IN THE TID BLOCK
00341  M00S00295.dsp     +++|*             ALONG WITH THE USER NAME.
00342  M00S00296.dsp     +++|*           - BINARY CARD SEQUENCE ERROR DATA MAY BE SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00002.ns2317  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00001.dsp44   +++|*         IF THE *SPECIAL REQUEUE* FLAG IS SET, MOST FIELDS SPECIFIED
00345  M01S00002.dsp44   +++|*         IN THE PARAMETER BLOCK AND THE EXTENDED PARAMETER BLOCK WILL
00346  M01S00003.dsp44   +++|*         BE IGNORED.  THIS OPTION IS USED TO REQUEUE AN ATTACHED QUEUE
00347  M01S00004.dsp44   +++|*         FILE WITHOUT CHANGING EXISTING SYSTEM SECTOR AND QFT VALUES.
00348  M01S00005.dsp44   +++|*         THE ONLY PARAMETERS THAT WILL NOT BE IGNORED ON A *SPECIAL
00349  M01S00006.dsp44   +++|*         REQUEUE* ARE THE PRIORITY AND THE REPEAT COUNT.
00350  M01S00007.dsp44   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00351  M01S00003.ns2317  +++|*         THE *DO NOT VALIDATE SERVICE CLASS* FLAG IS USED ONLY IF THE
00352  M01S00004.ns2317  +++|*         FORCED SERVICE CLASS FLAG IN FET+1 IS SET.  THE BIT USED TO
00353  M01S00005.ns2317  +++|*         SELECT THE ORIGIN DEFAULT SERVICE CLASS WILL OVERRIDE THE
00354  M01S00006.ns2317  +++|*         SELECTION OF THE FLAG TO NOT VALIDATE THE SERVICE CLASS.
00355  M00S00297.dsp     +++|*
00356  M00S00298.dsp     +++|*         OUN =  OWNER USER NAME (*SSJ=* ONLY).
00357  M00S00299.dsp     +++|*
00358  M00S00300.dsp     +++|*         IRTADDR = IMPLICIT REMOTE TEXT ADDRESS (*SSJ=* ONLY).
00359  M00S00301.dsp     +++|*                ADDRESS OF BLOCK CONTAINING IMPLICIT REMOTE TEXT.
00360  M00S00302.dsp     +++|*                THE FIRST WORD OF THE BLOCK CONTAINS THE LENGTH OF
00361  M00S00303.dsp     +++|*                THE TEXT (IN CHARACTERS).  THE REST OF THE BLOCK
00362  M00S00304.dsp     +++|*                CONSISTS OF 1 - 32B WORDS OF DISPLAY-CODE TEXT.
00363  M00S00305.dsp     +++|*
00364  M00S00306.dsp     +++|*         OFN =  OWNER FAMILY NAME (*SSJ=* ONLY).
00365  M00S00307.dsp     +++|*
00366  M00S00308.dsp     +++|*         ERTADDR = EXPLICIT REMOTE TEXT ADDRESS.
00367  M00S00309.dsp     +++|*                ADDRESS OF BLOCK CONTAINING EXPLICIT REMOTE TEXT.
00368  M00S00310.dsp     +++|*                THE FIRST WORD OF THE BLOCK CONTAINS THE LENGTH OF
00369  M00S00311.dsp     +++|*                THE TEXT (IN CHARACTERS).  THE REST OF THE BLOCK
00370  M00S00312.dsp     +++|*                CONSISTS OF 1 - 32B WORDS OF DISPLAY-CODE TEXT.
00371  M00S00313.dsp     +++|*
00372  M00S00314.dsp     +++|*         CUN =  CREATOR USER NAME (*SSJ=* ONLY).
00373  M00S00315.dsp     +++|*
00374  M00S00316.dsp     +++|*         CP =   CONTROL POINT SELECTION (SUBSYSTEM INITIATION).
00375  M00S00317.dsp     +++|*
00376  M00S00318.dsp     +++|*         SSID = SUBSYSTEM ID (SUBSYSTEM INITIATION).
00377  M00S00319.dsp     +++|*
00378  M00S00320.dsp     +++|*         CFN =  CREATOR FAMILY NAME (*SSJ=* ONLY).
00379  M00S00321.dsp     +++|*
00380  M00S00322.dsp     +++|*         ENCRYPTED PASSWORD FOR INPUT FILES (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00006.tldsp1  +++|*
00382  M01S00007.tldsp1  +++|*         OJSN = ORIGINAL JOB SEQUENCE NAME (JSN).
00383  M00S00323.dsp     +++|          SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00324.ns2236  ---|***       ACCOUNTING MESSAGES.
00385  M01S00325.ns2236  ---|*
00386  M01S00326.ns2236  ---|*         THE FOLLOWING ACCOUNTING MESSAGE WILL BE ISSUED WHEN
00387  M01S00327.ns2236  ---|*         A FILE HAS BEEN SUCCESSFULLY ROUTED.
00388  M01S00328.ns2236  ---|*
00389  M01S00329.ns2236  ---|*         *JSNC    S. ABLQ, JSNO, YYMMDD, HHMMSS, DC.*
00390  M01S00330.ns2236  ---|*
00391  M01S00331.ns2236  ---|*                JSNC        = JSN OF THE JOB WHICH QUEUED THE FILE.
00392  M01S00332.ns2236  ---|*                SC          = SERVICE CLASS.
00393  M01S00333.ns2236  ---|*                JSNO        = ORIGINAL JSN. (JSN THAT WAS ASSIGNED
00394  M01S00334.ns2236  ---|*                              TO QUEUED FILE)
00395  M01S00335.ns2236  ---|*                YYMMDD      = DATE WHEN FILE WAS FIRST QUEUED.
00396  M01S00336.ns2236  ---|*                HHMMSS      = TIME WHEN FILE WAS FIRST QUEUED.
00397  M01S00337.ns2236  ---|*                DC          = DISPOSITION CODE OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00001.ns2236  +++|***       ACCOUNT DAYFILE MESSAGES.
00399  M01S00002.ns2236  +++|*
00400  M01S00003.ns2236  +++|*
00401  M01S00004.ns2236  +++|*         *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00402  M01S00005.ns2236  +++|*         *ABLQ, C2, XXXXXX.XXXKUNS.*
00403  M01S00006.ns2236  +++|*                QUEUED FILE WITH JOB SEQUENCE NAME JSN AND
00404  M01S00007.ns2236  +++|*                DISPOSITION CODE DC HAS BEEN ROUTED TO THE
00405  M01S00008.ns2236  +++|*                QUEUE ON DATE YYMMDD AT TIME HHMMSS.
00406  M01S00009.ns2236  +++|*                THE FILE HAS A DISPOSITION CODE OF DC AND IS
00407  M01S00010.ns2236  +++|*                XXXXXX.XXX THOUSAND PRU-S IN LENGTH.
00408  M01S00011.ns2236  +++|*
00409  M01S00012.ns2236  +++|*         *ARRQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00410  M01S00013.ns2236  +++|*         *ARRQ, C2, XXXXXX.XXXKUNS.*
00411  M01S00014.ns2236  +++|*                QUEUED FILE CREATED ON DATE YYMMDD AT TIME
00412  M01S00015.ns2236  +++|*                HHMMSS WITH ORIGINAL JOB SEQUENCE NAME JSN
00413  M01S00016.ns2236  +++|*                HAS BEEN REENTERED INTO THE ACTIVE QUEUE.
00414  M01S00017.ns2236  +++|*                THE FILE HAS A DISPOSITION CODE OF DC AND IS
00415  M01S00018.ns2236  +++|*                XXXXXX.XXX THOUSAND PRUS IN LENGTH.
00416  M01S00019.ns2236  +++|*
00417  M01S00020.ns2236  +++|*         *SIUN, USERNAME.*
00418  M01S00021.ns2236  +++|*                THE INPUT FILE BEING ROUTED HAS AN INVALID USERNAME.
00419  M00S00338.dsp     +++|          SPACE  4
00420  M00S00339.dsp     +++|***       DAYFILE MESSAGES.
00421  M00S00340.dsp     +++|*
00422  M00S00341.dsp     +++|*         THE FOLLOWING ERROR DESCRIPTION WILL CAUSE *DSP* TO ABORT
00423  M00S00342.dsp     +++|*         UNCONDITIONALLY (UNLESS THE CALLER IS A SUBSYSTEM OR
00424  M00S00343.dsp     +++|*         HAS THE SUBSYSTEM PROCESSING BIT SET).
00425  M00S00344.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00345.v23l617 ---|*         * DSP - INVALID REQUEST.*

Seq #  *Modification Id* Act 
----------------------------+
00427  M01S00005.v23l617 +++|*         * DSP - INCORRECT REQUEST.*
00428  M00S00346.dsp     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS.
00429  M00S00347.dsp     +++|*                1. DSP NOT CALLED WITH RECALL. (DOES NOT APPLY WHEN
00430  M00S00348.dsp     +++|*                   CALLED BY A SUBSYSTEM.)
00431  M00S00349.dsp     +++|*                2. PARAMETER LIST ADDRESS OUT OF RANGE.

Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00350.v23l617 ---|*                3. AN INVALID TEXT LENGTH WAS SPECIFIED IN AN

Seq #  *Modification Id* Act 
----------------------------+
00433  M01S00006.v23l617 +++|*                3. AN INCORRECT TEXT LENGTH WAS SPECIFIED IN AN
00434  M00S00351.dsp     +++|*                   IMPLICIT OR EXPLICIT REMOTE TEXT BLOCK.
00435  M00S00352.dsp     +++|*                4. A NON-*SSJ=* PROGRAM HAS SPECIFIED ONE OF THE
00436  M00S00353.dsp     +++|*                   FOLLOWING - CUN, CFN, IRTADDR.
00437  M00S00354.dsp     +++|*                5. A NON-*SSJ=* AND NON-*SYOT* PROGRAM HAS SPECIFIED
00438  M00S00355.dsp     +++|*                   ONE OF THE FOLLOWING DISPOSITION CODES - SO, SS.
00439  M00S00356.dsp     +++|*                6. A JOB WITHOUT SYSTEM ORIGIN PRIVILEGES ATTEMPTED
00440  M00S00357.dsp     +++|*                   TO INITIATE A SUBSYSTEM.
00441  M00S00358.dsp     +++|*                7. THE SPECIFIED SUBSYSTEM DID NOT EXIST.
00442  M00S00359.dsp     +++|*                8. THE SPECIFIED SUBSYSTEM WAS ALREADY ACTIVE.
00443  M00S00360.dsp     +++|*                9. THE SPECIFIED SUBSYSTEM NAME AND SUBSYSTEM ID
00444  M00S00361.dsp     +++|*                   DID NOT MATCH.

Seq #  *Modification Id* Act 
----------------------------+
00445  M01S00362.ns2785  ---|*               10. A ZERO SUBSYSTEM ID AND/OR CONTROL POINT WAS
00446  M01S00363.ns2785  ---|*                   SPECIFIED ON A SUBSYSTEM INITIATION.

Seq #  *Modification Id* Act 
----------------------------+
00447  M01S00001.ns2785  +++|*               10. A ZERO SUBSYSTEM ID WAS SPECIFIED ON A SUBSYSTEM
00448  M01S00002.ns2785  +++|*                   INITIATION.
00449  M00S00364.dsp     +++|*               11. A SUBSYSTEM ID AND/OR A CONTROL POINT WAS SPECIFIED
00450  M00S00365.dsp     +++|*                   WITHOUT SPECIFYING SUBSYSTEM INITIATION.

Seq #  *Modification Id* Act 
----------------------------+
00451  M01S00006.ns2556  +++|*               12. THE FORCED JSN SPECIFIED CONTAINED AT LEAST ONE
00452  M01S00007.ns2556  +++|*                   NON-ALPHANUMERIC CHARACTER.
00453  M00S00366.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00367.v23l617 ---|*         * DSP - INVALID USER ACCESS.*

Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00007.v23l617 +++|*         * DSP - USER ACCESS NOT VALID.*
00456  M00S00368.dsp     +++|*                THE CALLER WAS NOT VALIDATED TO SPECIFY ONE OF THE
00457  M00S00369.dsp     +++|*                FOLLOWING  - DLID, SLID, DD.
00458  M00S00370.dsp     +++|*
00459  M00S00371.dsp     +++|*         * DSP - COMPLETE BIT ALREADY SET.*
00460  M00S00372.dsp     +++|*                THE COMPLETE BIT HAS NOT BEEN CLEARED BEFORE
00461  M00S00373.dsp     +++|*                DSP WAS CALLED.
00462  M00S00374.dsp     +++|*
00463  M00S00375.dsp     +++|*         * DSP - I/O SEQUENCE ERROR.*
00464  M00S00376.dsp     +++|*                A REQUEST WAS MADE ON A BUSY FILE.
00465  M00S00377.dsp     +++|*
00466  M00S00378.dsp     +++|*
00467  M00S00379.dsp     +++|*         THE FOLLOWING ERROR CONDITIONS WILL CAUSE *DSP* TO ABORT
00468  M00S00380.dsp     +++|*         IF CALLED BY A NON-SUBSYSTEM JOB.
00469  M00S00381.dsp     +++|*
00470  M00S00382.dsp     +++|*         * DSP - INCORRECT USER COMMAND.*  (ERR=34)
00471  M00S00383.dsp     +++|*                USER ATTEMPTED TO ROUTE AN INPUT FILE WITH AN
00472  M00S00384.dsp     +++|*                IMPROPER USER COMMAND.
00473  M00S00385.dsp     +++|*
00474  M00S00386.dsp     +++|*         * DSP - USER SECURITY COUNT EXHAUSTED.* (ERR=47).
00475  M00S00387.dsp     +++|*                THE USER ATTEMPTED TO ROUTE AN INPUT FILE
00476  M00S00388.dsp     +++|*                TO A USER NAME WHICH HAS EXHAUSTED IT-S
00477  M00S00389.dsp     +++|*                SECURITY COUNT.
00478  M00S00390.dsp     +++|*
00479  M00S00391.dsp     +++|*
00480  M00S00392.dsp     +++|*         THE FOLLOWING MESSAGES WILL BE ISSUED IF BIT 12 OF WORD
00481  M00S00393.dsp     +++|*         ONE IS NOT SET.
00482  M00S00394.dsp     +++|*
00483  M00S00395.dsp     +++|*         * ERROR IN ROUTE FUNCTION, LFN = FILENAM.*
00484  M00S00396.dsp     +++|*                INFORMATIVE MESSAGE TO SYSTEM DAYFILE STATING AN
00485  M00S00397.dsp     +++|*                ERROR OCCURED WHILE ROUTING *FILENAM*.
00486  M00S00398.dsp     +++|*
00487  M00S00399.dsp     +++|*         * DSP - FILE NAME ERROR.*  (ERR=1).

Seq #  *Modification Id* Act 
----------------------------+
00488  M01S00400.v23l617 ---|*                AN ATTEMPT WAS MADE TO CREATE A FILE WITH AN INVALID

Seq #  *Modification Id* Act 
----------------------------+
00489  M01S00008.v23l617 +++|*                AN ATTEMPT WAS MADE TO CREATE A FILE WITH AN INCORRECT
00490  M00S00401.dsp     +++|*                FILE NAME.
00491  M00S00402.dsp     +++|*
00492  M00S00403.dsp     +++|*         * DSP - FILE NOT ON MASS STORAGE.*  (ERR=2).
00493  M00S00404.dsp     +++|*                AN ATTEMPT WAS MADE TO ROUTE A FILE NOT ON
00494  M00S00405.dsp     +++|*                MASS STORAGE.
00495  M00S00406.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00496  M01S00407.v23l617 ---|*         * DSP - INVALID FILE TYPE.*  (ERR=3).

Seq #  *Modification Id* Act 
----------------------------+
00497  M01S00009.v23l617 +++|*         * DSP - INCORRECT FILE TYPE.*  (ERR=3).
00498  M00S00408.dsp     +++|*                THE FILE BEING PROCESSED IS NOT A QFFT,
00499  M00S00409.dsp     +++|*                OR LOFT FILE TYPE.
00500  M00S00410.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00501  M01S00411.ns2493  ---|*         * DSP - ROUTE TO INPUT NOT IMMEDIATE.*  (ERR=5).
00502  M01S00412.ns2493  ---|*                ROUTING A FILE TO THE INPUT QUEUE MUST BE IMMEDIATE.
00503  M01S00413.ns2493  ---|*
00504  M00S00414.dsp     ---|*         * DSP - IMMEDIATE ROUTING - NO FILE.*  (ERR=6).
00505  M00S00415.dsp     ---|*                THE SPECIFIED FILE FOR THE IMMEDIATE ROUTE COULD
00506  M00S00416.dsp     ---|*                NOT BE FOUND.
00507  M00S00417.dsp     ---|*

Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00418.v23l617 ---|*         * DSP - INVALID DISPOSITION CODE.*  (ERR=7).

Seq #  *Modification Id* Act 
----------------------------+
00509  M01S00010.v23l617 +++|*         * DSP - INCORRECT DISPOSITION CODE.*  (ERR=7).
00510  M00S00419.dsp     +++|*                SPECIFIED DISPOSITION CODE IS NOT RECOGNIZED.
00511  M00S00420.dsp     +++|*
00512  M00S00421.dsp     +++|*         * DSP - UNDEFINED SERVICE CLASS.*  (ERR=11).
00513  M00S00422.dsp     +++|*                THE SPECIFIED SERVICE CLASS IS NOT DEFINED.
00514  M00S00423.dsp     +++|*
00515  M00S00424.dsp     +++|*         * DSP - DEFERRED ROUTING NOT ALLOWED.* (ERR=13).
00516  M00S00425.dsp     +++|*                A FILE CANNOT BE DEFERRED ROUTED IF ANY ONE OF THE
00517  M00S00426.dsp     +++|*                FOLLOWING IS SPECIFIED - DD, IRTADDR, ERTADDR.
00518  M00S00427.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00519  M01S00428.v23l617 ---|*         * DSP - INVALID DATA DECLARATION.* (ERR=14).

Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00011.v23l617 +++|*         * DSP - INCORRECT DATA DECLARATION.* (ERR=14).
00521  M00S00429.dsp     +++|*                THE SPECIFIED DATA DECLARATION IS NOT RECOGNIZED.
00522  M00S00430.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00431.v23l617 ---|*         * DSP - INVALID LID.* (ERR=15).
00524  M01S00432.v23l617 ---|*                THE SPECIFIED SLID OR DLID IS EITHER AN ILLEGAL NAME,
00525  M01S00433.v23l617 ---|*                OR WAS NOT FOUND IN THE LID TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00012.v23l617 +++|*         * DSP - INCORRECT LID.* (ERR=15).
00527  M01S00013.v23l617 +++|*                THE SPECIFIED SLID OR DLID IS EITHER AN INCORRECT
00528  M01S00014.v23l617 +++|*                NAME, OR WAS NOT FOUND IN THE LID TABLE.
00529  M00S00434.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00435.v23l617 ---|*         * DSP - CAN NOT ROUTE JOB INPUT FILE.*  (ERR=16).

Seq #  *Modification Id* Act 
----------------------------+
00531  M01S00015.v23l617 +++|*         * DSP - CANNOT ROUTE JOB INPUT FILE.*  (ERR=16).
00532  M00S00436.dsp     +++|*                THE JOB INPUT FILE CAN NOT BE ROUTED.
00533  M00S00437.dsp     +++|*
00534  M00S00438.dsp     +++|*         * DSP - FILE ON REMOVABLE DEVICE.*  (ERR=20).
00535  M00S00439.dsp     +++|*                A FILE ON A REMOVABLE DEVICE CAN NOT BE ROUTED.
00536  M00S00440.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00441.v23l617 ---|*         * DSP - INVALID TID.*  (ERR=21).

Seq #  *Modification Id* Act 
----------------------------+
00538  M01S00016.v23l617 +++|*         * DSP - INCORRECT TID.*  (ERR=21).
00539  M00S00442.dsp     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS.
00540  M00S00443.dsp     +++|*                1. USER NAME, FAMILY NAME PARAMETERS NOT IN
00541  M00S00444.dsp     +++|*                CM FIELD LENGTH.
00542  M00S00445.dsp     +++|*                2. TID IS GREATER THAN OR EQUAL TO *IDLM* FOR
00543  M00S00446.dsp     +++|*                BATCH JOBS.
00544  M00S00447.dsp     +++|*
00545  M00S00448.dsp     +++|*         * DSP - FORMS CODE NOT ALPHANUMERIC.*  (ERR=22).
00546  M00S00449.dsp     +++|*                FORMS CODE MUST CONSIST OF TWO ALPHANUMERIC
00547  M00S00450.dsp     +++|*                CHARACTERS.
00548  M00S00451.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00452.v23l617 ---|*         * DSP - INVALID INTERNAL CHARACTERISTICS.*  (ERR=23).

Seq #  *Modification Id* Act 
----------------------------+
00550  M01S00017.v23l617 +++|*         * DSP - INCORRECT INTERNAL CHARACTERISTICS.*  (ERR=23).
00551  M00S00453.dsp     +++|*                THE SPECIFIED INTERNAL CHARACTERISTICS WERE NOT VALID.
00552  M00S00454.dsp     +++|*
00553  M00S00455.dsp     +++|*         * DSP - QUEUED FILE READ ERROR.* (ERR=24).
00554  M00S00456.dsp     +++|*                A READ ERROR WAS ENCOUNTERED ON THE SYSTEM SECTOR
00555  M00S00457.dsp     +++|*                OF A PREVIOUSLY ROUTED FILE.
00556  M00S00458.dsp     +++|*
00557  M00S00459.dsp     +++|*         * DSP - QFT FULL.*  (ERR=25).
00558  M00S00460.dsp     +++|*                THERE IS NO ROOM IN THE QFT FOR CURRENT USE.
00559  M00S00461.dsp     +++|*
00560  M00S00462.dsp     +++|*         * DSP - THIS ROUTING NOT ALLOWED.*  (ERR = 26).
00561  M00S00463.dsp     +++|*                AN ATTEMPT TO CHANGE THE QUEUE TYPE OF A DEFERRED
00562  M00S00464.dsp     +++|*                ROUTED FILE WAS MADE.  (TO CHANGE THE QUEUE TYPE OF A
00563  M00S00465.dsp     +++|*                DEFERRED ROUTED FILE, THE FILE MUST FIRST BE CHANGED
00564  M00S00466.dsp     +++|*                TO A LOCAL FILE.)
00565  M00S00467.dsp     +++|*
00566  M00S00468.dsp     +++|*         * DSP - DEVICE FULL.*  (ERR=27).
00567  M00S00469.dsp     +++|*                THERE IS NO ROOM ON THE DEVICE FOR CURRENT USE.
00568  M00S00470.dsp     +++|*
00569  M00S00471.dsp     +++|*         * DSP - MASS STORAGE ERROR.*  (ERR=30).
00570  M00S00472.dsp     +++|*                A MASS STORAGE ERROR WAS ENCOUNTERED ON THE FILE.
00571  M00S00473.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00572  M01S00474.v23l617 ---|*         * JOB CARD ERROR. (TWENTY CHARACTERS).*  (ERR=32).

Seq #  *Modification Id* Act 
----------------------------+
00573  M01S00018.v23l617 +++|*         * JOB COMMAND ERROR. (TWENTY CHARACTERS).*  (ERR=32).
00574  M00S00475.dsp     +++|*                A FILE BEING ROUTED TO THE INPUT FILE HAS AN

Seq #  *Modification Id* Act 
----------------------------+
00575  M01S00476.v23l617 ---|*                ERROR IN ITS JOB CARD. THE FIRST TWENTY CHARACTERS

Seq #  *Modification Id* Act 
----------------------------+
00576  M01S00019.v23l617 +++|*                ERROR IN ITS JOB COMMAND. THE FIRST TWENTY CHARACTERS
00577  M00S00477.dsp     +++|*                ARE DISPLAYED IN THE MESSAGE.
00578  M00S00478.dsp     +++|*
00579  M00S00479.dsp     +++|*         * DSP - TOO MANY DEFERRED BATCH JOBS.*  (ERR=33).
00580  M00S00480.dsp     +++|*                USER HAS MORE JOBS IN THE SYSTEM THAN ALLOWED.
00581  M00S00481.dsp     +++|*                THIS CHECK IS IGNORED FOR USERS WITH SYSTEM ORIGIN
00582  M00S00482.dsp     +++|*                PRIVILEGES.
00583  M00S00483.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00484.242l642 ---|*         * DSP - DEVICE UNAVAILABLE.*  (ERR=35).
00585  M01S00485.242l642 ---|*                DSP ATTEMPTED TO CREATE A FILE ON A DEVICE THAT
00586  M01S00486.242l642 ---|*                WAS TURNED OFF OR CURRENTLY UNAVAILABLE FOR ACCESS.

Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00001.242l642 +++|*         * DSP - DEVICE INACCESSIBLE.*  (ERR=35).
00588  M01S00002.242l642 +++|*                DSP WAS PREVENTED FROM SUCCESSFUL COMPLETION BECAUSE
00589  M01S00003.242l642 +++|*                OF AN INACCESSIBLE DEVICE CONDITION.
00590  M00S00487.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00591  M01S00488.v23l617 ---|*         * DSP - INVALID FILE MODE.*  (ERR=36).

Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00020.v23l617 +++|*         * DSP - INCORRECT FILE MODE.*  (ERR=36).
00593  M00S00489.dsp     +++|*                USER ATTEMPTED TO ROUTE A FILE WHICH WAS IN
00594  M00S00490.dsp     +++|*                EXECUTE ONLY MODE.
00595  M00S00491.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00492.v23l617 ---|*         * DSP - INVALID EXTERNAL CHARACTERISTICS.* (ERR=37).

Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00021.v23l617 +++|*         * DSP - INCORRECT EXTERNAL CHARACTERISTICS.* (ERR=37).
00598  M00S00493.dsp     +++|*                USER SPECIFIED AN EXTERNAL CHARACTERISITIC VALUE THAT
00599  M00S00494.dsp     +++|*                WAS NOT LEGAL FOR THE DISPOSITION CODE SPECIFIED.
00600  M00S00495.dsp     +++|*                THE USER SHOULD RETRY USING A DIFFERENT VALUE.
00601  M00S00496.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00497.v23l617 ---|*         * DSP - INVALID ORIGIN TYPE.* (ERR=40).

Seq #  *Modification Id* Act 
----------------------------+
00603  M01S00022.v23l617 +++|*         * DSP - INCORRECT ORIGIN TYPE.* (ERR=40).

Seq #  *Modification Id* Act 
----------------------------+
00604  M01S00498.ns2556  ---|*                ORIGIN TYPE WAS SPECIFIED BY A NON-SYSTEM ORIGIN
00605  M01S00499.ns2556  ---|*                JOB OR *IAOT* WAS SPECIFIED FOR AN INPUT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00606  M01S00008.ns2556  +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS.
00607  M01S00009.ns2556  +++|*                1. THE ORIGIN TYPE WAS SPECIFIED BY A NON-SYSTEM
00608  M01S00010.ns2556  +++|*                   ORIGIN JOB.
00609  M01S00011.ns2556  +++|*                2. INTERACTIVE ORIGIN (IAOT) WAS SPECIFIED FOR AN
00610  M01S00012.ns2556  +++|*                   INPUT FILE.
00611  M01S00013.ns2556  +++|*                3. A FORCED JSN WAS SPECIFIED BY A NON-SYSTEM ORIGIN
00612  M01S00014.ns2556  +++|*                   JOB.
00613  M00S00500.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00614  M01S00501.v23l617 ---|*         * DSP - INVALID SPACING CODE.*  (ERR=41).

Seq #  *Modification Id* Act 
----------------------------+
00615  M01S00023.v23l617 +++|*         * DSP - INCORRECT SPACING CODE.*  (ERR=41).
00616  M00S00502.dsp     +++|*                SPACING CODE VALUE IS GREATER THAN 77B.
00617  M00S00503.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00618  M01S00504.v23l617 ---|*         * DSP - INVALID JOB ABORT CODE.* (ERR=42).

Seq #  *Modification Id* Act 
----------------------------+
00619  M01S00024.v23l617 +++|*         * DSP - INCORRECT JOB ABORT CODE.* (ERR=42).
00620  M00S00505.dsp     +++|*                JOB ABORT CODE IS NOT IN RANGE.
00621  M00S00506.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00622  M01S00507.v23l617 ---|*         * DSP - INVALID OWNER USER/FAMILY.*  (ERR=43).

Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00025.251l664 ---|*         * DSP - INCORRECT OWNER USER/FAMILY.*  (ERR=43).

Seq #  *Modification Id* Act 
----------------------------+
00624  M01S00508.251l664 ---|*                THE SPECIFIED OWNER USER/FAMILY WAS NOT VALID.
00625  M01S00509.251l664 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00510.251l664 ---|*         * DSP - INVALID CREATOR USER/FAMILY.*  (ERR=44).

Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00026.251l664 ---|*         * DSP - INCORRECT CREATOR USER/FAMILY.*  (ERR=44).

Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00511.251l664 ---|*                THE SPECIFIED CREATOR USER/FAMILY WAS NOT VALID.
00629  M01S00512.251l664 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00630  M01S00513.v23l617 ---|*         * DSP - INVALID SERVICE CLASS.*  (ERR=45).

Seq #  *Modification Id* Act 
----------------------------+
00631  M01S00027.v23l617 +++|*         * DSP - INCORRECT SERVICE CLASS.*  (ERR=45).
00632  M00S00514.dsp     +++|*                THE USER IS NOT VALIDATED TO SELECT THE SPECIFIED
00633  M00S00515.dsp     +++|*                SERVICE CLASS.
00634  M00S00516.dsp     +++|*
00635  M00S00517.dsp     +++|*         * DSP - ALTERNATE FAMILY NOT ALLOWED.*  (ERR=46).
00636  M00S00518.dsp     +++|*                THE USER IS NOT VALIDATED TO ROUTE A JOB
00637  M00S00519.dsp     +++|*                TO A DIFFERENT FAMILY.

Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00006.251l664 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00007.ns2493  ---|*         * DSP - INCORRECT PRINT IMAGE CODE.*  (ERR=50).
00640  M02S00008.ns2493  ---|*                PRINT IMAGE CODE IS GREATER THAN 7.

Seq #  *Modification Id* Act 
----------------------------+
00641  M01S00004.ns2493  +++|*         * DSP - USER SECURITY COUNT EXHAUSTED.*  (ERR=47).
00642  M01S00005.ns2493  +++|*                THE SECURITY COUNT FOR THE USER NAME SPECIFIED HAS
00643  M01S00006.ns2493  +++|*                BEEN DECREMENTED TO ZERO.
00644  M01S00007.ns2493  +++|*
00645  M01S00008.ns2493  +++|*         * DSP - JSN ALREADY IN SYSTEM.*  (ERR=50).
00646  M01S00009.ns2493  +++|*                THE FORCED JSN SPECIFIED IS ALREADY IN USE BY ANOTHER
00647  M01S00010.ns2493  +++|*                JOB IN THE SYSTEM OR IS THE SAME AS A SUBSYSTEM NAME.

Seq #  *Modification Id* Act 
----------------------------+
00648  M01S00001.dsp47   +++|*
00649  M01S00002.dsp47   +++|*         * DSP - ALTERNATE USER NOT ALLOWED.*  (ERR=51).
00650  M01S00003.dsp47   +++|*                THE USER IS NOT VALIDATED TO ROUTE A JOB TO
00651  M01S00004.dsp47   +++|*                ANOTHER USER NAME.
00652  M00S00520.dsp     +++|          SPACE  4,10
00653  M00S00521.dsp     +++|***       OPERATOR MESSAGES.
00654  M00S00522.dsp     +++|*
00655  M00S00523.dsp     +++|*         THE FOLLOWING OPERATOR MESSAGES WILL BE DISPLAYED AT
00656  M00S00524.dsp     +++|*         THE USERS CONTROL POINT UPON OCCURANCE OF THE SPECIFIED
00657  M00S00525.dsp     +++|*         EVENT.
00658  M00S00526.dsp     +++|*
00659  M00S00527.dsp     +++|*         * QFT FULL.*
00660  M00S00528.dsp     +++|*                INDICATES THAT THE SYSTEM HAS NO AVAILABLE QFTS
00661  M00S00529.dsp     +++|*                AT THIS TIME.  *DSP* WILL WAIT FOR AN AVAILABLE
00662  M00S00530.dsp     +++|*                QFT UNLESS DROPPED BY THE OPERATOR.
00663  M00S00531.dsp     +++|*
00664  M00S00532.dsp     +++|*         * TRACK LIMIT.*
00665  M00S00533.dsp     +++|*                INDICATES THAT THE SYSTEM HAS RUN OUT OF TRACK
00666  M00S00534.dsp     +++|*                SPACE.  *DSP* WILL WAIT FOR AVAILABLE TRACK
00667  M00S00535.dsp     +++|*                SPACE UNLESS DROPPED BY THE OPERATOR.
00668  M00S00536.dsp     +++|          SPACE  4,10
00669  M00S00537.dsp     +++|***       ZERO LEVEL OVERLAYS CALLED.
00670  M00S00538.dsp     +++|*
00671  M00S00539.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00672  M01S00001.ns2663  +++|*         0AV - VERIFY USER NAME.
00673  M00S00540.dsp     +++|*         0BF - BEGIN FILE.
00674  M00S00541.dsp     +++|*         0DF - DROP FILE.
00675  M00S00542.dsp     +++|*         0DQ - DROP QUEUE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00001.njdsp1  +++|*         0NJ - COPY *NJEF* TRAILER INFORMATION.

Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00002.ns2663  +++|*         0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
00678  M00S00543.dsp     +++|*         0VJ - VERIFY JOB/USER STATMENTS.

Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00544.ns2663  ---|*         0AV - ACCOUNT VALIDATION.
00680  M00S00545.dsp     ---|          EJECT
00681  M00S00546.dsp     ---|*         COMMON DECKS.
00682  M00S00547.dsp     ---|
00683  M00S00548.dsp     ---|
00684  M00S00549.dsp     ---|*CALL     COMPMAC
00685  M00S00550.dsp     ---|*CALL     COMSACC
00686  M00S00551.dsp     ---|*CALL     COMSCPS
00687  M00S00552.dsp     ---|          LIST   X
00688  M00S00553.dsp     ---|*CALL     COMSDSP
00689  M00S00554.dsp     ---|          LIST   -X
00690  M00S00555.dsp     ---|*CALL     COMSEJT
00691  M00S00556.dsp     ---|*CALL     COMSEVT
00692  M00S00557.dsp     ---|*CALL     COMSJCE
00693  M00S00558.dsp     ---|*CALL     COMSJIO
00694  M00S00559.dsp     ---|*CALL     COMSLFD
00695  M00S00560.dsp     ---|*CALL     COMSMSP
00696  M00S00561.dsp     ---|*CALL     COMSPFM
00697  M00S00562.dsp     ---|*CALL     COMSPIM

Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00563.ns2217  ---|*CALL     COMSSCD
00699  M00S00564.dsp     ---|*CALL     COMSSSD
00700  M00S00565.dsp     ---|          LIST   X
00701  M00S00566.dsp     ---|*CALL     COMSSSE
00702  M00S00567.dsp     ---|          LIST   -X
00703  M00S00568.dsp     ---|*CALL     COMSSSJ
00704  M00S00569.dsp     ---|          LIST   X
00705  M00S00570.dsp     ---|*CALL     COMSWEI
00706  M00S00571.dsp     ---|          LIST   -X
00707  M00S00572.dsp     ---|*CALL     COMSZOL

Seq #  *Modification Id* Act 
----------------------------+
00708  M01S00573.v23l617 ---|*CALL     COMS1DS
00709  M00S00574.dsp     ---|          TITLE  MACRO DEFINITIONS.
00710  M00S00575.dsp     ---|**        DRIN - DEFAULT ROUTING INFORMATION.
00711  M00S00576.dsp     ---|*
00712  M00S00577.dsp     ---|*         DRIN   DC,EX,IC,QT
00713  M00S00578.dsp     ---|*
00714  M00S00579.dsp     ---|*         ENTRY  *DC* = DISPOSITION CODE MNENONIC
00715  M00S00580.dsp     ---|*                *EX* = EXTERNAL CHARACTERISTICS CODE.
00716  M00S00581.dsp     ---|*                *IC* = INTERNAL CHARACTERISTICS CODE.
00717  M00S00582.dsp     ---|*                *QT* = QUEUE TYPE.
00718  M00S00583.dsp     ---|
00719  M00S00584.dsp     ---|
00720  M00S00585.dsp     ---|          PURGMAC  DRIN
00721  M00S00586.dsp     ---|
00722  M00S00587.dsp     ---| DRIN     MACRO  DC,EX,IC,QT
00723  M00S00588.dsp     ---|          MACREF DRIN
00724  M00S00589.dsp     ---| .A       IF     DEF,DC_$
00725  M00S00590.dsp     ---|          VFD    12/0L_DC,6/QT,3/EX,3/IC
00726  M00S00591.dsp     ---| .A       ENDIF
00727  M00S00592.dsp     ---| DRIN     ENDM
00728  M00S00593.dsp     ---| ERROR    SPACE  4
00729  M00S00594.dsp     ---|**        ERROR - SET ERROR CODE.
00730  M00S00595.dsp     ---|*
00731  M00S00596.dsp     ---|*         ERROR  ER
00732  M00S00597.dsp     ---|*
00733  M00S00598.dsp     ---|*         ENTRY  *ER* = ERROR CODE.
00734  M00S00599.dsp     ---|
00735  M00S00600.dsp     ---|
00736  M00S00601.dsp     ---|          PURGMAC  ERROR
00737  M00S00602.dsp     ---|
00738  M00S00603.dsp     ---| ERROR    MACRO  E
00739  M00S00604.dsp     ---|          MACREF ERROR
00740  M00S00605.dsp     ---|          LDN    E
00741  M00S00606.dsp     ---|          RJM    ERR
00742  M00S00607.dsp     ---|          ENDM
00743  M00S00608.dsp     ---| OVERLAY  SPACE  4
00744  M00S00609.dsp     ---|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00745  M00S00610.dsp     ---|*
00746  M00S00611.dsp     ---|*
00747  M00S00612.dsp     ---|*         OVERLAY  (TEXT),OVL
00748  M00S00613.dsp     ---|*
00749  M00S00614.dsp     ---|*         ENTRY  *TEXT* = TEXT OF SUBTITLE.
00750  M00S00615.dsp     ---|*         *OVL* = ORIGIN OF OVERLAY
00751  M00S00616.dsp     ---|
00752  M00S00617.dsp     ---|
00753  M00S00618.dsp     ---| .N       SET    0
00754  M00S00619.dsp     ---| OVLB     MICRO  1,, 3D      BASE OVERLAY NAME
00755  M00S00620.dsp     ---|
00756  M00S00621.dsp     ---|
00757  M00S00622.dsp     ---|          PURGMAC OVERLAY
00758  M00S00623.dsp     ---|
00759  M00S00624.dsp     ---| OVERLAY  MACRO  TEXT,OVL
00760  M00S00625.dsp     ---|          MACREF OVERLAY
00761  M00S00626.dsp     ---|          QUAL
00762  M00S00627.dsp     ---| .N       SET    .N+1
00763  M00S00628.dsp     ---| .M       MICRO  .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00764  M00S00629.dsp     ---| .O       MICRO  1,3, "OVLB"".M"
00765  M00S00630.dsp     ---|          QUAL   ".O"
00766  M00S00631.dsp     ---|          TTL    DSP/".O" - TEXT
00767  M00S00632.dsp     ---|          TITLE
00768  M00S00633.dsp     ---|          IDENT  ".O",OVL    TEXT
00769  M00S00634.dsp     ---|*COMMENT  DSP - TEXT

Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00635.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1981.

Seq #  *Modification Id* Act 
----------------------------+
00771  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00004.251l664 ---| RDS      EQU    RMS
00773  M02S00005.251l664 ---| WDS      EQU    WMS
00774  M00S00636.dsp     ---|          ORG    OVL
00775  M00S00637.dsp     ---|          LJM    *
00776  M00S00638.dsp     ---|          UJN    *-2
00777  M00S00639.dsp     ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00778  M01S00001.ns2217  +++| SCLASS   SPACE  4,15
00779  M01S00002.ns2217  +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00780  M01S00003.ns2217  +++|*
00781  M01S00004.ns2217  +++|*         SCLASS NM,MN,DF,ST,TX
00782  M01S00005.ns2217  +++|*
00783  M01S00006.ns2217  +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00784  M01S00007.ns2217  +++|*                *MN* = TWO CHARACTER MNEMONIC.
00785  M01S00008.ns2217  +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00786  M01S00009.ns2217  +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00787  M01S00010.ns2217  +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00788  M01S00011.ns2217  +++|*
00789  M01S00012.ns2217  +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00790  M01S00013.ns2217  +++|*                THIS MACRO.
00791  M01S00014.ns2217  +++|
00792  M01S00015.ns2217  +++|
00793  M01S00016.ns2217  +++|          PURGMAC SCLASS
00794  M01S00017.ns2217  +++|
00795  M01S00018.ns2217  +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00796  M01S00019.ns2217  +++| .A       IFC    NE,$NM$SSSC$
00797  M01S00020.ns2217  +++| .SCL     RMT
00798  M01S00021.ns2217  +++|          INDEX  NM,1R_DF    TX
00799  M01S00022.ns2217  +++| .SCL     RMT
00800  M01S00023.ns2217  +++| .SCLVSP  RMT
00801  M01S00024.ns2217  +++|          INDEX  NM,MN_MK    TX
00802  M01S00025.ns2217  +++| .SCLVSP  RMT
00803  M01S00026.ns2217  +++| .A       ENDIF
00804  M01S00027.ns2217  +++| SCLASS   ENDM
00805  M01S00028.ns2217  +++|
00806  M01S00029.ns2217  +++|
00807  M01S00030.ns2217  +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00808  M01S00031.ns2217  +++|*CALL     COMSSCD

Seq #  *Modification Id* Act 
----------------------------+
00809  M01S00001.v22l602 +++| SUBSYST  SPACE  4,10
00810  M01S00002.v22l602 +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00811  M01S00003.v22l602 +++|*
00812  M01S00004.v22l602 +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00813  M01S00005.v22l602 +++|*
00814  M01S00006.v22l602 +++|*         ENTRY  *NAME*= 3 CHARACTER SUBSYSTEM NAME.
00815  M01S00007.v22l602 +++|*                *ID* = SUBSYSTEM ID.
00816  M01S00008.v22l602 +++|*                *PP* = PP NAME FOR PP-INITIATED SUBSYSTEM.
00817  M01S00009.v22l602 +++|*
00818  M01S00010.v22l602 +++|*         GENERATE TABLE OF SUBSYSTEM NAMES AND ID-S FOR
00819  M01S00011.v22l602 +++|*         NON-PP-INITIATED SUBSYSTEMS.
00820  M01S00012.v22l602 +++|*
00821  M01S00013.v22l602 +++|*T        24/  4LNAME, 12/  SSID

Figure

00822  M01S00014.v22l602 +++|
00823  M01S00015.v22l602 +++|
00824  M01S00016.v22l602 +++|          PURGMAC  SUBSYST
00825  M01S00017.v22l602 +++|
00826  M01S00018.v22l602 +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00827  M01S00019.v22l602 +++| .A       IFC    EQ,$PP$$
00828  M01S00020.v22l602 +++| .SUB     RMT
00829  M01S00021.v22l602 +++| .NM      EQU    *
00830  M01S00022.v22l602 +++|          VFD    24/4L_NM_ ,12/ID
00831  M01S00023.v22l602 +++| TSUBE    EQU    *-.NM
00832  M01S00024.v22l602 +++| .SUB     RMT
00833  M01S00025.v22l602 +++| .A       ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00834  M01S00011.ns2493  +++| .SSN     RMT
00835  M01S00012.ns2493  +++| .NM_$    EQU    *
00836  M01S00013.ns2493  +++|          VFD    24/4L_NM
00837  M01S00014.ns2493  +++| TSSNE    EQU    *-.NM_$
00838  M01S00015.ns2493  +++| .SSN     RMT

Seq #  *Modification Id* Act 
----------------------------+
00839  M01S00026.v22l602 +++| SUBSYST  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00840  M01S00016.ns2493  +++|
00841  M01S00017.ns2493  +++|
00842  M01S00018.ns2493  +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
00843  M01S00019.ns2493  +++|*CALL     COMSSSD
00844  M00S00640.dsp     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS
00845  M00S00641.dsp     +++|**        DIRECT LOCATION ASSIGNMENTS.
00846  M00S00642.dsp     +++|
00847  M00S00643.dsp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00848  M01S00028.v23l617 +++| T8       EQU    16          TEMPORARY STORAGE
00849  M00S00644.dsp     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00850  M00S00645.dsp     +++| QA       EQU    26          ORDINAL OF QFT ENTRY (*0DQ*)
00851  M00S00646.dsp     +++| ST       EQU    27          STATUS FLAGS
00852  M00S00647.dsp     +++| CN       EQU    30 - 34     ASSEMBLE BUFFER (5 LOCATIONS)
00853  M00S00648.dsp     +++| RI       EQU    35 - 36     RANDOM INDEX
00854  M00S00649.dsp     +++| JF       EQU    35          JOB FIELD LENGTH (USED BY 0VJ)
00855  M00S00650.dsp     +++| UN       EQU    40 - 44     USER NAME (5 LOCATIONS)
00856  M00S00651.dsp     +++| OT       EQU    46          ORIGIN TYPE
00857  M00S00652.dsp     +++| ER       EQU    47          ERROR STATUS
00858  M00S00653.dsp     +++| FA       EQU    57          FST ADDRESS
00859  M00S00654.dsp     +++| FN       EQU    60 - 64     FNT ENTRY (5 LOCATIONS)
00860  M00S00655.dsp     +++| FB       EQU    65 - 66     FLAG BITS FROM REQUEST BLOCK (2 LOCATIONS)
00861  M00S00656.dsp     +++| QT       EQU    67          QUEUE TYPE
00862  M00S00657.dsp     +++|          SPACE  4,20
00863  M00S00658.dsp     +++|**        STATUS WORD (ST) BIT DEFINITIONS.
00864  M00S00659.dsp     +++|*
00865  M00S00660.dsp     +++|*         BIT    SETTING     EXPLAINATION
00866  M00S00661.dsp     +++|*
00867  M00S00662.dsp     +++|*         0      1           NOT A SUBSYSTEM (SSFL)
00868  M00S00663.dsp     +++|*         1      1           FILE PREVIOUSLY ROUTED (DSFL)
00869  M00S00664.dsp     +++|*         2      1           ISSUE *UADM* FUNCTION (IUFL)
00870  M00S00665.dsp     +++|*         3      1           FILE CREATION NEEDED (FCFL)
00871  M00S00666.dsp     +++|*         4      1           SCHEDULER NEEDED (SCFL)
00872  M00S00667.dsp     +++|*         5      1           CONTROL POINT IS *SYOT* (SYFL)
00873  M00S00668.dsp     +++|*         6      1           DISPOSITION CODE SPECIFIED (DCFL)
00874  M00S00669.dsp     +++|*         7      1           CALLING PROGRAM IS *SSJ=* (SJFL)
00875  M00S00670.dsp     +++|*         10     1           DESTINATION LID SPECIFIED (DLFL)
00876  M00S00671.dsp     +++|*         11     1           SOURCE LID SPECIFIED (SLFL)
00877  M00S00672.dsp     +++|*         12     1           FILE LOCKED (LKFL)
00878  M00S00673.dsp     +++|*         13     1           FILE IS BEING REQUEUED (RQFL)
00879  M00S00674.dsp     +++|
00880  M00S00675.dsp     +++|
00881  M00S00676.dsp     +++| SSFL     EQU    1           SUBSYSTEM FLAG
00882  M00S00677.dsp     +++| DSFL     EQU    2           PREVIOUSLY ROUTED FLAG
00883  M00S00678.dsp     +++| IUFL     EQU    4           ISSUE *UADM* FLAG
00884  M00S00679.dsp     +++| FCFL     EQU    10B         FILE CREATION FLAG
00885  M00S00680.dsp     +++| SCFL     EQU    20B         SCHEDULER NEEDED FLAG
00886  M00S00681.dsp     +++| SYFL     EQU    40B         *SYOT* CONTROL POINT FLAG
00887  M00S00682.dsp     +++| DCFL     EQU    100B        DISPOSITION CODE SPECIFIED FLAG
00888  M00S00683.dsp     +++| SJFL     EQU    200B        *SSJ=* PROGRAM FLAG
00889  M00S00684.dsp     +++| DLFL     EQU    400B        DESTINATION LID FLAG
00890  M00S00685.dsp     +++| SLFL     EQU    1000B       SOURCE LID FLAG
00891  M00S00686.dsp     +++| LKFL     EQU    2000B       FILE LOCKED FLAG
00892  M00S00687.dsp     +++| RQFL     EQU    4000B       FILE BEING REQUEUED FLAG
00893  M01S00029.v23l617 +++|          SPACE  4,10
00894  M01S00030.v23l617 +++|**        SYMBOL DEFINITIONS.
00895  M01S00031.v23l617 +++|
00896  M01S00032.v23l617 +++|
00897  M01S00033.v23l617 +++| LHLAT    EQU    7000B       LOCAL HOST LID ATTRIBUTES (H, E, V)
00898  M00S00688.dsp     +++|          SPACE  4,10
00899  M00S00689.dsp     +++|          TITLE  MAIN PROGRAM.
00900  M00S00690.dsp     +++|**        DSP - MAIN PROGRAM.
00901  M00S00691.dsp     +++|
00902  M00S00692.dsp     +++|          ORG    PPFW
00903  M00S00693.dsp     +++|
00904  M00S00694.dsp     +++|
00905  M00S00695.dsp     +++| DSP      RJM    PRS         PRESET ROUTINE
00906  M00S00696.dsp     +++|          RJM    FFQ         FIND FILE TO QUEUE
00907  M00S00697.dsp     +++|          RJM    DDC         DETERMINE DISPOSITION CODE
00908  M00S00698.dsp     +++|          NJN    DSP1        IF NOT CHANGE TO LOCAL FILE

Seq #  *Modification Id* Act 
----------------------------+
00909  M01S00699.251l664 ---|          EXECUTE  3DC       LOAD *CHANGE TO LOCAL FILE* OVERLAY

Seq #  *Modification Id* Act 
----------------------------+
00910  M01S00009.251l664 +++|          EXECUTE  3DD       LOAD *CHANGE TO LOCAL FILE* OVERLAY
00911  M00S00700.dsp     +++|          RJM    CLF         CHANGE TO LOCAL FILE
00912  M00S00701.dsp     +++|          LJM    DSP8        RETURN INFORMATION TO PARAMETER BLOCK
00913  M00S00702.dsp     +++|
00914  M00S00703.dsp     +++| DSP1     RJM    VUL         VALIDATE USER LIMITS
00915  M00S00704.dsp     +++|          RJM    SQS         SET QUEUED FILE SYSTEM SECTOR

Seq #  *Modification Id* Act 
----------------------------+
00916  M01S00010.ns2156  +++| DSPG     PSN
00917  M01S00011.ns2156  +++|*         UJN    DSP4        (SPECIAL REQUEUE OPERATION)
00918  M00S00705.dsp     +++|
00919  M00S00706.dsp     +++|*         PROCESS FILE DESTINATION.
00920  M00S00707.dsp     +++|
00921  M00S00708.dsp     +++|          RJM    SDC         SET DISPOSITION CODE
00922  M00S00709.dsp     +++|          EXECUTE  3DA       LOAD FILE DESTINATION ROUTINES
00923  M00S00710.dsp     +++|          RJM    SFD         SET FILE DESTINATION
00924  M00S00711.dsp     +++|          LDD    FB+1
00925  M00S00712.dsp     +++|          SHN    21-13
00926  M00S00713.dsp     +++|          PJN    DSP2        IF NOT SUBSYSTEM INITIATION
00927  M00S00714.dsp     +++|          RJM    PSI         PROCESS SUBSYSTEM INITIATION
00928  M00S00715.dsp     +++| DSP2     LDD    QT
00929  M00S00716.dsp     +++|          LMK    INQT
00930  M00S00717.dsp     +++|          NJN    DSP3        IF NOT ROUTE TO INPUT
00931  M00S00718.dsp     +++|          RJM    VIF         VERIFY INPUT FILE
00932  M00S00719.dsp     +++|          UJN    DSP4        UPDATE SYSTEM SECTOR AND EOI
00933  M00S00720.dsp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00934  M01S00721.251l664 ---| DSP3     RJM    SOD         SET OUTPUT DATA

Seq #  *Modification Id* Act 
----------------------------+
00935  M01S00010.251l664 +++| DSP3     EXECUTE  3DB       LOAD FILE ATTRIBUTE ROUTINES
00936  M01S00011.251l664 +++|          RJM    SOD         SET OUTPUT DATA
00937  M00S00722.dsp     +++|
00938  M00S00723.dsp     +++|*         UPDATE SYSTEM SECTOR AND EOI.
00939  M00S00724.dsp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00725.251l664 ---| DSP4     EXECUTE  3DB       LOAD SYSTEM SECTOR/EOI UPDATE ROUTINES

Seq #  *Modification Id* Act 
----------------------------+
00941  M01S00012.251l664 +++| DSP4     EXECUTE  3DC       LOAD SYSTEM SECTOR/EOI UPDATE ROUTINES

Seq #  *Modification Id* Act 
----------------------------+
00942  M01S00012.ns2156  +++| DSPH     PSN
00943  M01S00013.ns2156  +++|*         UJN    DSP5        (SPECIAL REQUEUE OPERATION)
00944  M00S00726.dsp     +++|          RJM    BSE         CHECK FOR BINARY CARD SEQUENCE ERRORS
00945  M00S00727.dsp     +++|          RJM    PUF         PROCESS USER/FAMILY NAMES

Seq #  *Modification Id* Act 
----------------------------+
00946  M01S00001.ns2580  +++|          RJM    SCP         SET CHARGE/PROJECT DATA
00947  M00S00728.dsp     +++|          RJM    SLI         SET LOGICAL IDENTIFIERS
00948  M00S00729.dsp     +++|          RJM    PUP         PROCESS UJN PRESENCE
00949  M00S00730.dsp     +++|          LDD    MA          SET FN IN SYSTEM SECTOR
00950  M00S00731.dsp     +++|          CWD    FN
00951  M00S00732.dsp     +++|          CRM    FNSS,ON

Seq #  *Modification Id* Act 
----------------------------+
00952  M01S00733.dsp43   ---|          LDD    FB+1        CHECK FOR DEFERRED ROUTE

Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00001.dsp43   +++| DSP5     LDD    FB+1        CHECK FOR DEFERRED ROUTE
00954  M00S00734.dsp     +++|          SHN    21-0

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00735.dsp43   ---|          PJN    DSP5        IF IMMEDIATE ROUTE

Seq #  *Modification Id* Act 
----------------------------+
00956  M01S00002.dsp43   +++|          PJN    DSP5.1      IF IMMEDIATE ROUTE
00957  M00S00736.dsp     +++|
00958  M00S00737.dsp     +++|*         PROCESS DEFERRED ROUTE.
00959  M00S00738.dsp     +++|
00960  M00S00739.dsp     +++|          AOD    FS+4        SET FILE NOT BUSY
00961  M00S00740.dsp     +++|          AOM    WQSA        DO NOT PRESERVE FILE
00962  M00S00741.dsp     +++|          RJM    AEO         ATTACH QFT TO EJT

Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00742.ns2171  ---|          UJN    DSP6        WRITE SYSTEM SECTOR
00964  M01S00743.ns2171  ---|
00965  M01S00744.ns2171  ---|*         PROCESS IMMEDIATE ROUTE.
00966  M01S00745.ns2171  ---|

Seq #  *Modification Id* Act 
----------------------------+
00967  M01S00746.dsp43   ---| DSP5     LDN    IUFL        SET FLAG TO ISSUE *UADM* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00968  M02S00003.njdsp1  ---| DSP5.1   LDN    IUFL        SET FLAG TO ISSUE *UADM* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00969  M01S00747.njdsp1  ---|          RAD    ST

Seq #  *Modification Id* Act 
----------------------------+
00970  M01S00002.njdsp1  +++| DSP5.1   RJM    PIR         PROCESS IMMEDIATE ROUTE

Seq #  *Modification Id* Act 
----------------------------+
00971  M02S00034.dsp18   ---|          LDC    FLSS        GET ADDRESS OF SYSTEM SECTOR FILE LENGTH
00972  M02S00035.dsp18   ---|          RJM    RFI         SET FILE SIZE INDEX IN QFT ENTRY
00973  M00S00748.dsp     ---|
00974  M00S00749.dsp     ---|*         WRITE QUEUED FILE SYSTEM SECTOR.
00975  M00S00750.dsp     ---|

Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00751.v23l617 ---| DSP6     RJM    WQS         WRITE QUEUED FILE SYSTEM SECTOR

Seq #  *Modification Id* Act 
----------------------------+
00977  M01S00036.v23l617 +++|          RJM    WQS         WRITE QUEUED FILE SYSTEM SECTOR
00978  M00S00752.dsp     +++|
00979  M00S00753.dsp     +++|*         SAVE SYSTEM SECTOR FIELDS.
00980  M00S00754.dsp     +++|

Seq #  *Modification Id* Act 
----------------------------+
00981  M01S00755.ns2164  ---|          LDN    QFTE        COPY QFT ENTRY FROM SYSTEM SECTOR
00982  M01S00756.ns2164  ---|          STD    T1
00983  M01S00757.ns2164  ---|          LDD    MA
00984  M01S00758.ns2164  ---|          CWM    IOSS,T1
00985  M01S00759.ns2164  ---|          ERRNG  6-QFTE      QFT ENTRY TOO LONG FOR MESSAGE BUFFER
00986  M01S00760.ns2164  ---|          SBD    T1
00987  M01S00761.ns2164  ---|          CRM    QBUF,T1

Seq #  *Modification Id* Act 
----------------------------+
00988  M01S00001.ns2164  +++|          LDN    QFTE*5-1    SAVE QFT ENTRY
00989  M01S00002.ns2164  +++|          STD    T1
00990  M01S00003.ns2164  +++| DSP6.1   LDM    IOSS,T1
00991  M01S00004.ns2164  +++|          STM    QBUF,T1
00992  M01S00005.ns2164  +++|          SOD    T1
00993  M01S00006.ns2164  +++|          PJN    DSP6.1      IF MORE TO MOVE

Seq #  *Modification Id* Act 
----------------------------+
00994  M01S00762.dsp27   ---|          LDM    OJSS        SAVE JSN

Seq #  *Modification Id* Act 
----------------------------+
00995  M01S00001.dsp27   +++|          LDM    IOSS+5*JSNQ+0  SAVE JSN
00996  M00S00763.dsp     +++|          STM    DSPD

Seq #  *Modification Id* Act 
----------------------------+
00997  M01S00764.dsp27   ---|          LDM    OJSS+1

Seq #  *Modification Id* Act 
----------------------------+
00998  M01S00002.dsp27   +++|          LDM    IOSS+5*JSNQ+1
00999  M00S00765.dsp     +++|          STM    DSPE
01000  M00S00766.dsp     +++|          LDD    FB+1
01001  M00S00767.dsp     +++|          SHN    21-0
01002  M00S00768.dsp     +++|          MJN    DSP7        IF DEFERRED ROUTE

Seq #  *Modification Id* Act 
----------------------------+
01003  M01S00769.242l642 ---|
01004  M01S00770.242l642 ---|*         ISSUE ACCOUNTING MESSAGE FOR IMMEDIATE ROUTE.
01005  M01S00771.242l642 ---|
01006  M01S00772.242l642 ---|          LDC    3RBLQ       ISSUE *ABLQ* MESSAGE
01007  M01S00773.242l642 ---|*         LDC    3RRRQ       (IF ISSUING *ARRQ* MESSAGE)
01008  M01S00774.242l642 ---| DSPA     EQU    *-2
01009  M01S00775.242l642 ---|          RJM    IAM         ISSUE ACCOUNTING MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01010  M01S00014.ns2156  +++| DSPI     PSN

Seq #  *Modification Id* Act 
----------------------------+
01011  M02S00015.242l642 ---|*         UJN    DSP7        (SPECIAL REQUEUE OPERATION)

Seq #  *Modification Id* Act 
----------------------------+
01012  M01S00006.242l642 +++|*         UJN    DSP6.2      (SPECIAL REQUEUE OPERATION)
01013  M00S00776.dsp     +++|

Seq #  *Modification Id* Act 
----------------------------+
01014  M01S00003.njdsp1  +++|*         FOR *NJEF* JOBS, COPY *NJEF* TRAILING INFORMATION.
01015  M00S00777.dsp     +++|*         WRITE QUEUED FILE EOI SECTOR (IMMEDIATE ROUTE ONLY).
01016  M00S00778.dsp     +++|
01017  M01S00004.njdsp1  +++|          RJM    CNT         COPY *NJEF* TRAILER (IF NECESSARY)
01018  M00S00779.dsp     +++|          RJM    IES         INITIALIZE EOI SECTOR
01019  M00S00780.dsp     +++|          RJM    PRT         PROCESS REMOTE TEXT
01020  M00S00781.dsp     +++|          RJM    WES         WRITE EOI SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01021  M01S00007.242l642 +++|
01022  M01S00008.242l642 +++|*         ISSUE ACCOUNTING MESSAGE FOR IMMEDIATE ROUTE.
01023  M01S00009.242l642 +++|

Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00010.ns2663  ---| DSP6.2   LDC    3RBLQ       ISSUE *ABLQ* MESSAGE
01025  M02S00011.ns2663  ---|*         LDC    3RRRQ       (IF ISSUING *ARRQ* MESSAGE)
01026  M02S00012.ns2663  ---| DSPA     EQU    *-2
01027  M02S00013.ns2663  ---|          RJM    IAM         ISSUE ACCOUNTING MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01028  M01S00003.ns2663  +++| DSP6.2   RJM    IAM         ISSUE ACCOUNTING MESSAGE
01029  M00S00782.dsp     +++|
01030  M00S00783.dsp     +++|*         UPDATE AND RELEASE QFT.
01031  M00S00784.dsp     +++|
01032  M00S00785.dsp     +++| DSP7     RJM    CLE         COMPLETE LOCAL ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01033  M01S00786.ns2242  ---|          LDN    QFTE        SET QFT LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01034  M01S00001.ns2242  +++|          LDN    0
01035  M01S00002.ns2242  +++|*         LDN    1           (IF ABORTED INPUT FILE)
01036  M01S00003.ns2242  +++| DSPF     EQU    *-1
01037  M01S00004.ns2242  +++|          ZJN    DSP7.1      IF NOT ABORTED INPUT FILE
01038  M01S00005.ns2242  +++|          STM    QBUF+ENTQ*5+4   SET ABORTED FLAG IN QFT
01039  M01S00006.ns2242  +++|          LDN    0
01040  M01S00007.ns2242  +++|          STM    QBUF+ENTQ*5+3

Seq #  *Modification Id* Act 
----------------------------+
01041  M02S00008.ns2369  ---| DSP7.1   LDN    QFTE        SET QFT LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01042  M01S00001.ns2369  +++| DSP7.1   LDN    QFTE-1
01043  M00S00787.dsp     +++|          STD    T5
01044  M00S00788.dsp     +++|          SFA    QFT,QA      GET ADDRESS OF QFT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00789.ns2369  ---|          CWM    QBUF,T5

Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00002.ns2369  +++|          ADN    1           WRITE QFT DATA
01047  M01S00003.ns2369  +++|          CWM    QBUF+5,T5
01048  M01S00004.ns2369  +++|          SBN    QFTE        WRITE INTERLOCK WORD
01049  M01S00005.ns2369  +++|          CWM    QBUF,ON
01050  M00S00790.dsp     +++|
01051  M00S00791.dsp     +++|*         REQUEST SCHEDULER IF THIS IS FOR AN INPUT FILE.
01052  M00S00792.dsp     +++|
01053  M00S00793.dsp     +++|          LDD    ST          CHECK IF SCHEDULER NEEDED
01054  M00S00794.dsp     +++|          LPN    SCFL
01055  M00S00795.dsp     +++|          ZJN    DSP8        IF SCHEDULER NOT NEEDED
01056  M00S00796.dsp     +++|          LDN    ZERL        CLEAR PARAMETERS FOR CALL
01057  M00S00797.dsp     +++|          CRD    CM
01058  M00S00798.dsp     +++|          AOD    CM+2        SET SCHEDULER FLAG
01059  M00S00799.dsp     +++|          MONITOR  RSJM      REQUEST SCHEDULER
01060  M00S00800.dsp     +++|
01061  M00S00801.dsp     +++|*         RETURN REQUIRED INFORMATION TO PARAMETER BLOCK.
01062  M00S00802.dsp     +++|
01063  M00S00803.dsp     +++| DSP8     LDD    FB
01064  M00S00804.dsp     +++|          SHN    21-5
01065  M00S00805.dsp     +++|          PJN    DSPX        IF FILE NAME NOT TO BE RETURNED
01066  M00S00806.dsp     +++|          LDN    ZERL        RETURN INFORMATION TO CALLER
01067  M00S00807.dsp     +++|          CRD    FN
01068  M00S00808.dsp     +++|          LDC    **          (SET BY PRESET)
01069  M00S00809.dsp     +++| DSPC     EQU    *-1
01070  M00S00810.dsp     +++|          STD    FN+4
01071  M00S00811.dsp     +++|          LDC    *           (FIRST PART OF JSN)
01072  M00S00812.dsp     +++| DSPD     EQU    *-1
01073  M00S00813.dsp     +++|          STD    FN
01074  M00S00814.dsp     +++|          LDC    *           (SECOND HALF OF JSN)
01075  M00S00815.dsp     +++| DSPE     EQU    *-1
01076  M00S00816.dsp     +++|          STD    FN+1
01077  M00S00817.dsp     +++|          UJN    DSP9        RETURN JSN TO CALLER
01078  M00S00818.dsp     +++|
01079  M00S00819.dsp     +++|*         RETURN HERE FROM ERROR PROCESSOR.
01080  M00S00820.dsp     +++|
01081  M00S00821.dsp     +++| DSPX     RJM    GFA         READ FIRST WORD OF PARAMETER BLOCK
01082  M00S00822.dsp     +++|          CRD    FN
01083  M00S00823.dsp     +++| DSP9     LDD    FN+3        SET ERROR FLAG
01084  M00S00824.dsp     +++|          SCN    77
01085  M00S00825.dsp     +++|          LMC    **
01086  M00S00826.dsp     +++| DSPB     EQU    *-1         (ERROR CODE SET BY *ERP*)
01087  M00S00827.dsp     +++|          STD    FN+3
01088  M00S00828.dsp     +++|          LDD    FN+4        SET FUNCTION COMPLETE
01089  M00S00829.dsp     +++|          SCN    1
01090  M00S00830.dsp     +++|          LMN    1
01091  M00S00831.dsp     +++|          STD    FN+4
01092  M00S00832.dsp     +++|          RJM    GFA         REWRITE FIRST WORD OF PARAMETER BLOCK
01093  M00S00833.dsp     +++|          CWD    FN
01094  M00S00834.dsp     +++|          LJM    DPP         DROP PP
01095  M00S00835.dsp     +++|          SPACE  4,10
01096  M00S00836.dsp     +++|**        MEMORY LOCATIONS.
01097  M00S00837.dsp     +++|

Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00001.dsp12   +++| CUAV     CON    0           *COMPCUA* USER ACCESS PRIVILEGES
01099  M00S00838.dsp     +++| DDEC     CON    0           DATA DECLARATION

Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00839.v23l617 ---| DLAT     CON    PIDAT       ATTRIBUTES OF DLID

Seq #  *Modification Id* Act 
----------------------------+
01101  M01S00037.v23l617 +++| DLAT     CON    LHLAT       ATTRIBUTES OF DLID
01102  M00S00840.dsp     +++| DLID     CON    0,0         DESTINATION LOGICAL ID
01103  M00S00841.dsp     +++| EBIT     CON    0,0         EXTENDED PARAMETER BLOCK FLAG BITS
01104  M00S00842.dsp     +++| EJTO     CON    0           EJT ORDINAL
01105  M00S00843.dsp     +++| ERTL     CON    0           EXPLICIT REMOTE TEXT LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01106  M01S00015.ns2556  +++| FJSN     BSS    2           FORCED JSN OR SUBSYSTEM NAME

Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00020.ns2493  +++| FSJS     CON    0           FORCED JSN FLAG
01108  M00S00844.dsp     +++| FSOT     CON    4000        FORCED ORIGIN TYPE
01109  M00S00845.dsp     +++| FSSC     CON    0           FORCED SERVICE CLASS
01110  M00S00846.dsp     +++| INFL     CON    0           INPUT FLAGS
01111  M00S00847.dsp     +++| IRTL     CON    0           IMPLICIT REMOTE TEXT LENGTH
01112  M00S00848.dsp     +++| JBOT     CON    0           JOB ORIGIN TYPE
01113  M00S00849.dsp     +++| LFAL     CON    0           LOCAL FILE ACCESS LEVEL
01114  M00S00850.dsp     +++| LFST     CON    0           LOCAL FILE STATUS
01115  M00S00851.dsp     +++| SBCP     CON    0           CP NUMBER FOR SUSBYSTEM INITIATION
01116  M00S00852.dsp     +++| SBID     CON    0           SUBSYSTEM ID

Seq #  *Modification Id* Act 
----------------------------+
01117  M01S00853.ns2556  ---| SBSN     BSS    2           SUBSYSTEM NAME

Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00854.v23l617 ---| SLAT     CON    PIDAT       ATTRIBUTES OF SLID

Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00038.v23l617 +++| SLAT     CON    LHLAT       ATTRIBUTES OF SLID
01120  M00S00855.dsp     +++| SLID     CON    0,0         SOURCE LOGICAL ID

Seq #  *Modification Id* Act 
----------------------------+
01121  M01S00008.tldsp1  +++| TLFC     CON    0           *TLF* CALL
01122  M00S00856.dsp     +++|          SPACE  4,10
01123  M00S00857.dsp     +++|*         BUFFER DEFINITIONS AND LOAD ADDRESSES.
01124  M00S00858.dsp     +++|
01125  M00S00859.dsp     +++|
01126  M00S00860.dsp     +++| .OVL0    MAX    ZBFL,ZDQL   LENGTH OF *OVL0* BUFFER
01127  M00S00861.dsp     +++|
01128  M00S00862.dsp     +++| OVL0     EQU    EPFW-.OVL0  LOAD ADDRESS FOR *0BF* AND *0DQ*
01129  M00S00863.dsp     +++| OVL1     EQU    BFMS-ZAVL   LOAD ADDRESS FOR *0AV*
01130  M00S00864.dsp     +++| OVL2     EQU    EPFW-ZDFL   LOAD ADDRESS FOR *0DF*
01131  M00S00865.dsp     +++| OVL3     EQU    BFMS-ZVJL   LOAD ADDRESS FOR *0VJ*

Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00006.ns2369  +++| OVL6     EQU    BFMS-ZDQL   LOAD ADDRESS FOR *0DQ*

Seq #  *Modification Id* Act 
----------------------------+
01133  M02S00004.dsp45   ---| OVL7     EQU    BFMS-ZQML   LOAD ADDRESS FOR *0QM*

Seq #  *Modification Id* Act 
----------------------------+
01134  M01S00001.dsp45   +++| OVL7     EQU    BFMS-QFTE*5-ZQML  LOAD ADDRESS FOR *0QM*
01135  M00S00866.dsp     +++|
01136  M00S00867.dsp     +++| QBUF     EQU    BFMS-QFTE*5 QFT ENTRY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01137  M01S00001.dsp25   +++| EBUF     EQU    QBUF-502    EOI SECTOR BUFFER
01138  M00S00868.dsp     +++|
01139  M00S00869.dsp     +++| SBUF     EQU    OVL3-5-502  SECTOR BUFFER FOR INPUT FILE

Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00870.v23l617 ---| STMT     EQU    SBUF+2      JOB/USER STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00039.v23l617 +++| STMT     EQU    SBUF+2      JOB/USER COMMAND
01142  M00S00871.dsp     +++|          TITLE  RESIDENT ROUTINES.
01143  M00S00872.dsp     +++| DPP      SPACE  4,10
01144  M00S00873.dsp     +++|**        DPP - DROP PP.
01145  M00S00874.dsp     +++|
01146  M00S00875.dsp     +++|
01147  M00S00876.dsp     +++| DPP      BSS    0           ENTRY
01148  M00S00877.dsp     +++| DPPA     LDN    0
01149  M00S00878.dsp     +++|*         LDN    1           (SET FILE NOT BUSY)
01150  M00S00879.dsp     +++|          ZJN    DPP1        IF *FNB* CALL NOT NEEDED
01151  M00S00880.dsp     +++|          RJM    FNB         SET FILE NONBUSY
01152  M00S00881.dsp     +++| DPP1     LDD    ST          CHECK IF *UADM* TO BE ISSUED
01153  M00S00882.dsp     +++|          LPN    IUFL
01154  M00S00883.dsp     +++|          NJN    DPP2        IF UADM REQUEST PRESENT
01155  M00S00884.dsp     +++|          MONITOR DPPM       DROP PPU
01156  M00S00885.dsp     +++|          UJN    DPP3        ENTER PP RESIDENT
01157  M00S00886.dsp     +++|
01158  M00S00887.dsp     +++| DPP2     LDN    1           SET WORD COUNT OF OPTIONS
01159  M00S00888.dsp     +++|          STD    CM+1
01160  M00S00889.dsp     +++|          LDN    0           SPECIFY DROP OF PPU
01161  M00S00890.dsp     +++|          STD    CM+2
01162  M00S00891.dsp     +++|          LDD    MA          UPDATE PRU LIMIT
01163  M00S00892.dsp     +++|          CWM    DPPB,CM+1
01164  M00S00893.dsp     +++|          MONITOR UADM
01165  M00S00894.dsp     +++| DPP3     LJM    PPR         ENTER PP RESIDENT
01166  M00S00895.dsp     +++|
01167  M00S00896.dsp     +++|
01168  M00S00897.dsp     +++| DPPB     CON    CICS

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00001.ns2171  +++|*         CON    CDCS        (DEFERRED ROUTE)
01170  M00S00898.dsp     +++|          CON    ACLW
01171  M00S00899.dsp     +++|          CON    0D*100+18D
01172  M00S00900.dsp     +++| DPPC     CON    0
01173  M00S00901.dsp     +++|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00014.242l642 +++| EER      SPACE  4,15
01175  M01S00015.242l642 +++|**        EER - EVALUATE MASS STORAGE ERROR RETURN.
01176  M01S00016.242l642 +++|*
01177  M01S00017.242l642 +++|*         ENTRY  (T5) = EST ORDINAL.
01178  M01S00018.242l642 +++|*                (ST) = STATUS FLAGS.
01179  M01S00019.242l642 +++|*
01180  M01S00020.242l642 +++|*         EXIT   JOB IS ROLLED OUT TO WAIT FOR A DEVICE TO BECOME
01181  M01S00021.242l642 +++|*                ACCESSIBLE IF A NON-SUBSYSTEM JOB ENCOUNTERED A
01182  M01S00022.242l642 +++|*                RECOVERABLE READ/WRITE ERROR ON THE DEVICE.
01183  M01S00023.242l642 +++|*
01184  M01S00024.242l642 +++|*         USES   FA, IR+4.
01185  M01S00025.242l642 +++|*
01186  M01S00026.242l642 +++|*         CALLS  FNB, *1RJ*.
01187  M01S00027.242l642 +++|*
01188  M01S00028.242l642 +++|*         MACROS ERROR, EXECUTE, PAUSE.
01189  M01S00029.242l642 +++|
01190  M01S00030.242l642 +++|
01191  M01S00031.242l642 +++| EER      BSS    0           ENTRY
01192  M01S00032.242l642 +++|          LDC    0           CHECK FILE STATUS
01193  M01S00033.242l642 +++| EERA     EQU    *-1
01194  M01S00034.242l642 +++|          ZJN    EER1        IF NO HIDDEN FNT ENTRY
01195  M01S00035.242l642 +++|          STD    FA
01196  M01S00036.242l642 +++| EER1     LDM    RDCT        CHECK ERROR STATUS
01197  M01S00037.242l642 +++|          SHN    21-12
01198  M01S00038.242l642 +++|          MJN    EER2        IF UNRECOVERABLE ERROR
01199  M01S00039.242l642 +++|          LDD    ST
01200  M01S00040.242l642 +++|          LPN    SSFL
01201  M01S00041.242l642 +++|          NJN    EER3        IF NOT SUBSYSTEM
01202  M01S00042.242l642 +++| EER2     ERROR  /ERR/EC30   * MASS STORAGE ERROR.*
01203  M01S00043.242l642 +++|

Seq #  *Modification Id* Act 
----------------------------+
01204  M02S00044.dsp35   ---| EER3     RJM    FNB         CLEAN UP WORKING FILES

Seq #  *Modification Id* Act 
----------------------------+
01205  M01S00001.dsp35   +++| EER3     LDD    T5
01206  M01S00002.dsp35   +++|          STD    IR+4        SET EST ORDINAL
01207  M01S00003.dsp35   +++|          RJM    FNB         CLEAN UP WORKING FILES

Seq #  *Modification Id* Act 
----------------------------+
01208  M01S00045.242l642 +++|          PAUSE
01209  M01S00046.242l642 +++|          LDD    CM+1
01210  M01S00047.242l642 +++|          NJP    DSPX        IF ERROR FLAG SET

Seq #  *Modification Id* Act 
----------------------------+
01211  M02S00048.dsp35   ---|          LDD    T5
01212  M02S00049.dsp35   ---|          STD    IR+4        SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
01213  M01S00050.242l642 +++|          EXECUTE  1RJ       ROLLOUT JOB
01214  M00S00902.dsp     +++| ERR      SPACE  4,10
01215  M00S00903.dsp     +++|**        ERR - ERROR PROCESSOR.
01216  M00S00904.dsp     +++|*
01217  M00S00905.dsp     +++|*         ENTRY  (A) = ERROR CODE.
01218  M00S00906.dsp     +++|*                (FA) = NFL FNT ENTRY OFFSET.
01219  M00S00907.dsp     +++|*
01220  M00S00908.dsp     +++|*         EXIT   TO *DSPX* AFTER PROCESSING ERROR.
01221  M00S00909.dsp     +++|*                TO *PPR* IF JOB IS TO BE ABORTED.
01222  M00S00910.dsp     +++|*
01223  M00S00911.dsp     +++|*         USES   ER.
01224  M00S00912.dsp     +++|
01225  M00S00913.dsp     +++|
01226  M00S00914.dsp     +++| ERR      SUBR               ENTRY
01227  M00S00915.dsp     +++|          STD    ER          SAVE ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00916.251l664 ---|          EXECUTE  3DD       LOAD ERROR PROCESSING OVERLAY

Seq #  *Modification Id* Act 
----------------------------+
01229  M01S00013.251l664 +++|          EXECUTE  3DE       LOAD ERROR PROCESSING OVERLAY
01230  M00S00917.dsp     +++|          RJM    ERP
01231  M00S00918.dsp     +++|*         LJM    DSPX        COMPLETE PROCESSING
01232  M00S00919.dsp     +++|*         LJM    PPR         COMPLETE PROCESSING
01233  M00S00920.dsp     +++| FNB      SPACE  4,10
01234  M00S00921.dsp     +++|**        FNB - SET FILE NOT BUSY.
01235  M00S00922.dsp     +++|*
01236  M00S00923.dsp     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
01237  M00S00924.dsp     +++|*                (FA) = NFL FNT ENTRY OFFSET.
01238  M00S00925.dsp     +++|*                (QA) = ORDINAL OF QFT TABLE ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01239  M01S00007.ns2369  +++|*                (FNBA) .NE. 0 IF QFT ENTRY CREATION MODE.
01240  M00S00926.dsp     +++|*
01241  M00S00927.dsp     +++|*         EXIT   FILE SET NOT BUSY OR RETURNED IF CREATED BY *DSP*.

Seq #  *Modification Id* Act 
----------------------------+
01242  M01S00928.ns2369  ---|*                GLOBAL ENTRY CLEARED IF MADE BY *DSP*.

Seq #  *Modification Id* Act 
----------------------------+
01243  M01S00008.ns2369  +++|*                QFT ENTRY CLEARED IF CREATION MODE.
01244  M00S00929.dsp     +++|*                (FA) = 0.
01245  M00S00930.dsp     +++|*                (QA) = 0.
01246  M00S00931.dsp     +++|*
01247  M00S00932.dsp     +++|*         USES   FA, QA, FS - FS+4.
01248  M00S00933.dsp     +++|*
01249  M00S00934.dsp     +++|*         CALLS  FQI, *0DF*, *0DQ*.
01250  M00S00935.dsp     +++|*
01251  M00S00936.dsp     +++|*         MACROS EXECUTE, NFA.
01252  M00S00937.dsp     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01253  M01S00938.ns2369  ---|*         NOTE   (QA) .NE. 0, ONLY IF THE QFT ENTRY IS
01254  M01S00939.ns2369  ---|*                INTERLOCKED.

Seq #  *Modification Id* Act 
----------------------------+
01255  M01S00009.ns2369  +++|*         NOTE   (QA) .NE. 0, ONLY IF THE QFT ENTRY IS INTERLOCKED.
01256  M00S00940.dsp     +++|
01257  M00S00941.dsp     +++|
01258  M00S00942.dsp     +++| FNB      SUBR               ENTRY/EXIT
01259  M00S00943.dsp     +++|
01260  M00S00944.dsp     +++|*         PROCESS QFT ENTRY.
01261  M00S00945.dsp     +++|
01262  M00S00946.dsp     +++|          LDD    QA
01263  M00S00947.dsp     +++|          ZJN    FNB3        IF NO GLOBAL ENTRY
01264  M00S00948.dsp     +++|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
01265  M01S00949.ns2369  ---|*         LDN    1           (IF ENTRY MADE BY *DSP*)

Seq #  *Modification Id* Act 
----------------------------+
01266  M01S00010.ns2369  +++|*         LDN    1           (CREATION MODE)
01267  M00S00950.dsp     +++| FNBA     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
01268  M01S00951.ns2369  ---|          ZJN    FNB1        IF ENTRY NOT MADE BY *DSP*

Seq #  *Modification Id* Act 
----------------------------+
01269  M01S00011.ns2369  +++|          ZJN    FNB1        IF NOT CREATION MODE QFT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01270  M01S00952.ns2358  ---|          LDD    FS          SET EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
01271  M02S00953.ns2358  ---|          STM    OVL0-1

Seq #  *Modification Id* Act 
----------------------------+
01272  M02S00001.ns2358  ---|          STM    OVL0-3

Seq #  *Modification Id* Act 
----------------------------+
01273  M01S00954.ns2358  ---|          LDD    FS+1        SET TRACK

Seq #  *Modification Id* Act 
----------------------------+
01274  M02S00955.ns2358  ---|          STM    OVL0-3

Seq #  *Modification Id* Act 
----------------------------+
01275  M02S00002.ns2358  ---|          STM    OVL0-1

Seq #  *Modification Id* Act 
----------------------------+
01276  M01S00956.ns2358  ---|          LDN    1           DO NOT RELEASE DISK SPACE
01277  M01S00957.ns2358  ---|          STM    OVL0-2

Seq #  *Modification Id* Act 
----------------------------+
01278  M02S00001.ns2369  ---|          LDN    1           SELECT NO DROP OF DISK SPACE

Seq #  *Modification Id* Act 
----------------------------+
01279  M01S00012.ns2369  +++|*         LDN    1           DROP QFT ENTRY ONLY

Proceed to Part 1