Deck CATLIST Part 001

16 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01067  M01S00572.catli1  ---| SSL4     SA3    SSLA
01068  M01S00573.catli1  ---|          SX6    X3-1
01069  M01S00574.catli1  ---|          SA6    A3
01070  M01S00575.catli1  ---|          NG     X6,SSL5     IF END OF ENTRIES
01071  M01S00576.catli1  ---|          SA1    SBUF+B7
01072  M01S00577.catli1  ---|          LX1    6           GET ACTUAL ENTRY
01073  M01S00578.catli1  ---|          BX6    X1
01074  M01S00579.catli1  ---|          SA6    CBUF
01075  M01S00580.catli1  ---|          RJ     GSL         GENERATE SHORT LIST
01076  M01S00581.catli1  ---|          SB7    B7+B1
01077  M01S00582.catli1  ---|          EQ     SSL4        GET NEXT ENTRY
01078  M01S00583.catli1  ---|
01079  M01S00584.catli1  ---| SSL5     SA2    MODE
01080  M01S00585.catli1  ---|          SA2    X2+TOFP
01081  M01S00586.catli1  ---|          SB2    X2
01082  M01S00587.catli1  ---|          JP     B2          GO TO OVERFLOW PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
01083  M01S00016.catli1  +++|          SA3    BOVF        CHECK IF MESSAGE NEEDED

Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00017.253l688 ---|          NZ     X3,SSL6     IF MESSAGE PREVIOUSLY OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
01085  M01S00037.253l688 +++|          NZ     X3,SSL7     IF MESSAGE PREVIOUSLY OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00018.catli1  +++|          MX6    1           SET BUFFER OVERFLOW FLAG
01087  M01S00019.catli1  +++|          SB2    B1
01088  M01S00020.catli1  +++|          SA6    BOVF
01089  M01S00021.catli1  +++|          RJ     ALN         ADVANCE LINE NUMBER
01090  M01S00022.catli1  +++|          WRITEC O,SSLD      OUTPUT WARNING MESSAGE
01091  M01S00023.catli1  +++|          WRITEC O,BLK
01092  M00S00588.catlist +++|
01093  M00S00589.catlist +++|*         SORT DIRECT AND INDIRECT FILES ALPHABETICALLY.
01094  M00S00590.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
01095  M01S00591.253l688 ---| SSL6     SX1    A0          NUMBER OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01096  M01S00038.253l688 +++| SSL7     SX1    A0          NUMBER OF ENTRIES
01097  M00S00592.catlist +++|          ZR     X1,CTL7     IF NO CATALOGS
01098  M00S00593.catlist +++|          SB2    B1
01099  M00S00594.catlist +++|          RJ     ALN         ADVANCE LINE NUMBER
01100  M00S00595.catlist +++|          SX1    A0
01101  M00S00596.catlist +++|          SB7    SBUF        ADDRESS OF BUFFER
01102  M00S00597.catlist +++|          RJ     SST=        SORT ENTRIES
01103  M00S00598.catlist +++|          SB2    B0          DETERMINE COUNT OF EACH TYPE

Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00599.253l688 ---| SSL7     SA1    SBUF+B2

Seq #  *Modification Id* Act 
----------------------------+
01105  M01S00039.253l688 +++| SSL8     SA1    SBUF+B2
01106  M00S00600.catlist +++|          LX1    59-57

Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00601.253l688 ---|          NG     X1,SSL8     IF DIRECT ACCESS FILE

Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00040.253l688 +++|          NG     X1,SSL9     IF DIRECT ACCESS FILE
01109  M00S00602.catlist +++|          SB2    B2+B1
01110  M00S00603.catlist +++|          SB3    A0-B2

Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00604.253l688 ---|          NZ     B3,SSL7     IF NOT END OF BUFFER
01112  M01S00605.253l688 ---| SSL8     SX6    B2          NUMBER OF INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01113  M01S00041.253l688 +++|          NZ     B3,SSL8     IF NOT END OF BUFFER
01114  M01S00042.253l688 +++| SSL9     SX6    B2          NUMBER OF INDIRECT ACCESS FILES
01115  M00S00606.catlist +++|          SA6    SSLA
01116  M00S00607.catlist +++|          SX7    A0-B2       NUMBER OF DIRECT ACCESS FILES
01117  M00S00608.catlist +++|          SA6    SSLC
01118  M00S00609.catlist +++|          SA7    SSLB
01119  M00S00610.catlist +++|
01120  M00S00611.catlist +++|*         LIST INDIRECT ACCESS FILES.
01121  M00S00612.catlist +++|
01122  M00S00613.catlist +++|          SA1    SSLA        GET COUNT OF INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00614.253l688 ---|          ZR     X1,SSL11    IF NO INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00043.253l688 +++|          ZR     X1,SSL12    IF NO INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01125  M01S00615.ns22000 ---|          RJ     NIP         PRESET *GNI*

Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00024.catli1  +++|          WRITEC O,BLK
01127  M00S00616.catlist +++|          WRITEH O,SSLE,SSLEL
01128  M00S00617.catlist +++|          WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
01129  M01S00001.catli3  +++|          SB2    B1+B1
01130  M01S00002.catli3  +++|          RJ     ALN         ADVANCE LINE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01131  M01S00025.catli1  +++|          SX7    8           SET LINE POSITION
01132  M01S00026.catli1  +++|          SA7    GSLA

Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00618.ns22000 ---| SSL9     SA3    SSLA

Seq #  *Modification Id* Act 
----------------------------+
01134  M01S00188.ns22000 +++|          SB2    B1+
01135  M01S00189.ns22000 +++|          RJ     ALN
01136  M01S00190.ns22000 +++|          SA1    SSLA        GET NUMBER OF INDIRECT FILES
01137  M01S00191.ns22000 +++|          RJ     SNP         SET NEXT PAGE

Seq #  *Modification Id* Act 
----------------------------+
01138  M02S00192.253l688 ---| SSL9     SA3    BL

Seq #  *Modification Id* Act 
----------------------------+
01139  M01S00044.253l688 +++| SSL10    SA3    BL
01140  M00S00619.catlist +++|          SX6    X3-1
01141  M00S00620.catlist +++|          SA6    A3+

Seq #  *Modification Id* Act 
----------------------------+
01142  M01S00621.253l688 ---|          NG     X6,SSL10    IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00045.253l688 +++|          NG     X6,SSL11    IF END OF ENTRIES
01144  M00S00622.catlist +++|          RJ     GNI         GET NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01145  M01S00193.ns22000 +++|          SA3    BO          CURRENT BUFFER OFFSET
01146  M01S00194.ns22000 +++|          IX1    X1+X3
01147  M00S00623.catlist +++|          SA1    X1+SBUF     GET ACTUAL ENTRY
01148  M00S00624.catlist +++|          LX1    6
01149  M00S00625.catlist +++|          BX6    X1
01150  M00S00626.catlist +++|          SA6    CBUF

Seq #  *Modification Id* Act 
----------------------------+
01151  M01S00627.253l688 ---|          RJ     GSL         GENERATE SHORT LIST
01152  M01S00628.253l688 ---|          EQ     SSL9

Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00046.253l688 +++|          RJ     GSL         GENERATE ENTRY FOR SHORT LIST
01154  M01S00047.253l688 +++|          EQ     SSL10       GET NEXT ENTRY
01155  M00S00629.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
01156  M01S00630.253l688 ---| SSL10    WRITEC O,LBUF      LAST LINE OF INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00048.253l688 +++| SSL11    WRITEC O,LBUF      LAST LINE OF INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01158  M01S00195.ns22000 +++|          SA1    SSLA
01159  M01S00196.ns22000 +++|          RJ     DSB         DISPLAY SORT BREAK
01160  M01S00197.ns22000 +++|          SA1    SSLA
01161  M01S00198.ns22000 +++|          RJ     SNP         SET NEXT PAGE

Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00199.253l688 ---|          NZ     X1,SSL9     IF MORE FILES TO LIST

Seq #  *Modification Id* Act 
----------------------------+
01163  M01S00049.253l688 +++|          NZ     X1,SSL10    IF MORE FILES TO LIST
01164  M00S00631.catlist +++|
01165  M00S00632.catlist +++|*         LIST DIRECT ACCESS FILES.
01166  M00S00633.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
01167  M01S00634.253l688 ---| SSL11    SA1    SSLB
01168  M01S00635.253l688 ---|          ZR     X1,SSL15    IF NO DIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00050.253l688 +++| SSL12    SA1    SSLB
01170  M01S00051.253l688 +++|          ZR     X1,SSL17    IF NO DIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01171  M01S00636.ns22000 ---|          RJ     NIP         PRESET *GNI*
01172  M00S00637.catlist +++|          SA1    SSLA        CHECK IF ANY INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00638.253l688 ---|          ZR     X1,SSL12    IF NO INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00052.253l688 +++|          ZR     X1,SSL13    IF NO INDIRECT ACCESS FILES
01175  M00S00639.catlist +++|          WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
01176  M01S00003.catli3  +++|          SB2    B1
01177  M01S00004.catli3  +++|          RJ     ALN         ADVANCE LINE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00640.253l688 ---| SSL12    WRITEH O,SSLF,SSLFL

Seq #  *Modification Id* Act 
----------------------------+
01179  M01S00053.253l688 +++| SSL13    WRITEH O,SSLF,SSLFL

Seq #  *Modification Id* Act 
----------------------------+
01180  M01S00005.catli3  +++|          SB2    B1
01181  M01S00006.catli3  +++|          RJ     ALN         ADVANCE LINE NUMBER
01182  M01S00007.catli3  +++|          SA1    LN          CHECK IF HEADER JUST PRINTED
01183  M01S00008.catli3  +++|          SX2    3
01184  M01S00009.catli3  +++|          IX1    X2-X1

Seq #  *Modification Id* Act 
----------------------------+
01185  M02S00010.253l688 ---|          ZR     X1,SSL12.1  IF HEADER JUST PRINTED

Seq #  *Modification Id* Act 
----------------------------+
01186  M01S00054.253l688 +++|          ZR     X1,SSL14    IF HEADER JUST PRINTED
01187  M00S00641.catlist +++|          WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
01188  M02S00642.catli3  ---|          SX7    8           RESET *GSLA*

Seq #  *Modification Id* Act 
----------------------------+
01189  M01S00011.catli3  +++|          SB2    B1
01190  M01S00012.catli3  +++|          RJ     ALN         ADVANCE LINE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01191  M02S00013.253l688 ---| SSL12.1  SX7    8           RESET *GSLA*

Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00027.253l688 ---|          SX7    8           RESET LINE POSITION

Seq #  *Modification Id* Act 
----------------------------+
01193  M01S00055.253l688 +++| SSL14    SX7    8           RESET LINE POSITION
01194  M00S00643.catlist +++|          SA7    GSLA

Seq #  *Modification Id* Act 
----------------------------+
01195  M01S00644.ns22000 ---| SSL13    SA3    SSLB

Seq #  *Modification Id* Act 
----------------------------+
01196  M01S00200.ns22000 +++|          SA1    SSLB
01197  M01S00201.ns22000 +++|          RJ     SNP         SET UP NEXT PAGE

Seq #  *Modification Id* Act 
----------------------------+
01198  M02S00202.253l688 ---| SSL13    SA3    BL          DECREMENT NUMBER OF DIRECT FILES

Seq #  *Modification Id* Act 
----------------------------+
01199  M01S00056.253l688 +++| SSL15    SA3    BL          DECREMENT NUMBER OF DIRECT FILES
01200  M00S00645.catlist +++|          SX6    X3-1
01201  M00S00646.catlist +++|          SA6    A3+

Seq #  *Modification Id* Act 
----------------------------+
01202  M01S00647.catli1  ---|          NG     X6,SSL14    IF END OF NETRIES

Seq #  *Modification Id* Act 
----------------------------+
01203  M02S00028.253l688 ---|          NG     X6,SSL14    IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01204  M01S00057.253l688 +++|          NG     X6,SSL16    IF END OF ENTRIES
01205  M00S00648.catlist +++|          RJ     GNI         GET NEXT ENTRY
01206  M00S00649.catlist +++|          SA2    SSLC        DETERMINE POSITION IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01207  M01S00203.ns22000 +++|          SA3    BO          GET CURRENT BUFFER OFFSET
01208  M01S00204.ns22000 +++|          IX2    X2+X3
01209  M00S00650.catlist +++|          SB2    SBUF+X2
01210  M00S00651.catlist +++|          SA1    X1+B2       GET ACTUAL ENTRY
01211  M00S00652.catlist +++|          LX1    6
01212  M00S00653.catlist +++|          BX6    X1
01213  M00S00654.catlist +++|          SA6    CBUF

