Deck CATLIST Part 002

16 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
01702  M02S00772.ns22000 ---|          SA1    TP          CHECK IF TITLE PAGE ALREADY PRINTED

Seq #  *Modification Id* Act 
----------------------------+
01703  M02S00773.ns22000 ---|          NZ     X1,ALN2     IF TITLE ALREADY PRINTED

Seq #  *Modification Id* Act 
----------------------------+
01704  M02S00774.ns22000 ---| ALN1     RJ     PTP         PRINT TITLE PAGE

Seq #  *Modification Id* Act 
----------------------------+
01705  M02S00775.ns22000 ---|          SX6    B1          SET TITLE PAGE FLAG FOR TERMINAL

Seq #  *Modification Id* Act 
----------------------------+
01706  M02S00776.ns22000 ---|          SA6    TP

Seq #  *Modification Id* Act 
----------------------------+
01707  M03S00777.ns22000 ---|          SA1    MODE

Seq #  *Modification Id* Act 
----------------------------+
01708  M03S00778.ns22000 ---|          ZR     X1,ALN2     IF SHORT FILE LIST

Seq #  *Modification Id* Act 
----------------------------+
01709  M02S00779.ns22000 ---|          RJ     HDR         PRINT HEADER

Seq #  *Modification Id* Act 
----------------------------+
01710  M02S00780.ns22000 ---| ALN2     SB2    7           CLEAR LINE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01711  M02S00781.ns22000 ---|          SX6    B0

Seq #  *Modification Id* Act 
----------------------------+
01712  M02S00782.ns22000 ---| ALN3     ZR     B2,ALNX     IF END OF LINE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01713  M02S00783.ns22000 ---|          SA6    LBUF+B2

Seq #  *Modification Id* Act 
----------------------------+
01714  M02S00784.ns22000 ---|          SB2    B2-B1

Seq #  *Modification Id* Act 
----------------------------+
01715  M02S00785.ns22000 ---|          EQ     ALN3

Seq #  *Modification Id* Act 
----------------------------+
01716  M02S00786.ns22000 ---| AEN      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01717  M02S00787.ns22000 ---|**        AEN - ADVANCE ENTRY NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
01718  M02S00788.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01719  M02S00789.ns22000 ---|*         ENTRY  (NO) = NUMBER OF FILES.

Seq #  *Modification Id* Act 
----------------------------+
01720  M02S00790.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01721  M02S00791.ns22000 ---|*         EXIT   (NO) ADVANCED

Seq #  *Modification Id* Act 
----------------------------+
01722  M02S00792.ns22000 ---|*                (FLN) = ADVANCED FILE NUMBER IN DISPLAY CODE

Seq #  *Modification Id* Act 
----------------------------+
01723  M02S00793.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01724  M02S00794.ns22000 ---|*         USES   X   0, 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
01725  M02S00795.ns22000 ---|*                A   1, 6.

Seq #  *Modification Id* Act 
----------------------------+
01726  M02S00796.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01727  M02S00797.ns22000 ---|*         CALLS  CDD.

Seq #  *Modification Id* Act 
----------------------------+
01728  M02S00798.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01729  M02S00799.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01730  M02S00800.ns22000 ---| AEN      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01731  M02S00801.ns22000 ---|          SA1    NO          ADVANCE FILE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01732  M02S00802.ns22000 ---|          SX1    X1+B1

Seq #  *Modification Id* Act 
----------------------------+
01733  M02S00803.ns22000 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
01734  M02S00804.ns22000 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01735  M02S00805.ns22000 ---|          RJ     CDD

Seq #  *Modification Id* Act 
----------------------------+
01736  M02S00806.ns22000 ---|          SX1    1R.         SET PERIOD

Seq #  *Modification Id* Act 
----------------------------+
01737  M02S00807.ns22000 ---|          MX0    54

Seq #  *Modification Id* Act 
----------------------------+
01738  M02S00808.ns22000 ---|          LX6    6

Seq #  *Modification Id* Act 
----------------------------+
01739  M02S00809.ns22000 ---|          BX6    X0*X6

Seq #  *Modification Id* Act 
----------------------------+
01740  M02S00810.ns22000 ---|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
01741  M02S00811.ns22000 ---|          SA6    FLN

Seq #  *Modification Id* Act 
----------------------------+
01742  M02S00812.ns22000 ---|          EQ     AENX

Seq #  *Modification Id* Act 
----------------------------+
01743  M02S00813.ns22000 ---| AFS      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01744  M02S00814.ns22000 ---|**        AFS - ACCUMULATE FILE SIZE.

Seq #  *Modification Id* Act 
----------------------------+
01745  M02S00815.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01746  M02S00816.ns22000 ---|*         *AFS* INCREMENTS  THE INDIRECT/DIRECT ACCESS FILE

Seq #  *Modification Id* Act 
----------------------------+
01747  M02S00817.ns22000 ---|*         COUNT AND ACCUMULATES THE TOTAL PRUS FOR EACH FILE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
01748  M02S00818.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01749  M02S00819.ns22000 ---|*         ENTRY  (CBUF) = CATALOG ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01750  M02S00820.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01751  M02S00821.ns22000 ---|*         EXIT   (FSI) OR (FSD) UPDATED.

Seq #  *Modification Id* Act 
----------------------------+
01752  M02S00822.ns22000 ---|*                (FCI) OR (FCD) UPDATED.

Seq #  *Modification Id* Act 
----------------------------+
01753  M02S00823.ns22000 ---|*                (X1) = 1 IF DIRECT ACCESS FILE, 0 IF INDIRECT.

Seq #  *Modification Id* Act 
----------------------------+
01754  M02S00824.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01755  M02S00825.ns22000 ---|*         USES   X - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
01756  M02S00826.ns22000 ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
01757  M02S00827.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01758  M02S00828.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01759  M02S00829.ns22000 ---| AFS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01760  M02S00830.ns22000 ---|          SA1    CBUF+1      GET FILE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01761  M02S00831.ns22000 ---|          MX2    -24

Seq #  *Modification Id* Act 
----------------------------+
01762  M02S00832.ns22000 ---|          LX1    24

Seq #  *Modification Id* Act 
----------------------------+
01763  M02S00833.ns22000 ---|          BX6    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
01764  M02S00834.ns22000 ---|          LX1    60-24-11    CHECK FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
01765  M02S00835.ns22000 ---|          MX2    -1

Seq #  *Modification Id* Act 
----------------------------+
01766  M02S00836.ns22000 ---|          BX1    -X2*X1      (X1)=1 IF DIRECT, 0 IF INDIRECT

Seq #  *Modification Id* Act 
----------------------------+
01767  M02S00837.ns22000 ---|          SA2    FSI+X1      GET ACCUMULATED SIZE

Seq #  *Modification Id* Act 
----------------------------+
01768  M02S00838.ns22000 ---|          IX6    X6+X2       INCREMENT ACCUMULATED SIZE

