*COMDECK COMPRPV
 COMPRPV  SPACE  4,20 
***       COMPRPV - PFSRPV COMMON BLOCK FOR FTFS AND PTFS.
  
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1994.
  
***       COMMON BLOCK COMPRPV CONTAINS GLOBAL PARAMETERS FOR *PFSRPV*, 
*                THE SYSTEM ERROR REPRIEVE ROUTINE FOR FTFS AND PTFS: 
* 
*         PFSRPVA (FLAG - PFSRPV ROUTINE ACTIVE OR INACTIVE). 
*         PFSRPVM (FWA OF SYSTEM ERROR MESSAGE GENERATED BY *PFSRPV*. 
*                  FTFS/PTFS RELAY THIS MESSAGE TO THE REMOTE MFLINK
*                  AND THE USER AS A DAYFILE MESSAGE).
*         PFSRPVT (FLAG - SYSTEM ERROR OCCURRED). 
* 
*                 * * * * * * * * * *     WHEN MODIFYING *COMPRPV*, 
*                 *                 *     CHANGE THE CORRESPONDING
*                 *  C A U T I O N  *     COMMON BLOCK DEFINITIONS IN 
*                 *                 *     DECK *PFSRPV*.
*                 * * * * * * * * * * 
* 
  
          USE    /COMPRPV/         COMMON BLOCK /COMPRPV/ 
          ORGC   *
  
 PFSRPVA  BSSZ   1                 = 0, PFSRPV INACTIVE 
*                                  = 277B, PFSRPV ACTIVE
 PFSRPVM  DATA   10H"PROGNAM"      FWA OF SYSTEM ERROR MESSAGE
  
 PFSRPVT  BSSZ   1                 = 0, NO SYSTEM ERROR 
*                                  = 1, SYSTEM ERROR MESSAGE SENT 
*                                  = X, NEW SYSTEM ERROR MESSAGE
          BSSZ   6                 ERROR TEXT 
          USE    *                 END OF COMMON BLOCK /COMPRPV/
          USE    *                 END OF COMMON BLOCK /COMPRPV/