Seq #  *Modification Id* Act 
----------------------------+
01214  M01S00655.253l688 ---|          RJ     GSL         GENERATE SHORT LIST
01215  M01S00656.253l688 ---|          EQ     SSL13       GET NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01216  M01S00058.253l688 +++|          RJ     GSL         GENERATE ENTRY FOR SHORT LIST
01217  M01S00059.253l688 +++|          EQ     SSL15       GET NEXT ENTRY
01218  M00S00657.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
01219  M01S00658.253l688 ---| SSL14    WRITEC O,LBUF      LAST LINE

Seq #  *Modification Id* Act 
----------------------------+
01220  M01S00060.253l688 +++| SSL16    WRITEC O,LBUF      LAST LINE

Seq #  *Modification Id* Act 
----------------------------+
01221  M01S00205.ns22000 +++|          SA1    SSLB
01222  M01S00206.ns22000 +++|          RJ     DSB         DISPLAY SORT BREAK
01223  M01S00207.ns22000 +++|          SA1    SSLB
01224  M01S00208.ns22000 +++|          RJ     SNP         SET NEXT PAGE

Seq #  *Modification Id* Act 
----------------------------+
01225  M02S00209.253l688 ---|          NZ     X1,SSL13    IF MORE FILE NAMES TO LIST

Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00061.253l688 +++|          NZ     X1,SSL15    IF MORE FILE NAMES TO LIST

Seq #  *Modification Id* Act 
----------------------------+
01227  M01S00210.ns22000 +++|          SB2    B1+
01228  M01S00211.ns22000 +++|          RJ     ALN

Seq #  *Modification Id* Act 
----------------------------+
01229  M01S00659.catli1  ---| SSL15    WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00029.253l688 ---| SSL15    SA2    ERRF        CHECK ERROR FLAG
01231  M02S00030.253l688 ---|          NZ     X2,SSL16    IF *PFM* ERROR

Seq #  *Modification Id* Act 
----------------------------+
01232  M01S00062.253l688 +++| SSL17    SA2    ERRF        CHECK ERROR FLAG
01233  M01S00063.253l688 +++|          NZ     X2,SSL18    IF *PFM* ERROR

Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00031.catli1  +++|          SA2    BOVF        CHECK OVERFLOW FLAG

Seq #  *Modification Id* Act 
----------------------------+
01235  M02S00032.ns22000 ---|          NZ     X2,SSL      IF OVERFLOW CONDITION

Seq #  *Modification Id* Act 
----------------------------+
01236  M02S00212.253l688 ---|          NZ     X2,SSL0     IF OVERFLOW OCCURRED (MORE FILES TO LIST)

Seq #  *Modification Id* Act 
----------------------------+
01237  M02S00033.253l688 ---| SSL16    WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
01238  M01S00660.253l688 ---|          RJ     PAS         PRINT ACCUMULATED SIZE

Seq #  *Modification Id* Act 
----------------------------+
01239  M01S00064.253l688 +++|          NZ     X2,SSL1     IF OVERFLOW OCCURRED (MORE FILES TO LIST)
01240  M01S00065.253l688 +++| SSL18    WRITEC O,BLK
01241  M01S00066.253l688 +++|          RJ     PAS         PRINT ACCUMULATED STATISTICS
01242  M00S00661.catlist +++|          EQ     CTL3        CONTINUE PROCESSING
01243  M00S00662.catlist +++|
01244  M00S00663.catlist +++|
01245  M00S00664.catlist +++| SSLA     CON    0           NUMBER OF INDIRECT ACCESS FILES
01246  M00S00665.catlist +++| SSLB     CON    0           NUMBER OF DIRECT ACCESS FILES
01247  M00S00666.catlist +++| SSLC     CON    0           COUNT OF ENTRIES BEFORE DIRECT ACCESS FILE

Seq #  *Modification Id* Act 
----------------------------+
01248  M01S00667.catli1  ---| SSLD     DATA   C* ALL FILES LISTED BUT NOT SORTED.*

Seq #  *Modification Id* Act 
----------------------------+
01249  M01S00034.catli1  +++| SSLD     DATA   C* BUFFER OVERFLOW - ALL FILES LISTED BUT NOT SORTED.*

Seq #  *Modification Id* Act 
----------------------------+
01250  M01S00668.ns22000 ---| SSLE     DATA   C* INDIRECT ACCESS FILE(S)*

Seq #  *Modification Id* Act 
----------------------------+
01251  M01S00213.ns22000 +++| SSLE     DATA   C* INDIRECT ACCESS FILES*
01252  M00S00669.catlist +++| SSLEL    EQU    *-SSLE

Seq #  *Modification Id* Act 
----------------------------+
01253  M01S00670.ns22000 ---| SSLF     DATA   C* DIRECT ACCESS FILE(S)*

Seq #  *Modification Id* Act 
----------------------------+
01254  M01S00214.ns22000 +++| SSLF     DATA   C* DIRECT ACCESS FILES*
01255  M00S00671.catlist +++| SSLFL    EQU    *-SSLF

Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00672.ns22000 ---|          TITLE  GENERAL SUBROUTINES
01257  M01S00673.ns22000 ---| FCB      SPACE  1

Seq #  *Modification Id* Act 
----------------------------+
01258  M01S00215.ns22000 +++|          TITLE  GENERAL SUBROUTINES.
01259  M01S00216.ns22000 +++| AEN      SPACE  4,15
01260  M01S00217.ns22000 +++|**        AEN - ADVANCE ENTRY NUMBER.
01261  M01S00218.ns22000 +++|*
01262  M01S00219.ns22000 +++|*         ENTRY  (NO) = NUMBER OF FILES.
01263  M01S00220.ns22000 +++|*
01264  M01S00221.ns22000 +++|*         EXIT   (NO) ADVANCED.
01265  M01S00222.ns22000 +++|*                (FLN) = ADVANCED FILE NUMBER IN DISPLAY CODE.
01266  M01S00223.ns22000 +++|*
01267  M01S00224.ns22000 +++|*         USES   X - 0, 1, 6.
01268  M01S00225.ns22000 +++|*                A - 1, 6.
01269  M01S00226.ns22000 +++|*
01270  M01S00227.ns22000 +++|*         CALLS  CDD.
01271  M01S00228.ns22000 +++|
01272  M01S00229.ns22000 +++|
01273  M01S00230.ns22000 +++| AEN      SUBR               ENTRY/EXIT
01274  M01S00231.ns22000 +++|          SA1    NO          ADVANCE FILE NUMBER
01275  M01S00232.ns22000 +++|          SX1    X1+B1
01276  M01S00233.ns22000 +++|          BX6    X1
01277  M01S00234.ns22000 +++|          SA6    A1
01278  M01S00235.ns22000 +++|          RJ     CDD
01279  M01S00236.ns22000 +++|          SX1    1R.         SET PERIOD
01280  M01S00237.ns22000 +++|          MX0    54
01281  M01S00238.ns22000 +++|          LX6    6
01282  M01S00239.ns22000 +++|          BX6    X0*X6
01283  M01S00240.ns22000 +++|          BX6    X1+X6
01284  M01S00241.ns22000 +++|          SA6    FLN
01285  M01S00242.ns22000 +++|          EQ     AENX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01286  M02S00243.253l688 ---| AFS      SPACE  4,15
01287  M02S00244.253l688 ---|**        AFS - ACCUMULATE FILE SIZE.

Seq #  *Modification Id* Act 
----------------------------+
01288  M01S00067.253l688 +++| AFS      SPACE  4,20
01289  M01S00068.253l688 +++|**        AFS - ACCUMULATE FILE STATISTICS.

Seq #  *Modification Id* Act 
----------------------------+
01290  M01S00245.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01291  M02S00246.253l688 ---|*         *AFS* INCREMENTS THE INDIRECT/DIRECT ACCESS FILE
01292  M02S00247.253l688 ---|*         COUNT AND ACCUMULATES THE TOTAL PRUS FOR EACH FILE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
01293  M01S00069.253l688 +++|*         INCREMENT THE FILE COUNT AND TOTAL PRU-S FOR -
01294  M01S00070.253l688 +++|*                INDIRECT ACCESS FILES ON DISK.
01295  M01S00071.253l688 +++|*                DIRECT ACCESS FILES ON DISK.

Seq #  *Modification Id* Act 
----------------------------+
01296  M02S00072.catli7  ---|*                FILES ON CARTRIDGE.
01297  M02S00073.catli7  ---|*                FILES ON TAPE.

Seq #  *Modification Id* Act 
----------------------------+
01298  M01S00010.catli7  +++|*                IAPF-S ON ALTERNATE STORAGE.
01299  M01S00011.catli7  +++|*                DAPF-S ON ALTERNATE STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
01300  M01S00248.ns22000 +++|*
01301  M01S00249.ns22000 +++|*         ENTRY  (CBUF) = CATALOG ENTRY.
01302  M01S00250.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01303  M02S00251.253l688 ---|*         EXIT   (FSI) OR (FSD) UPDATED.
01304  M02S00252.253l688 ---|*                (FCI) OR (FCD) UPDATED.
01305  M02S00253.253l688 ---|*                (X1) = 1 IF DIRECT ACCESS FILE, 0 IF INDIRECT.

Seq #  *Modification Id* Act 
----------------------------+
01306  M01S00074.253l688 +++|*         EXIT   COUNTERS UPDATED.
01307  M01S00075.253l688 +++|*                (X1) = 1 IF DIRECT ACCESS FILE.
01308  M01S00076.253l688 +++|*                     = 0 IF INDIRECT ACCESS FILE.
01309  M01S00077.253l688 +++|*                (B2) = 0 IF FILE ON DISK.

Seq #  *Modification Id* Act 
----------------------------+
01310  M02S00078.catli7  ---|*                     = 1 IF FILE ON CARTRIDGE.
01311  M02S00079.catli7  ---|*                     = 2 IF FILE ON TAPE.

Seq #  *Modification Id* Act 
----------------------------+
01312  M01S00012.catli7  +++|*                     = 1 IF FILE ON ALTERNATE STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
01313  M01S00254.ns22000 +++|*
01314  M01S00255.ns22000 +++|*         USES   X - 1, 2, 3, 6.
01315  M01S00256.ns22000 +++|*                A - 1, 2, 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
01316  M01S00080.253l688 +++|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
01317  M01S00257.ns22000 +++|
01318  M01S00258.ns22000 +++|
01319  M01S00259.ns22000 +++| AFS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01320  M02S00260.catli8  ---|          SA1    CBUF+1      GET FILE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01321  M01S00019.catli8  +++|          SA1    CBUF+FCLF   GET LENGTH OF FILE

Seq #  *Modification Id* Act 
----------------------------+
01322  M01S00261.ns22000 +++|          MX2    -24

Seq #  *Modification Id* Act 
----------------------------+
01323  M01S00081.253l688 +++|          BX3    -X2*X1      GET TRACK POINTER
01324  M01S00082.253l688 +++|          AX3    12

Seq #  *Modification Id* Act 
----------------------------+
01325  M01S00262.ns22000 +++|          LX1    24
01326  M01S00263.ns22000 +++|          BX6    -X2*X1
01327  M01S00264.ns22000 +++|          LX1    0-11-24+60  CHECK FILE TYPE
01328  M01S00265.ns22000 +++|          MX2    -1
01329  M01S00266.ns22000 +++|          BX1    -X2*X1      (X1)=1 IF DIRECT, 0 IF INDIRECT

Seq #  *Modification Id* Act 
----------------------------+
01330  M02S00267.253l688 ---|          SA2    FSI         UPDATE INDIRECT ACCESS PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01331  M01S00083.253l688 +++|          ZR     X3,AFS2     IF FILE NOT ON DISK
01332  M01S00084.253l688 +++|          SB2    B0+         SET RESIDENCE TO DISK

Seq #  *Modification Id* Act 
----------------------------+
01333  M02S00085.catli7  ---|          SA2    FSI         SET COUNTERS FOR INDIRECT ACCESS DISK FILE

Seq #  *Modification Id* Act 
----------------------------+
01334  M02S00268.catli7  ---|          SA3    FCI

Seq #  *Modification Id* Act 
----------------------------+
01335  M01S00013.catli7  +++|          SA2    FSID        SET COUNTERS FOR INDIRECT ACCESS DISK FILE
01336  M01S00014.catli7  +++|          SA3    FCID

Seq #  *Modification Id* Act 
----------------------------+
01337  M01S00269.ns22000 +++|          ZR     X1,AFS1     IF INDIRECT ACCESS FILE

Seq #  *Modification Id* Act 
----------------------------+
01338  M02S00270.253l688 ---|          SA2    FSD         UPDATE DIRECT ACCESS PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01339  M02S00086.catli7  ---|          SA2    FSD         SET COUNTERS FOR DIRECT ACCESS DISK FILE

Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00271.catli7  ---|          SA3    FCD

