COMBPFP 
COMMON
  
#     COMBPFP - PERMANENT FILE PARAMETERS TABLE.                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBPFP #
  
# 
***   COMBPFP - PERMANENT FILE PARAMETERS TABLE.
* 
*     COMBPFP CONTAINS THE PERMANENT FILE PARAMETERS TABLE
*     TO BE USED BY THE *SETPFP* AND *GETPFP* MACROS, AND 
*     AN ARRAY FOR STORING THE USER-S FAMILY AND USER INDEX.
# 
  
      ARRAY PFP [0:0] P(3);          # PERMANENT FILE PARAMETER TABLE # 
        BEGIN 
        ITEM PFP$WRD0   I(00,00,60);  # WORD 0 #
        ITEM PFP$FAM    C(00,00,07);  # FAMILY NAME # 
        ITEM PFP$STAT   U(00,42,06);  # STATUS #
        ITEM PFP$FLAG   U(00,56,04);  # FLAG #
        ITEM PFP$FG1    B(00,56,01);  # SET FAMILY NAME # 
        ITEM PFP$FG2    B(00,57,01);  # SET PACK NAME # 
        ITEM PFP$FG3    B(00,58,01);  # SET USER NUMBER # 
        ITEM PFP$FG4    B(00,59,01);  # SET USER INDEX #
        ITEM PFP$WRD1   I(01,00,60);  # WORD 1 #
        ITEM PFP$PACK   C(01,00,07);  # PACK NAME # 
        ITEM PFP$UN     C(02,00,07);  # USER NUMBER # 
        ITEM PFP$UI     U(02,42,18);  # USER INDEX #
        END 
  
      COMMON BPFPCOM; 
  
        BEGIN  # BPFPCOM #
  
      ARRAY USER$PFP [0:0] S(2);    # USER FAMILY, UI AND PACK NAME # 
          BEGIN 
          ITEM USER$WRD0  U(00,00,60);  # FULL WORD DEFINITION #
          ITEM USER$FAM   C(00,00,07);  # FAMILY NAME # 
          ITEM USER$UI    U(00,42,18);  # USER INDEX #
          ITEM USER$PACK  C(01,00,07);  # PACK NAME # 
          END 
  
        END  # BPFPCOM #
  
      END  # COMBPFP #
  
                                               CONTROL LIST;
