Deck PFDUMP Part 003

50 Modifications

Seq #  *Modification Id* Act 
----------------------------+
03030  M02S00132.286l859 ---|*                (SCAN) = 4, IF END OF RESCAN STAGE REQUESTS.
03031  M02S00133.286l859 ---|*                (RESE - RESE+1) = RESCAN STAGE REQUEST ENTRY UPDATED.
03032  M02S00134.286l859 ---|*                ABORTS DUMP, IF READ ERROR ON STAGE REQUEST RESCAN
03033  M02S00135.286l859 ---|*                  FILE.

Seq #  *Modification Id* Act 
----------------------------+
03034  M01S01624.286l859 ---|*
03035  M01S01625.286l859 ---|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03036  M01S01626.286l859 ---|*                A - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03037  M02S01627.286l859 ---|*                B - 2, 3, 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
03038  M02S00136.286l859 ---|*                B - 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
03039  M01S01628.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03040  M02S01629.286l859 ---|*         CALLS  SEI, SEM.

Seq #  *Modification Id* Act 
----------------------------+
03041  M03S00158.286l859 ---|*         CALLS  CSC, SEI, SEM.

Seq #  *Modification Id* Act 
----------------------------+
03042  M02S00137.286l859 ---|*         CALLS  CBR, CSC, SEI, SEM, SFL, SSM.

Seq #  *Modification Id* Act 
----------------------------+
03043  M01S01630.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
03044  M02S01631.286l859 ---|*         MACROS EDITS, READW, RGET, RSAV.

Seq #  *Modification Id* Act 
----------------------------+
03045  M02S00138.286l859 ---|*         MACROS READW.

Seq #  *Modification Id* Act 
----------------------------+
03046  M01S01632.286l859 ---|
03047  M01S01633.286l859 ---|
03048  M01S01634.286l859 ---| CSP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03049  M02S01635.286l859 ---|          RSAV   CSPB        SAVE INDICES

Seq #  *Modification Id* Act 
----------------------------+
03050  M02S00139.286l859 ---|          SX6    B3          SAVE CATALOG ENTRY ADDRESS
03051  M02S00140.286l859 ---|          SA6    CSPB

Seq #  *Modification Id* Act 
----------------------------+
03052  M01S01636.286l859 ---|          BX6    X6-X6       CLEAR *DUMP FILE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03053  M02S00001.286l859 ---|          SA6    FLCF        CLEAR *FILE LENGTH CORRECT* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03054  M02S01637.286l859 ---|          SA6    CSPA        CLEAR *ALTERNATE DATE USED* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03055  M01S01638.286l859 ---|
03056  M01S01639.286l859 ---|*         CHECK SCAN MODE.
03057  M01S01640.286l859 ---|
03058  M01S01641.286l859 ---|          SA1    SCAN
03059  M01S01642.286l859 ---|          ZR     X1,CSP3     IF NORMAL SCAN
03060  M01S01643.286l859 ---|          SX1    X1-4

Seq #  *Modification Id* Act 
----------------------------+
03061  M02S01644.286l859 ---|          NZ     X1,CSP1     IF RESCAN SCREEN NOT EXHAUSTED
03062  M02S01645.286l859 ---|          SX6    4           SET *RESCAN SCREEN EXHAUSTED* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03063  M02S00141.286l859 ---|          NZ     X1,CSP1     IF END OF RESCAN STAGE REQUESTS
03064  M02S00142.286l859 ---|          SX6    4           SET END OF STAGE REQUESTS

Seq #  *Modification Id* Act 
----------------------------+
03065  M01S01646.286l859 ---|          EQ     CSPX        RETURN
03066  M01S01647.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03067  M02S01648.286l859 ---|*         CHECK RESCAN FILE SCREEN.

Seq #  *Modification Id* Act 
----------------------------+
03068  M02S00143.286l859 ---|*         COMPARE CURRENT CATALOG ENTRY TO STAGE REQUESTS.

Seq #  *Modification Id* Act 
----------------------------+
03069  M01S01649.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03070  M02S01650.286l859 ---| CSP1     SA1    RESW+3      GET CURRENT SCREEN SECTOR NUMBER
03071  M02S01651.286l859 ---|          MX3    -12
03072  M02S01652.286l859 ---|          BX4    -X3*X1
03073  M02S01653.286l859 ---|          LX1    11-23       GET CURRENT SCREEN TRACK NUMBER
03074  M02S01654.286l859 ---|          BX3    -X3*X1
03075  M02S01655.286l859 ---|          SA2    CRTK        GET CATALOG ENTRY TRACK NUMBER
03076  M02S01656.286l859 ---|          IX3    X2-X3
03077  M02S01657.286l859 ---|          NG     X3,CSPX     IF SCREEN TRACK NOT REACHED
03078  M02S01658.286l859 ---|          NZ     X3,CSP2     IF SCREEN TRACK EXCEEDED
03079  M02S01659.286l859 ---|          SA2    CRSC        GET CATALOG ENTRY SECTOR NUMBER
03080  M02S01660.286l859 ---|          IX4    X2-X4
03081  M02S01661.286l859 ---|          NG     X4,CSPX     IF SCREEN SECTOR NOT REACHED
03082  M02S01662.286l859 ---|          NZ     X4,CSP2     IF SCREEN SECTOR EXCEEDED
03083  M02S01663.286l859 ---|          LX1    1-31-11+23  GET CURRENT SCREEN CATALOG ENTRY ORDINAL
03084  M02S01664.286l859 ---|          MX4    -2
03085  M02S01665.286l859 ---|          SA2    CRCO        GET CATALOG ENTRY ORDINAL
03086  M02S01666.286l859 ---|          BX4    -X4*X1
03087  M02S01667.286l859 ---|          IX4    X4-X2
03088  M02S01668.286l859 ---|          NG     X4,CSP2     IF SCREEN ORDINAL EXCEEDED
03089  M02S01669.286l859 ---|          NZ     X4,CSPX     IF NO MATCH ON ORDINALS
03090  M02S01670.286l859 ---|          SA1    RESW        GET SCREEN FILE NAME AND USER INDEX
03091  M02S01671.286l859 ---|          SA2    B3+FCFN+FCUI*  GET CATALOG ENTRY FILE NAME/USER INDEX
03092  M02S01672.286l859 ---|          BX4    X1-X2

Seq #  *Modification Id* Act 
----------------------------+
03093  M02S00144.286l859 ---| CSP1     SA1    RESE
03094  M02S00145.286l859 ---|          SA2    CTIN
03095  M02S00146.286l859 ---|          SA3    RESE+1
03096  M02S00147.286l859 ---|          SA4    B3+FCFN+FCUI*
03097  M02S00148.286l859 ---|          IX1    X1-X2
03098  M02S00149.286l859 ---|          BX4    X3-X4
03099  M02S00150.286l859 ---|          NG     X1,CSP2     IF CURRENT ENTRY PAST STAGE REQUEST
03100  M02S00151.286l859 ---|          NZ     X1,CSPX     IF STAGE REQUEST PAST CURRENT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03101  M01S01673.286l859 ---|          NZ     X4,CSPX     IF NO MATCH ON FILE NAME AND USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03102  M02S01674.286l859 ---|          EQ     CSP3        PROCESS MATCHING RESCAN FILE

Seq #  *Modification Id* Act 
----------------------------+
03103  M02S00152.286l859 ---|          EQ     CSP3        PROCESS MATCHING RESCAN FILE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03104  M01S01675.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03105  M02S01676.286l859 ---|*         READ NEXT RESCAN FILE SCREEN RECORD.

Seq #  *Modification Id* Act 
----------------------------+
03106  M02S00153.286l859 ---|*         READ NEXT STAGE REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
03107  M01S01677.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03108  M02S01678.286l859 ---| CSP2     READW  RESS,RESW,RSEL  READ NEXT SCREEN RECORD

Seq #  *Modification Id* Act 
----------------------------+
03109  M02S00154.286l859 ---| CSP2     READW  RESS,RESE,2 READ NEXT STAGE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
03110  M01S01679.286l859 ---|          BX2    X1

Seq #  *Modification Id* Act 
----------------------------+
03111  M02S01680.286l859 ---|          RGET   CSPB        RESTORE INDICES

Seq #  *Modification Id* Act 
----------------------------+
03112  M02S00155.286l859 ---|          SA1    CSPB        RESTORE CATALOG ENTRY ADDRESS
03113  M02S00156.286l859 ---|          SB3    X1

Seq #  *Modification Id* Act 
----------------------------+
03114  M01S01681.286l859 ---|          BX6    X6-X6       CLEAR *DUMP FILE* FLAG
03115  M01S01682.286l859 ---|          ZR     X2,CSP1     IF READ COMPLETED
03116  M01S01683.286l859 ---|          SX4    X2+3
03117  M01S01684.286l859 ---|          SX6    4           SET *RESCAN SCREEN EXHAUSTED* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03118  M02S01685.286l859 ---|          NZ     X4,CSPX     IF END OF SCREEN FILE

Seq #  *Modification Id* Act 
----------------------------+
03119  M02S00157.286l859 ---|          NZ     X4,CSPX     IF END OF FILE ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
03120  M01S01686.286l859 ---|          SX1    MSGX        *PFDUMP - READ ERROR ON RESS - ABORT.*

Seq #  *Modification Id* Act 
----------------------------+
03121  M02S01687.286l859 ---|          EQ     AEP         ABORT
03122  M02S01688.286l859 ---|
03123  M02S01689.286l859 ---|*         CHECK IF BACKUP REQUIRED.
03124  M02S01690.286l859 ---|
03125  M02S01691.286l859 ---| CSP3     SA1    B3+FCBR     GET BACKUP REQUIREMENT CODE

Seq #  *Modification Id* Act 
----------------------------+
03126  M03S01692.286l859 ---|          MX7    -3

Seq #  *Modification Id* Act 
----------------------------+
03127  M03S00001.286l859 ---|          SA2    CPAR+/COMSPFS/CPOP

Seq #  *Modification Id* Act 
----------------------------+
03128  M02S01693.286l859 ---|          LX1    2-56

Seq #  *Modification Id* Act 
----------------------------+
03129  M03S00002.286l859 ---|          LX2    59-53
03130  M03S00003.286l859 ---|          SX7    BRAL        SET BACKUP REQUIREMENT = YES
03131  M03S00004.286l859 ---|          NG     X2,CSP3.1   IF PURGE OPTION SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03132  M04S00005.286l859 ---|          MX7    -3

Seq #  *Modification Id* Act 
----------------------------+
03133  M03S01694.286l859 ---|          BX7    -X7*X1
03134  M03S01695.286l859 ---|          SX1    X7-BRNO

Seq #  *Modification Id* Act 
----------------------------+
03135  M03S00055.286l859 ---|          MX3    -3
03136  M03S00056.286l859 ---|          BX3    -X3*X1

Seq #  *Modification Id* Act 
----------------------------+
03137  M04S00057.286l859 ---|          SX1    X3-BRNO

Seq #  *Modification Id* Act 
----------------------------+
03138  M03S01696.286l859 ---|          ZR     X1,CSPX     IF BACKUP NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
03139  M04S00058.286l859 ---|          SX1    X3-BRMD
03140  M04S00059.286l859 ---|          NZ     X1,CSP3.0   IF NOT MEDIA DEPENDENT

Seq #  *Modification Id* Act 
----------------------------+
03141  M03S00060.286l859 ---|          LX2    59-45-59+53
03142  M03S00061.286l859 ---|          NG     X2,CSP3.1   IF *Y* OPTION

Seq #  *Modification Id* Act 
----------------------------+
03143  M04S00062.286l859 ---| CSP3.0   SX7    X3          SET EXISTING BACKUP REQUIREMENT