Seq #  *Modification Id* Act 
----------------------------+
01341  M01S00015.catli7  +++|          SA2    FSDD        SET COUNTERS FOR DIRECT ACCESS DISK FILE
01342  M01S00016.catli7  +++|          SA3    FCDD

Seq #  *Modification Id* Act 
----------------------------+
01343  M01S00272.ns22000 +++| AFS1     IX6    X6+X2       INCREMENT ACCUMULATED SIZE
01344  M01S00273.ns22000 +++|          SA6    A2
01345  M01S00274.ns22000 +++|          SX6    X3+B1       INCREMENT FILE COUNT
01346  M01S00275.ns22000 +++|          SA6    A3
01347  M01S00276.ns22000 +++|          EQ     AFSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01348  M01S00087.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
01349  M02S00088.catli7  ---|*         FILE NOT DISK RESIDENT.  CHECK IF CARTRIDGE OR TAPE RESIDENT.

Seq #  *Modification Id* Act 
----------------------------+
01350  M01S00017.catli7  +++|*         FILE ON ALTERNATE STORAGE.

Seq #  *Modification Id* Act 
----------------------------+
01351  M01S00089.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
01352  M02S00090.catli7  ---| AFS2     SB2    B1          SET RESIDENCE TO CARTRIDGE
01353  M02S00091.catli7  ---|          SA2    CBUF+FCAA
01354  M02S00092.catli7  ---|          ZR     X2,AFS3     IF NO CARTRIDGE ASA
01355  M02S00093.catli7  ---|          LX2    59-48
01356  M02S00094.catli7  ---|          NG     X2,AFS3     IF OBSOLETE
01357  M02S00095.catli7  ---|          SA2    FSC         SET COUNTERS FOR CARTRIDGE
01358  M02S00096.catli7  ---|          SA3    FCC
01359  M02S00097.catli7  ---|          EQ     AFS1        UPDATE COUNTERS
01360  M02S00098.catli7  ---|
01361  M02S00099.catli7  ---| AFS3     SB2    B1+B1       SET RESIDENCE TO TAPE
01362  M02S00100.catli7  ---|          SA2    FST         SET COUNTERS FOR TAPE
01363  M02S00101.catli7  ---|          SA3    FCT

Seq #  *Modification Id* Act 
----------------------------+
01364  M01S00018.catli7  +++| AFS2     SB2    B1+         SET RESIDENCE TO ALTERNATE STORAGE
01365  M01S00019.catli7  +++|          SA2    FSIA        SET COUNTERS FOR IAPF ON ALTERNATE STORAGE
01366  M01S00020.catli7  +++|          SA3    FCIA
01367  M01S00021.catli7  +++|          ZR     X1,AFS1     IF INDIRECT ACCESS FILE
01368  M01S00022.catli7  +++|          SA2    FSDA        SET COUNTERS FOR DAPF ON ALTERNATE STORAGE
01369  M01S00023.catli7  +++|          SA3    FCDA

Seq #  *Modification Id* Act 
----------------------------+
01370  M01S00102.253l688 +++|          EQ     AFS1        UPDATE COUNTERS

Seq #  *Modification Id* Act 
----------------------------+
01371  M01S00277.ns22000 +++| ALN      SPACE  4,15
01372  M01S00278.ns22000 +++|**        ALN - ADVANCE LINE NUMBER.
01373  M01S00279.ns22000 +++|*
01374  M01S00280.ns22000 +++|*         ENTRY  (LN) = CURRENT PAGE LINE NUMBER.
01375  M01S00281.ns22000 +++|*                (B2) = NUMBER OF LINES TO ADVANCE.
01376  M01S00282.ns22000 +++|*
01377  M01S00283.ns22000 +++|*         EXIT   FILE NUMBER UPDATED IN OUTPUT LINE.
01378  M01S00284.ns22000 +++|*                LINE BUFFER CLEARED.
01379  M01S00285.ns22000 +++|*
01380  M01S00286.ns22000 +++|*         USES   X - 1, 6.
01381  M01S00287.ns22000 +++|*                A - 1, 6.
01382  M01S00288.ns22000 +++|*                B - 2.
01383  M01S00289.ns22000 +++|*
01384  M01S00290.ns22000 +++|*         CALLS  HDR, PTP.
01385  M01S00291.ns22000 +++|
01386  M01S00292.ns22000 +++|
01387  M01S00293.ns22000 +++| ALN      SUBR               ENTRY/EXIT
01388  M01S00294.ns22000 +++|          SA1    LN          ADVANCE LINE NUMBER
01389  M01S00295.ns22000 +++|          SX6    X1+B2
01390  M01S00296.ns22000 +++|          SA6    A1
01391  M01S00297.ns22000 +++|          SA1    LL          GET LINE LIMIT
01392  M01S00298.ns22000 +++|          IX1    X1-X6
01393  M01S00299.ns22000 +++|          PL     X1,ALN2     IF NOT END OF PAGE
01394  M01S00300.ns22000 +++|          SX6    B2
01395  M01S00301.ns22000 +++|          SA6    A6          RESET LINE NUMBER
01396  M01S00302.ns22000 +++|          SA1    DT          CHECK DEVICE TYPE
01397  M01S00303.ns22000 +++|          NZ     X1,ALN1     IF FILE NOT ASSIGNED TO A TERMINAL
01398  M01S00304.ns22000 +++|          SA1    TP          CHECK IF TITLE PAGE ALREADY PRINTED
01399  M01S00305.ns22000 +++|          NZ     X1,ALN2     IF TITLE ALREADY PRINTED
01400  M01S00306.ns22000 +++| ALN1     RJ     PTP         PRINT TITLE PAGE
01401  M01S00307.ns22000 +++|          SX6    B1          SET TITLE PAGE FLAG FOR TERMINAL
01402  M01S00308.ns22000 +++|          SA6    TP
01403  M01S00309.ns22000 +++|          RJ     HDR         PRINT HEADER
01404  M01S00310.ns22000 +++| ALN2     SB2    7           CLEAR LINE BUFFER
01405  M01S00311.ns22000 +++|          SX6    B0
01406  M01S00312.ns22000 +++| ALN3     ZR     B2,ALNX     IF END OF LINE BUFFER
01407  M01S00313.ns22000 +++|          SA6    LBUF+B2
01408  M01S00314.ns22000 +++|          SB2    B2-B1
01409  M01S00315.ns22000 +++|          EQ     ALN3        CLEAR NEXT WORD

Seq #  *Modification Id* Act 
----------------------------+
01410  M02S00316.ns2573  ---| CSM      SPACE  4,15
01411  M02S00317.ns2573  ---|**        CSM - CHECK SELECTION MASK.

Seq #  *Modification Id* Act 
----------------------------+
01412  M01S00158.ns2573  +++| CFN      SPACE  4,15
01413  M01S00159.ns2573  +++|**        CFN - CHECK FILENAME IN LIST.

Seq #  *Modification Id* Act 
----------------------------+
01414  M01S00318.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01415  M02S00319.ns2573  ---|*         *CSM* CHECKS TO SEE IF A FILE NAME MASK IS PRESENT AND
01416  M02S00320.ns2573  ---|*         IF SO THEN THE FILE NAME IS CHECKED AGAINST THE MASK TO
01417  M02S00321.ns2573  ---|*         SEE IF THE FILE IS TO BE LISTED.

Seq #  *Modification Id* Act 
----------------------------+
01418  M01S00160.ns2573  +++|*         *CFN* CHECKS A FILE NAME FOR INCLUSION IN A LIST,
01419  M01S00161.ns2573  +++|*         WITH WILDCARD MATCHING.

Seq #  *Modification Id* Act 
----------------------------+
01420  M01S00322.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S00323.ns2573  ---|*         ENTRY  (CBUF) = CATALOG ENTRY.
01422  M02S00324.ns2573  ---|*                (FNM) = FILE NAME MASK.
01423  M02S00325.ns2573  ---|*                (FNS) = STRIPPED FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
01424  M01S00162.ns2573  +++|*         ENTRY  (X3) = FILENAME.
01425  M01S00163.ns2573  +++|*                (B2) = FWA OF LIST.

Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00326.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01427  M02S00327.ns2573  ---|*         EXIT   (X1) = 0 IF FILE IS TO BE LISTED OR IF NO
01428  M02S00328.ns2573  ---|*                       MASK IS PRESENT.
01429  M02S00329.ns2573  ---|*                     = NONZERO IF MASK SPECIFIED BUT FILE NOT
01430  M02S00330.ns2573  ---|*                       TO BE LISTED.

Seq #  *Modification Id* Act 
----------------------------+
01431  M01S00164.ns2573  +++|*         EXIT   (X6) = 0 IF FILE IN LIST.

Seq #  *Modification Id* Act 
----------------------------+
01432  M01S00331.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
01433  M02S00332.ns2573  ---|*         USES   X - 1, 2, 3.
01434  M02S00333.ns2573  ---|*                A - 1, 2, 3.

Seq #  *Modification Id* Act 
----------------------------+
01435  M01S00165.ns2573  +++|*         USES   X - 1, 3, 4, 5, 6, 7.
01436  M01S00166.ns2573  +++|*                A - 1, 4, 5.
01437  M01S00167.ns2573  +++|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
01438  M01S00334.ns22000 +++|
01439  M01S00335.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
01440  M02S00336.ns2573  ---| CSM      SUBR               ENTRY/EXIT
01441  M02S00337.ns2573  ---|          SA1    FNM         FILE NAME MASK
01442  M02S00338.ns2573  ---|          SA2    CBUF        CHECK CATALOG ENTRY
01443  M02S00339.ns2573  ---|          ZR     X1,CSM      IF NO MASK SPECIFIED
01444  M02S00340.ns2573  ---|          SA3    FNS         (FNS) = STRIPPED FILE NAME
01445  M02S00341.ns2573  ---|          BX2    X2-X3
01446  M02S00342.ns2573  ---|          BX1    X1*X2
01447  M02S00343.ns2573  ---|          EQ     CSMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01448  M01S00168.ns2573  +++| CFN2     SX6    B1+
01449  M01S00169.ns2573  +++|
01450  M01S00170.ns2573  +++| CFN      SUBR               ENTRY/EXIT
01451  M01S00171.ns2573  +++|          MX7    42
01452  M01S00172.ns2573  +++|          BX3    X7*X3
01453  M01S00173.ns2573  +++| CFN1     SA4    B2
01454  M01S00174.ns2573  +++|          SB2    B2+B1
01455  M01S00175.ns2573  +++|          ZR     X4,CFN2     IF END OF LIST
01456  M01S00176.ns2573  +++|          SA1    CFNA        CHARACTER MASK
01457  M01S00177.ns2573  +++|          SA5    CFNB        ASTERISKS
01458  M01S00178.ns2573  +++|          BX5    X4-X5
01459  M01S00179.ns2573  +++|          BX6    X1*X5
01460  M01S00180.ns2573  +++|          BX7    -X1*X5
01461  M01S00181.ns2573  +++|          IX6    X1+X6
01462  M01S00182.ns2573  +++|          BX6    X6+X7
01463  M01S00183.ns2573  +++|          BX7    -X1*X6
01464  M01S00184.ns2573  +++|          BX6    X7
01465  M01S00185.ns2573  +++|          LX7    -5
01466  M01S00186.ns2573  +++|          IX7    X6-X7
01467  M01S00187.ns2573  +++|          BX7    X6+X7
01468  M01S00188.ns2573  +++|          BX6    X4-X3
01469  M01S00189.ns2573  +++|          BX6    X7*X6
01470  M01S00190.ns2573  +++|          ZR     X6,CFNX     IF IN LIST
01471  M01S00191.ns2573  +++|          EQ     CFN1        CHECK NEXT ENTRY IN LIST
01472  M01S00192.ns2573  +++|
01473  M01S00193.ns2573  +++|
01474  M01S00194.ns2573  +++| CFNA     CON    37373737373737000000B
01475  M01S00195.ns2573  +++| CFNB     CON    7L*******

Seq #  *Modification Id* Act 
----------------------------+
01476  M01S00030.ns2740  +++| CRS      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01477  M02S00031.catli8  ---|**        CRS - CHECK RESIDENCE OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
01478  M01S00020.catli8  +++|**        CRS - CHECK RESIDENCE AND FILE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
01479  M01S00032.ns2740  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01480  M02S00033.catli8  ---|*         *CRS* CHECKS TO SEE IF THE FILE RESIDENCE SPECIFIED
01481  M02S00034.catli8  ---|*         MATCHES THE CURRENT FILE'S RESIDENCE TO DETERMINE IF