Seq #  *Modification Id* Act 
----------------------------+
01769  M02S00839.ns22000 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
01770  M02S00840.ns22000 ---|          SA2    FCI+X1      GET FILE TYPE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01771  M02S00841.ns22000 ---|          SX6    X2+B1

Seq #  *Modification Id* Act 
----------------------------+
01772  M02S00842.ns22000 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
01773  M02S00843.ns22000 ---|          EQ     AFSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01774  M02S00844.ns22000 ---| CSM      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01775  M02S00845.ns22000 ---|**        CSM - CHECK SELECTION MASK.

Seq #  *Modification Id* Act 
----------------------------+
01776  M02S00846.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01777  M02S00847.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01778  M02S00848.ns22000 ---|*         *CSM* CHECKS TO SEE IF A FILE NAME MASK IS PRESENT AND

Seq #  *Modification Id* Act 
----------------------------+
01779  M02S00849.ns22000 ---|*         IF SO THEN THE FILE NAME IS CHECKED AGAINST THE MASK TO

Seq #  *Modification Id* Act 
----------------------------+
01780  M02S00850.ns22000 ---|*         SEE IF THE FILE IS TO BE LISTED.

Seq #  *Modification Id* Act 
----------------------------+
01781  M02S00851.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01782  M02S00852.ns22000 ---|*         ENTRY  (CBUF) = CATALOG ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
01783  M02S00853.ns22000 ---|*                (FNM) = FILE NAME MASK.

Seq #  *Modification Id* Act 
----------------------------+
01784  M02S00854.ns22000 ---|*                (FNS) = STRIPPED FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
01785  M02S00855.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01786  M02S00856.ns22000 ---|*         EXIT   (X1) = 0 IF FILE IS TO BE LISTED OR IF NO

Seq #  *Modification Id* Act 
----------------------------+
01787  M02S00857.ns22000 ---|*                       MASK IS PRESENT.

Seq #  *Modification Id* Act 
----------------------------+
01788  M02S00858.ns22000 ---|*                     = NONZERO IF MASK SPECIFIED BUT FILE NOT

Seq #  *Modification Id* Act 
----------------------------+
01789  M02S00859.ns22000 ---|*                       TO BE LISTED.

Seq #  *Modification Id* Act 
----------------------------+
01790  M02S00860.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01791  M02S00861.ns22000 ---|*         USES   X - 1, 2, 3.

Seq #  *Modification Id* Act 
----------------------------+
01792  M02S00862.ns22000 ---|*                A - 1, 2, 3.

Seq #  *Modification Id* Act 
----------------------------+
01793  M02S00863.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01794  M02S00864.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01795  M02S00865.ns22000 ---| CSM      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01796  M02S00866.ns22000 ---|          SA1    FNM         FILE NAME MASK

Seq #  *Modification Id* Act 
----------------------------+
01797  M02S00867.ns22000 ---|          SA2    CBUF        CHECK CATALOG ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01798  M02S00868.ns22000 ---|          ZR     X1,CSM      IF NO MASK SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
01799  M02S00869.ns22000 ---|          SA3    FNS         (FNS) = STRIPPED FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01800  M02S00870.ns22000 ---|          BX2    X2-X3

Seq #  *Modification Id* Act 
----------------------------+
01801  M02S00871.ns22000 ---|          BX1    X1*X2

Seq #  *Modification Id* Act 
----------------------------+
01802  M02S00872.ns22000 ---|          EQ     CSMX        RETURN
01803  M01S00873.catlist +++| GNI      SPACE  4,15
01804  M01S00874.catlist +++|**        GNI - GET NEXT ENTRY INDEX.
01805  M01S00875.catlist +++|*
01806  M01S00876.catlist +++|*         ENTRY  MUST HAVE GONE TO *NIP* TO PRESET INDEX.
01807  M01S00877.catlist +++|*
01808  M01S00878.catlist +++|*         EXIT   (X1) = INDEX FOR NEXT ENTRY TO PROVIDE A SORTED
01809  M01S00879.catlist +++|*                       LIST ORDERED BY COLUMNS.
01810  M01S00880.catlist +++|*
01811  M01S00881.catlist +++|*         USES   X - 1, 2, 3, 4, 6.
01812  M01S00882.catlist +++|*                A - 1, 2, 4, 6.
01813  M01S00883.catlist +++|
01814  M01S00884.catlist +++|
01815  M01S00885.catlist +++| GNI3     IX6    X1+X4       ADD INCREMENT
01816  M01S00886.catlist +++|          SA6    GNIB
01817  M01S00887.catlist +++|
01818  M01S00888.catlist +++| GNI      SUBR               ENTRY/EXIT
01819  M01S00889.catlist +++|          SA2    GNIA
01820  M01S00890.catlist +++|          SX3    7           CHECK LINE LENGTH
01821  M01S00891.catlist +++|          IX4    X2-X3
01822  M01S00892.catlist +++|          PL     X4,GNI2     IF END OF LINE
01823  M01S00893.catlist +++|          SA1    A2+B1       GET ENTRY BIAS
01824  M01S00894.catlist +++| GNI1     SX6    X2+B1       UPDATE COLUMN NUMBER
01825  M01S00895.catlist +++|          SA4    GNID        GET REMAINDER
01826  M01S00896.catlist +++|          SA6    A2
01827  M01S00897.catlist +++|          IX3    X2-X4
01828  M01S00898.catlist +++|          SA4    A4-B1       GET INCREMENT
01829  M01S00899.catlist +++|          NG     X3,GNI3     IF FULL INCREMENT TO BE USED
01830  M01S00900.catlist +++|          SX4    X4-1
01831  M01S00901.catlist +++|          EQ     GNI3        USE INCREMENT-1
01832  M01S00902.catlist +++|
01833  M01S00903.catlist +++| GNI2     SA1    GNIE        GET LINE INDEX
01834  M01S00904.catlist +++|          SX6    X1+B1
01835  M01S00905.catlist +++|          MX2    0           CLEAR C0LUMN NUMBER
01836  M01S00906.catlist +++|          BX1    X6
01837  M01S00907.catlist +++|          SA6    A1
01838  M01S00908.catlist +++|          EQ     GNI1        SET CELLS FOR NEW LINE
01839  M01S00909.catlist +++|
01840  M01S00910.catlist +++|
01841  M01S00911.catlist +++| GNIA     CON    0           COLUMN NUMBER
01842  M01S00912.catlist +++| GNIB     CON    0           ENTRY BIAS
01843  M01S00913.catlist +++| GNIC     CON    0           ROW INCREMENT
01844  M01S00914.catlist +++| GNID     CON    0           REMAINDER
01845  M01S00915.catlist +++| GNIE     CON    0           LINE INDEX

Seq #  *Modification Id* Act 
----------------------------+
01846  M02S00916.ns22000 ---| NIP      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01847  M02S00917.ns22000 ---|**        NIP - NEXT INDEX PRESET.

