COMSPFS 
COMMON
          CTEXT  COMSPFS - PERMANENT FILE SUPERVISOR EQUIVALENCES.
          SPACE  4,10 
          QUAL   COMSPFS
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMSPFS - PF SUPERVISOR EQUIVALENCES. 
*         S. T. WORSTELL     73/02/15.
*         P. L. VERELL       79/05/18.
*         G. S. YODER        87/04/20.
          SPACE  4,10 
***       *COMSPFS* DEFINES ALL EQUIVALENCES NECESSARY FOR PROPER 
*         COMMUNICATION BETWEEN THE PF UTILITY PROGRAMS AND THE PF
*         SUPERVISOR (*PFS*). 
          SPACE  4,10 
***       WHEREVER POSSIBLE, PARAMETERS AVAILABLE FOR THE UTILITIES 
*         WILL BE COMPATIBLE WITH ALL UTILITIES.  THE FOLLOWING TABLE 
*         ILLUSTRATES ALL POSSIBLE PARAMETERS, OPTIONS AVAILABLE FOR
*         PARAMETERS, AND FOR WHICH UTILITIES THEY ARE VALID ENTRIES. 
* 
*         *PFRES* DOES NOT HAVE ANY PARAMETERS.  A VALUE OF *ALL* DOES
*         NOT INCLUDE *PFRES*.
* 
* AD = AFTER DATE                 ALL 
* 
* AT = AFTER TIME                 ALL 
* 
* BD = BEFORE DATE                ALL 
* 
* BT = BEFORE TIME                ALL 
* 
* CA = CARTRIDGE ALTERNATE        ALL 
*      STORAGE ADDRESS SELECTION
* 
* CCA = CLEAR CARTRIDGE ALTERNATE ALL 
*       STORAGE SELECTION 
* 
* CCN = CLEAR CHARGE NUMBER       ALL 
*       SELECTION 
* 
* CDA = CLEAR DISK ADDRESS        ALL 
*       SELECTION 
* 
* CN = CHARGE NUMBER SELECTION    ALL 
* 
* COS = *PFC* ONLY SIZE LIMIT     PFDUMP
* 
* CPF = CLEAR PERMANENT FILE      ALL 
*       NAME SELECTION
* 
* CPN = CLEAR PROJECT NUMBER      ALL 
*       SELECTION 
* 
* CTA = CLEAR TAPE ALTERNATE      ALL 
*       STORAGE SELECTION 
* 
* CUI = CLEAR USER INDEX          ALL 
*       SELECTION 
* 
* DA = DISK ADDRESS SELECTION     ALL 
* 
* DD = DESTINATION DEVICE NUMBER  PFLOAD
* 
* DI = DESTINATION USER INDEX     PFLOAD
* 
* DN = MASTER DEVICE NUMBER       PFLOAD, PFDUMP, PFCAT, PFREL
* 
* DT = DESTAGE TO TAPE DUMP       PFDUMP
* 
* EO   ERROR OPTION               PFLOAD
* 
* FM = FAMILY NAME                PFLOAD, PFDUMP, PFCAT, PFREL
* 
* I  = INPUT DIRECTIVES FILE      ALL 
* 
* IP = INHIBIT PROCESSING         PFDUMP, PFREL 
* 
* L = OUTPUT FILE NAME            ALL 
* 
* LA = UPPER ACCESS LEVEL         ALL 
* 
* LO = LIST OPTION
* 
*         C - FILES ON CIR        PFLOAD, PFDUMP, PFATC, PFLIST 
*         E - ERRORS              ALL 
*         S - SUMMARY STATISTICS  ALL 
*         T - FILES PROCESSED     ALL 
* 
* LS = LOWER SIZE LIMIT           ALL 
* 
* MF = MASTER FILE NAME           PFCOPY
* 
* N  = NUMBER OF FILES TO PROCESS PFLOAD, PFATC, PFCOPY 
* 
* OP = UTILITY OPTION 
* 
*         A - ACCESS DATE         ALL 
*         C - CREATION DATE       ALL 
*         D - DIRECT ACCESS       ALL 
*         E - EXTRACT CIR ONLY    PFLOAD
*         I - INDIRECT ACCESS     ALL 
*         K - ENABLE K-DISPLAY    ALL 
*             ON PARAMETER ERRORS 
*         L - LOAD LEVELING       PFLOAD
*         M - MODIFICATION DATE   ALL 
*         O - OMIT CIR            PFLOAD
*         P - PURGE AFTER DUMP    PFDUMP
*         Q - ADD CATALOG AND     PFCOPY
*             PERMIT RECORDS
*         R - REPLACE             PFLOAD
*         S - SUPPRESS FILE       PFDUMP
*             STAGING 
*         T - DATA MODIFICATION   ALL 
*             DATE
*         V - USE VSN FROM LABEL  PFLOAD
*         Y - PROCESS ALL AS BR=Y PFDUMP
*         Z - ZERO OUT ALTERNATE  PFDUMP, PFLOAD
*             STORAGE POINTERS
* 
* PF = PERMANENT FILE NAME        ALL 
*      SELECTION
* 
* PN = PACK NAME                  PFLOAD, PFDUMP, PFCAT, PFREL
* 
* PS = PROCESSING STATUS          ALL 
* 
* PVSN = PREVIOUS ARCHIVE TAPE    PFDUMP
*        VSN
* 
* RD = RELEASE DATA FILE NAME     PFDUMP
* 
* S = SUMMARY FILE                PFLOAD, PFDUMP, PFATC, PFCOPY, PFCAT, 
*                                 PFREL 
* 
* SD   SET DISK SPACE RELEASE     PFDUMP
*      DATE 
* 
* SF = NUMBER OF FILES TO SKIP    PFLOAD, PFDUMP, PFATC, PFCOPY 
* 
* SPN = PROJECT NUMBER SELECTION  ALL 
* 
* SR = SUMMARY FILE RECORD NAME   PFLOAD, PFDUMP, PFATC, PFCOPY, PFCAT, 
*                                 PFREL 
* 
* SI = SUMMARY INPUT FILE NAME    PFLIST
* 
* T  = ARCHIVE FILE NAME          PFLOAD, PFDUMP, PFATC, PFCOPY 
* 
* TA = TAPE ALTERNATE STORAGE     ALL 
*      ADDRESS SELECTION
* 
* TD = TRUE DEVICE NUMBER         PFLOAD, PFDUMP, PFCAT, PFREL
* 
* UA = LOWER ACCESS LEVEL         ALL 
* 
* UD   UPDATE UTILITY CONTROL     PFLOAD
*      DATE 
* 
* UI = USER INDEX SELECTION       ALL 
* 
* UN = USER NAME                  ALL 
* 
* US = UPPER SIZE LIMIT           ALL 
* 
* VF = VERIFY FILE NAME           PFDUMP
          SPACE  4,40 