Seq #  *Modification Id* Act 
----------------------------+
01482  M01S00021.catli8  +++|*         *CRS* CHECKS TO SEE IF THE FILE RESIDENCE AND TYPE SELECTED
01483  M01S00022.catli8  +++|*         MATCH THE CURRENT FILE RESIDENCE AND TYPE, TO DETERMINE IF

Seq #  *Modification Id* Act 
----------------------------+
01484  M01S00035.ns2740  +++|*         THE FILE IS TO BE LISTED.
01485  M01S00036.ns2740  +++|*
01486  M01S00037.ns2740  +++|*         ENTRY  (CBUF) = CATALOG ENTRY.
01487  M01S00038.ns2740  +++|*                (RSM) = FILE RESIDENCE SELECTION MASK.

Seq #  *Modification Id* Act 
----------------------------+
01488  M01S00023.catli8  +++|*                (TYM) = FILE TYPE SELECTION MASK.

Seq #  *Modification Id* Act 
----------------------------+
01489  M01S00039.ns2740  +++|*
01490  M01S00040.ns2740  +++|*         EXIT   (X1) = 0 IF FILE IS NOT TO BE LISTED.
01491  M01S00041.ns2740  +++|*
01492  M01S00042.ns2740  +++|*         USES   X - 1, 3.
01493  M01S00043.ns2740  +++|*                A - 3.
01494  M01S00044.ns2740  +++|*                B - 3, 6.
01495  M01S00045.ns2740  +++|
01496  M01S00046.ns2740  +++|
01497  M01S00047.ns2740  +++| CRS      SUBR               ENTRY/EXIT
01498  M01S00048.ns2740  +++|          SB6    CBUF
01499  M01S00049.ns2740  +++|          SB3    B0          INITIALIZE FILE RESIDENCE
01500  M01S00050.ns2740  +++|          SA3    B6+FCBT     CHECK FOR DISK RESIDENCE
01501  M01S00051.ns2740  +++|          MX1    -24
01502  M01S00052.ns2740  +++|          BX3    -X1*X3
01503  M01S00053.ns2740  +++|          AX3    12          EXAMINE TRACK ONLY
01504  M01S00054.ns2740  +++|          ZR     X3,CRS1     IF NOT DISK RESIDENT
01505  M01S00055.ns2740  +++|          SB3    B3+4        SET DISK RESIDENT INDICATOR
01506  M01S00056.ns2740  +++| CRS1     SA3    B6+FCAA     CHECK FOR CARTRIDGE RESIDENCE
01507  M01S00057.ns2740  +++|          MX1    -36
01508  M01S00058.ns2740  +++|          BX1    -X1*X3
01509  M01S00059.ns2740  +++|          ZR     X1,CRS2     IF NOT CARTRIDGE RESIDENT
01510  M01S00060.ns2740  +++|          LX3    59-48       CHECK FOR OBSOLETE FLAG
01511  M01S00061.ns2740  +++|          NG     X3,CRS2     IF CARTRIDGE COPY OBSOLETE
01512  M01S00062.ns2740  +++|          SB3    B3+B1       SET CARTRIDGE RESIDENCE INDICATOR
01513  M01S00063.ns2740  +++| CRS2     SA3    B6+FCTV     CHECK FOR TAPE VSN
01514  M01S00064.ns2740  +++|          MX1    -24
01515  M01S00065.ns2740  +++|          BX3    -X1*X3
01516  M01S00066.ns2740  +++|          ZR     X3,CRS3     IF NO TAPE VSN
01517  M01S00067.ns2740  +++|          SB3    B3+2        SET TAPE RESIDENT INDICATOR
01518  M01S00068.ns2740  +++| CRS3     SA3    RSM         GET FILE RESIDENCE SELECTION MASK
01519  M01S00069.ns2740  +++|          SX1    B3          GET ACTUAL FILE RESIDENCE
01520  M01S00070.ns2740  +++|          BX1    X1*X3       COMPARE ACTUAL AND SELECTED RESIDENCE

Seq #  *Modification Id* Act 
----------------------------+
01521  M01S00024.catli8  +++|          ZR     X1,CRSX     IF FILE FAILED RESIDENCE CRITERIA
01522  M01S00025.catli8  +++|          SA1    B6+FCBS     CHECK FILE TYPE
01523  M01S00026.catli8  +++|          MX3    -1
01524  M01S00027.catli8  +++|          LX1    0-11
01525  M01S00028.catli8  +++|          BX3    -X3*X1      01 = DIRECT, 00 = INDIRECT
01526  M01S00029.catli8  +++|          SX1    X3+B1       10 = DIRECT, 01 = INDIRECT
01527  M01S00030.catli8  +++|          SA3    TYM
01528  M01S00031.catli8  +++|          ZR     X3,CRSX     IF FILE TYPE NOT SPECIFIED
01529  M01S00032.catli8  +++|          BX1    X1*X3       CHECK FILE TYPE MATCH

Seq #  *Modification Id* Act 
----------------------------+
01530  M01S00071.ns2740  +++|          EQ     CRSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01531  M01S00344.ns22000 +++| CSU      SPACE  4,15
01532  M01S00345.ns22000 +++|**        CSU - CHECK FOR SPECIAL USER.
01533  M01S00346.ns22000 +++|*
01534  M01S00347.ns22000 +++|*         ENTRY  (AUSER) = ALTERNATE USER.

Seq #  *Modification Id* Act 
----------------------------+
01535  M02S00348.v23l617 ---|*                (USER) = USER NUMBER OF CALLER.

Seq #  *Modification Id* Act 
----------------------------+
01536  M01S00017.v23l617 +++|*                (USER) = USER NAME OF CALLER.

Seq #  *Modification Id* Act 
----------------------------+
01537  M01S00349.ns22000 +++|*
01538  M01S00350.ns22000 +++|*         EXIT   (MODE) UPDATED TO NON-ALTERNATE CATALOG IF
01539  M01S00351.ns22000 +++|*                USER REQUESTING CATLIST HAS AUTOMATIC PERMISSION.
01540  M01S00352.ns22000 +++|*
01541  M01S00353.ns22000 +++|*         USES   X - 0, 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01542  M01S00072.ns2740  +++|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
01543  M01S00354.ns22000 +++|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
01544  M02S00355.ns2740  ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
01545  M01S00356.ns22000 +++|
01546  M01S00357.ns22000 +++|
01547  M01S00358.ns22000 +++| CSU      SUBR               ENTRY/EXIT
01548  M01S00359.ns22000 +++|          SA2    MODE
01549  M01S00360.ns22000 +++|          SX2    X2-PMTL
01550  M01S00361.ns22000 +++|          PL     X2,CSUX     IF PERMIT DATA REQUEST
01551  M01S00362.ns22000 +++|          SA2    AUSER
01552  M01S00363.ns22000 +++|          ZR     X2,CSUX     IF NO ALTERNATE USER
01553  M01S00364.ns22000 +++|          SA1    USER
01554  M01S00365.ns22000 +++|          MX0    -6
01555  M01S00366.ns22000 +++|          SB2    8
01556  M01S00367.ns22000 +++| CSU1     LX1    6           POSITION NEXT CHARACTER
01557  M01S00368.ns22000 +++|          LX2    6
01558  M01S00369.ns22000 +++|          SB2    B2-B1

Seq #  *Modification Id* Act 
----------------------------+
01559  M02S00370.v23l617 ---|          ZR     B2,CSU2     IF USER NUMBERS MATCH

Seq #  *Modification Id* Act 
----------------------------+
01560  M01S00018.v23l617 +++|          ZR     B2,CSU2     IF USER NAMES MATCH

Seq #  *Modification Id* Act 
----------------------------+
01561  M01S00371.ns22000 +++|          BX3    -X0*X1      USER
01562  M01S00372.ns22000 +++|          BX6    -X0*X2      AUSER
01563  M01S00373.ns22000 +++|          SX7    X3-1R*
01564  M01S00374.ns22000 +++|          ZR     X7,CSU1     IF CHARACTER = *
01565  M01S00375.ns22000 +++|          IX6    X3-X6
01566  M01S00376.ns22000 +++|          ZR     X6,CSU1     IF CHARACTERS COMPARE
01567  M01S00377.ns22000 +++|          EQ     CSUX        EXIT
01568  M01S00378.ns22000 +++|
01569  M01S00379.ns22000 +++| CSU2     SA1    MODE        PROCEED AS NON-ALTERNATE CATALOG
01570  M01S00380.ns22000 +++|          SX6    X1-ALTC
01571  M01S00381.ns22000 +++|          SA6    A1
01572  M01S00382.ns22000 +++|          EQ     CSUX        RETURN
01573  M01S00383.ns22000 +++|DSB       SPACE  4,15
01574  M01S00384.ns22000 +++|**        DSB - DISPLAY SORT BREAK.
01575  M01S00385.ns22000 +++|*
01576  M01S00386.ns22000 +++|*         ENTRY  (X1) = TOTAL NUMBER OF FILE NAMES.
01577  M01S00387.ns22000 +++|*                (BO) = CURRENT BUFFER OFFSET.
01578  M01S00388.ns22000 +++|*
01579  M01S00389.ns22000 +++|*         EXIT   SORT-BREAK LINE DISPLAYED.
01580  M01S00390.ns22000 +++|*
01581  M01S00391.ns22000 +++|*         USES   X - 2, 3.
01582  M01S00392.ns22000 +++|*                A - 2.
01583  M01S00393.ns22000 +++|*                B - 2.
01584  M01S00394.ns22000 +++|*
01585  M01S00395.ns22000 +++|*         CALLS  ALN.
01586  M01S00396.ns22000 +++|*
01587  M01S00397.ns22000 +++|*         MACROS WRITEC.
01588  M01S00398.ns22000 +++|
01589  M01S00399.ns22000 +++|
01590  M01S00400.ns22000 +++| DSB      SUBR               ENTRY/EXIT
01591  M01S00401.ns22000 +++|          SA2    BO+1        GET CURRENT BUFFER OFFSET
01592  M01S00402.ns22000 +++|          IX3    X2-X1
01593  M01S00403.ns22000 +++|          ZR     X3,DSBX     IF NO MORE FILES IN THIS GROUP
01594  M01S00404.ns22000 +++|          SA2    DT
01595  M01S00405.ns22000 +++|          NZ     X2,DSBX     IF NOT TERMINAL FILE
01596  M01S00406.ns22000 +++|          SB2    1
01597  M01S00407.ns22000 +++|          RJ     ALN         ADVANCE LINE NUMBER
01598  M01S00408.ns22000 +++|          WRITEC O,(=C* ...*)
01599  M01S00409.ns22000 +++|          EQ     DSBX        RETURN
01600  M01S00410.ns22000 +++| FCB      SPACE  4,10
01601  M00S00674.catlist +++|**        FCB - FILL CATALOG AND PERMIT BUFFER.
01602  M00S00675.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
01603  M01S00676.ns22000 ---|*
01604  M01S00677.ns22000 ---|*         EXIT   IF (X6) .GE. 0, NUMBER OF WORDS READ.
01605  M01S00678.ns22000 ---|*                IF (X6) .LT. 0, ERROR RETURN SET.