Seq #  *Modification Id* Act 
----------------------------+
01848  M02S00918.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01849  M02S00919.ns22000 ---|*         ENTRY  (X1) = ENTRY COUNT.

Seq #  *Modification Id* Act 
----------------------------+
01850  M02S00920.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01851  M02S00921.ns22000 ---|*         EXIT   TEMPORARY CELLS PRESET FOR *GNI*.

Seq #  *Modification Id* Act 
----------------------------+
01852  M02S00922.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01853  M02S00923.ns22000 ---|*         USES   X - 1, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01854  M02S00924.ns22000 ---|*                A - 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01855  M02S00925.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01856  M02S00926.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
01857  M02S00927.ns22000 ---| NIP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01858  M02S00928.ns22000 ---|          MX6    0

Seq #  *Modification Id* Act 
----------------------------+
01859  M02S00929.ns22000 ---|          SX3    7           LINE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01860  M02S00930.ns22000 ---|          SA6    GNIA

Seq #  *Modification Id* Act 
----------------------------+
01861  M02S00931.ns22000 ---|          SA6    GNIB

Seq #  *Modification Id* Act 
----------------------------+
01862  M02S00932.ns22000 ---|          SA6    GNIE

Seq #  *Modification Id* Act 
----------------------------+
01863  M02S00933.ns22000 ---| NIP1     IX1    X1-X3       DIVIDE BY 7

Seq #  *Modification Id* Act 
----------------------------+
01864  M02S00934.ns22000 ---|          SX6    X6+B1

Seq #  *Modification Id* Act 
----------------------------+
01865  M02S00935.ns22000 ---|          PL     X1,NIP1     IF NOT POSITION IN ROW

Seq #  *Modification Id* Act 
----------------------------+
01866  M02S00936.ns22000 ---|          IX7    X3+X1

Seq #  *Modification Id* Act 
----------------------------+
01867  M02S00937.ns22000 ---|          SA6    GNIC

Seq #  *Modification Id* Act 
----------------------------+
01868  M02S00938.ns22000 ---|          SA7    GNID

Seq #  *Modification Id* Act 
----------------------------+
01869  M02S00939.ns22000 ---|          EQ     NIP         RETURN

Seq #  *Modification Id* Act 
----------------------------+
01870  M02S00940.ns22000 ---| GSL      SPACE  4

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

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

Seq #  *Modification Id* Act 
----------------------------+
01873  M03S00942.253l688 ---|*

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

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

Seq #  *Modification Id* Act 
----------------------------+
01879  M02S00037.253l688 ---|*         ENTRY  (CBUF) = CATALOG ENTRY.
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.
01883  M01S00024.catli7  +++|*                42/PFN,8/0,1/N,3/EC,2/0,1/D,3/0.
01884  M01S00108.253l688 +++|*                            PFN = PERMANENT FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
01885  M02S00109.catli7  ---|*                            T = 1 IF FILE ON TAPE.
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
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 ( ).

Seq #  *Modification Id* Act 
----------------------------+
01894  M02S00116.catli7  ---|*                IF FILE ON TAPE, FILE NAME IN < >.
01895  M01S00025.catli7  +++|*                IF FILE ON ALTERNATE STORAGE, FILE NAME IN ( ).
01896  M01S00117.253l688 +++|*                IF ERROR CODE PRESENT, LEADING ASTERISK ON FILE NAME.
01897  M01S00040.catli1  +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
01899  M02S00042.253l688 ---|*                A - 1, 2, 3, 5, 6.
01900  M01S00118.253l688 +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.
01901  M01S00119.253l688 +++|*                A - 1, 2, 3, 4, 5, 6.
01902  M01S00043.catli1  +++|*                B - 2.
01903  M01S00044.catli1  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01904  M02S00045.catli6  ---|*         CALLS  AEN, ALN, SFN.
01905  M01S00010.catli6  +++|*         CALLS  AEN, ALN, MTP, SFN.
01906  M01S00046.catli1  +++|*
01907  M01S00047.catli1  +++|*         MACROS WRITEC.
01908  M01S00944.catlist +++|
01909  M01S00945.catlist +++|
01910  M01S00946.catlist +++| GSL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01911  M02S00947.catli1  ---|
01912  M01S00948.catlist +++|          SA5    GSLA        CHECK LINE FILE COUNT
01913  M01S00949.catlist +++|          SX2    7
01914  M01S00950.catlist +++|          IX2    X2-X5
01915  M01S00951.catlist +++|          NG     X2,GSL1     IF FIRST ENTRY
01916  M01S00952.catlist +++|          NZ     X2,GSL2     IF NOT END OF LINE
01917  M01S00953.catlist +++|          WRITEC O,LBUF
01918  M01S00954.catlist +++| GSL1     SB2    B1          ADVANCE LINE NUMBER BY 1
01919  M01S00955.catlist +++|          RJ     ALN
01920  M01S00956.catlist +++|          SX5    B0          RESET LINE COUNT

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

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

Seq #  *Modification Id* Act 
----------------------------+
01928  M02S00961.253l688 ---|          BX1    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01929  M02S00962.253l688 ---|          ZR     X1,GSLX     IF NO NAME

Seq #  *Modification Id* Act 
----------------------------+
01930  M02S00963.253l688 ---|          RJ     SFN         SPACE FILL NAME

Seq #  *Modification Id* Act 
----------------------------+
01931  M02S00964.253l688 ---|          SA2    MODE        CHECK LIST MODE

Seq #  *Modification Id* Act 
----------------------------+
01932  M02S00965.253l688 ---|          SX2    X2-MOSP

Seq #  *Modification Id* Act 
----------------------------+
01933  M03S00966.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  M03S00967.253l688 ---|          SA3    CBUF+FCEC   CHECK ERROR CODES

Seq #  *Modification Id* Act 
----------------------------+
01936  M03S00968.253l688 ---|          SA2    ECT         GET ERROR COUNT

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
01941  M02S00971.253l688 ---|          BX1    -X1*X3

Seq #  *Modification Id* Act 
----------------------------+
01942  M02S00972.253l688 ---|          ZR     X1,GSL3     IF NO ERRORS

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

Seq #  *Modification Id* Act 
----------------------------+
01944  M02S00974.253l688 ---|          SX1    1R &1R*     SET * TO INDICATE THE ERROR

Seq #  *Modification Id* Act 
----------------------------+
01945  M02S00975.253l688 ---|          BX6    X6-X1

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

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

Seq #  *Modification Id* Act 
----------------------------+
01948  M02S00012.253l688 ---|          EQ     GSL4        ADVANCE LINE FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01949  M02S00013.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
01950  M02S00014.253l688 ---| GSL3     LX3    59-11

Seq #  *Modification Id* Act 
----------------------------+
01951  M02S00015.253l688 ---|          PL     X3,GSL4     IF FILE DISK RESIDENT