***       DESCRIPTION OF PERMANENT FILE UTILITY PARAMETERS. 
* 
*         AD = YYMMDD.  EXPLICIT DATE ENTERED AS SIX DECIMAL DIGITS 
*                         YY = YEAR, MM = MONTH, DD = DAY.
*         AD = BDN.     DATE N DAYS BEFORE THE CURRENT DATE.
*         AD = BN.      DATE N DAYS BEFORE THE CURRENT DATE.
*         AD = 0.       CLEAR PREVIOUS *AD* ENTRY.
* 
*           SPECIFIES THE DATE TO BE USED FOR AFTER SELECTION WHEN THE
*           C, A, M, OR T OPTION IS SPECIFIED.  THE DEFAULT IS THE
*           CURRENT DATE, BUT IS ONLY APPLICABLE WHEN EITHER THE AFTER
*           TIME (AT=) IS SPECIFIED IN HHMMSS FORM, OR NEITHER THE
*           BEFORE DATE (BD=) NOR THE BEFORE TIME (BT=) HAVE BEEN 
*           SPECIFIED.  AN EXPRESSION OF THE FORM BDN OR BN REPRESENTS
*           THE DATE N DAYS BEFORE THE CURRENT DATE.  THE CURRENT DATE
*           CAN BE EXPRESSED AS BD0 OR B0.  AN EXPRESSION BDN OR BN CAN 
*           BE USED WITH THE *AT* PARAMETER EXPRESSED AS HHMMSS TO
*           REPRESENT THE TIME HHMMSS N DAYS AGO.  AN *AT* EXPRESSION 
*           OF THE FORM BDN, BHN, BN, BMN, OR BSN WILL OVERRIDE AN
*           ENTERED *AD* PARAMETER SINCE IT DETERMINES BOTH THE AFTER 
*           TIME AND THE AFTER DATE.  A VALUE OF 0 CLEARS A PREVIOUS
*           *AD* ENTRY. 
* 
*         AT = HHMMSS.  EXPLICIT TIME ENTERED AS SIX DECIMAL DIGITS 
*                         HH = HOUR, MM = MINUTE, SS = SECOND.
*         AT = BDN.     TIME AND DATE N DAYS BEFORE THE CURRENT TIME
*                         AND DATE. 
*         AT = BHN.     TIME AND DATE N HOURS BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         AT = BN.      TIME AND DATE N HOURS BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         AT = BMN.     TIME AND DATE N MINUTES BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         AT = BSN.     TIME AND DATE N SECONDS BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         AT = 0.       CLEAR PREVIOUS *AT* ENTRY.
* 
*           SPECIFIES THE TIME TO BE USED FOR AFTER SELECTION WHEN THE
*           C, A, M, OR T OPTION IS SPECIFIED.  THE DEFAULT IS MIDNIGHT 
*           (00.00.00 HOURS), BUT IS ONLY APPLICABLE WHEN THE AFTER 
*           DATE (AD=) IS SPECIFIED.  AN EXPRESSION OF THE FORM BDN,
*           BHN, BMN, OR BSN DEFINES BOTH THE AFTER TIME AND AFTER DATE 
*           N DAYS, HOURS, MINUTES, OR SECONDS BEFORE THE CURRENT TIME
*           AND DATE.  AN EXPRESSION BN IS EQUIVALENT TO THE EXPRESSION 
*           BHN (HOURS ARE ASSUMED).  A VALUE OF 0 CLEARS A PREVIOUS
*           *AT* ENTRY. 
* 
*         BD = YYMMDD.  EXPLICIT DATE ENTERED AS SIX DECIMAL DIGITS 
*                         YY = YEAR, MM = MONTH, DD = DAY.
*         BD = BDN.     DATE N DAYS BEFORE THE CURRENT DATE.
*         BD = BN.      DATE N DAYS BEFORE THE CURRENT DATE.
*         BD = 0.       CLEAR PREVIOUS *BD* ENTRY.
* 
*           SPECIFIES THE DATE TO BE USED FOR BEFORE SELECTION WHEN THE 
*           C, A, M, OR T OPTION IS SPECIFIED.  THE DEFAULT IS THE
*           CURRENT DATE, BUT IS ONLY APPLICABLE WHEN THE BEFORE TIME 
*           (BT=) IS SPECIFIED IN HHMMSS FORM.  AN EXPRESSION OF THE
*           FORM BDN OR BN REPRESENTS THE DATE N DAYS BEFORE THE
*           CURRENT DATE.  THE CURRENT DATE CAN BE EXPRESSED AS BD0 OR
*           B0.  AN EXPRESSION BDN OR BN CAN BE USED WITH A *BT*
*           PARAMETER EXPRESSED AS HHMMSS TO REPRESENT THE TIME HHMMSS
*           N DAYS AGO.  A *BT* EXPRESSION OF THE FORM BDN, BHN, BN,
*           BMN, OR BSN WILL OVERRIDE AN ENTERED *BD* PARAMETER SINCE 
*           IT DETERMINES BOTH THE BEFORE TIME AND THE BEFORE DATE.  A
*           VALUE OF 0 CLEARS A PREVIOUS *BD* ENTRY.
* 
*         BT = HHMMSS.  EXPLICIT TIME ENTERED AS SIX DECIMAL DIGITS 
*                         HH = HOUR, MM = MINUTE, SS = SECOND.
*         BT = BDN.     TIME AND DATE N DAYS BEFORE THE CURRENT TIME
*                         AND DATE. 
*         BT = BHN.     TIME AND DATE N HOURS BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         BT = BN.      TIME AND DATE N HOURS BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         BT = BMN.     TIME AND DATE N MINUTES BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         BT = BSN.     TIME AND DATE N SECONDS BEFORE THE CURRENT TIME 
*                         AND DATE. 
*         BT = 0.       CLEAR PREVIOUS *BT* ENTRY.
* 
*           SPECIFIES THE TIME TO BE USED FOR BEFORE SELECTION WHEN THE 
*           C, A, M, OR T OPTION IS SPECIFIED.  THE DEFAULT IS MIDNIGHT 
*           (00.00.00 HOURS), BUT IS ONLY APPLICABLE WHEN THE BEFORE
*           DATE (BD=) IS SPECIFIED.  AN EXPRESSION OF THE FORM BDN,
*           BHN, BMN, OR BSN REPRESENTS BOTH THE BEFORE TIME AND BEFORE 
*           DATE N DAYS, HOURS, MINUTES, OR SECONDS BEFORE THE CURRENT
*           DATE AND TIME.  AN EXPRESSION BN IS EQUIVALENT TO THE 
*           EXPRESSION BHN (HOURS ARE ASSUMED).  A VALUE OF 0 CLEARS A
*           PREVIOUS *BT* ENTRY.
* 
*         CA = R. 
*         CA = N. 
* 
*           DEFAULT = NO CARTRIDGE ALTERNATE STORAGE ADDRESS
*                     SELECTIONS. 
* 
*           THIS PARAMETER SELECTS FILES FOR PROCESSING ACCORDING TO
*           RESIDENCE ON CARTRIDGE ALTERNATE STORAGE .  A VALUE OF *R*
*           WILL SELECT FILES WHICH RESIDE ON CARTRIDGE ALTERNATE 
*           STORAGE MEDIA.  A VALUE OF *N* WILL SELECT FILES WHICH DO 
*           NOT RESIDE ON CARTRIDGE ALTERNATE STORAGE MEDIA.
* 
*         CCA = R.
*         CCA = N.
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *CA* PARAMETER.
* 
*         CCN = CHARGE NUMBER. 1 TO 10 ALPHANUMERIC CHARACTERS. 
*         CCN = 0.
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *CN*.  ALL PROJECT NUMBER SELECTIONS FOR THIS
*           CHARGE NUMBER ARE CANCELED.  A VALUE OF *0* CANCELS THE 
*           SELECTION OF FILES WITH A NULL CHARGE NUMBER. 
* 
*         CDA = DEVICE NUMBER.  1 OR 2 OCTAL DIGITS.
*         CDA = R.
*         CDA = N.
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *DA* PARAMETER.
* 
*         CN = CHARGE NUMBER.  1 TO 10 ALPHANUMERIC CHARACTERS. 
*         CN = 0. 
* 
*           DEFAULT = NO CHARGE NUMBER SPECIFIED. 
* 
*           SPECIFIES A CHARGE NUMBER FOR FILE SELECTION.  IF NO
*           PROJECT NUMBERS ARE SELECTED FOR THE CHARGE NUMBER AT THE 
*           TIME OF ENTRY, ALL FILES HAVING THAT CHARGE NUMBER WILL BE
*           SELECTED.  IF SELECTIONS (ALL PROJECT NUMBERS OR SPECIFIC 
*           PROJECT NUMBERS) ALREADY EXIST FOR THE CHARGE NUMBER, ENTRY 
*           OF *CN* DEFINES THE CHARGE NUMBER TO BE USED WITH 
*           SUBSEQUENT *SPN* AND *CPN* ENTRIES.  A VALUE OF *0* SELECTS 
*           FILES HAVING A NULL CHARGE NUMBER.  NO PROJECT NUMBER 
*           SELECTIONS CAN BE ENTERED FOR THE NULL CHARGE NUMBER. 
* 
*         COS = CATALOG (*PFC*) ONLY SIZE LIMT.  1 TO 7 DIGITS. 
*         COS = *.
* 
*           NUMERIC ENTRY ASSUMED DECIMAL IF RADIX NOT SPECIFIED. 
*           DEFAULT = 0.
* 
*           THIS PARAMETER DETERMINES WHETHER *PFDUMP* WILL DUMP ONLY 
*           THE CATALOG (*PFC*) ENTRIES AND PERMITS OF FILES WHICH
*           RESIDE ON ALTERNATE STORAGE MEDIA.  FOR FILES LARGER THAN 
*           OR EQUAL TO THE SPECIFIED LENGTH, ONLY THE CATALOG ENTRIES
*           AND PERMITS WILL BE DUMPED UNLESS THE BACKUP REQUIREMENT
*           REQUIRES A DATA DUMP.  FOR FILES SMALLER THAN THE SPECIFIED 
*           LENGTH, THE DATA WILL ALSO BE DUMPED UNLESS THE FILE IS NOT 
*           DISK RESIDENT AND STAGING IS EXPLICITLY SUPPRESSED (OP=S).
*           A VALUE OF * SETS NO SIZE LIMIT, SELECTING A DATA DUMP FOR
*           ALL FILES.  IF *LS* OR *US* SIZE LIMITS ARE ALSO SPECIFIED, 
*           THESE CRITERIA WILL BE CHECKED BEFORE THE *COS* PARAMETER.
* 
*         CPF = PERMANENT FILE NAME.
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *PF* PARAMETER.  IF ALL PERMANENT FILE NAMES FOR A 
*           USER INDEX HAVE BEEN CLEARED, ALL FILES FOR THE THAT USER 
*           INDEX WILL BE PROCESSED.
* 
*         CPN = PROJECT NUMBER.  1 TO 20 ALPHANUMERIC CHARACTERS. 
*         CPN = 0.
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *SPN* PARAMETER.  IF ALL PROJECT NUMBER SELECTIONS 
*           FOR A SPECIFIED CHARGE NUMBER HAVE BEEN CLEARED, ALL FILES
*           FOR THAT CHARGE NUMBER WILL BE SELECTED.  A VALUE OF *0*
*           CANCELS SELECTION OF FILES HAVING A NULL PROJECT NUMBER.
* 
*         CTA = TAPE ALTERNATE STORAGE VSN.  TWO ALPHNUMERIC CHARACTERS 
*               FOLLOWED BY FOUR DECIMAL DIGITS.
*         CTA = R.
*         CTA = N.
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *TA* PARAMETER.
* 
*         CUI = USER INDEX.  1 TO 6 OCTAL DIGITS. 
* 
*           THIS PARAMETER CANCELS THE EFFECT OF A CORRESPONDING
*           PREVIOUS *UI* OR *UN* PARAMETER.  ALL FILE SELECTIONS FOR 
*           THIS USER INDEX ARE CANCELED. 
* 
*         DA = DEVICE NUMBER.  1 OR 2 OCTAL DIGITS. 
*         DA = R. 
*         DA = N. 
* 
*           DEFAULT = NO DISK ADDRESS SELECTIONS. 
* 
*         SELECTS FILES FOR PROCESSING ACCORDING TO RESIDENCE ON DISK 
*         (DISK ADDRESS).  FILES WILL BE SELECTED WHICH RESIDE ON ONE 
*         OF THE SPECIFIED DEVICE NUMBERS.  A VALUE OF *R* WILL SELECT
*         ALL FILES WHICH RESIDE ON DISK.  A VALUE OF *N* WILL SELECT 
*         ALL FILES WHICH DO NOT RESIDE ON DISK.
* 
*         DD = DESTINATION DEVICE NUMBER.  1 OR 2 OCTAL DIGITS. 
* 
*           DEFAULT = 0 (NO DESTINATION DEVICE).
* 
*           IF NON-ZERO, THIS PARAMETER SPECIFIES TO *PFLOAD* THE 
*           DEVICE TO WHICH FILES ARE TO BE LOADED IF THEY CANNOT BE
*           LOADED TO THEIR ORIGINAL RESIDENCY DEVICE.
* 
*         DI = DESTINATION USER INDEX.  1 TO 6 OCTAL DIGITS.
* 
*           DEFAULT = 0 (NO DESTINATION USER INDEX SPECIFIED).
* 
*           IF NON-ZERO, THIS PARAMETER INDICATES TO *PFLOAD* THE USER
*           INDEX TO WHICH FILES SHOULD BE LOADED.  ALL FILES BEING 
*           PROCESSED WILL BE LOADED TO THIS USER INDEX.  THE PARAMETER 
*           IS ASSUMED OCTAL UNLESS D RADIX OR NON-OCTAL DIGIT IS 
*           USED. 
* 
*         DN = DEVICE NUMBER.  1 OR 2 OCTAL DIGITS. 
* 
*           DEFAULT = 0 (NO DEVICE NUMBER SELECTION). 
* 
*           FOR *PFDUMP*, *PFCAT*, OR *PFREL*, FILES CATALOGED ON THE 
*           SPECIFIED DEVICE WILL BE SELECTED FOR PROCESSING. 
* 
*           FOR *PFLOAD*, FILES WHICH HAVE USER INDICES CORRESPONDING 
*           TO THE DEVICE MASK OF THE SPECIFIED DEVICE WILL BE SELECTED 
*           FOR PROCESSING. 
* 
*           *DN* CANNOT BE SPECIFIED CONCURRENTLY WITH THE *TD* 
*           PARAMETER.
* 
*         DT  DESTAGE TO TAPE OPTION. 
* 
*           THIS PARAMETER SPECIFIES THAT *PFDUMP* IS TO WRITE AN 
*           ALTERNATE STORAGE TAPE OR TAPES AND UPDATE THE CATALOG
*           ENTRIES OF THE DUMPED FILES TO REFLECT RESIDENCE ON THOSE 
*           TAPES.  FOR A DESTAGE DUMP, THE ARCHIVE FILE (*T* 
*           PARAMETER) MUST BE ASSIGNED TO A LABELED NINE TRACK,
*           CARTRIDGE, OR ACS CARTRIDGE TAPE.  THE TAPE MUST BE *I* OR
*           *LI* FORMAT AND THE VSN MUST BE TWO ALPHNUMERIC CHARACTERS
*           FOLLOWED BY FOUR NUMERIC CHARACTERS FROM 0000 TO 4095.
*           THIS IS REFERRED TO AS THE PRIMARY TAPE IN THE CASE WHERE 
*           TWO TAPES ARE WRITTEN.  TO CREATE A SECONDARY TAPE, THE 
*           VERIFY FILE OPTION (*VF*) MUST BE SPECIFED AND THAT FILE
*           MUST BE A TAPE OF THE SAME TYPE AND FORMAT AS THE PRIMARY 
*           TAPE.  THE FIRST TWO CHARACTERS OF THE SECONDARY VSN MUST 
*           MATCH THE PRIMARY VSN AND THE LAST FOUR CHARACTERS MUST BE
*           THE PRIMARY VSN VALUE PLUS 5000.
* 
*           AFTER THE FILE DUMP IS COMPLETE, *PFDUMP* WILL DESTAGE THE
*           DUMPED FILES BY ENTERING THE TAPE VSN AND FILE SEQUENCE 
*           NUMBER INTO THE PFC ENTRIES SO THAT THE DISK SPACE CAN BE 
*           RELEASED.  FILES ON WHICH MASS STORAGE READ ERRORS ARE
*           ENCOUNTERED WILL NOT BE DESTAGED.  IF *PFDUMP* IS DROPPED 
*           OR ABORTS BEFORE ALL FILES ARE DUMPED, NO FILES WILL BE 
*           DESTAGED.  THE *PS* PARAMETER SHOULD BE SPECIFIED TO ALLOW
*           DETERMINATION OF WHETHER ANY FILES WERE DESTAGED IN CASE OF 
*           ABNORMAL TERMINATION OF *PFDUMP*.  THIS STATUS WILL 
*           INDICATE WHETHER THE ARCHIVE TAPE(S) ARE *ACTIVE* OR CAN BE 
*           IMMEDIATELY REUSED.  ON A DESTAGE DUMP, FILES CATALOGED 
*           UNDER USER NAME *SYSTEMX* AND UNDER USER NAMES *SUBFAM0*
*           THROUGH *SUBFAM7* ARE EXCLUDED FROM PROCESSING.  ALSO, ALL
*           FILES WILL HAVE A DATA DUMP IMPLICITLY SELECTED AS IF COS=* 
*           HAD BEEN SELECTED.  IF THE DATA FOR A FILE CANNOT BE DUMPED 
*           BECAUSE IT IS NOT DISK RESIDENT AND STAGING IS SUPPRESSED,
*           THE FILE WILL BE SKIPPED.  NO *PFC ONLY* FILES WILL BE
*           PROCESSED ON A DESTAGE DUMP.
* 
*         EO  ERROR OPTION. 
* 
*           WHEN SPECIFIED, INHIBITS LOADING OF PERMANENT FILES ON
*           WHICH DISK ERRORS OCCURRED WHEN DUMPING THE FILE DATA OR
*           PERMITS.
* 
*         FM = FAMILY NAME. 
* 
*           DEFAULT IS THE SYSTEM DEFAULT FAMILY. 
* 
*           THIS PARAMETER INDICATES TO *PFDUMP*, *PFLOAD*, *PFCAT*,
*           AND *PFREL* WHICH FAMILY IS TO BE PROCESSED.
* 
*         I = INPUT DIRECTIVES FILE NAME. 
* 
*           DEFAULT = NO DIRECTIVES FILE. 
*           UNEQUIVALENCED DEFAULT = *INPUT*. 
* 
*           THIS PARAMETER SPECIFIES THE FILE NAME FROM WHICH 
*           DIRECTIVES WILL BE READ.
* 
*         IP  INHIBIT PROCESSING OPTION.
* 
*           IF SPECIFIED, *PFDUMP* AND *PFREL* WILL MAKE FILE 
*           SELECTIONS ACCORDING TO THE CRITERIA OF THE UTILITY 
*           WITHOUT ACTUALLY DUMPING FILES OR RELEASING DISK SPACE. 
*           AN OUTPUT FILE OR SUMMARY FILE WILL BE GENERATED IF 
*           SELECTED.  THE SUMMARY FILE CAN BE USED AS INPUT TO 
*           *GENPFD* OR TO ANOTHER FILE SELECTION UTILITY FOR DESTAGE 
*           DUMP OR DISK RELEASE OPERATIONS.  THE FILE SELECTION
*           UTILITY WILL THEN CREATE A DIRECTIVES FILE FOR INPUT TO 
*           *PFDUMP* OR *PFREL* TO BE REEXECUTED WITH *IP* NOT
*           SPECIFIED.
* 
*         L = OUTPUT FILE NAME. 
* 
*           DEFAULT = *OUTPUT*. 
* 
*         LA = LOWER SECURITY ACCESS LEVEL.  1 TO 7 CHARACTERS. 
* 
*           DEFAULT = PROCESS ALL SECURITY LEVELS.
* 
*           SPECIFIES THE LOWER END OF THE RANGE OF ACCESS LEVELS THAT
*           WILL BE USED AS SELECTION CRITERIA.  IF THIS PARAMETER IS 
*           SPECIFIED, THEN THE *UA* PARAMETER MUST ALSO BE SPECIFIED.
*           THE ACCESS LEVEL NAMES ARE DEFINED IN *COMSMLS*.  IN A
*           SECURE SYSTEM, EACH UTILITY WILL DETERMINE WHETHER OR NOT 
*           THE SPECIFIED RANGE IS ALLOWED. 
* 
*         LO = LIST OPTION.  1 TO 7 CHARACTERS. 
* 
*           A STRING OF CHARACTERS SPECIFYING THE TYPE OF OUTPUT
*           REPORTS DESIRED FROM THE PERMANENT FILE UTILITIES.  THE 
*           DEFAULT VARIES WITH THE UTILITY.
* 
*                C - LIST ALL FILES IN THE CATALOG IMAGE RECORD (CIR).
*                    THE LIST IS SORTED BY USER INDEX AND FILE NAME.
* 
*                E - LIST ERRORS. 
* 
*                S - LIST SUMMARY STATISTICS ABOUT ALL FILES THAT WERE
*                    PROCESSED. 
* 
*                T - LIST DETAILED INFORMATION ABOUT ALL FILES THAT 
*                    WERE PROCESSED.  THE LIST IS SORTED BY USER INDEX
*                    AND FILE NAME. 
* 
*           THE OPTIONS ARE SPECIFIED AS A CHARACTER STRING. FOR
*           EXAMPLE - 
* 
*                LO = TES 
* 
*         LS = LOWER SIZE LIMIT.  1 TO 7 DIGITS.
* 
*           NUMERIC ENTRY ASSUMED DECIMAL IF RADIX NOT SPECIFIED. 
*           DEFAULT = 0.
* 
*           SPECIFIES A LOWER SIZE LIMIT FOR FILE SELECTION.  FILES 
*           SMALLER THAN THE SPECIFIED VALUE WILL NOT BE PROCESSED. 
* 
*         MF = MASTER FILE NAME.
* 
*           SPECIFICATION OF THIS PARAMETER WILL CAUSE *PFCOPY* TO COPY 
*           ALL SELECTED FILES TO THIS FILE INSTEAD OF TO INDIVIDUAL
*           LOCAL FILES.
* 
*         N = NUMBER OF FILES TO PROCESS. 
* 
*           ASSUMED DECIMAL IF RADIX NOT SPECIFIED. 
*           DEFAULT = 1.
* 
*           SPECIFIES TO *PFLOAD*, *PFCOPY*, OR *PFATC* THE NUMBER OF 
*           FILES ON THE ARCHIVE FILE TO PROCESS. 
* 
*         OP = UTILITY OPTIONS.  1 TO 7 CHARACTERS. 
* 
*           DEFAULT = 0 (NO OPTIONS SELECTED).
* 
*           SPECIFIES OPTIONS WHICH CONTROL FILE SELECTION OR SPECIAL 
*           PROCESSING TO BE PERFORMED BY A UTILITY.  SOME OPTIONS
*           REQUIRE AN ADDITIONAL PARAMETER TO FURTHER DEFINE THE 
*           SELECTIONS. 
* 
*                A - SELECT FILES BY ACCESS DATE. 
*                C - SELECT FILES BY CREATION DATE. 
*                M - SELECT FILES BY MODIFICATION DATE. 
*                T - SELECT FILES BY DATA MODIFICATION DATE.
* 
*           ONLY ONE OF THE OPTIONS *A*, *C*, *M*, OR *T* MAY BE
*           SELECTED AT ONE TIME.  OPTIONS ASSOCIATED WITH THESE
*           PARAMETERS ARE *AD*, *AT*, *BD* AND *BT* (AFTER 
*           DATE/TIME, BEFORE DATE/TIME). 
* 
*                D - SELECT DIRECT ACCESS FILES.
*                I - SELECT INDIRECT ACCESS FILES.
* 
*           ONLY ONE OF THE OPTIONS *D* OR *I* MAY BE SELECTED
*           AT ONE TIME.
* 
*                E - SELECT EXTRACT CATALOG IMAGE (CIR) ONLY.  READ THE 
*                CATALOG IMAGE RECORD ONLY, GENERATE *CIRF* AND *CIRD*, 
*                AND REQUEST NEXT REEL FOR INCREMENTAL LOAD.  THIS
*                ALLOWS INCREMENTAL LOAD RECOVERY.
* 
*                K - ENABLE K-DISPLAY ON PARAMETER ERRORS.  IF AN ERROR 
*                IS DETECTED IN A PARAMETER (EITHER FROM THE COMMAND OR 
*                FROM THE INPUT FILE), THE K-DISPLAY WILL BE BROUGHT UP 
*                AND OPERATOR ACTION WILL BE REQUESTED.  THE DEFAULT IS 
*                TO ABORT THE PROGRAM RATHER THAN BRINGING UP THE 
*                K-DISPLAY IN SUCH A CASE.
* 
*                L - LOAD LEVELING.  *PFLOAD* WILL LOAD DIRECT ACCESS 
*                FILES TO THE DEVICE THAT HAS THE MOST SPACE
*                AVAILABLE REGARDLESS OF PREVIOUS RESIDENCE OR OTHER
*                PARAMETERS SPECIFIED.
* 
*                O - OMIT CATALOG IMAGE RECORD (*CIR*) PROCESSING.  IF
*                SPECIFIED, *PFLOAD* WILL NOT PERFORM INCREMENTAL LOAD
*                PROCESSING IF A CATALOG IMAGE RECORD IS PRESENT ON THE 
*                ARCHIVE FILE.  FILES WILL BE LOADED REGARDLESS OF
*                WHETHER THEY APPEAR ON THE CATALOG IMAGE RECORD IF 
*                SELECTION CRITERIA ARE MET AND THE ACCESS COUNT AND
*                ACCESS DATE AND TIME WILL NOT BE UPDATED FROM THE
*                *CIR* ENTRY. 
* 
*                P - PURGE AFTER DUMP.  THIS OPTION INDICATES TO
*                *PFDUMP* THAT THOSE FILES WHICH HAVE BEEN DUMPED 
*                SHOULD BE PURGED AFTER THE DUMP HAS COMPLETED.  FILES
*                ON WHICH MASS STORAGE READ ERRORS ARE ENCOUNTERED WILL 
*                NOT BE PURGED.  IF *PDFUMP* IS DROPPED OR ABORTS 
*                BEFORE ALL FILES ARE DUMPED, NO FILES WILL BE PURGED.
*                FILES RESIDING ON USER INDICES GREATER THAN OR EQUAL 
*                THE VALUE DEFINED BY SYMBOL *PGUI* IN *COMSPFM* WILL 
*                BE DUMPED BUT NOT PURGED.  OP=P AND OP=S CANNOT BE 
*                SPECIFIED SIMULTANEOUSLY.  OP=P WILL FORCE A DATA DUMP 
*                OF ALL FILES AS IF COS=* HAD BEEN SPECIFIED. 
* 
*                Q - SELECT LEADING RECORDS.  THIS PARAMETER SPECIFIES
*                TO  *PFCOPY* THAT TWO HEADER RECORDS (CATALOG AND
*                PERMIT) SHOULD BE INCLUDED WHEN COPYING FILE(S). 
* 
*                R - SELECT REPLACE OPTION.  THIS PARAMETER SPECIFIES 
*                TO *PFLOAD* THAT FILES ENCOUNTERED ON TAPE SHOULD
*                REPLACE FILES THAT EXIST IN CURRENT PERMANENT FILE 
*                SYSTEM.  OTHERWISE, IF A FILE EXISTS IN A PERMANENT
*                FILE SYSTEM, *PFLOAD* WILL SKIP LOADING OF THE ARCHIVE 
*                FILE.
* 
*                S - SUPPRESS STAGING.  *PFDUMP* WILL NOT STAGE OR COPY 
*                THE DATA PORTION OF A FILE WHEN IT IS RESIDENT ONLY ON 
*                AN ALTERNATE STORAGE MEDIUM.  ONLY THE CONTROL 
*                INFORMATION OF SUCH A FILE (CATALOG ENTRY AND PERMITS) 
*                WILL BE DUMPED.
* 
*                V - SELECT THE NEXT ARCHIVE TAPE SET BY USING THE VSN
*                FOUND IN THE *PVSN* FIELD OF THE ARCHIVE LABEL.
* 
*                Y - BACKUP REQUIREMENT OVERRIDE.  *PFDUMP* SHOULD
*                PROCESS ALL FILES AS IF THEY HAVE A BACKUP REQUIREMENT 
*                OF *YES* (*BR=Y*). 
* 
*                Z - CLEAR ALTERNATE STORAGE INFORMATION IN A FILE-S
*                *PFC* ENTRY ON *PFDUMP* OR *PFLOAD* IF THE FILE DATA 
*                WAS WRITTEN TO THE ARCHIVE FILE. 
* 
*         PF = PERMANENT FILE NAME. 
* 
*           DEFAULT = NO FILE NAME DEFINED. 
* 
*           SPECIFIES A PERMANENT FILE NAME FOR WHICH PROCESSING IS 
*           DESIRED.  THE PERMANENT FILE NAME SPECIFIED IS ASSOCIATED 
*           WITH THE USER INDEX SPECIFIED BY THE MOST RECENT *UI* OR
*           *UN* PARAMETER ENTRY.  THIS PARAMETER IS NOT VALID IF NO
*           USER INDEX IS IN EFFECT.  UP TO 10D *PF* ENTRIES MAY BE 
*           ENTERED ON ONE LINE.
* 
*         PN = PACKNAME.
* 
*           DEFAULT = NO PACKNAME.
* 
*           THIS PARAMETER INDICATES TO *PFDUMP*, *PFLOAD*, *PFCAT*,
*           AND *PFREL* WHICH REMOVABLE PACK IS TO BE PROCESSED.  THE 
*           PACK MUST BE MOUNTED AND AVAILABLE. 
* 
*         PS = PROCESSING STATUS REGISTER.
* 
*           DEFAULT = NO REGISTER DEFINED.
* 
*           THIS PARAMETER SPECIFIES THE NAME OF A JOB CONTROL REGISTER 
*           INTO WHICH STATUS INFORMATION BITS WILL BE RETURNED ON
*           TERMINATION OF THE UTILITY.  THE ACCEPTABLE VALUES ARE R1 
*           THROUGH R3 AND R1G. 
* 
*                BIT  MEANING 
*                ---  ------- 
* 
*                  0  SET IF ANY FILES WERE PROCESSED (ALL UTILITIES).
* 
*                  1  SET IF ANY FILES WERE PROCESSED WITH ERRORS 
*                     (*PFDUMP*, *PFATC*, *PFLOAD*).  FOR *PFDUMP* AND
*                     *PFATC* THIS INDICATES FILES DUMPED WITH DATA OR
*                     PERMIT ERRORS.  THESE ERRORS INCLUDE MASS STORAGE 
*                     READ ERRORS AND FILE TRUNCATION DUE TO *PFDUMP* 
*                     ABORTING.  FILES WHICH ALREADY HAD DATA OR PERMIT 
*                     ERROR FLAGS SET IN THE CATALOG ENTRY AT THE TIME
*                     OF DUMP ARE NOT INCLUDED.  FOR *PFLOAD*, THIS 
*                     INDICATES FILES LOADED WHICH HAD BEEN DUMPED WITH 
*                     ERRORS OR WHICH ENCOUNTERED ARCHIVE FILE READ 
*                     ERRORS DURING THE LOAD. 
* 
*                  2  SET IF ANY FILES WERE SKIPPED BECAUSE OF ERRORS 
*                     (*PFDUMP*, *PFLOAD*).  FOR *PFDUMP*, THIS 
*                     INDICATES FILES SELECTED FOR DUMP WHICH WERE BUSY 
*                     IN A WRITABLE MODE AND FILES WHICH COULD NOT BE 
*                     STAGED FROM ALTERNATE STORAGE.  FOR *PFLOAD*, 
*                     THIS INDICATES SELECTED FILES FOR WHICH NO DEVICE 
*                     WAS FOUND AND FILES WHICH WERE NOT LOADED BECAUSE 
*                     OF MASS STORAGE WRITE ERRORS. 
* 
*                  3  SET IF ANY FILES WERE PROCESSED AS *PFC ONLY* 
*                     (*PFDUMP*, *PFATC*).  FOR *PFDUMP* AND *PFATC*
*                     THIS INDICATES ALTERNATE STORAGE RESIDENT FILES 
*                     FOR WHICH ONLY THE CATALOG ENTRY AND PERMITS WERE 
*                     DUMPED. 
* 
*                  4  SET IF ANY DUMPED FILES WERE STAGED FROM
*                     ALTERNATE STORAGE (*PFDUMP*).  THIS INDICATES 
*                     FILES FOR WHICH THE DATA WAS DUMPED BUT WHICH 
*                     WERE NOT DISK RESIDENT AT THE TIME OF DUMP. 
* 
*                  5  SET IF ANY FILES WERE POST PROCESSED BY *PFM* 
*                     WITHOUT ERRORS (*PFDUMP*).  IF THE OP=P OPTION
*                     WAS SELECTED ON THE *PFDUMP*, THIS INDICATES
*                     FILES WHICH WERE PURGED AFTER BEING DUMPED.  IF 
*                     THE DT PARAMETER WAS SPECIFIED, THIS INDICATES
*                     DESTAGED FILES (FILES FOR WHICH THE TAPE
*                     ALTERNATE STORAGE POINTERS WERE UPDATED). 
* 
*                  6  SET IF ANY FILES WERE NOT POST PROCESSED BY *PFM* 
*                     (*PFDUMP*).  INDICATES FILES WHICH WERE NOT 
*                     PURGED OR FOR WHICH THE TAPE ALTERNATE STORAGE
*                     POINTERS WERE NOT UPDATED EITHER BECAUSE OF 
*                     ERRORS ENCOUNTERED DURING THE FILE DUMP OR
*                     BECAUSE OF *PFM* ERRORS (SEE DOCUMENTAION OF BIT
*                     5 AND AND OF THE OP=P AND DT UTILITY PARAMETERS). 
*                     TYPICALLY, *PFM* ERRORS INDICATE FILES WHICH WERE 
*                     PURGED OR MODIFIED BY USERS BETWEEN THE TIME OF 
*                     DUMP AND THE *PFM* CALL.
* 
*         PVSN = PREVIOUS ARCHIVE VSN. 1 TO 6 CHARACTERS. 
* 
*           THIS PARAMETER SPECIFIES TO *PDUMP* THE FIRST VSN OF THE
*           PREVIOUS ARCHIVE TAPE SET.  THIS VALUE IS WRITTEN IN THE
*           ARCHIVE LABEL, AND USED BY *PFLOAD,OP=V.* TO REQUEST THE
*           PREVIOUS ARCHIVE TAPE SET DURING AN INCREMENTAL RELOAD
*           OPERATION.
* 
*         RD = RELEASE DATA FILE NAME.
* 
*           DEFAULT = NO RELEASE DATA FILE. 
*           UNEQUIVALENCED DEFAULT = *ZZZZRDF*. 
* 
*           THIS PARAMETER CAUSES *PFDUMP* TO CREATE A RELEASE DATA 
*           FILE FOR INPUT TO *MSE* UTILITIES.  THE INFORMATION ON THE
*           RELEASE DATA FILE ALLOWS THE *MSE* UTILITIES TO DETERMINE 
*           WHICH TAPE CARTRIDGES CONTAIN ACTIVE FILES. 
* 
*         S = SUMMARY FILE NAME.
* 
*           DEFAULT = NO SUMMARY FILE.
*           UNEQUIVALENCED DEFAULT = *SUMMARY*. 
* 
*           THIS PARAMETER SPECIFIES THE FILE NAME TO WHICH THE 
*           MACHINE READABLE OUTPUT SUMMARY FILE WILL BE WRITTEN. 
* 
*         SD  SET DISK SPACE RELEASE INHIBIT DATES OPTION.
* 
*           WHEN THIS PARAMETER IS SPECIFIED IF A DUMP IS FAMILY WIDE 
*           OR A TRUE DEVICE (TD=) DUMP, THEN *PFDUMP* SETS BOTH THE
*           MASTER DEVICE RELEASE INHIBIT DATE (*MIDT*) AND THE 
*           RESIDENT DEVICE RELEASE INHIBIT DATE (*RIDT*) IN THE DEVICE 
*           LABEL RECORD TO THE DATE AND TIME AT THE BEGINNING OF THE 
*           DUMP.  HOWEVER, IF A DUMP IS A LOGICAL DEVICE (DN=) DUMP, 
*           ONLY *MIDT* IS SET.  IT IS THESE DATES (*MIDT* AND *RIDT*)
*           WHICH GOVERN THE RELEASE OF A FILE-S DISK SPACE WHEN THAT 
*           FILE HAS ONLY ONE IMAGE ON AN ALTERNATE STORAGE MEDIUM. 
* 
*         SF = NUMBER OF FILES TO SKIP. 
* 
*           ASSUMED DECIMAL IF RADIX NOT SPECIFIED. 
*           DEFAULT = 0.
* 
*           SPECIFIES TO *PFDUMP*, *PFLOAD*, *PFCOPY*, OR *PFATC* THE 
*           NUMBER OF FILES ON THE ARCHIVE FILE TO SKIP BEFORE
*           PROCESSING BEGINS.
* 
*         SI = SUMMARY INPUT FILE NAME. 
* 
*           DEFAULT = *SUMMARY*.
* 
*           SPECIFIES THE NAME OF THE SUMMARY FILE WHICH *PFLIST* WILL
*           USE FOR INPUT.
* 
*         SPN = PROJECT NUMBER.  1 TO 20 ALPHANUMERIC CHARACTERS. 
*         SPN = 0.
* 
*           DEFAULT = NO PROJECT NUMBER SPECIFIED.
* 
*           SPECIFIES A PROJECT NUMBER TO BE SELECTED FOR PROCESSING. 
*           THE PROJECT NUMBER IS ASSOCIATED WITH THE CHARGE NUMBER 
*           SPECIFIED BY THE MOST RECENT *CN* PARAMETER ENTRY.  FILES 
*           WITH A MATCHING CHARGE AND PROJECT NUMBER WILL BE SELECTED
*           FOR PROCESSING.  A VALUE OF *0* SELECTS FILES HAVING A
*           MATCHING CHARGE NUMBER AND A NULL PROJECT NUMBER.  THIS 
*           PARAMETER IS NOT VALID IF NO CHARGE NUMBER IS IN EFFECT.
* 
*         SR = SUMMARY FILE RECORD NAME.
* 
*           DEFAULT = CURRENT DATE IN YYMMDD FORMAT.
* 
*           THIS PARAMETER SPECIFIES THE NAME OF THE RECORD WRITTEN TO
*           THE SUMMARY FILE. 
* 
*         T = ARCHIVE FILE NAME.
* 
*           DEFAULT = *TAPE*. 
* 
*           SPECIFIES THE NAME OF THE FILE TO WHICH FILES WILL BE 
*           DUMPED BY *PFDUMP* OR THE NAME OF THE *PFDUMP* CREATED
*           ARCHIVE FILE TO BE PROCESSED BY *PFLOAD*, *PFCOPY*, OR
*           *PFATC*.  THE ARCHIVE FILE WILL NOT BE REWOUND OR UNLOADED
*           EITHER BEFORE OR AFTER PROCESSING.  THE *SF* PARAMETER CAN
*           BE USED TO POSITION THE FILE BEFORE PROCESSING. 
* 
*         TA = TAPE ALTERNATE STORAGE VSN.  TWO ALPHNUMERIC CHARACTERS
*              FOLLOWED BY FOUR DECIMAL DIGITS. 
*         TA = R. 
*         TA = N. 
* 
*           DEFAULT = NO TAPE ALTERNATE STORAGE ADDRESS SELECTIONS. 
* 
*           SELECTS FILES FOR PROCESSING ACCORDING TO RESIDENCE ON TAPE 
*           ALTERNATE STORAGE.  FILES WILL BE SELECTED WHICH HAVE 
*           ALTERNATE STORAGE COPIES ON ONE OF THE SPECIFIED VSN-S.  A
*           VALUE OF *R* WILL SELECT FILES ON ALL VSN-S.  A VALUE OF
*           *N* WILL SELECT FILES WHICH DO NOT RESIDE ON TAPE ALTERNATE 
*           STORAGE.  A VSN ENTRY MUST SPECIFY A PRIMARY VSN IN THE 
*           FORMAT PPNNNN WHERE PP IS THE 2 CHARACTER PREFIX AND NNNN 
*           IS THE PRIMARY VSN SEQUENCE NUMBER FROM 0000 TO 4095. 
* 
*         TD = TRUE DEVICE NUMBER.  1 OR 2 OCTAL DIGITS.
* 
*           DEFAULT = 0 (NO TRUE DEVICE SELECTION). 
* 
*           WHEN SPECIFIED FOR *PFCAT*, *PFDUMP* OR *PFREL*, FILES
*           MUST EITHER BE CATALOGED ON OR RESIDE ON THE DEVICE TO BE 
*           SELECTED FOR PROCESSING.  WHEN SPECIFIED FOR *PFLOAD*,
*           FILES THAT HAVE USER INDICES MATCHING THE DEVICE MASK (IF 
*           THE DEVICE IS A MASTER DEVICE) AND FILES THAT PREVIOUSLY
*           RESIDED ON THE DEVICE WILL BE SELECTED.  *TD* CANNOT BE 
*           SPECIFIED CONCURRENTLY WITH THE *DN* PARAMETER. 
* 
*         UA = UPPER SECURITY ACCESS LEVEL.  1 TO 7 CHARACTERS. 
* 
*           DEFAULT = PROCESS ALL SECURITY LEVELS.
* 
*           SPECIFIES THE UPPER END OF THE RANGE OF ACCESS LEVELS THAT
*           WILL BE USED AS SELECTION CRITERIA.  IF THIS PARAMETER IS 
*           SPECIFIED, THEN THE *LA* PARAMETER MUST ALSO BE SPECIFIED.
* 
*         UD  UPDATE UTILITY CONTROL DATE OPTION. 
* 
*           WHEN THIS PARAMETER IS SPECIFIED, *PFLOAD* WILL UPDATE THE
*           UTILITY CONTROL DATE OF EACH FILE IT LOADS TO THAT AT THE 
*           BEGINNING OF THE LOAD.  UPDATING OF THIS DATE INSURES THAT
*           THE AFFECTED FILES WILL BE INCLUDED IN THE NEXT INCREMENTAL 
*           DUMP (OP=M) TO BE MADE FOLLOWING THE LOAD REGARDLESS OF THE 
*           FILE-S MODIFICATION DATE. 
* 
*         UI = USER INDEX.  1 TO 6 OCTAL DIGITS.
* 
*           DEFAULT = 0 (NO USER INDEX SPECIFIED).
* 
*           SPECIFIES A USER INDEX FOR FILE SELECTION.  IF NO FILES ARE 
*           SELECTED FOR THE USER INDEX AT THE TIME OF ENTRY, ALL FILES 
*           CATALOGED UNDER THAT USER INDEX WILL BE SELECTED.  IF FILES 
*           (ALL OR SPECIFIC FILE NAMES) ARE ALREADY SELECTED FOR THE 
*           USER INDEX, ENTRY OF *UI* DEFINES THE USER INDEX TO BE USED 
*           WITH SUBSEQUENT *PF* AND *CPF* ENTRIES.  THIS PARAMETER 
*           WILLL BE IGNORED IF ENTERED ON THE SAME LINE AS A *UN*
*           PARAMETER.  OTHERWISE, SPECIFICATION OF THIS ENTRY WILL 
*           CLEAR ANY *UN* SPECIFICATION. 
* 
*         UN = SELECT USER NAME.
* 
*           DEFAULT = NO USER NAME SPECIFIED. 
* 
*           SPECIFIES EITHER THE USER NAME OF A PRIVATE PACK OR A USER
*           NAME TO BE CONVERTED TO A USER INDEX IF A PACK NAME IS NOT
*           SPECIFIED.  SPECIFICATION OF THIS PARAMETER WILL UPDATE THE 
*           USER INDEX SPECIFICATION.  IF THE USER NAME IS NOT DEFINED, 
*           THE PARAMETER WILL BE CLEARED.
* 
*         US = UPPER SIZE LIMIT.  1 TO 7 DIGITS.
*         US = *. 
* 
*           NUMERIC ENTRY  ASSUMED DECIMAL IF RADIX NOT SPECIFIED.
*           DEFAULT = NO LIMIT (* ENTRY). 
* 
*           SPECIFIES AN UPPER SIZE LIMIT FOR FILE SELECTION.  FILES
*           LARGER THAN THE SPECIFIED VALUE WILL NOT BE PROCESSED.  A 
*           VALUE OF * SETS NO SIZE LIMIT.
* 
*         VF = VERIFY FILE NAME.
* 
*           DEFAULT = NO VERIFY FILE. 
*           UNEQUIVALENCED DEFAULT = *PFVER*. 
* 
*           THIS PARAMETER INDICATES TO *PFDUMP* THAT A VERIFY FILE IS
*           TO BE WRITTEN.  THE VERIFY FILE WILL BE IDENTICAL TO THE
*           ARCHIVE FILE.  WHEN A DESTAGE DUMP (*DT* PARAMETER) IS
*           PERFORMED, THIS WILL CREATE DUPLICATE ALTERNATE STORAGE 
*           COPIES OF THE FILES PROCESSED.
          SPACE  4,10 