Seq #  *Modification Id* Act 
----------------------------+
03144  M03S00002.286l859 ---|          SX1    X3-BRNO
03145  M03S00003.286l859 ---|          ZR     X1,CSPX     IF BACKUP NOT REQUIRED
03146  M03S00004.286l859 ---|          SX7    X3          SET EXISTING BACKUP REQUIREMENT

Seq #  *Modification Id* Act 
----------------------------+
03147  M03S01697.286l859 ---|          SA7    CSPC        SAVE BACKUP REQUIREMENT CODE

Seq #  *Modification Id* Act 
----------------------------+
03148  M03S00006.286l859 ---| CSP3.1   SA7    CSPC        SAVE BACKUP REQUIREMENT CODE

Seq #  *Modification Id* Act 
----------------------------+
03149  M02S00158.286l859 ---|          EQ     ABT         ABORT

Seq #  *Modification Id* Act 
----------------------------+
03150  M02S01698.286l859 ---|
03151  M02S01699.286l859 ---|*         CHECK USER INDEX.
03152  M02S01700.286l859 ---|
03153  M02S01701.286l859 ---|          SA2    CPAR+/COMSPFS/CPUI
03154  M02S01702.286l859 ---|          MX7    -18
03155  M02S01703.286l859 ---|          ZR     X2,CSP4     IF USER INDEX NOT SPECIFIED
03156  M02S01704.286l859 ---|          SA3    B3+FCUI     GET USER INDEX
03157  M02S01705.286l859 ---|          BX1    -X7*X3
03158  M02S01706.286l859 ---|          IX2    X2-X1
03159  M02S01707.286l859 ---|          NZ     X2,CSPX     IF USER INDEXES DO NOT MATCH
03160  M02S01708.286l859 ---|
03161  M02S01709.286l859 ---|*         CHECK FILE NAME.
03162  M02S01710.286l859 ---|
03163  M02S01711.286l859 ---|          SA2    CPAR+/COMSPFS/CPPF
03164  M02S01712.286l859 ---|          ZR     X2,CSP4     IF FILE NAME PARAMETER NOT SPECIFIED
03165  M02S01713.286l859 ---|          BX1    X7*X3
03166  M02S01714.286l859 ---|          IX2    X2-X1
03167  M02S01715.286l859 ---|          NZ     X2,CSPX     IF FILE NAMES DO NOT MATCH

Seq #  *Modification Id* Act 
----------------------------+
03168  M01S01716.286l859 ---|
03169  M01S01717.286l859 ---|*         CHECK NON-MASTER DEVICE RESIDENCE.
03170  M01S01718.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03171  M02S01719.286l859 ---| CSP4     SA1    FSNM
03172  M02S01720.286l859 ---|          ZR     X1,CSP5     IF NOT NON - MASTER DEVICE

Seq #  *Modification Id* Act 
----------------------------+
03173  M02S00159.286l859 ---| CSP3     SA1    FSNM
03174  M02S00160.286l859 ---|          ZR     X1,CSP4     IF NOT NON - MASTER DEVICE

Seq #  *Modification Id* Act 
----------------------------+
03175  M02S00001.286l859 ---|          SA2    B3+FCBT     CHECK IF DISK RESIDENT
03176  M02S00002.286l859 ---|          MX7    -12
03177  M02S00003.286l859 ---|          LX2    -12
03178  M02S00004.286l859 ---|          BX2    -X7*X2
03179  M02S00005.286l859 ---|          ZR     X2,CSPX     IF FILE IS NOT DISK RESIDENT

Seq #  *Modification Id* Act 
----------------------------+
03180  M02S01721.286l859 ---|          SA2    B3+FCEO     CHECK RESIDENCY DEVICE

Seq #  *Modification Id* Act 
----------------------------+
03181  M02S00159.286l859 ---|          SA2    B3+FCDN     CHECK RESIDENCY DEVICE

Seq #  *Modification Id* Act 
----------------------------+
03182  M01S01722.286l859 ---|          LX2    -36
03183  M01S01723.286l859 ---|          MX7    -6
03184  M01S01724.286l859 ---|          BX3    -X7*X2
03185  M01S01725.286l859 ---|          IX2    X3-X1
03186  M01S01726.286l859 ---|          NZ     X2,CSPX     IF NOT CORRECT DEVICE
03187  M01S01727.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03188  M02S01728.286l859 ---|*         CHECK DATE/TIME INTERVAL.

Seq #  *Modification Id* Act 
----------------------------+
03189  M03S00160.286l859 ---|*         CHECK SELECTION CRITERIA.

Seq #  *Modification Id* Act 
----------------------------+
03190  M03S00006.286l859 ---|*         CHECK FOR SPECIAL FAST ATTACH FILE.

Seq #  *Modification Id* Act 
----------------------------+
03191  M02S00161.286l859 ---|*         GET FILE LENGTH IF REQUIRED AND CHECK SELECTION CRITERIA.

Seq #  *Modification Id* Act 
----------------------------+
03192  M01S01729.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03193  M02S01730.286l859 ---| CSP5     SB4    B3+         CATALOG ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03194  M02S00162.286l859 ---| CSP4     SA1    FLSF
03195  M02S00163.286l859 ---|          ZR     X1,CSP5     IF FILE LENGTH NOT REQUIRED FOR SELECTION
03196  M02S00164.286l859 ---|          RJ     SFL         SET FILE LENGTH
03197  M02S00165.286l859 ---|          NZ     X6,CSP9     IF DEVICE NOT FOUND ERROR

Seq #  *Modification Id* Act 
----------------------------+
03198  M03S00002.286l859 ---|          SX6    B1+         SET *FILE LENGTH CORRECT* FLAG
03199  M03S00003.286l859 ---|          SA6    FLCF

Seq #  *Modification Id* Act 
----------------------------+
03200  M02S00166.286l859 ---| CSP5     SB4    B3+         SET CATALOG ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03201  M02S01731.286l859 ---|          RJ     CDT         CHECK DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
03202  M03S01732.286l859 ---|          ZR     X6,CSPX     IF FILE DOES NOT MEET DATE/TIME CRITERIA
03203  M03S01733.286l859 ---|          SX7    B7          SAVE *ALTERNATE DATE USED* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03204  M03S00007.286l859 ---|          NZ     X6,CSP5.2   IF FILE MEETS DATE/TIME CRITERIA

Seq #  *Modification Id* Act 
----------------------------+
03205  M02S00161.286l859 ---|          RJ     CSC         CHECK SELECTION CRITERIA
03206  M02S00162.286l859 ---|          NZ     X6,CSP5.2   IF FILE SELECTED
03207  M02S00163.286l859 ---|          ZR     X7,CSPX     IF NON-SELECTION NOT DUE TO DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
03208  M02S00167.286l859 ---|
03209  M02S00168.286l859 ---|*         CHECK FOR SPECIAL FAST ATTACH FILE.
03210  M02S00169.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03211  M02S00008.286l859 ---|          SA1    CSPD
03212  M02S00009.286l859 ---|          ZR     X1,CSPX     IF NOT INCREMENTAL DUMP
03213  M02S00010.286l859 ---|          SB4    B0+         INITIALIZE INDEX
03214  M02S00011.286l859 ---|          SA1    B3+FCUI     GET FILE NAME/USER INDEX
03215  M02S00012.286l859 ---| CSP5.1   SA2    TSFF+B4     READ NEXT ENTRY
03216  M02S00013.286l859 ---|          ZR     X2,CSPX     IF END OF TABLE
03217  M02S00014.286l859 ---|          BX3    X1-X2
03218  M02S00015.286l859 ---|          SB4    B4+B1       ADVANCE INDEX
03219  M02S00016.286l859 ---|          NZ     X3,CSP5.1   IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
03220  M03S00017.286l859 ---| CSP5.2   SX7    B7+         SAVE *ALTERNATE DATE USED* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03221  M02S01734.286l859 ---|          SA7    CSPA

Seq #  *Modification Id* Act 
----------------------------+
03222  M01S01735.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03223  M02S01736.286l859 ---|*         CHECK ALTERNATE STORAGE IMAGE.

Seq #  *Modification Id* Act 
----------------------------+
03224  M02S00170.286l859 ---|*         CHECK FILE BACKUP REQUIREMENTS.

Seq #  *Modification Id* Act 
----------------------------+
03225  M01S01737.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03226  M02S01738.286l859 ---|          SA1    B3+FCAA     GET ALTERNATE STORAGE ADDRESS
03227  M02S01739.286l859 ---|          SA5    CSPC        GET BACKUP REQUIREMENT CODE
03228  M02S01740.286l859 ---|          MX2    -36
03229  M02S01741.286l859 ---|          SX3    X5-BRMD
03230  M02S01742.286l859 ---|          BX2    -X2*X1
03231  M02S01743.286l859 ---|          SX6    B1+B1       SET *DUMP PFC/PERMITS ONLY* FLAG
03232  M02S01744.286l859 ---|          LX1    59-48
03233  M02S01745.286l859 ---|          ZR     X2,CSP6     IF ALTERNATE STORAGE IMAGE DOES NOT EXIST
03234  M02S01746.286l859 ---|          NG     X1,CSP6     IF ALTERNATE STORAGE IMAGE IS OBSOLETE
03235  M02S01747.286l859 ---|          ZR     X3,CSPX     IF BACKUP IS MEDIA DEPENDENT

Seq #  *Modification Id* Act 
----------------------------+
03236  M02S00171.286l859 ---| CSP5.2   RJ     CBR         CHECK BACKUP REQUIREMENTS

Seq #  *Modification Id* Act 
----------------------------+
03237  M01S00824.286l859 +++| CSP4     RJ     CBR         CHECK BACKUP REQUIREMENTS

Seq #  *Modification Id* Act 
----------------------------+
03238  M01S00172.253l688 +++|          SA1    CPAR+/COMSPFS/CPOP
03239  M01S00173.253l688 +++|          SX6    X6-BRNO
03240  M01S00174.253l688 +++|          LX1    59-53

Seq #  *Modification Id* Act 
----------------------------+
03241  M02S00175.pfdum26 ---|          NG     X1,CSP6     IF PURGE OPTION SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03242  M02S00001.286l859 ---|          NG     X1,CSP5.5   IF PURGE OPTION SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03243  M01S00825.286l859 +++|          NG     X1,CSP6     IF PURGE OPTION SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03244  M01S00176.253l688 +++|          ZR     X6,CSPX     IF BACKUP NOT REQUIRED
03245  M01S00177.253l688 +++|          ZR     B2,CSP6     IF NO ALTERNATE STORAGE COPIES

Seq #  *Modification Id* Act 
----------------------------+
03246  M02S00178.286l859 ---|          NZ     B7,CSP5.3   IF ALTERNATE DATE/TIME USED IN SELECTION

Seq #  *Modification Id* Act 
----------------------------+
03247  M01S00826.286l859 +++|          NZ     B7,CSP5     IF ALTERNATE DATE/TIME USED IN SELECTION

Seq #  *Modification Id* Act 
----------------------------+
03248  M01S00179.253l688 +++|          ZR     X7,CSP6     IF FILE NOT BACKED UP ON ALTERNATE STORAGE
03249  M01S00180.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
03250  M02S00181.ns2670  ---|*         DETERMINE IF THE FILE CAN BE DUMPED AS *PFC ONLY*.  PRESET
03251  M02S00182.ns2670  ---|*         SETS THE *PFC ONLY* SIZE LIMIT TO FORCE A DATA DUMP FOR ALL
03252  M02S00183.ns2670  ---|*         FILES IF OP=Z OR A DESTAGE DUMP IS SELECTED.

Seq #  *Modification Id* Act 
----------------------------+
03253  M01S00004.ns2670  +++|*         DETERMINE IF THE FILE CAN BE DUMPED AS *PFC ONLY*.
03254  M01S00005.ns2670  +++|*         NOTE - IF *OP=Z* OR A DESTAGE DUMP IS SELECTED, *PRS*
03255  M01S00006.ns2670  +++|*         SETS THE *COS* LIMIT TO FORCE A DATA DUMP FOR ALL FILES.