Seq #  *Modification Id* Act 
----------------------------+
01952  M02S00016.253l688 ---|          SX1    1R &1R(     SET *(* TO INDICATE NOT DISK RESIDENT

Seq #  *Modification Id* Act 
----------------------------+
01953  M02S00017.253l688 ---|          BX6    X6-X1

Seq #  *Modification Id* Act 
----------------------------+
01954  M02S00018.253l688 ---|          RJ     MTP         MARK WITH TERMINATING PARENTHESIS

Seq #  *Modification Id* Act 
----------------------------+
01955  M02S00019.253l688 ---| GSL4     LX6    48
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

Seq #  *Modification Id* Act 
----------------------------+
01967  M02S00134.catli7  ---|          LX3    59-10-59+9

Seq #  *Modification Id* Act 
----------------------------+
01968  M02S00135.catli7  ---|          PL     X3,GSL4     IF FILE NOT ON TAPE

Seq #  *Modification Id* Act 
----------------------------+
01969  M02S00136.catli7  ---|          SB2    B2+2        SET IMAGE PATTERNS FOR TAPE
01970  M01S00026.catli7  +++|          SB2    B2+2        SET IMAGE PATTERNS FOR ALTERNATE STORAGE
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  M01S00978.catlist +++|          SA6    LBUF+X5
01996  M01S00979.catlist +++|          SX6    X5+B1       ADVANCE LINE FILE COUNT
01997  M01S00980.catlist +++|          SA6    GSLA
01998  M01S00981.catlist +++|          EQ     GSLX        EXIT
01999  M01S00982.catlist +++|
02000  M01S00983.catlist +++|
02001  M01S00984.catlist +++| GSLA     CON    8           LINE POSITION
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

Seq #  *Modification Id* Act 
----------------------------+
02006  M02S00165.catli7  ---|          DATA   10H)))))))) *  ERROR, FILE ON CARTRIDGE

Seq #  *Modification Id* Act 
----------------------------+
02007  M02S00166.catli7  ---|          DATA   10H>>>>>>>> <  NO ERROR, FILE ON TAPE

Seq #  *Modification Id* Act 
----------------------------+
02008  M02S00167.catli7  ---|          DATA   10H>>>>>>>> *  ERROR, FILE ON TAPE
02009  M01S00027.catli7  +++|          DATA   10H)))))))) (  NO ERROR, FILE ON ALTERNATE STORAGE
02010  M01S00028.catli7  +++|          DATA   10H)))))))) *  ERROR, FILE ON ALTERNATE STORAGE
02011  M01S00168.253l688 +++| GSLC     DATA   01010101010101010101B
02012  M01S00169.253l688 +++| GSLD     EQU    GSLB        =10H

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

Seq #  *Modification Id* Act 
----------------------------+
02017  M02S00988.catli5  ---|*         ENTRY  (MODE) = MODE OF LISTING

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

Seq #  *Modification Id* Act 
----------------------------+
02023  M02S00991.ns22000 ---|*         USES   A - 1, 6.

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

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

Seq #  *Modification Id* Act 
----------------------------+
02033  M02S00017.ns2573  ---|          SA1    FNM
02034  M01S00196.ns2573  +++|          SA1    HDRI
02035  M01S00018.catli5  +++|          SX0    B0+         INITIALIZE LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
02036  M02S00019.ns2573  ---|          ZR     X1,HDR0     IF NO ASTERISK IN *FN*

Seq #  *Modification Id* Act 
----------------------------+
02037  M02S00020.ns2573  ---|          SA1    HDRI        PRINT *FILE NAME* HEADER
02038  M01S00197.ns2573  +++|          ZR     X1,HDR0     IF NO FILE NAMES SPECIFIED
02039  M01S00021.catli5  +++|          SX0    B1+B1       INCREMENT LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
02040  M02S00022.ns2573  ---|          WRITEC O,X1
02041  M01S00198.ns2573  +++|          WRITEC O,X1        PRINT FILE NAME SUBHEADER
02042  M01S00023.catli5  +++|          WRITEC O,BLK
02043  M01S00024.catli5  +++| HDR0     SA1    MODE        INDEX INTO HEADER POINTER TABLE
02044  M01S00997.catlist +++|          SA1    X1+HDRB

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

Seq #  *Modification Id* Act 
----------------------------+
02046  M02S00025.ns22000 ---|          ZR     X1,HDR1     IF NO HEADER MESSAGE
02047  M01S00420.ns22000 +++|          ZR     X1,HDR2     IF NO HEADER MESSAGE DEFINED
02048  M01S00999.catlist +++|          BX6    X1
02049  M01S01000.catlist +++|          SA6    HDRA        SET INDEX BASE OF HEADER MESSAGES FOR MODE
02050  M01S01001.catlist +++|
02051  M01S01002.catlist +++|*         LOOP PRINTING HEADER MESSAGE LINES.
02052  M01S01003.catlist +++|
02053  M01S01004.catlist +++| HDR1     SA1    HDRA        EXAMINE CURRENT MESSAGE POINTER
02054  M01S01005.catlist +++|          SA1    X1
02055  M01S01006.catlist +++|          ZR     X1,HDR2     IF END OF HEADER MESSAGES
02056  M01S01007.catlist +++|          SX6    A1+B1       SET NEXT MESSAGE POINTER
02057  M01S01008.catlist +++|          SA6    HDRA
02058  M01S01009.catlist +++|          SX0    X0+B1       INCREMENT LINE COUNT
02059  M01S01010.catlist +++|          WRITEC O,X1
02060  M01S01011.catlist +++|          EQ     HDR1        CONTINUE LOOP
02061  M01S01012.catlist +++|
02062  M01S01013.catlist +++|*         COMPLETE HEADER PROCESSING.
02063  M01S01014.catlist +++|
02064  M01S01015.catlist +++| HDR2     WRITEC O,BLK

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

Seq #  *Modification Id* Act 
----------------------------+
02068  M02S01019.catli5  ---|          SX6    X6+2
02069  M01S00026.catli5  +++|          SX1    B1
02070  M01S00027.catli5  +++|          IX6    X6+X1
02071  M01S01020.catlist +++|          SA6    A1
02072  M01S01021.catlist +++|          EQ     HDRX        RETURN
02073  M01S01022.catlist +++|
02074  M01S01023.catlist +++|*         HEADER MESSAGE BASE POINTERS.
02075  M01S01024.catlist +++|
02076  M01S01025.catlist +++| HDRA     CON    0

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

Seq #  *Modification Id* Act 
----------------------------+
02078  M02S00028.ns22000 ---| HDRB     CON    0,HDRD,0,HDRF,HDRG,HDRH
02079  M01S00421.ns22000 +++| HDRB     CON    0,HDRD,HDRD,0,HDRF,HDRG,HDRH
02080  M01S01027.catlist +++|
02081  M01S01028.catlist +++|*         HEADER MESSAGE POINTERS.
02082  M01S01029.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02083  M02S01030.catli5  ---| HDRC     CON    HDR11       SHORT FILE LIST