*         CONSTANTS.
  
  
 LBWD     EQU    8D          FET LABEL PARAMETER WORD 
 LINL     EQU    23D         MAXIMUM NUMBER OF K-DISPLAY LINES
 MXVS     EQU    18D         MAXIMUM NUMBER OF VSN SELECTIONS 
  
  
*         UTILITY CODES.
  
 BEGIN    BSSN   1
 LDUT     BSSN   1           *PFLOAD* 
 DUUT     BSSN   1           *PFDUMP* 
 CAUT     BSSN   1           *PFCAT*
 ATUT     BSSN   1           *PFATC*
 COUT     BSSN   1           *PFCOPY* 
 RLUT     BSSN   1           *PFREL*
 LIUT     BSSN   1           *PFLIST* 
 RSUT     BSSN   1           *PFRES*
 MXUT     BSSN   1           MAXIMUM UTILITY CODE+1 
 END      BSSN
  
  
*         UTILITY OPTION CODES. 
  
 BEGIN    BSSN   0
 CUOP     BSSN   1           CREATION DATE
 AUOP     BSSN   1           ACCESS DATE
 MUOP     BSSN   1           MODIFICATION DATE
 IUOP     BSSN   1           INDIRECT ACCESS FILES
 DUOP     BSSN   1           DIRECT ACCESS FILES
 LUOP     BSSN   1           LOAD LEVELING
 PUOP     BSSN   1           PURGE AFTER DUMP 
 RUOP     BSSN   1           REPLACE ON LOAD
 VUOP     BSSN   1           GET VSN FROM LABEL 
 QUOP     BSSN   1           ADD CATALOG AND PERMIT RECORDS 
 EUOP     BSSN   1           EXTRACT CIR
 OUOP     BSSN   1           OMIT CIR 
 SUOP     BSSN   1           SUPRESS FILE STAGING 
 ZUOP     BSSN   1           ZERO ALTENATE STORAGE POINTERS 
 YUOP     BSSN   1           PROCESS ALL FILES AS *BR=Y*
 TUOP     BSSN   1           DATA MODIFICATION DATE 
 KUOP     BSSN   1           ENABLE K-DISPLAY ON PARAMETER ERRORS 
 MXUO     BSSN   1           MAXIMUM UTILITY OPTION+1 
 END      BSSN
  
  