Seq #  *Modification Id* Act 
----------------------------+
03256  M01S00184.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
03257  M02S00185.ns2670  ---| CSP5.3   SA1    B3+FCLF

Seq #  *Modification Id* Act 
----------------------------+
03258  M02S00007.ns2670a ---| CSP5.3   SA2    FLCF
03259  M02S00008.ns2670a ---|          NZ     X2,CSP5.4   IF FILE LENGTH ALREADY CORRECT
03260  M02S00009.ns2670a ---|          RJ     SFL         SET CORRECT FILE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03261  M02S00001.286l859 ---| CSP5.3   RJ     SFL         ENSURE FILE LENGTH CORRECT IN PFC ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03262  M02S00010.286l859 ---|          NZ     X6,CSP9     IF DEVICE NOT FOUND ERROR

Seq #  *Modification Id* Act 
----------------------------+
03263  M03S00011.286l859 ---|          SX6    B1+         SET *FILE LENGTH CORRECT* FLAG
03264  M03S00012.286l859 ---|          SA6    FLCF
03265  M03S00013.286l859 ---| CSP5.4   SA1    B3+FCLF     GET FILE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03266  M02S00002.286l859 ---|          SA1    B3+FCLF     GET FILE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03267  M01S00827.286l859 +++| CSP5     RJ     SFL         ENSURE FILE LENGTH CORRECT IN PFC ENTRY
03268  M01S00828.286l859 +++|          ZR     X6,CSPX     IF DEVICE NOT FOUND ERROR
03269  M01S00829.286l859 +++|          SA1    A0+FCLF     GET FILE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03270  M01S00186.253l688 +++|          SA2    CPAR+/COMSPFS/CPCO

Seq #  *Modification Id* Act 
----------------------------+
03271  M02S00187.ns2670  ---|          SA3    FLSF

Seq #  *Modification Id* Act 
----------------------------+
03272  M01S00188.253l688 +++|          MX7    -24
03273  M01S00189.253l688 +++|          LX1    -36
03274  M01S00190.253l688 +++|          BX7    -X7*X1

Seq #  *Modification Id* Act 
----------------------------+
03275  M02S00191.ns2670  ---|          LX1    59-11+36-60
03276  M02S00192.ns2670  ---|          PL     X1,CSP5.4   IF INDIRECT ACCESS FILE
03277  M02S00193.ns2670  ---|          NZ     X3,CSP5.4   IF TRUE FILE LENGTH IN CATALOG ENTRY
03278  M02S00194.ns2670  ---|          SX1    B1          SUBTRACT EOI SECTOR
03279  M02S00195.ns2670  ---|          IX7    X7-X1
03280  M02S00196.ns2670  ---| CSP5.4   IX7    X7-X2

Seq #  *Modification Id* Act 
----------------------------+
03281  M01S00014.ns2670  +++|          IX7    X7-X2

Seq #  *Modification Id* Act 
----------------------------+
03282  M02S00197.286l859 ---|          PL     X7,CSP7.1   IF FILE SIZE .GE. *PFC* ONLY LIMIT

Seq #  *Modification Id* Act 
----------------------------+
03283  M02S00002.286l859 ---|          EQ     CSP6        CHECK DISK IMAGE
03284  M02S00003.286l859 ---|
03285  M02S00004.286l859 ---|*         CHECK PURGE FILE USER INDEX THRESHOLD.
03286  M02S00005.286l859 ---|
03287  M02S00006.286l859 ---| CSP5.5   SA1    B3+FCFN
03288  M02S00007.286l859 ---|          SA2    /COMSPFS/FISP
03289  M02S00008.286l859 ---|          MX3    -18
03290  M02S00009.286l859 ---|          BX1    -X3*X1
03291  M02S00010.286l859 ---|          NZ     X2,CSP6     IF USER INDEX SELECTIONS PRESENT
03292  M02S00011.286l859 ---|          SX1    X1-PGUI
03293  M02S00012.286l859 ---|          PL     X1,CSP9     IF FILE NOT TO BE DUMPED

Seq #  *Modification Id* Act 
----------------------------+
03294  M01S00830.286l859 +++|          PL     X7,CSP9     IF FILE SIZE .GE. *PFC* ONLY LIMIT
03295  M00S01748.pfdump  +++|
03296  M00S01749.pfdump  +++|*         CHECK DISK IMAGE.
03297  M00S01750.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
03298  M01S01751.286l859 ---| CSP6     SA1    B3+FCBT     GET BEGINNING TRACK POINTER
03299  M01S01752.286l859 ---|          MX3    -12
03300  M01S01753.286l859 ---|          LX3    23-11
03301  M01S01754.286l859 ---|          BX1    -X3*X1
03302  M01S01755.286l859 ---|          NZ     X1,CSP8     IF DISK IMAGE EXISTS

Seq #  *Modification Id* Act 
----------------------------+
03303  M01S00831.286l859 +++| CSP6     SA1    A0+FCBT     GET BEGINNING TRACK POINTER
03304  M01S00832.286l859 +++|          SX6    B1          SET TOTAL FILE DUMP
03305  M01S00833.286l859 +++|          LX1    59-23
03306  M01S00834.286l859 +++|          NG     X1,CSPX     IF DISK IMAGE EXISTS

Seq #  *Modification Id* Act 
----------------------------+
03307  M01S01756.253l688 ---|          NZ     X2,CSP7     IF ALTERNATE STORAGE IMAGE EXISTS

Seq #  *Modification Id* Act 
----------------------------+
03308  M01S00198.253l688 +++|          NZ     B2,CSP7     IF ALTERNATE STORAGE COPY EXISTS

Seq #  *Modification Id* Act 
----------------------------+
03309  M01S01757.286l859 ---|
03310  M01S01758.286l859 ---|*         SEND *ORPHAN PFC* MESSAGE THEN ERROR IDLE DEVICE.
03311  M01S01759.286l859 ---|
03312  M01S01760.286l859 ---|          SA1    B3+FCFN     SET FILE NAME
03313  M01S01761.286l859 ---|          MX2    42
03314  M01S01762.286l859 ---|          BX6    X2*X1
03315  M01S01763.286l859 ---|          SA6    MPFN
03316  M01S01764.286l859 ---|          BX6    -X2*X1      SET USER INDEX
03317  M01S01765.286l859 ---|          SA6    MPUI

Seq #  *Modification Id* Act 
----------------------------+
03318  M02S01766.286l859 ---|          SA1    MAEQ        SET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03319  M02S00164.286l859 ---|          SA1    MAEQ        SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
03320  M01S01767.286l859 ---|          BX6    X1
03321  M01S01768.286l859 ---|          SA6    MPEQ
03322  M01S01769.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN  SET DEVICE NUMBER
03323  M01S01770.286l859 ---|          BX6    X1
03324  M01S01771.286l859 ---|          SA6    MPDN

Seq #  *Modification Id* Act 
----------------------------+
03325  M02S00015.286l859 ---|          BX7    X7-X7       CLEAR TRACK AND SECTOR
03326  M02S00016.286l859 ---|          SA7    MPTK
03327  M02S00017.286l859 ---|          SA7    MPSC

Seq #  *Modification Id* Act 
----------------------------+
03328  M01S01772.286l859 ---|          EDITS  MSFN,MES14  BUILD *ORPHAN PFC ENCOUNTERED* MESSAGE
03329  M01S01773.286l859 ---|          SX6    B1+         SET ERRLOG FLAG
03330  M01S01774.286l859 ---|          SA6    ELFG
03331  M01S01775.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
03332  M01S01776.286l859 ---|          RJ     SEI         SET ERROR IDLE STATUS

Seq #  *Modification Id* Act 
----------------------------+
03333  M02S01777.286l859 ---|          RGET   CSPB        RESTORE INDICES

Seq #  *Modification Id* Act 
----------------------------+
03334  M01S01778.286l859 ---|          BX6    X6-X6       CLEAR *DUMP FILE* FLAG
03335  M01S01779.286l859 ---|          EQ     CSPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03336  M01S00835.286l859 +++|          SA1    A0+FCFN     SET FILE NAME AND USER INDEX
03337  M01S00836.286l859 +++|          SB2    ERNP        * NO DISK OR ALTERNATE STORAGE ...*
03338  M01S00837.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
03339  M01S00838.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
03340  M01S00839.286l859 +++|          EQ     CSP10       SET NO FILE DUMP
03341  M00S01780.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
03342  M01S01781.253l688 ---|*         CHECK IF FILE STAGING IS SUPPRESSED (OP=S).

Seq #  *Modification Id* Act 
----------------------------+
03343  M01S00199.253l688 +++|*         DETERMINE IF FILE TO BE STAGED FROM ALTERNATE STORAGE.
03344  M00S01782.pfdump  +++|
03345  M00S01783.pfdump  +++| CSP7     SA1    CPAR+/COMSPFS/CPOP

Seq #  *Modification Id* Act 
----------------------------+
03346  M01S01784.286l859 ---|          LX1    59-47

Seq #  *Modification Id* Act 
----------------------------+
03347  M02S01785.286l859 ---|          SX6    B1+B1       SET *DUMP PFC/PERMITS ONLY* FLAG
03348  M02S01786.286l859 ---|          NG     X1,CSPX     IF FILE STAGING IS SUPPRESSED

Seq #  *Modification Id* Act 
----------------------------+
03349  M03S00007.286l859 ---|          LX1    59-53-59+47
03350  M03S00008.286l859 ---|          NG     X1,CSP7.1   IF PURGE OPTION SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
03351  M04S00001.286l859 ---|          LX1    59-56-59+47
03352  M04S00002.286l859 ---|          NG     X1,CSP9     IF *OP=I*

Seq #  *Modification Id* Act 
----------------------------+
03353  M02S01787.286l859 ---|
03354  M02S01788.286l859 ---|*         CHECK IF ALTERNATE DATE USED IN MEETING SELECTION CRITERIA.
03355  M02S01789.286l859 ---|
03356  M02S01790.286l859 ---|          SA1    CSPA
03357  M02S01791.286l859 ---|          NZ     X1,CSPX     IF ALTERNATE DATE USED

Seq #  *Modification Id* Act 
----------------------------+
03358  M03S01792.286l859 ---|          SX6    3           SET *FILE STAGING REQUIRED* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03359  M03S00009.286l859 ---| CSP7.1   SX6    3           SET *FILE STAGING REQUIRED*

Seq #  *Modification Id* Act 
----------------------------+
03360  M03S00200.286l859 ---|          NG     X1,CSP7.1   IF FILE STAGING SUPRESSED

Seq #  *Modification Id* Act 
----------------------------+
03361  M02S00003.286l859 ---|          NG     X1,CSP7.0   IF FILE STAGING SUPPRESSED

Seq #  *Modification Id* Act 
----------------------------+
03362  M01S00201.253l688 +++|          SX6    3           SET STAGE FILE

Seq #  *Modification Id* Act 
----------------------------+
03363  M02S00202.286l859 ---|          NZ     B4,CSPX     IF ACCESSIBLE ALTERNATE STORAGE COPY
03364  M02S00203.286l859 ---|          RJ     SSM         SEND UNABLE TO STAGE FILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03365  M02S00004.286l859 ---| CSP7.0   RJ     SFL         ENSURE LENGTH CORRECT FOR *PFC ONLY* DUMP
03366  M02S00005.286l859 ---|          NZ     X6,CSP9     IF DEVICE NOT FOUND ERROR

Seq #  *Modification Id* Act 
----------------------------+
03367  M02S00204.286l859 ---| CSP7.1   SA1    CPAR+/COMSPFS/CPDT
03368  M02S00205.286l859 ---|          NZ     X1,CSP9     IF DESTAGE DUMP