Seq #  *Modification Id* Act 
----------------------------+
02084  M02S01031.catli5  ---|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
02085  M02S01032.catli5  ---|
02086  M01S01033.catlist +++| HDRD     CON    /COMCFCE/CHDR1  FULL FILE LIST
02087  M01S01034.catlist +++|          CON    /COMCFCE/CHDR2
02088  M01S01035.catlist +++|          CON    /COMCFCE/CHDR3
02089  M01S00019.v23l617 +++|          CON    /COMCFCE/CHDR4
02090  M01S01036.catlist +++|          CON    0
02091  M01S01037.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02092  M02S01038.catli5  ---| HDRE     CON    HDR11       SHORT ALTERNATE CATALOG

Seq #  *Modification Id* Act 
----------------------------+
02093  M02S01039.catli5  ---|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
02094  M02S01040.catli5  ---|
02095  M01S01041.catlist +++| HDRF     CON    /COMCFCE/CHDR1  FULL ALTERNATE CATALOG
02096  M01S01042.catlist +++|          CON    HDR42

Seq #  *Modification Id* Act 
----------------------------+
02097  M02S01043.v23l617 ---|          CON    /COMCFCE/CHDR3
02098  M01S00020.v23l617 +++|          CON    HDR43

Seq #  *Modification Id* Act 
----------------------------+
02099  M02S00021.253l688 ---|          CON    /COMCFCE/CHDR4
02100  M01S00170.253l688 +++|          CON    HDR44
02101  M01S01044.catlist +++|          CON    0
02102  M01S01045.catlist +++|
02103  M01S01046.catlist +++| HDRG     CON    HDR51       SHORT PERMIT ENTRIES
02104  M01S01047.catlist +++|          CON    0
02105  M01S01048.catlist +++|
02106  M01S01049.catlist +++| HDRH     CON    HDR61       FULL PERMIT ENTRIES
02107  M01S01050.catlist +++|          CON    0
02108  M01S01051.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02109  M02S00029.ns2573  ---| HDRI     CON    HDR71       ASTERISK IN *FN*
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)
02113  M01S00030.catli5  +++|          CON    0
02114  M01S00031.catli5  +++|

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

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

Seq #  *Modification Id* Act 
----------------------------+
02119  M02S01055.catli5  ---|

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

Seq #  *Modification Id* Act 
----------------------------+
02121  M02S01057.v23l617 ---|,E/TIME DATE/TIME*

Seq #  *Modification Id* Act 
----------------------------+
02122  M02S00023.253l688 ---| HDR42    DATA   C*               COUNT INDEX  PERM. SUBSYS DATE/TIME DA
02123  M01S00171.253l688 +++| HDR42    DATA   C*               COUNT        PERM. SUBSYS DATE/TIME DA
02124  M01S00024.v23l617 +++|,TE/TIME DATE/TIME*

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

Seq #  *Modification Id* Act 
----------------------------+
02130  M02S01059.ns22000 ---| HDR51    DATA   C*  USER NUMBER(S)*
02131  M01S00422.ns22000 +++| HDR51    DATA   C*  USER NAMES*
02132  M01S01060.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02133  M02S01061.ns22000 ---| HDR61    DATA   C* USER NUMBER   PERM.  ACCESSES  DATE     TIME*
02134  M01S00423.ns22000 +++| HDR61    DATA   C* USER NAME      PERM.  EXPIRES  ACCESSES   DATE
02135  M01S00424.ns22000 +++|,TIME*
02136  M01S00032.catli5  +++|
02137  M01S00033.catli5  +++| HDR71    CON    1H
02138  M01S00034.catli5  +++|          CON    10HFILE NAME
02139  M01S01062.catlist +++|          CON    0
02140  M01S00202.ns2573  +++|
02141  M01S00203.ns2573  +++| HDR72    CON    1H
02142  M01S00204.ns2573  +++|          DATA   C*SELECTED FILES*
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

Seq #  *Modification Id* Act 
----------------------------+
02211  M02S00021.253l688 ---|**        MTP - MARK WITH TERMINATING PARENTHESIS.

Seq #  *Modification Id* Act 
----------------------------+
02212  M02S00022.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
02213  M02S00023.253l688 ---|*         ENTRY  (X6) = FILE NAME (SPACE FILLED).

Seq #  *Modification Id* Act 
----------------------------+
02214  M02S00024.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
02215  M02S00025.253l688 ---|*         EXIT   (X6) = FILE NAME WITH TRAILING *)*.

Seq #  *Modification Id* Act 
----------------------------+
02216  M02S00026.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
02217  M02S00027.253l688 ---|*         USES   X - 1, 2, 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
02218  M02S00028.253l688 ---|*                A - 3.

Seq #  *Modification Id* Act 
----------------------------+
02219  M02S00029.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02220  M02S00030.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02221  M02S00031.253l688 ---| MTP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02222  M02S00032.253l688 ---|          BX3    X6

Seq #  *Modification Id* Act 
----------------------------+
02223  M02S00033.253l688 ---|          MX2    6           SET UP MASK

Seq #  *Modification Id* Act 
----------------------------+
02224  M02S00034.253l688 ---|          LX2    -6

Seq #  *Modification Id* Act 
----------------------------+
02225  M02S00035.253l688 ---|          LX3    12

Seq #  *Modification Id* Act 
----------------------------+
02226  M02S00036.253l688 ---| MTP1     MX1    -6          CHECK NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
02227  M02S00037.253l688 ---|          BX1    -X1*X3

Seq #  *Modification Id* Act 
----------------------------+
02228  M02S00038.253l688 ---|          SX1    X1-1R

Seq #  *Modification Id* Act 
----------------------------+
02229  M02S00039.253l688 ---|          ZR     X1,MTP2     IF BLANK (END OF NAME)

Seq #  *Modification Id* Act 
----------------------------+
02230  M02S00040.253l688 ---|          LX2    -6          MOVE MASK

Seq #  *Modification Id* Act 
----------------------------+
02231  M02S00041.253l688 ---|          LX3    6

Seq #  *Modification Id* Act 
----------------------------+
02232  M02S00042.253l688 ---|          EQ     MTP1        CHECK NEXT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
02233  M02S00043.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02234  M02S00044.253l688 ---| MTP2     SA3    MTPA        ))))))))))

Seq #  *Modification Id* Act 
----------------------------+
02235  M02S00045.253l688 ---|          BX1    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
02236  M02S00046.253l688 ---|          BX6    -X2*X6

Seq #  *Modification Id* Act 
----------------------------+
02237  M02S00047.253l688 ---|          BX6    X6+X1       INSERT PARENTHESIS