*         UTILITY LIST OPTION CODES.
  
 BEGIN    BSSN   0
 TLOP     BSSN   1           FILES PROCESSED
 CLOP     BSSN   1           FILES ON CIR 
 ELOP     BSSN   1           FILES WITH ERRORS
 SLOP     BSSN   1           SUMMARY STATISTICS 
 MXLO     BSSN   1           MAXIMUM LIST OPTION+1
 END      BSSN
  
  
*         PROGRAM AREA LENGTHS. 
  
 OVCAL    EQU    170B-101B   OVERLAY CALL PROCESSOR LENGTH
 DISL     EQU    1370B-170B  DISPLAY AREA LENGTH
 CDAL     EQU    120B        COMMON DATA AREA 
 CPLL     EQU    71B         CONVERTED PARAMETER LIST LENGTH
 PADRL    EQU    40B         PARAMETER ADDRESSES LENGTH 
 KINL     EQU    8D          KEYBOARD INPUT BUFFER LENGTH 
 KIPL     EQU    250B        KEYBOARD INPUT PROCESSOR LENGTH
  
  
*         PROGRAM AREA ADDRESSES. 
  
 OVCA     EQU    101B        OVERLAY CALL PROCESSOR 
 DIS      EQU    OVCA+OVCAL  FWA OF DISPLAY AREA
 CDA      EQU    DIS+DISL    COMMON DATA LOCATIONS
 CPL      EQU    CDA+CDAL    CONVERTED PARAMETER LIST 
 PADR     EQU    CPL+CPLL    PARAMETER ADDRESSES
 KIN      EQU    PADR+PADRL  KEYBOARD INPUT BUFFER
 KIP      EQU    KIN+KINL    KEYBOARD INPUT PROCESSOR 
  
  