Seq #  *Modification Id* Act 
----------------------------+
03369  M01S00840.286l859 +++|          ZR     B3,CSP8     IF FILE NOT ON TAPE ALTERNATE STORAGE
03370  M01S00841.286l859 +++|          SX6    4           SET COPY FILE FROM TAPE
03371  M01S00842.286l859 +++| CSP8     LX1    59-47
03372  M01S00843.286l859 +++|          PL     X1,CSPX     IF FILE STAGING NOT SUPPRESSED
03373  M01S00844.286l859 +++| CSP9     SA1    CPAR+/COMSPFS/CPDT
03374  M01S00845.286l859 +++|          NZ     X1,CSP10    IF DESTAGE DUMP

Seq #  *Modification Id* Act 
----------------------------+
03375  M01S00206.253l688 +++|          SX6    2           SET DUMP PFC AND PERMITS ONLY
03376  M00S01793.pfdump  +++|          EQ     CSPX        RETURN
03377  M00S01794.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
03378  M01S01795.286l859 ---|*         CHECK FOR USER INDEX REQUIRING SPECIAL HANDLING.

Seq #  *Modification Id* Act 
----------------------------+
03379  M01S00846.286l859 +++|*         SET TO NOT DUMP FILE.
03380  M00S01796.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
03381  M01S01797.286l859 ---| CSP8     SA1    B3+FCFN

Seq #  *Modification Id* Act 
----------------------------+
03382  M02S00207.286l859 ---|          SA5    CPAR+/COMSPFS/CPDT

Seq #  *Modification Id* Act 
----------------------------+
03383  M01S01798.286l859 ---|          MX2    -18
03384  M01S01799.286l859 ---|          BX3    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
03385  M02S01800.286l859 ---|          SX4    IFUI
03386  M02S01801.286l859 ---|          BX2    X3-X4
03387  M02S01802.286l859 ---|          BX6    X6-X6       CLEAR *DUMP FILE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03388  M03S01803.286l859 ---|          ZR     X2,CSPX     IF *IAF* FLAWED SECTOR CHAIN USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03389  M03S00165.286l859 ---|          ZR     X2,CSPX     IF *IAPF* FLAWED SECTOR CHAIN USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03390  M02S01804.286l859 ---|          SX6    1           SET *DUMP TOTAL FILE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03391  M02S00208.286l859 ---|          SX2    X3-IFUI
03392  M02S00209.286l859 ---|          ZR     X2,CSP9     IF *IAPF* FLAWED SECTOR CHAIN USER INDEX
03393  M02S00210.286l859 ---|          ZR     X5,CSP8.0   IF NOT DESTAGE DUMP
03394  M02S00211.286l859 ---|          SX2    X3-SYUI
03395  M02S00212.286l859 ---|          ZR     X2,CSP9     IF SYSTEM USER INDEX
03396  M02S00213.286l859 ---| CSP8.0   SX6    1           SET *DUMP TOTAL FILE* FLAG
03397  M02S00214.286l859 ---|          MX2    -15
03398  M02S00215.286l859 ---|          LX2    17-14
03399  M02S00216.286l859 ---|          SX3    SBUI
03400  M02S00217.286l859 ---|          BX4    -X2*X1
03401  M02S00218.286l859 ---|          BX3    X3-X4
03402  M02S00219.286l859 ---|          NZ     X3,CSPX     IF NOT LOCK FILE USER INDEX
03403  M02S00220.286l859 ---|          NZ     X5,CSP9     IF DESTAGE DUMP

Seq #  *Modification Id* Act 
----------------------------+
03404  M01S01805.286l859 ---|          SA3    CPAR+/COMSPFS/CPUI
03405  M01S01806.286l859 ---|          NZ     X3,CSPX     IF DUMPING SINGLE USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03406  M02S01807.286l859 ---|          SA3    LMSK

Seq #  *Modification Id* Act 
----------------------------+
03407  M02S00011.286l859 ---|          SA3    LFDP

Seq #  *Modification Id* Act 
----------------------------+
03408  M01S01808.286l859 ---|          NZ     X3,CSPX     IF DUMPING LOCK FILES

Seq #  *Modification Id* Act 
----------------------------+
03409  M02S01809.286l859 ---|          MX2    -15
03410  M02S01810.286l859 ---|          LX2    17-14
03411  M02S01811.286l859 ---|          SX3    SBUI
03412  M02S01812.286l859 ---|          BX4    -X2*X1

Seq #  *Modification Id* Act 
----------------------------+
03413  M03S01813.286l859 ---|          BX1    X3-X4
03414  M03S01814.286l859 ---|          NZ     X1,CSPX     IF NOT LOCK FILE USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03415  M04S01815.286l859 ---|          BX6    X6-X6       CLEAR *DUMP FILE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03416  M04S00003.286l859 ---| CSP9     BX6    X6-X6       CLEAR *DUMP FILE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03417  M03S00063.286l859 ---|          BX3    X3-X4
03418  M03S00064.286l859 ---|          NZ     X3,CSPX     IF NOT LOCK FILE USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
03419  M02S00065.286l859 ---|          MX7    42
03420  M02S00066.286l859 ---|          BX2    X2*X1
03421  M02S00067.286l859 ---|          SX2    X2+         GET LAST DIGIT OF UI (SUBFAMILY INDEX)
03422  M02S00068.286l859 ---|          SA3    MSSF
03423  M02S00069.286l859 ---|          ZR     X3,CSP8.1   IF NOT MSS ENVIRONMENT, DUMP FILE
03424  M02S00070.286l859 ---|          SA4    X2+LFAT     MSS LOCK FILE NAME
03425  M02S00071.286l859 ---|          BX3    X4-X1
03426  M02S00072.286l859 ---|          BX3    X7*X3
03427  M02S00073.286l859 ---|          ZR     X3,CSP9     IF MSS LOCK FILE, CLEAR DUMP FLAG
03428  M02S00074.286l859 ---| CSP8.1   SA3    ASFF

Seq #  *Modification Id* Act 
----------------------------+
03429  M03S00075.286l859 ---|          ZR     X3,CSPX     IF NOT MAS ENVIRONMENT, DUMP FILE
03430  M03S00076.286l859 ---|          SA4    X2+LFAT+8   MAS LOCK FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
03431  M02S00025.286l859 ---|          ZR     X3,CSPX     IF NOT MSE ENVIRONMENT, DUMP FILE
03432  M02S00026.286l859 ---|          SA4    X2+LFAT+8   MSE LOCK FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
03433  M02S00077.286l859 ---|          BX3    X4-X1
03434  M02S00078.286l859 ---|          BX3    X7*X3

Seq #  *Modification Id* Act 
----------------------------+
03435  M03S00079.286l859 ---|          NZ     X3,CSPX     IF NOT MAS LOCK FILE, DUMP FILE

Seq #  *Modification Id* Act 
----------------------------+
03436  M02S00027.286l859 ---|          NZ     X3,CSPX     IF NOT MSE LOCK FILE, DUMP FILE

Seq #  *Modification Id* Act 
----------------------------+
03437  M02S00080.286l859 ---| CSP9     BX6    X6-X6       CLEAR *DUMP FILE* FLAG

Seq #  *Modification Id* Act 
----------------------------+
03438  M01S00847.286l859 +++| CSP10    SX6    B0          CLEAR *DUMP FILE* FLAG
03439  M00S01816.pfdump  +++|          EQ     CSPX        RETURN
03440  M00S01817.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
03441  M01S01818.253l688 ---| CSPA     BSSZ   1           *ALTERNATE DATE USED* FLAG
03442  M01S01819.253l688 ---| CSPB     BSSZ   1           INDICES SAVE AREA
03443  M01S01820.253l688 ---| CSPC     BSSZ   1           BACKUP CODE SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
03444  M02S00221.286l859 ---| CSPB     BSSZ   1           CATALOG ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03445  M02S00018.286l859 ---| CSPD     CON    0           INCREMENTAL DUMP FLAG

Seq #  *Modification Id* Act 
----------------------------+
03446  M01S00019.pfdum8  +++|

Seq #  *Modification Id* Act 
----------------------------+
03447  M02S00020.286l859 ---|**        TABLE OF SPECIAL FAST ATTACH FILES.
03448  M02S00021.286l859 ---|*
03449  M02S00022.286l859 ---|*         ANY FILE IN THIS TABLE WILL BE DUMPED ON AN INCREMENTAL
03450  M02S00023.286l859 ---|*         DUMP EVEN IF IT FAILS TO MEET THE SPECIFIED DATE/TIME
03451  M02S00024.286l859 ---|*         CRITERIA.  AN INCREMENTAL DUMP IS DEFINED TO BE ONE WITH
03452  M02S00025.286l859 ---|*         *OP=M* SPECIFIED, NO *BEFORE DATE* SPECIFIED, AND *OP=P*
03453  M02S00026.286l859 ---|*         NOT SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
03454  M01S00848.286l859 +++|*         TABLE OF SPECIAL FAST ATTACH FILES.

Seq #  *Modification Id* Act 
----------------------------+
03455  M01S00027.pfdum8  +++|
03456  M01S00028.pfdum8  +++| TSFF     BSS    0           TABLE OF SPECIAL FAST ATTACH FILES

Seq #  *Modification Id* Act 
----------------------------+
03457  M02S00029.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03458  M01S00030.pfdum8  +++|          VFD    42/0L"APFN",18/SYUI
03459  M01S00031.pfdum8  +++|          VFD    42/0L"PPFN",18/SYUI

Seq #  *Modification Id* Act 
----------------------------+
03460  M01S00004.252l678 +++|          VFD    42/0L"TMFC",18/"TMUI"