Seq #  *Modification Id* Act 
----------------------------+
01606  M01S00411.ns22000 +++|*         EXIT   (X6) = NUMBER OF WORDS READ.
01607  M01S00412.ns22000 +++|*                (X6) .LT. 0, IF ERROR DETECTED.
01608  M00S00679.catlist +++|*
01609  M00S00680.catlist +++|*         USES   X - 0, 1, 2, 6.
01610  M00S00681.catlist +++|*                A - 1, 2, 6.
01611  M00S00682.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
01612  M01S00683.ns22000 ---|*         CALLS  PFM=.
01613  M01S00684.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01614  M01S00413.ns22000 +++|*         MACROS CATLIST.
01615  M00S00685.catlist +++|
01616  M00S00686.catlist +++|
01617  M00S00687.catlist +++| FCB1     SA6    ERRF        SET *PFM* ERROR FLAG
01618  M00S00688.catlist +++|
01619  M00S00689.catlist +++| FCB      SUBR               ENTRY/EXIT
01620  M00S00690.catlist +++|          SA1    I           CHECK FOR EOI ON LAST READ
01621  M00S00691.catlist +++|          LX1    59-9
01622  M00S00692.catlist +++|          SX6    B0
01623  M00S00693.catlist +++|          NG     X1,FCBX     IF EOI ENCOUNTERED
01624  M00S00694.catlist +++|          SA2    A1+B1       SET IN = OUT = FIRST
01625  M00S00695.catlist +++|          SX6    X2
01626  M00S00696.catlist +++|          SA6    A2+B1       SET IN
01627  M00S00697.catlist +++|          SA6    A6+B1       SET OUT
01628  M00S00698.catlist +++|          CATLIST A1,,,,,,,DN
01629  M00S00699.catlist +++|          SA1    X2+         CHECK ERROR STATUS
01630  M00S00700.catlist +++|          MX0    -8
01631  M00S00701.catlist +++|          AX1    10
01632  M00S00702.catlist +++|          BX2    -X0*X1
01633  M00S00703.catlist +++|          MX6    1           SET ERROR RETURN CONDITION
01634  M00S00704.catlist +++|          NZ     X2,FCB1     IF ERROR RETURN STATUS SET
01635  M00S00705.catlist +++|          SA1    A1+2        SET NUMBER OF WORDS READ
01636  M00S00706.catlist +++|          SA2    A1+B1
01637  M00S00707.catlist +++|          IX6    X1-X2
01638  M00S00708.catlist +++|          EQ     FCBX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01639  M01S00709.ns22000 ---| CSU      SPACE  4
01640  M01S00710.ns22000 ---|**        CSU - CHECK FOR SPECIAL USER.
01641  M01S00711.ns22000 ---|*
01642  M01S00712.ns22000 ---|*         ENTRY  (AUSER) = ALTERNATE USER.
01643  M01S00713.ns22000 ---|*                (USER) = USER NUMBER OF CALLER.
01644  M01S00714.ns22000 ---|*
01645  M01S00715.ns22000 ---|*         EXIT   (MODE) UPDATED TO NON-ALTERNATE CATALOG IF
01646  M01S00716.ns22000 ---|*                USER REQUESTING CATLIST HAS AUTOMATIC PERMISSION.
01647  M01S00717.ns22000 ---|*
01648  M01S00718.ns22000 ---|*         USES   X - 0, 1, 2, 3, 6, 7.
01649  M01S00719.ns22000 ---|*                B - 2.
01650  M01S00720.ns22000 ---|*                A - 1, 2, 6.
01651  M01S00721.ns22000 ---|
01652  M01S00722.ns22000 ---|
01653  M01S00723.ns22000 ---| CSU      SUBR               ENTRY/EXIT
01654  M01S00724.ns22000 ---|          SA2    MODE
01655  M01S00725.ns22000 ---|          SX2    X2-PMTL
01656  M01S00726.ns22000 ---|          PL     X2,CSUX     IF PERMIT DATA REQUEST
01657  M01S00727.ns22000 ---|          SA2    AUSER
01658  M01S00728.ns22000 ---|          ZR     X2,CSUX     IF NO ALTERNATE USER
01659  M01S00729.ns22000 ---|          SA1    USER
01660  M01S00730.ns22000 ---|          MX0    -6
01661  M01S00731.ns22000 ---|          SB2    8
01662  M01S00732.ns22000 ---| CSU1     LX1    6           POSITION NEXT CHARACTER
01663  M01S00733.ns22000 ---|          LX2    6
01664  M01S00734.ns22000 ---|          SB2    B2-B1
01665  M01S00735.ns22000 ---|          ZR     B2,CSU2     IF USER NUMBERS MATCH
01666  M01S00736.ns22000 ---|          BX3    -X0*X1      USER
01667  M01S00737.ns22000 ---|          BX6    -X0*X2      AUSER
01668  M01S00738.ns22000 ---|          SX7    X3-1R*
01669  M01S00739.ns22000 ---|          ZR     X7,CSU1     IF CHARACTER = *
01670  M01S00740.ns22000 ---|          IX6    X3-X6
01671  M01S00741.ns22000 ---|          ZR     X6,CSU1     IF CHARACTERS COMPARE
01672  M01S00742.ns22000 ---|          EQ     CSUX        EXIT
01673  M01S00743.ns22000 ---|
01674  M01S00744.ns22000 ---| CSU2     SA1    MODE        PROCEED AS NON-ALTERNATE CATALOG
01675  M01S00745.ns22000 ---|          SX6    X1-2
01676  M01S00746.ns22000 ---|          SA6    A1
01677  M01S00747.ns22000 ---|          EQ     CSUX        RETURN
01678  M01S00748.ns22000 ---| ALN      SPACE  4
01679  M01S00749.ns22000 ---|**        ALN - ADVANCE LINE NUMBER
01680  M01S00750.ns22000 ---|*
01681  M01S00751.ns22000 ---|*         ENTRY  (LN) = CURRENT PAGE LINE NUMBER
01682  M01S00752.ns22000 ---|*                (B2) = NUMBER OF LINES TO ADVANCE
01683  M01S00753.ns22000 ---|*
01684  M01S00754.ns22000 ---|*         EXIT   FILE NUMBER UPDATED IN OUTPUT LINE
01685  M01S00755.ns22000 ---|*                LINE BUFFER CLEARED
01686  M01S00756.ns22000 ---|*
01687  M01S00757.ns22000 ---|*         USES   X   1, 6.
01688  M01S00758.ns22000 ---|*                B   2.
01689  M01S00759.ns22000 ---|*                A   1, 6.
01690  M01S00760.ns22000 ---|*
01691  M01S00761.ns22000 ---|*         CALLS  HDR, PTP.
01692  M01S00762.ns22000 ---|
01693  M01S00763.ns22000 ---|
01694  M01S00764.ns22000 ---| ALN      SUBR               ENTRY/EXIT
01695  M01S00765.ns22000 ---|          SA1    LN          ADVANCE LINE NUMBER
01696  M01S00766.ns22000 ---|          SX6    X1+B2
01697  M01S00767.ns22000 ---|          SA6    A1
01698  M01S00768.ns22000 ---|          SX1    X6-LINP
01699  M01S00769.ns22000 ---|          NG     X1,ALN2     IF NOT END OF PAGE
01700  M01S00770.ns22000 ---|          SA1    DT          CHECK DEVICE TYPE
01701  M01S00771.ns22000 ---|          NZ     X1,ALN1     IF FILE NOT ASSIGNED TO A TERMINAL
01702  M01S00772.ns22000 ---|          SA1    TP          CHECK IF TITLE PAGE ALREADY PRINTED
01703  M01S00773.ns22000 ---|          NZ     X1,ALN2     IF TITLE ALREADY PRINTED
01704  M01S00774.ns22000 ---| ALN1     RJ     PTP         PRINT TITLE PAGE
01705  M01S00775.ns22000 ---|          SX6    B1          SET TITLE PAGE FLAG FOR TERMINAL
01706  M01S00776.ns22000 ---|          SA6    TP

Seq #  *Modification Id* Act 
----------------------------+
01707  M02S00777.ns22000 ---|          SA1    MODE
01708  M02S00778.ns22000 ---|          ZR     X1,ALN2     IF SHORT FILE LIST

Seq #  *Modification Id* Act 
----------------------------+
01709  M01S00779.ns22000 ---|          RJ     HDR         PRINT HEADER
01710  M01S00780.ns22000 ---| ALN2     SB2    7           CLEAR LINE BUFFER
01711  M01S00781.ns22000 ---|          SX6    B0
01712  M01S00782.ns22000 ---| ALN3     ZR     B2,ALNX     IF END OF LINE BUFFER
01713  M01S00783.ns22000 ---|          SA6    LBUF+B2
01714  M01S00784.ns22000 ---|          SB2    B2-B1
01715  M01S00785.ns22000 ---|          EQ     ALN3
01716  M01S00786.ns22000 ---| AEN      SPACE  4
01717  M01S00787.ns22000 ---|**        AEN - ADVANCE ENTRY NUMBER.
01718  M01S00788.ns22000 ---|*
01719  M01S00789.ns22000 ---|*         ENTRY  (NO) = NUMBER OF FILES.
01720  M01S00790.ns22000 ---|*
01721  M01S00791.ns22000 ---|*         EXIT   (NO) ADVANCED
01722  M01S00792.ns22000 ---|*                (FLN) = ADVANCED FILE NUMBER IN DISPLAY CODE
01723  M01S00793.ns22000 ---|*
01724  M01S00794.ns22000 ---|*         USES   X   0, 1, 6.
01725  M01S00795.ns22000 ---|*                A   1, 6.
01726  M01S00796.ns22000 ---|*
01727  M01S00797.ns22000 ---|*         CALLS  CDD.
01728  M01S00798.ns22000 ---|
01729  M01S00799.ns22000 ---|
01730  M01S00800.ns22000 ---| AEN      SUBR               ENTRY/EXIT
01731  M01S00801.ns22000 ---|          SA1    NO          ADVANCE FILE NUMBER
01732  M01S00802.ns22000 ---|          SX1    X1+B1
01733  M01S00803.ns22000 ---|          BX6    X1
01734  M01S00804.ns22000 ---|          SA6    A1
01735  M01S00805.ns22000 ---|          RJ     CDD
01736  M01S00806.ns22000 ---|          SX1    1R.         SET PERIOD
01737  M01S00807.ns22000 ---|          MX0    54
01738  M01S00808.ns22000 ---|          LX6    6
01739  M01S00809.ns22000 ---|          BX6    X0*X6
01740  M01S00810.ns22000 ---|          BX6    X1+X6
01741  M01S00811.ns22000 ---|          SA6    FLN
01742  M01S00812.ns22000 ---|          EQ     AENX
01743  M01S00813.ns22000 ---| AFS      SPACE  4,15
01744  M01S00814.ns22000 ---|**        AFS - ACCUMULATE FILE SIZE.
01745  M01S00815.ns22000 ---|*
01746  M01S00816.ns22000 ---|*         *AFS* INCREMENTS  THE INDIRECT/DIRECT ACCESS FILE
01747  M01S00817.ns22000 ---|*         COUNT AND ACCUMULATES THE TOTAL PRUS FOR EACH FILE TYPE.
01748  M01S00818.ns22000 ---|*
01749  M01S00819.ns22000 ---|*         ENTRY  (CBUF) = CATALOG ENTRY.
01750  M01S00820.ns22000 ---|*
01751  M01S00821.ns22000 ---|*         EXIT   (FSI) OR (FSD) UPDATED.
01752  M01S00822.ns22000 ---|*                (FCI) OR (FCD) UPDATED.
01753  M01S00823.ns22000 ---|*                (X1) = 1 IF DIRECT ACCESS FILE, 0 IF INDIRECT.
01754  M01S00824.ns22000 ---|*
01755  M01S00825.ns22000 ---|*         USES   X - 1, 2, 6.
01756  M01S00826.ns22000 ---|*                A - 1, 2, 6.
01757  M01S00827.ns22000 ---|
01758  M01S00828.ns22000 ---|
01759  M01S00829.ns22000 ---| AFS      SUBR               ENTRY/EXIT
01760  M01S00830.ns22000 ---|          SA1    CBUF+1      GET FILE LENGTH
01761  M01S00831.ns22000 ---|          MX2    -24
01762  M01S00832.ns22000 ---|          LX1    24
01763  M01S00833.ns22000 ---|          BX6    -X2*X1
01764  M01S00834.ns22000 ---|          LX1    60-24-11    CHECK FILE TYPE
01765  M01S00835.ns22000 ---|          MX2    -1
01766  M01S00836.ns22000 ---|          BX1    -X2*X1      (X1)=1 IF DIRECT, 0 IF INDIRECT
01767  M01S00837.ns22000 ---|          SA2    FSI+X1      GET ACCUMULATED SIZE
01768  M01S00838.ns22000 ---|          IX6    X6+X2       INCREMENT ACCUMULATED SIZE
01769  M01S00839.ns22000 ---|          SA6    A2
01770  M01S00840.ns22000 ---|          SA2    FCI+X1      GET FILE TYPE COUNT
01771  M01S00841.ns22000 ---|          SX6    X2+B1
01772  M01S00842.ns22000 ---|          SA6    A2
01773  M01S00843.ns22000 ---|          EQ     AFSX        RETURN
01774  M01S00844.ns22000 ---| CSM      SPACE  4,15
01775  M01S00845.ns22000 ---|**        CSM - CHECK SELECTION MASK.
01776  M01S00846.ns22000 ---|*
01777  M01S00847.ns22000 ---|*
01778  M01S00848.ns22000 ---|*         *CSM* CHECKS TO SEE IF A FILE NAME MASK IS PRESENT AND
01779  M01S00849.ns22000 ---|*         IF SO THEN THE FILE NAME IS CHECKED AGAINST THE MASK TO
01780  M01S00850.ns22000 ---|*         SEE IF THE FILE IS TO BE LISTED.
01781  M01S00851.ns22000 ---|*
01782  M01S00852.ns22000 ---|*         ENTRY  (CBUF) = CATALOG ENTRY.
01783  M01S00853.ns22000 ---|*                (FNM) = FILE NAME MASK.
01784  M01S00854.ns22000 ---|*                (FNS) = STRIPPED FILE NAME.
01785  M01S00855.ns22000 ---|*
01786  M01S00856.ns22000 ---|*         EXIT   (X1) = 0 IF FILE IS TO BE LISTED OR IF NO
01787  M01S00857.ns22000 ---|*                       MASK IS PRESENT.
01788  M01S00858.ns22000 ---|*                     = NONZERO IF MASK SPECIFIED BUT FILE NOT
01789  M01S00859.ns22000 ---|*                       TO BE LISTED.
01790  M01S00860.ns22000 ---|*
01791  M01S00861.ns22000 ---|*         USES   X - 1, 2, 3.
01792  M01S00862.ns22000 ---|*                A - 1, 2, 3.
01793  M01S00863.ns22000 ---|
01794  M01S00864.ns22000 ---|
01795  M01S00865.ns22000 ---| CSM      SUBR               ENTRY/EXIT
01796  M01S00866.ns22000 ---|          SA1    FNM         FILE NAME MASK
01797  M01S00867.ns22000 ---|          SA2    CBUF        CHECK CATALOG ENTRY
01798  M01S00868.ns22000 ---|          ZR     X1,CSM      IF NO MASK SPECIFIED
01799  M01S00869.ns22000 ---|          SA3    FNS         (FNS) = STRIPPED FILE NAME
01800  M01S00870.ns22000 ---|          BX2    X2-X3
01801  M01S00871.ns22000 ---|          BX1    X1*X2
01802  M01S00872.ns22000 ---|          EQ     CSMX        RETURN
01803  M00S00873.catlist +++| GNI      SPACE  4,15
01804  M00S00874.catlist +++|**        GNI - GET NEXT ENTRY INDEX.
01805  M00S00875.catlist +++|*
01806  M00S00876.catlist +++|*         ENTRY  MUST HAVE GONE TO *NIP* TO PRESET INDEX.
01807  M00S00877.catlist +++|*
01808  M00S00878.catlist +++|*         EXIT   (X1) = INDEX FOR NEXT ENTRY TO PROVIDE A SORTED
01809  M00S00879.catlist +++|*                       LIST ORDERED BY COLUMNS.
01810  M00S00880.catlist +++|*
01811  M00S00881.catlist +++|*         USES   X - 1, 2, 3, 4, 6.
01812  M00S00882.catlist +++|*                A - 1, 2, 4, 6.
01813  M00S00883.catlist +++|
01814  M00S00884.catlist +++|
01815  M00S00885.catlist +++| GNI3     IX6    X1+X4       ADD INCREMENT
01816  M00S00886.catlist +++|          SA6    GNIB
01817  M00S00887.catlist +++|
01818  M00S00888.catlist +++| GNI      SUBR               ENTRY/EXIT
01819  M00S00889.catlist +++|          SA2    GNIA
01820  M00S00890.catlist +++|          SX3    7           CHECK LINE LENGTH
01821  M00S00891.catlist +++|          IX4    X2-X3
01822  M00S00892.catlist +++|          PL     X4,GNI2     IF END OF LINE
01823  M00S00893.catlist +++|          SA1    A2+B1       GET ENTRY BIAS
01824  M00S00894.catlist +++| GNI1     SX6    X2+B1       UPDATE COLUMN NUMBER
01825  M00S00895.catlist +++|          SA4    GNID        GET REMAINDER
01826  M00S00896.catlist +++|          SA6    A2
01827  M00S00897.catlist +++|          IX3    X2-X4
01828  M00S00898.catlist +++|          SA4    A4-B1       GET INCREMENT
01829  M00S00899.catlist +++|          NG     X3,GNI3     IF FULL INCREMENT TO BE USED
01830  M00S00900.catlist +++|          SX4    X4-1
01831  M00S00901.catlist +++|          EQ     GNI3        USE INCREMENT-1
01832  M00S00902.catlist +++|
01833  M00S00903.catlist +++| GNI2     SA1    GNIE        GET LINE INDEX
01834  M00S00904.catlist +++|          SX6    X1+B1
01835  M00S00905.catlist +++|          MX2    0           CLEAR C0LUMN NUMBER
01836  M00S00906.catlist +++|          BX1    X6
01837  M00S00907.catlist +++|          SA6    A1
01838  M00S00908.catlist +++|          EQ     GNI1        SET CELLS FOR NEW LINE
01839  M00S00909.catlist +++|
01840  M00S00910.catlist +++|
01841  M00S00911.catlist +++| GNIA     CON    0           COLUMN NUMBER
01842  M00S00912.catlist +++| GNIB     CON    0           ENTRY BIAS
01843  M00S00913.catlist +++| GNIC     CON    0           ROW INCREMENT
01844  M00S00914.catlist +++| GNID     CON    0           REMAINDER
01845  M00S00915.catlist +++| GNIE     CON    0           LINE INDEX