*         OVERLAY LOAD ADDRESSES. 
  
 OVLA     EQU    KIP         PRIMARY OVERLAY ADDRESS
 OVLB     EQU    KIP+KIPL+1  SECONDARY OVERLAY ADDRESS
          SPACE  4,10 
**        *PFS*/UTILITY COMMON DATA AREA. 
  
 BEGIN    BSSN   CDA
 FISP     BSSN   1           FILE SELECTION BUFFER POINTER
 NFIS     BSSN   1           NUMBER OF FILE SELECTIONS (PF PARAMETER) 
 STDT     BSSN   1           START DATE AND TIME (PACKED FORMAT)
 UTLC     BSSN   1           UTILITY CODE 
 UTLN     BSSN   1           UTILITY NAME 
  
*         CHARGE AND PROJECT NUMBER SELECTIONS TABLE. 
  
 TCNS     BSSN   24*3+3      CHARGE AND PROJECT NUMBER SELECTIONS TABLE 
 TCNSL    EQU    *-TCNS      LENGTH OF SELECTIONS TABLE 
  
          ERRNZ  *-CDA-CDAL DATA AREA LENGTH ERROR
 END      BSSN
  
          SPACE  4,30 
*         CONVERTED PARAMETER LOCATION TABLE. 
  
 BEGIN    BSSN   0
 CPFN     BSSN   1           FAMILY NAME
 CPPN     BSSN   1           PACK NAME
 CPTB     BSSN   1           ARCHIVE FILE NAME
 CPVF     BSSN   1           VERIFY FILE NAME 
 CPLB     BSSN   1           OUTPUT FILE NAME 
 CPMF     BSSN   1           FILE COPY MASTER FILE NAME 
 CPRD     BSSN   1           RELEASE DATA FILE NAME 
 CPSU     BSSN   1           SUMMARY FILE NAME
 CPSI     BSSN   1           SUMMARY INPUT FILE NAME
 CPPS     BSSN   1           PROCESSING STATUS JOB CONTROL REGISTER 
 CPUN     BSSN   1           USER NAME
 CPLA     BSSN   1           LOWER ACCESS LEVEL 
 CPUA     BSSN   1           UPPER ACCESS LEVEL 
 CPPV     BSSN   1           PREVIOUS ARCHIVE TAPE VSN
 CPSR     BSSN   1           SUMMARY FILE RECORD NAME 
 CPLO     BSSN   1           LIST OPTIONS 
 CPOP     BSSN   1           UTILITY OPTIONS
 CPUI     BSSN   1           USER INDEX 
 CPDI     BSSN   1           DESTINATION USER INDEX 
 CPDN     BSSN   1           DEVICE NUMBER
 CPTD     BSSN   1           TRUE DEVICE NUMBER 
 CPDD     BSSN   1           DESTINATION DEVICE NUMBER
 CPSF     BSSN   1           NUMBER OF FILES TO SKIP
 CPNB     BSSN   1           NUMBER OF FILES TO PROCESS 
 CPLS     BSSN   1           LOWER FILE SIZE LIMIT
 CPUS     BSSN   1           UPPER FILE SIZE LIMIT
 CPCO     BSSN   1           CATALOG ONLY FILE SIZE LIMIT 
 CPEO     BSSN   1           ERROR OPTION 
 CPSD     BSSN   1           SET DISK SPACE RELEASE DATE
 CPUD     BSSN   1           SET UTILITY CONTROL DATE 
 CPDT     BSSN   1           DESTAGE TO TAPE ALTERNATE STORAGE
 CPIP     BSSN   1           INHIBIT PROCESSING 
 CPAD     BSSN   1           AFTER DATE AND TIME
 CPBD     BSSN   1           BEFORE DATE AND TIME 
 CPDA     BSSN   2           DISK RESIDENCE SELECTIONS
 CPCA     BSSN   1           CARTRIDGE ALTERNATE STORAGE SELECTION
 CPTA     BSSN   1+MXVS+1    TAPE ALTERNATE STORAGE SELECTIONS
 CPTAL    EQU    *           CONVERTED PARAMETER TABLE LENGTH 
          ERRNG  CPLL-CPTAL  CONVERTED PARAMETER TABLE OVERFLOW 
 END      BSSN
          SPACE  4,10 
