# CPFNS -- PERMANENT FILE INFORMATION
COMMON /CPFNS/ SWITCH, PFN(4),TLFN,ID,CY,RP,KEYTAB(8)
   INTEGER SWITCH%# FILE BYTE SIZE SWITCH
   INTEGER PFN%%# PERMANENT FILE NAME
   INTEGER TLFN%%# LOGICAL FILE NAME
   INTEGER ID%%# PERMANENT FILE ID
   INTEGER CY%%# CYCLE NUMBER
   INTEGER RP%%# RETENTION PERIOD
   INTEGER KEYTAB%# OTHER PERMANENT FILE ATTRIBUTES
