*COMDECK RFTDCLS
  
#**********************************************************************#
#                                                                      #
# THE FOLLOWING ITEMS DESCRIBE THE ENTRY IN THE *RESTORED FILE TABLE*  #
# (RFT).  AN ENTRY IS CREATED FOR EACH UNIQUE OCCURRENCE OF THE AREA ID#
# FOR A BEFORE IMAGE RECORD READ FROM THE TRANSACTION RECOVERY FILE    #
# (TRF).                                                               #
#                                                                      #
#**********************************************************************#
  
      DEF DFRFTSIZE #03#;    # SIZE (WORDS) OF RFT ENTRY               #
  
  
      BASED ARRAY RFT S(DFRFTSIZE); 
        BEGIN 
        ITEM RFARID     U(00,00,12);   # AREA IDENTIFIER               #
        ITEM RFARBAD    B(00,13,01);   # TRUE IF AREA BAD              #
        ITEM RFPRIOR    U(00,24,18);   # POINTER TO PRIOR ENTRY        #
        ITEM RFNEXT     U(00,42,18);   # POINTER TO NEXT ENTRY         #
        ITEM RFVERS     C(01,00,07);   # VERSION NAME                  #
        ITEM RFEX       I(01,42,18);   # SAVE EX FROM UFT              #
        ITEM RFOFT      U(02,06,18);   # POINTER TO OFT ENTRY          #
        ITEM RFUFT      U(02,24,18);   # POINTER TO UFT ENTRY          #
        ITEM RFKEYLP    U(02,42,18);   # POINTER TO PRIMARY KEY LIST   #
        END 
  
#**********************************************************************#
#                                                                      #
# THE FOLLOWING ITEM DECLARATIONS DESCRIBE THE FORMAT OF THE ENTRY IN  #
# THE PRIMARY KEY LIST ASSOCIATED WITH THE *RESTORED FILE TABLE* (RFT).#
#                                                                      #
#**********************************************************************#
  
      BASED ARRAY KEYLIST;
        BEGIN 
        ITEM KEYLENTH   U(00,00,09);   # KEY LENGTH (CHARACTERS)       #
        ITEM KEYPRIOR   U(00,24,18);   # PRIOR KEY ENTRY               #
        ITEM KEYNEXT    U(00,42,18);   # NEXT KEY ENTRY                #
        ITEM KEYVALUE   C(01,00,240);  # KEY VALUE                     #
        END 
  