*         DISPLAY ADDRESS TABLE LOCATIONS.
  
  
 ADM1     EQU    0           ADDRESS OF WAIT MESSAGE LINE 
 ADMS     EQU    ADM1+1      ADDRESS OF CURRENT ACTIVITY LINE 
 ADM2     EQU    ADMS+1      ADDRESS OF OPERATOR ACTION REQUEST LINE
 ADER     EQU    ADM2+1      ADDRESS OF ERROR MESSAGE LINE
 ADIN     EQU    ADER+1      ADDRESS OF INPUT DISPLAY LINE
  
 KDCW     EQU    ADIN+1      *K* DISPLAY CONTROL WORD 
          TITLE  COMSPFS - ARCHIVE FILE FORMAT. 
          SPACE  4,50 
***       ARCHIVE FILE CONTROL WORD FORMAT. 
* 
*T        42/ NAME,3/ ER,3/ CT,3/ CS,9/ WC
* 
*         NAME = *PFDUMP* IF LABEL BLOCK (CT = 0).
*              = PERMANENT FILE NAME IF PFC BLOCK (CT = 1). 
*              = *ERROR*** IF ERROR IN PERMITS BLOCK (CT = 2).
*              = *ERROR*** IF ERROR IN DATA BLOCK (CT = 3). 
*              = 0 OTHERWISE. 
* 
*         ER = ERROR RECOVERY CODE. 
*                0 = FILE LENGTH ERROR. 
*                1 = READ ERROR.
*                2 = BAD FILES SUPPRESSED (EO OPTION WAS SELECTED ON
*                    PFDUMP)
* 
*         CT = CONTROL WORD TYPE. 
*                0 = LABEL
*                1 = PFC (CATALOG ENTRY)
*                2 = PERMITS
*                3 = DATA 
*                4 = END OF CURRENT REEL
*                5 = CIR (CATALOG IMAGE RECORD) 
*                7 = END OF LAST REEL 
* 
*         CS = CONTROL WORD SUB-TYPE. 
* 
*                IF CT = 1
*                  0 = PFC ONLY 
*                  1 = NORMAL PFC 
* 
*                IF CT = 2
*                  0 = PERMITS BLOCK (NOT LAST) 
*                  1 = PERMITS LAST BLOCK 
* 
*                IF CT = 3
*                  0 = NORMAL FULL BLOCK
*                  1 = EOR
*                  2 = EOF
*                  4 = SYSTEM SECTOR
* 
*                IF CT = 5
*                  0 = CIR FULL BLOCK 
*                  1 = CIR END OF CATALOG TRACK 
* 
*                IF CT = 7
*                  7 = END OF REEL
* 
*         WC = WORD COUNT UNTIL NEXT CONTROL WORD.
          SPACE  4,30 
