User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfdm

Deck PFDM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00001 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.286l859 ---|          IDENT  PFDM1,/COMSPFS/OVLB,PFD,01,00
Line S00001 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00001.286l859 +++|          IDENT  PFDM1,/COMSPFS/OVLA,PFD,01,00
00003  M00S00002.pfdm    +++|          TITLE  PFDM - PERMANENT FILE DISK MANAGEMENT UTILITIES.
00004  M00S00003.pfdm    +++|          ABS
00005  M00S00004.pfdm    +++|          SST
00006  M00S00005.pfdm    +++|          SYSCOM B1
00007  M00S00006.pfdm    +++|          SPACE  4,10
00008  M00S00007.pfdm    +++|*COMMENT  PFDM - PERM FILE DISK MANAGEMENT UTILITIES.
Line S00008 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00008.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00009.pfdm    +++|          SPACE  4,10
00012  M00S00010.pfdm    +++|***       PFDM - PERMANENT FILE DISK MANAGEMENT UTILITIES.
00013  M00S00011.pfdm    +++|*
00014  M00S00012.pfdm    +++|*         G. S. YODER        86/09/01.
00015  M00S00013.pfdm    +++|          SPACE  4,10
00016  M00S00014.pfdm    +++|***       *PFDM* CONTAINS UTILITIES FOR MANAGING DISK RESIDENT PERMANENT
00017  M00S00015.pfdm    +++|*         FILES AND PERMANENT FILE CATALOGS.  THESE UTILITIES MAY BE
00018  M00S00016.pfdm    +++|*         CALLED THROUGH THE *PFS* COMMAND OR DIRECTLY BY UTILITY NAME.
00019  M00S00017.pfdm    +++|*
00020  M00S00018.pfdm    +++|*         THE FOLLOWING UTILITIES RESIDE IN *PFDM* -
00021  M00S00019.pfdm    +++|*
Line S00020 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00020.286l859 ---|*         PFCAT  - CATALOG PERMANENT FILE DEVICE (IF CATALOG ENTRIES
00023  M01S00021.286l859 ---|*                  FILE SELECTED).
00024  M01S00022.286l859 ---|*         PFREL  - RELEASE DISK SPACE OF FILES RESIDING ON ALTERNATE
00025  M01S00023.286l859 ---|*                  STORAGE MEDIA.
Line S00002 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00002.286l859 +++|*         PFCAT - CATALOG PERMANENT FILE DEVICE.
00027  M01S00003.286l859 +++|*         PFREL - RELEASE DISK SPACE OF FILES RESIDING ON ALTERNATE
00028  M01S00004.286l859 +++|*                 STORAGE MEDIA.
00029  M00S00024.pfdm    +++|          SPACE  4,30
00030  M00S00025.pfdm    +++|***       MESSAGE LEGEND.
00031  M00S00026.pfdm    +++|*
00032  M00S00027.pfdm    +++|*         THE FOLLOWING LEGEND DEFINES PARAMETERS THAT ARE USED IN MANY
00033  M00S00028.pfdm    +++|*         OF THE UTILITY ERROR MESSAGES.  THE DESCRIPTIVE CHARACTER
00034  M00S00029.pfdm    +++|*         STRINGS DEFINED HERE ARE REPLACED BY THEIR ACTUAL VALUE WHEN
00035  M00S00030.pfdm    +++|*         A PARTICULAR MESSAGE IS ISSUED.  THE _ CHARACTER DOES NOT
00036  M00S00031.pfdm    +++|*         APPEAR IN ACTUAL MESSAGES BUT IS USED IN THE DOCUMENTATION AS
00037  M00S00032.pfdm    +++|*         A DELIMITER TO AVOID AMBIGUITIES.
00038  M00S00033.pfdm    +++|*
Line S00034 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00034.286l859 ---|*         CCC      = LOGICAL CATALOG TRACK.
00040  M01S00035.286l859 ---|*         DAPF     = DIRECT ACCESS FILE (NO SUBSTITUTION IN MESSAGE).
00041  M00S00036.pfdm    +++|*         DD       = DEVICE NUMBER.
00042  M00S00037.pfdm    +++|*         EEE      = EST ORDINAL.
Line S00038 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00038.286l859 ---|*         FFFFFFF  = FAMILY NAME.
00044  M01S00039.286l859 ---|*         IAPF     = INDIRECT ACCESS FILE (NO SUBSTITUTION IN MESSAGE).
00045  M00S00040.pfdm    +++|*         MMMMM    = NUMBER OF FILES.
00046  M00S00041.pfdm    +++|*         NNNNNNN  = PERMANENT FILE NAME.
Line S00042 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00042.286l859 ---|*         PPPPPPP  = PACK NAME.
00048  M01S00043.286l859 ---|*         RRRRRRRR = RELATIVE PRU OF FILE CONTAINING AN ERROR.
00049  M01S00044.286l859 ---|*         SSSS     = LOGICAL SECTOR.
00050  M01S00045.286l859 ---|*         TTTT     = LOGICAL TRACK.
00051  M00S00046.pfdm    +++|*         UUUUUU   = USER INDEX.
Line S00047 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00047.286l859 ---|*         XXXXXXXX = COUNT OF PRU,S TRUNCATED.
00053  M01S00048.286l859 ---|          SPACE  4,10
Line S00005 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00005.286l859 +++|          SPACE  4,40
00055  M00S00049.pfdm    +++|***       INFORMATIVE DAYFILE MESSAGES.
00056  M00S00050.pfdm    +++|*
Line S00051 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00051.286l859 ---|*         * MMMMM FILES RELEASED.* - THE NUMBER OF FILES RELEASED BY
00058  M01S00052.286l859 ---|*         PFREL.
Line S00006 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00006.286l859 +++|*         * ERROR FLAG TERMINATION.*
00060  M01S00007.286l859 +++|*                AN EXTERNAL ERROR FLAG WAS DETECTED.
00061  M01S00008.286l859 +++|*
00062  M01S00009.286l859 +++|*         * MMMMMM FILES CATALOGED.*
00063  M01S00010.286l859 +++|*                THE NUMBER OF FILES CATALOGED BY *PFCAT*.
00064  M01S00011.286l859 +++|*
00065  M01S00012.286l859 +++|*         * MMMMMM FILES RELEASED.*
00066  M01S00013.286l859 +++|*                THE NUMBER OF FILES RELEASED BY *PFREL*.
00067  M01S00014.286l859 +++|*
00068  M01S00015.286l859 +++|*         * MMMMMM FILES SELECTED FOR RELEASE.*
00069  M01S00016.286l859 +++|*                THE NUMBER OF FILES SELECTED FOR RELEASE BY *PFREL*.
00070  M01S00017.286l859 +++|*
00071  M01S00018.286l859 +++|*         * PFCAT COMPLETE.*
00072  M01S00019.286l859 +++|*                *PFCAT* TERMINATED.
00073  M01S00020.286l859 +++|*
00074  M01S00021.286l859 +++|*         * PFREL COMPLETE.*
00075  M01S00022.286l859 +++|*                *PFREL* TERMINATED.
00076  M00S00053.pfdm    +++|          SPACE  4,20
00077  M00S00054.pfdm    +++|***       INFORMATIVE OPERATOR MESSAGES.
00078  M00S00055.pfdm    +++|*
Line S00056 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00079  M01S00056.286l859 ---|*         * WAIT FOR CATALOG INTERLOCK.* - THE UTILITY IS WAITING FOR
00080  M01S00057.286l859 ---|*         *PFU* TO  SET A CATALOG TRACK INTERLOCK BEFORE PROCESSING
00081  M01S00058.286l859 ---|*         FILES CATALOGED ON THAT TRACK.
Line S00023 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00082  M01S00023.286l859 +++|*         * WAIT FOR CATALOG INTERLOCK.*
00083  M01S00024.286l859 +++|*                THE UTILITY IS WAITING FOR *PFU* TO SET A CATALOG
00084  M01S00025.286l859 +++|*                TRACK INTERLOCK BEFORE PROCESSING FILES CATALOGED ON
00085  M01S00026.286l859 +++|*                THAT TRACK.
00086  M00S00059.pfdm    +++|*
Line S00060 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00060.286l859 ---|*         * CLEARING PF ACTIVITY COUNT.* - THE UTILITY IS WAITING FOR
00088  M01S00061.286l859 ---|*         *PFU* TO DECREMENT THE PERMANENT FILE ACTIVITY COUNT WHEN
00089  M01S00062.286l859 ---|*         PROCESSING HAS BEEN COMPLETED.
Line S00027 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00027.286l859 +++|*         * CLEARING PF ACTIVITY COUNT.*
00091  M01S00028.286l859 +++|*                THE UTILITY IS WAITING FOR *PFU* TO DECREMENT THE
00092  M01S00029.286l859 +++|*                PERMANENT FILE ACTIVITY COUNT WHEN PROCESSING HAS BEEN
00093  M01S00030.286l859 +++|*                COMPLETED.
00094  M00S00063.pfdm    +++|*
Line S00064 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00064.286l859 ---|*         * SETTING PF ACTIVITY COUNT.* - THE UTILITY IS WAITING FOR
00096  M01S00065.286l859 ---|*         FOR *PFU* TO INCREMENT THE PERMANENT FILE ACTIVITY COUNT
00097  M01S00066.286l859 ---|*         BEFORE PROCESSING A DEVICE.
00098  M01S00067.286l859 ---|*
00099  M01S00068.286l859 ---|*         * WAIT FOR PF UTILITY ON XXX.* - THE UTILITY IS WAITING FOR
00100  M01S00069.286l859 ---|*         ANOTHER PERMANENT FILE UTILITY TO COMPLETE PROCESSING ON EST
00101  M01S00070.286l859 ---|*         ORDINAL *XXX*.
Line S00031 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00031.286l859 +++|*         * SETTING PF ACTIVITY COUNT.*
00103  M01S00032.286l859 +++|*                THE UTILITY IS WAITING FOR FOR *PFU* TO INCREMENT THE
00104  M01S00033.286l859 +++|*                PERMANENT FILE ACTIVITY COUNT BEFORE PROCESSING A
00105  M01S00034.286l859 +++|*                DEVICE.
00106  M00S00071.pfdm    +++|          SPACE  4,15
00107  M00S00072.pfdm    +++|***       SYSTEM ERROR MESSAGES THAT ARE FATAL.
00108  M00S00073.pfdm    +++|*
00109  M00S00074.pfdm    +++|*         THESE ERRORS RESULT IN THE UTILITY ABORTING.
00110  M00S00075.pfdm    +++|*
Line S00076 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00076.286l859 ---|*         * PFUUUUU - DEVICE XX NOT FOUND.* = THE DEVICE SPECIFIED TO
00112  M01S00077.286l859 ---|*         BE PROCESSED (*XX*) WAS NOT FOUND.
Line S00035 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00113  M01S00035.286l859 +++|*         * SELECTED MASTER OR TRUE DEVICE NOT FOUND.*
00114  M01S00036.286l859 +++|*                THE DEVICE SPECIFIED WITH THE *DN* OR *TD* PARAMETER
00115  M01S00037.286l859 +++|*                WAS NOT FOUND.
00116  M00S00078.pfdm    +++|*
Line S00079 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00117  M01S00079.286l859 ---|*         * PFUUUUU - NO FILES SELECTED.* = THE FILE SELECTION
00118  M01S00080.286l859 ---|*         PARAMETERS SPECIFIED FOR PROCESSING WERE SUCH THAT NO DEVICES
00119  M01S00081.286l859 ---|*         IN THE SYSTEM COULD CONTAIN THE SPECIFIED FILES.  THIS MAY
00120  M01S00082.286l859 ---|*         BE CAUSED BY CONFLICTING SELECTION PARAMETERS.
00121  M01S00083.286l859 ---|          SPACE  4,30
Line S00038 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00122  M01S00038.286l859 +++|*         * NO FILES SELECTED.*
00123  M01S00039.286l859 +++|*                THE FILE SELECTION PARAMETERS SPECIFIED FOR PROCESSING
00124  M01S00040.286l859 +++|*                WERE SUCH THAT NO DEVICES IN THE SYSTEM COULD CONTAIN
00125  M01S00041.286l859 +++|*                THE SPECIFIED FILES.  THIS MAY BE CAUSED BY
00126  M01S00042.286l859 +++|*                CONFLICTING SELECTION PARAMETERS.
00127  M01S00043.286l859 +++|          SPACE  4,40
00128  M00S00084.pfdm    +++|***       SYSTEM ERROR MESSAGES WHICH ARE NON FATAL.
00129  M00S00085.pfdm    +++|*
00130  M00S00086.pfdm    +++|*         SEE *MESSAGE LEGEND* ABOVE FOR A DESCRIPTION OF PARAMETERS
00131  M00S00087.pfdm    +++|*         APPEARING IN THESE MESSAGES.
00132  M00S00088.pfdm    +++|*
Line S00089 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00089.286l859 ---|*         * PFUUUU - CATALOG READ ERROR,FM=FFFFFFF,DN_DD,CT_CCC,EQ_EEE,
00134  M01S00090.286l859 ---|*         T_TTTT,S_SSSS.* - A MASS STORAGE ERROR OCCURRED WHILE READING
00135  M01S00091.286l859 ---|*         CATALOG INFORMATION FROM THE SPECIFIED FAMILY DEVICE.  FILES
00136  M01S00092.286l859 ---|*         CATALOGED IN THE BAD SECTOR ARE NOT PROCESSED.  PROCESSING IS
00137  M01S00093.286l859 ---|*         CONTINUED WITH THE NEXT SECTOR OF THE AFFECTED CATALOG TRACK
00138  M01S00094.286l859 ---|*         IF POSSIBLE, OTHERWISE WITH THE NEXT CATALOG TRACK OR DEVICE
00139  M01S00095.286l859 ---|*         AS APPROPRIATE.
Line S00044 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00140  M01S00044.286l859 +++|*         * CATALOG READ ERROR, UI=UUUUUU.
00141  M01S00045.286l859 +++|*                A MASS STORAGE ERROR OCCURRED WHILE READING THE
00142  M01S00046.286l859 +++|*                PERMANENT FILE CATALOG TRACK FOR THE INDICATED USER
00143  M01S00047.286l859 +++|*                INDEX.  ANY REMAINING FILES CATALOGED ON THE AFFECTED
00144  M01S00048.286l859 +++|*                TRACK WILL NOT BE DUMPED.
Line S00096 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00145  M01S00096.286l859 ---|*
00146  M01S00097.286l859 ---|*         * PFUUUU - CATALOG READ ERROR,FN=NNNNNNN,UI=UUUUUU.* - THE
00147  M01S00098.286l859 ---|*         SPECIFIED FILE WAS CATALOGED IN A SECTOR AFFECTED BY A MASS
00148  M01S00099.286l859 ---|*         STORAGE ERROR.  THE FILE IS NOT PROCESSED.
00149  M00S00100.pfdm    +++|*
Line S00101 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00101.286l859 ---|*         * PFUUUU - CATALOG READ ERROR,PN=PPPPPPP,EQ_EEE,T_TTTT,
00151  M01S00102.286l859 ---|*         S_SSSS.* - A MASS STORAGE ERROR OCCURRED WHILE READING
00152  M01S00103.286l859 ---|*         CATALOG INFORMATION FROM THE SPECIFIED AUXILIARY DEVICE.
00153  M01S00104.286l859 ---|*         FILES CATALOGED IN THE BAD SECTOR ARE NOT PROCESSED.
00154  M01S00105.286l859 ---|*         PROCESSING IS CONTINUED WITH THE NEXT SECTOR OF CATALOGS IF
00155  M01S00106.286l859 ---|*         POSSIBLE.
00156  M01S00107.286l859 ---|*
00157  M01S00108.286l859 ---|*         * PFUUUU - DEVICE NOT FOUND,FN=NNNNNNN,UI=UUUUUU,DN_DD.* -
00158  M01S00109.286l859 ---|*         THE SPECIFIED DIRECT ACCESS FILE, RESIDENT ON DEVICE *DD*,
00159  M01S00110.286l859 ---|*         WAS TO BE PROCESSED BUT DEVICE *DD* COULD NOT BE FOUND IN THE
00160  M01S00111.286l859 ---|*         SYSTEM.
00161  M01S00112.286l859 ---|*
00162  M01S00113.286l859 ---|*         * PFUUUU - ORPHAN PFC ENCOUNTERED,FN=NNNNNNN,UI=UUUUUU.*
00163  M01S00114.286l859 ---|*         - THE SPECIFIED FILE HAS NEITHER A DISK IMAGE NOR AN
00164  M01S00115.286l859 ---|*         ALTERNATE STORAGE IMAGE.  PROCESSING IS CONTINUED WITH THE
00165  M01S00116.286l859 ---|*         NEXT FILE.
00166  M01S00117.286l859 ---|*
00167  M01S00118.286l859 ---|          SPACE  4,25
00168  M01S00119.286l859 ---|***       ERRLOG MESSAGES.
00169  M01S00120.286l859 ---|*
00170  M01S00121.286l859 ---|*         ANY OF THE ABOVE MESSAGES SENT TO THE ERRLOG AS WELL AS
00171  M01S00122.286l859 ---|*         TO THE DAYFILE, ARE REFORMATTED AS FOLLOWS -
00172  M01S00123.286l859 ---|*
00173  M01S00124.286l859 ---|*         *EQ_EEE,DN_DD,SSSS--SSSS.*
00174  M01S00125.286l859 ---|*
00175  M01S00126.286l859 ---|*         WHERE -
00176  M01S00127.286l859 ---|*
00177  M01S00128.286l859 ---|*         EEE IS THE EST ORDINAL.
00178  M01S00129.286l859 ---|*         DD IS THE DEVICE NUMBER.
00179  M01S00130.286l859 ---|*         SSSS--SSSS IS THE MESSAGE DESCRIPTION STRING STRIPPED OF
00180  M01S00131.286l859 ---|*                    ITS APPENDED PARAMETER LIST.
00181  M01S00132.286l859 ---|*
00182  M01S00133.286l859 ---|*         EXAMPLE -
00183  M01S00134.286l859 ---|*
00184  M01S00135.286l859 ---|*         THE DAYFILE MESSAGE -
00185  M01S00136.286l859 ---|*         * PFREL - DEVICE ERROR IDLE SET,FM=FFFFFFF,DN_DD,EQ_EEE,...*
00186  M01S00137.286l859 ---|*
00187  M01S00138.286l859 ---|*         BECOMES THE ERRLOG MESSAGE -
00188  M01S00139.286l859 ---|*         *EQ_EEE,DN_DD,PFREL - DEVICE ERROR IDLE SET.*
00189  M01S00140.286l859 ---|*
Line S00049 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00049.286l859 +++|*         * DEVICE NOT FOUND, FN=NNNNNNN, UI=UUUUUU, DN=DD.*
00191  M01S00050.286l859 +++|*                THE SPECIFIED DIRECT ACCESS FILE, RESIDENT ON DEVICE
00192  M01S00051.286l859 +++|*                *DD*, WAS TO BE PROCESSED BUT DEVICE *DD* COULD NOT BE
00193  M01S00052.286l859 +++|*                FOUND IN THE SYSTEM.
00194  M00S00141.pfdm    +++|          SPACE  4,10
00195  M00S00142.pfdm    +++|*         COMMON DECKS
00196  M00S00143.pfdm    +++|
00197  M00S00144.pfdm    +++|
00198  M00S00145.pfdm    +++|*CALL     COMCMAC
00199  M00S00146.pfdm    +++|*CALL     COMCCMD
00200  M00S00147.pfdm    +++|*CALL     COMSLFD
00201  M00S00148.pfdm    +++|*CALL     COMSMLS
00202  M00S00149.pfdm    +++|*CALL     COMSMMF
00203  M00S00150.pfdm    +++|*CALL     COMSMST
00204  M00S00151.pfdm    +++|*CALL     COMSPFM
00205  M00S00152.pfdm    +++|          LIST   X
00206  M00S00153.pfdm    +++|*CALL     COMSPFS
00207  M00S00154.pfdm    +++|          LIST   *
00208  M00S00155.pfdm    +++|*CALL     COMSPFU
00209  M00S00156.pfdm    +++|*CALL     COMSPRD
Line S00053 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00210  M01S00053.286l859 +++|*CALL     COMSRPV
00211  M00S00157.pfdm    +++|*CALL     COMSSFM
Line S00054 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00054.286l859 +++|*CALL     COMSVER
00213  M00S00158.pfdm    +++|          TITLE  PROGRAM CONSTANT SECTION.
00214  M00S00159.pfdm    +++|          SPACE  4,10
00215  M00S00160.pfdm    +++|*         MISCELLANEOUS CONSTANTS.
00216  M00S00161.pfdm    +++|
Line S00162 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00162.286l859 ---| CWSW     EQU    5           CONTROL WORD STATUS WORD
00218  M01S00163.286l859 ---| NWPR     EQU    100B        NUMBER WORDS/PRU
00219  M01S00164.286l859 ---| NWCP     EQU    NWPR+2      NUMBER WORDS/*CIO* CONTROL WORD PRU
00220  M01S00165.286l859 ---| NCPR     EQU    NWPR/NWCE   NUMBER CATALOG ENTRIES/PRU
Line S00055 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00055.286l859 +++| NWCP     EQU    102B        LENGTH OF PRU WITH *CIO* CONTROL WORDS
00222  M00S00166.pfdm    +++|
00223  M00S00167.pfdm    +++|*         BUFFER LENGTHS.
00224  M00S00168.pfdm    +++|
00225  M00S00169.pfdm    +++| CATBL    EQU    10*NWCP+1   CATALOG BUFFER LENGTH
Line S00170 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00170.286l859 ---| CBUFL    EQU    5*NWPR      CATALOG WORKING STORAGE LENGTH
00227  M00S00171.pfdm    +++| DBUFL    EQU    101B        GET DEVICE INFORMATION BUFFER
Line S00056 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00056.286l859 +++| MSFBL    EQU    10001B      *COMCMSF* SORT FILES BUFFER LENGTH
00229  M00S00172.pfdm    +++| OUTBL    EQU    1001B       OUTPUT FILE BUFFER LENGTH
00230  M00S00173.pfdm    +++| PFRBL    EQU    101B        *PFM* REQUEST FILE BUFFER LENGTH
00231  M00S00174.pfdm    +++| SABFL    EQU    1000B       SUMMARY FILE ASSEMBLY BUFFER LENGTH
Line S00057 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00232  M01S00057.286l859 +++| SRTBL    EQU    20000B      SORT BUFFER LENGTH
00233  M01S00058.286l859 +++| PFLBL    EQU    1001B       PROCESSED FILES FILE BUFFER LENGTH
00234  M00S00175.pfdm    +++| SUMBL    EQU    1001B       SUMMARY FILE BUFFER LENGTH
00235  M00S00176.pfdm    +++|
00236  M00S00177.pfdm    +++|*         *SETPFP* OPTION CONSTANTS.
00237  M00S00178.pfdm    +++|
00238  M00S00179.pfdm    +++| FMPR     EQU    10B         FAMILY NAME PARAMETER FLAG
00239  M00S00180.pfdm    +++| PKPR     EQU    4           PACKNAME PARAMETER FLAG
00240  M00S00181.pfdm    +++| UNPR     EQU    2           USER NAME PARAMETER FLAG
00241  M00S00182.pfdm    +++| UIPR     EQU    1           USER INDEX PARAMETER FLAG
00242  M00S00183.pfdm    +++|
00243  M00S00184.pfdm    +++|*         *COMSPFS* EQUIVALENCES.
00244  M00S00185.pfdm    +++|
00245  M00S00186.pfdm    +++| CPAR     EQU    /COMSPFS/CPL  CONVERTED PARAMETER LIST
00246  M00S00187.pfdm    +++| IDSA     EQU    /COMSPFS/PADR
Line S00188 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00247  M01S00188.286l859 ---| CPPP     EQU    /COMSPFS/PPPT
00248  M01S00189.286l859 ---| LNPP     EQU    CPPP+/COMSPFS/PPLN  LINE NUMBER
00249  M01S00190.286l859 ---| PDFE     EQU    CPPP+/COMSPFS/PPPD  PRINT DENSITY FORMAT EFFECTOR
00250  M00S00191.pfdm    +++|          TITLE  MAIN ROUTINES.
00251  M00S00192.pfdm    +++| PFD      SPACE  4,10
00252  M00S00193.pfdm    +++|**        MAIN PROGRAM.
00253  M00S00194.pfdm    +++|*
Line S00195 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00195.286l859 ---|*         CALLS  CDD, PCB, PRS, RCE, SND, SNM, TER.
Line S00059 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00255  M01S00059.286l859 +++|*         EXIT   TO *END*.
00256  M00S00196.pfdm    +++|*
Line S00197 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00197.286l859 ---|*         MACROS ENDRUN, MESSAGE, READCW, PCINT.
Line S00060 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00060.286l859 +++|*         CALLS  OCF, PCF, PCT, PFR, PRS, SNC, SND.
00259  M01S00061.286l859 +++|*
00260  M01S00062.286l859 +++|*         MACROS RETURN, SETPFP.
00261  M00S00198.pfdm    +++|
00262  M00S00199.pfdm    +++|
Line S00200 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00200.286l859 ---|          ORG    /COMSPFS/OVLB
Line S00063 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00264  M01S00063.286l859 +++|          ORG    /COMSPFS/OVLA
00265  M00S00201.pfdm    +++|
00266  M00S00202.pfdm    +++|
00267  M00S00203.pfdm    +++| PFD      BSS    0           ENTRY
00268  M00S00204.pfdm    +++|          RJ     PRS         PRESET PROGRAM
Line S00205 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00269  M01S00205.286l859 ---|          EQ     PFD2        PROCESS FIRST DEVICE
00270  M00S00206.pfdm    +++|
00271  M00S00207.pfdm    +++|*         PROCESS NEXT DEVICE.
00272  M00S00208.pfdm    +++|
Line S00209 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00273  M01S00209.286l859 ---| PFD1     PCINT  CATS,CTCC   CLEAR CATALOG TRACK INTERLOCK
00274  M01S00210.286l859 ---| PFD2     RJ     SND         SET NEXT DEVICE
00275  M01S00211.286l859 ---|          ZR     X1,PFD6     IF NO MORE DEVICES
00276  M01S00212.286l859 ---|          SA1    PDUI        SET FIRST CATALOG TRACK
00277  M01S00213.286l859 ---|          SA2    NCAT        FORM CATALOG TRACK MASK
00278  M01S00214.286l859 ---|          SX2    X2-1
00279  M01S00215.286l859 ---|          LX1    -3
00280  M01S00216.286l859 ---|          BX6    X2*X1
00281  M01S00217.286l859 ---|          SA6    MPCT
Line S00064 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00282  M01S00064.286l859 +++| PFD1     RETURN CATS        RETURN OLD CATALOG FILE
00283  M01S00065.286l859 +++|          RJ     SND         SET NEXT DEVICE
00284  M01S00066.286l859 +++|          ZR     X1,PFD4     IF NO MORE DEVICES
00285  M01S00067.286l859 +++|          RJ     OCF         OPEN CATALOG FILE
00286  M00S00218.pfdm    +++|
00287  M00S00219.pfdm    +++|*         PROCESS CATALOG TRACK.
00288  M00S00220.pfdm    +++|
Line S00221 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00221.286l859 ---| PFD3     BX6    X6-X6       CLEAR UNPROCESSED CONTROL WORD
00290  M01S00222.286l859 ---|          SA6    CWNP
00291  M01S00223.286l859 ---|          MX6    24          PRESET PREVIOUS SECTOR CONTROL WORD
00292  M01S00224.286l859 ---|          SA1    CATS+FTPM
00293  M01S00225.286l859 ---|          BX6    X6*X1       SET EST ORDINAL AND TRACK
00294  M01S00226.286l859 ---|          LX6    -24
00295  M01S00227.286l859 ---|          SX1    7777B       SET SECTOR = -1
00296  M01S00228.286l859 ---|          BX6    X6+X1
00297  M01S00229.286l859 ---|          SA6    CPCW
00298  M01S00230.286l859 ---|          SA1    CATS+FTFT   SET IN = OUT = FIRST
00299  M01S00231.286l859 ---|          SX6    X1+
00300  M01S00232.286l859 ---|          SA6    A1+B1
00301  M01S00233.286l859 ---|          SA6    A6+B1
00302  M01S00234.286l859 ---|          READCW CATS,17B    INITIATE CATALOG READ
00303  M01S00235.286l859 ---| PFD4     SX2    CATS
00304  M01S00236.286l859 ---|          RJ     RCE         READ BUFFER OF CATALOG ENTRIES
00305  M01S00237.286l859 ---|          EQ     B3,B6,PFD5  IF NO CATALOG ENTRIES
00306  M01S00238.286l859 ---|          RJ     PCB         PROCESS CATALOG BUFFER
00307  M01S00239.286l859 ---|          SA1    CFTS
00308  M01S00240.286l859 ---|          ZR     X1,PFD4     IF NOT END OF CATALOG TRACK
00309  M01S00241.286l859 ---|
00310  M01S00242.286l859 ---|*         CHECK DEVICE TERMINATION.
00311  M01S00243.286l859 ---|
00312  M01S00244.286l859 ---| PFD5     SA1    CPAR+/COMSPFS/CPUI
00313  M01S00245.286l859 ---|          NZ     X1,PFD1     IF PROCESSING SINGLE USER INDEX
00314  M01S00246.286l859 ---|          SA1    NCAT        GET NUMBER OF CATALOG TRACKS LEFT
00315  M01S00247.286l859 ---|          SX6    X1-1
00316  M01S00248.286l859 ---|          ZR     X6,PFD1     IF NO CATALOG TRACKS LEFT
00317  M01S00249.286l859 ---|          SA6    NCAT
00318  M01S00250.286l859 ---|          PCINT  CATS,CTAC   ADVANCE CATALOG TRACK
00319  M01S00251.286l859 ---|          SA1    MPCT        UPDATE CATALOG TRACK FOR MESSAGES
00320  M01S00252.286l859 ---|          SX6    X1+B1
00321  M01S00253.286l859 ---|          SA6    A1
00322  M01S00254.286l859 ---|          EQ     PFD3        PROCESS NEXT CATALOG TRACK
Line S00068 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00068.286l859 +++| PFD2     RJ     SNC         SET NEXT CATALOG TRACK
00324  M01S00069.286l859 +++|          RJ     PCF         POSITION CATALOG FILE
00325  M01S00070.286l859 +++|          NG     X5,PFD1     IF END OF CATALOG TRACKS
00326  M01S00071.286l859 +++|          RJ     PCT         PROCESS CATALOG TRACK
00327  M01S00072.286l859 +++|          EQ     PFD2        SET NEXT CATALOG TRACK
00328  M00S00255.pfdm    +++|
00329  M00S00256.pfdm    +++|*         PERFORM TERMINATION PROCESSING.
00330  M00S00257.pfdm    +++|
Line S00258 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00331  M01S00258.286l859 ---| PFD6     SA1    /COMSPFS/UTLC
Line S00073 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00332  M01S00073.286l859 +++| PFD4     RJ     PSF         PROCESS SORTED FILE OUTPUT
00333  M01S00074.286l859 +++|          SA1    /COMSPFS/UTLC
00334  M00S00259.pfdm    +++|          SX1    X1-/COMSPFS/CAUT
Line S00260 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00335  M01S00260.286l859 ---|          ZR     X1,PFD8     IF *PFCAT*
Line S00075 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00336  M01S00075.286l859 +++|          ZR     X1,PFD5     IF *PFCAT*
00337  M00S00261.pfdm    +++|          RJ     PFR         PROCESS *PFM* REQUESTS
Line S00262 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00262.286l859 ---|          SA2    PFRI        GET ACCUMULATOR
00339  M01S00263.286l859 ---|          LX2    -18
00340  M01S00264.286l859 ---|          SA1    X2
00341  M01S00265.286l859 ---|          SB2    X1
00342  M01S00266.286l859 ---|          NE     B2,B1,PFD7  IF COUNT NOT = 1
00343  M01S00267.286l859 ---|          MESSAGE  RF1M      * 1 FILE RELEASED.*
00344  M01S00268.286l859 ---|          EQ     PFD8        TERMINATE ROUTINE
Line S00076 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00345  M01S00076.286l859 +++| PFD5     SETPFP GPAR        RESTORE PERMANENT FILE PARAMETERS
00346  M01S00077.286l859 +++|          EQ     END         TERMINATE
00347  M01S00078.286l859 +++| PCT      SPACE  4,20
00348  M01S00079.286l859 +++|**        PCT - PROCESS CATALOG TRACK.
00349  M01S00080.286l859 +++|*
00350  M01S00081.286l859 +++|*         EXIT   ALL FILES ON CATALOG TRACK PROCESSED.
00351  M01S00082.286l859 +++|*
00352  M01S00083.286l859 +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
00353  M01S00084.286l859 +++|*                A - 0, 1, 2, 3, 4, 5, 6, 7.
00354  M01S00085.286l859 +++|*                B - 4.
00355  M01S00086.286l859 +++|*
00356  M01S00087.286l859 +++|*         CALLS  CCH, CFP, CRC, CSC, RCS, SCA, SFL.
00357  M01S00088.286l859 +++|*
00358  M01S00089.286l859 +++|*         MACROS READCW.
00359  M00S00269.pfdm    +++|
Line S00270 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00270.286l859 ---| PFD7     RJ     CDD         CONVERT TO DECIMAL DISPLAY
00361  M01S00271.286l859 ---|          MX0    -30         MASK TO FIVE DIGITS
00362  M01S00272.286l859 ---|          BX1    -X0*X6
00363  M01S00273.286l859 ---|          LX1    -30         LEFT JUSTIFY
00364  M01S00274.286l859 ---|          SB2    1R=
00365  M01S00275.286l859 ---|          SB5    RFMS
00366  M01S00276.286l859 ---|          RJ     SNM         SET NUMBER OF FILES INTO MESSAGE
00367  M01S00277.286l859 ---|          MESSAGE  RFMS      * NNNNN FILES RELEASED.*
00368  M01S00278.286l859 ---| PFD8     RJ     TER         PERFORM TERMINATION PROCESSING
00369  M01S00279.286l859 ---|          MESSAGE  MECM      * PFUUUUU COMPLETE.*
00370  M01S00280.286l859 ---|          ENDRUN
00371  M01S00281.286l859 ---| PCB      SPACE  4,20
00372  M01S00282.286l859 ---|**        PCB - PROCESS CATALOG BUFFER.
00373  M01S00283.286l859 ---|*
00374  M01S00284.286l859 ---|*         ENTRY  (B3) = FWA OF ENTRIES IN CBUF (CBUF+0).
00375  M01S00285.286l859 ---|*                (B6) = LWA+1 OF ENTRIES IN CBUF.
00376  M01S00286.286l859 ---|*
Line S00287 Modification History
M01 (Removed by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00287.286l859 ---|*         USES   X - 0, 1, 2, 4, 6, 7.
Line S00001 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00001.286l859 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
Line S00288 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00379  M01S00288.286l859 ---|*                A - 1, 2, 3, 4, 6, 7.
00380  M01S00289.286l859 ---|*                B - 4.
00381  M01S00290.286l859 ---|*
Line S00291 Modification History
M01 (Removed by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00382  M02S00291.286l859 ---|*         CALLS  CSC, SFL.
Line S00002 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00002.286l859 ---|*         CALLS  CRC, CSC, OCD, SFL.
00384  M00S00292.pfdm    +++|
Line S00090 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00090.286l859 +++| PCT      SUBR               ENTRY/EXIT
00386  M00S00293.pfdm    +++|
Line S00294 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00294.286l859 ---| PCB      SUBR               ENTRY/EXIT
00388  M01S00295.286l859 ---|          SX6    B6          SET LWA+1 OF CATALOG ENTRIES
00389  M01S00296.286l859 ---|          SA6    PCBA
00390  M01S00297.286l859 ---|          BX6    X6-X6       RESET CATALOG ORDINAL
00391  M01S00298.286l859 ---| PCB1     SX7    B3+         SET CATALOG ENTRY ADDRESS
00392  M01S00299.286l859 ---|          SA6    CBIN        SET CATALOG BUFFER INDEX
00393  M01S00300.286l859 ---|          SA7    CATA        SET CATALOG ENTRY ADDRESS
00394  M01S00301.286l859 ---|          SA1    B3+FCUI     CHECK USER INDEX
00395  M01S00302.286l859 ---|          SA2    B3+FCDN     CHECK RESIDENCY DEVICE
00396  M01S00303.286l859 ---|          SA3    FSNM
Line S00091 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00091.286l859 +++|*         INITIALIZE CATALOG FILE FET AND INITIATE READ.
00398  M01S00092.286l859 +++|
00399  M01S00093.286l859 +++|          SA1    CATS+FTFT
00400  M01S00094.286l859 +++|          SX6    X1
00401  M01S00095.286l859 +++|          SA6    A1+B1       SET IN = FIRST
00402  M01S00096.286l859 +++|          SA6    A6+B1       SET OUT = FIRST
00403  M01S00097.286l859 +++|          READCW CATS,17B    INITIATE CATALOG READ
00404  M01S00098.286l859 +++|
00405  M01S00099.286l859 +++|*         READ SECTOR OF CATALOG ENTRIES.
00406  M01S00100.286l859 +++|
00407  M01S00101.286l859 +++| PCT1     SA0    CSBF        INITIALIZE CATALOG ADDRESS
00408  M01S00102.286l859 +++|          SX2    CATS        SET FET ADDRESS
00409  M01S00103.286l859 +++|          RJ     RCS         READ CATALOG SECTOR
00410  M01S00104.286l859 +++|          ZR     X1,PCT2     IF READ COMPLETE
00411  M01S00105.286l859 +++|          PL     X1,PCTX     IF END OF CATALOG TRACK OR FATAL ERROR
00412  M01S00106.286l859 +++|          EQ     PCT1        READ NEXT SECTOR
00413  M01S00107.286l859 +++|
00414  M01S00108.286l859 +++|*         CHECK CATALOG ENTRY.
00415  M01S00109.286l859 +++|
00416  M01S00110.286l859 +++| PCT2     SA1    A0+FCUI
00417  M01S00111.286l859 +++|          SA3    CPAR+/COMSPFS/CPTD
00418  M00S00304.pfdm    +++|          SA4    FLSF
Line S00003 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00003.286l859 ---|          SX7    B0+
00420  M02S00004.286l859 ---|          SA7    FLCF        INITIALIZE FILE LENGTH CORRECT FLAG
Line S00112 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00421  M01S00112.286l859 +++|          SX6    B0
00422  M01S00113.286l859 +++|          MX7    -6
00423  M01S00114.286l859 +++|          SA6    FLCF        INITIALIZE FILE LENGTH CORRECT FLAG
00424  M00S00305.pfdm    +++|          MX0    -18
Line S00115 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00115.286l859 +++|          BX1    -X0*X1      USER INDEX
00426  M01S00116.286l859 +++|          ZR     X1,PCT7     IF CATALOG HOLE
00427  M01S00117.286l859 +++|          ZR     X3,PCT4     IF NO TRUE DEVICE SELECTION
00428  M01S00118.286l859 +++|          SA2    A0+FCDN
00429  M01S00119.286l859 +++|          SA1    CPAR+/COMSPFS/CPDN
Line S00306 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00430  M01S00306.286l859 ---|          MX7    -6
00431  M01S00307.286l859 ---|          BX1    -X0*X1
00432  M00S00308.pfdm    +++|          LX2    -36
Line S00309 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00433  M01S00309.286l859 ---|          ZR     X1,PCB5     IF HOLE ENTRY
00434  M01S00310.286l859 ---|          ZR     X3,PCB2     IF NOT NON - MASTER DEVICE
00435  M01S00311.286l859 ---|          BX2    -X7*X2
00436  M01S00312.286l859 ---|          IX2    X2-X3
00437  M01S00313.286l859 ---|          NZ     X2,PCB5     IF NOT CORRECT DEVICE
00438  M01S00314.286l859 ---| PCB2     ZR     X4,PCB3     IF FILE LENGTH NOT REQUIRED FOR SELECTION
Line S00120 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00439  M01S00120.286l859 +++|          BX2    -X7*X2      RESIDENCY DEVICE
00440  M01S00121.286l859 +++|          BX1    X1-X3
00441  M01S00122.286l859 +++|          BX2    X2-X3
00442  M01S00123.286l859 +++|          ZR     X1,PCT4     IF MASTER DEVICE IS TRUE DEVICE
00443  M01S00124.286l859 +++|          NZ     X2,PCT7     IF FILE DOES NOT RESIDE ON TRUE DEVICE
00444  M01S00125.286l859 +++| PCT4     ZR     X4,PCT5     IF FILE LENGTH NOT REQUIRED FOR SELECTION
00445  M00S00315.pfdm    +++|          RJ     SFL         SET FILE LENGTH IN ENTRY
Line S00316 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00446  M01S00316.286l859 ---|          NZ     X6,PCB5     IF DEVICE NOT FOUND ERROR
00447  M01S00317.286l859 ---| PCB3     SB4    B3          SET CATALOG ADDRESS
Line S00126 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00448  M01S00126.286l859 +++|          ZR     X6,PCT7     IF DEVICE NOT FOUND ERROR
00449  M01S00127.286l859 +++| PCT5     SB4    A0          SET CATALOG ADDRESS
00450  M00S00318.pfdm    +++|          RJ     CSC         CHECK SELECTION CRITERIA
Line S00319 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00451  M01S00319.286l859 ---|          ZR     X6,PCB5     IF FILE NOT SELECTED
Line S00128 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00452  M01S00128.286l859 +++|          ZR     X6,PCT7     IF FILE NOT SELECTED
00453  M00S00320.pfdm    +++|          SA1    /COMSPFS/UTLC
00454  M00S00321.pfdm    +++|          SX1    X1-/COMSPFS/CAUT
Line S00322 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00322.286l859 ---|          ZR     X1,PCB4     IF *PFCAT*
Line S00129 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00129.286l859 +++|          ZR     X1,PCT6     IF *PFCAT*
00457  M00S00323.pfdm    +++|
00458  M00S00324.pfdm    +++|*         DETERMINE IF FILE CAN BE RELEASED.
00459  M00S00325.pfdm    +++|
Line S00130 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00460  M01S00130.286l859 +++|          RJ     SCA         SET CATALOG DISK ADDRESS
00461  M00S00326.pfdm    +++|          RJ     CRC         CHECK RELEASE CRITERIA
Line S00327 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00462  M01S00327.286l859 ---|          ZR     X6,PCB5     IF FILE NOT TO BE RELEASED
Line S00131 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00131.286l859 +++|          ZR     X6,PCT7     IF FILE NOT TO BE RELEASED
00464  M00S00328.pfdm    +++|
00465  M00S00329.pfdm    +++|*         OUTPUT CATALOG DATA.
00466  M00S00330.pfdm    +++|
Line S00331 Modification History
M01 (Removed by) ns2670a
Seq #  *Modification Id* Act 
----------------------------+
00467  M01S00331.ns2670a ---| PCB4     SA3    FLSF        SET FILE LENGTH STATUS
00468  M01S00332.ns2670a ---|          RJ     WCD         WRITE CATALOG DATA
Line S00005 Modification History
M01 (Added by) ns2670a
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00005.286l859 ---| PCB4     RJ     SFL         INSURE FILE LENGTH CORRECT FOR OUTPUT
00470  M02S00006.286l859 ---|          SX6    B3          SET CATALOG ENTRY ADDRESS
00471  M02S00007.286l859 ---|          RJ     OCD         OUTPUT CATALOG DATA
Line S00132 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00132.286l859 +++| PCT6     RJ     SFL         INSURE FILE LENGTH CORRECT FOR OUTPUT
00473  M01S00133.286l859 +++|          RJ     CFP         OUTPUT CATALOG DATA AND UPDATE FILE COUNTS
00474  M00S00333.pfdm    +++|
Line S00334 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00334.286l859 ---|*         INCREMENT CATALOG BUFFER POINTERS.
Line S00134 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00134.286l859 +++|*         ADVANCE CATALOG ADDRESS.
00477  M00S00335.pfdm    +++|
Line S00336 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00478  M01S00336.286l859 ---| PCB5     SA1    CATA
00479  M01S00337.286l859 ---|          SA2    PCBA
00480  M01S00338.286l859 ---|          SA3    CBIN
00481  M01S00339.286l859 ---|          SB3    X1+NWCE     ADVANCE CATALOG ENTRY ADDRESS
00482  M01S00340.286l859 ---|          SB4    X2
00483  M01S00341.286l859 ---|          SX6    X3+B1       ADVANCE CATALOG BUFFER INDEX
00484  M01S00342.286l859 ---|          LT     B3,B4,PCB1  IF NOT END OF CATALOG BUFFER
00485  M01S00343.286l859 ---|          EQ     PCBX        RETURN
Line S00135 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00135.286l859 +++| PCT7     SA1    CSLW
00487  M01S00136.286l859 +++|          SA0    A0+NWCE     ADVANCE CATALOG ADDRESS
00488  M01S00137.286l859 +++|          SX2    A0
00489  M01S00138.286l859 +++|          IX1    X2-X1
00490  M01S00139.286l859 +++|          NG     X1,PCT2     IF MORE ENTRIES IN SECTOR
00491  M01S00140.286l859 +++|          EQ     PCT1        READ NEXT CATALOG SECTOR
Line S00344 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00492  M01S00344.286l859 ---|
00493  M01S00345.286l859 ---| PCBA     CON    0           LWA+1 OF LAST CATALOG ENTRY
00494  M00S00346.pfdm    +++|          TITLE  PFREL ROUTINES.
Line S00347 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00347.286l859 ---| CRC      SPACE  4,15
Line S00141 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00496  M01S00141.286l859 +++| CRC      SPACE  4,20
00497  M00S00348.pfdm    +++|**        CRC - CHECK RELEASE CRITERIA.
Line S00142 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00142.286l859 +++|*
00499  M01S00143.286l859 +++|*         ENTRY  (A0) = ADDRESS OF CATALOG ENTRY.
00500  M00S00349.pfdm    +++|*
00501  M00S00350.pfdm    +++|*         EXIT   (X6) .NE. 0 IF DISK SPACE TO BE RELEASED.
00502  M00S00351.pfdm    +++|*                (X6) = 0 IF DISK SPACE NOT TO BE RELEASED.
00503  M00S00352.pfdm    +++|*                *DROPDS* ENTRY MADE IN *PFMREQ* FILE IF DISK SPACE TO
00504  M00S00353.pfdm    +++|*                  BE RELEASED.
00505  M00S00354.pfdm    +++|*
00506  M00S00355.pfdm    +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00507  M00S00356.pfdm    +++|*                A - 1, 2, 3, 5, 6.
00508  M00S00357.pfdm    +++|*                B - 3.
00509  M00S00358.pfdm    +++|*
00510  M00S00359.pfdm    +++|*         CALLS  CBR, CDS, WPR.
00511  M00S00360.pfdm    +++|*
00512  M00S00361.pfdm    +++|*         MACROS GETDI.
00513  M00S00362.pfdm    +++|
00514  M00S00363.pfdm    +++|
00515  M00S00364.pfdm    +++| CRC5     SX6    B0+         SET FILE NOT SELECTED
00516  M00S00365.pfdm    +++|
00517  M00S00366.pfdm    +++| CRC      SUBR               ENTRY/EXIT
Line S00367 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00367.286l859 ---|          SA1    B3+FCRS     CHECK PREFERRED RESIDENCE
00519  M01S00368.286l859 ---|          SA5    B3+FCBT     CHECK ACTUAL RESIDENCE
Line S00144 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00144.286l859 +++|          SA1    A0+FCRS     CHECK PREFERRED RESIDENCE
00521  M01S00145.286l859 +++|          SA5    A0+FCBT     CHECK ACTUAL RESIDENCE
00522  M00S00369.pfdm    +++|          MX0    -3
00523  M00S00370.pfdm    +++|          MX6    -12
00524  M00S00371.pfdm    +++|          LX1    3
00525  M00S00372.pfdm    +++|          LX5    -12
00526  M00S00373.pfdm    +++|          BX1    -X0*X1
00527  M00S00374.pfdm    +++|          BX6    -X6*X5
00528  M00S00375.pfdm    +++|          SX1    X1-RSLK
00529  M00S00376.pfdm    +++|          ZR     X6,CRCX     IF FILE NOT DISK RESIDENT
00530  M00S00377.pfdm    +++|          ZR     X1,CRC5     IF LOCKED TO DISK PREFERRED RESIDENCE
00531  M00S00378.pfdm    +++|          RJ     CBR         CHECK BACKUP REQUIREMENT
Line S00001 Modification History
M01 (Added by) pfdm1
Seq #  *Modification Id* Act 
----------------------------+
00532  M01S00001.pfdm1   +++|          ZR     B2,CRC5     IF NO ALTERNATE STORAGE COPIES OF FILE
00533  M00S00379.pfdm    +++|          NZ     X7,CRC2     IF FILE BACKED UP ON ALTERNATE STORAGE
00534  M00S00380.pfdm    +++|          SA1    MAEQ        EST ORDINAL OF MASTER DEVICE FOR THIS FILE
00535  M00S00381.pfdm    +++|          SA2    CRCA        EST ORDINAL FROM PREVIOUS *CRC* CALL
00536  M00S00382.pfdm    +++|          SA3    CRCB
Line S00383 Modification History
M01 (Removed by) pfdm1
Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00383.pfdm1   ---|          BX1    X1-X2
00538  M01S00384.pfdm1   ---|          ZR     X1,CRC1     IF INHIBIT DATE PRESENT FOR CURRENT DEVICE
Line S00002 Modification History
M01 (Added by) pfdm1
Seq #  *Modification Id* Act 
----------------------------+
00539  M01S00002.pfdm1   +++|          BX6    X1-X2
00540  M01S00003.pfdm1   +++|          ZR     X6,CRC1     IF INHIBIT DATE PRESENT FOR CURRENT DEVICE
00541  M00S00385.pfdm    +++|          BX6    X1          SAVE EST ORDINAL
00542  M00S00386.pfdm    +++|          SA6    CRCA
00543  M00S00387.pfdm    +++|          GETDI  DEVI,X1     GET INHIBIT DATE FOR CURRENT DEVICE
00544  M00S00388.pfdm    +++|          SA3    DBUF+MDIT   SAVE INHIBIT DATE
00545  M00S00389.pfdm    +++|          BX6    X3
00546  M00S00390.pfdm    +++|          SA6    CRCB
Line S00391 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00547  M01S00391.286l859 ---| CRC1     SA1    B3+FCUD     GET UTILITY CONTROL DATE AND TIME
Line S00146 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00548  M01S00146.286l859 +++| CRC1     SA1    A0+FCUD     GET UTILITY CONTROL DATE AND TIME
00549  M00S00392.pfdm    +++|          MX6    -36
00550  M00S00393.pfdm    +++|          BX3    -X6*X3
00551  M00S00394.pfdm    +++|          BX1    -X6*X1
00552  M00S00395.pfdm    +++|          IX1    X1-X3
00553  M00S00396.pfdm    +++|          PL     X1,CRC5     IF FILE MODIFIED SINCE LAST DUMP
00554  M00S00397.pfdm    +++|          PL     X5,CRC2     IF INDIRECT ACCESS FILE
Line S00398 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00398.286l859 ---|          SA1    B3+FCDN     GET RESIDENCY DEVICE
Line S00147 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00147.286l859 +++|          SA1    A0+FCDN     GET RESIDENCY DEVICE
00557  M00S00399.pfdm    +++|          MX6    -6
00558  M00S00400.pfdm    +++|          LX1    -36
00559  M00S00401.pfdm    +++|          BX1    -X6*X1
Line S00402 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00560  M01S00402.286l859 ---|          SX0    B3          SET CATALOG ADDRESS
00561  M00S00403.pfdm    +++|          ZR     X1,CRC2     IF FILE RESIDES ON MASTER DEVICE
00562  M00S00404.pfdm    +++|          RJ     CDS         CHECK DEVICE STATUS
Line S00405 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00563  M01S00405.286l859 ---|          SA1    CATA        RESTORE CATALOG ADDRESS
00564  M01S00406.286l859 ---|          SB3    X1+
00565  M01S00407.286l859 ---|          NZ     X6,CRC5     IF DEVICE NOT FOUND
Line S00148 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00566  M01S00148.286l859 +++|          ZR     X6,CRCX     IF DEVICE NOT FOUND
00567  M00S00408.pfdm    +++| CRC2     SA1    CPAR+/COMSPFS/CPIP
00568  M00S00409.pfdm    +++|          NZ     X1,CRC4     IF PROCESSING INHIBITED
Line S00410 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00410.286l859 ---|          SX7    B0+         SET SPECIAL REQUEST BLOCK WORD 1
Line S00149 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00149.286l859 +++|          SX7    B0          SET SPECIAL REQUEST BLOCK WORD 1
00571  M00S00411.pfdm    +++|          RJ     WPR         WRITE *PFM* REQUEST
Line S00412 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00572  M01S00412.286l859 ---|          SA1    CATA        RESET CATALOG ENTRY ADDRESS
00573  M01S00413.286l859 ---|          SB3    X1+
00574  M00S00414.pfdm    +++| CRC4     SX6    B1          SET FILE SELECTED FOR RELEASE
00575  M00S00415.pfdm    +++|          EQ     CRCX        RETURN
Line S00004 Modification History
M01 (Added by) pfdm1
Seq #  *Modification Id* Act 
----------------------------+
00576  M01S00004.pfdm1   +++|
00577  M00S00416.pfdm    +++|
00578  M00S00417.pfdm    +++| CRCA     CON    0           RELEASE INHIBIT DATE EST ORDINAL
00579  M00S00418.pfdm    +++| CRCB     CON    0           DEVICE RELEASE INHIBIT DATE AND TIME
00580  M00S00419.pfdm    +++|          TITLE  GENERAL SUBROUTINES.
Line S00420 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00581  M01S00420.286l859 ---| ABT      SPACE  4,15
00582  M01S00421.286l859 ---|**        ABT - ABORT PROCESSOR.
Line S00150 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00583  M01S00150.286l859 +++| APR      SPACE  4,10
00584  M01S00151.286l859 +++|**        APR - ABORT PROCESSOR.
00585  M00S00422.pfdm    +++|*
Line S00423 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00423.286l859 ---|*         ENTRY  (X1) = ADDRESS OF ERROR MESSAGE TO SEND TO DAYFILE.
00587  M01S00424.286l859 ---|*                AT *ABT2* FOR REPRIEVE PROCESSING.
Line S00152 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00152.286l859 +++|*         EXIT   CATALOG AND *PFM* REQUEST FILES RETURNED.
00589  M01S00153.286l859 +++|*                PERMANENT FILE ACTIVITY COUNT DECREMENTED.
00590  M01S00154.286l859 +++|*                PERMANENT FILE PARAMETERS RESTORED.
00591  M00S00425.pfdm    +++|*
Line S00426 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00426.286l859 ---|*         EXIT   NONE - JOB ABORTED.
00593  M01S00427.286l859 ---|*
00594  M01S00428.286l859 ---|*         USES   X - 0, 1, 6.
00595  M01S00429.286l859 ---|*                A - 1, 6.
00596  M01S00430.286l859 ---|*
00597  M01S00431.286l859 ---|*         CALLS  TER.
00598  M01S00432.286l859 ---|*
00599  M01S00433.286l859 ---|*         MACROS ABORT, COMPFET, MESSAGE, REPRIEVE.
00600  M01S00434.286l859 ---|
00601  M01S00435.286l859 ---|
00602  M01S00436.286l859 ---| ABT2     BSS    0           ENTRY
00603  M01S00437.286l859 ---|          COMPFET  (CATS,SU,OUTPUT)  COMPLETE FETS
00604  M01S00438.286l859 ---|          SX1    MEAB        * PFXXXXX ABORTED.*
00605  M01S00439.286l859 ---|
00606  M01S00440.286l859 ---| ABT      BSS    0           ENTRY
00607  M01S00441.286l859 ---|          MESSAGE  X1
00608  M01S00442.286l859 ---|          RJ     TER         PERFORM TERMINATION PROCESSING
00609  M01S00443.286l859 ---|          SA1    ABTA+7      CHECK ERROR FLAGS
00610  M01S00444.286l859 ---|          MX0    -12
00611  M01S00445.286l859 ---|          BX1    -X0*X1
00612  M01S00446.286l859 ---|          ZR     X1,ABT1     IF NO ERRORS TO RESET
00613  M01S00447.286l859 ---|          SX1    X1-TIET
00614  M01S00448.286l859 ---|          ZR     X1,ABT1     IF TERMINAL INTERRUPT
00615  M01S00449.286l859 ---|          BX6    X6-X6       CLEAR REPRIEVED SYSTEM REQUEST
00616  M01S00450.286l859 ---|          SA6    ABTA+5
00617  M01S00451.286l859 ---|          REPRIEVE  ABTA,RESET,0  RESET ERROR FLAGS
00618  M01S00452.286l859 ---|
00619  M01S00453.286l859 ---| ABT1     REPRIEVE  ABTA,SET,0  DISABLE REPRIEVE PROCESSING
00620  M01S00454.286l859 ---|          ABORT
00621  M01S00455.286l859 ---|
00622  M01S00456.286l859 ---|
00623  M01S00457.286l859 ---| ABTA     RPVBLK ABT2        REPRIEVE BLOCK
00624  M01S00458.286l859 ---| OPN      SPACE  4,10
00625  M01S00459.286l859 ---|**        OPN - OPEN CATALOG FILE.
00626  M01S00460.286l859 ---|*
00627  M01S00461.286l859 ---|*         EXIT   *CATS* FILE OPENED.
00628  M01S00462.286l859 ---|*
00629  M01S00463.286l859 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
00630  M01S00464.286l859 ---|*                A - 1, 6.
00631  M01S00465.286l859 ---|*
00632  M01S00466.286l859 ---|*         MACROS CALLPFU, RETURN.
00633  M01S00467.286l859 ---|
00634  M01S00468.286l859 ---|
00635  M01S00469.286l859 ---| OPN      SUBR               ENTRY/EXIT
00636  M01S00470.286l859 ---|          SA1    OPNB        SET CATALOG DESCRIPTION PARAMETER
00637  M01S00471.286l859 ---|          BX6    X1
00638  M01S00472.286l859 ---|          SA6    CATS+FTPM
00639  M01S00473.286l859 ---|          CALLPFU  CATS,CTCT,R  GET CATALOG TRACK PARAMETERS
00640  M01S00474.286l859 ---|          SA1    CATS+FTPM
00641  M01S00475.286l859 ---|          SX2    5
00642  M01S00476.286l859 ---|          MX0    -24
00643  M01S00477.286l859 ---|          BX1    -X0*X1      SET EST ORDINAL AND FIRST TRACK
00644  M01S00478.286l859 ---|          MX0    -12
00645  M01S00479.286l859 ---|          BX6    -X0*X1      SET CURRENT TRACK
00646  M01S00480.286l859 ---|          LX1    36
00647  M01S00481.286l859 ---|          BX2    X2+X1       BUILD CATALOG TRACK FST ENTRY
00648  M01S00482.286l859 ---|          LX6    24
00649  M01S00483.286l859 ---|          BX6    X2+X6
00650  M01S00484.286l859 ---|          SA6    A1
00651  M01S00485.286l859 ---|
00652  M01S00486.286l859 ---|*         RETURN EXISTING FILE.
00653  M01S00487.286l859 ---|
00654  M01S00488.286l859 ---|          SA1    OPNA
00655  M01S00489.286l859 ---|          SX6    B1
00656  M01S00490.286l859 ---|          SA6    A1          SET FIRST TIME FLAG
00657  M01S00491.286l859 ---|          ZR     X1,OPN3     IF FIRST TIME THROUGH
00658  M01S00492.286l859 ---|          RETURN CATS        RETURN EXISTING FILES
00659  M01S00493.286l859 ---|
00660  M01S00494.286l859 ---|*         OPEN NEW CATALOG FILE.
00661  M01S00495.286l859 ---|
00662  M01S00496.286l859 ---| OPN3     CALLPFU  CATS,CTOL,R
00663  M01S00497.286l859 ---|          EQ     OPNX        RETURN
00664  M01S00498.286l859 ---|
00665  M01S00499.286l859 ---| OPNA     BSSZ   1           FIRST TIME FLAG
00666  M01S00500.286l859 ---| OPNB     VFD    24/0,18/PDWD,18/PDUI  PF DESCRIPTION PARAMETER
00667  M01S00501.286l859 ---| SND      SPACE  4,45
00668  M01S00502.286l859 ---|**        SND - SET NEXT DEVICE.
00669  M01S00503.286l859 ---|*
00670  M01S00504.286l859 ---|*         ENTRY  (SNDA) = 0 IF FIRST CALL.
00671  M01S00505.286l859 ---|*                       = NEXT MASS STORAGE TABLE ADDRESS, OTHERWISE.
00672  M01S00506.286l859 ---|*                (FSNM) = NON-MASTER DEVICE FILE SELECTION PARAMETER.
00673  M01S00507.286l859 ---|*                (FSTD) = TRUE DEVICE FILE SELECTION PARAMETER.
00674  M01S00508.286l859 ---|*                (FSSD) = SINGLE DEVICE SELECTION PARAMETER.
00675  M01S00509.286l859 ---|*                MSTT = FWA OF MASS STORAGE TABLE.
00676  M01S00510.286l859 ---|*                CATALOG TRACK INTERLOCK SET, IF NOT FIRST CALL.
00677  M01S00511.286l859 ---|*
00678  M01S00512.286l859 ---|*         EXIT   (X1) = 0 IF NO MORE DEVICES TO PROCESS.
00679  M01S00513.286l859 ---|*                     = 1 IF DEVICE TO PROCESS.
00680  M01S00514.286l859 ---|*                (SNDA) = NEXT MASS STORAGE TABLE ADDRESS.
00681  M01S00515.286l859 ---|*                (FSNM) = (FSTD), IF NOT FIRST CALL AND (FSNM) WAS NOT
00682  M01S00516.286l859 ---|*                         PREVIOUSLY SPECIFIED.
00683  M01S00517.286l859 ---|*                (PDUI) = CATALOG DESCRIPTION USER INDEX.
00684  M01S00518.286l859 ---|*                (MAEQ) = MASTER DEVICE EST ORDINAL.
00685  M01S00519.286l859 ---|*                (NCAT) = NUMBER OF CATALOG TRACKS.
00686  M01S00520.286l859 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER.
00687  M01S00521.286l859 ---|*                CATALOG FILE INITIALIZED.
00688  M01S00522.286l859 ---|*                CATALOG TRACK INTERLOCK SET ON NEW DEVICE.
00689  M01S00523.286l859 ---|*                PF ACTIVITY COUNT ON PREVIOUS DEVICE IS DECREMENTED.
00690  M01S00524.286l859 ---|*                PF ACTIVITY COUNT IS INCREMENTED ON NEXT DEVICE.
00691  M01S00525.286l859 ---|*
00692  M01S00526.286l859 ---|*         USES   X - 1, 2, 3, 4, 6, 7.
00693  M01S00527.286l859 ---|*                A - 1, 2, 4, 6, 7.
00694  M01S00528.286l859 ---|*                B - 2, 3.
00695  M01S00529.286l859 ---|*
00696  M01S00530.286l859 ---|*         CALLS  CAC, OPN, SAC.
00697  M01S00531.286l859 ---|*
00698  M01S00532.286l859 ---|*         MACROS PCINT.
00699  M01S00533.286l859 ---|
00700  M01S00534.286l859 ---|
00701  M01S00535.286l859 ---| SND6     SX1    B0+         CLEAR NEXT DEVICE FLAG
00702  M01S00536.286l859 ---|
00703  M01S00537.286l859 ---|
00704  M01S00538.286l859 ---| SND      SUBR               ENTRY/EXIT
00705  M01S00539.286l859 ---|          SA1    SNDA        SET ADDRESS OF MASS STORAGE TABLE
00706  M01S00540.286l859 ---|          SB2    MSTT
00707  M01S00541.286l859 ---|          ZR     X1,SND3     IF FIRST CALL
00708  M01S00542.286l859 ---|          SA2    FSNM
00709  M01S00543.286l859 ---|          NZ     X2,SND1     IF NON-MASTER DEVICE SELECTED
00710  M01S00544.286l859 ---|          SA1    FSTD        SET DEVICE NUMBER FOR RESIDENCY CHECK
00711  M01S00545.286l859 ---|          BX6    X1
00712  M01S00546.286l859 ---|          SA6    A2
00713  M01S00547.286l859 ---| SND1     RJ     CAC         CLEAR PF ACTIVITY COUNT
00714  M01S00548.286l859 ---|          SA1    FSSD
00715  M01S00549.286l859 ---|          NZ     X1,SND6     IF SINGLE DEVICE DUMP
00716  M01S00550.286l859 ---|          SA1    SNDA        INITIALIZE MASS STORAGE TABLE INDEX
00717  M01S00551.286l859 ---|          SB2    X1+
00718  M01S00552.286l859 ---|
00719  M01S00553.286l859 ---|*         DETERMINE NEXT DEVICE.
00720  M01S00554.286l859 ---|*
00721  M01S00555.286l859 ---|*         NOTE THAT IF PROCESSING IS LIMITED TO EITHER A SINGLE DEVICE
00722  M01S00556.286l859 ---|*         OR A SINGLE USER INDEX, *PRS* HAS ALREADY ENSURED THAT THE
00723  M01S00557.286l859 ---|*         DEVICE WILL BE THE FIRST ENTRY IN *MSTT*.
00724  M01S00558.286l859 ---|
00725  M01S00559.286l859 ---| SND3     SA1    B2          GET FIRST WORD OF *MSTT* ENTRY
00726  M01S00560.286l859 ---|          SA2    B2+B1       GET DEVICE MASK
00727  M01S00561.286l859 ---|          SB2    B2+2        ADVANCE ENTRY ADDRESS
00728  M01S00562.286l859 ---|          MX6    -8
00729  M01S00563.286l859 ---|          ZR     X1,SND6     IF END OF MASS STORAGE TABLE
00730  M01S00564.286l859 ---|          BX3    -X6*X2      DEVICE MASK
00731  M01S00565.286l859 ---|          ZR     X3,SND3     IF NOT A MASTER DEVICE
00732  M01S00566.286l859 ---|
00733  M01S00567.286l859 ---|*         INITIALIZE TO PROCESS SELECTED DEVICE.
00734  M01S00568.286l859 ---|
00735  M01S00569.286l859 ---|          SX7    B2+
00736  M01S00570.286l859 ---|          SA7    SNDA        SAVE NEXT *MSTT* ENTRY ADDRESS
00737  M01S00571.286l859 ---|          SA4    CPAR+/COMSPFS/CPUI
00738  M01S00572.286l859 ---|          SB2    47
00739  M01S00573.286l859 ---|          NX3    X3,B3       SET USER INDEX FOR CATALOG ACCESS
00740  M01S00574.286l859 ---|          BX7    X4
00741  M01S00575.286l859 ---|          NZ     X4,SND4     IF PROCESSING ONE USER INDEX ONLY
00742  M01S00576.286l859 ---|          SX7    B2-B3
00743  M01S00577.286l859 ---| SND4     SA7    PDUI
00744  M01S00578.286l859 ---|          MX3    -6
00745  M01S00579.286l859 ---|          BX6    -X3*X1      MASTER DEVICE NUMBER
00746  M01S00580.286l859 ---|          LX1    -6
00747  M01S00581.286l859 ---|          SA6    CPAR+/COMSPFS/CPDN  SET MASTER DEVICE NUMBER
00748  M01S00582.286l859 ---|          MX3    -9
00749  M01S00583.286l859 ---|          BX7    -X3*X1      MASTER DEVICE EST ORDINAL
00750  M01S00584.286l859 ---|          LX1    -9
00751  M01S00585.286l859 ---|          BX6    -X3*X1      NUMBER OF CATALOG TRACKS
00752  M01S00586.286l859 ---|          SA7    MAEQ        SET MASTER DEVICE EST ORDINAL
00753  M01S00587.286l859 ---|          SA6    NCAT        SET NUMBER OF CATALOG TRACKS
00754  M01S00588.286l859 ---|          RJ     SAC         SET PF ACTIVITY COUNT
00755  M01S00589.286l859 ---|          RJ     OPN         INITIALIZE CATALOG FILE
00756  M01S00590.286l859 ---|
00757  M01S00591.286l859 ---|*         SET CATALOG TRACK INTERLOCK.
00758  M01S00592.286l859 ---|
00759  M01S00593.286l859 ---|          PCINT  CATS,CTSC   SET CATALOG TRACK INTERLOCK
00760  M01S00594.286l859 ---|          SX1    B1          SET DEVICE FOUND
00761  M01S00595.286l859 ---|          EQ     SNDX        RETURN
00762  M01S00596.286l859 ---|
00763  M01S00597.286l859 ---|
00764  M01S00598.286l859 ---| SNDA     CON    0           MASS STORAGE TABLE ADDRESS
00765  M01S00599.286l859 ---| TER      SPACE  4,10
00766  M01S00600.286l859 ---|**        TER - PERFORM TERMINATION PROCESSING.
00767  M01S00601.286l859 ---|*
00768  M01S00602.286l859 ---|*         EXIT   PERMANENT FILE ACTIVITY COUNT DECREMENTED.
00769  M01S00603.286l859 ---|*                OUTPUT FILES FLUSHED.
00770  M01S00604.286l859 ---|*                FILE COUNT MESSAGES ISSUED.
00771  M01S00605.286l859 ---|*                PERMANENT FILE PARAMETERS RESTORED.
00772  M01S00606.286l859 ---|*
00773  M01S00607.286l859 ---|*         CALLS  CAC, TOF.
Line S00155 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00774  M01S00155.286l859 +++|*         CALLS  CAC.
00775  M00S00608.pfdm    +++|*
00776  M00S00609.pfdm    +++|*         MACROS RETURN, SETPFP.
00777  M00S00610.pfdm    +++|
00778  M00S00611.pfdm    +++|
Line S00612 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00612.286l859 ---| TER      SUBR               ENTRY/EXIT
00780  M01S00613.286l859 ---|          RETURN CATS        RETURN SYSTEM FILES
Line S00156 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00156.286l859 +++| APR      SUBR               ENTRY/EXIT
00782  M01S00157.286l859 +++|          RETURN CATS        RETURN CATALOG FILE
00783  M01S00158.286l859 +++|          RETURN PFMREQ
00784  M00S00614.pfdm    +++|          RJ     CAC         CLEAR PERMANENT FILE ACTIVITY COUNT
Line S00615 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00785  M01S00615.286l859 ---|          RJ     TOF         TERMINATE OUTPUT FILES
00786  M00S00616.pfdm    +++|          SETPFP GPAR        RESTORE PERMANENT FILE PARAMETERS
Line S00617 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00787  M01S00617.286l859 ---|          EQ     TERX        RETURN
Line S00159 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00788  M01S00159.286l859 +++|          EQ     APRX        RETURN
00789  M01S00160.286l859 +++| IFM      SPACE  4,10
00790  M01S00161.286l859 +++|**        IFM - ISSUE FILE COUNT MESSAGES.
00791  M01S00162.286l859 +++|*
00792  M01S00163.286l859 +++|*         EXIT   FILE COUNT MESSAGES ISSUED TO DAYFILE.
00793  M01S00164.286l859 +++|*
00794  M01S00165.286l859 +++|*         USES   X - 1, 2, 5, 6.
00795  M01S00166.286l859 +++|*                A - 1, 2, 5, 6.
00796  M01S00167.286l859 +++|*
00797  M01S00168.286l859 +++|*         CALLS  IFC.
00798  M01S00169.286l859 +++|
00799  M01S00170.286l859 +++|
00800  M01S00171.286l859 +++| IFM      SUBR               ENTRY/EXIT
00801  M01S00172.286l859 +++|          SA1    /COMSPFS/UTLC
00802  M01S00173.286l859 +++|          SA5    IFMA
00803  M01S00174.286l859 +++|          SX1    X1-/COMSPFS/CAUT
00804  M01S00175.286l859 +++|          ZR     X1,IFM1     IF *PFCAT*
00805  M01S00176.286l859 +++|          SA5    IFMB
00806  M01S00177.286l859 +++|          RJ     IFC         ISSUE *PFREL* FILES SELECTED MESSAGES
00807  M01S00178.286l859 +++|          SA1    CPAR+/COMSPFS/CPIP
00808  M01S00179.286l859 +++|          NZ     X1,IFMX     IF PROCESSING INHIBITED
00809  M01S00180.286l859 +++|          SA1    PRFC
00810  M01S00181.286l859 +++|          SA2    PPFC
00811  M01S00182.286l859 +++|          IX6    X1-X2
00812  M01S00183.286l859 +++|          SA6    NPFC        SET FILES NOT POST PROCESSED
00813  M01S00184.286l859 +++|          SA5    IFMC
00814  M01S00185.286l859 +++| IFM1     RJ     IFC         ISSUE FILE COUNT MESSAGES
00815  M01S00186.286l859 +++|          EQ     IFMX        RETURN
00816  M01S00187.286l859 +++|
00817  M01S00188.286l859 +++|
00818  M01S00189.286l859 +++| IFMA     BSS    0           *PFCAT* MESSAGE TABLE
00819  M01S00190.286l859 +++|          VFD    1/1,22/0,1/0,18/MSFC,18/PRFC
00820  M01S00191.286l859 +++|          CON    0           END OF TABLE
00821  M01S00192.286l859 +++|
00822  M01S00193.286l859 +++| IFMB     BSS    0           *PFREL* FILES SELECTED MESSAGE TABLE
00823  M01S00194.286l859 +++|          VFD    1/1,22/0,1/0,18/MSSR,18/PRFC
00824  M01S00195.286l859 +++|          CON    0           END OF TABLE
00825  M01S00196.286l859 +++|
00826  M01S00197.286l859 +++| IFMC     BSS    0           *PFREL* FILES RELEASED MESSAGE TABLE
00827  M01S00198.286l859 +++|          VFD    1/1,22/0,1/0,18/MSRL,18/PPFC
00828  M01S00199.286l859 +++|          VFD    1/0,22/0,1/0,18/MSNR,18/NPFC
00829  M01S00200.286l859 +++|          CON    0           END OF TABLE
00830  M01S00201.286l859 +++| RIP      SPACE  4,10
00831  M01S00202.286l859 +++|**        RIP - REPRIEVE INTERRUPT PROCESSOR.
00832  M01S00203.286l859 +++|*
00833  M01S00204.286l859 +++|*         EXIT   BUSY FETS SET COMPLETE TO ALLOW TERMINATION
00834  M01S00205.286l859 +++|*                  PROCESSING.
00835  M01S00206.286l859 +++|*
00836  M01S00207.286l859 +++|*         MACROS COMPFET.
00837  M01S00208.286l859 +++|
00838  M01S00209.286l859 +++|
00839  M01S00210.286l859 +++| RIP      SUBR               ENTRY/EXIT
00840  M01S00211.286l859 +++|          COMPFET  (CATS,O,SU)
00841  M01S00212.286l859 +++|          EQ     RIPX        RETURN
00842  M00S00618.pfdm    +++|          TITLE  COMMON DECKS.
00843  M00S00619.pfdm    +++|          SPACE  4,10
00844  M00S00620.pfdm    +++|*         COMMON DECKS.
00845  M00S00621.pfdm    +++|
00846  M00S00622.pfdm    +++|
00847  M00S00623.pfdm    +++|*CALL     COMCCDD
00848  M00S00624.pfdm    +++| ERP1$    SET    0           SELECT *COMCCIO* ERROR PROCESSING OPTION
00849  M00S00625.pfdm    +++|*CALL     COMCCIO
00850  M00S00626.pfdm    +++|*CALL     COMCCOD
00851  M00S00627.pfdm    +++|*CALL     COMCCPM
00852  M00S00628.pfdm    +++|*CALL     COMCDXB
00853  M00S00629.pfdm    +++|*CALL     COMCEDT
00854  M00S00630.pfdm    +++| FCE$     SET    0           SELECT *COMCFCE* UTILITY FORMAT OPTION
00855  M00S00631.pfdm    +++|*CALL     COMCFCE
Line S00213 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00213.286l859 +++| GMS$     EQU    1           USE SORT KEY MASK
00857  M01S00214.286l859 +++| MWK$     EQU    1           ALLOW MULTIPLE WORD SORT KEYS
00858  M01S00215.286l859 +++|*CALL     COMCGMS
00859  M01S00216.286l859 +++|*CALL     COMCJCR
00860  M00S00632.pfdm    +++|*CALL     COMCLFM
Line S00217 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00861  M01S00217.286l859 +++|*CALL     COMCMSF
00862  M00S00633.pfdm    +++|*CALL     COMCMVE
00863  M00S00634.pfdm    +++|*CALL     COMCPFM
Line S00635 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00864  M01S00635.286l859 ---| COM$     EQU    1           ASSEMBLE COMMON ROUTINES
00865  M00S00636.pfdm    +++| PFD$     EQU    1           ASSEMBLE DEVICE ACCESS ROUTINES
Line S00218 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00218.286l859 +++| DVA$     EQU    1           ASSEMBLE DEVICE ACCESS ROUTINES
00867  M01S00219.286l859 +++| PFC$     EQU    1           ASSEMBLE *PFCAT* ROUTINES
00868  M00S00637.pfdm    +++|          LIST   X
00869  M00S00638.pfdm    +++|*CALL     COMCPFS
00870  M00S00639.pfdm    +++|          LIST   *
00871  M00S00640.pfdm    +++|*CALL     COMCPFU
00872  M00S00641.pfdm    +++|*CALL     COMCRDO
00873  M00S00642.pfdm    +++|*CALL     COMCRDW
00874  M00S00643.pfdm    +++|*CALL     COMCSCB
00875  M00S00644.pfdm    +++|*CALL     COMCSFM
00876  M00S00645.pfdm    +++|*CALL     COMCSFN
00877  M00S00646.pfdm    +++|*CALL     COMCSNM
00878  M00S00647.pfdm    +++|*CALL     COMCSYS
00879  M00S00648.pfdm    +++|*CALL     COMCVLC
00880  M00S00649.pfdm    +++|*CALL     COMCWTC
00881  M00S00650.pfdm    +++|*CALL     COMCWTH
00882  M00S00651.pfdm    +++|*CALL     COMCWTW
00883  M00S00652.pfdm    +++|*CALL     COMCZTB
00884  M00S00653.pfdm    +++|          TITLE  GLOBAL DATA AREA.
00885  M00S00654.pfdm    +++|          SPACE  4,10
00886  M00S00655.pfdm    +++|          USE    LITERALS
00887  M00S00656.pfdm    +++|          SPACE  4,10
Line S00220 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00888  M01S00220.286l859 +++|**        STATUS MESSAGES.
00889  M01S00221.286l859 +++|
00890  M01S00222.286l859 +++|
00891  M01S00223.286l859 +++| MSRE     DATA   10HRELEASING
00892  M01S00224.286l859 +++|          SPACE  4,10
Line S00657 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00893  M01S00657.286l859 ---|*         MESSAGES.
Line S00225 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00225.286l859 +++|**        FILE COUNT MESSAGES.
00895  M00S00658.pfdm    +++|
00896  M00S00659.pfdm    +++|
Line S00660 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00897  M01S00660.286l859 ---| MEAB     DATA   C* ??????? ABORTED.*
00898  M01S00661.286l859 ---| MECM     DATA   C* ??????? COMPLETE.*
Line S00226 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00899  M01S00226.286l859 +++| MSFC     DATA   C* ?????? FILE! CATALOGED.*
00900  M01S00227.286l859 +++| MSSR     DATA   C* ?????? FILE! SELECTED FOR RELEASE.*
00901  M01S00228.286l859 +++| MSRL     DATA   C* ?????? FILE! RELEASED.*
00902  M01S00229.286l859 +++| MSNR     DATA   C* ?????? SELECTED FILE! NOT RELEASED.*
00903  M00S00662.pfdm    +++|          SPACE  4,10
Line S00663 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00904  M01S00663.286l859 ---|*         TABLE OF UTILITY NAME MESSAGES.
Line S00230 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00905  M01S00230.286l859 +++|**        RESERVED LOCATIONS.
00906  M00S00664.pfdm    +++|
00907  M00S00665.pfdm    +++|
Line S00666 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00666.286l859 ---| TUNM     BSS    0           START OF TABLE
00909  M01S00667.286l859 ---|          CON    MEAB        * PFXXXXX ABORTED.*
00910  M01S00668.286l859 ---|          CON    MECM        * PFXXXXX COMPLETE.*
00911  M01S00669.286l859 ---|          CON    0
Line S00231 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00912  M01S00231.286l859 +++| FLSF     BSSZ   1           FILE LENGTH REQUIRED FOR SELECTION FLAG
00913  M01S00232.286l859 +++| NCAT     BSSZ   1           NUMBER OF CATALOG TRACKS ON DEVICE
00914  M01S00233.286l859 +++|
00915  M00S00670.pfdm    +++|          SPACE  4,10
Line S00671 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00916  M01S00671.286l859 ---|*         FILE COUNT MESSAGES.
Line S00234 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00917  M01S00234.286l859 +++|*         FETS.
00918  M00S00672.pfdm    +++|
Line S00673 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00919  M01S00673.286l859 ---| RFMS     DATA   C* ===== FILES RELEASED.*
00920  M01S00674.286l859 ---| RF1M     DATA   C* 1 FILE RELEASED.*
00921  M01S00675.286l859 ---|          SPACE  4,10
00922  M01S00676.286l859 ---|*         RESERVED LOCATIONS.
00923  M01S00677.286l859 ---|
00924  M01S00678.286l859 ---|
00925  M01S00679.286l859 ---| CATA     CON    0           CURRENT CATALOG ENTRY ADDRESS
00926  M01S00680.286l859 ---| FLSF     BSSZ   1           FILE LENGTH REQUIRED FOR SELECTION FLAG
00927  M01S00681.286l859 ---| NCAT     BSSZ   1           NUMBER OF CATALOG TRACKS ON DEVICE
00928  M01S00682.286l859 ---|
00929  M01S00683.286l859 ---|*         CATALOG FILE PARAMETER WORDS.
00930  M01S00684.286l859 ---|
00931  M01S00685.286l859 ---| PDUI     BSS    1           PF DESCRIPTION USER INDEX
00932  M01S00686.286l859 ---|
00933  M01S00687.286l859 ---|*T PDWD   42/ PN, 6/, 12/ EQ
Figure PDWD

01112171829 EQ PN3059 PN

00934  M01S00688.286l859 ---|*         PN = PACKNAME FOR AN AUXILIARY DEVICE.
00935  M01S00689.286l859 ---|*            = 0 FOR A FAMILY DEVICE.
00936  M01S00690.286l859 ---|*         EQ = EST ORDINAL OF A FAMILY DEVICE.
00937  M01S00691.286l859 ---|*            = 0 FOR AN AUXILIARY DEVICE.
00938  M01S00692.286l859 ---|
00939  M01S00693.286l859 ---| PDWD     BSS    1           PF DESCRIPTION WORD
00940  M01S00694.286l859 ---|
00941  M01S00695.286l859 ---|*         THE FOLLOWING FILE COUNT ACCUMULATORS MUST BE ALLOCATED IN
00942  M01S00696.286l859 ---|*         PAIRS.  THE FIRST ACCUMULATOR IS FILES PROCESSED, THE SECOND
00943  M01S00697.286l859 ---|*         ACCUMULATOR IS FILES NOT PROCESSED.
00944  M01S00698.286l859 ---|
00945  M01S00699.286l859 ---| RLFC     CON    0           COUNT OF FILES RELEASED
00946  M01S00700.286l859 ---|          CON    0           COUNT OF FILES NOT RELEASED
00947  M01S00701.286l859 ---|          SPACE  4,10
00948  M01S00702.286l859 ---|*         FETS.
00949  M01S00703.286l859 ---|
00950  M01S00704.286l859 ---|
00951  M01S00705.286l859 ---| O        BSS    0           OUTPUT
00952  M01S00706.286l859 ---| OUTPUT   FILEB  OUTB,OUTBL,FET=10
00953  M01S00707.286l859 ---|
00954  M01S00708.286l859 ---| SU       BSS    0           SUMMARY FILE
00955  M01S00709.286l859 ---| SUMMARY  FILEB  SUMB,SUMBL,FET=10
00956  M00S00710.pfdm    +++|
00957  M00S00711.pfdm    +++| CATS     BSS    0           CATALOG TRACKS
00958  M00S00712.pfdm    +++| ZZZZZG1  FILEB  CATB,CATBL,EPR,FET=10
00959  M00S00713.pfdm    +++|
00960  M00S00714.pfdm    +++| PFMREQ   BSS    0           POST-PROCESSING *PFM* REQUESTS
00961  M00S00715.pfdm    +++| ZZZZZG4  FILEB  PFRB,PFRBL,FET=10
00962  M00S00716.pfdm    +++|
00963  M00S00717.pfdm    +++| DEVI     BSS    0           *GETDI* CALL FET
00964  M00S00718.pfdm    +++|          FILEB  DBUF,DBUFL,FET=10
00965  M00S00719.pfdm    +++|
00966  M00S00720.pfdm    +++| STAT     FILEB  0,0,FET=7   FILE STATUS
00967  M00S00721.pfdm    +++|
00968  M00S00722.pfdm    +++| FWAB     EQU    *           FWA OF BUFFERS
00969  M00S00723.pfdm    +++|          TITLE  PRESET.
Line S00724 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00970  M01S00724.286l859 ---| PRS      SPACE  4,25
Line S00235 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00971  M01S00235.286l859 +++| PRS      SPACE  4,30
00972  M00S00725.pfdm    +++|**        PRS - PRESET PROGRAM.
00973  M00S00726.pfdm    +++|*
00974  M00S00727.pfdm    +++|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
Line S00001 Modification History
M01 (Added by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
00975  M01S00001.ns2625  +++|*                FILES *ZZZZZG0* THROUGH *ZZZZZG8* RETURNED BY *PFS*.
00976  M01S00002.ns2625  +++|*                FILE *ZZZZZG9* RETURNED BY *PFS* IF NO FILE
00977  M01S00003.ns2625  +++|*                  SELECTIONS.
00978  M01S00004.ns2625  +++|*                FILE *ZZZZZG9* CONTAINS FILE SELECTIONS IF PRESENT.
00979  M00S00728.pfdm    +++|*
00980  M00S00729.pfdm    +++|*         EXIT   (B1) = 1.
00981  M00S00730.pfdm    +++|*                (MPFM) = FAMILY NAME PARAMETER.
00982  M00S00731.pfdm    +++|*                (MPPN) = PACK NAME PARAMETER.
00983  M00S00732.pfdm    +++|*                (FMPN) = FAMILY NAME OR PACK NAME.
00984  M00S00733.pfdm    +++|*                (PFRI) = *PFM* PROCESSING PARAMETERS.
00985  M00S00734.pfdm    +++|*                EXECUTION FIELD LENGTH SET.
00986  M00S00735.pfdm    +++|*                DEVICE VALIDATION AND SELECTION PERFORMED.
Line S00736 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00987  M01S00736.286l859 ---|*                MESSAGES PRESET.
00988  M00S00737.pfdm    +++|*                ACCES LEVEL RANGE VALIDATED IF SECURE SYSTEM.
00989  M00S00738.pfdm    +++|*
00990  M00S00739.pfdm    +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00991  M00S00740.pfdm    +++|*                A - 0, 1, 2, 5, 6, 7.
00992  M00S00741.pfdm    +++|*                B - 1.
00993  M00S00742.pfdm    +++|*
Line S00743 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00994  M01S00743.286l859 ---|*         CALLS  BMT, CAL, DSS, IFL, IOF, OSP, SBS, SFP, SSP, SUN.
Line S00236 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00995  M01S00236.286l859 +++|*         CALLS  BMT, CAL, DSS, IFL, IOF, ODV, OSP, SBS, SFP, SSP.
00996  M00S00744.pfdm    +++|*
Line S00745 Modification History
M01 (Removed by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
00997  M01S00745.ns2625  ---|*         MACROS MEMORY, MOVE, REPRIEVE, RETURN.
Line S00005 Modification History
M01 (Added by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
00998  M01S00005.ns2625  +++|*         MACROS MEMORY, MOVE, REPRIEVE.
00999  M00S00746.pfdm    +++|
01000  M00S00747.pfdm    +++|
01001  M00S00748.pfdm    +++| PRS      SUBR
01002  M00S00749.pfdm    +++|          SB1    1
01003  M00S00750.pfdm    +++|          MEMORY CM,,R,EBUF  REQUEST REQUIRED MEMORY
Line S00751 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01004  M01S00751.286l859 ---|          REPRIEVE  ABTA,SET,277B  SET EXTENDED REPRIEVE PROCESSING
Line S00237 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01005  M01S00237.286l859 +++|          REPRIEVE  RPVB,SET,277B  SET EXTENDED REPRIEVE PROCESSING
01006  M00S00752.pfdm    +++|
Line S00753 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01007  M01S00753.286l859 ---|*         SET UTILITY NAME IN MESSAGES.
Line S00238 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01008  M01S00238.286l859 +++|*         INITIALIZE DEVICE ENVIRONMENT.  NOTE THAT *PRESET* BUFFERS
01009  M01S00239.286l859 +++|*         ARE NOT AVAILABLE AFTER THE CALL TO *RPS*.
01010  M00S00754.pfdm    +++|
Line S00755 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01011  M01S00755.286l859 ---|          SA0    TCMP        SET *COMCPFS* MESSAGES
01012  M01S00756.286l859 ---|          RJ     SUN
01013  M01S00757.286l859 ---|          SA0    TPMP        SET *COMCPFP* MESSAGES
01014  M01S00758.286l859 ---|          RJ     SUN
01015  M01S00759.286l859 ---|          SA0    TDPM        SET *PFDUMP*/*PFDM* *COMCPFP* MESSAGES
01016  M01S00760.286l859 ---|          RJ     SUN
01017  M01S00761.286l859 ---|          SA0    TUNM        SET *PFDM* MESSAGES
01018  M01S00762.286l859 ---|          RJ     SUN
01019  M00S00763.pfdm    +++|          RJ     DSS         DETERMINE SECURITY STATUS
01020  M00S00764.pfdm    +++|          RJ     BMT         BUILD MASS STORAGE TABLE
01021  M00S00765.pfdm    +++|          RJ     CAL         CHECK ACCESS LEVELS
Line S00766 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01022  M01S00766.286l859 ---|
01023  M01S00767.286l859 ---|*         INITIALIZE DEVICE ENVIRONMENT.
01024  M01S00768.286l859 ---|
01025  M01S00769.286l859 ---|          RJ     SBS         SET BOOLEAN SELECTION PARAMETERS
01026  M01S00770.286l859 ---|          RJ     SSP         SET SELECTION PARAMETERS
01027  M01S00771.286l859 ---|          SA1    MSTT
01028  M01S00772.286l859 ---|          SA2    CPAR+/COMSPFS/CPPN
01029  M01S00773.286l859 ---|          MX6    -9
01030  M01S00774.286l859 ---|          LX1    -6
01031  M01S00775.286l859 ---|          BX6    -X6*X1      SET EST ORDINAL FOR FAMILY DEVICE
01032  M01S00776.286l859 ---|          ZR     X2,PRS3     IF NOT PROCESSING AUXILIARY DEVICE
01033  M01S00777.286l859 ---|          MX6    42          SET PACKNAME FOR AUXILIARY DEVICE
01034  M01S00778.286l859 ---|          BX6    X6*X2
01035  M01S00779.286l859 ---| PRS3     SA6    PDWD        SET PF DESCRIPTION FOR *CATS* FILE
Line S00240 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01036  M01S00240.286l859 +++|          SX0    EMBUF       SET SELECTIONS BUFFER ADDRESS
01037  M01S00241.286l859 +++|          RJ     RPS         READ FILE SELECTIONS
01038  M01S00242.286l859 +++|          RJ     SMK         SET FILE SELECTION MASK
01039  M00S00780.pfdm    +++|          RJ     SFP         SET PERMANENT FILE PARAMETERS
Line S00781 Modification History
M01 (Removed by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01040  M01S00781.pfdm2   ---|          SX0    EBUF        SET SELECTIONS BUFFER ADDRESS
01041  M01S00782.pfdm2   ---|          RJ     RPS         READ FILE SELECTIONS
Line S00783 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01042  M01S00783.286l859 ---|          SA1    CPAR+/COMSPFS/CPFN
01043  M01S00784.286l859 ---|          SA2    CPAR+/COMSPFS/CPPN
01044  M01S00785.286l859 ---|          MX6    42
01045  M01S00786.286l859 ---|          BX7    X6*X1
01046  M01S00787.286l859 ---|          BX6    X6*X2
01047  M01S00788.286l859 ---|          SA7    MPFM        SET FAMILY NAME FOR MESSAGES
01048  M01S00789.286l859 ---|          SA6    MPPN        SET PACK NAME FOR MESSAGES
01049  M01S00790.286l859 ---|          BX7    X6+X7
01050  M01S00791.286l859 ---|          SA7    FMPN        SET FAMILY NAME OR PACK NAME FOR *PFM*
01051  M00S00792.pfdm    +++|
01052  M00S00793.pfdm    +++|*         DETERMINE IF FILE LENGTH REQUIRED FOR SELECTION.
01053  M00S00794.pfdm    +++|
01054  M00S00795.pfdm    +++|          SA1    CPAR+/COMSPFS/CPLS
01055  M00S00796.pfdm    +++|          SA2    CPAR+/COMSPFS/CPUS
01056  M00S00797.pfdm    +++|          MX6    1
01057  M00S00798.pfdm    +++|          BX6    -X6
01058  M00S00799.pfdm    +++|          BX2    X6-X2
01059  M00S00800.pfdm    +++|          NZ     X1,PRS4     IF LOWER FILE SIZE LIMIT .NE. 0
01060  M00S00801.pfdm    +++|          ZR     X2,PRS5     IF UNLIMITED UPPER FILE SIZE LIMIT
01061  M00S00802.pfdm    +++| PRS4     SA6    FLSF        SET FILE LENGTH REQUIRED FOR SELECTION
01062  M00S00803.pfdm    +++|
01063  M00S00804.pfdm    +++|*         INITIALIZE OUTPUT FILE AND SUMMARY FILE.
01064  M00S00805.pfdm    +++|
01065  M00S00806.pfdm    +++| PRS5     RJ     IOF         INITIALIZE OUTPUT FILES
01066  M00S00807.pfdm    +++|          RJ     OSP         OUTPUT SELECTION PARAMETERS
Line S00808 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01067  M01S00808.286l859 ---|          SA1    CPAR+/COMSPFS/CPSU
01068  M01S00809.286l859 ---|          ZR     X1,PRS6     IF NO SUMMARY FILE
01069  M01S00810.286l859 ---|          RJ     WDV         WRITE DEVICE STATUS BLOCK
01070  M01S00811.286l859 ---| PRS6     RJ     IFL         INITIALIZE FOR FILE PROCESSING
Line S00243 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01071  M01S00243.286l859 +++|          SX6    DSTBUF      SET DEVICE STATUS BUFFER ADDRESS
01072  M01S00244.286l859 +++|          RJ     ODV         OUTPUT DEVICE STATUS
01073  M01S00245.286l859 +++|          RJ     IFL         INITIALIZE FOR FILE PROCESSING
01074  M01S00246.286l859 +++|          SA1    /COMSPFS/UTLC
01075  M01S00247.286l859 +++|          SX1    X1-/COMSPFS/CAUT
01076  M01S00248.286l859 +++|          ZR     X1,PRS6     IF *PFCAT*
01077  M00S00812.pfdm    +++|
01078  M00S00813.pfdm    +++|*         INITIALIZE *PFM* REQUEST FILE.
01079  M00S00814.pfdm    +++|
Line S00815 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01080  M01S00815.286l859 ---|          SA1    /COMSPFS/UTLC
01081  M01S00816.286l859 ---|          SX2    X1-/COMSPFS/CAUT
Line S00817 Modification History
M01 (Removed by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00817.286l859 ---|          ZR     X1,PRSX     IF *PFCAT*
Line S00001 Modification History
M01 (Added by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00001.286l859 ---|          ZR     X1,PRS7     IF *PFCAT*
Line S00818 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01084  M01S00818.286l859 ---|          SA1    PRSB        SET *PFM* PROCESSOR FOR *PFREL*
Line S00249 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01085  M01S00249.286l859 +++|          SA1    PRSA        SET *PFM* PROCESSOR FOR *PFREL*
01086  M00S00819.pfdm    +++|          BX6    X1
01087  M00S00820.pfdm    +++|          SA6    PFRI
Line S00821 Modification History
M01 (Removed by) ns2625
Seq #  *Modification Id* Act 
----------------------------+
01088  M01S00821.ns2625  ---|          RETURN PFMREQ      INITIALIZE *PFM* REQUEST FILE
Line S00002 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00002.pfdm2   +++|
Line S00003 Modification History
M01 (Added by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00003.286l859 ---|*         READ FILE SELECTIONS (*PRESET* BUFFERS ARE NOT AVAILABLE
01091  M02S00004.286l859 ---|*         AFTER THIS POINT).
Line S00250 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00250.286l859 +++|*         REDUCE MEMORY, IF FILE SELECTION BUFFER NOT ALLOCATED.
Line S00005 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00005.pfdm2   +++|
Line S00006 Modification History
M01 (Added by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00006.286l859 ---| PRS7     SX0    EMBUF       SET SELECTIONS BUFFER ADDRESS
01095  M02S00007.286l859 ---|          RJ     RPS         READ FILE SELECTIONS
01096  M02S00008.286l859 ---|
01097  M02S00009.286l859 ---|*         REDUCE MEMORY, IF FILE SELECTION BUFFER NOT ALLOCATED.
01098  M02S00010.286l859 ---|
01099  M02S00011.286l859 ---|          SA5    /COMSPFS/NFIS
Line S00251 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00251.286l859 +++| PRS6     SA5    /COMSPFS/NFIS
Line S00012 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01101  M01S00012.pfdm2   +++|          NZ     X5,PRSX     IF FILE SELECTION BUFFER ALLOCATED
01102  M01S00013.pfdm2   +++|          MEMORY CM,,R,EMBUF+4  REDUCE MEMORY
01103  M00S00822.pfdm    +++|          EQ     PRSX        RETURN
Line S00014 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00014.pfdm2   +++|
01105  M00S00823.pfdm    +++|
Line S00824 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01106  M01S00824.286l859 ---| PRSA     DATA   40HFILES SELECTED FOR RELEASE.
01107  M01S00825.286l859 ---| PRSB     VFD    12/2000B+DDPP,12/0,18/RLFC,18/=0LRELEASING
Line S00252 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00252.286l859 +++| PRSA     VFD    12/2000B+DDPP,30/0,18/MSRE
01109  M00S00826.pfdm    +++| COMMON   SPACE  4,10
01110  M00S00827.pfdm    +++|*         PRESET COMMON DECKS.
01111  M00S00828.pfdm    +++|
01112  M00S00829.pfdm    +++|
01113  M00S00830.pfdm    +++|          LIST   X
01114  M00S00831.pfdm    +++|*CALL     COMCPFP
01115  M00S00832.pfdm    +++|          LIST   *
01116  M00S00833.pfdm    +++|*CALL     COMCRSB
01117  M00S00834.pfdm    +++|*CALL     COMCWTO
Line S00015 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00015.pfdm2   +++|          TITLE  BUFFER ALLOCATION.
01119  M01S00016.pfdm2   +++|
01120  M01S00017.pfdm2   +++| EPRS     EQU    *           END OF PRESET CODE
01121  M01S00018.pfdm2   +++|          SPACE  4,10
01122  M01S00019.pfdm2   +++|*         MAIN PROGRAM BUFFERS.
01123  M01S00020.pfdm2   +++|
01124  M01S00021.pfdm2   +++|
01125  M01S00022.pfdm2   +++| CATB     EQU    FWAB        CATALOG FILE BUFFER
01126  M01S00023.pfdm2   +++| PFRB     EQU    CATB+CATBL  *PFM* REQUEST FILE BUFFER
Line S00024 Modification History
M01 (Added by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00024.286l859 ---| DBUF     EQU    PFRB+PFRBL  DEVICE INFORMATION BUFFER
Line S00253 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00253.286l859 +++| PFLB     EQU    PFRB+PFRBL  PROCESSED FILES FILE BUFFER
01129  M01S00254.286l859 +++| MS1B     EQU    PFLB+PFLBL  SORT FILE 1
01130  M01S00255.286l859 +++| MS2B     EQU    MS1B+MSFBL  SORT FILE 2
01131  M01S00256.286l859 +++| MS3B     EQU    MS2B+MSFBL  SORT FILE 3
01132  M01S00257.286l859 +++| MS4B     EQU    MS3B+MSFBL  SORT FILE 4
01133  M01S00258.286l859 +++| SRTB     EQU    MS3B        SORT BUFFER (OVERLAYS *MS3B* AND *MS4B*)
01134  M01S00259.286l859 +++|          ERRNG  MSFBL*2-SRTBL  SORT BUFFER OVERFLOW
01135  M01S00260.286l859 +++| DBUF     EQU    MS4B+MSFBL  DEVICE INFORMATION BUFFER
Line S00025 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00025.pfdm2   +++|          SPACE  4,10
01137  M01S00026.pfdm2   +++|*         BUFFERS USED BY BOTH MAIN PROGRAM AND PRESET.
01138  M01S00027.pfdm2   +++|
01139  M01S00028.pfdm2   +++|
01140  M01S00029.pfdm2   +++| .BUF     MAX    DBUF+DBUFL,EPRS  START OF BUFFERS ALSO USED BY PRESET
Line S00030 Modification History
M01 (Added by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01141  M02S00030.286l859 ---| SUMB     EQU    .BUF        SUMMARY FILE BUFFER
01142  M02S00031.286l859 ---| OUTB     EQU    SUMB+SUMBL  OUTPUT FILE BUFFER
01143  M02S00032.286l859 ---| EMBUF    EQU    OUTB+OUTBL  END OF MAIN PROGRAM BUFFERS
Line S00261 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01144  M01S00261.286l859 +++| OUTB     EQU    .BUF        OUTPUT FILE BUFFER
01145  M01S00262.286l859 +++| SUMB     EQU    OUTB+OUTBL  SUMMARY FILE BUFFER
01146  M01S00263.286l859 +++| DSTBUF   EQU    SUMB+SUMBL  DEVICE STATUS BUFFER
01147  M01S00264.286l859 +++| EMBUF    EQU    DSTBUF+100B*2  END OF MAIN PROGRAM BUFFERS
01148  M00S00835.pfdm    +++|          SPACE  4,10
Line S00836 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01149  M01S00836.286l859 ---|*         PRESET BUFFERS.
Line S00265 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01150  M01S00265.286l859 +++|*         PRESET BUFFERS OVERLAID BY FILE SELECTIONS.
01151  M00S00837.pfdm    +++|
01152  M00S00838.pfdm    +++|
Line S00839 Modification History
M01 (Removed by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00839.pfdm2   ---| ESTADD   EQU    *           *RSB* PARAMETER WORD FOR EST
Line S00033 Modification History
M01 (Added by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01154  M01S00033.pfdm2   +++| ESTADD   EQU    EMBUF       *RSB* PARAMETER WORD FOR EST
01155  M00S00840.pfdm    +++| ESTBUF   EQU    ESTADD+1    EST BUFFER
01156  M00S00841.pfdm    +++| MSTADD   EQU    ESTBUF+ESMX*ESTE  *RSB* PARAMETER WORD FOR MST
01157  M00S00842.pfdm    +++| MSTBUF   EQU    MSTADD+1    MST BUFFER
Line S00843 Modification History
M01 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01158  M01S00843.286l859 ---| DSTBUF   EQU    MSTBUF+MSTL DEVICE STATUS BUFFER
Line S00844 Modification History
M01 (Removed by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00844.286l859 ---|          SPACE  4,10
01160  M02S00845.286l859 ---|*         MAIN PROGRAM BUFFERS.
Line S00034 Modification History
M01 (Added by) pfdm2
M02 (Removed by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01161  M02S00034.286l859 ---| EBUF     EQU    DSTBUF+100B*2+4  END OF PRESET BUFFERS
Line S00266 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01162  M01S00266.286l859 +++| EBUF     EQU    MSTBUF+MSTL END OF PRESET BUFFERS
01163  M00S00846.pfdm    +++|
Line S00267 Modification History
M01 (Added by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01164  M01S00267.286l859 +++|
Line S00847 Modification History
M01 (Removed by) pfdm2
Seq #  *Modification Id* Act 
----------------------------+
01165  M01S00847.pfdm2   ---|
01166  M01S00848.pfdm2   ---| CATB     EQU    FWAB        CATALOG FILE BUFFER
01167  M01S00849.pfdm2   ---| PFRB     EQU    CATB+CATBL  *PFM* REQUEST FILE BUFFER
01168  M01S00850.pfdm2   ---| DBUF     EQU    PFRB+PFRBL  DEVICE INFORMATION BUFFER
01169  M01S00851.pfdm2   ---| .BUF     MAX    DBUF+DBUFL,ESTADD  START OF BUFFERS ALSO USED BY *PRS*
01170  M01S00852.pfdm2   ---| SUMB     EQU    .BUF        SUMMARY FILE BUFFER
01171  M01S00853.pfdm2   ---| OUTB     EQU    SUMB+SUMBL  OUTPUT FILE BUFFER
01172  M01S00854.pfdm2   ---| EBUF     EQU    OUTB+OUTBL+4  END OF BUFFERS
01173  M01S00855.pfdm2   ---|
01174  M00S00856.pfdm    +++|          END
cdc/nos2.source/opl.opl871/deck/pfdm.txt ยท Last modified: (external edit)