Seq #  *Modification Id* Act 
----------------------------+
03461  M02S00032.286l859 ---|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
03462  M01S00849.286l859 +++|          CON    0           END OF TABLE
03463  M00S01821.pfdump  +++| CWW      SPACE  4,50
03464  M00S01822.pfdump  +++|**        CWW - CONTROL WORD WRITE.
03465  M00S01823.pfdump  +++|*
03466  M00S01824.pfdump  +++|*                *CWW* TRANSFERS DATA FROM A WORKING BUFFER TO A
03467  M00S01825.pfdump  +++|*         CIRCULAR BUFFER.  CONTROL WORDS ARE INSERTED INTO THE
03468  M00S01826.pfdump  +++|*         CIRCULAR BUFFER AS NECESSARY BASED ON THE PRU SIZE CONTAINED
03469  M00S01827.pfdump  +++|*         IN THE FET.  IF THE BUFFER BECOMES SUFFICIENTLY FULL TO
03470  M00S01828.pfdump  +++|*         REQUIRE DUMPING, A *CIO* *WRITECW* REQUEST IS ISSUED FOR
03471  M00S01829.pfdump  +++|*         THE FILE.
03472  M00S01830.pfdump  +++|*
03473  M00S01831.pfdump  +++|*                *CWW* USES A WORD IN THE FET TO CONTROL THE BLOCKING
03474  M00S01832.pfdump  +++|*         OF DATA.  THE LOCATION OF THIS WORD IN THE FET IS DETERMINED
03475  M00S01833.pfdump  +++|*         BY THE ASSEMBLY CONSTANT *CWSW*.  BEFORE THE INITIAL CALL TO
03476  M00S01834.pfdump  +++|*         *CWW* FOR A GIVEN FET THE LOCATION *CWSW* OF THAT FET SHOULD
03477  M00S01835.pfdump  +++|*         BE INITIALIZED TO -1 TO INSURE PROPER OPERATION OF *CWW*.
03478  M00S01836.pfdump  +++|*         AFTER THE INITIAL CALL TO *CWW* FOR A GIVEN FET, THE LOCATION
03479  M00S01837.pfdump  +++|*         *CWSW* IS MAINTAINED AUTOMATICALLY BY *CWW* AND SHOULD NOT BE
03480  M00S01838.pfdump  +++|*         SET BY THE CALLER.
03481  M00S01839.pfdump  +++|*
03482  M00S01840.pfdump  +++|*                AN END OF RECORD WRITE CAUSES AN END OF RECORD LEVEL
03483  M00S01841.pfdump  +++|*         NUMBER *LN* (SEE *B6* ENTRY CONDITION) TO BE WRITTEN ON THE
03484  M00S01842.pfdump  +++|*         FILE.
03485  M00S01843.pfdump  +++|*
03486  M00S01844.pfdump  +++|*         ENTRY  (X2) = FET ADDRESS.
03487  M00S01845.pfdump  +++|*                (B6) = FWA OF WORKING BUFFER IF (B7) .GE. 0.
03488  M00S01846.pfdump  +++|*                     = LN = END OF RECORD LEVEL NUMBER IF (B7) .LT. 0.
03489  M00S01847.pfdump  +++|*                (B7) = WORD COUNT OF WORKING BUFFER (.GE. 0).
03490  M00S01848.pfdump  +++|*                     = .LT. 0 FOR AN END OF RECORD WRITE.
03491  M00S01849.pfdump  +++|*
03492  M00S01850.pfdump  +++|*         EXIT   (X2) = FET ADDRESS.
03493  M00S01851.pfdump  +++|*                (B6) = ADDRESS OF NEXT WORD TO BE TRANSFERRED FROM
03494  M00S01852.pfdump  +++|*                       WORKING BUFFER.
03495  M00S01853.pfdump  +++|*                (B7) = 0 IF OPERATION WAS COMPLETED.
03496  M00S01854.pfdump  +++|*                     = REMAINING WORD COUNT IF A BUFFER DUMP WAS
03497  M00S01855.pfdump  +++|*                       NECESSARY AND AN ERROR STATUS WAS DETECTED IN
03498  M00S01856.pfdump  +++|*                       THE FET.
03499  M00S01857.pfdump  +++|*                     = .LT. 0 IF AN ERROR WAS DETECTED AS ABOVE AND
03500  M00S01858.pfdump  +++|*                       THE CALL WAS FOR AN END OF RECORD WRITE.
03501  M00S01859.pfdump  +++|*                (X7) = ERROR STATUS IF (B7) .NE. 0.
03502  M00S01860.pfdump  +++|*
03503  M00S01861.pfdump  +++|*         USES   X - 1, 3, 4, 6, 7.
03504  M00S01862.pfdump  +++|*                A - 1, 3, 6, 7.
03505  M00S01863.pfdump  +++|*                B - 2, 3, 4, 5, 6, 7.
03506  M00S01864.pfdump  +++|*
03507  M00S01865.pfdump  +++|*         CALLS  MMC.
03508  M00S01866.pfdump  +++|*
03509  M00S01867.pfdump  +++|*         MACROS RECALL, WRITECW.
03510  M00S01868.pfdump  +++|
03511  M00S01869.pfdump  +++|
03512  M00S01870.pfdump  +++|*         SAVE CURRENT BLOCK WORD COUNT.
03513  M00S01871.pfdump  +++|
03514  M00S01872.pfdump  +++| CWW17    SX6    B2+         SAVE CURRENT BLOCK WORD COUNT
03515  M00S01873.pfdump  +++|          SA6    X2+CWSW
03516  M00S01874.pfdump  +++|
03517  M00S01875.pfdump  +++| CWW      SUBR               ENTRY/EXIT
03518  M00S01876.pfdump  +++|          ZR     B7,CWWX     IF WORKING BUFFER EMPTY
03519  M00S01877.pfdump  +++|          SA1    X2+4        SET LIMIT
03520  M00S01878.pfdump  +++|          SB5    X1
03521  M00S01879.pfdump  +++|          LX1    -18         SET BLOCK SIZE
03522  M00S01880.pfdump  +++|          SA3    X2+CWSW     GET CURRENT BLOCK WORD COUNT
03523  M00S01881.pfdump  +++|          SB3    X1
03524  M00S01882.pfdump  +++|          SB2    X3
03525  M00S01883.pfdump  +++|          SA1    X2+2        IN
03526  M00S01884.pfdump  +++|          SB4    X1
03527  M00S01885.pfdump  +++|          NG     B2,CWW1     IF NO PARTIAL BLOCK IN BUFFER
03528  M00S01886.pfdump  +++|          SX1    B4+B2       IN = IN + BLOCK LENGTH
03529  M00S01887.pfdump  +++|          SB4    X1+B1
03530  M00S01888.pfdump  +++|          LT     B4,B5,CWW1  IF IN .LT. LIMIT
03531  M00S01889.pfdump  +++|          SA1    X2+B1       IN = IN-LIMIT+FIRST
03532  M00S01890.pfdump  +++|          SB4    B4-B5
03533  M00S01891.pfdump  +++|          SB4    X1+B4
03534  M00S01892.pfdump  +++|
03535  M00S01893.pfdump  +++|*         DETERMINE BUFFER SPACE.
03536  M00S01894.pfdump  +++|
03537  M00S01895.pfdump  +++| CWW1     SA3    X2+3        OUT
03538  M00S01896.pfdump  +++|          SX6    B4+B1       BUFFER SPACE = OUT-(IN+1)
03539  M00S01897.pfdump  +++|          IX4    X3-X6
03540  M00S01898.pfdump  +++|          PL     X4,CWW2     IF NO BUFFER WRAP
03541  M00S01899.pfdump  +++|          SA3    X2+B1       FIRST
03542  M00S01900.pfdump  +++|          SX6    X4+B5       BUFFER SPACE = BUFFER SPACE+(LIMIT-FIRST)
03543  M00S01901.pfdump  +++|          SX3    X3
03544  M00S01902.pfdump  +++|          IX4    X6-X3
03545  M00S01903.pfdump  +++| CWW2     ZR     X4,CWW13    IF NO SPACE IN BUFFER
03546  M00S01904.pfdump  +++|
03547  M00S01905.pfdump  +++|*         PROCESS TRAILING CONTROL WORD.
03548  M00S01906.pfdump  +++|
03549  M00S01907.pfdump  +++|          NE     B2,B3,CWW4  IF CURRENT BLOCK NOT FULL
03550  M00S01908.pfdump  +++|          SB2    -B1         SET CURRENT BLOCK EMPTY
03551  M00S01909.pfdump  +++|          BX6    X6-X6       SET LEVEL 0 SECOND CONTROL WORD
03552  M00S01910.pfdump  +++|          SA6    B4
03553  M00S01911.pfdump  +++|          SB4    B4+B1       ADVANCE IN
03554  M00S01912.pfdump  +++|          LT     B4,B5,CWW3  IF IN .LT. LIMIT
03555  M00S01913.pfdump  +++|          SA1    X2+B1       IN = FIRST
03556  M00S01914.pfdump  +++|          SB4    X1
03557  M00S01915.pfdump  +++| CWW3     SX6    B4+         UPDATE IN
03558  M00S01916.pfdump  +++|          SX4    X4-1        DECREMENT BUFFER SPACE
03559  M00S01917.pfdump  +++|          SA6    X2+2
03560  M00S01918.pfdump  +++|          ZR     X4,CWW13    IF NO SPACE IN BUFFER
03561  M00S01919.pfdump  +++|
03562  M00S01920.pfdump  +++|*         PROCESS LEADING CONTROL WORD.
03563  M00S01921.pfdump  +++|
03564  M00S01922.pfdump  +++| CWW4     PL     B2,CWW6     IF BLOCK STARTED
03565  M00S01923.pfdump  +++|          SB2    B0          CLEAR BLOCK WORD COUNT
03566  M00S01924.pfdump  +++|          SX6    B3          (X7) = 5*BLOCK SIZE
03567  M00S01925.pfdump  +++|          SX1    B3
03568  M00S01926.pfdump  +++|          LX6    2
03569  M00S01927.pfdump  +++|          IX7    X6+X1
03570  M00S01928.pfdump  +++|          LX1    36          24/BLOCK SIZE,36/5*BLOCK SIZE
03571  M00S01929.pfdump  +++|          BX6    X1+X7
03572  M00S01930.pfdump  +++|          SA6    B4          STORE LEADING CONTROL WORD
03573  M00S01931.pfdump  +++|          SB4    B4+B1       ADVANCE IN
03574  M00S01932.pfdump  +++|          LT     B4,B5,CWW5  IF IN .LT. LIMIT
03575  M00S01933.pfdump  +++|          SA1    X2+B1       IN = FIRST
03576  M00S01934.pfdump  +++|          SB4    X1
03577  M00S01935.pfdump  +++| CWW5     SX4    X4-1        DECREMENT BUFFER SPACE
03578  M00S01936.pfdump  +++|          ZR     X4,CWW13    IF NO SPACE IN BUFFER
03579  M00S01937.pfdump  +++|
03580  M00S01938.pfdump  +++|*         PROCESS END OF RECORD WRITE.
03581  M00S01939.pfdump  +++|
03582  M00S01940.pfdump  +++| CWW6     PL     B7,CWW8     IF NOT END OF RECORD CALL
03583  M00S01941.pfdump  +++|          SX6    B6          SAVE LEVEL NUMBER
03584  M00S01942.pfdump  +++|          LX6    48
03585  M00S01943.pfdump  +++|          SA6    B4
03586  M00S01944.pfdump  +++|          SX1    B2          BLOCK BYTE COUNT = 5 * BLOCK WORD COUNT
03587  M00S01945.pfdump  +++|          LX1    2
03588  M00S01946.pfdump  +++|          SX3    X1+B2
03589  M00S01947.pfdump  +++|          SX1    B3          24/BLOCK SIZE,36/BLOCK BYTE COUNT
03590  M00S01948.pfdump  +++|          LX1    36
03591  M00S01949.pfdump  +++|          BX6    X1+X3
03592  M00S01950.pfdump  +++|          SB4    B4+B1       ADVANCE IN
03593  M00S01951.pfdump  +++|          LT     B4,B5,CWW7  IF IN .LT. LIMIT
03594  M00S01952.pfdump  +++|          SA1    X2+B1       IN = FIRST
03595  M00S01953.pfdump  +++|          SB4    X1
03596  M00S01954.pfdump  +++| CWW7     SA1    X2+2        UPDATE FIRST CONTROL WORD
03597  M00S01955.pfdump  +++|          SX7    B4          UPDATE IN
03598  M00S01956.pfdump  +++|          SA6    X1
03599  M00S01957.pfdump  +++|          SA7    A1
03600  M00S01958.pfdump  +++|          SB7    B0+         CLEAR WORKING BUFFER WORD COUNT
03601  M00S01959.pfdump  +++|          SB2    -B1         SET CURRENT BLOCK EMPTY FLAG
03602  M00S01960.pfdump  +++|          EQ     CWW13       BUFFER AHEAD
03603  M00S01961.pfdump  +++|
03604  M00S01962.pfdump  +++|*         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.
03605  M00S01963.pfdump  +++|
03606  M00S01964.pfdump  +++| CWW8     SB5    B5-B4       DETERMINE AVAILABLE SPACE WITHOUT WRAP
03607  M00S01965.pfdump  +++|          LE     B5,B7,CWW9  IF BUFFER WRAP
03608  M00S01966.pfdump  +++|          SB5    B7          USE WORKING BUFFER WORD COUNT
03609  M00S01967.pfdump  +++| CWW9     SX1    B3-B2       DETERMINE REMAINING BLOCK WORD COUNT
03610  M00S01968.pfdump  +++|          SX3    B5+
03611  M00S01969.pfdump  +++|          IX6    X4-X1
03612  M00S01970.pfdump  +++|          PL     X6,CWW10    IF BLOCK COUNT FITS IN AVAILABLE SPACE
03613  M00S01971.pfdump  +++|          SX1    X4+         USE AVAILABLE SPACE WORD COUNT
03614  M00S01972.pfdump  +++| CWW10    IX6    X3-X1
03615  M00S01973.pfdump  +++|          PL     X6,CWW11    IF NO BUFFER WRAP
03616  M00S01974.pfdump  +++|          SX1    B5          USE SPACE AVAILABLE WITHOUT WRAP
03617  M00S01975.pfdump  +++| CWW11    SX3    B6          SET STARTING ADDRESS OF MOVE
03618  M00S01976.pfdump  +++|          SX6    B4          SET DESTINATION ADDRESS OF MOVE
03619  M00S01977.pfdump  +++|          SB6    B6+X1       INCREMENT WORKING BUFFER ADDRESS
03620  M00S01978.pfdump  +++|          SB2    B2+X1       INCREMENT BLOCK COUNT
03621  M00S01979.pfdump  +++|          SB4    B4+X1       INCREMENT IN
03622  M00S01980.pfdump  +++|          SB5    X1+
03623  M00S01981.pfdump  +++|          SB7    B7-B5       DECREMENT WORKING BUFFER WORD COUNT
03624  M00S01982.pfdump  +++|          RJ     MMC         MOVE DATA FROM WORKING BUFFER
03625  M00S01983.pfdump  +++|          SA1    X2+FTLM     REREAD LIMIT
03626  M00S01984.pfdump  +++|          SB5    X1+
03627  M00S01985.pfdump  +++|          LT     B4,B5,CWW12 IF LIMIT NOT REACHED
03628  M00S01986.pfdump  +++|          SA1    X2+B1       READ FIRST
03629  M00S01987.pfdump  +++|          SB4    X1
03630  M00S01988.pfdump  +++| CWW12    NZ     B7,CWW1     IF MORE DATA TO WRITE
03631  M00S01989.pfdump  +++|
03632  M00S01990.pfdump  +++|
03633  M00S01991.pfdump  +++|*         PROCESS FULL BUFFER AND BUFFER AHEAD.
03634  M00S01992.pfdump  +++|
03635  M00S01993.pfdump  +++| CWW13    SA1    X2          CHECK FET STATUS
03636  M00S01994.pfdump  +++|          LX1    59-0
03637  M00S01995.pfdump  +++|          NG     X1,CWW14    IF FET NOT BUSY
03638  M00S01996.pfdump  +++|          ZR     B7,CWW17    IF WORKING BUFFER EMPTY
03639  M00S01997.pfdump  +++|          RECALL             WAIT FOR *CIO* TO CATCH UP
03640  M00S01998.pfdump  +++|          EQ     CWW1        TRANSFER REMAINDER OF DATA
03641  M00S01999.pfdump  +++|
03642  M00S02000.pfdump  +++| CWW14    LX1    0-10-59+0+60  CHECK ERROR STATUS
03643  M00S02001.pfdump  +++|          MX3    -4
03644  M00S02002.pfdump  +++|          BX7    -X3*X1
03645  M00S02003.pfdump  +++|          NZ     X7,CWW17    IF ERROR ON LAST WRITE REQUEST
03646  M00S02004.pfdump  +++|          NZ     B7,CWW16    IF WORKING BUFFER NOT EMPTY
03647  M00S02005.pfdump  +++|          SA1    X2+B1       FIRST
03648  M00S02006.pfdump  +++|          SA3    X2+3        OUT
03649  M00S02007.pfdump  +++|          SX6    B5
03650  M00S02008.pfdump  +++|          SX1    X1
03651  M00S02009.pfdump  +++|          IX7    X6-X1       BUFFER SIZE = LIMIT-FIRST
03652  M00S02010.pfdump  +++|          SX6    B4
03653  M00S02011.pfdump  +++|          IX3    X6-X3       BUFFER WC = IN-OUT
03654  M00S02012.pfdump  +++|          PL     X3,CWW15    IF NO BUFFER WRAP
03655  M00S02013.pfdump  +++|          IX3    X3+X7       BUFFER WC = BUFFER WC+BUFFER SIZE
03656  M00S02014.pfdump  +++| CWW15    AX7    1           BUFFER SIZE/2
03657  M00S02015.pfdump  +++|          IX1    X3-X7
03658  M00S02016.pfdump  +++|          NG     X1,CWW17    IF BUFFER NOT AT LEAST HALF FULL
03659  M00S02017.pfdump  +++|          SX6    B3+2        MINIMUM BLOCK LENGTH
03660  M00S02018.pfdump  +++|          IX1    X3-X6
03661  M00S02019.pfdump  +++|          NG     X1,CWW17    IF NOT FULL BLOCK IN BUFFER
03662  M00S02020.pfdump  +++|
03663  M00S02021.pfdump  +++|*         CALL *CIO* TO WRITE DATA.
03664  M00S02022.pfdump  +++|
03665  M00S02023.pfdump  +++| CWW16    WRITECW  X2        CALL *CIO* TO WRITE DATA
03666  M00S02024.pfdump  +++|          NZ     B7,CWW1     IF WORKING BUFFER NOT EMPTY
03667  M00S02025.pfdump  +++|          EQ     CWW17       SAVE CURRENT BLOCK WORD COUNT
03668  M00S02026.pfdump  +++|
03669  M00S02027.pfdump  +++| CWSW     EQU    5           CONTROL WORD STATUS WORD