***       ARCHIVE FILE LABEL FORMAT.
* 
*T PFAL   36/ *PFDUMP*,24/ N0.CAT. TRACKS 
*T REAL   24/ *REEL*,36/
*T MAAL   24/ *MASK*,1/F,27/ ,8/ DEV MAP
*T DAAL   60/ DATE - YY/MM/DD.
*T TIAL   60/ TIME - HH.MM.SS.
*T FMAL   60/ FAMILY NAME 
*T PNAL   60/ PACK NAME 
*T        60/ ... 
*T        60/ ... 
*T        60/ ... 
*T PVAL   36/ PREVIOUS ARCHIVE FILE VSN, 24/ 0
*T D0AL   8/ PDM2,12/ NCTR2,8/ PDM1,12/ NCTR1,8/ PDM0,12/ NCTR0 
*T D1AL   8/ PDM5,12/ NCTR5,8/ PDM4,12/ NCTR4,8/ PDM3,12/ NCTR3 
*T D2AL   20/ ,8/ PDM7,12/ NCTR7,8/ PDM6,12/ NCTR6
* 
*         F = 0, IF OLD FORMAT (WITHOUT DEVICE MASK AND CATALOG 
*                TRACK TABLE AT LBL+75) 
*           = 1, IF NEW FORMAT. 
* 
*         PDMI = PRIMARY DEVICE MASK (ONLY DEVICES WITH NON-ZERO
*                MASKS).
*         NCTRI = CORRESPONDING NUMBER OF CATALOG TRACKS. 
          SPACE  4,10 
*         ARCHIVE FILE LABEL DEFINITIONS. 
  
 BEGIN    BSSN   0
 PFAL     BSSN   1           *PFDUMP* IDENTIFIER AND CATALOG TRACKS 
 REAL     BSSN   1           *REEL* (OBSOLETE)
 MAAL     BSSN   1           *MASK* IDENTIFIER AND DUMP MASK
 DAAL     BSSN   1           DATE OF DUMP YY/MM/DD
 TIAL     BSSN   1           TIME OF DUMP HH.MM.SS
 FMAL     BSSN   1           FAMILY NAME
 PNAL     BSSN   1           PACK NAME
          BSSN   65B         UNUSED 
 PVAL     BSSN   1           PREVIOUS ARCHIVE FILE VSN
 D0AL     BSSN   1           DEVICE MASK AND CATALOG TRACKS 
 D1AL     BSSN   1           DEVICE MASK AND CATALOG TRACKS 
 D2AL     BSSN   1           DEVICE MASK AND CATALOG TRACKS 
 AFLBL    EQU    *           ARCHIVE FILE LABEL LENGTH
          ERRNZ  100B-AFLBL  ERROR IN LABEL LENGTH
 END      BSSN
          SPACE  4,10 
***       CATALOG IMAGE RECORD (CIR) ENTRY FORMAT.
* 
*T        42/ PERMANENT FILE NAME,18/ USER INDEX
*T        18/ ACCESS COUNT,6/ DN,36/ LAST ACCESS DATE AND TIME
          TITLE  COMSPFS - PF UTILITY SUMMARY FILE FORMAT.
          SPACE  4,40 
***       SUMMARY FILE FORMAT.
* 
*         THE SUMMARY FILE IS A MACHINE-READABLE FILE CONSISTING
*         OF A SEQUENCE OF BLOCKS OF THE FOLLOWING TYPES -
*                PREFIX TABLE 
*                SYSTEM BLOCK 
*                DEVICE STATUS BLOCK
*                ARCHIVE FILE IDENTIFIER BLOCK
*                CATALOG IMAGE RECORD (CIR) ENTRIES BLOCK 
*                CATALOG ENTRIES BLOCK
* 
*         SOME BLOCK TYPES ARE ONLY WRITTEN BY CERTAIN UTILITIES. 
* 
*         NOTE - ANY PROGRAM PROCESSING THE SUMMARY FILE SHOULD BE
*         PREPARED TO READ AND IGNORE ANY BLOCK WITH A BLOCK TYPE OTHER 
*         THAN THE TYPES DEFINED BELOW, SINCE NEW BLOCK TYPES MAY BE
*         DEFINED IN THE FUTURE.
          SPACE  4,40 