Seq #  *Modification Id* Act 
----------------------------+
01846  M01S00916.ns22000 ---| NIP      SPACE  4,15
01847  M01S00917.ns22000 ---|**        NIP - NEXT INDEX PRESET.
01848  M01S00918.ns22000 ---|*
01849  M01S00919.ns22000 ---|*         ENTRY  (X1) = ENTRY COUNT.
01850  M01S00920.ns22000 ---|*
01851  M01S00921.ns22000 ---|*         EXIT   TEMPORARY CELLS PRESET FOR *GNI*.
01852  M01S00922.ns22000 ---|*
01853  M01S00923.ns22000 ---|*         USES   X - 1, 3, 6, 7.
01854  M01S00924.ns22000 ---|*                A - 6, 7.
01855  M01S00925.ns22000 ---|
01856  M01S00926.ns22000 ---|
01857  M01S00927.ns22000 ---| NIP      SUBR               ENTRY/EXIT
01858  M01S00928.ns22000 ---|          MX6    0
01859  M01S00929.ns22000 ---|          SX3    7           LINE LENGTH
01860  M01S00930.ns22000 ---|          SA6    GNIA
01861  M01S00931.ns22000 ---|          SA6    GNIB
01862  M01S00932.ns22000 ---|          SA6    GNIE
01863  M01S00933.ns22000 ---| NIP1     IX1    X1-X3       DIVIDE BY 7
01864  M01S00934.ns22000 ---|          SX6    X6+B1
01865  M01S00935.ns22000 ---|          PL     X1,NIP1     IF NOT POSITION IN ROW
01866  M01S00936.ns22000 ---|          IX7    X3+X1
01867  M01S00937.ns22000 ---|          SA6    GNIC
01868  M01S00938.ns22000 ---|          SA7    GNID
01869  M01S00939.ns22000 ---|          EQ     NIP         RETURN
01870  M01S00940.ns22000 ---| GSL      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01871  M02S00414.253l688 ---| GSL      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01872  M02S00941.253l688 ---|**        GSL - GENERATE SHORT LIST
01873  M02S00942.253l688 ---|*
01874  M02S00943.253l688 ---|*         ENTRY  (CBUF) = CATALOG ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01875  M02S00035.253l688 ---|**        GSL - GENERATE SHORT LIST.

Seq #  *Modification Id* Act 
----------------------------+
01876  M01S00103.253l688 +++| GSL      SPACE  4,25
01877  M01S00104.253l688 +++|**        GSL - GENERATE ENTRY FOR SHORT LIST.

Seq #  *Modification Id* Act 
----------------------------+
01878  M01S00036.catli1  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01879  M02S00037.253l688 ---|*         ENTRY  (CBUF) = CATALOG ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01880  M01S00105.253l688 +++|*         ENTRY  (CBUF) = FILE/USER DESCRIPTOR.
01881  M01S00106.253l688 +++|*                FOR *SSL* CALL -

Seq #  *Modification Id* Act 
----------------------------+
01882  M02S00107.catli7  ---|*                42/PFN,7/0,1/T,1/N,3/EC,2/0,1/D,3/0.

Seq #  *Modification Id* Act 
----------------------------+
01883  M01S00024.catli7  +++|*                42/PFN,8/0,1/N,3/EC,2/0,1/D,3/0.

Seq #  *Modification Id* Act 
----------------------------+
01884  M01S00108.253l688 +++|*                            PFN = PERMANENT FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
01885  M02S00109.catli7  ---|*                            T = 1 IF FILE ON TAPE.

Seq #  *Modification Id* Act 
----------------------------+
01886  M01S00110.253l688 +++|*                            N = 1 IF FILE NOT ON DISK.
01887  M01S00111.253l688 +++|*                            EC = ERROR CODE FROM PFC.
01888  M01S00112.253l688 +++|*                            D = 1 IF DIRECT ACCESS FILE.
01889  M01S00113.253l688 +++|*                FOR *SPD* CALL -
01890  M01S00114.253l688 +++|*                42/USERNAME,18/0

Seq #  *Modification Id* Act 
----------------------------+
01891  M01S00038.catli1  +++|*
01892  M01S00039.catli1  +++|*         EXIT   FILE NAME SET IN OUTPUT LINE.

Seq #  *Modification Id* Act 
----------------------------+
01893  M02S00115.catli7  ---|*                IF FILE ON CARTRIDGE, FILE NAME IN ( ).
01894  M02S00116.catli7  ---|*                IF FILE ON TAPE, FILE NAME IN < >.

Seq #  *Modification Id* Act 
----------------------------+
01895  M01S00025.catli7  +++|*                IF FILE ON ALTERNATE STORAGE, FILE NAME IN ( ).

Seq #  *Modification Id* Act 
----------------------------+
01896  M01S00117.253l688 +++|*                IF ERROR CODE PRESENT, LEADING ASTERISK ON FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
01897  M01S00040.catli1  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01898  M02S00041.253l688 ---|*         USES   X - 0, 1, 2, 3, 5, 6.
01899  M02S00042.253l688 ---|*                A - 1, 2, 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01900  M01S00118.253l688 +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.
01901  M01S00119.253l688 +++|*                A - 1, 2, 3, 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
01902  M01S00043.catli1  +++|*                B - 2.
01903  M01S00044.catli1  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01904  M02S00045.catli6  ---|*         CALLS  AEN, ALN, SFN.

Seq #  *Modification Id* Act 
----------------------------+
01905  M01S00010.catli6  +++|*         CALLS  AEN, ALN, MTP, SFN.

Seq #  *Modification Id* Act 
----------------------------+
01906  M01S00046.catli1  +++|*
01907  M01S00047.catli1  +++|*         MACROS WRITEC.
01908  M00S00944.catlist +++|
01909  M00S00945.catlist +++|
01910  M00S00946.catlist +++| GSL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01911  M01S00947.catli1  ---|
01912  M00S00948.catlist +++|          SA5    GSLA        CHECK LINE FILE COUNT
01913  M00S00949.catlist +++|          SX2    7
01914  M00S00950.catlist +++|          IX2    X2-X5
01915  M00S00951.catlist +++|          NG     X2,GSL1     IF FIRST ENTRY
01916  M00S00952.catlist +++|          NZ     X2,GSL2     IF NOT END OF LINE
01917  M00S00953.catlist +++|          WRITEC O,LBUF
01918  M00S00954.catlist +++| GSL1     SB2    B1          ADVANCE LINE NUMBER BY 1
01919  M00S00955.catlist +++|          RJ     ALN
01920  M00S00956.catlist +++|          SX5    B0          RESET LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01921  M01S00957.catli1  ---|
01922  M00S00958.catlist +++| GSL2     RJ     AEN         ADVANCE ENTRY NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01923  M01S00959.253l688 ---|          SA1    CBUF        PICK ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01924  M01S00120.253l688 +++|          SA3    CBUF        PICK ENTRY
01925  M01S00121.253l688 +++|          SA4    MODE
01926  M01S00122.253l688 +++|          SB2    B0          SET DEFAULT IMAGE PATTERN
01927  M00S00960.catlist +++|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
01928  M01S00961.253l688 ---|          BX1    X0*X1
01929  M01S00962.253l688 ---|          ZR     X1,GSLX     IF NO NAME
01930  M01S00963.253l688 ---|          RJ     SFN         SPACE FILL NAME
01931  M01S00964.253l688 ---|          SA2    MODE        CHECK LIST MODE
01932  M01S00965.253l688 ---|          SX2    X2-MOSP

Seq #  *Modification Id* Act 
----------------------------+
01933  M02S00966.253l688 ---|          ZR     X2,GSL3     IF SHORT PERMIT LIST MODE

Seq #  *Modification Id* Act 
----------------------------+
01934  M02S00011.253l688 ---|          ZR     X2,GSL4     IF SHORT PERMIT LIST MODE

