*COMDECK  FIATDCLS
  
#     DEFINE FIAT FIELDS THAT ARE OF INTEREST TO CDCS.                 #
  
      BASED ARRAY FIAT; 
        BEGIN 
        ITEM FIALTPOS   B(00,00,01);   # REQUIRES REPOSITIONING        #
        ITEM FIXFER     B(00,01,01);   # POSITIONED AFTER THE RECORD   #
        ITEM FISKLAST   B(00,03,01);   # SEEK IS LAST FUNCTION         #
        ITEM FIPTR5     I(00,06,18);   # POINTER 5 - TO PTREE          #
        ITEM FIALTKA    I(00,24,18);   # ALTERNATE KEY ADDRESS         #
        ITEM FIPRIKA    I(00,42,18);   # PRIMARY KEY ADDRESS           #
        ITEM FIPTR6     I(01,24,18);   # POINTER 6 - TO MIP PTREE ETC  #
        ITEM FIFP       U(02,00,07);   # FILE POSITION                 #
        ITEM FISEEK1    I(04,00,60);   # SEEK POSITIONING PARAMETERS   #
        ITEM FIPOSK1    I(05,00,60);   # KEY POSITIONING PARAMETERS    #
        ITEM FIPKRKW    U(05,03,12);   # RELATIVE KEY WORD             #
        ITEM FIPKP      U(05,15,04);   # RELATIVE KEY POSITION         #
        ITEM FIPKRKL    U(05,19,08);   # KEY LENGTH                    #
        END 
  
      BASED ARRAY PTREE;
        BEGIN 
        ITEM PTREEWRD    (00,00,60);   # PTREE WORD                    #
        ITEM PTCURPTR   U(00,00,05);   # CURRENT LEVEL IN PTREE        #
        ITEM PTBLKIN    U(00,35,01);   # THE BLOCK IS IN MEMORY        #
        ITEM PTCURBLK   U(00,35,25);   # PRU LOCATION ON THE FILE      #
        ITEM PTCURBADR  U(00,36,24);   # ADDRESS IN CENTRAL MEMORY     #
        END 
  