***       SUMMARY FILE PREFIX TABLE 
*           (ALL UTILITIES).
* 
* T       12/ 7700B,12/ 16B,36/ 0 
* T,      42/ RECORD NAME,18/ 0 
* T,      60/ DATE YY/MM/DD 
* T,      60/ TIME HH.MM.SS 
* T,      60/ 0 
* T,      60/ 0 
* T,      60/ 0 
* T,      60/ 0 
* T,      60/ COMMENT 
* T,      60/ COMMENT (CONTINUED) 
* T,      60/ COMMENT (CONTINUED) 
* T,      60/ COMMENT (CONTINUED) 
* T,      60/ COMMENT (CONTINUED) 
* T,      60/ COMMENT (CONTINUED) 
* T,      60/ COMMENT (CONTINUED) 
* 
*                COMMENT = TEXT INDICATING THE UTILITY NAME, THE FAMILY 
*                          OR PACK NAME IF APPLICABLE TO UTILITY AND
*                          THE SYSTEM TITLE FROM *SYTL* IN CMR. 
          SPACE  4,20 
***       SUMMARY FILE SYSTEM BLOCK 
*           (ALL UTILITIES).
* 
* T       42/ 6LSYSTEM,18/ LENGTH 
* T,      42/ UTILITY NAME,18/ MAX BLOCK LENGTH 
* T,      60/ DATE YY/MM/DD.
* T,      60/ TIME HH.MM.SS.
* T,      60/ SYSTEM TITLE (SYTL) 
* T,      60/ SYSTEM TITLE (SYTL+1) 
* T,      60/ SYSTEM TITLE (SYTL+2) 
* T,      60/ SYSTEM TITLE (SYTL+3) 
* T,      60/ SYSTEM VERSION (SVNL) 
* T,      60/ SYSTEM VERSION (SVNL+1) 
* T,      24/,36/ PACKED DATE AND TIME
* T,      42/,18/ SYSTEM LEVEL
* 
*                LENGTH = LENGTH OF BLOCK (13B).
*                MAX BLOCK LENGTH = MAXIMUM LENGTH OF SUBSEQUENT
*                                   BLOCKS ON FILE. 
          SPACE  4,30 
***       SUMMARY FILE DEVICE STATUS BLOCK
*           (PFCAT, PFDUMP, PFREL, PFLOAD). 
* 
* T       42/ 7LDEVSTAT,18/ LENGTH
* T,      42/ FAMILY/PACK NAME,18/
* T,      42/ PRIVATE AUXILIARY DEVICE USER NAME,18/
* T,      60/ DEVICE ENTRY 1 FIRST WORD.
* T,      60/ DEVICE ENTRY 1 SECOND WORD. 
* T,      60/ ... 
* T,      60/ ... 
* T,      60/ DEVICE ENTRY N FIRST WORD.
* T,      60/ DEVICE ENTRY N SECOND WORD. 
* 
*                LENGTH = LENGTH OF BLOCK.
*                       = (NUMBER OF DEVICE ENTRIES)*2+2. 
* 
*         DEVICE ENTRY FORMAT.
* 
* T       12/ TYPE,12/ TRACK SIZE,12/ TRACKS AV,12/ TRACKS,3/,3/U,6/ DN 
* T,      27/,9/ NCAT,16/,4/ SM, 4/ DM
* 
*                TYPE = EQUIPMENT MNEMONIC OF DEVICE. 
*                TRACK SIZE = SECTOR LIMIT OF DEVICE. 
*                TRACKS AV = TRACKS AVAILABLE ON DEVICE AT START OF 
*                            UTILITY EXECUTION. 
*                TRACKS = NUMBER OF TRACKS ON DEVICE. 
*                U = (NUMBER OF UNITS)-1. 
*                DN = DEVICE NUMBER.
*                NCAT = NUMBER OF CATALOG TRACKS ON DEVICE. 
*                SM = SECONDARY DEVICE MASK.
*                DM = MASTER DEVICE MASK. 
          SPACE  4,15 
***       SUMMARY FILE ARCHIVE FILE IDENTIFIER BLOCK
*           (PFATC, PFCOPY, PFLOAD).
* 
* T       42/ 7LARCFILE,18/ LENGTH
* T,      42/ FAMILY NAME,18/ 0 
* T,      42/ PACK NAME,18/ 0 
* T,      18/ 0,36/ PACKED DATE AND TIME
* 
*                LENGTH = LENGTH OF BLOCK (3).
* 
*         IF THE UTILITY DID NOT FIND THE ARCHIVE FILE LABEL OR IF AN 
*         ERROR WAS DETECTED IN THE ARCHIVE FILE LABEL, A THREE WORD
*         BLOCK WILL BE WRITTEN WITH ALL FIELDS ZERO. 
          SPACE  4,20 
***       SUMMARY FILE CATALOG IMAGE RECORD (CIR) ENTRIES BLOCK 
*           (PFATC, PFDUMP, PFLOAD).
* 
* T       42/ 3LCIR,18/ LENGTH
* T,      60/ CIR ENTRY 1 WORD 0
* T,      60/ CIR ENTRY 1 WORD 1
* T,      ... 
* T,      ... 
* T,      ... 
* T,      60/ CIR ENTRY N WORD 0
* T,      60/ CIR ENTRY N WORD 1
* 
*                LENGTH = LENGTH OF BLOCK.
*                       = (NUMBER OF ENTRIES)*2.
*                CIR ENTRY = CATALOG IMAGE RECORD ENTRY FROM ARCHIVE
*                            FILE.
          SPACE  4,30 
***       SUMMARY FILE CATALOG ENTRIES BLOCK (ALL UTILITIES). 
* 
* T       42/ 4LCATE,18/ LENGTH 
* T,      60/ CATALOG ENTRY 1 WORD 0. 
* T,      60/ ... 
* T,      60/ CATALOG ENTRY 1 WORD 17B. 
* T,      60/ CATALOG ENTRY 1 STATUS WORD.
* T,      60/ ... 
* T,      60/ ... 
* T,      60/ ... 
* T,      60/ CATALOG ENTRY N WORD 0. 
* T,      60/ ... 
* T,      60/ CATALOG ENTRY N WORD 17B. 
* T,      60/ CATALOG ENTRY N STATUS WORD.
* 
*                LENGTH = LENGTH OF BLOCK.
*                       = (NUMBER OF ENTRIES)*21B.
*                CATALOG ENTRY = CATALOG ENTRY OF FILE PROCESSED. 
*                STATUS WORD = STATUS INFORMATION PERTAINING TO FILE
*                              PROCESSED. 
* 
*         CATALOG ENTRY STATUS WORD FORMAT. 
* 
* T       56/,1/P,1/D,1/T,1/C 
* 
*                P   PERMITS MISSING ON ARCHIVE FILE BECAUSE OF ERROR 
*                      DURING DUMP. 
*                D   ERROR DETECTED IN FILE DATA DURING DUMP. 
*                T   FILE DATA TRUNCATED DURING DUMP BECAUSE OF ERROR.
*                C   FILE DUMPED AS *PFC ONLY*. 
          SPACE  4,10 
**        SUMMARY FILE BLOCK IDENTIFICATION CODES.
  
  
 BEGIN    BSSN   0
 SYSB     BSSN   1           SYSTEM INFORMATION 
 DSSB     BSSN   1           DEVICE STATUS
 AFSB     BSSN   1           ARCHIVE FILE 
 CISB     BSSN   1           CATALOG IMAGE RECORD ENTRIES 
 CESB     BSSN   1           PROCESSED CATALOG ENTRIES
 MXSB     BSSN   0           MAXIMUM BLOCK TYPE + 1 
 END      BSSN
          TITLE  COMSPFS - COMMON UTILITY MACROS. 
 COMPFET  SPACE  4,10 
**        COMPFET - COMPLETE FETS.
* 
*         COMPFET  (PAR)
* 
*         PAR = LIST OF ADDRESSES TO SET COMPLETE.
* 
*         USES   X - 1, 2, 6. 
*                A - 1, 6.
  
  
          PURGMAC  COMPFET
 COMPFET  MACRO  PAR
          MACREF COMPFET
          SX2    B1 
          IRP    PAR
          SA1    PAR
          BX6    X1+X2
          SA6    A1 
          IRP 
 COMPFET  ENDM
 CWREAD   SPACE  4,20 
**        CWREAD - CONTROL WORD READ WORDS. 
* 
*         CWREAD FET,BUF,BUFL 
* 
*         FET = FET ADDRESS FOR FILE. 
*         BUF = WORKING BUFFER ADDRESS. 
*         BUFL = LENGTH OF WORKING BUFFER.
* 
*         *BUFL* WORDS ARE TRANSFERRED FROM THE CIRCULAR BUFFER TO THE
*         WORKING BUFFER *BUF*.  BUFFER CONTROL WORDS ARE REMOVED AS
*         NECESSARY.
* 
*         USES   X - 2. 
*                B - 6, 7.
* 
*         CALLS  CWR. 
  
  
          PURGMAC CWREAD
 CWREAD   MACRO  FET,BUF,BUFL 
          MACREF CWREAD 
          R=     B6,BUF 
          R=     B7,BUFL
          R=     X2,FET 
          RJ     CWR
 CWREAD   ENDM
 PCINT    SPACE  4,10 
**        PCINT - PROCESS CATALOG INTERLOCK.
* 
*         PCINT  FET,FNC
* 
*         FET = ADDRESS OF FET TO PROCESS INTERLOCK WITH. 
*         FNC = PFU FUNCTION CODE TO PROCESS INTERLOCK WITH.
* 
*         CALLS  PCI. 
* 
*         USES   X - 6, 7.
  
  
          PURGMAC PCINT 
  
 PCINT    MACRO  FET,FNC
          MACREF PCINT
          R=     X6,FET 
          R=     X7,FNC 
          RJ     PCI
 PCINT    ENDM
          SPACE  4
          QUAL   *
          ENDX
