*COMDECK AAMFIAT
                             #THE FOLLOWING DESCRIBE FIAAT PARTS#        GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 FIAT$AA    ADEF (0,0,1,P,BASED) ;#FIXED PORTION OF FIAAT#    BEGIN ITEM GBKCOM 
 FAWRD0     IDEF (U,000,00,60) ;#                           #       ITEM GBKCOM 
 FAALTPOS   IDEF (U,000,00,01) ;#FILE ALT SINCE POS KEY SAVED#      ITEM GBKCOM 
 FAXFER     IDEF (U,000,01,01) ;#POS KEY REC HAS BEEN TRANS  #      ITEM GBKCOM 
 FAINUBS    IDEF (U,000,02,01) ;#FIAAT IS IN UBS            #       ITEM GBKCOM 
 FASKLAST   IDEF (U,000,03,01) ;#PTREE REFLECTS SEEK        #       ITEM GBKCOM 
 FADPTRADR  IDEF (I,000,06,18) ;#DATA FILE PTREE ADDRESS    #       ITEM GBKCOM 
 FAPKY2ADR  IDEF (I,000,24,18) ;#ADDR OF POS KEY LEVEL 2  #         ITEM GBKCOM 
 FAPKY3ADR  IDEF (I,000,42,18) ;#ADDR OF POS KEY LEVEL 3  #         ITEM GBKCOM 
 FAWRD1     IDEF (I,001,00,60) ;#                         #         ITEM GBKCOM 
 FACREATE   IDEF (U,001,00,01) ;#INITIAL CREATION FLAG     #        ITEM GBKCOM 
 FAMPATADR  IDEF (I,001,06,18) ;#MIP ADDRESS TABLE ADDR   #         ITEM GBKCOM 
 FASKY2ADR  IDEF (I,001,24,18) ;#ADDR OF SEEK KEY LEVEL 2 #         ITEM GBKCOM 
 FASKY3ADR  IDEF (I,001,42,18) ;#ADDR OF SEEK KEY LEVEL 3 #         ITEM GBKCOM 
 FALSTPUT   IDEF (I,002,00,60) ;#DESCRIPTOR OF LAST PUT    #        ITEM GBKCOM 
 FAFP       IDEF (U,002,00,07) ;#FILE POSITION              #       ITEM GBKCOM 
 FALPRCNO   IDEF (U,002,22,13) ;#REC NO AT LAST PUT      #          ITEM GBKCOM 
 FALPBLNO   IDEF (U,002,35,25) ;#BLK NO AT LAST PUT      #          ITEM GBKCOM 
 FACAPUSM   IDEF (U,003,00,60) ;#CAPSULE USAGE MASK       #         ITEM GBKCOM 
 FASEEKEY1  IDEF (U,004,00,60) ;#SEEK KEY 1                #        ITEM GBKCOM 
 FASKMODE   IDEF (U,004,00,30) ;#KEY DESCRIPTOR OF SEEK KEY#        ITEM GBKCOM 
 FASKDEF    IDEF (U,004,00,27) ;#KEY DEFINITION OF SEEK KEY#        ITEM GBKCOM 
 FASKSTGE   IDEF (U,004,30,01) ;#STAGE REACHED IN SEEK     #        ITEM GBKCOM 
 FASKLENG   IDEF (U,004,52,08) ;#MAJOR KEY LENGTH          #        ITEM GBKCOM 
 FASKRKW    IDEF (U,004,00,15) ;#WORD KEY LENGTH           #        ITEM GBKCOM 
 FASKRKP    IDEF (U,004,15,04) ;#CHAR POS KEY STARTS IN    #        ITEM GBKCOM 
 FASKRKL    IDEF (U,004,19,08) ;#LENGTH OF KEY IN CHARS    #        ITEM GBKCOM 
 FAPOSKEY1  IDEF (U,005,00,60) ;#POSITION KEY 1            #        ITEM GBKCOM 
 FAPKDEF    IDEF (U,005,00,27) ;#KEY DEFINITION OF POS KEY #        ITEM GBKCOM 
 FAPKRKW    IDEF (U,005,00,15) ;#WORD KEY STARTS IN        #        ITEM GBKCOM 
 FAPKRKP    IDEF (U,005,15,04) ;#CHAR POS KEY STARTS IN    #        ITEM GBKCOM 
 FAPKRKL    IDEF (U,005,19,08) ;#LENGTH OF KEY IN CHARS    #        ITEM GBKCOM 
 FAPKMBS    IDEF (U,005,30,01) ;#HOW TO SQUEEZE MIP BLOCKS #        ITEM GBKCOM 
 FAPKTYP    IDEF (U,005,31,02) ;#KEY TYPE                  #        ITEM GBKCOM 
 FAPKSTR    IDEF (U,005,33,03) ;#KEY SUBSTRUCTURE IS,FIFO,U#        ITEM GBKCOM 
 FAPKRGS    IDEF (U,005,36,12) ;#REPEATING GROUP SIZE     #         ITEM GBKCOM 
 FAPKRGC    IDEF (U,005,48,12) ;#REPEATING GROUP COUNT    #         ITEM GBKCOM 
 FAPOSK2    IDEF (U,006,00,60) ;#POSITION KEY 2            #        END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 MPAT$AA    ADEF (0,0,1,P,BASED) ;#MIP ADDRESS TABLE         #BEGIN ITEM GBKCOM 
 MPAKD      IDEF (I,000,00,60) ;#MIP KEY DESCRIPTOR             #   ITEM GBKCOM 
 MPAKW      IDEF (U,000,00,15) ;#STARTING WORD OF KEY          #    ITEM GBKCOM 
 MPAKP      IDEF (U,000,15,04) ;#STARTING CHAR POS              #   ITEM GBKCOM 
 MPAKL      IDEF (U,000,19,08) ;#KEY LENGTH                      #  ITEM GBKCOM 
 MPAKI      IDEF (U,000,30,01) ;#HOW TO SQUEEZE MIP BLKS         #  ITEM GBKCOM 
 MPAKT      IDEF (U,000,31,02) ;#KEY TYPE                        #  ITEM GBKCOM 
 MPAKS      IDEF (U,000,33,03) ;#KEY SUBSTRUCTURE                #  ITEM GBKCOM 
 MPAKG      IDEF (U,000,36,12) ;#REPEATING GROUP SIZE          #    ITEM GBKCOM 
 MPAKC      IDEF (U,000,48,12) ;#REPEATING GROUP COUNT         #    ITEM GBKCOM 
 MPWRD1     IDEF (I,001,00,60) ;#SPARSE KEY WORD OF KEYDEF     #    ITEM GBKCOM 
 MPSPNL     IDEF (B,001,00,01) ;# T=NULL SUPPRESSION            #   ITEM GBKCOM 
 MPWRD2     IDEF (I,002,00,60) ;#                              #    ITEM GBKCOM 
 MPEOK      IDEF (U,002,00,01) ;#MIP GTNR EOK/EOR STATUS       #    ITEM GBKCOM 
 MPSKSTG    IDEF (U,002,01,05) ;#STAGE THAT SEEK IS IN         #    ITEM GBKCOM 
 MPCURLEV   IDEF (I,002,06,18) ;# CURRENT LEVEL IN MIP FILE  #      ITEM GBKCOM 
 MPATFIN    IDEF (I,002,24,18) ;# POINTER TO FID$ THIS LEV  #       ITEM GBKCOM 
 MPATPTR    IDEF (I,002,42,18) ;# ADDR OF PTREE THIS LEV    #       ITEM GBKCOM 
 MPWRD3     IDEF (I,003,00,60) ;#                            #      ITEM GBKCOM 
 MPSOK      IDEF (U,003,00,01) ;#EOK FLAG FOR MIP SEEK       #      ITEM GBKCOM 
 MPOMEGA    IDEF (I,003,06,18) ;# SAFE PLACE TO STORE OMEGA  #      END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 FINF$AA    ADEF (0,0,1,P,BASED) ;#FILE INFORMATION          #BEGIN ITEM GBKCOM 
 FIWRD0     IDEF (I,000,00,60) ;#                             #     ITEM GBKCOM 
 FINDXPRU   JDEF (U,000,FBLNDM) ;#PRU PRIM INDEX BLOCK#             ITEM GBKCOM 
 FIFDBPRU   JDEF (U,000,FDBLDM) ;#FIRST DATA BLK PRU   #            ITEM GBKCOM 
 FIWRD1     IDEF (I,001,00,60) ;#                          #        ITEM GBKCOM 
 FINDXLVLS  JDEF (U,001,NLEVDM) ;#INDEX LEVS IN USE  #              ITEM GBKCOM 
 FILSTPRU   JDEF (U,001,LSTBDM) ;#LAST USED BLK PRU NUM#            ITEM GBKCOM 
 FIRECCNT   JDEF (U,001,RCNTDM) ;#RECORD COUNT         #            ITEM GBKCOM 
 FIWRD2     IDEF (I,002,00,60) ;#                          #        ITEM GBKCOM 
 FIKEYPOS   JDEF (U,002,KYPODM) ;#STARTING CHAR POS    #            ITEM GBKCOM 
 FIFILEORG  JDEF (U,002,FLORDM) ;#FILE ORGANIZATION   #             ITEM GBKCOM 
 FIKEYTYPE  JDEF (U,002,KYTYDM) ;#KEY TYPE            #             ITEM GBKCOM 
 FIKEYLOC   JDEF (U,002,KYLODM) ;#STARTING WORD OF KEY#             ITEM GBKCOM 
 FIKEYSIZE  JDEF (I,002,KYLNDM) ;#LENGTH OF KEY       #             END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 PKEY$AA    ADEF (0,0,1,P,BASED) ;#POSITION KEY              #BEGIN ITEM GBKCOM 
 PKEYWRD    IDEF (I,000,00,60) ;#USED TO ACCESS WHOLE WORD #        END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 SKEY$AA    ADEF (0,0,1,P,BASED) ;#SEEK KEY                  #BEGIN ITEM GBKCOM 
 SKEYWRD    IDEF (I,000,00,60) ;#USED TO ACCESS WHOLE WORD   #      END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 KYDF$AA    ADEF (0,0,1,P,BASED) ;#KEY DEF ARRAY, OVERLAYS   #BEGIN ITEM GBKCOM 
 KDWORD     IDEF (U,000,00,60) ;#USED TO ACCESS WHOLE WORD    #     ITEM GBKCOM 
 KDLOC      IDEF (U,000,00,15) ;#WORD KEY STARTS IN          #      ITEM GBKCOM 
 KDPOS      IDEF (U,000,15,04) ;#CHAR POS KEY STARTS IN      #      ITEM GBKCOM 
 KDLNG      IDEF (U,000,19,08) ;#LENGTH OF KEY IN CHARS      #      ITEM GBKCOM 
 KDDEFN     IDEF (U,000,00,27) ;#KEY DEFINITION              #      ITEM GBKCOM 
 KDSPK      IDEF (I,001,00,60) ;# SPARSE KEY BIT TABLE         #    ITEM GBKCOM 
 KDSPNL     IDEF (B,001,00,01) ;# T=NULL SUPPRESSION          #     END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 PTRE$AA    ADEF (0,0,1,P,BASED) ;#P-TREE                    #BEGIN ITEM GBKCOM 
 PTREEWRD   IDEF (U,000,00,60) ;#USED TO ACCESS WHOLE WOR#          ITEM GBKCOM 
 PTCURPTR   IDEF (U,000,00,05) ;#CURRENT LEVEL IN PTREE  #          ITEM GBKCOM 
 PTFREC     IDEF (U,000,05,01) ;#FILE AT FIRST RECORD    #          ITEM GBKCOM 
 PTLREC     IDEF (U,000,06,01) ;#FILE AT LAST RECORD     #          ITEM GBKCOM 
 PTEOI      IDEF (U,000,07,01) ;#FILE AT EOI             #          ITEM GBKCOM 
 PTOF       IDEF (U,000,10,02) ;#FILE POS NOT EXTABLISHED#          ITEM GBKCOM 
 PTFWCT     IDEF (U,000,12,03) ;#CONSECUTIVE BLOCK COUNT #          ITEM GBKCOM 
 PTREESIZE  IDEF (U,000,18,04) ;#SIZE OF PTREE           #          ITEM GBKCOM 
 PTCUREC    IDEF (U,000,22,13) ;#REC NUM OF REC THIS LEVE#          ITEM GBKCOM 
 PTBLKIN    IDEF (U,000,35,01) ;#BLK THIS LEVEL IN MEMORY#          ITEM GBKCOM 
 PTCURBLK   IDEF (U,000,35,25) ;#BLK NUM OF REC THIS LVL #          ITEM GBKCOM 
 PTCURBADR  IDEF (U,000,36,24) ;#ADDR OF BLK THIS LEVEL  #          END  GBKCOM 
  
  