Seq #  *Modification Id* Act 
----------------------------+
02238  M02S00048.253l688 ---|          EQ     MTPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
02239  M02S00049.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
02240  M02S00050.253l688 ---| MTPA     DATA   10H))))))))))
02241  M01S00051.catli6  +++| NIP      SPACE  4,10
02242  M01S00492.ns22000 +++|**        NIP - NEXT INDEX PRESET (PRESET *GNI*).
02243  M01S00493.ns22000 +++|*
02244  M01S00494.ns22000 +++|*         ENTRY  (X1) = ENTRY COUNT.
02245  M01S00495.ns22000 +++|*
02246  M01S00496.ns22000 +++|*         EXIT   TEMPORARY CELLS PRESET FOR *GNI*.
02247  M01S00497.ns22000 +++|*
02248  M01S00498.ns22000 +++|*         USES   X - 1, 3, 6, 7.
02249  M01S00499.ns22000 +++|*                A - 6, 7.
02250  M01S00500.ns22000 +++|
02251  M01S00501.ns22000 +++|
02252  M01S00502.ns22000 +++| NIP      SUBR               ENTRY/EXIT
02253  M01S00503.ns22000 +++|          MX6    0
02254  M01S00504.ns22000 +++|          SX3    7           LINE LENGTH
02255  M01S00505.ns22000 +++|          SA6    GNIA
02256  M01S00506.ns22000 +++|          SA6    GNIB
02257  M01S00507.ns22000 +++|          SA6    GNIE
02258  M01S00508.ns22000 +++| NIP1     IX1    X1-X3       DIVIDE BY 7
02259  M01S00509.ns22000 +++|          SX6    X6+B1
02260  M01S00510.ns22000 +++|          PL     X1,NIP1     IF NOT POSITION IN ROW
02261  M01S00511.ns22000 +++|          IX7    X3+X1
02262  M01S00512.ns22000 +++|          SA6    GNIC
02263  M01S00513.ns22000 +++|          SA7    GNID

Seq #  *Modification Id* Act 
----------------------------+
02264  M02S00514.253l688 ---|          EQ     NIP         RETURN
02265  M01S00175.253l688 +++|          EQ     NIPX        RETURN
02266  M01S01063.catlist +++| PAS      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
02267  M02S01064.253l688 ---|**        PAS - PRINT ACCUMULATED FILE SIZE.
02268  M01S00176.253l688 +++|**        PAS - PRINT ACCUMULATED STATISTICS.
02269  M01S01065.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
02270  M02S01066.253l688 ---|*         ENTRY  (FSI) = ACCUMULATED INDIRECT FILE SIZE.

Seq #  *Modification Id* Act 
----------------------------+
02271  M02S01067.253l688 ---|*                (FSD) = ACCUMULATED DIRECT ACCESS FILE SIZE.

Seq #  *Modification Id* Act 
----------------------------+
02272  M02S01068.253l688 ---|*                (FCI) = NUMBER OF INDIRECT ACCESS FILES.

Seq #  *Modification Id* Act 
----------------------------+
02273  M02S00177.catli7  ---|*         ENTRY  (FCI, FSI) = INDIRECT ACCESS DISK FILE COUNT AND SIZE.

Seq #  *Modification Id* Act 
----------------------------+
02274  M02S00178.catli7  ---|*                (FCD, FSD) = DIRECT ACCESS DISK FILE COUNT AND SIZE.

Seq #  *Modification Id* Act 
----------------------------+
02275  M02S00179.catli7  ---|*                (FCC, FSC) = CARTRIDGE FILE COUNT AND SIZE.

Seq #  *Modification Id* Act 
----------------------------+
02276  M02S00180.catli7  ---|*                (FCT, FST) = TAPE FILE COUNT AND SIZE.
02277  M01S00029.catli7  +++|*         ENTRY  (FCID, FSID) = INDIRECT ACCESS DISK FILE COUNT, SIZE.
02278  M01S00030.catli7  +++|*                (FCDD, FSDD) = DIRECT ACCESS DISK FILE COUNT, SIZE.
02279  M01S00031.catli7  +++|*                (FCIA, FSIS) = IAPF ON ALTERNATE STORAGE COUNT, SIZE.
02280  M01S00032.catli7  +++|*                (FCDA, FSDA) = DAPF ON ALTERNATE STORAGE COUNT, SIZE.

Seq #  *Modification Id* Act 
----------------------------+
02281  M02S01069.ns22000 ---|*                (FSD) = ACCUMULATED DIRECT ACCESS FILE SIZE.
02282  M01S01070.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
02283  M02S01071.ns22000 ---|*         USES   X - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
02284  M02S01072.ns22000 ---|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
02285  M02S01073.ns22000 ---|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
02286  M02S00515.253l688 ---|*         USES   X - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
02287  M02S00516.253l688 ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
02288  M02S00517.253l688 ---|*                B - 2, 3.
02289  M01S00181.253l688 +++|*         USES   X - 1, 2.
02290  M01S00182.253l688 +++|*                A - 1, 2.
02291  M01S00183.253l688 +++|*                B - 2, 3, 5.
02292  M01S01074.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
02293  M02S01075.253l688 ---|*         CALLS  ALN, CDD.
02294  M01S00184.253l688 +++|*         CALLS  ALN, CDD, SNM.
02295  M01S01076.catlist +++|*

Seq #  *Modification Id* Act 
----------------------------+
02296  M02S01077.253l688 ---|*         MACROS WRITEC, WRITEH.
02297  M01S00185.253l688 +++|*         MACROS WRITEC.
02298  M01S01078.catlist +++|
02299  M01S01079.catlist +++|
02300  M01S01080.catlist +++| PAS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02301  M02S01081.253l688 ---|          SB2    3           ADVANCE LINE COUNT BY 3
02302  M01S00186.253l688 +++|          SB2    5           ADVANCE LINE COUNT BY 5
02303  M01S01082.catlist +++|          RJ     ALN

Seq #  *Modification Id* Act 
----------------------------+
02304  M02S01083.253l688 ---|          SA1    FSI         INDIRECT ACCESS FILE COUNT
02305  M01S00187.253l688 +++|
02306  M01S00188.253l688 +++|*         PRINT STATISTICS FOR INDIRECT ACCESS FILES ON DISK.
02307  M01S00189.253l688 +++|
02308  M01S00190.253l688 +++|          SB5    PASA        SET MESSAGE TEMPLATE