Seq #  *Modification Id* Act 
----------------------------+
01935  M02S00967.253l688 ---|          SA3    CBUF+FCEC   CHECK ERROR CODES
01936  M02S00968.253l688 ---|          SA2    ECT         GET ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
01937  M02S00048.253l688 ---|          SA3    CBUF        CHECK ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
01938  M01S00969.253l688 ---|          MX1    -3

Seq #  *Modification Id* Act 
----------------------------+
01939  M02S00970.253l688 ---|          LX3    59-41

Seq #  *Modification Id* Act 
----------------------------+
01940  M02S00049.253l688 ---|          LX3    -6

Seq #  *Modification Id* Act 
----------------------------+
01941  M01S00971.253l688 ---|          BX1    -X1*X3
01942  M01S00972.253l688 ---|          ZR     X1,GSL3     IF NO ERRORS

Seq #  *Modification Id* Act 
----------------------------+
01943  M02S00973.253l688 ---|          SX7    X2+B1       INCREMENT ERROR COUNT

Seq #  *Modification Id* Act 
----------------------------+
01944  M01S00974.253l688 ---|          SX1    1R &1R*     SET * TO INDICATE THE ERROR
01945  M01S00975.253l688 ---|          BX6    X6-X1

Seq #  *Modification Id* Act 
----------------------------+
01946  M02S00976.253l688 ---|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
01947  M02S00977.253l688 ---| GSL3     LX6    48

Seq #  *Modification Id* Act 
----------------------------+
01948  M02S00012.253l688 ---|          EQ     GSL4        ADVANCE LINE FILE COUNT
01949  M02S00013.253l688 ---|
01950  M02S00014.253l688 ---| GSL3     LX3    59-11
01951  M02S00015.253l688 ---|          PL     X3,GSL4     IF FILE DISK RESIDENT
01952  M02S00016.253l688 ---|          SX1    1R &1R(     SET *(* TO INDICATE NOT DISK RESIDENT
01953  M02S00017.253l688 ---|          BX6    X6-X1
01954  M02S00018.253l688 ---|          RJ     MTP         MARK WITH TERMINATING PARENTHESIS
01955  M02S00019.253l688 ---| GSL4     LX6    48

Seq #  *Modification Id* Act 
----------------------------+
01956  M01S00123.253l688 +++|          BX1    X0*X3
01957  M01S00124.253l688 +++|          MX6    -3
01958  M01S00125.253l688 +++|          SX4    X4-MOSP
01959  M01S00126.253l688 +++|          LX3    0-6
01960  M01S00127.253l688 +++|          BX6    -X6*X3      EXTRACT ERROR CODE
01961  M01S00128.253l688 +++|          LX3    59-9-0+6
01962  M01S00129.253l688 +++|          ZR     X4,GSL4     IF SHORT PERMIT MODE CATLIST
01963  M01S00130.253l688 +++|          ZR     X6,GSL3     IF NO ERROR CODE
01964  M01S00131.253l688 +++|          SB2    B2+1        SET IMAGE PATTERN FOR ERROR
01965  M01S00132.253l688 +++| GSL3     PL     X3,GSL4     IF FILE ON DISK

Seq #  *Modification Id* Act 
----------------------------+
01966  M02S00133.catli7  ---|          SB2    B2+2        SET IMAGE PATTERNS FOR CARTRIDGE
01967  M02S00134.catli7  ---|          LX3    59-10-59+9
01968  M02S00135.catli7  ---|          PL     X3,GSL4     IF FILE NOT ON TAPE
01969  M02S00136.catli7  ---|          SB2    B2+2        SET IMAGE PATTERNS FOR TAPE

Seq #  *Modification Id* Act 
----------------------------+
01970  M01S00026.catli7  +++|          SB2    B2+2        SET IMAGE PATTERNS FOR ALTERNATE STORAGE

Seq #  *Modification Id* Act 
----------------------------+
01971  M01S00137.253l688 +++| GSL4     SA2    GSLB+B2     LOAD IMAGE
01972  M01S00138.253l688 +++|          SA4    GSLC        =01010101010101010101B
01973  M01S00139.253l688 +++|          SX6    B1
01974  M01S00140.253l688 +++|          IX3    X1-X6       EXTEND RIGHTMOST BIT
01975  M01S00141.253l688 +++|          BX3    X3-X1       REMOVE ALL UNCHANGED BITS
01976  M01S00142.253l688 +++|          IX3    X3+X6       SET RIGHTMOST BIT OF FILE NAME
01977  M01S00143.253l688 +++|          BX7    X3
01978  M01S00144.253l688 +++|          LX7    -6
01979  M01S00145.253l688 +++|          IX3    X3-X7       SHIFT 1 AND EXTEND 6 (RIGHTMOST BIT)
01980  M01S00146.253l688 +++|          BX3    X4*X3       ISOLATE SINGLE BIT
01981  M01S00147.253l688 +++|          LX3    -6          POSITION FOR CHARACTER TO RIGHT
01982  M01S00148.253l688 +++|          BX3    X3+X6       ADD IN BOTTOM CHARACTER OF WORD
01983  M01S00149.253l688 +++|          BX7    X3
01984  M01S00150.253l688 +++|          LX3    6
01985  M01S00151.253l688 +++|          IX3    X3-X7       PREPARE MASK OF SURROUNDING CHARACTERS
01986  M01S00152.253l688 +++|          BX2    X3*X2       ISOLATE SURROUNDING CHARACTERS
01987  M01S00153.253l688 +++|          LX6    6
01988  M01S00154.253l688 +++|          IX6    X3-X6       EXTEND MASK OF REMAINING CHARACTERS
01989  M01S00155.253l688 +++|          BX6    -X3*X6      FINALIZE MASK
01990  M01S00156.253l688 +++|          SA4    GSLD
01991  M01S00157.253l688 +++|          BX4    X6*X4       EXTRACT REQUIRED BLANKS
01992  M01S00158.253l688 +++|          BX6    X1+X2       MERGE CHARACTERS INTO FINAL ASSEMBLY
01993  M01S00159.253l688 +++|          BX6    X6+X4
01994  M01S00160.253l688 +++|          LX6    48
01995  M00S00978.catlist +++|          SA6    LBUF+X5
01996  M00S00979.catlist +++|          SX6    X5+B1       ADVANCE LINE FILE COUNT
01997  M00S00980.catlist +++|          SA6    GSLA
01998  M00S00981.catlist +++|          EQ     GSLX        EXIT
01999  M00S00982.catlist +++|
02000  M00S00983.catlist +++|
02001  M00S00984.catlist +++| GSLA     CON    8           LINE POSITION

Seq #  *Modification Id* Act 
----------------------------+
02002  M01S00161.253l688 +++| GSLB     BSS    0           IMAGE MAPS
02003  M01S00162.253l688 +++|          DATA   10H            NO ERROR, FILE ON DISK
02004  M01S00163.253l688 +++|          DATA   10H         *  ERROR, FILE ON DISK

Seq #  *Modification Id* Act 
----------------------------+
02005  M02S00164.catli7  ---|          DATA   10H)))))))) (  NO ERROR, FILE ON CARTRIDGE
02006  M02S00165.catli7  ---|          DATA   10H)))))))) *  ERROR, FILE ON CARTRIDGE
02007  M02S00166.catli7  ---|          DATA   10H>>>>>>>> <  NO ERROR, FILE ON TAPE
02008  M02S00167.catli7  ---|          DATA   10H>>>>>>>> *  ERROR, FILE ON TAPE

Seq #  *Modification Id* Act 
----------------------------+
02009  M01S00027.catli7  +++|          DATA   10H)))))))) (  NO ERROR, FILE ON ALTERNATE STORAGE
02010  M01S00028.catli7  +++|          DATA   10H)))))))) *  ERROR, FILE ON ALTERNATE STORAGE

Seq #  *Modification Id* Act 
----------------------------+
02011  M01S00168.253l688 +++| GSLC     DATA   01010101010101010101B
02012  M01S00169.253l688 +++| GSLD     EQU    GSLB        =10H

Seq #  *Modification Id* Act 
----------------------------+
02013  M01S00985.ns22000 ---| HDR      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02014  M01S00415.ns22000 +++| HDR      SPACE  4,15
02015  M00S00986.catlist +++|**        HDR - HEADERS FOR LISTING CATALOGS AND PERMIT BUFFERS.
02016  M00S00987.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
02017  M01S00988.catli5  ---|*         ENTRY  (MODE) = MODE OF LISTING
02018  M01S00989.catli5  ---|*         EXIT   HEADER LINE PLACED IN OUTPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02019  M01S00014.catli5  +++|*         ENTRY  (MODE) = MODE OF LISTING.
02020  M01S00015.catli5  +++|*
02021  M01S00016.catli5  +++|*         EXIT   HEADER LINE PLACED IN OUTPUT BUFFER.
02022  M00S00990.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
02023  M01S00991.ns22000 ---|*         USES   A - 1, 6.
02024  M01S00992.ns22000 ---|*                X - 0, 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
02025  M01S00416.ns22000 +++|*         USES   X - 0, 1, 6.
02026  M01S00417.ns22000 +++|*                A - 1, 6.
02027  M01S00418.ns22000 +++|*
02028  M01S00419.ns22000 +++|*         MACROS WRITEC.
02029  M00S00993.catlist +++|
02030  M00S00994.catlist +++|
02031  M00S00995.catlist +++| HDR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02032  M01S00996.catli5  ---|          SA1    MODE        INDEX INTO HEADER POINTER TABLE

Seq #  *Modification Id* Act 
----------------------------+
02033  M02S00017.ns2573  ---|          SA1    FNM

Seq #  *Modification Id* Act 
----------------------------+
02034  M01S00196.ns2573  +++|          SA1    HDRI

Seq #  *Modification Id* Act 
----------------------------+
02035  M01S00018.catli5  +++|          SX0    B0+         INITIALIZE LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
02036  M02S00019.ns2573  ---|          ZR     X1,HDR0     IF NO ASTERISK IN *FN*
02037  M02S00020.ns2573  ---|          SA1    HDRI        PRINT *FILE NAME* HEADER

Seq #  *Modification Id* Act 
----------------------------+
02038  M01S00197.ns2573  +++|          ZR     X1,HDR0     IF NO FILE NAMES SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
02039  M01S00021.catli5  +++|          SX0    B1+B1       INCREMENT LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
02040  M02S00022.ns2573  ---|          WRITEC O,X1

Seq #  *Modification Id* Act 
----------------------------+
02041  M01S00198.ns2573  +++|          WRITEC O,X1        PRINT FILE NAME SUBHEADER

Seq #  *Modification Id* Act 
----------------------------+
02042  M01S00023.catli5  +++|          WRITEC O,BLK
02043  M01S00024.catli5  +++| HDR0     SA1    MODE        INDEX INTO HEADER POINTER TABLE
02044  M00S00997.catlist +++|          SA1    X1+HDRB

Seq #  *Modification Id* Act 
----------------------------+
02045  M01S00998.catli5  ---|          BX0    X0-X0       INITIALIZE FOR LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
02046  M02S00025.ns22000 ---|          ZR     X1,HDR1     IF NO HEADER MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02047  M01S00420.ns22000 +++|          ZR     X1,HDR2     IF NO HEADER MESSAGE DEFINED
02048  M00S00999.catlist +++|          BX6    X1
02049  M00S01000.catlist +++|          SA6    HDRA        SET INDEX BASE OF HEADER MESSAGES FOR MODE
02050  M00S01001.catlist +++|
02051  M00S01002.catlist +++|*         LOOP PRINTING HEADER MESSAGE LINES.
02052  M00S01003.catlist +++|
02053  M00S01004.catlist +++| HDR1     SA1    HDRA        EXAMINE CURRENT MESSAGE POINTER
02054  M00S01005.catlist +++|          SA1    X1
02055  M00S01006.catlist +++|          ZR     X1,HDR2     IF END OF HEADER MESSAGES
02056  M00S01007.catlist +++|          SX6    A1+B1       SET NEXT MESSAGE POINTER
02057  M00S01008.catlist +++|          SA6    HDRA
02058  M00S01009.catlist +++|          SX0    X0+B1       INCREMENT LINE COUNT
02059  M00S01010.catlist +++|          WRITEC O,X1
02060  M00S01011.catlist +++|          EQ     HDR1        CONTINUE LOOP
02061  M00S01012.catlist +++|
02062  M00S01013.catlist +++|*         COMPLETE HEADER PROCESSING.
02063  M00S01014.catlist +++|
02064  M00S01015.catlist +++| HDR2     WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
02065  M01S01016.catli5  ---|          WRITEC O,BLK
02066  M00S01017.catlist +++|          SA1    LN          INCREMENT LINE COUNT
02067  M00S01018.catlist +++|          IX6    X1+X0

