User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfdump.006

Deck PFDUMP Part 006

50 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
06364  M01S01360.286l859 +++|          SX6    B0+         ENABLE READ OF NEXT RECORD
06365  M01S01361.286l859 +++|          SA6    AST+CWSW
06366  M01S01362.286l859 +++|          EQ     PARX        RETURN
06367  M01S01363.286l859 +++| PAT      SPACE  4,15
06368  M01S01364.286l859 +++|**        PAT - PROCESS ALTERNATE STORAGE TAPE.
06369  M00S03836.pfdump  +++|*
Line S03837 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06370  M01S03837.286l859 ---|*         CALLS  CRC, DSF, GRL, IRS, PRL, RCE, SDL.
Line S01365 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06371  M01S01365.286l859 +++|*         EXIT   FILES RESIDING ON SELECTED TAPE DUMPED.
06372  M00S03838.pfdump  +++|*
Line S03839 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06373  M01S03839.286l859 ---|*         MACROS READCW.
Line S01366 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06374  M01S01366.286l859 +++|*         USES   X - 1, 2, 6, 7.
06375  M01S01367.286l859 +++|*                A - 1, 2, 6, 7.
06376  M01S01368.286l859 +++|*                B - 2, 3.
06377  M01S01369.286l859 +++|*
06378  M01S01370.286l859 +++|*         CALLS  AAT, CFE, DTF, FTR, IRF, PAR, RCW, SFE.
06379  M01S01371.286l859 +++|*
06380  M01S01372.286l859 +++|*         MACROS CWREAD, READCW, READW, UNLOAD, WRITEW.
06381  M00S03840.pfdump  +++|
06382  M00S03841.pfdump  +++|
Line S03842 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06383  M01S03842.286l859 ---| PCT      SUBR               ENTRY/EXIT
Line S03843 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06384  M02S03843.286l859 ---|          SA1    LMSK
Line S00023 Modification History
M01 (Added by) ns21000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06385  M02S00023.286l859 ---|          SA1    LFDP
Line S03844 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06386  M01S03844.286l859 ---|          NZ     X1,PCT3     IF LOCK FILE DUMP PASS
Line S03845 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06387  M02S03845.286l859 ---| PCT1     SX6    B0+         CLEAR UNPROCESSED CONTROL WORD
Line S00012 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06388  M03S00012.286l859 ---| PCT1     BX6    X6-X6       CLEAR UNPROCESSED CONTROL WORD
Line S03846 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06389  M02S03846.286l859 ---|          SA6    CWNP
Line S00333 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06390  M02S00333.286l859 ---|          SX6    0
06391  M02S00334.286l859 ---|          SA6    CTIN        RESET CATALOG TRACK INDEX
06392  M02S00335.286l859 ---| PCT1     SA6    CWNP        CLEAR UNPROCESSED CONTROL WORD
Line S00013 Modification History
M01 (Added by) ns2383
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06393  M02S00013.286l859 ---|          MX6    24          PRESET PREVIOUS SECTOR CONTROL WORD
06394  M02S00014.286l859 ---|          SA1    OPNB
06395  M02S00015.286l859 ---|          BX6    X6*X1       SET EST ORDINAL AND TRACK
06396  M02S00016.286l859 ---|          LX6    -24
06397  M02S00017.286l859 ---|          SX1    7777B       SET SECTOR = -1
06398  M02S00018.286l859 ---|          BX6    X6+X1
Line S00019 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06399  M03S00019.286l859 ---|          SA6    RCEG
Line S00336 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06400  M02S00336.286l859 ---|          SA6    CPCW
Line S03847 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06401  M01S03847.286l859 ---|          SA1    CATS+FTFT   SET IN = OUT = FIRST
06402  M01S03848.286l859 ---|          SX6    X1+
06403  M01S03849.286l859 ---|          SA6    A1+B1
06404  M01S03850.286l859 ---|          SA6    A6+B1
06405  M01S03851.286l859 ---|          READCW CATS,17B    INITIATE CATALOG READ
06406  M01S03852.286l859 ---| PCT2     SX2    CATS
06407  M01S03853.286l859 ---|          RJ     RCE         READ BUFFER OF CATALOG ENTRIES
06408  M01S03854.286l859 ---|          SX7    B3          SET FWA OF CATALOG ENTRIES
06409  M01S03855.286l859 ---|          SX6    B6          SET LWA+1 OF CATALOG ENTRIES
06410  M01S03856.286l859 ---|          EQ     B3,B6,PCTX  IF NO CATALOG ENTRIES
06411  M01S03857.286l859 ---| PCT3     SA7    CHBA
06412  M01S03858.286l859 ---|          SA6    CHBL
06413  M01S03859.286l859 ---|          RJ     GRL         GENERATE DATA READ LIST
06414  M01S03860.286l859 ---|          SA1    NELE
06415  M01S03861.286l859 ---|          ZR     X1,PCT4     IF NO ELEMENTS
06416  M01S03862.286l859 ---|          RJ     SDL         SORT DATA LIST
Line S01373 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06417  M01S01373.286l859 +++| PAT      SUBR               ENTRY/EXIT
06418  M00S03863.pfdump  +++|
Line S03864 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06419  M01S03864.286l859 ---|*         PROCESS DATA READ LIST.
Line S01374 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06420  M01S01374.286l859 +++|*         ASSIGN TAPE.
06421  M00S03865.pfdump  +++|
Line S03866 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06422  M01S03866.286l859 ---|          RJ     PRL
Line S01375 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06423  M01S01375.286l859 +++|          UNLOAD AST,R       RETURN CURRENT TAPE
06424  M01S01376.286l859 +++|          RJ     AAT         ASSIGN ALTERNATE STORAGE TAPE
06425  M01S01377.286l859 +++|          SX6    1
06426  M01S01378.286l859 +++|          SA6    PATA+1      ENABLE RESCAN OF TAPE
06427  M00S03867.pfdump  +++|
Line S03868 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06428  M01S03868.286l859 ---|*         DROP DISK SPACE OCCUPIED BY STAGED FILES.
Line S01379 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06429  M01S01379.286l859 +++|*         INITIALIZE TAPE PASS.
06430  M00S03869.pfdump  +++|
Line S03870 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06431  M01S03870.286l859 ---| PCT4     SA1    SCAN
06432  M01S03871.286l859 ---|          ZR     X1,PCT5     IF NOT RESCAN
06433  M01S03872.286l859 ---|          RJ     DSF         DROP STAGED FILES
Line S01380 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06434  M01S01380.286l859 +++| PAT1     SX6    B0+
06435  M01S01381.286l859 +++|          SA6    PATA        CLEAR FILE PROCESSED FLAG
06436  M01S01382.286l859 +++|          SA6    PATB        CLEAR RESCAN REQUESTED
06437  M01S01383.286l859 +++|          SX0    MXLRR       SET RETRY LIMIT FOR LABEL READ
06438  M00S03873.pfdump  +++|
Line S03874 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06439  M01S03874.286l859 ---|*         CHECK CATALOG TRACK TERMINATION.
Line S01384 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06440  M01S01384.286l859 +++|*         INITIATE READ AND PROCESS ARCHIVE FILE LABEL.
06441  M00S03875.pfdump  +++|
Line S03876 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06442  M01S03876.286l859 ---| PCT5     SA1    CFTS
06443  M01S03877.286l859 ---|          ZR     X1,PCT2     IF NOT END OF CATALOG TRACK
Line S01385 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06444  M01S01385.286l859 +++| PAT2     SX0    X0-1        DECREMENT LABEL READ RETRY COUNTER
06445  M01S01386.286l859 +++|          NG     X0,PAT9     IF RETRIES EXHAUSTED
06446  M01S01387.286l859 +++|          REWIND AST         REWIND ARCHIVE FILE
06447  M01S01388.286l859 +++|          SX6    B0
06448  M01S01389.286l859 +++|          SA6    AST+CWSW    CLEAR CONTROL WORD STATUS WORD
06449  M01S01390.286l859 +++|          READCW X2,17B      INITIATE READ
06450  M01S01391.286l859 +++|          RJ     RCW         READ BLOCK CONTROL WORD
06451  M01S01392.286l859 +++|          NZ     X7,PAT2     IF ERROR
06452  M01S01393.286l859 +++|          NZ     X1,PAT9     IF EOR, EOF, OR EOI
06453  M01S01394.286l859 +++|          NZ     X3,PAT9     IF NOT ARCHIVE LABEL CONTROL WORD
06454  M01S01395.286l859 +++|          CWREAD AST,DBUFH,X6+B1  READ BLOCK
06455  M01S01396.286l859 +++|          NZ     X7,PAT2     IF READ ERROR
06456  M01S01397.286l859 +++|          NE     B7,B1,PAT9  IF NOT FULL BLOCK TERMINATED BY EOR
06457  M00S03878.pfdump  +++|
Line S03879 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06458  M01S03879.286l859 ---|*         DETERMINE IF CATALOG TRACK RESCAN IS REQUIRED.
Line S01398 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06459  M01S01398.286l859 +++|*         READ NEXT REQUEST.
06460  M00S03880.pfdump  +++|
Line S03881 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06461  M01S03881.286l859 ---|          SA1    NFSR
06462  M01S03882.286l859 ---|          ZR     X1,PCTX     IF RESCAN NOT REQUIRED
06463  M01S03883.286l859 ---|          SA1    SCAN
06464  M01S03884.286l859 ---|          ZR     X1,PCT6     IF CURRENT SCAN NOT RESCAN
06465  M01S03885.286l859 ---|          RJ     CRC         CHECK RESCAN CONTINUANCE
06466  M01S03886.286l859 ---|          NG     X6,PCTX     IF RESCAN TERMINATION DESIRED
06467  M01S03887.286l859 ---| PCT6     RJ     IRS         INITIALIZE RESCAN
Line S00337 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06468  M02S00337.286l859 ---|          SA1    RSIN        SET CATALOG TRACK INDEX FOR RESCAN
06469  M02S00338.286l859 ---|          SX6    B0
06470  M02S00339.286l859 ---|          BX7    X1
06471  M02S00340.286l859 ---|          SA7    CTIN        INITIALIZE CATALOG TRACK INDEX
Line S03888 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06472  M01S03888.286l859 ---|          EQ     PCT1        RESCAN CURRENT CATALOG TRACK
Line S01399 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06473  M01S01399.286l859 +++| PAT3     READW  RESS,RESE,TCRQL  READ REQUEST
06474  M01S01400.286l859 +++|          ZR     X1,PAT4     IF NOT END OF REQUESTS
06475  M01S01401.286l859 +++|          SA1    PATB
06476  M01S01402.286l859 +++|          ZR     X1,PATX     IF RESCAN NOT REQUESTED
06477  M01S01403.286l859 +++|          EQ     PAT8        CHECK RESCAN LIMIT
06478  M01S01404.286l859 +++|
06479  M01S01405.286l859 +++|*         FIND NEXT TAPE FILE.
06480  M01S01406.286l859 +++|
06481  M01S01407.286l859 +++| PAT4     RJ     PAR         POSITION ARCHIVE FILE TO NEXT RECORD
06482  M01S01408.286l859 +++|          RJ     RCW         READ BLOCK CONTROL WORD
06483  M01S01409.286l859 +++|          NZ     X7,PAT4     IF ERROR
06484  M01S01410.286l859 +++|          NG     X1,PAT7     IF EOF OR EOI
06485  M01S01411.286l859 +++|          NZ     X1,PAT4     IF EOR
06486  M01S01412.286l859 +++|          SX3    X3-1
06487  M01S01413.286l859 +++|          SX4    X4-1
06488  M01S01414.286l859 +++|          SX2    X6-NWCE
06489  M01S01415.286l859 +++|          NZ     X3,PAT4     IF NOT CATALOG BLOCK
06490  M01S01416.286l859 +++|          NZ     X4,PAT4     IF NOT FILE DUMP WITH DATA
06491  M01S01417.286l859 +++|          NZ     X2,PAT4     IF NOT CORRECT BLOCK LENGTH
06492  M01S01418.286l859 +++|          CWREAD AST,DBUFH,X6  READ BLOCK
06493  M01S01419.286l859 +++|          NZ     X7,PAT4     IF READ ERROR
06494  M01S01420.286l859 +++|          NZ     X1,PAT4     IF PREMATURE EOR, EOF, OR EOI
06495  M01S01421.286l859 +++|
06496  M01S01422.286l859 +++|*         COMPARE TAPE FILE TO REQUEST.
06497  M01S01423.286l859 +++|
06498  M01S01424.286l859 +++| PAT5     SA1    DBUFH+FCTV  GET TAPE ALTERNATE STORAGE INFORMATION
06499  M01S01425.286l859 +++|          RJ     FTR         FORMAT TAPE REQUEST PARAMETERS
06500  M01S01426.286l859 +++|          SA1    RESE
06501  M01S01427.286l859 +++|          MX6    -18
06502  M01S01428.286l859 +++|          BX7    -X6*X7      SEQUENCE NUMBER OF CURRENT FILE
06503  M01S01429.286l859 +++|          BX1    -X6*X1      SEQUENCE NUMBER OF REQUEST
06504  M01S01430.286l859 +++|          IX7    X7-X1
06505  M01S01431.286l859 +++|          NG     X7,PAT4     IF NOT YET AT REQUESTED FILE
06506  M01S01432.286l859 +++|          NZ     X7,PAT6     IF PAST REQUESTED FILE
06507  M01S01433.286l859 +++|
06508  M01S01434.286l859 +++|*         DUMP FILE.
06509  M01S01435.286l859 +++|
06510  M01S01436.286l859 +++|          SX6    B1+
06511  M01S01437.286l859 +++|          SA6    PATA        SET FILE PROCESSED
06512  M01S01438.286l859 +++|          RJ     DTF         DUMP TAPE RESIDENT FILE
06513  M01S01439.286l859 +++|          EQ     PAT3        CHECK REQUEST AND TAPE FILE
06514  M01S01440.286l859 +++|
06515  M01S01441.286l859 +++|*         SET TO PROCESS REQUEST ON RESCAN.
06516  M01S01442.286l859 +++|
06517  M01S01443.286l859 +++| PAT6     SX7    1
06518  M01S01444.286l859 +++|          SA7    PATB        SET RESCAN REQUESTED
06519  M01S01445.286l859 +++|          WRITEW REQS,RESE,TCRQL  WRITE REQUEST FOR RESCAN
06520  M01S01446.286l859 +++|          READW  RESS,RESE,TCRQL  READ NEXT REQUEST
06521  M01S01447.286l859 +++|          ZR     X1,PAT5     IF NOT END OF REQUESTS
06522  M01S01448.286l859 +++|          EQ     PAT8        CHECK RESCAN LIMIT
06523  M01S01449.286l859 +++|
06524  M01S01450.286l859 +++|*         PROCESS EOF/EOI ON TAPE WITH REQUESTS REMAINING.
06525  M01S01451.286l859 +++|*         ALL REMAINING REQUESTS WILL BE COPIED TO RESCAN FILE.
06526  M01S01452.286l859 +++|
06527  M01S01453.286l859 +++| PAT7     WRITEW REQS,RESE,TCRQL  WRITE REQUEST FOR RESCAN
06528  M01S01454.286l859 +++|          READW  RESS,RESE,TCRQL  READ NEXT REQUEST
06529  M01S01455.286l859 +++|          ZR     X1,PAT7     IF NOT END OF REQUESTS
06530  M01S01456.286l859 +++|
06531  M01S01457.286l859 +++|*         CHECK RESCAN LIMIT.
06532  M01S01458.286l859 +++|
06533  M01S01459.286l859 +++| PAT8     RJ     IRF         INITIALIZE RESCAN FILES
06534  M01S01460.286l859 +++|          SA1    PATA
06535  M01S01461.286l859 +++|          SA2    A1+B1
06536  M01S01462.286l859 +++|          IX2    X1+X2
06537  M01S01463.286l859 +++|          BX6    X1
06538  M01S01464.286l859 +++|          SA6    A2          SET LAST PASS STATUS
06539  M01S01465.286l859 +++|          NZ     X2,PAT1     IF FILES PROCESSED ON THIS OR LAST PASS
06540  M01S01466.286l859 +++|
06541  M01S01467.286l859 +++|*         ISSUE MESSAGES FOR FILES NOT FOUND ON ALTERNATE STORAGE TAPE.
06542  M01S01468.286l859 +++|
06543  M01S01469.286l859 +++| PAT9     READW  RESS,RESE,TCRQL  READ REQUEST
06544  M01S01470.286l859 +++|          NZ     X1,PATX     IF END OF REQUESTS
06545  M01S01471.286l859 +++|          SA1    RESE+1      SET FILE NAME AND USER INDEX
06546  M01S01472.286l859 +++|          SB2    ERNT        * FILE NOT FOUND ON ALTERNATE STORAGE ...*
06547  M01S01473.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
06548  M01S01474.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
06549  M01S01475.286l859 +++|          EQ     PAT9        READ NEXT ENTRY
06550  M01S01476.286l859 +++|
06551  M01S01477.286l859 +++|
06552  M01S01478.286l859 +++| PATA     CON    0           FILE PROCESSED ON CURRENT PASS FLAG
06553  M01S01479.286l859 +++|          CON    0           FILE PROCESSED ON LAST PASS FLAG
06554  M01S01480.286l859 +++| PATB     CON    0           TAPE RESCAN REQUESTED
06555  M00S03889.pfdump  +++| PFC      SPACE  4,25
06556  M00S03890.pfdump  +++|**        PFC - PROCESS FILE CATALOG ENTRY.
06557  M00S03891.pfdump  +++|*
Line S03892 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06558  M01S03892.286l859 ---|*         ENTRY  CATH = CATALOG ENTRY ADDRESS.
Line S01481 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06559  M01S01481.286l859 +++|*         ENTRY  CATALOG ENTRY IN *CATH*.
Line S03893 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06560  M01S03893.274l797 ---|*                (X5) = SKELETON CONTROL WORD.
Line S00031 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06561  M01S00031.274l797 +++|*                (FLOK) = *AFLOK*/*TFLOK* SELECTION FLAG.
06562  M00S03894.pfdump  +++|*                (SCAN) = 0, IF NORMAL SCAN.
06563  M00S03895.pfdump  +++|*                       = 1, IF RESCAN.
Line S00032 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06564  M01S00032.274l797 +++|*                (X5) = SKELETON CONTROL WORD.
06565  M00S03896.pfdump  +++|*
Line S03897 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06566  M01S03897.286l859 ---|*         EXIT   TRACK AND SECTOR FIELDS OF CATALOG ENTRY IMAGE
06567  M01S03898.286l859 ---|*                  CLEARED, IF IN RESCAN MODE.  THIS IDENTIFIES
06568  M01S03899.286l859 ---|*                  THAT THE FILE WAS RESIDENT ONLY ON ALTERNATE
06569  M01S03900.286l859 ---|*                  STORAGE AT THE TIME OF ITS DUMP.
Line S01482 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06570  M01S01482.286l859 +++|*         EXIT   TRACK AND SECTOR FIELDS OF CATALOG ENTRY IMAGE CLEARED
06571  M01S01483.286l859 +++|*                  IF RESCAN MODE TO IDENTIFY FILE NOT DISK RESIDENT AT
06572  M01S01484.286l859 +++|*                  THE TIME OF DUMP.
Line S00341 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06573  M01S00341.253l688 +++|*                ALTERNATE STORAGE INFORMATION CLEARED IN CATALOG ENTRY
06574  M01S00342.253l688 +++|*                  IMAGE IF ZERO ALTERNATE STORAGE OPTION SELECTED.
06575  M01S00343.253l688 +++|*                TAPE ALTERNATE STORAGE VSN POINTER SET IN CATALOG
06576  M01S00344.253l688 +++|*                  IMAGE IF DESTAGE DUMP.
Line S03901 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06577  M01S03901.286l859 ---|*                CATALOG ENTRY IMAGE WRITTEN TO DUMP FILE.
Line S03902 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06578  M02S03902.286l859 ---|*                CATALOG ENTRY FORMATTED AND WRITTEN TO OUTPUT,
06579  M02S03903.286l859 ---|*                  IF TAPE CATALOG LIST OPTION (LO=T) SELECTED.
06580  M02S03904.286l859 ---|*                ENTRY MADE IN PURGE LIST, IF PURGE AFTER OPTION
06581  M02S03905.286l859 ---|*                  (OP=P) SELECTED AND THE DATA PORTION OF FILE WILL
06582  M02S03906.286l859 ---|*                  ALSO BE DUMPED.
Line S00345 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06583  M02S00345.286l859 ---|*                CATALOG ENTRY INFORMATION WRITTEN TO OUTPUT FILE AND
06584  M02S00346.286l859 ---|*                  TO SUMMARY FILE IF SELECTED.
Line S01485 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06585  M01S01485.286l859 +++|*                CATALOG ENTRY IMAGE WRITTEN TO ARCHIVE FILE.
06586  M01S01486.286l859 +++|*                (FLST) = FILE STATUS (*PFC ONLY* STATUS SET).
06587  M01S01487.286l859 +++|*                (IFST) = 1 (CATALOG ENTRY DUMPED).
06588  M00S03907.pfdump  +++|*
Line S03908 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06589  M01S03908.253l688 ---|*         USES   X - 1, 2, 6, 7.
06590  M01S03909.253l688 ---|*                A - 1, 2, 6, 7.
Line S00347 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670a
Seq #  *Modification Id* Act 
----------------------------+
06591  M02S00347.ns2670a ---|*         USES   X - 1, 2, 3, 6, 7.
Line S00013 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06592  M02S00013.274l797 ---|*         USES   X - 1, 2, 3, 5, 6, 7.
Line S00033 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06593  M01S00033.274l797 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
Line S00348 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06594  M01S00348.253l688 +++|*                A - 1, 2, 3, 6, 7.
06595  M00S03910.pfdump  +++|*                B - 2, 3.
06596  M00S03911.pfdump  +++|*
Line S03912 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06597  M01S03912.253l688 ---|*         CALLS  DFN, MCO, WDT.
Line S00349 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670a
Seq #  *Modification Id* Act 
----------------------------+
06598  M02S00349.ns2670a ---|*         CALLS  DFN, WCD, WDT.
Line S03913 Modification History
M01 (Removed by) ns2670a
Seq #  *Modification Id* Act 
----------------------------+
06599  M01S03913.ns2670a ---|*
06600  M01S03914.ns2670a ---|*         MACROS WRITEW.
Line S00014 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06601  M02S00014.286l859 ---|*         CALLS  DFN, OCD, WDT.
Line S01488 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06602  M01S01488.286l859 +++|*         CALLS  DFN, WDT.
06603  M00S03915.pfdump  +++|
06604  M00S03916.pfdump  +++|
06605  M00S03917.pfdump  +++| PFC      SUBR               ENTRY/EXIT
Line S03918 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06606  M01S03918.253l688 ---|
06607  M01S03919.253l688 ---|*         SET MESSAGE PARAMETERS.
06608  M01S03920.253l688 ---|
06609  M01S03921.253l688 ---|          SA1    CATH+FCFN   SET FILE NAME
06610  M01S03922.253l688 ---|          MX7    42
06611  M01S03923.253l688 ---|          BX6    X7*X1
06612  M01S03924.253l688 ---|          BX7    -X7*X1      SET USER INDEX
06613  M01S03925.253l688 ---|          SA6    MPFN
06614  M01S03926.253l688 ---|          SA7    MPUI
Line S00350 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06615  M01S00350.253l688 +++|          SA1    CATH+FCFN
Line S00351 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06616  M02S00351.286l859 ---|          SX7    X5-CCWC     SET PFC ONLY FILE FLAG
06617  M02S00352.286l859 ---|          SA7    PCOF
Line S01489 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06618  M01S01489.286l859 +++|          SX7    X5-CCWC
06619  M01S01490.286l859 +++|          ZR     X7,PFC0.1   IF FILE DATA TO BE DUMPED
06620  M01S01491.286l859 +++|          SX7    1           SET *PFC ONLY* FLAG
06621  M01S01492.286l859 +++| PFC0.1   SA7    FLST        INITIALIZE FILE STATUS
06622  M00S03927.pfdump  +++|
06623  M00S03928.pfdump  +++|*         BUILD DUMP FILE CONTROL WORD.
06624  M00S03929.pfdump  +++|
Line S00353 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06625  M01S00353.253l688 +++|          MX6    42
06626  M01S00354.253l688 +++|          BX1    X6*X1
06627  M00S03930.pfdump  +++|          SX5    X5+NWCE     SET WORD COUNT
Line S03931 Modification History
M01 (Removed by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06628  M01S03931.pfdum9  ---|          BX6    X6+X5       SET FILE NAME
06629  M01S03932.pfdum9  ---|          SA6    CONTH
06630  M01S03933.pfdum9  ---|          LX6    59-9
06631  M01S03934.pfdum9  ---|          PL     X6,PFC2     IF DATA NOT TO BE DUMPED
06632  M01S03935.pfdum9  ---|
06633  M01S03936.pfdum9  ---|*         UPDATE FILE LENGTH IN CATALOG ENTRY.
06634  M01S03937.pfdum9  ---|
06635  M01S03938.pfdum9  ---| PFC1     SA2    CATH+FCBS   CHECK FILE TYPE
06636  M01S03939.pfdum9  ---|          LX2    59-11
06637  M01S03940.pfdum9  ---|          PL     X2,PFC2     IF INDIRECT ACCESS FILE
06638  M01S03941.pfdum9  ---|          SA3    DBUFH       GET ACCURATE LENGTH FROM CONTROL WORD
06639  M01S03942.pfdum9  ---|          MX6    24
06640  M01S03943.pfdum9  ---|          LX3    59-47
06641  M01S03944.pfdum9  ---|          SA2    CATH+FCLF   SET LENGTH IN CATALOG ENTRY
06642  M01S03945.pfdum9  ---|          BX2    -X6*X2
06643  M01S03946.pfdum9  ---|          BX6    X6*X3
06644  M01S03947.pfdum9  ---|          BX6    X6+X2
06645  M01S03948.pfdum9  ---|          SX2    B1          ADJUST LENGTH TO EXCLUDE EOI SECTOR
Line S00001 Modification History
M01 (Added by) pfdum9
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06646  M02S00001.253l688 ---|          BX7    X6+X5       SET FILE NAME
06647  M02S00002.253l688 ---|          SA7    CONTH
06648  M02S00003.253l688 ---|          LX7    59-9
Line S00355 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06649  M01S00355.253l688 +++|          BX6    X1+X5       SET FILE NAME
06650  M01S00356.253l688 +++|          SA6    CONTH
Line S00004 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06651  M01S00004.pfdum9  +++|
06652  M01S00005.pfdum9  +++|*         UPDATE FILE LENGTH IN CATALOG ENTRY.
Line S00016 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
06653  M01S00016.ns2670  +++|*         NOTE - CODE IN SUBROUTINE *CSP* ENSURES THAT THE FILE
06654  M01S00017.ns2670  +++|*         LENGTH IN THE PFC IS ALREADY CORRECT IF THE FILE DATA
06655  M01S00018.ns2670  +++|*         IS NOT TO BE DUMPED.
Line S00006 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06656  M01S00006.pfdum9  +++|
Line S00357 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
06657  M02S00357.ns2670  ---|          SA3    FLSF
Line S00007 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06658  M01S00007.pfdum9  +++|          SA1    CATH+FCBS   CHECK FILE TYPE
Line S00358 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06659  M01S00358.253l688 +++|          SA2    CATH+FCLF   SET LENGTH IN CATALOG ENTRY
Line S00008 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06660  M01S00008.pfdum9  +++|          MX0    24
06661  M01S00009.pfdum9  +++|          LX1    59-11
Line S00010 Modification History
M01 (Added by) pfdum9
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06662  M02S00010.253l688 ---|          SA2    CATH+FCLF   SET LENGTH IN CATALOG ENTRY
Line S00011 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06663  M01S00011.pfdum9  +++|          BX6    X2
06664  M01S00012.pfdum9  +++|          BX2    -X0*X2
Line S00359 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
06665  M02S00359.ns2670  ---|          NZ     X3,PFC2     IF FILE LENGTH PREVIOUSLY SET
Line S00013 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06666  M01S00013.pfdum9  +++|          PL     X1,PFC2     IF INDIRECT ACCESS FILE
Line S00014 Modification History
M01 (Added by) pfdum9
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06667  M02S00014.253l688 ---|          PL     X7,PFC1     IF DATA NOT TO BE DUMPED
Line S00360 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
06668  M02S00360.ns2670  ---|          NZ     X7,PFC1     IF DATA NOT TO BE DUMPED
Line S00019 Modification History
M01 (Added by) ns2670
Seq #  *Modification Id* Act 
----------------------------+
06669  M01S00019.ns2670  +++|          NZ     X7,PFC2     IF DATA NOT TO BE DUMPED
Line S00015 Modification History
M01 (Added by) pfdum9
Seq #  *Modification Id* Act 
----------------------------+
06670  M01S00015.pfdum9  +++|          SA3    DBUFH       GET ACCURATE LENGTH FROM CONTROL WORD
06671  M01S00016.pfdum9  +++|          LX3    59-47
06672  M01S00017.pfdum9  +++|          BX6    X0*X3
06673  M01S00018.pfdum9  +++|          BX6    X6+X2
06674  M01S00019.pfdum9  +++| PFC1     SX2    B1          ADJUST LENGTH TO EXCLUDE EOI SECTOR
Line S00172 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06675  M01S00172.v23l617 +++|          BX1    X0*X6       GET FILE LENGTH
06676  M01S00173.v23l617 +++|          ZR     X1,PFC2     IF ZERO FILE LENGTH
06677  M00S03949.pfdump  +++|          LX2    36-0
06678  M00S03950.pfdump  +++|          IX6    X6-X2
06679  M00S03951.pfdump  +++|          SA6    A2          UPDATE CATALOG ENTRY
06680  M00S03952.pfdump  +++|
Line S03953 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06681  M01S03953.286l859 ---|*         WRITE CATALOG TO DUMP FILE.
Line S01493 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06682  M01S01493.286l859 +++|*         WRITE CATALOG ENTRY TO ARCHIVE FILE.
06683  M00S03954.pfdump  +++|
Line S03955 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06684  M01S03955.253l688 ---| PFC2     RJ     DFN         DISPLAY FILE NAME
Line S00361 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06685  M01S00361.253l688 +++| PFC2     SA1    CATH+FCFN   SET FILE NAME AND USER INDEX
Line S00362 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06686  M02S00362.286l859 ---|          SX2    =0LDUMPING
06687  M02S00363.286l859 ---|          RJ     DFN         DISPLAY * DUMPING  FFFFFFF  UUUUUU*
Line S01494 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06688  M01S01494.286l859 +++|          SA2    =10HDUMPING
06689  M01S01495.286l859 +++|          RJ     DFN         DISPLAY STATUS MESSAGE
06690  M00S03956.pfdump  +++|          SA1    SCAN
06691  M00S03957.pfdump  +++|          ZR     X1,PFC3     IF NORMAL SCAN MODE
06692  M00S03958.pfdump  +++|          SA1    CATH+FCBT   CLEAR BEGINNING TRACK FIELD
06693  M00S03959.pfdump  +++|          MX2    48
06694  M00S03960.pfdump  +++|          LX2    23-11
06695  M00S03961.pfdump  +++|          BX6    X2*X1
06696  M00S03962.pfdump  +++|          SA6    A1
Line S03963 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06697  M01S03963.253l688 ---| PFC3     SB2    CATH
Line S00364 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06698  M01S00364.253l688 +++| PFC3     SA1    CPAR+/COMSPFS/CPDT
Line S00365 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06699  M02S00365.274l797 ---|          ZR     X1,PFC3.1   IF NOT DESTAGE DUMP
Line S00034 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06700  M01S00034.274l797 +++|          ZR     X1,PFC3.2   IF NOT DESTAGE DUMP
06701  M01S00035.274l797 +++|          SA3    FLOK
06702  M01S00036.274l797 +++|          NG     X3,PFC3.1   IF DESTAGE TO OPTICAL DISK
Line S00366 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06703  M01S00366.253l688 +++|          SA1    VSNP
06704  M01S00367.253l688 +++|          SX2    1
06705  M01S00368.253l688 +++|          LX2    24
06706  M01S00369.253l688 +++|          BX6    X1
06707  M01S00370.253l688 +++|          IX7    X1+X2       INCREMENT FILE SEQUENCE NUMBER
06708  M01S00371.253l688 +++|          SA6    CATH+FCTV+FCTS*0+FCTF*0  SET TAPE STORAGE INFORMATION
06709  M01S00372.253l688 +++|          SA7    VSNP        STORE UPDATED VSN POINTER
Line S00373 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06710  M02S00373.274l797 ---| PFC3.1   SA1    CPAR+/COMSPFS/CPOP
Line S00037 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06711  M01S00037.274l797 +++|          EQ     PFC3.2      CONTINUE
06712  M01S00038.274l797 +++|
06713  M01S00039.274l797 +++| PFC3.1   SA1    VSNP
06714  M01S00040.274l797 +++|          BX6    X1
06715  M01S00041.274l797 +++|          SA6    CATH+FCAA+FCAF*0+FCAT*0  SET OPTICAL DISK INFORMATION
06716  M01S00042.274l797 +++|          RECALL T           WAIT COMPLETION OF ANY PENDING OPERATION
06717  M01S00043.274l797 +++|          SA1    T+6         GET CURRENT DISK ADDRESS
06718  M01S00044.274l797 +++|          MX3    24
06719  M01S00045.274l797 +++|          LX1    30-24
06720  M01S00046.274l797 +++|          BX7    X3*X1
06721  M01S00047.274l797 +++|          SA1    CATH+FCOA   INSERT DISK ADDRESS INTO *FCOA*
06722  M01S00048.274l797 +++|          BX6    -X3*X1
06723  M01S00049.274l797 +++|          BX6    X6+X7
06724  M01S00050.274l797 +++|          SA6    A1
06725  M01S00051.274l797 +++| PFC3.2   SA1    CPAR+/COMSPFS/CPOP
Line S00374 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06726  M02S00374.286l859 ---|          SA2    PCOF
06727  M02S00375.286l859 ---|          BX6    X6-X6
Line S01496 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06728  M01S01496.286l859 +++|          SA2    FLST
06729  M01S01497.286l859 +++|          SX6    B0+
Line S00376 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06730  M01S00376.253l688 +++|          LX1    59-46
Line S01498 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06731  M01S01498.286l859 +++|          LX2    59-0
06732  M01S01499.286l859 +++|          NG     X2,PFC3.3   IF DUMPING PFC AND PERMITS ONLY
Line S00377 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06733  M02S00377.274l797 ---|          PL     X1,PFC3.2   IF *OP=Z* NOT SELECTED
06734  M02S00378.274l797 ---|          NZ     X2,PFC3.2   IF DUMPING PFC AND PERMITS ONLY
Line S00052 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06735  M01S00052.274l797 +++|          PL     X1,PFC3.3   IF *OP=Z* NOT SELECTED
Line S00053 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06736  M02S00053.286l859 ---|          NZ     X2,PFC3.3   IF DUMPING PFC AND PERMITS ONLY
Line S00379 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06737  M01S00379.253l688 +++|          SA6    CATH+FCAA+FCAT*0+FCAF*0  CLEAR CARTRIDGE POINTERS
06738  M01S00380.253l688 +++|          SA6    CATH+FCTV+FCTS*0+FCTF*0  CLEAR TAPE POINTERS
Line S00381 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06739  M02S00381.274l797 ---| PFC3.2   SB2    CATH
Line S00054 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06740  M01S00054.274l797 +++|          SA1    CATH+FCOA   CLEAR OPTICAL DISK ADDRESS
06741  M01S00055.274l797 +++|          MX6    24
06742  M01S00056.274l797 +++|          BX6    -X6*X1
Line S00057 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06743  M02S00057.286l859 ---|          SA6    A1
Line S01500 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06744  M01S01500.286l859 +++|          SA6    A1+
Line S00058 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06745  M01S00058.274l797 +++| PFC3.3   SB2    CATH
06746  M00S03964.pfdump  +++|          SB3    NWCE
Line S03965 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06747  M01S03965.286l859 ---|          RJ     WDT         WRITE CATALOG ENTRY TO DUMP TAPE
Line S03966 Modification History
M01 (Removed by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06748  M02S03966.286l859 ---|          SX6    1           SET FILES PROCESSED FLAG
06749  M02S03967.286l859 ---|          SA6    PFDB
Line S03968 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2670a
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06750  M03S03968.286l859 ---|          SA1    CPAR+/COMSPFS/CPLO
06751  M03S03969.286l859 ---|          PL     X1,PFC4     IF TAPE CATALOG NOT REQUESTED
06752  M03S03970.286l859 ---|          SB2    CATH
06753  M03S03971.286l859 ---|          RJ     MCO         MOVE CATALOG ENTRY TO OUTPUT
06754  M03S03972.286l859 ---|
06755  M03S03973.286l859 ---|*         CHECK PURGE AFTER OPTION.
06756  M03S03974.286l859 ---|
06757  M03S03975.286l859 ---| PFC4     SA1    CPAR+/COMSPFS/CPOP
06758  M03S03976.286l859 ---|          LX1    59-53
06759  M03S03977.286l859 ---|          PL     X1,PFCX     IF NO PURGE AFTER DUMP
Line S00174 Modification History
M01 (Added by) v23l617
M02 (Removed by) 253l688
M03 (Removed by) ns2670a
M04 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06760  M04S00174.286l859 ---|          SA2    CONTH       CONTROL WORD
06761  M04S00175.286l859 ---|          LX2    59-9
06762  M04S00176.286l859 ---|          PL     X2,PFCX     IF PFC AND PERMIT DUMP ONLY
Line S03978 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2670a
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06763  M03S03978.286l859 ---|          WRITEW PURGE,CATH,B1  MAKE ENTRY IN PURGE LIST
Line S00382 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2670a
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06764  M03S00382.286l859 ---|          SB3    CATH        SET CATALOG ADDRESS
06765  M03S00383.286l859 ---|          SX3    B1+         SET FILE LENGTH PRESENT
06766  M03S00384.286l859 ---|          RJ     WCD         WRITE CATALOG DATA TO OUTPUT FILES
Line S00015 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06767  M02S00015.286l859 ---|          SX6    CATH        SET CATALOG ADDRESS
06768  M02S00016.286l859 ---|          SA6    PFDB        SET FILES PROCESSED FLAG
06769  M02S00017.286l859 ---|          RJ     OCD         OUTPUT CATALOG DATA
Line S01501 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06770  M01S01501.286l859 +++|          RJ     WDT         WRITE CATALOG ENTRY TO ARCHIVE FILE
06771  M01S01502.286l859 +++|          SX6    1           SET PFC DUMPED INCOMPLETE FILE STATUS
06772  M01S01503.286l859 +++|          SA6    IFST
06773  M00S03979.pfdump  +++|          EQ     PFCX        RETURN
Line S01504 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06774  M01S01504.286l859 +++| PFI      SPACE  4,15
06775  M01S01505.286l859 +++|**        PFI - PROCESS FILE WITH DUMP INHIBITED.
06776  M01S01506.286l859 +++|*
06777  M01S01507.286l859 +++|*         ENTRY  (A0) = CATALOG ADDRESS.
06778  M01S01508.286l859 +++|*                (B2) = 0 IF *PFC ONLY* DUMP SELECTED.
06779  M01S01509.286l859 +++|*
06780  M01S01510.286l859 +++|*         EXIT   (A0) = CATALOG ADDRESS.
06781  M01S01511.286l859 +++|*                OUTPUT FILES WRITTEN WITH FILE INFORMATION.
06782  M01S01512.286l859 +++|*
06783  M01S01513.286l859 +++|*         USES   X - 7.
06784  M01S01514.286l859 +++|*                A - 7.
06785  M01S01515.286l859 +++|*
06786  M01S01516.286l859 +++|*         CALLS  CFP, SFL.
06787  M01S01517.286l859 +++|
06788  M01S01518.286l859 +++|
06789  M01S01519.286l859 +++| PFI      SUBR               ENTRY/EXIT
06790  M01S01520.286l859 +++|          SX7    B0
06791  M01S01521.286l859 +++|          NZ     B2,PFI1     IF NOT *PFC ONLY* FILE SELECTION
06792  M01S01522.286l859 +++|          SX7    B1          SET *PFC ONLY* FLAG
06793  M01S01523.286l859 +++| PFI1     SA7    FLST        INITIALIZE FILE STATUS
06794  M01S01524.286l859 +++|          RJ     SFL         ENSURE FILE LENGTH CORRECT IN PFC ENTRY
06795  M01S01525.286l859 +++|          ZR     X6,PFIX     IF DEVICE NOT FOUND ERROR
06796  M01S01526.286l859 +++|          RJ     CFP         COUNT FILE PROCESSED
06797  M01S01527.286l859 +++|          EQ     PFIX        RETURN
06798  M01S01528.286l859 +++| PPD      SPACE  4,10
06799  M01S01529.286l859 +++|**        PPD - PROCESS PFC/PERMITS ONLY DUMP.
06800  M01S01530.286l859 +++|*
06801  M01S01531.286l859 +++|*         EXIT   PFC ENTRY AND PERMITS WRITTEN TO ARCHIVE FILE.
06802  M01S01532.286l859 +++|*
06803  M01S01533.286l859 +++|*         USES   X - 5, 6, 7.
06804  M01S01534.286l859 +++|*                A - 0.
06805  M01S01535.286l859 +++|*
06806  M01S01536.286l859 +++|*         CALLS  CFP, PFC, RPF, SFL.
06807  M01S01537.286l859 +++|*
06808  M01S01538.286l859 +++|*         MACROS ARCHIVE.
06809  M01S01539.286l859 +++|
06810  M01S01540.286l859 +++|
06811  M01S01541.286l859 +++| PPD      SUBR               ENTRY/EXIT
06812  M01S01542.286l859 +++|          RJ     SFL         ENSURE FILE LENGTH SET IN CATALOG ENTRY
06813  M01S01543.286l859 +++|          SX5    COCW        SET *PFC ONLY* CONTROL WORD
06814  M01S01544.286l859 +++|          RJ     PFC         WRITE CATALOG ENTRY
06815  M01S01545.286l859 +++|          RJ     RPF         WRITE FILE PERMITS
06816  M01S01546.286l859 +++|          ARCHIVE  WRITER    WRITE EOR ON ARCHIVE FILE
06817  M01S01547.286l859 +++|          SX6    B0+
06818  M01S01548.286l859 +++|          SX7    BFAC
06819  M01S01549.286l859 +++|          SA6    IFST        CLEAR DUMP INCOMPLETE STATUS
06820  M01S01550.286l859 +++|          SA7    WREM        RESET BLOCK STATUS FOR NEXT FILE
06821  M01S01551.286l859 +++|          SA0    CATH        SET CATALOG ADDRESS
06822  M01S01552.286l859 +++|          RJ     CFP         COUNT FILE PROCESSED
06823  M01S01553.286l859 +++|          EQ     PPDX        RETURN
Line S03980 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06824  M01S03980.253l688 ---| PGF      SPACE  4,15
06825  M01S03981.253l688 ---|**        PGF - PURGE FILES THAT WERE DUMPED.
06826  M01S03982.253l688 ---|*
06827  M01S03983.253l688 ---|*         ENTRY  *PURGE* = FWA OF PURGE LIST FET.
06828  M01S03984.253l688 ---|*
06829  M01S03985.253l688 ---|*         EXIT   ALL FILES IN PURGE LIST PURGED.
06830  M01S03986.253l688 ---|*
06831  M01S03987.253l688 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
06832  M01S03988.253l688 ---|*                A - 1, 2, 5, 6, 7.
06833  M01S03989.253l688 ---|*
06834  M01S03990.253l688 ---|*         CALLS  COD, SFN.
06835  M01S03991.253l688 ---|*
06836  M01S03992.253l688 ---|*         MACROS MESSAGE, MOVE, READ, READW, REWIND, PURGE, SETPFP,
06837  M01S03993.253l688 ---|*                WRITER.
06838  M01S03994.253l688 ---|
06839  M01S03995.253l688 ---|
06840  M01S03996.253l688 ---| PGF      SUBR               ENTRY/EXIT
06841  M01S03997.253l688 ---|          SA1    CPAR+/COMSPFS/CPOP  CHECK PURGE OPTION
06842  M01S03998.253l688 ---|          LX1    59-53
Line S03999 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06843  M02S03999.253l688 ---|          PL     X1,PGFX     IF PURGE OPTION NOT SPECIFIED
06844  M02S04000.253l688 ---|          WRITER PURGE
Line S00247 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06845  M02S00247.253l688 ---|          NG     X1,PGF0.1   IF PURGE OPTION SET
06846  M02S00248.253l688 ---|          SA1    DFNU        SET TOTAL FILES NOT PURGED
06847  M02S00249.253l688 ---|          SA2    IDNU
06848  M02S00250.253l688 ---|          IX7    X1+X2
06849  M02S00251.253l688 ---|          SA7    NPNU
06850  M02S00252.253l688 ---|          EQ     PGFX        RETURN
06851  M02S00253.253l688 ---|
06852  M02S00254.253l688 ---| PGF0.1   WRITER PURGE
Line S04001 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06853  M01S04001.253l688 ---|          REWIND X2
06854  M01S04002.253l688 ---|          READ   X2
06855  M01S04003.253l688 ---|
06856  M01S04004.253l688 ---|*         READ NEXT FILE.
06857  M01S04005.253l688 ---|
06858  M01S04006.253l688 ---| PGF1     READW  PURGE,CATH,B1
06859  M01S04007.253l688 ---|          NZ     X1,PGFX     IF FILES PURGED
06860  M01S04008.253l688 ---|          SA2    CATH        SET USER INDEX
06861  M01S04009.253l688 ---|          MX0    -18
06862  M01S04010.253l688 ---|          BX1    -X0*X2
Line S00255 Modification History
M01 (Added by) ns22000
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06863  M02S00255.253l688 ---|          SX6    X1-PGUI
06864  M02S00256.253l688 ---|          NG     X6,PGF1.1   IF NOT ABOVE PURGE INDEX LIMIT
06865  M02S00257.253l688 ---|          SA4    NPNU        ADVANCE FILES NOT PURGED COUNT
06866  M02S00258.253l688 ---|          SX6    B1
06867  M02S00259.253l688 ---|          IX7    X4+X6
06868  M02S00260.253l688 ---|          SA7    A4+
06869  M02S00261.253l688 ---|          EQ     PGF1        CHECK NEXT FILE
06870  M02S00262.253l688 ---|
06871  M02S00263.253l688 ---| PGF1.1   SA4    PFNU        ADVANCE FILES PURGED COUNT
06872  M02S00264.253l688 ---|          SX6    B1
06873  M02S00265.253l688 ---|          IX7    X4+X6
06874  M02S00266.253l688 ---|          SA7    A4
Line S04011 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06875  M01S04011.253l688 ---|          BX5    X0*X2
06876  M01S04012.253l688 ---|          SX6    B1          SET DUMMY STATUS
06877  M01S04013.253l688 ---|          BX6    X6+X5
06878  M01S04014.253l688 ---|          SA6    PURGF
06879  M01S04015.253l688 ---|
06880  M01S04016.253l688 ---|*         SET UP PURGING MESSAGE.
06881  M01S04017.253l688 ---|
06882  M01S04018.253l688 ---|          BX0    X1
06883  M01S04019.253l688 ---|          BX1    X5          SPACE FILL NAME
06884  M01S04020.253l688 ---|          RJ     SFN
06885  M01S04021.253l688 ---|          SA6    MSGD+1
06886  M01S04022.253l688 ---|          BX1    X0          USER INDEX
06887  M01S04023.253l688 ---|          BX5    X0
06888  M01S04024.253l688 ---|          RJ     COD
06889  M01S04025.253l688 ---|          MX0    36
06890  M01S04026.253l688 ---|          LX6    24
06891  M01S04027.253l688 ---|          BX6    X0*X6
06892  M01S04028.253l688 ---|          SA6    MSGD+2
06893  M01S04029.253l688 ---|
06894  M01S04030.253l688 ---|*         PROCESS USER INDEX.
06895  M01S04031.253l688 ---|
06896  M01S04032.253l688 ---|          SA1    PGFA        CURRENT USER INDEX
06897  M01S04033.253l688 ---|          IX6    X1-X5
06898  M01S04034.253l688 ---|          SX7    X5          SET NEW USER INDEX
06899  M01S04035.253l688 ---|          ZR     X6,PGF2     IF SAME USER INDEX
06900  M01S04036.253l688 ---|          SA7    SPAR+2
06901  M01S04037.253l688 ---|          SX6    UIPR        SET USER INDEX FLAG
06902  M01S04038.253l688 ---|          SA7    PGFA
06903  M01S04039.253l688 ---|          SA6    SPAR
06904  M01S04040.253l688 ---|          SETPFP SPAR        SET USER INDEX
06905  M01S04041.253l688 ---|
06906  M01S04042.253l688 ---|*         PURGE FILES.
06907  M01S04043.253l688 ---|
06908  M01S04044.253l688 ---| PGF2     MESSAGE  MSGD,,R   ISSUE *PURGING FILE* MESSAGE
06909  M01S04045.253l688 ---|          SA5    IDSA+/COMSPFS/ADMS
06910  M01S04046.253l688 ---|          MOVE   3,MSGD,X5
06911  M01S04047.253l688 ---|          PURGE  PURGF       PURGE FILE
06912  M01S04048.253l688 ---|          EQ     PGF1        READ NEXT FILE
06913  M01S04049.253l688 ---|
06914  M01S04050.253l688 ---| PGFA     CON    0           CURRENT USER INDEX
Line S04051 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06915  M01S04051.286l859 ---| PPE      SPACE  4,20
06916  M01S04052.286l859 ---|**        PPE - PROCESS PERMIT ERROR.
06917  M01S04053.286l859 ---|*
06918  M01S04054.286l859 ---|*         ENTRY  (MPFN) = FILE NAME BEING DUMPED.
06919  M01S04055.286l859 ---|*                (MPUI) = USER INDEX OF FILE.
06920  M01S04056.286l859 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
06921  M01S04057.286l859 ---|*                ERROR DETECTED ON PERMIT FILE.
06922  M01S04058.286l859 ---|*
06923  M01S04059.286l859 ---|*         EXIT   PERMIT READ ERROR MESSAGES SENT.
Line S04060 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06924  M02S04060.286l859 ---|*                ERROR IDLE STATUS SET FOR MASTER DEVICE.
Line S04061 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06925  M01S04061.286l859 ---|*                ERROR STATUS CLEARED FROM PERMIT FET.
06926  M01S04062.286l859 ---|*
06927  M01S04063.286l859 ---|*         USES   X - 1, 2, 6, 7.
06928  M01S04064.286l859 ---|*                A - 1, 2, 6, 7.
06929  M01S04065.286l859 ---|*                B - 6.
06930  M01S04066.286l859 ---|*
Line S04067 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06931  M02S04067.286l859 ---|*         CALLS  GFP, SEI, SEM.
Line S00043 Modification History
M01 (Added by) 242l642
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06932  M02S00043.286l859 ---|*         CALLS  GFP, SEM.
Line S04068 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06933  M01S04068.286l859 ---|*
06934  M01S04069.286l859 ---|*         MACROS EDITS.
06935  M01S04070.286l859 ---|
06936  M01S04071.286l859 ---|
06937  M01S04072.286l859 ---| PPE      SUBR               ENTRY/EXIT
06938  M01S04073.286l859 ---|          SX6    PETS        GET FILE PARAMETERS
06939  M01S04074.286l859 ---|          RJ     GFP
Line S04075 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06940  M02S04075.286l859 ---|          SA1    MAEQ        SET EQUIPMENT NUMBER
Line S00267 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06941  M02S00267.286l859 ---|          SA1    MAEQ        SET EST ORDINAL
Line S04076 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06942  M01S04076.286l859 ---|          BX6    X1
06943  M01S04077.286l859 ---|          SA6    MPEQ
06944  M01S04078.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN  SET DEVICE NUMBER
06945  M01S04079.286l859 ---|          BX6    X1
06946  M01S04080.286l859 ---|          SA6    MPDN
06947  M01S04081.286l859 ---|          SA1    MPPN
06948  M01S04082.286l859 ---|          SB6    MSPN        SET PACK NAME SKELETON
06949  M01S04083.286l859 ---|          NZ     X1,PPE1     IF PACK NAME SPECIFIED
06950  M01S04084.286l859 ---|          SB6    MSFM        SET FAMILY NAME SKELETON
06951  M01S04085.286l859 ---| PPE1     EDITS  B6,MES2     GENERATE PERMIT READ ERROR MESSAGE
06952  M01S04086.286l859 ---|          SX6    B1+         SET ERRLOG FLAG
06953  M01S04087.286l859 ---|          SA6    ELFG
06954  M01S04088.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S04089 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06955  M02S04089.286l859 ---|          RJ     SEI         SET ERROR IDLE STATUS
Line S04090 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06956  M01S04090.286l859 ---|          EDITS  MSFN,MES2   GENERATE MESSAGE WITH FILE NAME
06957  M01S04091.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
06958  M01S04092.286l859 ---|          SA2    PETS        CLEAR FET ERROR STATUS
06959  M01S04093.286l859 ---|          SX1    36000B
06960  M01S04094.286l859 ---|          MX6    0           CLEAR DETAILED ERROR CODE
06961  M01S04095.286l859 ---|          BX7    -X1*X2
06962  M01S04096.286l859 ---|          SA6    A2+6
06963  M01S04097.286l859 ---|          SA7    A2
06964  M01S04098.286l859 ---|          EQ     PPEX        RETURN
06965  M01S04099.286l859 ---| PRL      SPACE  4,25
Line S01554 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06966  M01S01554.286l859 +++| PRL      SPACE  4,20
06967  M00S04100.pfdump  +++|**        PRL - PROCESS DATA READ LIST.
06968  M00S04101.pfdump  +++|*
Line S04102 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06969  M01S04102.286l859 ---|*         ENTRY  DATA READ LIST GENERATED AND SORTED.
06970  M01S04103.286l859 ---|*                (CFMT) = 0, IF PROCESSING 8 WORD CATALOG FORMAT.
06971  M01S04104.286l859 ---|*                       = 1, IF PROCESSING 16 WORD CATALOG FORMAT.
06972  M01S04105.286l859 ---|*                CHBA = FWA OF CATALOG ENTRY HOLD BUFFER.
06973  M01S04106.286l859 ---|*                CHBL = LWA+1 OF CATALOG ENTRY HOLD BUFFER.
06974  M01S04107.286l859 ---|*                DATA = FET USED BY *PFU* TO RETURNED DATA REQUESTED
06975  M01S04108.286l859 ---|*                       BY THE READ LIST.
06976  M01S04109.286l859 ---|*                DLBUF = FWA OF DATA READ LIST.
Line S00059 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06977  M02S00059.286l859 ---|*                (FLOK) = *AFLOK*/*TFLOK* SELECTION FLAG.
Line S04110 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06978  M01S04110.286l859 ---|*                (NELE) = NUMBER OF ELEMENTS IN DATA READ LIST.
06979  M01S04111.286l859 ---|*                NWCE = NUMBER WORDS IN CATALOG ENTRY.
Line S01555 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06980  M01S01555.286l859 +++|*         ENTRY  (NDLE) = NUMBER OF ELEMENTS IN *DLRB*.
06981  M00S04112.pfdump  +++|*
06982  M00S04113.pfdump  +++|*         EXIT   ALL ENTRIES IN THE DATA READ LIST PROCESSED.
Line S01556 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06983  M01S01556.286l859 +++|*                CATALOG INFORMATION WRITTEN TO OUTPUT FILE AND SUMMARY
06984  M01S01557.286l859 +++|*                  FILE FOR DUMPED FILES.
06985  M01S01558.286l859 +++|*                (NDLE) = 0.
06986  M00S04114.pfdump  +++|*
Line S04115 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
06987  M01S04115.253l688 ---|*         ERROR  TO *AEP* IF CATALOG BUFFER INDEX RANGE ERROR.
Line S00385 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06988  M02S00385.286l859 ---|*         ERROR  TO *ABT* IF CATALOG BUFFER INDEX RANGE ERROR.
Line S01559 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06989  M01S01559.286l859 +++|*         USES   X - 1, 5, 6, 7.
06990  M01S01560.286l859 +++|*                A - 1, 2, 6.
06991  M01S01561.286l859 +++|*                B - 2, 3, 5.
06992  M00S04116.pfdump  +++|*
Line S04117 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06993  M01S04117.274l797 ---|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
Line S04118 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06994  M02S04118.274l797 ---|*                A - 1, 2, 3, 5, 6.
06995  M02S04119.274l797 ---|*                B - 2, 5.
Line S00386 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06996  M02S00386.274l797 ---|*                A - 0, 1, 2, 3, 4, 5, 6.
Line S00060 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06997  M02S00060.286l859 ---|*         USES   X - ALL.
06998  M02S00061.286l859 ---|*                A - 1, 2, 3, 5, 6.
Line S00387 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
06999  M02S00387.286l859 ---|*                B - 2, 3, 4, 5.
Line S04120 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07000  M01S04120.286l859 ---|*
Line S04121 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07001  M02S04121.286l859 ---|*         CALLS  CFS, PFC, RPF, RPR, WDB, WRT.
Line S00388 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07002  M02S00388.286l859 ---|*         CALLS  CFS, PFC, RPF, RPR, UCE, WDB, WPR.
Line S01562 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07003  M01S01562.286l859 +++|*         CALLS  CFD, CFE, DSF, PFC, RPR, RPF, SDL, SDP, UCE, WDB.
07004  M00S04122.pfdump  +++|*
07005  M00S04123.pfdump  +++|*         MACROS CALLPFU, MOVE, RECALL.
07006  M00S04124.pfdump  +++|
07007  M00S04125.pfdump  +++|
07008  M00S04126.pfdump  +++| PRL      SUBR               ENTRY/EXIT
Line S01563 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07009  M01S01563.286l859 +++|          SA1    NDLE
07010  M01S01564.286l859 +++|          ZR     X1,PRLX     IF NO READ LIST ENTRIES
07011  M01S01565.286l859 +++|
07012  M01S01566.286l859 +++|*         SORT DATA LIST.
07013  M01S01567.286l859 +++|
07014  M01S01568.286l859 +++|          RJ     SDL         SORT DATA LIST
07015  M01S01569.286l859 +++|
07016  M01S01570.286l859 +++|*         INITIALIZE *DATA* FET AND CALL *PFU*.
07017  M01S01571.286l859 +++|
07018  M00S04127.pfdump  +++|          RECALL DATA
Line S04128 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07019  M01S04128.286l859 ---|          BX6    X6-X6       CLEAR RECALL WORD
07020  M01S04129.286l859 ---|          SA6    DATA+FTRE
Line S01572 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07021  M01S01572.286l859 +++|          SA1    NDLE
07022  M01S01573.286l859 +++|          SX6    B0+
07023  M01S01574.286l859 +++|          SA6    DATA+FTRE   CLEAR RECALL WORD
07024  M01S01575.286l859 +++|          SX6    DLRB
07025  M01S01576.286l859 +++|          LX6    36
07026  M01S01577.286l859 +++|          BX6    X6+X1       SET DATA LIST ADDRESS AND ENTRY COUNT
07027  M01S01578.286l859 +++|          SA6    DATA+FTDL
Line S04130 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07028  M01S04130.253l688 ---|          CALLPFU DATA,CTRL  READ DATA LIST
Line S00389 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07029  M01S00389.253l688 +++|          CALLPFU  DATA,CTRL READ DATA LIST
Line S01579 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07030  M01S01579.286l859 +++|          SX6    DLRB-1
07031  M01S01580.286l859 +++|          SA6    PRLA        INITIALIZE BUFFER POINTER
07032  M00S04131.pfdump  +++|
07033  M00S04132.pfdump  +++|*         PROCESS DATA READ LIST ENTRY.
07034  M00S04133.pfdump  +++|
Line S04134 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07035  M01S04134.286l859 ---|          BX6    X6-X6
07036  M01S04135.286l859 ---|          BX5    X6
07037  M01S04136.286l859 ---|          SB2    X5+
07038  M01S04137.286l859 ---| PRL1     SA6    PRLA        SAVE LOOP COUNTER
07039  M01S04138.286l859 ---|          SA1    DLBUF+B2    GET DATA LIST ELEMENT
07040  M01S04139.286l859 ---|          UX2,B5 X1          LOCATE CATALOG IN BUFFER
Line S04140 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07041  M02S04140.286l859 ---|          SX6    B5          SAVE CATALOG BUFFER ORDINAL
07042  M02S04141.286l859 ---|          SA6    CBRI
Line S00390 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07043  M02S00390.286l859 ---|          SX6    B5          SET CATALOG BUFFER INDEX
07044  M02S00391.286l859 ---|          SA6    CBIN
Line S04142 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07045  M01S04142.286l859 ---|          SX4    NWCE        MULTIPLY ORDINAL BY PFC LENGTH
07046  M01S04143.286l859 ---|          SA2    CHBA        ADD FWA OF BUFFER
07047  M01S04144.286l859 ---|          IX6    X6*X4
07048  M01S04145.286l859 ---|          IX6    X2+X6
07049  M01S04146.286l859 ---|          SA3    CHBL        CHECK RANGE
07050  M01S04147.286l859 ---|          IX3    X3-X6
07051  M01S04148.286l859 ---|          PL     X3,PRL2     IF INDEX WITHIN CATALOG BUFFER
07052  M01S04149.286l859 ---|          SX1    =C* CATALOG INDEX OUT OF RANGE.*
Line S04150 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07053  M02S04150.286l859 ---|          EQ     AEP         ABORT END PROCESSOR
Line S00392 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07054  M02S00392.286l859 ---|          EQ     ABT         ABORT END PROCESSOR
Line S01581 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07055  M01S01581.286l859 +++| PRL1     SA1    PRLA
07056  M01S01582.286l859 +++|          SX6    X1+B1       ADVANCE TO NEXT ENTRY
07057  M01S01583.286l859 +++|          SA6    A1
07058  M01S01584.286l859 +++|          SA1    X6+         GET DATA LIST ELEMENT
07059  M01S01585.286l859 +++|          ZR     X1,PRL4     IF END OF ENTRIES
07060  M01S01586.286l859 +++|          RJ     SDP         SET DATA LIST PARAMETERS
07061  M00S04151.pfdump  +++|
Line S04152 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07062  M01S04152.286l859 ---|*         PROCESS FILE CONTROL WORD.
Line S01587 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07063  M01S01587.286l859 +++|*         CHECK FILE STATUS.
07064  M00S04153.pfdump  +++|
Line S04154 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07065  M01S04154.286l859 ---| PRL2     MOVE   NWCE,X6,CATH  SAVE CATALOG ENTRY
07066  M01S04155.286l859 ---|          SA1    CFMT
07067  M01S04156.286l859 ---|          NZ     X1,PRL3     IF CATALOG IS 16 WORD FORMAT
07068  M01S04157.286l859 ---|          SA1    X6+FCBS     CHECK FILE TYPE
07069  M01S04158.286l859 ---|          LX1    59-11
07070  M01S04159.286l859 ---|          PL     X1,PRL4     IF INDIRECT ACCESS FILE
07071  M01S04160.286l859 ---| PRL3     SB5    B0          SET TO READ ONE WORD
Line S01588 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07072  M01S01588.286l859 +++|          MOVE   NWCE,A0,CATH  SAVE CATALOG ENTRY
07073  M01S01589.286l859 +++|          SB5    B0          SET TO READ ONE WORD
07074  M00S04161.pfdump  +++|          SB3    B1
07075  M00S04162.pfdump  +++|          RJ     RPR         READ FILE CONTROL WORD
Line S04163 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07076  M01S04163.286l859 ---|          RJ     CFS         CHECK FILE STATUS
Line S04164 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07077  M02S04164.286l859 ---|          ZR     X2,PRL4     IF TOTAL FILE TO BE DUMPED
07078  M02S04165.286l859 ---|          SX2    X2-1
07079  M02S04166.286l859 ---|          NZ     X2,PRL8     IF NO FILE TO BE DUMPED
07080  M02S04167.286l859 ---|          SX6    B1+         SET *PFC/PERMITS ONLY* FLAG
07081  M02S04168.286l859 ---|          SA6    PRLB
07082  M02S04169.286l859 ---|          SX5    COCW        SUPPLY PFC ONLY SKELETON CONTROL WORD
07083  M02S04170.286l859 ---|          EQ     PRL5        PROCESS FILE CATALOG ENTRY
Line S00393 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07084  M02S00393.286l859 ---|          NZ     X2,PRL8     IF FILE NOT TO BE DUMPED
Line S01590 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07085  M01S01590.286l859 +++|          SA1    DBUFH
07086  M01S01591.286l859 +++|          MX6    12
07087  M01S01592.286l859 +++|          BX6    X6*X1
07088  M01S01593.286l859 +++|          ZR     X6,PRL3     IF NO ERROR CONDITION AND FILE NOT BUSY
07089  M00S04171.pfdump  +++|
Line S04172 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07090  M01S04172.286l859 ---|*         PROCESS CATALOG ENTRY.
Line S01594 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07091  M01S01594.286l859 +++|*         PROCESS FILE BUSY OR ERROR CONDITION.
07092  M00S04173.pfdump  +++|
Line S04174 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07093  M01S04174.286l859 ---| PRL4     SX5    CCWC        SUPPLY TOTAL FILE SKELETON CONTROL WORD
Line S04175 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07094  M02S04175.286l859 ---| PRL5     RJ     PFC         PROCESS FILE CATALOG ENTRY
Line S00394 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07095  M02S00394.286l859 ---|          RJ     PFC         PROCESS FILE CATALOG ENTRY
Line S00268 Modification History
M01 (Added by) ns22000
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07096  M02S00268.286l859 ---|          SA1    DFNU        GET *DIRECT ACCESS FILES DUMPED* COUNT
07097  M02S00269.286l859 ---|          SA2    CATH+FCBS   CHECK FOR INDIRECT ACCESS FILE
07098  M02S00270.286l859 ---|          LX2    59-11
07099  M02S00271.286l859 ---|          NG     X2,PRL5.1   IF DIRECT ACCESS FILE
07100  M02S00272.286l859 ---|          SA1    IDNU        GET *INDIRECT ACCESS FILES DUMPED* COUNT
07101  M02S00273.286l859 ---| PRL5.1   SX6    B1          INCREMENT *FILES DUMPED* COUNT
07102  M02S00274.286l859 ---|          IX6    X6+X1
07103  M02S00275.286l859 ---|          SA6    A1
Line S01595 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07104  M01S01595.286l859 +++|          SB2    ERSS        * BAD SYSTEM SECTOR ...*
07105  M01S01596.286l859 +++|          LX1    59-50
07106  M01S01597.286l859 +++|          NG     X1,PRL2     IF BAD SYSTEM SECTOR
07107  M01S01598.286l859 +++|          LX1    59-49-59+50
07108  M01S01599.286l859 +++|          SB2    ERZL        * ZERO LENGTH FILE ...*
07109  M01S01600.286l859 +++|          NG     X1,PRL2     IF ZERO LENGTH DIRECT ACCESS FILE
07110  M01S01601.286l859 +++|          SB2    CTUU        SET UPDATE UTILITY CONTROL DATE FUNCTION
07111  M01S01602.286l859 +++|          RJ     UCE         UPDATE CATALOG ENTRY
07112  M01S01603.286l859 +++|          SB2    ERFB        * FILE BUSY ...*
07113  M01S01604.286l859 +++| PRL2     SA1    CATH+FCFN   SET FILE NAME AND USER INDEX
07114  M01S01605.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
07115  M01S01606.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
07116  M01S01607.286l859 +++|          EQ     PRL1        CHECK NEXT ENTRY
07117  M00S04176.pfdump  +++|
Line S04177 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07118  M01S04177.286l859 ---|*         PROCESS PERMITS.
Line S01608 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07119  M01S01608.286l859 +++|*         WRITE CATALOG ENTRY, PERMITS, AND FILE DATA.
07120  M00S04178.pfdump  +++|
Line S04179 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07121  M01S04179.286l859 ---|          SA1    CATH+FCRI   CHECK FOR PERMITS
07122  M01S04180.286l859 ---|          LX1    24
07123  M01S04181.286l859 ---|          MX0    36
07124  M01S04182.286l859 ---|          BX1    -X0*X1
Line S04183 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07125  M02S04183.286l859 ---|          ZR     X1,PRL6     IF NO PERMITS
Line S00395 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07126  M02S00395.286l859 ---|          ZR     X1,PRL7     IF NO PERMITS
Line S04184 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07127  M01S04184.286l859 ---|          RJ     RPF         COPY PERMIT DATA TO ARCHIVE FILE
Line S01609 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07128  M01S01609.286l859 +++| PRL3     SX5    CCWC        SET CONTROL WORD FOR DATA DUMP
07129  M01S01610.286l859 +++|          RJ     PFC         WRITE CATALOG ENTRY
07130  M01S01611.286l859 +++|          RJ     RPF         WRITE FILE PERMITS
07131  M01S01612.286l859 +++|          RJ     WDB         WRITE DATA BLOCKS
07132  M01S01613.286l859 +++|          RJ     CFD         COMPLETE FILE DUMP
07133  M01S01614.286l859 +++|          EQ     PRL1        CHECK NEXT ENTRY
07134  M00S04185.pfdump  +++|
Line S04186 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07135  M01S04186.286l859 ---|*         PROCESS DATA.
Line S01615 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07136  M01S01615.286l859 +++|*         DROP STAGED FILES IF CATALOG RESCAN.
07137  M00S04187.pfdump  +++|
Line S04188 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07138  M01S04188.253l688 ---| PRL6     SA1    PRLB
07139  M01S04189.253l688 ---|          BX6    X6-X6       CLEAR *PFC/PERMITS ONLY* FLAG
07140  M01S04190.253l688 ---|          SA6    A1
07141  M01S04191.253l688 ---|          ZR     X1,PRL7     IF DATA TO BE DUMPED
07142  M01S04192.253l688 ---|          SA6    WDTD        FORCE EOR WRITE ON ARCHIVE FILE
07143  M01S04193.253l688 ---|          RJ     WRT
07144  M01S04194.253l688 ---|          BX6    X6-X6       CLEAR FILE LENGTH COUNTER
07145  M01S04195.253l688 ---|          SX7    BFAC        SET TAPE BUFFER EMPTY
07146  M01S04196.253l688 ---|          SA6    MPPR
07147  M01S04197.253l688 ---|          SA7    WREM
07148  M01S04198.253l688 ---|          EQ     PRL8        CHECK DATA READ LIST
Line S00396 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07149  M02S00396.286l859 ---| PRL7     RJ     WDB         WRITE DATA BLOCK(S) TO ARCHIVE FILE
07150  M02S00397.286l859 ---|          NZ     X1,PRL8     IF ERROR IN FILE DATA
07151  M02S00398.286l859 ---|          SA1    CPAR+/COMSPFS/CPOP
07152  M02S00399.286l859 ---|          SA2    CPAR+/COMSPFS/CPDT
07153  M02S00400.286l859 ---|          SX7    B0
07154  M02S00401.286l859 ---|          LX1    59-53
Line S00402 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07155  M03S00402.286l859 ---|          NG     X1,PRL7.1   IF PURGE FILES AFTER DUMP
Line S00062 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07156  M02S00062.286l859 ---|          NG     X1,PRL7.2   IF PURGE FILES AFTER DUMP
Line S00403 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07157  M02S00403.286l859 ---|          ZR     X2,PRL8     IF NOT DESTAGE DUMP
07158  M02S00404.286l859 ---|          SB2    CTSL        SET *TFLOK* FLAG FUNCTION
07159  M02S00405.286l859 ---|          SB3    MES24       * RD/WT ERROR ON SET TFLOK*
07160  M02S00406.286l859 ---|          SB4    MES25       * VERIFY ERROR ON SET TFLOK*
07161  M02S00407.286l859 ---|          RJ     UCE         UPDATE CATALOG ENTRY
Line S00063 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07162  M02S00063.286l859 ---|          SA3    FLOK
07163  M02S00064.286l859 ---|          NG     X3,PRL7.1   IF ARCHIVE TO OPTICAL DISK
Line S00408 Modification History
M01 (Added by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07164  M02S00408.286l859 ---|          SA2    CATH+FCTV   GET TAPE ALTERNATE STORAGE INFORMATION
07165  M02S00409.286l859 ---|          SX7    B1+
07166  M02S00410.286l859 ---|          LX7    42-0
07167  M02S00411.286l859 ---|          BX7    X2+X7       MERGE *SETASA* TAPE ALTERNATE STORAGE FLAG
Line S00412 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfdum26
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07168  M03S00412.286l859 ---|          EQ     PRL7.2      WRITE *PFM* REQUEST
Line S04199 Modification History
M01 (Removed by) pfdum26
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07169  M02S04199.286l859 ---|
Line S04200 Modification History
M01 (Removed by) 253l688
M02 (Removed by) pfdum26
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07170  M03S04200.286l859 ---| PRL7     RJ     WDB         WRITE DATA BLOCK(S) TO ARCHIVE FILE
Line S00413 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfdum26
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07171  M03S00413.286l859 ---| PRL7.1   SA1    CATH+FCUI
07172  M03S00414.286l859 ---|          MX0    -18
07173  M03S00415.286l859 ---|          BX2    -X0*X1
07174  M03S00416.286l859 ---|          SX2    X2-PGUI
07175  M03S00417.286l859 ---|          PL     X2,PRL8     IF USER INDEX NOT BELOW PURGE THRESHOLD
07176  M03S00418.286l859 ---| PRL7.2   RJ     WPR         WRITE *PFM* REQUEST PARAMETERS
Line S00013 Modification History
M01 (Added by) pfdum26
M02 (Removed by) 274l797
M03 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07177  M03S00013.286l859 ---| PRL7.1   RJ     WPR         WRITE *PFM* REQUEST PARAMETERS
Line S00065 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07178  M02S00065.286l859 ---|          EQ     PRL7.2      WRITE *PFM* REQUEST
Line S01616 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07179  M01S01616.286l859 +++| PRL4     SA1    SCAN
07180  M01S01617.286l859 +++|          ZR     X1,PRL5     IF NOT RESCAN
07181  M01S01618.286l859 +++|          RJ     DSF         DROP STAGED FILES
Line S00066 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07182  M01S00066.274l797 +++|
Line S00067 Modification History
M01 (Added by) 274l797
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07183  M02S00067.286l859 ---| PRL7.1   SA2    CATH+FCAA   GET OPTICAL ALTERNATE STORAGE INFORMATION
07184  M02S00068.286l859 ---|          BX7    X2
07185  M02S00069.286l859 ---|          SA2    CATH+FCOA   GET OPTICAL DISK ADDRESS
07186  M02S00070.286l859 ---|          MX3    24
07187  M02S00071.286l859 ---|          BX6    X3*X2
07188  M02S00072.286l859 ---|          SA6    PFRS+2      SET ADDRESS ON *PFM* REQUEST PARAMETERS
07189  M02S00073.286l859 ---| PRL7.2   RJ     WPR         WRITE *PFM* REQUEST PARAMETERS
Line S01619 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07190  M01S01619.286l859 +++|*         SET DATA LIST EMPTY.
07191  M00S04201.pfdump  +++|
Line S04202 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07192  M01S04202.286l859 ---|*         CHECK DATA READ LIST TERMINATION.
Line S01620 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07193  M01S01620.286l859 +++| PRL5     SX6    B0+
07194  M01S01621.286l859 +++|          SA6    NDLE        SET NO ENTRIES IN READ LIST
07195  M01S01622.286l859 +++|          SA6    DLRB        TERMINATE EMPTY LIST
07196  M01S01623.286l859 +++|          EQ     PRLX        RETURN
07197  M00S04203.pfdump  +++|
Line S04204 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07198  M01S04204.286l859 ---| PRL8     SA5    PRLA        ADVANCE TO NEXT ENTRY
07199  M01S04205.286l859 ---|          SX6    X5+B1
07200  M01S04206.286l859 ---|          SB2    X6
07201  M01S04207.286l859 ---|          SA1    NELE
07202  M01S04208.286l859 ---|          SB5    X1+
07203  M01S04209.286l859 ---|          GT     B5,B2,PRL1  IF MORE ENTRIES IN LIST
07204  M01S04210.286l859 ---|          EQ     PRLX        RETURN
07205  M00S04211.pfdump  +++|
Line S04212 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07206  M01S04212.286l859 ---| PRLA     BSS    1           LOOP COUNTER
Line S01624 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07207  M01S01624.286l859 +++| PRLA     BSS    1           *DLRB* POINTER
07208  M01S01625.286l859 +++| PTF      SPACE  4,10
07209  M01S01626.286l859 +++|**        PTF - PROCESS TAPE RESIDENT FILES.
07210  M01S01627.286l859 +++|*
07211  M01S01628.286l859 +++|*         EXIT   TAPE ALTERNATE STORAGE RESIDENT FILES DUMPED.
07212  M01S01629.286l859 +++|*
07213  M01S01630.286l859 +++|*         USES   X - 1, 2, 3, 6.
07214  M01S01631.286l859 +++|*                A - 1, 2, 3, 6.
07215  M01S01632.286l859 +++|*
07216  M01S01633.286l859 +++|*         CALLS  IRF, PAT, STL.
07217  M01S01634.286l859 +++|*
07218  M01S01635.286l859 +++|*         MACROS READ, READW, REWIND, WRITER, WRITEW.
07219  M01S01636.286l859 +++|
07220  M01S01637.286l859 +++|
07221  M01S01638.286l859 +++| PTF      SUBR               ENTRY/EXIT
07222  M01S01639.286l859 +++|          SA1    TCRQ
07223  M01S01640.286l859 +++|          ZR     X1,PTFX     IF NO TAPE RESIDENT FILES
07224  M01S01641.286l859 +++|          WRITER TC          FLUSH FILE LIST ENTRIES
07225  M01S01642.286l859 +++|          REWIND TC
07226  M01S01643.286l859 +++|          RJ     STL         SORT TAPE COPY FILE LIST
07227  M01S01644.286l859 +++|          REWIND S3
07228  M01S01645.286l859 +++|          READ   S3
07229  M01S01646.286l859 +++| PTF1     READW  S3,TCRQ,TCRQL
07230  M01S01647.286l859 +++|          SA2    TCRQ
07231  M01S01648.286l859 +++|          SA3    ASTI
07232  M01S01649.286l859 +++|          BX6    X1
07233  M01S01650.286l859 +++|          SA6    PTFA        SAVE EOR STATUS
07234  M01S01651.286l859 +++|          MX6    42
07235  M01S01652.286l859 +++|          NZ     X1,PTF2     IF EOR ENCOUNTERED
07236  M01S01653.286l859 +++|          BX2    X6*X2       TAPE FLAGS AND VSN
07237  M01S01654.286l859 +++|          BX2    X2-X3
07238  M01S01655.286l859 +++|          ZR     X3,PTF3     IF FIRST ENTRY
07239  M01S01656.286l859 +++|          ZR     X2,PTF3     IF SAME TAPE
07240  M01S01657.286l859 +++| PTF2     RJ     IRF         INITIALIZE RESCAN FILES
07241  M01S01658.286l859 +++|          RJ     PAT         PROCESS ALTERNATE STORAGE TAPE
07242  M01S01659.286l859 +++|          SA1    PTFA
07243  M01S01660.286l859 +++|          NZ     X1,PTFX     IF EOR ON REQUEST FILE
07244  M01S01661.286l859 +++| PTF3     WRITEW REQS,TCRQ,TCRQL  WRITE REQUEST FILE
07245  M01S01662.286l859 +++|          SA1    TCRQ
07246  M01S01663.286l859 +++|          MX6    42
07247  M01S01664.286l859 +++|          BX6    X6*X1
07248  M01S01665.286l859 +++|          SA6    ASTI        SET TAPE IDENTIFIER
07249  M01S01666.286l859 +++|          EQ     PTF1        CHECK NEXT REQUEST
07250  M01S01667.286l859 +++|
07251  M01S01668.286l859 +++|
07252  M01S01669.286l859 +++| PTFA     CON    0           EOR STATUS
Line S04213 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07253  M01S04213.253l688 ---| PRLB     BSSZ   1           *PFC ONLY* FLAG
07254  M01S04214.253l688 ---| RCE      SPACE  4,30
07255  M01S04215.253l688 ---|**        RCE - READ CATALOG ENTRIES.
07256  M01S04216.253l688 ---|*
07257  M01S04217.253l688 ---|*         ENTRY  (X2) = CATALOG FILE FET ADDRESS.
07258  M01S04218.253l688 ---|*                (CFMT) = CATALOG ENTRY FORMAT CODE.
07259  M01S04219.253l688 ---|*                       = 0, IF  8 WORD FORMAT.
07260  M01S04220.253l688 ---|*                       = 1, IF 16 WORD FORMAT.
07261  M01S04221.253l688 ---|*
07262  M01S04222.253l688 ---|*         EXIT   (B3) = FWA OF CATALOG ENTRIES.
07263  M01S04223.253l688 ---|*                (B6) = LWA+1 OF CATALOG ENTRIES.
07264  M01S04224.253l688 ---|*                (CFTS) = NEW CATALOG FILE TERMINATION STATUS.
07265  M01S04225.253l688 ---|*                      = 0, IF NOT END OF CATALOG TRACK.
07266  M01S04226.253l688 ---|*                      = 1, IF END OF CATALOG TRACK.
07267  M01S04227.253l688 ---|*                CSCW = LIST OF *CIO* TRAILER CONTROL WORDS FOR
07268  M01S04228.253l688 ---|*                       CATALOG SECTORS CURRENTLY IN CATALOG BUFFER.
07269  M01S04229.253l688 ---|*
07270  M01S04230.253l688 ---|*                IF THE CATALOG ENTRIES BEING READ ARE IN 8 WORD
07271  M01S04231.253l688 ---|*                FORMAT, THEY ARE CONVERTED TO 16 WORD FORMAT.
07272  M01S04232.253l688 ---|*                WHEN SUCH A CONVERSION OCCURS THE ENTRY POINTERS
07273  M01S04233.253l688 ---|*                (REGISTERS B3 AND B6) REFERENCE THE CATALOG
07274  M01S04234.253l688 ---|*                CONVERSION BUFFER *CCBUF* IN LIEU OF THE CATALOG
07275  M01S04235.253l688 ---|*                READ BUFFER *CBUF*.
07276  M01S04236.253l688 ---|*
07277  M01S04237.253l688 ---|*         USES   X - 0, 1, 3, 6, 7.
07278  M01S04238.253l688 ---|*                A - 1, 2, 6, 7.
07279  M01S04239.253l688 ---|*                B - 3, 4, 5, 6, 7.
07280  M01S04240.253l688 ---|*
07281  M01S04241.253l688 ---|*         CALLS  CCE, PCE.
07282  M01S04242.253l688 ---|*
07283  M01S04243.253l688 ---|*         MACROS READO, READW.
07284  M01S04244.253l688 ---|
07285  M01S04245.253l688 ---|
07286  M01S04246.253l688 ---| RCE      SUBR               ENTRY/EXIT
07287  M01S04247.253l688 ---|          BX6    X2          SAVE CATALOG FET ADDRESS
07288  M01S04248.253l688 ---|          SA6    RCEA
07289  M01S04249.253l688 ---|          BX6    X6-X6       CLEAR END OF CATALOG TRACK FLAG
07290  M01S04250.253l688 ---|          SA6    CFTS
07291  M01S04251.253l688 ---|
07292  M01S04252.253l688 ---|*         INITIALIZE READ CONTROLS.
07293  M01S04253.253l688 ---|
07294  M01S04254.253l688 ---|          SX6    CBUF        FWA OF BUFFER (IN)
07295  M01S04255.253l688 ---|          SA6    RCEB
07296  M01S04256.253l688 ---|          SX6    CBUFL       BUFFER LENGTH
07297  M01S04257.253l688 ---|          SA6    RCEC
07298  M01S04258.253l688 ---|          SX6    CSCW        FWA OF *CIO* TRAILER CONTROL WORD LIST
07299  M01S04259.253l688 ---|          SA6    RCED
07300  M01S04260.253l688 ---|          SA1    CWNP
07301  M01S04261.253l688 ---|          BX6    X1
07302  M01S04262.253l688 ---|          NZ     X6,RCE4     IF UNPROCESSED CONTROL WORD LEFTOVER
07303  M01S04263.253l688 ---|
07304  M01S04264.253l688 ---|*         READ *CIO* HEADER CONTROL WORD.
07305  M01S04265.253l688 ---|
07306  M01S04266.253l688 ---| RCE1     READO  X2          READ *CIO* HEADER CONTROL WORD
07307  M01S04267.253l688 ---|          ZR     X1,RCE3     IF NOT END OF CATALOG TRACK
Line S04268 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07308  M02S04268.253l688 ---|          SX6    1           SET END OF CATALOG TRACK FLAG
Line S00020 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07309  M02S00020.253l688 ---|          SX1    X1+3
07310  M02S00021.253l688 ---|          NZ     X1,RCE1.1   IF NOT READ ERROR
07311  M02S00022.253l688 ---|          SX7    X2
07312  M02S00023.253l688 ---|          SB3    B0          SET *SECTOR NOT READ* STATUS
07313  M02S00024.253l688 ---|          SA1    RCEG        GET PREVIOUS SECTOR CONTROL WORD
07314  M02S00025.253l688 ---|          BX6    X1
07315  M02S00026.253l688 ---|          RJ     PCE         PROCESS CATALOG READ ERROR
07316  M02S00027.253l688 ---| RCE1.1   SX6    B1          SET END OF CATALOG TRACK FLAG
Line S04269 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07317  M01S04269.253l688 ---|          SA6    CFTS
07318  M01S04270.253l688 ---|          BX6    X6-X6       CLEAR UNPROCESSED CONTROL WORD
07319  M01S04271.253l688 ---|          SA6    CWNP
07320  M01S04272.253l688 ---| RCE2     SB3    CBUF        SET BUFFER INDICES
07321  M01S04273.253l688 ---|          SA1    RCEB
07322  M01S04274.253l688 ---|          SB6    X1+
07323  M01S04275.253l688 ---|          EQ     RCE10       CHECK CATALOG ENTRY FORMAT
07324  M01S04276.253l688 ---|
07325  M01S04277.253l688 ---|*         CHECK ERROR STATUS.
07326  M01S04278.253l688 ---|
07327  M01S04279.253l688 ---| RCE3     SA6    CWNP        SAVE CONTROL WORD
07328  M01S04280.253l688 ---| RCE4     NG     X6,RCE7     IF CONTROL WORD ERROR INDICATOR SET
07329  M01S04281.253l688 ---|
07330  M01S04282.253l688 ---|*         DETERMINE IF SECTOR WILL FIT INTO REMAINING BUFFER SPACE.
07331  M01S04283.253l688 ---|
07332  M01S04284.253l688 ---|          MX0    -18         GET SECTOR LENGTH (BYTES)
07333  M01S04285.253l688 ---|          BX6    -X0*X6
07334  M01S04286.253l688 ---|          SX3    5           CONVERT LENGTH FROM BYTES TO WORDS
07335  M01S04287.253l688 ---|          IX6    X6/X3
07336  M01S04288.253l688 ---|          SA1    RCEC        GET REMAINING BUFFER SPACE
07337  M01S04289.253l688 ---|          IX7    X1-X6
07338  M01S04290.253l688 ---|          SA7    RCEC        UPDATE REMAINING BUFFER SPACE
07339  M01S04291.253l688 ---|          NG     X7,RCE2     IF NOT ENOUGH ROOM IN BUFFER
07340  M01S04292.253l688 ---|
07341  M01S04293.253l688 ---|*         TRANSFER GOOD CATALOG SECTOR TO WORKING BUFFER.
07342  M01S04294.253l688 ---|
07343  M01S04295.253l688 ---|          BX7    X7-X7       CLEAR UNPROCESSED CONTROL WORD
07344  M01S04296.253l688 ---|          SA7    CWNP
07345  M01S04297.253l688 ---|          SA1    RCEB        GET *IN* POINTER
07346  M01S04298.253l688 ---| RCE5     READW  X2,X1,X6    READ SECTOR OF CATALOG ENTRIES
07347  M01S04299.253l688 ---|          SX6    B6+         UPDATE *IN* POINTER
07348  M01S04300.253l688 ---|          SA6    RCEB
07349  M01S04301.253l688 ---|          EQ     B7,RCE6     IF TRANSFER COMPLETE
07350  M01S04302.253l688 ---|          SX1    B6
07351  M01S04303.253l688 ---|          SX6    B7
07352  M01S04304.253l688 ---|          EQ     RCE5        READ REMAINDER OF CATALOG SECTOR
07353  M01S04305.253l688 ---|
07354  M01S04306.253l688 ---|*         READ AND SAVE *CIO* TRAILER CONTROL WORD.
07355  M01S04307.253l688 ---|
07356  M01S04308.253l688 ---| RCE6     READO  X2          READ CONTROL WORD
Line S00028 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07357  M02S00028.253l688 ---|          SA6    RCEG        SAVE CONTROL WORD
Line S04309 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07358  M01S04309.253l688 ---|          SA3    RCED        INSERT INTO LIST
07359  M01S04310.253l688 ---|          SA6    X3
07360  M01S04311.253l688 ---|          SX6    X3+B1       INCREMENT LIST POINTER
07361  M01S04312.253l688 ---|          SA6    A3+
07362  M01S04313.253l688 ---|          EQ     RCE1        PROCESS NEXT SECTOR
07363  M01S04314.253l688 ---|
07364  M01S04315.253l688 ---|*         READ BAD CATALOG SECTOR.
07365  M01S04316.253l688 ---|
07366  M01S04317.253l688 ---| RCE7     LX6    17-53       DETERMINE LENGTH OF BAD SECTOR
07367  M01S04318.253l688 ---|          MX0    -18
07368  M01S04319.253l688 ---|          BX6    -X0*X6
07369  M01S04320.253l688 ---|          SX1    BCBUF
07370  M01S04321.253l688 ---| RCE8     READW  X2,X1,X6    READ BAD CATALOG SECTOR
07371  M01S04322.253l688 ---|          SX6    B6+         SAVE LWA+1
07372  M01S04323.253l688 ---|          SA6    RCEF
07373  M01S04324.253l688 ---|          EQ     B7,RCE9     IF TRANSFER COMPLETE
07374  M01S04325.253l688 ---|          SX1    B6
07375  M01S04326.253l688 ---|          SX6    B7
07376  M01S04327.253l688 ---|          EQ     RCE8        READ REMAINDER OF CATALOG SECTOR
07377  M01S04328.253l688 ---|
07378  M01S04329.253l688 ---|*         READ AND SAVE BAD SECTOR *CIO* TRAILER CONTROL WORD.
07379  M01S04330.253l688 ---|
07380  M01S04331.253l688 ---| RCE9     READO  X2          READ *CIO* TRAILER CONTROL WORD
07381  M01S04332.253l688 ---|          SA6    RCEG        SAVE CONTROL WORD
07382  M01S04333.253l688 ---|          SB3    BCBUF       SET BUFFER INDICES
07383  M01S04334.253l688 ---|          SA1    RCEF
07384  M01S04335.253l688 ---|          SB6    X1+
07385  M01S04336.253l688 ---|
07386  M01S04337.253l688 ---|*         CHECK CATALOG ENTRY FORMAT.
07387  M01S04338.253l688 ---|
07388  M01S04339.253l688 ---| RCE10    SA1    CFMT
07389  M01S04340.253l688 ---|          NZ     X1,RCE13    IF 16 WORD FORMAT
07390  M01S04341.253l688 ---|
07391  M01S04342.253l688 ---|*         CONVERT CATALOG ENTRIES TO 16 WORD FORMAT.
07392  M01S04343.253l688 ---|
07393  M01S04344.253l688 ---|          EQ     B3,B6,RCE13 IF NO CATALOG ENTRIES
07394  M01S04345.253l688 ---|          SB7    CCBUF       INITIALIZE CONVERSION BUFFER INDEX
07395  M01S04346.253l688 ---| RCE11    SB4    B7+         INITIALIZE BUFFER TRANSFER INDICES
07396  M01S04347.253l688 ---|          SB5    B7+10B
07397  M01S04348.253l688 ---| RCE12    SA1    B3          TRANSFER TO CONVERSION BUFFER
07398  M01S04349.253l688 ---|          BX6    X1
07399  M01S04350.253l688 ---|          SA6    B4
07400  M01S04351.253l688 ---|          SB3    B3+B1       INCREMENT TRANSFER INDICES
07401  M01S04352.253l688 ---|          SB4    B4+B1
07402  M01S04353.253l688 ---|          NE     B4,B5,RCE12 IF TRANSFER NOT COMPLETE
07403  M01S04354.253l688 ---|          SX4    B7
07404  M01S04355.253l688 ---|          RJ     CCE         CONVERT CATALOG ENTRY TO 16 WORD FORMAT
07405  M01S04356.253l688 ---|          SB7    B7+NWCE     INCREMENT CONVERSION BUFFER INDEX
07406  M01S04357.253l688 ---|          LT     B3,B6,RCE11 IF SOURCE BUFFER NOT EXHAUSTED
07407  M01S04358.253l688 ---|          SB3    CCBUF       RESET INDICES TO CONVERSION BUFFER
07408  M01S04359.253l688 ---|          SB6    B7+
07409  M01S04360.253l688 ---| RCE13    SA1    RCEF
07410  M01S04361.253l688 ---|          ZR     X1,RCEX     IF NOT PROCESSING BAD CATALOG SECTOR
07411  M01S04362.253l688 ---|
07412  M01S04363.253l688 ---|*         PROCESS BAD CATALOG SECTOR.
07413  M01S04364.253l688 ---|
07414  M01S04365.253l688 ---|          EQ     B3,B6,RCE14 IF NO CATALOG ENTRIES
07415  M01S04366.253l688 ---|          SA1    RCEA        GET CATALOG FET ADDRESS
07416  M01S04367.253l688 ---|          BX7    X1
07417  M01S04368.253l688 ---|          SA1    RCEG        GET BAD SECTOR TRAILER CONTROL WORD
07418  M01S04369.253l688 ---|          BX6    X1
07419  M01S04370.253l688 ---|          RJ     PCE         PROCESS CATALOG ERRORS
07420  M01S04371.253l688 ---| RCE14    BX6    X6-X6       CLEAR BAD CATALOG SECTOR LWA+1 (FLAG)
07421  M01S04372.253l688 ---|          SA6    RCEF
07422  M01S04373.253l688 ---|          SA2    RCEA        GET FET ADDRESS
07423  M01S04374.253l688 ---|          EQ     RCE1        READ NEXT CATALOG SECTOR
07424  M01S04375.253l688 ---|
07425  M01S04376.253l688 ---| RCEA     BSSZ   1           FET ADDRESS
07426  M01S04377.253l688 ---| RCEB     BSSZ   1           CATALOG BUFFER *IN* POINTER
07427  M01S04378.253l688 ---| RCEC     BSSZ   1           REMAINING CATALOG BUFFER SPACE
07428  M01S04379.253l688 ---| RCED     BSSZ   1           NEXT TRAILER CONTROL WORD LIST ENTRY
07429  M01S04380.253l688 ---| RCEF     BSSZ   1           BAD CATALOG SECTOR LWA+1
Line S04381 Modification History
M01 (Removed by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07430  M02S04381.253l688 ---| RCEG     BSSZ   1           BAD CATALOG SECTOR TRAILER CONTROL WORD
Line S00029 Modification History
M01 (Added by) ns2383
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07431  M02S00029.253l688 ---| RCEG     BSSZ   1           CATALOG SECTOR TRAILER CONTROL WORD
Line S04382 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
07432  M01S04382.253l688 ---| CFTS     BSSZ   1           CATALOG FILE TERMINATION STATUS (EOR)
07433  M00S04383.pfdump  +++| RCP      SPACE  4,15
07434  M00S04384.pfdump  +++|**        RCP - RECALL *PFU* TO READ DATA FILE.
07435  M00S04385.pfdump  +++|*
07436  M00S04386.pfdump  +++|*         EXIT   DATA FILE BUFFER NOT EMPTY.
07437  M00S04387.pfdump  +++|*                *PFU* CALLED IF BUFFER FOUND EMPTY AND FET NOT BUSY.
07438  M00S04388.pfdump  +++|*                (X2) = FIRST.
07439  M00S04389.pfdump  +++|*                (B4) = OUT.
07440  M00S04390.pfdump  +++|*                (B6) = IN.
07441  M00S04391.pfdump  +++|*                (A2) = ADDRESS OF FIRST IN DATA FET.
07442  M00S04392.pfdump  +++|*
Line S04393 Modification History
M01 (Removed by) pfdum13
Seq #  *Modification Id* Act 
----------------------------+
07443  M01S04393.pfdum13 ---|*         USES   X - 1, 2, 3.
07444  M01S04394.pfdum13 ---|*                A - 1, 2, 3.
Line S00001 Modification History
M01 (Added by) pfdum13
Seq #  *Modification Id* Act 
----------------------------+
07445  M01S00001.pfdum13 +++|*         USES   X - 1, 2, 7.
07446  M01S00002.pfdum13 +++|*                A - 1, 2.
07447  M00S04395.pfdump  +++|*                B - 4, 6.
07448  M00S04396.pfdump  +++|*
07449  M00S04397.pfdump  +++|*         MACROS CALLPFU, RECALL.
07450  M00S04398.pfdump  +++|
07451  M00S04399.pfdump  +++|
07452  M00S04400.pfdump  +++| RCP      SUBR               ENTRY/EXIT
Line S04401 Modification History
M01 (Removed by) pfdum13
Seq #  *Modification Id* Act 
----------------------------+
07453  M01S04401.pfdum13 ---| RCP1     SA1    DATA+FTIN   READ IN
07454  M01S04402.pfdum13 ---|          SA3    A1+B1       READ OUT
07455  M01S04403.pfdum13 ---|          SB6    X1
07456  M01S04404.pfdum13 ---|          SB4    X3
07457  M01S04405.pfdum13 ---|          SA2    A1-B1       READ FIRST
07458  M01S04406.pfdum13 ---|          NE     B4,B6,RCPX  IF NOT EMPTY BUFFER
07459  M01S04407.pfdum13 ---|          SA1    DATA        CHECK FET STATUS
07460  M01S04408.pfdum13 ---|          LX1    59-0
07461  M01S04409.pfdum13 ---|          PL     X1,RCP2     IF FET BUSY
07462  M01S04410.pfdum13 ---|          CALLPFU  A1,CTRL   RECALL *PFU*
Line S00003 Modification History
M01 (Added by) pfdum13
Seq #  *Modification Id* Act 
----------------------------+
07463  M01S00003.pfdum13 +++| RCP1     SA1    DATA        CHECK FET STATUS
07464  M01S00004.pfdum13 +++|          BX7    X1
07465  M01S00005.pfdum13 +++|          SA2    A1+B1       READ FIRST
07466  M01S00006.pfdum13 +++|          SA1    A2+B1       READ IN
07467  M01S00007.pfdum13 +++|          SB6    X1
07468  M01S00008.pfdum13 +++|          SA1    A1+B1       READ OUT
07469  M01S00009.pfdum13 +++|          SB4    X1
07470  M01S00010.pfdum13 +++|          NE     B4,B6,RCPX  IF DATA AVAILABLE
07471  M01S00011.pfdum13 +++|          LX7    59-0
07472  M01S00012.pfdum13 +++|          PL     X7,RCP2     IF FET STILL BUSY
07473  M01S00013.pfdum13 +++|          CALLPFU  A2-B1,CTRL  RECALL *PFU*
07474  M00S04411.pfdump  +++| RCP2     RECALL             WAIT FOR *PFU*
07475  M00S04412.pfdump  +++|          EQ     RCP1        RECHECK BUFFER
Line S04413 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07476  M01S04413.286l859 ---| RFS      SPACE  4,25
Line S01670 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07477  M01S01670.286l859 +++| RCW      SPACE  4,20
07478  M01S01671.286l859 +++|**        RCW - READ ARCHIVE FILE BLOCK CONTROL WORD.
07479  M01S01672.286l859 +++|*
07480  M01S01673.286l859 +++|*         EXIT   (X7) .NE. 0 IF READ ERROR OR INVALID CONTROL WORD.
07481  M01S01674.286l859 +++|*                (X6) = BLOCK WORD COUNT IF CONTROL WORD READ AND NO
07482  M01S01675.286l859 +++|*                       ERROR.
07483  M01S01676.286l859 +++|*                (X3) = CONTROL WORD TYPE CODE IF CONTROL WORD READ
07484  M01S01677.286l859 +++|*                       AND NO ERROR.
07485  M01S01678.286l859 +++|*                (X4) = CONTROL WORD SUB-TYPE CODE IF CONTROL WORD READ
07486  M01S01679.286l859 +++|*                       AND NO ERROR.
07487  M01S01680.286l859 +++|*                (X1) = READ STATUS FROM *CWREAD*.
07488  M01S01681.286l859 +++|*                (CWBF) = ARCHIVE FILE CONTROL WORD.
07489  M01S01682.286l859 +++|*
07490  M01S01683.286l859 +++|*         USES   X - 2, 3, 4, 6, 7.
07491  M01S01684.286l859 +++|*                A - 2.
07492  M01S01685.286l859 +++|*
07493  M01S01686.286l859 +++|*         MACROS CWREAD.
07494  M01S01687.286l859 +++|
07495  M01S01688.286l859 +++|
07496  M01S01689.286l859 +++| RCW      SUBR               ENTRY/EXIT
07497  M01S01690.286l859 +++|          CWREAD AST,CWBF,B1 READ ARCHIVE FILE CONTROL WORD
07498  M01S01691.286l859 +++|          SA2    CWBF
07499  M01S01692.286l859 +++|          NZ     X7,RCWX     IF READ ERROR
07500  M01S01693.286l859 +++|          NZ     X1,RCWX     IF EOR, EOF, OR EOI
07501  M01S01694.286l859 +++|          MX6    -9
07502  M01S01695.286l859 +++|          MX3    -3
07503  M01S01696.286l859 +++|          BX6    -X6*X2      BLOCK WORD COUNT
07504  M01S01697.286l859 +++|          LX2    -9
07505  M01S01698.286l859 +++|          BX4    -X3*X2      CONTROL WORD SUB-TYPE
07506  M01S01699.286l859 +++|          LX2    -3
07507  M01S01700.286l859 +++|          BX3    -X3*X2      CONTROL WORD TYPE
07508  M01S01701.286l859 +++|          SX2    X3-10B
07509  M01S01702.286l859 +++|          NG     X2,RCWX     IF VALID CONTROL WORD TYPE
07510  M01S01703.286l859 +++|          SX7    1           SET ERROR
07511  M01S01704.286l859 +++|          EQ     RCWX        RETURN
07512  M01S01705.286l859 +++| RFC      SPACE  4,15
07513  M01S01706.286l859 +++|**        RFC - REQUEST FILE COPY FROM TAPE ALTERNATE STORAGE.
07514  M01S01707.286l859 +++|*
07515  M01S01708.286l859 +++|*         ENTRY  (A0) = FWA OF CATALOG ENTRY.
07516  M01S01709.286l859 +++|*
07517  M01S01710.286l859 +++|*         EXIT   ENTRY MADE IN TAPE COPY LIST.
07518  M01S01711.286l859 +++|*
07519  M01S01712.286l859 +++|*         USES   X - 1, 2, 3, 6, 7.
07520  M01S01713.286l859 +++|*                A - 1, 2, 3, 7.
07521  M01S01714.286l859 +++|*
07522  M01S01715.286l859 +++|*         CALLS  FTR.
07523  M01S01716.286l859 +++|*
07524  M01S01717.286l859 +++|*         MACROS WRITEW.
07525  M01S01718.286l859 +++|
07526  M01S01719.286l859 +++|
07527  M01S01720.286l859 +++| RFC      SUBR               ENTRY/EXIT
07528  M01S01721.286l859 +++|
07529  M01S01722.286l859 +++|*         SET TAPE REQUEST INFORMATION FOR SORT.
07530  M01S01723.286l859 +++|
07531  M01S01724.286l859 +++|          SA1    A0+FCTV     GET TAPE ALTERNATE STORAGE INFORMATION
07532  M01S01725.286l859 +++|          RJ     FTR         FORMAT TAPE REQUEST PARAMETERS
07533  M01S01726.286l859 +++|          SA7    TCRQ        SET SORT PARAMETERS
07534  M01S01727.286l859 +++|
07535  M01S01728.286l859 +++|*         SET FILE NAME AND USER INDEX.
07536  M01S01729.286l859 +++|
07537  M01S01730.286l859 +++|          SA1    A0+FCFN
07538  M01S01731.286l859 +++|          BX7    X1
07539  M01S01732.286l859 +++|          SA7    A7+B1       SET FILE NAME AND USER INDEX
07540  M01S01733.286l859 +++|
07541  M01S01734.286l859 +++|*         SET PFC DISK POINTERS.
07542  M01S01735.286l859 +++|
07543  M01S01736.286l859 +++|          SA1    CATS+FTPM   GET FIRST TRACK OF CATALOG FILE
07544  M01S01737.286l859 +++|          SA2    CADA        GET CATALOG TRACK AND SECTOR
07545  M01S01738.286l859 +++|          MX6    12
07546  M01S01739.286l859 +++|          MX7    -24
07547  M01S01740.286l859 +++|          LX6    -12
07548  M01S01741.286l859 +++|          SX3    A0-CSBF
07549  M01S01742.286l859 +++|          AX3    4           INDEX OF CATALOG ENTRY IN SECTOR
07550  M01S01743.286l859 +++|          ERRNZ  NWCE-20B
07551  M01S01744.286l859 +++|          BX1    X6*X1       FIRST TRACK
07552  M01S01745.286l859 +++|          BX2    -X7*X2      CURRENT TRACK AND SECTOR
07553  M01S01746.286l859 +++|          BX7    X1+X3       MERGE FIRST TRACK AND INDEX
07554  M01S01747.286l859 +++|          LX2    12
07555  M01S01748.286l859 +++|          BX7    X7+X2       MERGE CURRENT TRACK/SECTOR
07556  M01S01749.286l859 +++|          SA7    A7+B1       SET PFC DISK POINTERS
07557  M01S01750.286l859 +++|
07558  M01S01751.286l859 +++|*         WRITE REQUEST FILE ENTRY.
07559  M01S01752.286l859 +++|
07560  M01S01753.286l859 +++|          WRITEW TC,TCRQ,TCRQL
07561  M01S01754.286l859 +++|          EQ     RFCX        RETURN
07562  M01S01755.286l859 +++| RFS      SPACE  4,20
07563  M00S04414.pfdump  +++|**        RFS - REQUEST FILE STAGING.
07564  M00S04415.pfdump  +++|*
Line S04416 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07565  M01S04416.286l859 ---|*         ENTRY  (B3) = FWA OF CATALOG ENTRY REQUIRING STAGING.
Line S04417 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
07566  M02S04417.286l859 ---|*                (CRTK) = TRACK FROM WHICH CATALOG ENTRY WAS READ.
07567  M02S04418.286l859 ---|*                CRTK+1 = CRSC.
07568  M02S04419.286l859 ---|*                CRTK+2 = CRCO.
07569  M02S04420.286l859 ---|*                (CRSC) = SECTOR WITHIN TRACK FROM WHICH CATALOG ENTRY
07570  M02S04421.286l859 ---|*                         WAS READ.
07571  M02S04422.286l859 ---|*                (CRCO) = ORDINAL (RELATIVE INDEX WITHIN SECTOR)
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/pfdump.006.txt ยท Last modified: by 127.0.0.1