Seq #  *Modification Id* Act 
----------------------------+
02309  M02S00191.catli7  ---|          SA1    FCI         NUMBER OF INDIRECT ACCESS FILES ON DISK
02310  M01S00033.catli7  +++|          SA1    FCID        NUMBER OF INDIRECT ACCESS FILES ON DISK
02311  M01S00192.253l688 +++|          SB3    X1
02312  M01S00193.253l688 +++|          ZR     B3,PAS2     IF NO INDIRECT ACCESS FILES ON DISK
02313  M01S00194.253l688 +++|          NE     B3,B1,PAS1  IF MORE THAN ONE FILE
02314  M01S00195.253l688 +++|          SB5    PASB        USE ALTERNATE MESSAGE TEMPLATE
02315  M01S00196.253l688 +++| PAS1     RJ     CDD         CONVERT FILE COUNT TO DECIMAL
02316  M01S00197.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02317  M01S00198.253l688 +++|          BX1    -X1*X6
02318  M01S00199.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02319  M01S00200.253l688 +++|          SB2    1R#
02320  M01S00201.253l688 +++|          RJ     SNM         SET FILE COUNT INTO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02321  M02S00202.catli7  ---|          SA1    FSI         TOTAL SIZE OF INDIRECT ACCESS FILES
02322  M01S00034.catli7  +++|          SA1    FSID        TOTAL SIZE OF INDIRECT ACCESS FILES
02323  M01S01084.catlist +++|          RJ     CDD         CONVERT TO DECIMAL

Seq #  *Modification Id* Act 
----------------------------+
02324  M02S01085.253l688 ---|          SA6    PASA+5

Seq #  *Modification Id* Act 
----------------------------+
02325  M02S01086.253l688 ---|          SA1    FCI         INDIRECT ACCESS FILE COUNT
02326  M01S00203.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02327  M01S00204.253l688 +++|          BX1    -X1*X6
02328  M01S00205.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02329  M01S00206.253l688 +++|          SB2    1R$
02330  M01S00207.253l688 +++|          RJ     SNM         SET TOTAL FILE SIZE INTO MESSAGE
02331  M01S00208.253l688 +++|          WRITEC O,B5
02332  M01S00209.253l688 +++|
02333  M01S00210.253l688 +++|*         PRINT STATISTICS FOR DIRECT ACCESS FILES ON DISK.
02334  M01S00211.253l688 +++|
02335  M01S00212.253l688 +++| PAS2     SB5    PASC        SET MESSAGE TEMPLATE

Seq #  *Modification Id* Act 
----------------------------+
02336  M02S00213.catli7  ---|          SA1    FCD         NUMBER OF DIRECT ACCESS FILES ON DISK
02337  M01S00035.catli7  +++|          SA1    FCDD        NUMBER OF DIRECT ACCESS FILES ON DISK

Seq #  *Modification Id* Act 
----------------------------+
02338  M02S01087.ns22000 ---|          RJ     CDD         CONVERT TO DECIMAL
02339  M01S00518.ns22000 +++|          SB3    X1

Seq #  *Modification Id* Act 
----------------------------+
02340  M02S00519.253l688 ---|          NE     B1,B3,PAS0  IF MORE THAN ONE FILE

Seq #  *Modification Id* Act 
----------------------------+
02341  M02S00520.253l688 ---|          SA2    PASC        CHANGE OUTPUT MESSAGE SYNTAX

Seq #  *Modification Id* Act 
----------------------------+
02342  M02S00521.253l688 ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
02343  M02S00522.253l688 ---|          SA6    PASA+3

Seq #  *Modification Id* Act 
----------------------------+
02344  M02S00523.253l688 ---| PAS0     RJ     CDD         CONVERT TO DECIMAL

Seq #  *Modification Id* Act 
----------------------------+
02345  M02S01088.253l688 ---|          SA6    PASA

Seq #  *Modification Id* Act 
----------------------------+
02346  M02S01089.253l688 ---|          SA1    FSD         DIRECT ACCESS FILE SIZE
02347  M01S00214.253l688 +++|          ZR     B3,PAS4     IF NO DIRECT ACCESS FILES ON DISK
02348  M01S00215.253l688 +++|          NE     B3,B1,PAS3  IF MORE THAN ONE FILE
02349  M01S00216.253l688 +++|          SB5    PASD        USE ALTERNATE MESSAGE TEMPLATE
02350  M01S00217.253l688 +++| PAS3     RJ     CDD         CONVERT FILE COUNT TO DECIMAL
02351  M01S00218.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02352  M01S00219.253l688 +++|          BX1    -X1*X6
02353  M01S00220.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02354  M01S00221.253l688 +++|          SB2    1R#
02355  M01S00222.253l688 +++|          RJ     SNM         SET FILE COUNT INTO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02356  M02S00223.catli7  ---|          SA1    FSD         TOTAL SIZE OF DIRECT ACCESS FILES
02357  M01S00036.catli7  +++|          SA1    FSDD        TOTAL SIZE OF DIRECT ACCESS FILES
02358  M01S01090.catlist +++|          RJ     CDD         CONVERT TO DECIMAL

Seq #  *Modification Id* Act 
----------------------------+
02359  M02S01091.253l688 ---|          SA6    PASB+5

Seq #  *Modification Id* Act 
----------------------------+
02360  M02S01092.253l688 ---|          SA1    FCD         DIRECT ACCESS FILE COUNT
02361  M01S00224.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02362  M01S00225.253l688 +++|          BX1    -X1*X6
02363  M01S00226.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02364  M01S00227.253l688 +++|          SB2    1R$
02365  M01S00228.253l688 +++|          RJ     SNM         SET TOTAL FILE SIZE INTO MESSAGE
02366  M01S00229.253l688 +++|          WRITEC O,B5
02367  M01S00230.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
02368  M02S00231.catli7  ---|*         PRINT STATISTICS FOR FILES ON CARTRIDGE.
02369  M01S00037.catli7  +++|*         PRINT STATISTICS FOR IAPF-S ON ALTERNATE STORAGE.
02370  M01S00232.253l688 +++|
02371  M01S00233.253l688 +++| PAS4     SB5    PASE        SET MESSAGE TEMPLATE

Seq #  *Modification Id* Act 
----------------------------+
02372  M02S00234.catli7  ---|          SA1    FCC         NUMBER OF FILES ON CARTRIDGE
02373  M01S00038.catli7  +++|          SA1    FCIA        NUMBER OF IAPF-S ON ALTERNATE STORAGE

Seq #  *Modification Id* Act 
----------------------------+
02374  M02S01093.ns22000 ---|          RJ     CDD         CONVERT TO DECIMAL
02375  M01S00524.ns22000 +++|          SB3    X1

Seq #  *Modification Id* Act 
----------------------------+
02376  M02S00525.253l688 ---|          NE     B1,B3,PAS0.1  IF MORE THAN ONE FILE

Seq #  *Modification Id* Act 
----------------------------+
02377  M02S00526.253l688 ---|          SA2    PASD        CHANGE OUTPUT MESSAGE SYNTAX

Seq #  *Modification Id* Act 
----------------------------+
02378  M02S00527.253l688 ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
02379  M02S00528.253l688 ---|          SA6    PASB+2

Seq #  *Modification Id* Act 
----------------------------+
02380  M02S00529.253l688 ---|          SA2    A2+B1