Seq #  *Modification Id* Act 
----------------------------+
02068  M01S01019.catli5  ---|          SX6    X6+2

Seq #  *Modification Id* Act 
----------------------------+
02069  M01S00026.catli5  +++|          SX1    B1
02070  M01S00027.catli5  +++|          IX6    X6+X1
02071  M00S01020.catlist +++|          SA6    A1
02072  M00S01021.catlist +++|          EQ     HDRX        RETURN
02073  M00S01022.catlist +++|
02074  M00S01023.catlist +++|*         HEADER MESSAGE BASE POINTERS.
02075  M00S01024.catlist +++|
02076  M00S01025.catlist +++| HDRA     CON    0

Seq #  *Modification Id* Act 
----------------------------+
02077  M01S01026.catli5  ---| HDRB     CON    HDRC,HDRD,HDRE,HDRF,HDRG,HDRH

Seq #  *Modification Id* Act 
----------------------------+
02078  M02S00028.ns22000 ---| HDRB     CON    0,HDRD,0,HDRF,HDRG,HDRH

Seq #  *Modification Id* Act 
----------------------------+
02079  M01S00421.ns22000 +++| HDRB     CON    0,HDRD,HDRD,0,HDRF,HDRG,HDRH
02080  M00S01027.catlist +++|
02081  M00S01028.catlist +++|*         HEADER MESSAGE POINTERS.
02082  M00S01029.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02083  M01S01030.catli5  ---| HDRC     CON    HDR11       SHORT FILE LIST
02084  M01S01031.catli5  ---|          CON    0
02085  M01S01032.catli5  ---|
02086  M00S01033.catlist +++| HDRD     CON    /COMCFCE/CHDR1  FULL FILE LIST
02087  M00S01034.catlist +++|          CON    /COMCFCE/CHDR2
02088  M00S01035.catlist +++|          CON    /COMCFCE/CHDR3

Seq #  *Modification Id* Act 
----------------------------+
02089  M01S00019.v23l617 +++|          CON    /COMCFCE/CHDR4
02090  M00S01036.catlist +++|          CON    0
02091  M00S01037.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02092  M01S01038.catli5  ---| HDRE     CON    HDR11       SHORT ALTERNATE CATALOG
02093  M01S01039.catli5  ---|          CON    0
02094  M01S01040.catli5  ---|
02095  M00S01041.catlist +++| HDRF     CON    /COMCFCE/CHDR1  FULL ALTERNATE CATALOG
02096  M00S01042.catlist +++|          CON    HDR42

Seq #  *Modification Id* Act 
----------------------------+
02097  M01S01043.v23l617 ---|          CON    /COMCFCE/CHDR3

Seq #  *Modification Id* Act 
----------------------------+
02098  M01S00020.v23l617 +++|          CON    HDR43

Seq #  *Modification Id* Act 
----------------------------+
02099  M02S00021.253l688 ---|          CON    /COMCFCE/CHDR4

Seq #  *Modification Id* Act 
----------------------------+
02100  M01S00170.253l688 +++|          CON    HDR44
02101  M00S01044.catlist +++|          CON    0
02102  M00S01045.catlist +++|
02103  M00S01046.catlist +++| HDRG     CON    HDR51       SHORT PERMIT ENTRIES
02104  M00S01047.catlist +++|          CON    0
02105  M00S01048.catlist +++|
02106  M00S01049.catlist +++| HDRH     CON    HDR61       FULL PERMIT ENTRIES
02107  M00S01050.catlist +++|          CON    0
02108  M00S01051.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02109  M02S00029.ns2573  ---| HDRI     CON    HDR71       ASTERISK IN *FN*

Seq #  *Modification Id* Act 
----------------------------+
02110  M01S00199.ns2573  +++| HDRI     CON    0           SUBHEADER IF FILE NAMES SPECIFIED
02111  M01S00200.ns2573  +++|*         CON    HDR71       (SINGLE FILE NAME TEMPLATE SPECIFIED)
02112  M01S00201.ns2573  +++|*         CON    HDR72       (MULTIPLE FILE NAMES SPECIFIED)

Seq #  *Modification Id* Act 
----------------------------+
02113  M01S00030.catli5  +++|          CON    0
02114  M01S00031.catli5  +++|

Seq #  *Modification Id* Act 
----------------------------+
02115  M01S01052.v23l617 ---|**        HEADERS

Seq #  *Modification Id* Act 
----------------------------+
02116  M01S00022.v23l617 +++|*         HEADERS.
02117  M00S01053.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02118  M01S01054.catli5  ---| HDR11    DATA   C*  FILE NAME(S)*
02119  M01S01055.catli5  ---|

Seq #  *Modification Id* Act 
----------------------------+
02120  M01S01056.v23l617 ---| HDR42    DATA   C*             MD/CNT INDEX  PERM. SUBSYS DATE/TIME DAT
02121  M01S01057.v23l617 ---|,E/TIME DATE/TIME*

Seq #  *Modification Id* Act 
----------------------------+
02122  M02S00023.253l688 ---| HDR42    DATA   C*               COUNT INDEX  PERM. SUBSYS DATE/TIME DA

Seq #  *Modification Id* Act 
----------------------------+
02123  M01S00171.253l688 +++| HDR42    DATA   C*               COUNT        PERM. SUBSYS DATE/TIME DA

Seq #  *Modification Id* Act 
----------------------------+
02124  M01S00024.v23l617 +++|,TE/TIME DATE/TIME*

Seq #  *Modification Id* Act 
----------------------------+
02125  M02S00025.253l688 ---| HDR43    DATA   C*                LEVEL  PR BR RS AC*

Seq #  *Modification Id* Act 
----------------------------+
02126  M01S00172.253l688 +++| HDR43    DATA   C*                       PR BR AC RS*
02127  M01S00173.253l688 +++|
02128  M01S00174.253l688 +++| HDR44    DATA   40C
02129  M00S01058.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02130  M01S01059.ns22000 ---| HDR51    DATA   C*  USER NUMBER(S)*

Seq #  *Modification Id* Act 
----------------------------+
02131  M01S00422.ns22000 +++| HDR51    DATA   C*  USER NAMES*
02132  M00S01060.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02133  M01S01061.ns22000 ---| HDR61    DATA   C* USER NUMBER   PERM.  ACCESSES  DATE     TIME*

Seq #  *Modification Id* Act 
----------------------------+
02134  M01S00423.ns22000 +++| HDR61    DATA   C* USER NAME      PERM.  EXPIRES  ACCESSES   DATE
02135  M01S00424.ns22000 +++|,TIME*

Seq #  *Modification Id* Act 
----------------------------+
02136  M01S00032.catli5  +++|
02137  M01S00033.catli5  +++| HDR71    CON    1H
02138  M01S00034.catli5  +++|          CON    10HFILE NAME
02139  M00S01062.catlist +++|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
02140  M01S00202.ns2573  +++|
02141  M01S00203.ns2573  +++| HDR72    CON    1H
02142  M01S00204.ns2573  +++|          DATA   C*SELECTED FILES*

Seq #  *Modification Id* Act 
----------------------------+
02143  M01S00425.ns22000 +++| LCS      SPACE  4,15
02144  M01S00426.ns22000 +++|**        LCS - LIST CATEGORY SET FOR FILE.
02145  M01S00427.ns22000 +++|*
02146  M01S00428.ns22000 +++|*         ENTRY  (CBUF) = CATALOG ENTRY.
02147  M01S00429.ns22000 +++|*
02148  M01S00430.ns22000 +++|*         EXIT   FILE-S CATEGORY SET IS SORTED AND LISTED.
02149  M01S00431.ns22000 +++|*
02150  M01S00432.ns22000 +++|*         USES   X - 0, 1, 2, 6, 7.
02151  M01S00433.ns22000 +++|*                A - 0, 1, 2, 6, 7.
02152  M01S00434.ns22000 +++|*                B - 2, 7.
02153  M01S00435.ns22000 +++|*
02154  M01S00436.ns22000 +++|*         CALLS  ALN, GNI, GSL, NIP.
02155  M01S00437.ns22000 +++|*
02156  M01S00438.ns22000 +++|*         MACROS WRITEC, WRITEH.
02157  M01S00439.ns22000 +++|
02158  M01S00440.ns22000 +++|
02159  M01S00441.ns22000 +++| LCS      SUBR               ENTRY/EXIT
02160  M01S00442.ns22000 +++|          SA1    CBUF+FCFC   CATEGORY SET WORD
02161  M01S00443.ns22000 +++|          MX0    -32
02162  M01S00444.ns22000 +++|          BX1    -X0*X1
02163  M01S00445.ns22000 +++|          SB2    32          NUMBER OF CATEGORIES POSSIBLE
02164  M01S00446.ns22000 +++|          SA0    B0          INITIALIZE CATEGORY SET COUNTER
02165  M01S00447.ns22000 +++|          MX0    42
02166  M01S00448.ns22000 +++|          LX1    59-32
02167  M01S00449.ns22000 +++| LCS1     SB2    B2-B1
02168  M01S00450.ns22000 +++|          NG     B2,LCS2     IF DONE ANALYZING CATEGORY WORD
02169  M01S00451.ns22000 +++|          LX1    1
02170  M01S00452.ns22000 +++|          PL     X1,LCS1     IF CATEGORY NOT VALIDATED
02171  M01S00453.ns22000 +++|          SA2    TACT+B2     SET CATEGORY MNEMONIC IN BUFFER
02172  M01S00454.ns22000 +++|          BX6    X0*X2
02173  M01S00455.ns22000 +++|          SA6    SBUF+A0
02174  M01S00456.ns22000 +++|          SA0    A0+B1
02175  M01S00457.ns22000 +++|          EQ     LCS1        CHECK NEXT CATEGORY
02176  M01S00458.ns22000 +++|
02177  M01S00459.ns22000 +++| LCS2     SX1    A0
02178  M01S00460.ns22000 +++|          ZR     X1,LCSX     IF NO ACCESS CATEGORY SET ENTRIES
02179  M01S00461.ns22000 +++|          SB7    SBUF        SORT CATEGORY ENTRIES
02180  M01S00462.ns22000 +++|          RJ     SST=
02181  M01S00463.ns22000 +++|          SX1    A0
02182  M01S00464.ns22000 +++|          SX6    A0
02183  M01S00465.ns22000 +++|          SA6    LCSA
02184  M01S00466.ns22000 +++|          RJ     NIP         PRESET *GNI*
02185  M01S00467.ns22000 +++|          WRITEH O,LCSB,LCSBL
02186  M01S00468.ns22000 +++|          WRITEC O,BLK
02187  M01S00469.ns22000 +++|          SB2    B1+B1
02188  M01S00470.ns22000 +++|          RJ     ALN         ADVANCE LINE NUMBER
02189  M01S00471.ns22000 +++|          SX7    8
02190  M01S00472.ns22000 +++|          SA7    GSLA
02191  M01S00473.ns22000 +++| LCS3     SA1    LCSA
02192  M01S00474.ns22000 +++|          SX6    X1-1
02193  M01S00475.ns22000 +++|          SA6    A1
02194  M01S00476.ns22000 +++|          NG     X6,LCS4     IF END OF ENTRIES
02195  M01S00477.ns22000 +++|          RJ     GNI         GET NEXT ENTRY
02196  M01S00478.ns22000 +++|          SA1    X1+SBUF     GET ACTUAL ENTRY
02197  M01S00479.ns22000 +++|          BX6    X1
02198  M01S00480.ns22000 +++|          SA6    CBUF
02199  M01S00481.ns22000 +++|          RJ     GSL         GENERATE SHORT LIST
02200  M01S00482.ns22000 +++|          EQ     LCS3        GET NEXT CATEGORY ENTRY
02201  M01S00483.ns22000 +++|
02202  M01S00484.ns22000 +++| LCS4     WRITEC O,LBUF      LAST LINE OF CATEGORY SET
02203  M01S00485.ns22000 +++|          WRITEC O,BLK
02204  M01S00486.ns22000 +++|          EQ     LCSX        RETURN
02205  M01S00487.ns22000 +++|
02206  M01S00488.ns22000 +++| LCSA     CON    0           NUMBER OF VALIDATED CATEGORY SETS
02207  M01S00489.ns22000 +++| LCSB     DATA   C*    FILE ACCESS CATEGORY SET*
02208  M01S00490.ns22000 +++| LCSBL    EQU    *-LCSB

Seq #  *Modification Id* Act 
----------------------------+
02209  M02S00491.catli6  ---| NIP      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
02210  M02S00020.253l688 ---| MTP      SPACE  4,10
02211  M02S00021.253l688 ---|**        MTP - MARK WITH TERMINATING PARENTHESIS.
02212  M02S00022.253l688 ---|*

Proceed to Part 2