Seq #  *Modification Id* Act 
----------------------------+
03670  M01S02028.253l688 ---| DFN      SPACE  4,20
03671  M01S02029.253l688 ---|**        DFN - DISPLAY FILE NAME.
03672  M01S02030.253l688 ---|*
03673  M01S02031.253l688 ---|*         ENTRY  (MPFN) = FILE NAME.
03674  M01S02032.253l688 ---|*                (MPUI) = USER INDEX.
03675  M01S02033.253l688 ---|*
03676  M01S02034.253l688 ---|*         EXIT   FILE NAME AND USER INDEX OF FILE BEING DUMPED
03677  M01S02035.253l688 ---|*                DISPLAYED ON THE *K* AND *B* DISPLAYS.
03678  M01S02036.253l688 ---|*
03679  M01S02037.253l688 ---|*         USES   X - 3.
03680  M01S02038.253l688 ---|*                A - 3.
03681  M01S02039.253l688 ---|*
03682  M01S02040.253l688 ---|*         MACROS EDITS, MESSAGE, MOVE.
03683  M01S02041.253l688 ---|
03684  M01S02042.253l688 ---|
03685  M01S02043.253l688 ---| DFN      SUBR               ENTRY/EXIT
03686  M01S02044.253l688 ---|          EDITS  MSDF        GENERATE DUMPING FILE MESSAGE
03687  M01S02045.253l688 ---|          MESSAGE  X5,1      DISPLAY MESSAGE ON *B* AND *K* DISPLAY
03688  M01S02046.253l688 ---|          SA3    IDSA+/COMSPFS/ADMS
03689  M01S02047.253l688 ---|          MOVE   3,X5,X3
03690  M01S02048.253l688 ---|          EQ     DFNX        RETURN
03691  M00S02049.pfdump  +++| DLY      SPACE  4,10
03692  M00S02050.pfdump  +++|**        DLY - DELAY.
03693  M00S02051.pfdump  +++|*
03694  M00S02052.pfdump  +++|*         ENTRY  (B2) = NUMBER OF RECALL-S TO ISSUE.
03695  M00S02053.pfdump  +++|*
03696  M00S02054.pfdump  +++|*         USES   B - 2.
03697  M00S02055.pfdump  +++|*
03698  M00S02056.pfdump  +++|*         MACROS RECALL.
03699  M00S02057.pfdump  +++|
03700  M00S02058.pfdump  +++|
03701  M00S02059.pfdump  +++| DLY      SUBR               ENTRY/EXIT
03702  M00S02060.pfdump  +++| DLY1     RECALL
03703  M00S02061.pfdump  +++|          SB2    B2-B1
03704  M00S02062.pfdump  +++|          GT     B2,DLY1     IF MORE DELAY NEEDED
03705  M00S02063.pfdump  +++|          EQ     DLYX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03706  M01S02064.253l688 ---| DSF      SPACE  4,12

Seq #  *Modification Id* Act 
----------------------------+
03707  M01S00222.253l688 +++| DSF      SPACE  4,15
03708  M00S02065.pfdump  +++|**        DSF - DROP STAGED FILES.
03709  M00S02066.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
03710  M01S02067.253l688 ---|*         ENTRY  DSFL = FWA OF DROP STAGED FILE LIST.
03711  M01S02068.253l688 ---|*                (NELE) = NUMBER OF LIST ELEMENTS.

Seq #  *Modification Id* Act 
----------------------------+
03712  M02S00223.286l859 ---|*         ENTRY  (NELE) = NUMBER OF LIST ELEMENTS.

Seq #  *Modification Id* Act 
----------------------------+
03713  M01S00850.286l859 +++|*         ENTRY  DATA LIST ELEMENTS IN *DLRB*.
03714  M01S00851.286l859 +++|*                CATALOG TRACK INTERLOCK SET.
03715  M00S02069.pfdump  +++|*
03716  M00S02070.pfdump  +++|*         EXIT   DISK SPACE OCCUPIED BY STAGED FILES DROPPED.

Seq #  *Modification Id* Act 
----------------------------+
03717  M01S02071.286l859 ---|*                CATALOG TRACK INTERLOCK CLEARED DURING EXECUTION
03718  M01S02072.286l859 ---|*                  OF THIS ROUTINE IS RESET UPON EXIT.

Seq #  *Modification Id* Act 
----------------------------+
03719  M01S00852.286l859 +++|*                CATALOG TRACK INTERLOCK SET.
03720  M00S02073.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
03721  M01S02074.253l688 ---|*         USES   X - 0, 1, 2, 6.
03722  M01S02075.253l688 ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
03723  M02S00224.286l859 ---|*         USES   X - 1, 6.
03724  M02S00225.286l859 ---|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
03725  M01S02076.286l859 ---|*                B - 2, 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
03726  M01S00853.286l859 +++|*         USES   X - 1, 5, 6.
03727  M01S00854.286l859 +++|*                A - 1, 5, 6.
03728  M01S00855.286l859 +++|*                B - 2.
03729  M01S00856.286l859 +++|*
03730  M01S00857.286l859 +++|*         CALLS  SDP, SPR.
03731  M00S02077.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
03732  M01S02078.v23l617 ---|*         MACROS DROPDS, PCINT.

Seq #  *Modification Id* Act 
----------------------------+
03733  M02S00081.253l688 ---|*         MACROS DROPDS, DROPIDS, PCINT.

Seq #  *Modification Id* Act 
----------------------------+
03734  M01S00226.253l688 +++|*         MACROS DROPDS, PCINT.
03735  M00S02079.pfdump  +++|
03736  M00S02080.pfdump  +++|
03737  M00S02081.pfdump  +++| DSF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
03738  M01S02082.286l859 ---|          SA1    NELE        GET NUMBER OF LIST ELEMENTS
03739  M01S02083.286l859 ---|          ZR     X1,DSFX     IF LIST EMPTY
03740  M00S02084.pfdump  +++|          PCINT  CATS,CTCC   CLEAR CATALOG TRACK INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
03741  M01S02085.253l688 ---|          SA1    NELE        INITIALIZE LIST INDICES

Seq #  *Modification Id* Act 
----------------------------+
03742  M02S00227.286l859 ---|          SA1    NELE        INITIALIZE DATA LIST INDICES

Seq #  *Modification Id* Act 
----------------------------+
03743  M01S02086.286l859 ---|          SB2    X1
03744  M01S02087.286l859 ---|          SB3    B0

Seq #  *Modification Id* Act 
----------------------------+
03745  M02S02088.286l859 ---|          SB4    B0
03746  M02S02089.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03747  M03S02090.286l859 ---|*         INITIALIZE *DROPDS* FET.

