Deck PFDUMP Part 001

50 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
00831  M03S00020.286l859 ---|*         - THE SYSTEM CONTROL ERROR FLAG (SET BY THE MSS/MAS EXECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00003.286l859 ---|*         - THE SYSTEM CONTROL ERROR FLAG (SET BY THE MSS/MSE EXECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00021.286l859 ---|*         IF THE INDICATED ALTERNATE STORAGE ADDRESS DOES NOT PROVIDE
00834  M02S00022.286l859 ---|*         A VALID PATH TO THE FILE-S DATA) OR THE DATA ERROR FLAG (SET

Seq #  *Modification Id* Act 
----------------------------+
00835  M03S00023.286l859 ---|*         BY THE MSS/MAS EXECUTIVE IF AN UNRECOVERABLE PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00004.286l859 ---|*         BY THE MSS/MSE EXECUTIVE IF AN UNRECOVERABLE PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00024.286l859 ---|*         PREVENTS THE FILE FROM BEING STAGED) WAS FOUND SET FOR THE
00838  M02S00025.286l859 ---|*         SPECIFIED FILE.  THE PFC AND PERMITS ONLY ARE DUMPED FOR
00839  M02S00026.286l859 ---|*         THIS FILE.
00840  M02S00027.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00841  M01S00451.286l859 ---|*         * PFDUMP - PERMIT FORMAT ERROR,FN=NNNNNNN,UI=UUUUUU.* - THE
00842  M01S00452.286l859 ---|*         USER INDEX CONTAINED IN A SECTOR OF PERMIT ENTRIES FOR A FILE
00843  M01S00453.286l859 ---|*         DID NOT MATCH THE USER INDEX OF THE FILE.  DUMPING IS
00844  M01S00454.286l859 ---|*         CONTINUED WITH THE DATA INFORMATION OF THE FILE.  ERROR IDLE
00845  M01S00455.286l859 ---|*         STATUS IS SET FOR THE DEVICE.
00846  M01S00456.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00847  M02S00457.286l859 ---|*         * PFDUMP - PERMIT READ ERROR,FM=FFFFFFF,DN_DD,EQ_EE,T_TTTT,

Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00111.286l859 ---|*         * PFDUMP - PERMIT READ ERROR,FM=FFFFFFF,DN_DD,EQ_EEE,T_TTTT,

Seq #  *Modification Id* Act 
----------------------------+
00849  M01S00458.286l859 ---|*         S_SSSS.* - A MASS STORAGE ERROR OCCURRED IN THE PERMIT
00850  M01S00459.286l859 ---|*         INFORMATION OF A FILE ON THE SPECIFIED FAMILY DEVICE.
00851  M01S00460.286l859 ---|*         NEITHER THE BAD PERMIT SECTOR NOR ANY FOLLOWING IT ARE
00852  M01S00461.286l859 ---|*         WRITTEN TO THE ARCHIVE FILE.  DUMPING IS CONTINUED WITH THE

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00462.286l859 ---|*         DATA INFORMATION OF THE FILE.  ERROR IDLE STATUS IS SET FOR
00854  M02S00463.286l859 ---|*         THE DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00005.286l859 ---|*         DATA INFORMATION OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00464.286l859 ---|*
00857  M01S00465.286l859 ---|*         * PFDUMP - PERMIT READ ERROR,FN=NNNNNNN,UI=UUUUUUU.* - A MASS
00858  M01S00466.286l859 ---|*         STORAGE ERROR OCCURRED IN THE PERMIT INFORMATION OF THE
00859  M01S00467.286l859 ---|*         SPECIFIED FILE.  NEITHER THE BAD PERMIT SECTOR NOR ANY
00860  M01S00468.286l859 ---|*         FOLLOWING IT ARE WRITTEN TO THE ARCHIVE FILE.  DUMPING IS

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00469.286l859 ---|*         CONTINUED WITH THE DATA INFORMATION OF THE FILE.  ERROR IDLE
00862  M02S00470.286l859 ---|*         STATUS IS SET FOR THE MASTER DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00006.286l859 ---|*         CONTINUED WITH THE DATA INFORMATION OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00864  M01S00471.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00472.286l859 ---|*         * PFDUMP - PERMIT READ ERROR,PN=PPPPPPP,EQ_EE,T_TTTT,S_SSSS.*

Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00112.286l859 ---|*         * PFDUMP - PERMIT READ ERROR,PN=PPPPPPP,EQ_EEE,T_TTTT,S_SSSS.*

Seq #  *Modification Id* Act 
----------------------------+
00867  M01S00473.286l859 ---|*         - A MASS STORAGE ERROR OCCURRED IN THE PERMIT INFORMATION OF
00868  M01S00474.286l859 ---|*         A FILE ON THE SPECIFIED AUXILIARY DEVICE.  NEITHER THE BAD
00869  M01S00475.286l859 ---|*         PERMIT SECTOR NOR ANY FOLLOWING IT ARE WRITTEN TO THE ARCHIVE
00870  M01S00476.286l859 ---|*         FILE.  DUMPING IS CONTINUED WITH THE DATA INFORMATION OF THE

Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00477.286l859 ---|*         FILE.  ERROR IDLE STATUS IS SET FOR THE DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00007.286l859 ---|*         FILE.

Seq #  *Modification Id* Act 
----------------------------+
00873  M01S00478.286l859 ---|*
00874  M01S00479.286l859 ---|*         * PFDUMP - RD/WT ERROR ON UCDT UPDATE,FN=NNNNNNN,UI=UUUUUU.*
00875  M01S00480.286l859 ---|*         - A DISK READ/WRITE ERROR HAS OCCURRED WHILE ATTEMPTING TO
00876  M01S00481.286l859 ---|*         UPDATE THE UTILITY CONTROL DATE/TIME OF THE SPECIFIED FILE.

Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00482.286l859 ---|*         THE DEVICE ERROR IDLE IS SET AND DUMPING CONTINUES WITH THE
00878  M02S00483.286l859 ---|*         NEXT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00008.286l859 ---|*         ERROR IDLE STATUS IS SET FOR THE DEVICE IF A WRITE ERROR
00880  M02S00009.286l859 ---|*         OCCURRED AND DATA ON THE CATALOG FILE HAS BEEN CORRUPTED.
00881  M02S00010.286l859 ---|*         DUMPING CONTINUES WITH THE NEXT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00882  M01S00484.286l859 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00028.286l859 ---|*         * PFDUMP - STAGED FILE RESCAN KILLED,FN=NNNNNNN,
00884  M02S00029.286l859 ---|*         UI=UUUUUU.* - ISSUED FOR EACH FILE NOT DUMPED DUE TO THE
00885  M02S00030.286l859 ---|*         OPERATOR DISCONTINUING THE RESCAN OF A GIVEN CATALOG TRACK
00886  M02S00031.286l859 ---|*         FOR STAGED FILES NEWLY LINKED TO THEIR CATALOG ENTRIES.
00887  M02S00032.286l859 ---|*
00888  M02S00033.286l859 ---|*         * PFDUMP - TEMPORARY ERROR,FN=NNNNNNN,UI=UUUUUU.*

Seq #  *Modification Id* Act 
----------------------------+
00889  M03S00034.286l859 ---|*         - THE TEMPORARY ERROR FLAG (SET BY THE MSS/MAS EXECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00011.286l859 ---|*         - THE TEMPORARY ERROR FLAG (SET BY THE MSS/MSE EXECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00035.286l859 ---|*         IF A TEMPORARY ERROR PREVENTS THE FILE FROM BEING STAGED)
00892  M02S00036.286l859 ---|*         WAS FOUND SET FOR THE SPECIFIED FILE.  THE PFC AND PERMITS
00893  M02S00037.286l859 ---|*         ONLY ARE DUMPED FOR THIS FILE.

Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00112.286l859 +++|*         * CATALOG UPDATE ERROR, FN=NNNNNNN, UI=UUUUUU.*
00895  M01S00113.286l859 +++|*                A DISK READ/WRITE ERROR HAS OCCURRED WHILE ATTEMPTING
00896  M01S00114.286l859 +++|*                TO UPDATE THE UTILITY CONTROL DATE/TIME OR THE *TFLOK*
00897  M01S00115.286l859 +++|*                FLAG IN THE CATALOG ENTRY OF THE SPECIFIED FILE.
00898  M01S00116.286l859 +++|*                ERROR IDLE STATUS IS SET FOR THE DEVICE IF A WRITE
00899  M01S00117.286l859 +++|*                ERROR OCCURRED AND DATA ON THE CATALOG FILE HAS BEEN
00900  M01S00118.286l859 +++|*                CORRUPTED.

Seq #  *Modification Id* Act 
----------------------------+
00901  M01S00038.v23l617 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00902  M01S00485.286l859 ---|*         * PFDUMP - VERIFY ERROR ON UCDT UPDATE,FN=NNNNNNN,UI=UUUUUU.*

Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00486.286l859 ---|*         - PFU HAS REJECTED THE REQUEST TO UPDATE THE UTILITY CONTROL
00904  M02S00487.286l859 ---|*         DATE/TIME OF THE SPECIFIED FILE.  THE CATALOG ENTRY FOUND AT
00905  M02S00488.286l859 ---|*         THE INDICATED CATALOG TRACK LOCATION DID NOT AGREE WITH THE
00906  M02S00489.286l859 ---|*         VERIFICATION INFORMATION SUPPLIED WITH THE UPDATE REQUEST.
00907  M02S00490.286l859 ---|*         THE DEVICE ERROR IDLE IS SET AND DUMPING CONTINUES WITH THE
00908  M02S00491.286l859 ---|*         NEXT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00064.286l859 ---|*         - *PFU* HAS REJECTED THE REQUEST TO UPDATE THE UTILITY
00910  M02S00065.286l859 ---|*         CONTROL DATE/TIME OF THE SPECIFIED FILE.  THE CATALOG ENTRY
00911  M02S00066.286l859 ---|*         FOUND AT THE INDICATED CATALOG TRACK LOCATION DID NOT AGREE
00912  M02S00067.286l859 ---|*         WITH THE VERIFICATION INFORMATION SUPPLIED WITH THE UPDATE
00913  M02S00068.286l859 ---|*         REQUEST.  THE DEVICE ERROR IDLE IS SET AND DUMPING
00914  M02S00069.286l859 ---|*         CONTINUES WITH THE NEXT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00915  M01S00119.286l859 +++|*         * DATA READ ERROR, FN=NNNNNNN, UI=UUUUUU.*
00916  M01S00120.286l859 +++|*                A MASS STORAGE ERROR OCCURRED WHEN  DUMPING THE DATA
00917  M01S00121.286l859 +++|*                OF FILE NNNNNNN.  IF NO DATA WAS TRANSFERRED OR IF THE
00918  M01S00122.286l859 +++|*                FILE DUMP IS SUPPRESSED WITH THE *EO* OPTION, THE FILE
00919  M01S00123.286l859 +++|*                IS TRUNCATED AT THE POINT OF THE ERROR.  IF THE BAD
00920  M01S00124.286l859 +++|*                SECTOR DATA WAS TRANSFERRED AND THE FILE DUMP IS NOT
00921  M01S00125.286l859 +++|*                SUPPRESSED, THE REMAINDER OF THE FILE IS DUMPED IF
00922  M01S00126.286l859 +++|*                POSSIBLE.  IN EITHER CASE, IF THE FILE IS LATER
00923  M01S00127.286l859 +++|*                RELOADED BY *PFLOAD*, THE DATA ERROR FLAG WILL BE SET
00924  M01S00128.286l859 +++|*                IN THE FILE-S PFC ENTRY.
00925  M01S00129.286l859 +++|*
00926  M01S00130.286l859 +++|*         * DEVICE NOT FOUND, FN=NNNNNNN, UI=UUUUUU, DN_DD.*
00927  M01S00131.286l859 +++|*                THE SPECIFIED DIRECT ACCESS FILE, RESIDENT ON DEVICE
00928  M01S00132.286l859 +++|*                *DD*, WAS TO BE DUMPED BUT DEVICE *DD* COULD NOT BE
00929  M01S00133.286l859 +++|*                FOUND IN THE SYSTEM.  THE FILE IS NOT DUMPED.
00930  M01S00134.286l859 +++|*
00931  M01S00135.286l859 +++|*         * FILE BUSY, FN=NNNNNNN, UI=UUUUUU.*
00932  M01S00136.286l859 +++|*                THE SPECIFIED DIRECT ACCESS FILE WAS BUSY IN WRITE,
00933  M01S00137.286l859 +++|*                MODIFY, OR APPEND MODE (ANY DUMP) OR WAS BUSY IN ANY
00934  M01S00138.286l859 +++|*                WRITEABLE MODE (DESTAGE DUMP - *TA* OPTION).  THE FILE
00935  M01S00139.286l859 +++|*                IS NOT DUMPED.
00936  M01S00140.286l859 +++|*
00937  M01S00141.286l859 +++|*         * FILE NOT FOUND ON ALTERNATE STORAGE TAPE, FN=NNNNNNN,
00938  M01S00142.286l859 +++|*           UI= UUUUUU.*
00939  M01S00143.286l859 +++|*                THE DATA FOR THE SPECIFIED FILE WAS NOT FOUND ON THE
00940  M01S00144.286l859 +++|*                ASSIGNED ALTERNATE STORAGE TAPE.  THE FILE IS NOT
00941  M01S00145.286l859 +++|*                DUMPED.
00942  M01S00146.286l859 +++|*
00943  M01S00147.286l859 +++|*         * FILE LENGTH ERROR, FN=NNNNNNN, UI=UUUUUU.*
00944  M01S00148.286l859 +++|*                THE NUMBER OF DATA SECTORS READ FOR THE INDICATED FILE
00945  M01S00149.286l859 +++|*                DID NOT MATCH THE LENGTH DETERMINED FROM THE TRT
00946  M01S00150.286l859 +++|*                (DIRECT ACCESS) OR FROM THE CATALOG (INDIRECT ACCESS).
00947  M01S00151.286l859 +++|*                IF THE DATA READ EXCEEDS THE DETERMINED LENGTH, THE
00948  M01S00152.286l859 +++|*                EXCESS SECTORS ARE TRUNCATED.
00949  M01S00153.286l859 +++|*
00950  M01S00154.286l859 +++|*         * NO DISK OR ALTERNATE STORAGE POINTERS FOR FILE, FN=NNNNNNN,
00951  M01S00155.286l859 +++|*           UI=UUUUUU.*
00952  M01S00156.286l859 +++|*                THE SPECIFIED FILE HAS NEITHER A DISK IMAGE NOR AN
00953  M01S00157.286l859 +++|*                ALTERNATE STORAGE IMAGE.  THE FILE IS NOT DUMPED.
00954  M01S00158.286l859 +++|*
00955  M01S00159.286l859 +++|*         * PERMIT FORMAT ERROR, FN=NNNNNNN, UI=UUUUUU.*
00956  M01S00160.286l859 +++|*                THE LENGTH OF A PERMIT SECTOR IS INCORRECT OR THE USER
00957  M01S00161.286l859 +++|*                INDEX CONTAINED IN A PERMIT SECTOR DID NOT MATCH THE
00958  M01S00162.286l859 +++|*                USER INDEX OF THE FILE.  NO FURTHER PERMITS ARE DUMPED
00959  M01S00163.286l859 +++|*                FOR THAT FILE.  IF THE FILE IS LATER LOADED BY
00960  M01S00164.286l859 +++|*                *PFLOAD*, THE PERMITS ERROR FLAG WILL BE SET IN THE
00961  M01S00165.286l859 +++|*                FILE-S PFC ENTRY.
00962  M01S00166.286l859 +++|*
00963  M01S00167.286l859 +++|*         * PERMIT RANDOM INDEX ERROR, FN=NNNNNNN, UI=UUUUUU.*
00964  M01S00168.286l859 +++|*                A PERMIT RANDOM INDEX FOR THE INDICATED FILE IS NOT
00965  M01S00169.286l859 +++|*                WITHIN THE PERMITS CHAIN.  NO FURTHER PERMITS ARE
00966  M01S00170.286l859 +++|*                DUMPED FOR THAT FILE.  IF THE FILE IS LATER LOADED BY
00967  M01S00171.286l859 +++|*                *PFLOAD*, THE PERMITS ERROR FLAG WILL BE SET IN THE
00968  M01S00172.286l859 +++|*                FILE-S PFC ENTRY.
00969  M01S00173.286l859 +++|*
00970  M01S00174.286l859 +++|*         * PERMIT READ ERROR, FN=NNNNNNN, UI=UUUUUUU.*
00971  M01S00175.286l859 +++|*                A MASS STORAGE ERROR OCCURRED WHEN READING PERMITS FOR
00972  M01S00176.286l859 +++|*                THE INDICATED FILE.  NEITHER THE BAD PERMIT SECTOR NOR
00973  M01S00177.286l859 +++|*                ANY FOLLOWING IT ARE DUMPED FOR THAT FILE.  IF THE
00974  M01S00178.286l859 +++|*                FILE IS LATER LOADED BY *PFLOAD*, THE PERMITS ERROR
00975  M01S00179.286l859 +++|*                FLAG WILL BE SET IN THE FILE-S PFC ENTRY.
00976  M01S00180.286l859 +++|*
00977  M01S00181.286l859 +++|*         * STAGED FILE RESCAN TERMINATED, FN=NNNNNNN, UI=UUUUUU.*
00978  M01S00182.286l859 +++|*                ISSUED FOR EACH FILE NOT DUMPED DUE TO THE OPERATOR
00979  M01S00183.286l859 +++|*                DISCONTINUING THE RESCAN OF A GIVEN CATALOG TRACK FOR
00980  M01S00184.286l859 +++|*                STAGED FILES.
00981  M00S00492.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00982  M01S00493.ns22000 ---|*         * DAF  BUSY (FILENAM) (USERIN)*

Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00113.286l859 ---|*         * DAPF BUSY (FILENAM) (USERIN)*

Seq #  *Modification Id* Act 
----------------------------+
00984  M01S00185.286l859 +++|*         * UNABLE TO STAGE FILE, FN=NNNNNNN, UI=UUUUUU.*
00985  M01S00186.286l859 +++|*                A CARTRIDGE OR TAPE ALTERNATE STORAGE ERROR CONDITION
00986  M01S00187.286l859 +++|*                PREVENTS THE FILE FROM BEING STAGED AT THIS TIME.  THE
00987  M01S00188.286l859 +++|*                PFC AND PERMITS ONLY ARE DUMPED FOR THIS FILE.
00988  M00S00494.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00989  M01S00495.286l859 ---|*         * PFDUMP - ZERO FILE LENGTH (FILENAM) (USERIN)*

Seq #  *Modification Id* Act 
----------------------------+
00990  M01S00189.286l859 +++|*         * ZERO LENGTH FILE, FN=NNNNNNN, UI=UUUUUU.*
00991  M01S00190.286l859 +++|*                THE SPECIFIED FILE EITHER HAS NO SYSTEM SECTOR OR NO
00992  M01S00191.286l859 +++|*                EOI SECTOR.  THE FILE IS NOT DUMPED.
00993  M01S00192.286l859 +++|          SPACE  4
00994  M01S00193.286l859 +++|***       OPERATOR MESSAGES.
00995  M00S00496.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00996  M01S00497.286l859 ---|*         * BAD SYSTEM SECTOR (FILENAM) (USERIN)*

Seq #  *Modification Id* Act 
----------------------------+
00997  M01S00194.286l859 +++|*         * CLEARING PF ACTIVITY COUNT.*
00998  M01S00195.286l859 +++|*                *PFDUMP* IS WAITING FOR *PFU* TO DECREMENT THE
00999  M01S00196.286l859 +++|*                PERMANENT FILE ACTIVITY COUNT SINCE DUMPING HAS BEEN
01000  M01S00197.286l859 +++|*                COMPLETED.
01001  M00S00498.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01002  M01S00499.286l859 ---|*         * PERMIT RI RANGE ERR (FILENAM) (USERIN)*
01003  M01S00500.286l859 ---|          SPACE  4,25
01004  M01S00501.286l859 ---|***       ERRLOG MESSAGES.

Seq #  *Modification Id* Act 
----------------------------+
01005  M01S00198.286l859 +++|*         *DUMPING (FILENAME) (USER INDEX)*
01006  M01S00199.286l859 +++|*
01007  M01S00200.286l859 +++|*         * GENERATING CATALOG IMAGE.*
01008  M01S00201.286l859 +++|*                THE CATALOG IMAGE RECORD IS BEING WRITTEN TO THE
01009  M01S00202.286l859 +++|*                ARCHIVE FILE (INCREMENTAL DUMP).
01010  M01S00203.286l859 +++|*                INDICATES THE FILE CURRENTLY BEING DUMPED.
01011  M00S00502.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01012  M01S00503.286l859 ---|*         ANY OF THE ABOVE MESSAGES SENT TO THE ERRLOG AS WELL AS
01013  M01S00504.286l859 ---|*         TO THE DAYFILE, ARE REFORMATTED AS FOLLOWS -

Seq #  *Modification Id* Act 
----------------------------+
01014  M01S00204.286l859 +++|*         * RESCAN CATALOG TRACK FOR STAGED FILES.*
01015  M01S00205.286l859 +++|*                * THE RIGHT SCREEN LISTS YOUR OPTIONS.* - *PFDUMP* IS
01016  M01S00206.286l859 +++|*                RESCANNING THE PREVIOUSLY PROCESSED CATALOG TRACK
01017  M01S00207.286l859 +++|*                SEARCHING FOR STAGED FILES NEWLY LINKED TO THEIR
01018  M01S00208.286l859 +++|*                CATALOG ENTRIES.
01019  M00S00505.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00506.ns22000 ---|*         *EQ_EE,DN_DD,SSSS--SSSS.*

Seq #  *Modification Id* Act 
----------------------------+
01021  M02S00114.286l859 ---|*         *EQ_EEE,DN_DD,SSSS--SSSS.*

Seq #  *Modification Id* Act 
----------------------------+
01022  M01S00209.286l859 +++|*                THE FOLLOWING RIGHT SCREEN DISPLAY REMINDS THE
01023  M01S00210.286l859 +++|*                OPERATOR HOW TO DISCONTINUE OR CONTINUE THE RESCAN OF
01024  M01S00211.286l859 +++|*                A GIVEN CATALOG TRACK FOR STAGED FILES.
01025  M00S00507.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01026  M01S00508.286l859 ---|*         WHERE -

Seq #  *Modification Id* Act 
----------------------------+
01027  M01S00212.286l859 +++|*                              RESCAN OPTIONS
01028  M00S00509.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01029  M01S00510.ns22000 ---|*         EE IS THE EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
01030  M02S00115.286l859 ---|*         EEE IS THE EST ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
01031  M01S00511.286l859 ---|*         DD IS THE DEVICE NUMBER.
01032  M01S00512.286l859 ---|*         SSSS--SSSS IS THE MESSAGE DESCRIPTION STRING STRIPPED OF
01033  M01S00513.286l859 ---|*                    ITS APPENDED PARAMETER LIST.

Seq #  *Modification Id* Act 
----------------------------+
01034  M01S00213.286l859 +++|*               ENTER K.RO.
01035  M00S00514.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01036  M01S00515.286l859 ---|*         EXAMPLE -

Seq #  *Modification Id* Act 
----------------------------+
01037  M01S00214.286l859 +++|*               RO           DESCRIPTION
01038  M00S00516.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01039  M01S00517.286l859 ---|*         THE DAYFILE MESSAGE -

Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00518.286l859 ---|*         * PFDUMP - ERROR IDLE SET,FM=FFFFFFF,DN=DD,EQ=EE,...*

Seq #  *Modification Id* Act 
----------------------------+
01041  M02S00116.286l859 ---|*         * PFDUMP - DEVICE ERROR IDLE SET,FM=FFFFFFF,DN_DD,EQ_EEE,...*

Seq #  *Modification Id* Act 
----------------------------+
01042  M01S00215.286l859 +++|*               GO      CONTINUE RESCANNING.
01043  M01S00216.286l859 +++|*               SKIP    SCAN NEXT CATALOG TRACK.
01044  M00S00519.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00520.286l859 ---|*         BECOMES THE ERRLOG MESSAGE -

Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00521.286l859 ---|*         *EQ_EE,DN_DD, PFDUMP - ERROR IDLE SET.*

Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00117.286l859 ---|*         *EQ_EEE,DN_DD,PFDUMP - DEVICE ERROR IDLE SET.*

Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00217.286l859 +++|*         * SETTING PF ACTIVITY COUNT.*
01049  M01S00218.286l859 +++|*                *PFDUMP* IS WAITING FOR *PFU* TO INCREMENT THE
01050  M01S00219.286l859 +++|*                PERMANENT FILE ACTIVITY COUNT BEFORE DUMPING A DEVICE.
01051  M00S00522.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01052  M01S00220.286l859 +++|*         * WAIT FOR ALTERNATE STORAGE INTERLOCK.*
01053  M01S00221.286l859 +++|*                *PFDUMP* IS ATTEMPTING TO ATTACH ALTERNATE STORAGE
01054  M01S00222.286l859 +++|*                CATALOG FILES TO INSURE THEIR INCLUSION ON THE DUMP.
01055  M01S00223.286l859 +++|*
01056  M01S00224.286l859 +++|*         * WAIT FOR CATALOG INTERLOCK.*
01057  M01S00225.286l859 +++|*                *PFDUMP* IS WAITING FOR *PFU* TO SET A CATALOG TRACK
01058  M01S00226.286l859 +++|*                INTERLOCK BEFORE DUMPING FILES CATALOGED ON THAT
01059  M01S00227.286l859 +++|*                TRACK.
01060  M01S00228.286l859 +++|*
01061  M01S00229.286l859 +++|*         * WAIT FOR FILE STAGING.*
01062  M01S00230.286l859 +++|*                *PFDUMP* HAS GONE INTO RECALL AND RELEASED ALL CATALOG
01063  M01S00231.286l859 +++|*                TRACK INTERLOCKS TO ALLOW THE ALTERNATE STORAGE
01064  M01S00232.286l859 +++|*                EXECUTIVE(S) TO LINK ANY STAGED FILES TO THEIR
01065  M01S00233.286l859 +++|*                RESPECTIVE CATALOG ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
01066  M01S00523.253l688 ---|          SPACE  4
01067  M01S00524.253l688 ---|**        COMMON DECKS

Seq #  *Modification Id* Act 
----------------------------+
01068  M01S00070.253l688 +++|          SPACE  4,10
01069  M01S00071.253l688 +++|*         COMMON DECKS.
01070  M00S00525.pfdump  +++|
01071  M00S00526.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01072  M01S00001.pfdum8  +++|*CALL     COMCMAC
01073  M01S00002.pfdum8  +++|*CALL     COMCCMD

Seq #  *Modification Id* Act 
----------------------------+
01074  M01S00031.241l630 +++|*CALL     COMCDCM

Seq #  *Modification Id* Act 
----------------------------+
01075  M01S00003.pfdum8  +++|*CALL     COMSACC
01076  M01S00004.pfdum8  +++|*CALL     COMSLFD

Seq #  *Modification Id* Act 
----------------------------+
01077  M01S00118.ns22000 +++|*CALL     COMSMLS
01078  M00S00527.pfdump  +++|*CALL     COMSMMF
01079  M00S00528.pfdump  +++|*CALL     COMSMST

Seq #  *Modification Id* Act 
----------------------------+
01080  M01S00001.252l678 +++|          QUAL   COMSMTX
01081  M01S00002.252l678 +++|*CALL     COMSMTX
01082  M01S00003.252l678 +++|          QUAL   *
01083  M00S00529.pfdump  +++|*CALL     COMSPFM

Seq #  *Modification Id* Act 
----------------------------+
01084  M01S00072.253l688 +++|          LIST   X
01085  M00S00530.pfdump  +++|*CALL     COMSPFS

Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00073.253l688 +++|          LIST   *
01087  M00S00531.pfdump  +++|*CALL     COMSPFU
01088  M00S00532.pfdump  +++|*CALL     COMSPRD

Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00234.286l859 +++|*CALL     COMSRPV

Seq #  *Modification Id* Act 
----------------------------+
01090  M01S00005.pfdum8  +++|*CALL     COMSPRO
01091  M00S00533.pfdump  +++|*CALL     COMSSFM

Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00235.286l859 +++|*CALL     COMSVER

Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00001.282l826 +++|          QUAL   TFM
01094  M01S00002.282l826 +++|*CALL     COMSTFM
01095  M01S00003.282l826 +++|          QUAL   *
01096  M00S00534.pfdump  +++|          TITLE  MACROS.
01097  M00S00535.pfdump  +++| ARCHIVE  SPACE  4,20
01098  M00S00536.pfdump  +++|**        ARCHIVE - PROCESS ARCHIVE FILE OPERATION.
01099  M00S00537.pfdump  +++|*
01100  M00S00538.pfdump  +++|*         ARCHIVE  FNC,P1,P2
01101  M00S00539.pfdump  +++|*
01102  M00S00540.pfdump  +++|*         FNC = FUNCTION CODE MNEMONIC.
01103  M00S00541.pfdump  +++|*               WRITEW = WRITE WORDS ON ARCHIVE FILE.
01104  M00S00542.pfdump  +++|*                        P1 = WORKING BUFFER ADDRESS.
01105  M00S00543.pfdump  +++|*                        P2 = WORD COUNT.
01106  M00S00544.pfdump  +++|*               WRITER = WRITE EOR ON ARCHIVE FILE.  (NO PARAMETERS).
01107  M00S00545.pfdump  +++|*               WRITEF = WRITE EOF ON ARCHIVE FILE.  (NO PARAMETERS).

Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00546.286l859 ---|*               SKIPFF = SKIP ARCHIVE FILE FORWARD.
01109  M01S00547.286l859 ---|*                        P1 = FILE COUNT TO SKIP.
01110  M01S00548.286l859 ---|*               FLUSH  = FLUSH ARCHIVE FILE BUFFER.  (NO PARAMETERS).
01111  M00S00549.pfdump  +++|*         P1 = FIRST PARAMETER.
01112  M00S00550.pfdump  +++|*         P2 = SECOND PARAMETER.
01113  M00S00551.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01114  M01S00552.286l859 ---|*         USES   B - 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00236.286l859 +++|*         USES   B - 6, 7.
01116  M00S00553.pfdump  +++|*
01117  M00S00554.pfdump  +++|*         CALLS  PAF.
01118  M00S00555.pfdump  +++|
01119  M00S00556.pfdump  +++|
01120  M00S00557.pfdump  +++|          PURGMAC  ARCHIVE
01121  M00S00558.pfdump  +++| ARCHIVE  MACRO  FNC,P1,P2
01122  M00S00559.pfdump  +++|          MACREF ARCHIVE
01123  M00S00560.pfdump  +++| .1       SET    0

Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00561.286l859 ---|          ECHO   0,F=(WRITEW,WRITER,WRITEF,SKIPFF,FLUSH),FC=(-1,0,0,1,2)
01125  M01S00562.286l859 ---|,,B6P=(P1,0,17B,P1,),B7P=(P2,-1,-1,,)

Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00237.286l859 +++|          ECHO   0,F=(WRITEW,WRITER,WRITEF),B6P=(P1,0,17B),B7P=(P2,-1,-1
01127  M01S00238.286l859 +++|,)
01128  M00S00563.pfdump  +++| MATCH    IFC    EQ,$F$FNC$

Seq #  *Modification Id* Act 
----------------------------+
01129  M01S00564.286l859 ---|          R=     B2,FC
01130  M01S00565.286l859 ---|          IFC    NE,$B6P$$,1
01131  M00S00566.pfdump  +++|          R=     B6,B6P

Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00567.286l859 ---|          IFC    NE,$B7P$$,1
01133  M00S00568.pfdump  +++|          R=     B7,B7P
01134  M00S00569.pfdump  +++|          RJ     PAF
01135  M00S00570.pfdump  +++| .1       SET    1
01136  M00S00571.pfdump  +++|          STOPDUP
01137  M00S00572.pfdump  +++| MATCH    ENDIF
01138  M00S00573.pfdump  +++|          ENDD
01139  M00S00574.pfdump  +++|          IFNE   .1,1,1

Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00575.v23l617 ---|          ERR    ARCHIVE - ILLEGAL FUNCTION CODE.

Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00039.v23l617 +++|          ERR    ARCHIVE - INCORRECT FUNCTION CODE.
01142  M00S00576.pfdump  +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00577.253l688 ---| BOOL     SPACE  4,30
01144  M01S00578.253l688 ---|**        BOOL - BOOLEAN EXPRESSION DEFINITION.
01145  M01S00579.253l688 ---|*
01146  M01S00580.253l688 ---|*         BOOL   BEXP
01147  M01S00581.253l688 ---|*
01148  M01S00582.253l688 ---|*         BEXP = BOOLEAN EXPRESSION.
01149  M01S00583.253l688 ---|*              = BT1.
01150  M01S00584.253l688 ---|*                OR (BT1,BT2,...).  (COMMAS INDICATE THE LOGICAL .OR.
01151  M01S00585.253l688 ---|*                OPERATION.)
01152  M01S00586.253l688 ---|*         BT1,BT2,... = BOOLEAN TERMS.
01153  M01S00587.253l688 ---|*                     = BE1.
01154  M01S00588.253l688 ---|*                       OR (BE1,BE2,...).  (COMMAS INDICATE THE
01155  M01S00589.253l688 ---|*                       LOGICAL .AND. OPERATION.)
01156  M01S00590.253l688 ---|*         BE1,BE2,... = BOOLEAN ELEMENTS.
01157  M01S00591.253l688 ---|*                     = CEXP = ABSOLUTE EVALUATABLE COMPASS EXPRESSION
01158  M01S00592.253l688 ---|*                       (PREVIOUSLY DEFINED SYMBOLS ONLY).
01159  M01S00593.253l688 ---|*
01160  M01S00594.253l688 ---|*                THE COMPASS EXPRESSIONS (*CEXP*) ARE USED TO REPRESENT
01161  M01S00595.253l688 ---|*         BOOLEAN VARIABLES.  THE ABSOLUTE VALUE OF AN EXPRESSION
01162  M01S00596.253l688 ---|*         INDICATES A BIT NUMBER WITHIN A 60 BIT WORD WHICH REPRESENTS
01163  M01S00597.253l688 ---|*         A DESIRED BOOLEAN VARIABLE.  IF AN EXPRESSION IS NEGATIVE THE
01164  M01S00598.253l688 ---|*         VARIABLE WILL BE COMPLEMENTED BEFORE IT IS USED.  IN NORMAL
01165  M01S00599.253l688 ---|*         USAGE AN EXPRESSION WOULD SIMPLY BE A SYMBOL FOR AN
01166  M01S00600.253l688 ---|*         UNCOMPLEMENTED VARIABLE AND A SYMBOL PRECEDED BY A MINUS
01167  M01S00601.253l688 ---|*         SIGN FOR A COMPLEMENTED VARIABLE.  PRECEDING THE CALL TO THE
01168  M01S00602.253l688 ---|*         *BOOL* MACRO THE SYMBOL WOULD BE EQUATED TO THE BIT NUMBER
01169  M01S00603.253l688 ---|*         WHICH IS TO REPRESENT THE VARIABLE.
01170  M01S00604.253l688 ---|*
01171  M01S00605.253l688 ---|*                THE FOLLOWING EXAMPLE CLARIFIES THE USE OF THE *BOOL*
01172  M01S00606.253l688 ---|*         MACRO.  ASSUME THAT THE *EXCLUSIVE OR* FUNCTION OF TWO
01173  M01S00607.253l688 ---|*         VARIABLES IS TO BE REPRESENTED.  A FORTRAN EXPRESSION FOR
01174  M01S00608.253l688 ---|*         THIS OPERATION WOULD BE AS FOLLOWS.
01175  M01S00609.253l688 ---|*
01176  M01S00610.253l688 ---|*         C = (A .AND. B) .OR. (.NOT. A .AND. .NOT. B)
01177  M01S00611.253l688 ---|*
01178  M01S00612.253l688 ---|*         THE FORTRAN REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION
01179  M01S00613.253l688 ---|*         SHOWN ABOVE WOULD BE IMPLEMENTED USING THE *BOOL* MACRO
01180  M01S00614.253l688 ---|*         AS FOLLOWS.
01181  M01S00615.253l688 ---|*
01182  M01S00616.253l688 ---|* A       EQU    0           USE BIT ZERO FOR VARIABLE *A*
01183  M01S00617.253l688 ---|* B       EQU    1           USE BIT ONE FOR VARIABLE *B*
01184  M01S00618.253l688 ---|* C       BOOL   ((A,B),(-A,-B))
01185  M01S00619.253l688 ---|*
01186  M01S00620.253l688 ---|*         THE CODE GENERATED AT ADDRESS *C* WOULD BE THE INTERNAL
01187  M01S00621.253l688 ---|*         REPRESENTATION OF THE *EXCLUSIVE OR* FUNCTION.
01188  M01S00622.253l688 ---|*
01189  M01S00623.253l688 ---|*                EACH BOOLEAN TERM (2 IN THIS EXAMPLE) OF AN EXPRESSION
01190  M01S00624.253l688 ---|*         GENERATES TWO WORDS OF CODE.  THE FIRST WORD IS A VARIABLE
01191  M01S00625.253l688 ---|*         SELECT MASK WHICH HAS A BIT SET FOR EACH VARIABLE APPEARING
01192  M01S00626.253l688 ---|*         IN THE TERM.  THE SECOND WORD IS A VARIABLE COMPLEMENT MASK
01193  M01S00627.253l688 ---|*         WHICH HAS A BIT SET FOR EACH VARIABLE THAT APPEARS IN THE
01194  M01S00628.253l688 ---|*         TERM IN UNCOMPLEMENTED FORM.  THE CODE GENERATED BY THE
01195  M01S00629.253l688 ---|*         *BOOL* MACRO IS TERMINATED BY A ZERO WORD.  THE INTERNAL
01196  M01S00630.253l688 ---|*         CODE PRODUCED BY THE *EXCLUSIVE OR* EXAMPLE WOULD BE.
01197  M01S00631.253l688 ---|*
01198  M01S00632.253l688 ---|* C       VFD    58/0,1/1,1/1  *A* AND *B* SELECTED
01199  M01S00633.253l688 ---|*         VFD    58/0,1/1,1/1  *A* AND *B* NOT COMPLEMENTED
01200  M01S00634.253l688 ---|*         VFD    58/0,1/1,1/1  *A* AND *B* SELECTED
01201  M01S00635.253l688 ---|*         VFD    58/0,1/0,1/0  *A* AND *B* COMPLEMENTED
01202  M01S00636.253l688 ---|*         VFD    60/0          TERMINATION FLAG
01203  M01S00637.253l688 ---|
01204  M01S00638.253l688 ---|
01205  M01S00639.253l688 ---|          PURGMAC BOOL
01206  M01S00640.253l688 ---| BOOL     MACRO  PAR
01207  M01S00641.253l688 ---|          MACREF BOOL
01208  M01S00642.253l688 ---|          IRP    PAR
01209  M01S00643.253l688 ---| .2       MICRO  1,, 0
01210  M01S00644.253l688 ---| .3       MICRO  1,,
01211  M01S00645.253l688 ---| TERM     ECHO   0,P=(PAR)
01212  M01S00646.253l688 ---| .1       SET    P
01213  M01S00647.253l688 ---| SIGN     IFPL   .1
01214  M01S00648.253l688 ---| .1       DECMIC .1
01215  M01S00649.253l688 ---| .2       MICRO  1,, ".2"+1S".1"
01216  M01S00650.253l688 ---| SIGN     ELSE
01217  M01S00651.253l688 ---| .1       DECMIC -.1
01218  M01S00652.253l688 ---| .3       MICRO  1,, ".3"+1S".1"
01219  M01S00653.253l688 ---| SIGN     ENDIF
01220  M01S00654.253l688 ---| TERM     ENDD
01221  M01S00655.253l688 ---|          CON    ".2"".3"
01222  M01S00656.253l688 ---|          CON    ".2"
01223  M01S00657.253l688 ---|          IRP
01224  M01S00658.253l688 ---|          CON    0
01225  M01S00659.253l688 ---|          ENDM
01226  M01S00660.253l688 ---| COMPFET  SPACE  4,10
01227  M01S00661.253l688 ---|**        COMPFET - COMPLETE FETS.
01228  M01S00662.253l688 ---|*
01229  M01S00663.253l688 ---|*         COMPFET  (PAR)
01230  M01S00664.253l688 ---|*
01231  M01S00665.253l688 ---|*         PAR = LIST OF ADDRESSES TO SET COMPLETE.
01232  M01S00666.253l688 ---|*
01233  M01S00667.253l688 ---|*         USES   X - 1, 2, 6.
01234  M01S00668.253l688 ---|*                A - 1, 6.
01235  M01S00669.253l688 ---|
01236  M01S00670.253l688 ---|
01237  M01S00671.253l688 ---|          PURGMAC  COMPFET
01238  M01S00672.253l688 ---| COMPFET  MACRO  PAR
01239  M01S00673.253l688 ---|          MACREF COMPFET
01240  M01S00674.253l688 ---|          SX2    B1
01241  M01S00675.253l688 ---|          IRP    PAR
01242  M01S00676.253l688 ---|          SA1    PAR
01243  M01S00677.253l688 ---|          BX6    X1+X2
01244  M01S00678.253l688 ---|          SA6    A1
01245  M01S00679.253l688 ---|          IRP
01246  M01S00680.253l688 ---|          ENDM
01247  M00S00681.pfdump  +++| CWWRITE  SPACE  4,20
01248  M00S00682.pfdump  +++|**        CWWRITE - CONTROL WORD WRITE WORDS.
01249  M00S00683.pfdump  +++|*
01250  M00S00684.pfdump  +++|*         CWWRITE FET,BUF,BUFL
01251  M00S00685.pfdump  +++|*
01252  M00S00686.pfdump  +++|*         FET = FET ADDRESS FOR FILE.
01253  M00S00687.pfdump  +++|*         BUF = WORKING BUFFER ADDRESS.
01254  M00S00688.pfdump  +++|*         BUFL = LENGTH OF WORKING BUFFER.
01255  M00S00689.pfdump  +++|*
01256  M00S00690.pfdump  +++|*         *BUFL* WORDS ARE TRANSFERRED FROM THE WORKING BUFFER *BUF* TO
01257  M00S00691.pfdump  +++|*         THE CIRCULAR BUFFER.  BUFFER CONTROL WORDS ARE ADDED AS
01258  M00S00692.pfdump  +++|*         NECESSARY.
01259  M00S00693.pfdump  +++|*
01260  M00S00694.pfdump  +++|*         USES   X - 2.
01261  M00S00695.pfdump  +++|*                B - 6, 7.
01262  M00S00696.pfdump  +++|*
01263  M00S00697.pfdump  +++|*         CALLS  CWW.
01264  M00S00698.pfdump  +++|
01265  M00S00699.pfdump  +++|
01266  M00S00700.pfdump  +++|          PURGMAC CWWRITE
01267  M00S00701.pfdump  +++| CWWRITE  MACRO  FET,BUF,BUFL
01268  M00S00702.pfdump  +++|          MACREF CWWRITE
01269  M00S00703.pfdump  +++|          R=     B6,BUF
01270  M00S00704.pfdump  +++|          R=     B7,BUFL
01271  M00S00705.pfdump  +++|          R=     X2,FET
01272  M00S00706.pfdump  +++|          RJ     CWW
01273  M00S00707.pfdump  +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
01274  M01S00708.253l688 ---| EDITS    SPACE  4,20
01275  M01S00709.253l688 ---|**        EDITS - EDIT MESSAGE STRING.
01276  M01S00710.253l688 ---|*
01277  M01S00711.253l688 ---|*         EDITS  S,T
01278  M01S00712.253l688 ---|*
01279  M01S00713.253l688 ---|*         S = ADDRESS OF MESSAGE PARAMETER SKELETON TO BE EDITED.
01280  M01S00714.253l688 ---|*         T = MESSAGE DESCRIPTION STRING ADDRESS (0 OR BLANK IF NONE).
01281  M01S00715.253l688 ---|*
01282  M01S00716.253l688 ---|*         USES   X - 6.
01283  M01S00717.253l688 ---|*                B - 6.
01284  M01S00718.253l688 ---|*
01285  M01S00719.253l688 ---|*         CALLS  EDS.
01286  M01S00720.253l688 ---|
01287  M01S00721.253l688 ---|
01288  M01S00722.253l688 ---|          PURGMAC EDITS
01289  M01S00723.253l688 ---| EDITS    MACRO  S,T
01290  M01S00724.253l688 ---|          MACREF EDITS
01291  M01S00725.253l688 ---|          R=     B6,S
01292  M01S00726.253l688 ---| .1       IFC    NE,$T$$
01293  M01S00727.253l688 ---|          R=     X6,T
01294  M01S00728.253l688 ---| .1       ELSE
01295  M01S00729.253l688 ---|          SX6    B0+
01296  M01S00730.253l688 ---| .1       ENDIF
01297  M01S00731.253l688 ---|          RJ     EDS         EDIT STRING
01298  M01S00732.253l688 ---|          ENDM
01299  M01S00733.253l688 ---| PCINT    SPACE  4
01300  M01S00734.253l688 ---|**        PCINT - PROCESS CATALOG INTERLOCK.
01301  M01S00735.253l688 ---|*
01302  M01S00736.253l688 ---|*         PCINT  FET,FNC
01303  M01S00737.253l688 ---|*
01304  M01S00738.253l688 ---|*         FET = ADDRESS OF FET TO PROCESS INTERLOCK WITH.
01305  M01S00739.253l688 ---|*         FNC = PFU FUNCTION CODE TO PROCESS INTERLOCK WITH.
01306  M01S00740.253l688 ---|*
01307  M01S00741.253l688 ---|*         CALLS  PCI.
01308  M01S00742.253l688 ---|*
01309  M01S00743.253l688 ---|*         USES   X - 6, 7.
01310  M01S00744.253l688 ---|
01311  M01S00745.253l688 ---|
01312  M01S00746.253l688 ---|          PURGMAC PCINT
01313  M01S00747.253l688 ---|
01314  M01S00748.253l688 ---| PCINT    MACRO  FET,FNC
01315  M01S00749.253l688 ---|          MACREF PCINT
01316  M01S00750.253l688 ---|          R=     X6,FET
01317  M01S00751.253l688 ---|          R=     X7,FNC
01318  M01S00752.253l688 ---|          RJ     PCI
01319  M01S00753.253l688 ---|          ENDM
01320  M01S00754.253l688 ---| RGET     SPACE 4,10

Seq #  *Modification Id* Act 
----------------------------+
01321  M02S00074.286l859 ---| RGET     SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01322  M01S00755.286l859 ---|**        RGET - RESTORE REGISTERS.
01323  M01S00756.286l859 ---|*
01324  M01S00757.286l859 ---|*         RGET   ADDR
01325  M01S00758.286l859 ---|*
01326  M01S00759.286l859 ---|*         ADDR = ADDRESS OF WORD WITH REGISTERS STORED.
01327  M01S00760.286l859 ---|*                6/0,18/(B2),18/(B3),18/(B5).
01328  M01S00761.286l859 ---|*
01329  M01S00762.286l859 ---|*         USES   X - 1.
01330  M01S00763.286l859 ---|*                A - 1.
01331  M01S00764.286l859 ---|*                B - 2, 3, 5.
01332  M01S00765.286l859 ---|
01333  M01S00766.286l859 ---|
01334  M01S00767.286l859 ---|          PURGMAC  RGET
01335  M01S00768.286l859 ---| RGET     MACRO  ADDR
01336  M01S00769.286l859 ---|          MACREF RGET
01337  M01S00770.286l859 ---|          SA1    ADDR
01338  M01S00771.286l859 ---|          SB5    X1
01339  M01S00772.286l859 ---|          LX1    17-35
01340  M01S00773.286l859 ---|          SB3    X1
01341  M01S00774.286l859 ---|          LX1    17-35
01342  M01S00775.286l859 ---|          SB2    X1
01343  M01S00776.286l859 ---|          ENDM
01344  M01S00777.286l859 ---| RSAV     SPACE  4,10
01345  M01S00778.286l859 ---|**        RSAV - SAVE REGISTERS.
01346  M01S00779.286l859 ---|*
01347  M01S00780.286l859 ---|*         RSAV   ADDR
01348  M01S00781.286l859 ---|*
01349  M01S00782.286l859 ---|*         REGISTERS B2, B3, AND B5 SAVED IN *ADDR*.
01350  M01S00783.286l859 ---|*         (ADDR) = 6/0,18/(B2),18/(B3),18/(B5).
01351  M01S00784.286l859 ---|*
01352  M01S00785.286l859 ---|*         USES   X - 1, 6.
01353  M01S00786.286l859 ---|*                A - 6.
01354  M01S00787.286l859 ---|
01355  M01S00788.286l859 ---|
01356  M01S00789.286l859 ---|          PURGMAC  RSAV
01357  M01S00790.286l859 ---| RSAV     MACRO  ADDR
01358  M01S00791.286l859 ---|          MACREF RSAV
01359  M01S00792.286l859 ---|          SX1    B2
01360  M01S00793.286l859 ---|          SX6    B3
01361  M01S00794.286l859 ---|          LX1    35-17
01362  M01S00795.286l859 ---|          BX1    X1+X6
01363  M01S00796.286l859 ---|          SX6    B5
01364  M01S00797.286l859 ---|          LX1    53-35
01365  M01S00798.286l859 ---|          BX6    X1+X6
01366  M01S00799.286l859 ---|          SA6    ADDR
01367  M01S00800.286l859 ---|          ENDM
01368  M01S00801.286l859 ---|
01369  M01S00802.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01370  M01S00803.pfdum8  ---|*CALL     COMCCMD
01371  M01S00804.pfdum8  ---|*CALL     COMCMAC
01372  M00S00805.pfdump  +++|          TITLE  PROGRAM CONSTANT SECTION.

Seq #  *Modification Id* Act 
----------------------------+
01373  M01S00806.pfdum8  ---|*CALL     COMSLFD

Seq #  *Modification Id* Act 
----------------------------+
01374  M01S00807.253l688 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01375  M01S00075.253l688 +++|          SPACE  4,10
01376  M00S00808.pfdump  +++|*         MISCELLANEOUS CONSTANTS.
01377  M00S00809.pfdump  +++|
01378  M00S00810.pfdump  +++| BFAC     EQU    1000B       BLOCKING FACTOR

Seq #  *Modification Id* Act 
----------------------------+
01379  M01S00239.286l859 +++| DFAC     EQU    2500B       CATALOG TRACK RESCAN DELAY FACTOR
01380  M01S00240.286l859 +++| DLEMX    EQU    100B        MAXIMUM READ DATA LIST ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01381  M01S00811.ns22000 ---| MSTEL    EQU    2           *MST* TABLE ENTRY LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01382  M01S00119.ns22000 +++| MSTEL    EQU    2           MST TABLE ENTRY LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01383  M01S00241.286l859 +++| MXLRR    EQU    5           RETRY LIMIT FOR ARCHIVE FILE LABEL READ
01384  M00S00812.pfdump  +++| NWCM     EQU    100B        NUMBER OF WORDS IN A *CMU* MOVE
01385  M00S00813.pfdump  +++|          ERRNZ  NWCM-NWCM/10B*10B  CHARACTER COUNT = MULTIPLE OF 20B
01386  M00S00814.pfdump  +++| NWPR     EQU    100B        NUMBER WORDS/PRU
01387  M00S00815.pfdump  +++| NWCP     EQU    NWPR+2      NUMBER WORDS/*CIO* CONTROL WORD PRU

Seq #  *Modification Id* Act 
----------------------------+
01388  M01S00816.286l859 ---| NCPR     EQU    NWPR/NWCE   NUMBER CATALOG ENTRIES/PRU
01389  M01S00817.286l859 ---|
01390  M01S00818.286l859 ---|
01391  M01S00819.286l859 ---|*         RESCAN CONSTANTS.
01392  M01S00820.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01393  M02S00821.286l859 ---| DFAC     EQU    500B        RESCAN DELAY FACTOR

Seq #  *Modification Id* Act 
----------------------------+
01394  M02S00040.286l859 ---| DFAC     EQU    2500B       RESCAN DELAY FACTOR

Seq #  *Modification Id* Act 
----------------------------+
01395  M01S00822.286l859 ---| LNPR     EQU    10B         LIMIT OF NON-PRODUCTIVE RESCANS

Seq #  *Modification Id* Act 
----------------------------+
01396  M01S00242.286l859 +++| TCRQL    EQU    3           LENGTH OF TAPE COPY REQUEST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01397  M01S00823.253l688 ---| RSEL     EQU    4           RESCAN LIST ENTRY LENGTH
01398  M01S00824.253l688 ---| RSFN     EQU    0           RESCAN LIST - FILE NAME
01399  M01S00825.253l688 ---| RSUI     EQU    RSFN        RESCAN LIST - USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
01400  M02S00041.253l688 ---| RSDA     EQU    RSUI+1      RESCAN LIST - DIRECT ACCESS FILE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01401  M01S00826.253l688 ---| RSCD     EQU    RSUI+1      RESCAN LIST - CREATION DATE/TIME
01402  M01S00827.253l688 ---| RSAA     EQU    RSCD+1      RESCAN LIST - ALTERNATE STORAGE ADDRESS
01403  M01S00828.253l688 ---| RSFI     EQU    RSAA+1      RESCAN LIST - PF-ID
01404  M00S00829.pfdump  +++|
01405  M00S00830.pfdump  +++|
01406  M00S00831.pfdump  +++|*         BUFFER LENGTHS.
01407  M00S00832.pfdump  +++|
01408  M00S00833.pfdump  +++| CATBL    EQU    10*NWCP+1   CATALOG BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01409  M01S00834.286l859 ---| CBUFL    EQU    5*NWPR      CATALOG WORKING STORAGE LENGTH
01410  M01S00835.286l859 ---| CCBUFL   EQU    2*CBUFL     CATALOG CONVERSION BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01411  M01S00243.286l859 +++| CBUFL    EQU    10*NWPR     CATALOG WORKING STORAGE LENGTH
01412  M00S00836.pfdump  +++| DBUFL    EQU    12001B      DATA BUFFER LENGTH
01413  M00S00837.pfdump  +++| DBUFHL   EQU    1101B       DATA WORKING STORAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01414  M01S00838.286l859 ---| DLBUFL   EQU    CCBUFL/NWCE DATA LIST BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01415  M01S00244.286l859 +++| DLRBL    EQU    DLEMX+1     DATA LIST REQUEST BUFFER LENGTH
01416  M01S00245.286l859 +++| DLCBL    EQU    DLEMX*NWCE  DATA LIST CATALOG BUFFER LENGTH
01417  M01S00246.286l859 +++| DLDBL    EQU    DLEMX       DATA LIST DISK ADDRESS BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01418  M01S00839.253l688 ---| DSFLL    EQU    RSEL*DLBUFL DROP STAGED FILE LIST LENGTH
01419  M01S00840.253l688 ---| EDBFL    EQU    9           EDIT STRING BUFFER LENGTH
01420  M01S00841.253l688 ---| LBUFL    EQU    NWTL+2      LABEL BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S00001.v23l617 ---| LKBUFL   EQU    201B        LOCK BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01422  M01S00042.v23l617 +++| LKBUFL   EQU    401B        LOCK BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01423  M01S00842.286l859 ---| MSFBL    EQU    3*NWPR+1    MSF CATALOG BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01424  M02S00843.286l859 ---| MSTTL    EQU    MSTEL*NMSD+MSTEL  *MST* TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01425  M02S00120.286l859 ---| MSTTL    EQU    MSTEL*MSMX+MSTEL  MST TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00247.286l859 +++| MSFBL    EQU    10001B      *COMCMSF* SORT FILES BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01427  M01S00027.274l797 +++| ODEBL    EQU    20B         OPTICAL DISK EXTENSION BUFFER LENGTH
01428  M01S00028.274l797 +++| ODFBL    EQU    401B        OPTICAL DISK MOUNT FILE BUFFER LENGTH
01429  M00S00844.pfdump  +++| OUTBL    EQU    1001B       OUTPUT FILE BUFFER LENGTH
01430  M00S00845.pfdump  +++| PBUFL    EQU    NWPR+1      PERMIT BUFFER LENGTH
01431  M00S00846.pfdump  +++| PHBUFL   EQU    NWPR        PERMIT WORKING STORAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01432  M01S00248.286l859 +++| PFLBL    EQU    1001B       PROCESSED FILES FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01433  M01S00847.253l688 ---| PURBL    EQU    NWPR+1      PURGE FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01434  M01S00076.253l688 +++| PFRBL    EQU    NWPR+1      *PFM* REQUEST FILE BUFFER LENGTH
01435  M00S00848.pfdump  +++| RBUFL    EQU    4011B       RDF BUFFER LENGTH
01436  M00S00849.pfdump  +++| RDFHL    EQU    8           RDF WORKING STORAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01437  M01S00850.253l688 ---| REQBL    EQU    DSFLL+1     FILE STAGING REQUEST LIST BUFFER LENGTH
01438  M01S00851.253l688 ---| RESBL    EQU    REQBL       RESCAN SELECTION SCREEN BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01439  M01S00077.253l688 +++| REQBL    EQU    101B        FILE STAGING REQUEST LIST BUFFER LENGTH
01440  M01S00078.253l688 +++| RESBL    EQU    101B        RESCAN SELECTION SCREEN BUFFER LENGTH
01441  M01S00079.253l688 +++| SABFL    EQU    1000B       SUMMARY FILE ASSEMBLY BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01442  M01S00249.286l859 +++| SRTBL    EQU    20000B      SORT BUFFER LENGTH
01443  M01S00250.286l859 +++| SBTCC    EQU    SRTBL/TCRQL MAXIMUM TAPE COPY REQUESTS IN *SRTB*
01444  M01S00251.286l859 +++| SBTCL    EQU    SBTCC*TCRQL LENGTH OF TAPE COPY REQUESTS IN *SRTB*

Seq #  *Modification Id* Act 
----------------------------+
01445  M01S00080.253l688 +++| SUMBL    EQU    1401B       SUMMARY FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01446  M01S00852.274l797 ---| TBUFL    EQU    4011B       ARCHIVE (TAPE) FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01447  M03S00001.274l797 ---| ETBUFL   EQU    20041B      TAPE FILE BUFFER LENGTH (ISMT)

Seq #  *Modification Id* Act 
----------------------------+
01448  M02S00001.274l797 ---| ETBUFL   EQU    20041B      TAPE FILE BUFFER LENGTH (*ISMT*/*CMTS*)

Seq #  *Modification Id* Act 
----------------------------+
01449  M01S00853.274l797 ---| VBUFL    EQU    4011B       VERIFY FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01450  M01S00029.274l797 +++| TBUFL    EQU    30061B      ARCHIVE (TAPE) FILE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01451  M01S00252.286l859 +++| TCLBL    EQU    1001B       TAPE COPY FILE LIST BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
01452  M01S00030.274l797 +++| VBUFL    EQU    30061B      VERIFY FILE BUFFER LENGTH
01453  M00S00854.pfdump  +++|
01454  M00S00855.pfdump  +++|
01455  M00S00856.pfdump  +++|*         ARCHIVE FILE CONTROL WORD VALUES.
01456  M00S00857.pfdump  +++|
01457  M00S00858.pfdump  +++| LCWC     EQU    01000B      LABEL CONTROL WORD
01458  M00S00859.pfdump  +++| COCW     EQU    10000B      CATALOG ONLY CONTROL WORD
01459  M00S00860.pfdump  +++| CCWC     EQU    11000B      CATALOG CONTROL WORD
01460  M00S00861.pfdump  +++| PMCW     EQU    20000B      PERMIT CONTROL WORD
01461  M00S00862.pfdump  +++| PRCW     EQU    21000B      PERMIT RECORD CONTROL WORD
01462  M00S00863.pfdump  +++| DCWC     EQU    30000B      DATA CONTROL WORD
01463  M00S00864.pfdump  +++| DRCW     EQU    31000B      DATA RECORD CONTROL WORD
01464  M00S00865.pfdump  +++| DFCW     EQU    32000B      DATA FILE   CONTROL WORD
01465  M00S00866.pfdump  +++| DSCW     EQU    34000B      DATA SYSTEM SECTOR CONTROL WORD
01466  M00S00867.pfdump  +++| ERCW     EQU    47000B      END OF REEL CONTROL WORD
01467  M00S00868.pfdump  +++| CICW     EQU    50000B      CATALOG IMAGE CONTROL WORD
01468  M00S00869.pfdump  +++| CRWC     EQU    51000B      CATALOG IMAGE RECORD CONTROL WORD
01469  M00S00870.pfdump  +++| CFCW     EQU    52000B      CATALOG IMAGE FILE CONTROL WORD
01470  M00S00871.pfdump  +++| EODC     EQU    77000B      END OF DUMP CONSTANT
01471  M00S00872.pfdump  +++|
01472  M00S00873.pfdump  +++|
01473  M00S00874.pfdump  +++|*         RELEASE DATA FILE (RDF) CONTROL WORD VALUES.
01474  M00S00875.pfdump  +++|
01475  M00S00876.pfdump  +++| HCWD     EQU    1000B       HEADER RECORD CONTROL WORD
01476  M00S00877.pfdump  +++| ECWD     EQU    2007B       EXTRACT RECORD CONTROL WORD
01477  M00S00878.pfdump  +++| CCWD     EQU    3000B       MSF CATALOG RECORD CONTROL WORD
01478  M00S00879.pfdump  +++|
01479  M00S00880.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01480  M01S00881.286l859 ---|*         FILE SELECTION BOOLEAN EXPRESSION CONSTANTS.

Seq #  *Modification Id* Act 
----------------------------+
01481  M01S00253.286l859 +++|*         *SETPFP* OPTION CONSTANTS.
01482  M00S00882.pfdump  +++|
01483  M00S00883.pfdump  +++| FMPR     EQU    10B         FAMILY NAME PARAMETER FLAG
01484  M00S00884.pfdump  +++| PKPR     EQU    4           PACKNAME PARAMETER FLAG

Seq #  *Modification Id* Act 
----------------------------+
01485  M01S00885.v23l617 ---| UNPR     EQU    2           USER NUMBER PARAMETER FLAG

Seq #  *Modification Id* Act 
----------------------------+
01486  M01S00043.v23l617 +++| UNPR     EQU    2           USER NAME PARAMETER FLAG
01487  M00S00886.pfdump  +++| UIPR     EQU    1           USER INDEX PARAMETER FLAG
01488  M00S00887.pfdump  +++|
01489  M00S00888.pfdump  +++|
01490  M00S00889.pfdump  +++|*         *COMSPFS* EQUIVALENCES.
01491  M00S00890.pfdump  +++|
01492  M00S00891.pfdump  +++| CPAR     EQU    /COMSPFS/CPL  CONVERTED PARAMETER LIST
01493  M00S00892.pfdump  +++| IDSA     EQU    /COMSPFS/PADR

Seq #  *Modification Id* Act 
----------------------------+
01494  M02S00121.286l859 ---| CPPP     EQU    /COMSPFS/PPPT
01495  M02S00122.286l859 ---| LNPP     EQU    CPPP+/COMSPFS/PPLN  LINE NUMBER
01496  M02S00123.286l859 ---| PDFE     EQU    CPPP+/COMSPFS/PPPD  PRINT DENSITY FORMAT EFFECTOR

Seq #  *Modification Id* Act 
----------------------------+
01497  M01S00893.286l859 ---|          TITLE  MAIN LOOP.
01498  M01S00894.286l859 ---|**        MAIN LOOP.

Seq #  *Modification Id* Act 
----------------------------+
01499  M01S00254.286l859 +++|          TITLE  MAIN ROUTINES.
01500  M01S00255.286l859 +++|**        MAIN PROGRAM.
01501  M00S00895.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01502  M01S00896.286l859 ---|*         EXIT   PROGRAM FINISHED.

Seq #  *Modification Id* Act 
----------------------------+
01503  M01S00256.286l859 +++|*         EXIT   TO *END*.
01504  M00S00897.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01505  M01S00898.ns21000 ---|*         CALLS  GLF, PCT, PRS, SDM, SND, WUP.

Seq #  *Modification Id* Act 
----------------------------+
01506  M02S00002.ns22000 ---|*         CALLS  PCT, PRS, SDM, SND, WUP.

Seq #  *Modification Id* Act 
----------------------------+
01507  M02S00124.286l859 ---|*         CALLS  FCM, PCT, PRS, SDM, SND, WUP.

Seq #  *Modification Id* Act 
----------------------------+
01508  M01S00257.286l859 +++|*         CALLS  GLF, GRC, OPN, PCF, PCT, PFR, PRS, PSF, PTF, RLF, RMF,
01509  M01S00258.286l859 +++|*                SDI, SNC, SND, TER.
01510  M00S00899.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01511  M01S00900.286l859 ---|*         MACROS ENDRUN, MESSAGE, PCINT.

Seq #  *Modification Id* Act 
----------------------------+
01512  M01S00259.286l859 +++|*         MACROS MESSAGE, RETURN, SETPFP.
01513  M00S00901.pfdump  +++|
01514  M00S00902.pfdump  +++|
01515  M00S00903.pfdump  +++|          ORG    /COMSPFS/OVLB
01516  M00S00904.pfdump  +++|
01517  M00S00905.pfdump  +++|
01518  M00S00906.pfdump  +++| PFD      RJ     PRS         PRESET PROGRAM

Seq #  *Modification Id* Act 
----------------------------+
01519  M01S00907.253l688 ---|
01520  M01S00908.253l688 ---|*         SET UP OUTPUT HEADER.
01521  M01S00909.253l688 ---|
01522  M01S00910.253l688 ---|          SA1    HTPE        SET TAPE HEADER
01523  M01S00911.253l688 ---|          SA2    A1+B1
01524  M01S00912.253l688 ---|          BX6    X1
01525  M01S00913.253l688 ---|          BX7    X2
01526  M01S00914.253l688 ---|          SA6    HTYP
01527  M01S00915.253l688 ---|          SA7    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
01528  M01S00916.286l859 ---|          EQ     PFD2        PROCESS FIRST DEVICE
01529  M00S00917.pfdump  +++|
01530  M00S00918.pfdump  +++|*         PROCESS NEXT DEVICE.
01531  M00S00919.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01532  M01S00920.286l859 ---| PFD1     PCINT  CATS,CTCC   CLEAR CATALOG TRACK INTERLOCK
01533  M01S00921.286l859 ---| PFD2     RJ     SND         SET NEXT DEVICE
01534  M01S00922.286l859 ---|          ZR     X1,PFD5     IF NO MORE DEVICES
01535  M01S00923.286l859 ---|          RJ     SDM         SEND DEVICE MESSAGES
01536  M01S00924.286l859 ---|          SA1    PDUI        SET FIRST CATALOG TRACK
01537  M01S00925.286l859 ---|          SA2    NCAT        FORM CATALOG TRACK MASK
01538  M01S00926.286l859 ---|          LX1    -3
01539  M01S00927.286l859 ---|          SX2    X2-1
01540  M01S00928.286l859 ---|          BX6    X2*X1
01541  M01S00929.286l859 ---|          SA6    MPCT

Seq #  *Modification Id* Act 
----------------------------+
01542  M01S00260.286l859 +++| PFD1     RJ     SND         SET NEXT DEVICE
01543  M01S00261.286l859 +++|          ZR     X1,PFD4     IF NO MORE DEVICES
01544  M01S00262.286l859 +++|          RJ     OPN         OPEN DEVICE FILES
01545  M01S00263.286l859 +++|          RJ     GLF         GET LOCK FILES
01546  M00S00930.pfdump  +++|
01547  M00S00931.pfdump  +++|*         PROCESS CATALOG TRACK.
01548  M00S00932.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01549  M01S00933.286l859 ---| PFD3     RJ     PCT

Seq #  *Modification Id* Act 
----------------------------+
01550  M01S00264.286l859 +++| PFD2     RJ     SNC         SET NEXT CATALOG TRACK
01551  M01S00265.286l859 +++|          RJ     PCF         POSITION CATALOG FILE
01552  M01S00266.286l859 +++|          NG     X5,PFD3     IF END OF CATALOG TRACKS
01553  M01S00267.286l859 +++|          RJ     PCT         PROCESS CATALOG TRACK
01554  M01S00268.286l859 +++|          EQ     PFD2        SET NEXT CATALOG TRACK
01555  M00S00934.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01556  M01S00935.286l859 ---|*         CHECK DEVICE TERMINATION.

Seq #  *Modification Id* Act 
----------------------------+
01557  M01S00269.286l859 +++|*         GENERATE *RDF* EXTRACT RECORDS AND RELEASE LOCK FILES.
01558  M00S00936.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01559  M01S00270.286l859 +++| PFD3     RJ     GRC         GENERATE *RDF* CATALOG RECORDS
01560  M01S00271.286l859 +++|          RJ     RLF         RELEASE LOCK FILES
01561  M01S00272.286l859 +++|          RJ     RMF         RETURN MASTER DEVICE FILES
01562  M01S00273.286l859 +++|          EQ     PFD1        SET NEXT DEVICE
01563  M01S00274.286l859 +++|
01564  M01S00275.286l859 +++|*         PROCESS TAPE ALTERNATE STORAGE RESIDENT FILES.
01565  M01S00276.286l859 +++|
01566  M01S00277.286l859 +++| PFD4     RJ     PTF         PROCESS TAPE RESIDENT FILES
01567  M01S00278.286l859 +++|
01568  M01S00279.286l859 +++|*         END OF DUMP.
01569  M01S00280.286l859 +++|
01570  M01S00281.286l859 +++|          RJ     TER         TERMINATE ARCHIVE FILE AND RETURN FILES
01571  M01S00282.286l859 +++|          RJ     SDI         SET DEVICE INHIBIT DATES
01572  M01S00283.286l859 +++|          RJ     PSF         PROCESS SORTED FILE AND STATISTICS OUTPUT
01573  M01S00284.286l859 +++|          RJ     PFR         PROCESS *PFM* REQUESTS
01574  M01S00285.286l859 +++|          EQ     END         TERMINATE
01575  M01S00286.286l859 +++| PCT      SPACE  4,20
01576  M01S00287.286l859 +++|**        PCT - PROCESS CATALOG TRACK.
01577  M01S00288.286l859 +++|*
01578  M01S00289.286l859 +++|*         EXIT   ALL SELECTED FILES CATALOGED ON THIS CATALOG TRACK
01579  M01S00290.286l859 +++|*                  DUMPED EXCEPT FOR FILES WHICH WILL BE COPIED FROM
01580  M01S00291.286l859 +++|*                  ALTERNATE STORAGE TAPES.
01581  M01S00292.286l859 +++|*
01582  M01S00293.286l859 +++|*         USES   X - 1, 2, 6, 7.
01583  M01S00294.286l859 +++|*                A - 1, 6, 7.
01584  M01S00295.286l859 +++|*                B - 2.
01585  M01S00296.286l859 +++|*
01586  M01S00297.286l859 +++|*         CALLS  CSI, CCR, CSP, GRE, IRS, MRE, PFI, PPD, PRL, RCS, RFC,
01587  M01S00298.286l859 +++|*                RFS, SCA.
01588  M01S00299.286l859 +++|*
01589  M01S00300.286l859 +++|*         MACROS MOVE, READCW.
01590  M01S00301.286l859 +++|
01591  M01S00302.286l859 +++|
01592  M01S00303.286l859 +++| PCT      SUBR               ENTRY/EXIT
01593  M01S00304.286l859 +++|
01594  M01S00305.286l859 +++|*         INITIALIZE NORMAL CATALOG TRACK SCAN.
01595  M01S00306.286l859 +++|
01596  M01S00307.286l859 +++|          SX6    B0+         SET NORMAL SCAN MODE
01597  M01S00308.286l859 +++|          SX7    B0+         SET FIRST CATALOG ON TRACK
01598  M01S00309.286l859 +++|
01599  M01S00310.286l859 +++|*         INITIALIZE CATALOG SCAN.
01600  M01S00311.286l859 +++|
01601  M01S00312.286l859 +++| PCT1     SA6    SCAN        SET SCAN MODE
01602  M01S00313.286l859 +++|          SA7    CTIN        SET INITIAL CATALOG TRACK INDEX
01603  M00S00937.pfdump  +++|          SX6    B0+

Seq #  *Modification Id* Act 
----------------------------+
01604  M01S00938.286l859 ---|          SA6    SCAN        RESET SCAN STATUS

Seq #  *Modification Id* Act 
----------------------------+
01605  M02S00939.286l859 ---|          SA1    LMSK

Seq #  *Modification Id* Act 
----------------------------+
01606  M02S00003.286l859 ---|          SA1    LFDP

Seq #  *Modification Id* Act 
----------------------------+
01607  M01S00940.286l859 ---|          NZ     X1,PFD2     IF COMPLETING LOCK FILE DUMP PASS
01608  M01S00941.286l859 ---|          SA1    CPAR+/COMSPFS/CPUI
01609  M01S00942.286l859 ---|          NZ     X1,PFD1     IF *UI* SPECIFIED
01610  M01S00943.286l859 ---|          SA1    NCAT        GET NUMBER OF CATALOG TRACKS LEFT
01611  M01S00944.286l859 ---|          SX2    B1
01612  M01S00945.286l859 ---|          IX6    X1-X2
01613  M01S00946.286l859 ---|          ZR     X6,PFD4     IF NO CATALOG TRACKS LEFT
01614  M01S00947.286l859 ---|          SA6    NCAT
01615  M01S00948.286l859 ---|          PCINT  CATS,CTAC   ADVANCE CATALOG TRACK
01616  M01S00949.286l859 ---|          SA1    CATS+FTPM   GET NEW CATALOG TRACK FST ENTRY
01617  M01S00950.286l859 ---|          SX2    1000B       CLEAR TRACK INTERLOCK BIT
01618  M01S00951.286l859 ---|          BX6    -X2*X1
01619  M01S00952.286l859 ---|          SA6    OPNB        SAVE FOR POSSIBLE RESCAN OPERATION
01620  M01S00953.286l859 ---|          SA1    MPCT
01621  M01S00954.286l859 ---|          SX6    X1+B1

Seq #  *Modification Id* Act 
----------------------------+
01622  M01S00314.286l859 +++|          SA6    RSTS        CLEAR STAGE REQUEST
01623  M01S00315.286l859 +++|          SA1    CATS+FTFT
01624  M01S00316.286l859 +++|          SX6    X1
01625  M01S00317.286l859 +++|          SA6    A1+B1       SET IN = FIRST
01626  M01S00318.286l859 +++|          SA6    A1+2        SET OUT = FIRST
01627  M01S00319.286l859 +++|          READCW CATS,17B    INITIATE CATALOG READ
01628  M01S00320.286l859 +++|
01629  M01S00321.286l859 +++|*         READ CATALOG SECTOR.
01630  M01S00322.286l859 +++|
01631  M01S00323.286l859 +++| PCT2     SA0    CSBF        INITIALIZE CATALOG ADDRESS
01632  M01S00324.286l859 +++|          SX2    CATS        SET FET ADDRESS
01633  M01S00325.286l859 +++|          RJ     RCS         READ CATALOG SECTOR
01634  M01S00326.286l859 +++|          ZR     X1,PCT3     IF READ COMPLETE
01635  M01S00327.286l859 +++|          PL     X1,PCT11    IF END OF CATALOG TRACK OR FATAL ERROR
01636  M01S00328.286l859 +++|          SA1    CTIN
01637  M01S00329.286l859 +++|          SX6    X1+4        COUNT CATALOG ENTRIES IN BAD SECTOR
01638  M00S00955.pfdump  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01639  M01S00956.286l859 ---|          EQ     PFD3        PROCESS NEXT CATALOG TRACK

Seq #  *Modification Id* Act 
----------------------------+
01640  M01S00330.286l859 +++|          EQ     PCT2        READ NEXT SECTOR
01641  M00S00957.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01642  M01S00958.286l859 ---|*         SETUP FOR LOCK FILE DUMP PASS.

Seq #  *Modification Id* Act 
----------------------------+
01643  M01S00331.286l859 +++|*         CHECK FILE SELECTED.
01644  M00S00959.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01645  M01S00960.286l859 ---| PFD4     PCINT  CATS,CTCC   CLEAR CATALOG TRACK INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
01646  M02S00961.286l859 ---|          RJ     GLF         GET LOCK FILES

Seq #  *Modification Id* Act 
----------------------------+
01647  M01S00962.286l859 ---|          SA1    LMSK
01648  M01S00963.286l859 ---|          ZR     X1,PFD2     IF LOCK FILES NOT NEEDED

Seq #  *Modification Id* Act 
----------------------------+
01649  M02S00964.286l859 ---|          SX7    CATB        SET FWA OF CATALOG ENTRIES
01650  M02S00965.286l859 ---|          SX6    CATB+MNSF*NWCE  SET LWA+1 OF CATALOG ENTRIES
01651  M02S00966.286l859 ---|          SB3    X7

Seq #  *Modification Id* Act 
----------------------------+
01652  M02S00004.286l859 ---|          SX7    LKBUF       SET FWA OF CATALOG ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01653  M03S00005.286l859 ---|          SX6    LKBUF+MNSF*NWCE  SET LWA+1 OF CATALOG ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01654  M02S00044.286l859 ---|          SX6    LKBUF+LFATL*NWCE  SET LWA+1 OF CATALOG ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01655  M02S00006.286l859 ---|          SB3    X7+
01656  M02S00007.286l859 ---|          SA7    LFDP        SET LOCK FILE DUMP PASS FLAG

Seq #  *Modification Id* Act 
----------------------------+
01657  M01S00967.286l859 ---|          EQ     PFD3        PROCESS LOCK FILE DUMP

Seq #  *Modification Id* Act 
----------------------------+
01658  M01S00332.286l859 +++| PCT3     SA1    SCAN
01659  M01S00333.286l859 +++|          NZ     X1,PCT4     IF CATALOG RESCAN
01660  M01S00334.286l859 +++|          RJ     CSI         CHECK SPECIAL USER INDEX
01661  M01S00335.286l859 +++|          ZR     X6,PCT10    IF FILE NOT TO BE PROCESSED
01662  M01S00336.286l859 +++|          SA1    CPAR+/COMSPFS/CPRD
01663  M01S00337.286l859 +++|          ZR     X1,PCT5     IF RDF NOT REQUESTED
01664  M01S00338.286l859 +++|          RJ     GRE         GENERATE RDF EXTRACT RECORD
01665  M01S00339.286l859 +++|          EQ     PCT5        CHECK SELECTIVE PARAMETERS
01666  M00S00968.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01667  M01S00969.286l859 ---|*         WRAPUP DUMP.

Seq #  *Modification Id* Act 
----------------------------+
01668  M01S00340.286l859 +++| PCT4     RJ     CCR         CHECK CATALOG RESCAN FILE
01669  M01S00341.286l859 +++|          ZR     X6,PCT10    IF FILE NOT TO BE PROCESSED
01670  M01S00342.286l859 +++|          NG     X6,PCT11    IF END OF RESCAN FILE
01671  M01S00343.286l859 +++| PCT5     RJ     CSP         CHECK SELECTION PARAMETERS
01672  M01S00344.286l859 +++|          ZR     X6,PCT10    IF FILE NOT TO BE PROCESSED
01673  M01S00345.286l859 +++|          SA3    CPAR+/COMSPFS/CPIP
01674  M01S00346.286l859 +++|          SB2    X6-2
01675  M01S00347.286l859 +++|          NZ     X3,PCT9     IF PROCESSING INHIBITED
01676  M01S00348.286l859 +++|          RJ     SCA         SET CATALOG DISK ADDRESS
01677  M01S00349.286l859 +++|          ZR     B2,PCT6     IF ONLY PFC/PERMITS TO BE DUMPED
01678  M01S00350.286l859 +++|          EQ     B2,B1,PCT7  IF STAGE FILE FROM ALTERNATE STORAGE
01679  M01S00351.286l859 +++|          GT     B2,B1,PCT8  IF COPY FILE FROM ALTERNATE STORAGE TAPE
01680  M00S00970.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01681  M01S00971.286l859 ---| PFD5     RJ     WUP

Seq #  *Modification Id* Act 
----------------------------+
01682  M02S00125.286l859 ---|          RJ     FCM         ISSUE FILE COUNTS

Seq #  *Modification Id* Act 
----------------------------+
01683  M02S00972.286l859 ---|          MESSAGE  (=C* PFDUMP COMPLETE.*)

Seq #  *Modification Id* Act 
----------------------------+
01684  M02S00001.286l859 ---|          MESSAGE  MSGR      * PFDUMP COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
01685  M01S00973.286l859 ---|          ENDRUN

Seq #  *Modification Id* Act 
----------------------------+
01686  M01S00352.286l859 +++|*         DUMP FILE WITH DATA.
01687  M00S00974.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01688  M01S00353.286l859 +++|          RJ     MRE         MAKE READ LIST ENTRY
01689  M01S00354.286l859 +++|          NZ     X6,PCT10    IF READ LIST NOT FULL
01690  M01S00355.286l859 +++|          RJ     PRL         PROCESS READ LIST
01691  M01S00356.286l859 +++|          EQ     PCT10       ADVANCE CATALOG POINTERS
01692  M00S00975.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01693  M01S00976.286l859 ---| PDPM     VFD    24/0,18/PDWD,18/PDUI  PF DESCRIPTION PARAMETER
01694  M01S00977.286l859 ---| PDUI     BSS    1           PF DESCRIPTION USER INDEX

Seq #  *Modification Id* Act 
----------------------------+
01695  M01S00357.286l859 +++|*         DUMP PFC AND PERMITS ONLY.
01696  M00S00978.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01697  M01S00979.ns22000 ---|*PDWD     42/PN,6/EQ,12/0

Seq #  *Modification Id* Act 
----------------------------+
01698  M02S00126.286l859 ---|*T PDWD   42/ PN, 6/, 12/ EQ

Figure PDWD

Seq #  *Modification Id* Act 
----------------------------+
01699  M01S00980.286l859 ---|*         PN = PACKNAME FOR AN AUXILIARY DEVICE.
01700  M01S00981.286l859 ---|*            = 0 FOR A FAMILY DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01701  M02S00982.286l859 ---|*         EQ = EQUIPMENT NUMBER OF A FAMILY DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01702  M02S00127.286l859 ---|*         EQ = EST ORDINAL OF A FAMILY DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01703  M01S00983.286l859 ---|*            = 0 FOR AN AUXILIARY DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
01704  M01S00358.286l859 +++| PCT6     MOVE   NWCE,A0,CATH  SAVE CATALOG ENTRY (PFC)
01705  M01S00359.286l859 +++|          RJ     PPD         PROCESS PFC/PERMITS ONLY DUMP
01706  M01S00360.286l859 +++|          EQ     PCT10       ADVANCE CATALOG POINTERS
01707  M00S00984.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01708  M01S00985.286l859 ---| PDWD     BSS    1           PF DESCRIPTION WORD
01709  M01S00986.286l859 ---| PFDB     CON    0           FILES PROCESSED FLAG

Seq #  *Modification Id* Act 
----------------------------+
01710  M01S00361.286l859 +++|*         STAGE FILE FROM ALTERNATE STORAGE.
01711  M01S00362.286l859 +++|
01712  M01S00363.286l859 +++| PCT7     RJ     RFS         REQUEST FILE STAGING
01713  M01S00364.286l859 +++|          EQ     PCT10       ADVANCE CATALOG POINTERS
01714  M01S00365.286l859 +++|
01715  M01S00366.286l859 +++|*         COPY FILE FROM ALTERNATE STORAGE TAPE.
01716  M01S00367.286l859 +++|
01717  M01S00368.286l859 +++| PCT8     RJ     RFC         REQUEST FILE COPY FROM TAPE
01718  M01S00369.286l859 +++|          EQ     PCT10       ADVANCE CATALOG POINTERS
01719  M01S00370.286l859 +++|
01720  M01S00371.286l859 +++|*         PROCESS DUMP INHIBITED.
01721  M01S00372.286l859 +++|
01722  M01S00373.286l859 +++| PCT9     RJ     PFI         PROCESS FILE WITH DUMP INHIBITED
01723  M01S00374.286l859 +++|
01724  M01S00375.286l859 +++|*         ADVANCE CATALOG POINTERS.
01725  M01S00376.286l859 +++|
01726  M01S00377.286l859 +++| PCT10    SA1    CTIN
01727  M01S00378.286l859 +++|          SA2    CSLW
01728  M01S00379.286l859 +++|          SX3    B1
01729  M01S00380.286l859 +++|          MX7    -2
01730  M01S00381.286l859 +++|          BX7    -X7*X1      INDEX IN CATALOG SECTOR
01731  M01S00382.286l859 +++|          IX6    X1+X3       ADVANCE CATALOG TRACK INDEX
01732  M01S00383.286l859 +++|          LX7    4           WORD OFFSET IN SECTOR
01733  M01S00384.286l859 +++|          ERRNZ  NWCE-20B
01734  M01S00385.286l859 +++|          SA6    A1
01735  M01S00386.286l859 +++|          SX7    X7+CSBF+NWCE  ADVANCE CATALOG ADDRESS
01736  M01S00387.286l859 +++|          IX2    X7-X2
01737  M01S00388.286l859 +++|          SA0    X7          SET CATALOG ADDRESS
01738  M01S00389.286l859 +++|          NG     X2,PCT3     IF MORE ENTRIES IN CURRENT SECTOR
01739  M01S00390.286l859 +++|          EQ     PCT2        READ NEXT CATALOG SECTOR
01740  M01S00391.286l859 +++|
01741  M01S00392.286l859 +++|*         END OF CATALOG TRACK.
01742  M01S00393.286l859 +++|
01743  M01S00394.286l859 +++| PCT11    RJ     PRL         PROCESS READ LIST
01744  M01S00395.286l859 +++|          SA1    RSTS
01745  M01S00396.286l859 +++|          ZR     X1,PCTX     IF NO FILE STAGE REQUESTED
01746  M01S00397.286l859 +++|          RJ     IRS         INITIALIZE RESCAN
01747  M01S00398.286l859 +++|          NZ     X6,PCT1     IF RESCAN NOT TERMINATED
01748  M01S00399.286l859 +++|          EQ     PCTX        RETURN
01749  M00S00987.pfdump  +++|          TITLE  GENERAL SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
01750  M01S00988.253l688 ---| AEP      SPACE  4,15
01751  M01S00989.253l688 ---|**        AEP - ABORT END PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
01752  M02S00081.286l859 ---| ABT      SPACE  4,15
01753  M02S00082.286l859 ---|**        ABT - ABORT PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
01754  M01S00400.286l859 +++| AAT      SPACE  4,10
01755  M01S00401.286l859 +++|**        AAT - ASSIGN ALTERNATE STORAGE TAPE.
01756  M00S00990.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01757  M01S00991.253l688 ---|*         ENTRY  AT *EXP* FOR REPRIEVE PROCESSING.
01758  M01S00992.253l688 ---|*                (X1) = ADDRESS OF ERROR MESSAGE TO SEND TO DAYFILE.
01759  M01S00993.253l688 ---|*
01760  M01S00994.253l688 ---|*         EXIT   NONE - JOB ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
01761  M02S00083.286l859 ---|*         ENTRY  (X1) = ADDRESS OF ERROR MESSAGE TO SEND TO DAYFILE.
01762  M02S00084.286l859 ---|*                AT *ABT3* FOR REPRIEVE PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
01763  M01S00402.286l859 +++|*         ENTRY  (ASTI) = TAPE REQUEST PARAMETERS FROM REQUEST FILE.
01764  M00S00995.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01765  M01S00996.286l859 ---|*         USES   X - 0, 1, 6.
01766  M01S00997.286l859 ---|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
01767  M01S00403.286l859 +++|*         USES   X - 1, 2, 5, 6, 7.
01768  M01S00404.286l859 +++|*                A - 5, 6, 7.
01769  M00S00998.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01770  M01S00999.ns22000 ---|*         CALLS  CAC, RLF, TAF.

Seq #  *Modification Id* Act 
----------------------------+
01771  M02S00128.253l688 ---|*         CALLS  CAC, FCM, RLF, TAF.

Seq #  *Modification Id* Act 
----------------------------+
01772  M02S00085.286l859 ---|*         CALLS  CAC, FCM, RLF, TAF, TOF.

Seq #  *Modification Id* Act 
----------------------------+
01773  M01S00405.286l859 +++|*         CALLS  CDD.
01774  M00S01000.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01775  M01S01001.253l688 ---|*         MACROS ABORT, COMPFET, MESSAGE, REPRIEVE,
01776  M01S01002.253l688 ---|*                RETURN, SETPFP, WRITER.

Seq #  *Modification Id* Act 
----------------------------+
01777  M02S00086.286l859 ---|*         MACROS ABORT, COMPFET, MESSAGE, REPRIEVE, RETURN, SETPFP,
01778  M02S00087.286l859 ---|*                WRITER.

Seq #  *Modification Id* Act 
----------------------------+
01779  M01S00406.286l859 +++|*         MACROS LABEL.
01780  M00S01003.pfdump  +++|
01781  M00S01004.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01782  M01S01005.253l688 ---| EXP      COMPFET  (CATS,PETS,DATA,CATC,TAPE,PFVER,OUTPUT,PURGE)
01783  M01S01006.253l688 ---|          COMPFET  (PURGE,ACFT,REQS,RESS,RDF)

Seq #  *Modification Id* Act 
----------------------------+
01784  M02S00088.286l859 ---| ABT3     BSS    0           ENTRY
01785  M02S00089.286l859 ---|          COMPFET  (CATS,PETS,DATA,CATC,TAPE,PFVER,OUTPUT,SU,PFMREQ)
01786  M02S00090.286l859 ---|          COMPFET  (ACFT,REQS,RESS,RDF)

Seq #  *Modification Id* Act 
----------------------------+
01787  M01S01007.286l859 ---|          SX1    MSGB        SET ABORT MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01788  M01S00407.286l859 +++| AAT      SUBR               ENTRY/EXIT
01789  M00S01008.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01790  M01S00408.286l859 +++|*         SET TAPE DESCRIPTORS.
01791  M00S01009.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
01792  M01S01010.253l688 ---| AEP      MESSAGE  X1
01793  M01S01011.253l688 ---|          SA1    AEPA

Seq #  *Modification Id* Act 
----------------------------+
01794  M02S00091.286l859 ---| ABT      BSS    0           ENTRY
01795  M02S00092.286l859 ---|          MESSAGE  X1
01796  M02S00093.286l859 ---|          SA1    ABTA

Seq #  *Modification Id* Act 
----------------------------+
01797  M01S01012.286l859 ---|          SX6    B1          SET ABORT IN-PROCESS FLAG

Seq #  *Modification Id* Act 
----------------------------+
01798  M01S00409.286l859 +++|          SA5    ASTI
01799  M01S00410.286l859 +++|          SX7    2450B       SET LABELED *GE* TAPE
01800  M01S00411.286l859 +++|          SX2    /COMSMTX/TFI+5000B  SET *I* FORMAT AND OPTIONS
01801  M01S00412.286l859 +++|          LX5    0-55
01802  M01S00413.286l859 +++|          MX6    -2
01803  M01S00414.286l859 +++|          BX6    -X6*X5      CARTRIDGE TAPE FLAGS
01804  M01S00415.286l859 +++|          LX6    7
01805  M01S00416.286l859 +++|          ZR     X6,AAT1     IF NOT CARTRIDGE TAPE
01806  M01S00417.286l859 +++|          SX7    X6+2000B    SET LABELED *CT* OR *AT* TAPE
01807  M01S00418.286l859 +++| AAT1     PL     X5,AAT2     IF NOT *LI* FORMAT TAPE
01808  M01S00419.286l859 +++|          SX2    /COMSMTX/TFLI+5000B  SET *LI* FORMAT AND OPTIONS
01809  M01S00420.286l859 +++| AAT2     LX7    48
01810  M01S00421.286l859 +++|          LX2    30-0
01811  M01S00422.286l859 +++|          BX7    X7+X2       MERGE TAPE DEVICE TYPE AND FORMAT
01812  M01S00423.286l859 +++|          LX5    0-24-0+55
01813  M01S00424.286l859 +++|          SA7    AST+10B     SET TAPE DEVICE TYPE AND FORMAT
01814  M01S00425.286l859 +++|
01815  M01S00426.286l859 +++|*         SET VSN.
01816  M01S00427.286l859 +++|
01817  M01S00428.286l859 +++|          MX6    -12
01818  M01S00429.286l859 +++|          BX1    -X6*X5      VSN NUMERIC SUFFIX
01819  M01S00430.286l859 +++|          SX1    X1+10000D   FORCE CONVERSION OF LEADING ZEROES
01820  M01S00431.286l859 +++|          RJ     CDD         CONVERT VSN SUFFIX
01821  M01S00432.286l859 +++|          MX7    -24
01822  M01S00433.286l859 +++|          BX6    -X7*X6      CONVERTED VSN SUFFIX
01823  M01S00434.286l859 +++|          MX7    12
01824  M01S00435.286l859 +++|          LX6    24
01825  M01S00436.286l859 +++|          LX5    36
01826  M01S00437.286l859 +++|          BX7    X7*X5       VSN PREFIX
01827  M01S00438.286l859 +++|          BX7    X7+X6       MERGE PREFIX AND SUFFIX
01828  M01S00439.286l859 +++|          SX6    B0
01829  M01S00440.286l859 +++|          SA7    AST+11B     SET VSN
01830  M01S00441.286l859 +++|
01831  M01S00442.286l859 +++|*         ASSIGN TAPE.
01832  M01S00443.286l859 +++|
01833  M01S00444.286l859 +++|          SA6    A7+B1       CLEAR UNUSED FET FIELDS
01834  M01S00445.286l859 +++|          SA6    A6+B1
01835  M01S00446.286l859 +++|          SA6    A6+B1
01836  M01S00447.286l859 +++|          SA6    A6+B1
01837  M01S00448.286l859 +++|          SA1    AST+1
01838  M01S00449.286l859 +++|          MX6    -48
01839  M01S00450.286l859 +++|          BX6    -X6*X1      CLEAR DEVICE CODE
01840  M01S00451.286l859 +++|          SX7    X1
01841  M00S01013.pfdump  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01842  M01S01014.253l688 ---|          NZ     X1,AEP1     IF NOT FIRST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01843  M02S00094.286l859 ---|          NZ     X1,ABT1     IF NOT FIRST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01844  M02S01015.286l859 ---|          MESSAGE  (=C* PFDUMP - ABORT REPRIEVE BEGUN.*)

Seq #  *Modification Id* Act 
----------------------------+
01845  M02S00002.286l859 ---|          MESSAGE  MSGM      * PFDUMP - ABORT REPRIEVE BEGUN.*

Seq #  *Modification Id* Act 
----------------------------+
01846  M02S01016.286l859 ---| AEP1     RJ     CAC         CLEAR PERMANENT FILE ACTIVITY COUNT
01847  M02S01017.286l859 ---|          SETPFP GPAR        RESTORE PERMANENT FILE PARAMETERS
01848  M02S01018.286l859 ---|          RETURN CATS        RETURN DUMP SYSTEM FILES

Seq #  *Modification Id* Act 
----------------------------+
01849  M03S00001.286l859 ---| AEP1     RETURN CATS        RETURN SYSTEM FILES

Seq #  *Modification Id* Act 
----------------------------+
01850  M02S00095.286l859 ---| ABT1     RETURN CATS        RETURN SYSTEM FILES

Seq #  *Modification Id* Act 
----------------------------+
01851  M01S01019.286l859 ---|          RETURN PETS
01852  M01S01020.286l859 ---|          RETURN DATA
01853  M01S01021.286l859 ---|          RETURN CATC
01854  M01S01022.286l859 ---|          RETURN REQS
01855  M01S01023.286l859 ---|          RETURN RESS
01856  M01S01024.286l859 ---|          RJ     RLF         RELEASE LOCK FILES

Seq #  *Modification Id* Act 
----------------------------+
01857  M02S01025.286l859 ---|          RETURN PURGE

Seq #  *Modification Id* Act 
----------------------------+
01858  M02S00096.286l859 ---|          RETURN PFMREQ

Seq #  *Modification Id* Act 
----------------------------+
01859  M02S00002.286l859 ---|          RJ     CAC         CLEAR PERMANENT FILE ACTIVITY COUNT

Seq #  *Modification Id* Act 
----------------------------+
01860  M02S00129.286l859 ---|          RJ     FCM         ISSUE FILE COUNTS

Seq #  *Modification Id* Act 
----------------------------+
01861  M01S01026.286l859 ---|          RJ     TAF         TERMINATE ARCHIVE FILE

Seq #  *Modification Id* Act 
----------------------------+
01862  M02S01027.286l859 ---|          WRITER OUTPUT      FLUSH OUTPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01863  M02S00097.286l859 ---|          RJ     TOF         TERMINATE OUTPUT FILES

Seq #  *Modification Id* Act 
----------------------------+
01864  M02S00003.286l859 ---|          SETPFP GPAR        RESTORE PERMANENT FILE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
01865  M02S01028.286l859 ---|          SA1    AEPB+7      CHECK ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01866  M02S00098.286l859 ---|          SA1    ABTB+7      CHECK ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01867  M01S01029.286l859 ---|          MX0    -12
01868  M01S01030.286l859 ---|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01869  M02S01031.286l859 ---|          ZR     X1,AEP2     IF NO ERRORS TO RESET

Seq #  *Modification Id* Act 
----------------------------+
01870  M02S00099.286l859 ---|          ZR     X1,ABT2     IF NO ERRORS TO RESET

Seq #  *Modification Id* Act 
----------------------------+
01871  M01S01032.286l859 ---|          SX1    X1-TIET

Seq #  *Modification Id* Act 
----------------------------+
01872  M02S01033.286l859 ---|          ZR     X1,AEP2     IF TERMINAL INTERRUPT

Seq #  *Modification Id* Act 
----------------------------+
01873  M02S00100.286l859 ---|          ZR     X1,ABT2     IF TERMINAL INTERRUPT

Seq #  *Modification Id* Act 
----------------------------+
01874  M02S01034.286l859 ---|          BX6    X6-X6       CLEAR REPRIEVED RA+1 REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01875  M02S00045.286l859 ---|          BX6    X6-X6       CLEAR REPRIEVED SYSTEM REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01876  M02S01035.286l859 ---|          SA6    AEPB+5

Seq #  *Modification Id* Act 
----------------------------+
01877  M02S00101.286l859 ---|          SA6    ABTB+5

Seq #  *Modification Id* Act 
----------------------------+
01878  M02S00003.286l859 ---|          MESSAGE  MSGO      * PFDUMP - ABORT REPRIEVE COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
01879  M02S01036.286l859 ---|          REPRIEVE  AEPB,RESET,0  RESET ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01880  M02S00102.286l859 ---|          REPRIEVE  ABTB,RESET,0  RESET ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
01881  M01S01037.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01882  M02S01038.286l859 ---| AEP2     REPRIEVE  AEPB,SET,0  DISABLE REPRIEVE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
01883  M02S00103.286l859 ---| ABT2     REPRIEVE  ABTB,SET,0  DISABLE REPRIEVE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
01884  M02S01039.286l859 ---|          MESSAGE  (=C* PFDUMP - ABORT REPRIEVE COMPLETED.*)

Seq #  *Modification Id* Act 
----------------------------+
01885  M02S00004.286l859 ---|          MESSAGE  MSGO      * PFDUMP - ABORT REPRIEVE COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
01886  M01S01040.286l859 ---|          ABORT
01887  M01S01041.286l859 ---|
01888  M01S01042.286l859 ---|

Seq #  *Modification Id* Act 
----------------------------+
01889  M02S01043.286l859 ---| AEPA     BSSZ   1           ABORT IN-PROCESS FLAG
01890  M02S01044.286l859 ---|
01891  M02S01045.286l859 ---|**        AEPB - ABORT END PROCESSOR - REPRIEVE PARAMETER BLOCK.
01892  M02S01046.286l859 ---|*
01893  M02S01047.286l859 ---|*T AEPB+0 36/,12/ LENGTH,2/,9/ FUNC,1/C

Figure AEPB+0

01894  M02S01048.286l859 ---|*T,AEPB+1 30/ CHECKSUM LWA,30/ TRANSFER ADDRESS

Figure AEPB+1

Proceed to Part 2