Seq #  *Modification Id* Act 
----------------------------+
02381  M02S00530.253l688 ---|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
02382  M02S00531.253l688 ---|          SA6    PASB+3

Seq #  *Modification Id* Act 
----------------------------+
02383  M02S00532.253l688 ---| PAS0.1   RJ     CDD         CONVERT TO DECIMAL

Seq #  *Modification Id* Act 
----------------------------+
02384  M02S01094.253l688 ---|          SA6    PASB

Seq #  *Modification Id* Act 
----------------------------+
02385  M02S01095.253l688 ---|          SA1    FCI

Seq #  *Modification Id* Act 
----------------------------+
02386  M02S01096.253l688 ---|          ZR     X1,PAS1     IF NO INDIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
02387  M02S01097.253l688 ---|          WRITEH O,PASA,PASAL

Seq #  *Modification Id* Act 
----------------------------+
02388  M02S01098.253l688 ---| PAS1     SA1    FCD

Seq #  *Modification Id* Act 
----------------------------+
02389  M02S01099.253l688 ---|          ZR     X1,PAS2     IF NO DIRECT ACCESS FILES

Seq #  *Modification Id* Act 
----------------------------+
02390  M02S01100.253l688 ---|          WRITEH O,PASB,PASBL

Seq #  *Modification Id* Act 
----------------------------+
02391  M02S01101.253l688 ---| PAS2     WRITEC O,BLK

Seq #  *Modification Id* Act 
----------------------------+
02392  M02S00235.catli7  ---|          ZR     B3,PAS6     IF NO FILES ON CARTRIDGE
02393  M01S00039.catli7  +++|          ZR     B3,PAS6     IF NO IAPF-S ON ALTERNATE STORAGE
02394  M01S00236.253l688 +++|          NE     B3,B1,PAS5  IF MORE THAN ONE FILE
02395  M01S00237.253l688 +++|          SB5    PASF        USE ALTERNATE MESSAGE TEMPLATE
02396  M01S00238.253l688 +++| PAS5     RJ     CDD         CONVERT FILE COUNT TO DECIMAL
02397  M01S00239.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02398  M01S00240.253l688 +++|          BX1    -X1*X6
02399  M01S00241.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02400  M01S00242.253l688 +++|          SB2    1R#
02401  M01S00243.253l688 +++|          RJ     SNM         SET FILE COUNT INTO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02402  M02S00244.catli7  ---|          SA1    FSC         TOTAL SIZE OF FILES ON CARTRIDGE
02403  M01S00040.catli7  +++|          SA1    FSIA        TOTAL SIZE OF IAPF-S ON ALTERNATE STORAGE
02404  M01S00245.253l688 +++|          RJ     CDD         CONVERT TO DECIMAL
02405  M01S00246.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02406  M01S00247.253l688 +++|          BX1    -X1*X6
02407  M01S00248.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02408  M01S00249.253l688 +++|          SB2    1R$
02409  M01S00250.253l688 +++|          RJ     SNM         SET TOTAL FILE SIZE INTO MESSAGE
02410  M01S00251.253l688 +++|          WRITEC O,B5
02411  M01S00252.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
02412  M02S00253.catli7  ---|*         PRINT STATISTICS FOR FILES ON TAPE.
02413  M01S00041.catli7  +++|*         PRINT STATISTICS FOR DAPF-S ON ALTERNATE STORAGE.
02414  M01S00254.253l688 +++|
02415  M01S00255.253l688 +++| PAS6     SB5    PASG        SET MESSAGE TEMPLATE

Seq #  *Modification Id* Act 
----------------------------+
02416  M02S00256.catli7  ---|          SA1    FCT         NUMBER OF FILES ON TAPE
02417  M01S00042.catli7  +++|          SA1    FCDA        NUMBER OF DAPF-S ON ALTERNATE STORAGE
02418  M01S00257.253l688 +++|          SB3    X1

Seq #  *Modification Id* Act 
----------------------------+
02419  M02S00258.catli7  ---|          ZR     B3,PAS8     IF NO FILES ON TAPE
02420  M01S00043.catli7  +++|          ZR     B3,PAS8     IF NO DAPF-S ON ALTERNATE STORAGE
02421  M01S00259.253l688 +++|          NE     B3,B1,PAS7  IF MORE THAN ONE FILE
02422  M01S00260.253l688 +++|          SB5    PASH        USE ALTERNATE MESSAGE TEMPLATE
02423  M01S00261.253l688 +++| PAS7     RJ     CDD         CONVERT FILE COUNT TO DECIMAL
02424  M01S00262.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02425  M01S00263.253l688 +++|          BX1    -X1*X6
02426  M01S00264.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02427  M01S00265.253l688 +++|          SB2    1R#
02428  M01S00266.253l688 +++|          RJ     SNM         SET FILE COUNT INTO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02429  M02S00267.catli7  ---|          SA1    FST         TOTAL SIZE OF FILES ON TAPE
02430  M01S00044.catli7  +++|          SA1    FSDA        TOTAL SIZE OF DAPF-S ON ALTERNATE STORAGE
02431  M01S00268.253l688 +++|          RJ     CDD         CONVERT TO DECIMAL
02432  M01S00269.253l688 +++|          MX1    -54         CLEAR LEADING BLANK
02433  M01S00270.253l688 +++|          BX1    -X1*X6
02434  M01S00271.253l688 +++|          LX1    6           LEFT JUSTIFY NINE-DIGIT INTEGER
02435  M01S00272.253l688 +++|          SB2    1R$
02436  M01S00273.253l688 +++|          RJ     SNM         SET TOTAL FILE SIZE INTO MESSAGE
02437  M01S00274.253l688 +++|          WRITEC O,B5
02438  M01S00275.253l688 +++| PAS8     WRITEC O,BLK
02439  M01S01102.catlist +++|          EQ     PASX        RETURN
02440  M01S01103.catlist +++|
02441  M01S01104.catlist +++|

Seq #  *Modification Id* Act 
----------------------------+
02442  M02S01105.ns22000 ---| PASA     DATA   C* XXXXXXXXX INDIRECT ACCESS FILE(S),   TOTAL PRUS = XX

Seq #  *Modification Id* Act 
----------------------------+
02443  M02S00533.253l688 ---| PASA     DATA   C* XXXXXXXXX INDIRECT ACCESS FILES,     TOTAL PRUS = XX

Seq #  *Modification Id* Act 
----------------------------+
02444  M02S01106.253l688 ---|,XXXXXXX.*

Seq #  *Modification Id* Act 
----------------------------+
02445  M02S01107.253l688 ---| PASAL    EQU    *-PASA

Seq #  *Modification Id* Act 
----------------------------+
02446  M03S01108.253l688 ---| PASB     DATA   C* XXXXXXXXX DIRECT ACCESS FILE(S),     TOTAL PRUS = XX

Proceed to Part 3