Seq #  *Modification Id* Act 
----------------------------+
03748  M03S00082.286l859 ---|*         INITIALIZE *DROPDS*/*DROPIDS* FET.

Seq #  *Modification Id* Act 
----------------------------+
03749  M02S02091.286l859 ---|
03750  M02S02092.286l859 ---| DSF1     SA1    DSFL+RSFN+RSUI*0+B4  GET FILE NAME AND USER INDEX
03751  M02S02093.286l859 ---|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
03752  M03S02094.286l859 ---|          SA2    DSFT+CFSN   SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
03753  M03S00083.286l859 ---|          SA2    SRFT+CFSN   SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
03754  M02S02095.286l859 ---|          BX2    -X0*X2
03755  M02S02096.286l859 ---|          BX6    X0*X1
03756  M02S02097.286l859 ---|          BX6    X6+X2
03757  M02S02098.286l859 ---|          SA6    A2
03758  M02S02099.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03759  M03S02100.286l859 ---|*         INITIALIZE *DROPDS* SPECIAL REQUEST BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
03760  M03S00083.286l859 ---|*         INITIALIZE SPECIAL REQUEST BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
03761  M02S02101.286l859 ---|
03762  M02S02102.286l859 ---|          SA2    SGFM        SET FAMILY NAME
03763  M02S02103.286l859 ---|          BX6    -X0*X1      SET USER INDEX
03764  M02S02104.286l859 ---|          BX6    X2+X6

Seq #  *Modification Id* Act 
----------------------------+
03765  M03S02105.286l859 ---|          SA6    DSRB+SFFM+SFUI*

Seq #  *Modification Id* Act 
----------------------------+
03766  M03S00084.286l859 ---|          SA6    SRBK+SFFM+SFUI*

Seq #  *Modification Id* Act 
----------------------------+
03767  M02S02106.286l859 ---|          SA1    DSFL+RSCD+B4  SET CREATION DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
03768  M03S02107.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03769  M03S00084.286l859 ---|          MX0    -36
03770  M03S00085.286l859 ---|          BX2    X1          SAVE DAPF FLAG
03771  M03S00086.286l859 ---|          BX6    -X0*X1      CREATION DATE/TIME

Seq #  *Modification Id* Act 
----------------------------+
03772  M03S02108.286l859 ---|          SA6    DSRB+SFCD

Seq #  *Modification Id* Act 
----------------------------+
03773  M03S00085.286l859 ---|          SA6    SRBK+SFCD

Seq #  *Modification Id* Act 
----------------------------+
03774  M02S02109.286l859 ---|          SA1    DSFL+RSAA+B4  SET ALTERNATE STORAGE ADDRESS
03775  M02S02110.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03776  M03S02111.286l859 ---|          SA6    DSRB+SFAS

Seq #  *Modification Id* Act 
----------------------------+
03777  M03S00086.286l859 ---|          SA6    SRBK+SFAS

Seq #  *Modification Id* Act 
----------------------------+
03778  M02S02112.286l859 ---|          SA1    DSFL+RSFI+B4  SET *PF-ID*
03779  M02S02113.286l859 ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
03780  M03S02114.286l859 ---|          SA6    DSRB+SFID

Seq #  *Modification Id* Act 
----------------------------+
03781  M03S00087.286l859 ---|          SA6    SRBK+SFID

Seq #  *Modification Id* Act 
----------------------------+
03782  M02S02115.286l859 ---|
03783  M02S02116.286l859 ---|*         ISSUE DROP DISK SPACE REQUEST.
03784  M02S02117.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03785  M03S02118.286l859 ---|          DROPDS DSFT

Seq #  *Modification Id* Act 
----------------------------+
03786  M04S00088.286l859 ---|          DROPDS SRFT

Seq #  *Modification Id* Act 
----------------------------+
03787  M03S00087.286l859 ---|          PL     X2,DSF2     IF INDIRECT ACCESS FILE
03788  M03S00088.286l859 ---|          DROPDS SRFT        DROP DIRECT ACCESS FILE SPACE
03789  M03S00089.286l859 ---|          EQ     DSF3        CHECK FOR END OF LIST
03790  M03S00090.286l859 ---|
03791  M03S00091.286l859 ---| DSF2     DROPIDS SRFT       DROP INDIRECT ACCESS FILE SPACE

Seq #  *Modification Id* Act 
----------------------------+
03792  M02S02119.286l859 ---|
03793  M02S02120.286l859 ---|*         CHECK FOR LIST TERMINATION.
03794  M02S02121.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
03795  M03S02122.286l859 ---|          SB3    B3+B1

Seq #  *Modification Id* Act 
----------------------------+
03796  M03S00092.286l859 ---| DSF3     SB3    B3+1

Seq #  *Modification Id* Act 
----------------------------+
03797  M02S02123.286l859 ---|          SB4    B4+RSEL
03798  M02S02124.286l859 ---|          LT     B3,B2,DSF1  IF MORE ELEMENTS

Seq #  *Modification Id* Act 
----------------------------+
03799  M02S00228.286l859 ---| DSF1     SA1    DLBUF+B3    GET DATA LIST ELEMENT
03800  M02S00229.286l859 ---|          UX1,B4 X1          UNPACK CATALOG BUFFER INDEX
03801  M02S00230.286l859 ---|          SX4    B4          SET CATALOG BUFFER INDEX
03802  M02S00231.286l859 ---|          SA0    DDBK        SET *PFM* PARAMETERS FOR *DROPDS*

Seq #  *Modification Id* Act 
----------------------------+
03803  M01S00858.286l859 +++|          SA5    DLRB        GET FIRST LIST ENTRY
03804  M01S00859.286l859 +++| DSF1     BX1    X5
03805  M01S00860.286l859 +++|          RJ     SDP         SET DATA LIST PARAMETERS
03806  M01S00861.286l859 +++|          SB2    DDBK        SET SPECIAL REQUEST BLOCK ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03807  M01S00232.253l688 +++|          RJ     SPR
03808  M01S00233.253l688 +++|          DROPDS DDFT        DROP DISK SPACE

Seq #  *Modification Id* Act 
----------------------------+
03809  M02S00234.286l859 ---|          SA1    SFNU        INCREMENT NUMBER OF FILES STAGED

Seq #  *Modification Id* Act 
----------------------------+
03810  M01S00862.286l859 +++|          SA1    STFC        INCREMENT NUMBER OF FILES STAGED

Seq #  *Modification Id* Act 
----------------------------+
03811  M01S00235.253l688 +++|          SX6    X1+B1
03812  M01S00236.253l688 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
03813  M02S00237.286l859 ---|          SB3    B3+1
03814  M02S00238.286l859 ---|          LT     B3,B2,DSF1  IF MORE DATA LIST ELEMENTS

Seq #  *Modification Id* Act 
----------------------------+
03815  M01S00863.286l859 +++|          SA5    A5+1        GET NEXT LIST ENTRY
03816  M01S00864.286l859 +++|          NZ     X5,DSF1     IF MORE DATA LIST ELEMENTS
03817  M00S02125.pfdump  +++|          PCINT  CATS,CTSC   SET CATALOG TRACK INTERLOCK
03818  M00S02126.pfdump  +++|          EQ     DSFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03819  M01S00865.286l859 +++| DTF      SPACE  4,20
03820  M01S00866.286l859 +++|**        DTF - DUMP TAPE RESIDENT FILE.
03821  M01S00867.286l859 +++|*
03822  M01S00868.286l859 +++|*         ENTRY  (RESE - RESE+2) = REQUEST PARAMETERS.
03823  M01S00869.286l859 +++|*                (DBUFH - DBUFH+17B) = CATALOG ENTRY FROM TAPE.
03824  M01S00870.286l859 +++|*
03825  M01S00871.286l859 +++|*         EXIT   FILE DUMP COMPLETE IF FILE FOUND AND SELECTED.
03826  M01S00872.286l859 +++|*                ALL DEVICE ACCESS FILES RETURNED.
03827  M01S00873.286l859 +++|*                PF ACTIVITY COUNT AND CATALOG TRACK INTERLOCK NOT SET.
03828  M01S00874.286l859 +++|*
03829  M01S00875.286l859 +++|*         USES   X - 0, 1, 2, 3, 6, 7.
03830  M01S00876.286l859 +++|*                A - 1, 2, 3, 6.
03831  M01S00877.286l859 +++|*                B - 3.
03832  M01S00878.286l859 +++|*
03833  M01S00879.286l859 +++|*         CALLS  CAC, CDT, CFD, CSP, OPF, PFC, PPD, RCS, RMF, RPF, SAC,
03834  M01S00880.286l859 +++|*                SCA, SFL.
03835  M01S00881.286l859 +++|*
03836  M01S00882.286l859 +++|*         MACROS CALLPFU, MOVE, PCINT, READCW.
03837  M01S00883.286l859 +++|
03838  M01S00884.286l859 +++|
03839  M01S00885.286l859 +++| DTF      SUBR               ENTRY/EXIT
03840  M01S00886.286l859 +++|
03841  M01S00887.286l859 +++|*         SET UP CATALOG AND PERMITS FILES AND SET INTERLOCKS.
03842  M01S00888.286l859 +++|
03843  M01S00889.286l859 +++|          SA1    RESE+1
03844  M01S00890.286l859 +++|          MX6    -18
03845  M01S00891.286l859 +++|          MX7    -3
03846  M01S00892.286l859 +++|          BX6    -X6*X1      USER INDEX
03847  M01S00893.286l859 +++|          BX2    -X7*X1      SUBFAMILY INDEX
03848  M01S00894.286l859 +++|          SA6    PDUI        SET USER INDEX FOR *RCS* ERROR MESSAGE
03849  M01S00895.286l859 +++|          SA2    TMDA+X2     GET MASTER DEVICE *MSTT* ADDRESS
03850  M01S00896.286l859 +++|          SA3    X2+         GET MASTER DEVICE EST ORDINAL
03851  M01S00897.286l859 +++|          BX6    X2
03852  M01S00898.286l859 +++|          SA6    MSTA        SET MASTER DEVICE *MSTT* ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03853  M01S00001.pfdum27 +++|          MX6    -6
03854  M01S00002.pfdum27 +++|          BX6    -X6*X3
03855  M01S00003.pfdum27 +++|          SA6    CPAR+/COMSPFS/CPDN  SET MASTER DEVICE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
03856  M01S00899.286l859 +++|          MX6    -9
03857  M01S00900.286l859 +++|          LX3    -6
03858  M01S00901.286l859 +++|          BX6    -X6*X3
03859  M01S00902.286l859 +++|          SA6    MAEQ        SET MASTER DEVICE EST ORDINAL
03860  M01S00903.286l859 +++|          RJ     SAC         SET PF ACTIVITY COUNT
03861  M01S00904.286l859 +++|          SA1    RESE+2
03862  M01S00905.286l859 +++|          SA2    MAEQ
03863  M01S00906.286l859 +++|          MX6    36
03864  M01S00907.286l859 +++|          SX3    5
03865  M01S00908.286l859 +++|          LX6    -12
03866  M01S00909.286l859 +++|          BX6    X6*X1       FIRST TRACK, CURRENT TRACK AND SECTOR
03867  M01S00910.286l859 +++|          LX2    48
03868  M01S00911.286l859 +++|          BX6    X6+X3       MERGE FILE STATUS
03869  M01S00912.286l859 +++|          BX6    X6+X2       MERGE EST ORDINAL
03870  M01S00913.286l859 +++|          SA6    CATS+FTPM   SET FST PARAMETERS
03871  M01S00914.286l859 +++|          CALLPFU  CATS,CTOL,R  OPEN CATALOG FILE
03872  M01S00915.286l859 +++|          RJ     OPF         OPEN PERMITS FILE
03873  M01S00916.286l859 +++|          PCINT  CATS,CTSC   SET CATALOG TRACK INTERLOCK
03874  M01S00917.286l859 +++|
03875  M01S00918.286l859 +++|*         READ CATALOG ENTRY.
03876  M01S00919.286l859 +++|
03877  M01S00920.286l859 +++|          SA1    CATS+FTFT
03878  M01S00921.286l859 +++|          SX6    X1
03879  M01S00922.286l859 +++|          SA6    A1+B1       SET IN = FIRST
03880  M01S00923.286l859 +++|          SA6    A1+2        SET OUT = FIRST
03881  M01S00924.286l859 +++|          READCW CATS,17B    INITIATE CATALOG READ
03882  M01S00925.286l859 +++|          RJ     RCS         READ CATALOG SECTOR
03883  M01S00926.286l859 +++|          NZ     X1,DTF3     IF ERROR IN READ
03884  M01S00927.286l859 +++|          SA2    RESE+2
03885  M01S00928.286l859 +++|          MX6    -2
03886  M01S00929.286l859 +++|          BX6    -X6*X2      CATALOG BUFFER INDEX
03887  M01S00930.286l859 +++|          LX6    4
03888  M01S00931.286l859 +++|          ERRNZ  NWCE-20B
03889  M01S00932.286l859 +++|          SA0    CSBF+X6     SET CATALOG ENTRY ADDRESS
03890  M01S00933.286l859 +++|
03891  M01S00934.286l859 +++|*         VERIFY CATALOG ENTRY.
03892  M01S00935.286l859 +++|
03893  M01S00936.286l859 +++|          SA1    A0+FCFN
03894  M01S00937.286l859 +++|          SA2    RESE+1
03895  M01S00938.286l859 +++|          SA3    A0+FCCD
03896  M01S00939.286l859 +++|          SA4    DBUFH+FCCD
03897  M01S00940.286l859 +++|          MX6    -36
03898  M01S00941.286l859 +++|          BX1    X1-X2       COMPARE FILE NAMES FROM REQUEST AND PFC
03899  M01S00942.286l859 +++|          BX3    X3-X4       COMPARE CREATION TIME FROM TAPE AND PFC
03900  M01S00943.286l859 +++|          BX3    -X6*X3
03901  M01S00944.286l859 +++|          NZ     X1,DTF3     IF NOT SAME FILE NAME AND USER INDEX
03902  M01S00945.286l859 +++|          NZ     X3,DTF3     IF NOT SAME CREATION DATE/TIME
03903  M01S00946.286l859 +++|          SA1    A0+FCMD
03904  M01S00947.286l859 +++|          SA2    DBUFH+FCMD
03905  M01S00948.286l859 +++|          SA3    A0+FCTV
03906  M01S00949.286l859 +++|          SA4    DBUFH+FCTV

Seq #  *Modification Id* Act 
----------------------------+
03907  M02S00950.pfdum29 ---|          MX7    -45
03908  M02S00951.pfdum29 ---|          LX7    -3

Seq #  *Modification Id* Act 
----------------------------+
03909  M01S00001.pfdum29 +++|          MX7    -42

Seq #  *Modification Id* Act 
----------------------------+
03910  M01S00952.286l859 +++|          BX1    X1-X2       COMPARE DATA MODIFCATION DATE AND TIME
03911  M01S00953.286l859 +++|          BX3    X3-X4       COMPARE ALTERNATE STORAGE POINTERS
03912  M01S00954.286l859 +++|          BX1    -X6*X1
03913  M01S00955.286l859 +++|          BX3    -X7*X3
03914  M01S00956.286l859 +++|          NZ     X1,DTF3     IF NOT SAME DATA MODIFICATION DATE/TIME
03915  M01S00957.286l859 +++|          NZ     X3,DTF3     IF NOT SAME ALTERNATE STORAGE POINTERS
03916  M01S00958.286l859 +++|
03917  M01S00959.286l859 +++|*         DUMP FILE IF SELECTED.
03918  M01S00960.286l859 +++|
03919  M01S00961.286l859 +++|          RJ     CSP         CHECK SELECTION PARAMETERS
03920  M01S00962.286l859 +++|          ZR     X6,DTF3     IF NOT TO PROCESS FILE
03921  M01S00963.286l859 +++|          SX0    X6-2
03922  M01S00964.286l859 +++|          RJ     SCA         SET CATALOG DISK ADDRESS
03923  M01S00965.286l859 +++|          MOVE   NWCE,A0,CATH  MOVE CATALOG ENTRY
03924  M01S00966.286l859 +++|          NZ     X0,DTF2     IF FILE DATA TO BE DUMPED
03925  M01S00967.286l859 +++|          RJ     PPD         DUMP PFC AND PERMITS
03926  M01S00968.286l859 +++|          EQ     DTF3        RETURN MASTER DEVICE FILES
03927  M01S00969.286l859 +++|
03928  M01S00970.286l859 +++| DTF2     RJ     SFL         SET FILE LENGTH
03929  M01S00971.286l859 +++|          SX5    CCWC        SET DUMP WITH FILE DATA
03930  M01S00972.286l859 +++|          RJ     PFC         WRITE CATALOG ENTRY
03931  M01S00973.286l859 +++|          RJ     RPF         WRITE FILE PERMITS
03932  M01S00974.286l859 +++|          PCINT  CATS,CTCC   CLEAR CATALOG TRACK INTERLOCK
03933  M01S00975.286l859 +++|          RJ     CDT         COPY FILE DATA FROM TAPE
03934  M01S00976.286l859 +++|          RJ     CFD         COMPLETE FILE DUMP
03935  M01S00977.286l859 +++|
03936  M01S00978.286l859 +++|*         RETURN DEVICE FILES AND DECREMENT PF ACTIVITY COUNT.
03937  M01S00979.286l859 +++|
03938  M01S00980.286l859 +++| DTF3     RJ     RMF         RETURN MASTER DEVICE FILES
03939  M01S00981.286l859 +++|          RJ     CAC         DECREMENT PF ACTIVITY COUNT
03940  M01S00982.286l859 +++|          EQ     DTFX        RETURN
03941  M01S00983.286l859 +++| FAF      SPACE  4,10
03942  M01S00984.286l859 +++|**        FAF - FLUSH ARCHIVE FILES.
03943  M01S00985.286l859 +++|*
03944  M01S00986.286l859 +++|*         EXIT   ARCHIVE AND VERIFY FILES FLUSHED.
03945  M01S00987.286l859 +++|*
03946  M01S00988.286l859 +++|*         USES   X - 1, 2.
03947  M01S00989.286l859 +++|*                A - 1.
03948  M01S00990.286l859 +++|*
03949  M01S00991.286l859 +++|*         CALLS  FCW.
03950  M01S00992.286l859 +++|
03951  M01S00993.286l859 +++|
03952  M01S00994.286l859 +++| FAF      SUBR               ENTRY/EXIT
03953  M01S00995.286l859 +++|          SX2    TAPE        FLUSH ARCHIVE FILE BUFFER
03954  M01S00996.286l859 +++|          RJ     FCW
03955  M01S00997.286l859 +++|          SA1    CPAR+/COMSPFS/CPVF
03956  M01S00998.286l859 +++|          ZR     X1,FAFX     IF NO VERIFY FILE SPECIFIED
03957  M01S00999.286l859 +++|          SX2    PFVER
03958  M01S01000.286l859 +++|          RJ     FCW         FLUSH VERIFY FILE BUFFER
03959  M01S01001.286l859 +++|          EQ     FAFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03960  M01S02127.253l688 ---| EDS      SPACE  4,60
03961  M01S02128.253l688 ---|**        EDS - EDIT MESSAGE STRING.
03962  M01S02129.253l688 ---|*
03963  M01S02130.253l688 ---|*                THE EDIT STRING SUBROUTINE FORMATS A MESSAGE USING
03964  M01S02131.253l688 ---|*         A MESSAGE PARAMETER SKELETON AND A MESSAGE DESCRIPTION
03965  M01S02132.253l688 ---|*         STRING.  THE SKELETON CONTAINS SEARCH CHARACTERS, *$*,
03966  M01S02133.253l688 ---|*         WHEREVER A STRING SUBSTITUTION IS TO BE MADE.  IF A MESSAGE
03967  M01S02134.253l688 ---|*         DESCRIPTION STRING IS SPECIFIED, IT IS SUBSTITUTED INTO THE
03968  M01S02135.253l688 ---|*         SKELETON AT THE FIRST SEARCH CHARACTER FOUND.  THE
03969  M01S02136.253l688 ---|*         DESCRIPTION STRING MUST BE DISPLAY CODED AND IN *C* FORMAT.
03970  M01S02137.253l688 ---|*         IF NO DESCRIPTION STRING IS SPECIFIED OR ONCE IT HAS BEEN
03971  M01S02138.253l688 ---|*         SUBSTITUTED INTO THE SKELETON, THE SKELETON IS SCANNED FOR
03972  M01S02139.253l688 ---|*         SEARCH CHARACTERS AND THE VALUES SPECIFIED ARE SUBSTITUTED
03973  M01S02140.253l688 ---|*         WHEN EACH SEARCH CHARACTER IS ENCOUNTERED.  VALUES MAY BE
03974  M01S02141.253l688 ---|*         DISPLAY CODED OR NUMERIC.  NUMERIC VALUES WILL BE CONVERTED
03975  M01S02142.253l688 ---|*         TO DISPLAY CODE AND MUST BE SPECIFIED BY BITS 59 AND 58
03976  M01S02143.253l688 ---|*         IN TABLE *TMSP*.
03977  M01S02144.253l688 ---|*                THE FIRST SEARCH CHARACTER IN THE SKELETON MAY STAND
03978  M01S02145.253l688 ---|*         ALONE IF IT IS REPRESENTING THE DESCRIPTION STRING.  ANY AND
03979  M01S02146.253l688 ---|*         ALL OTHER SEARCH CHARACTERS MEANT FOR SUBSTITUTION MUST BE
03980  M01S02147.253l688 ---|*         FOLLOWED BY 3 CHARACTERS, THE FIRST 2 BEING OCTAL DIGITS FOR
03981  M01S02148.253l688 ---|*         THE BINARY VALUE OF THE PARAMETER ADDRESS LOCATION IN TABLE
03982  M01S02149.253l688 ---|*         *TMSP* (THE *LOC* ADDRESS).  THE THIRD CHARACTER REPRESENTS
03983  M01S02150.253l688 ---|*         A FORMATTING CONTROL FOR THE PARAMETER.  IF THE CHARACTER IS
03984  M01S02151.253l688 ---|*         A DIGIT IT SPECIFIES THE NUMBER OF CHARACTERS-1 OF THE
03985  M01S02152.253l688 ---|*         PARAMETER VALUE TO INSERT IN THE MESSAGE.  IF THE PARAMETER
03986  M01S02153.253l688 ---|*         IS DISPLAY CODED, THE CHARACTERS ARE TAKEN STARTING WITH THE
03987  M01S02154.253l688 ---|*         LEFTMOST NON-ZERO CHARACTER AND DISPLAYED WITH TRAILING
03988  M01S02155.253l688 ---|*         BLANKS IF NECESSARY.  IF THE PARAMETER IS NUMERIC, THE
03989  M01S02156.253l688 ---|*         CHARACTERS ARE TAKEN STARTING WITH THE LEAST SIGNIFICANT
03990  M01S02157.253l688 ---|*         DIGIT (RIGHTMOST CHARACTER) AND DISPLAYED WITH LEADING
03991  M01S02158.253l688 ---|*         ZEROS.  IF THE FORMATTING CONTROL CHARACTER IS A *B*, ALL
03992  M01S02159.253l688 ---|*         PARAMETER VALUES ARE DISPLAYED AS 10 CHARACTERS WITH
03993  M01S02160.253l688 ---|*         LEADING BLANK, RIGHT JUSTIFIED NUMERICAL VALUES AND
03994  M01S02161.253l688 ---|*         TRAILING BLANK, LEFT JUSTIFIED DISPLAY CODED VALUES.  IF
03995  M01S02162.253l688 ---|*         THE FORMATTING CONTROL CHARACTER IS ANY NON-DIGIT OTHER
03996  M01S02163.253l688 ---|*         THAN *B*, CHARACTERS FROM THE VALUE ARE DISPLAYED STARTING

Proceed to Part 4