*COMDECK AAMMIPBLX                                                       AAMMIPB
                                   ARRAY                                 GBKCOM 
 GCOM$MP    ADEF (0,0,12,S,    ) ;#                          #BEGIN ITEM GBKCOM 
 SIGMA      IDEF (I,000,00,60) ;#COUNT OF ALT KEY VALUES    #       ITEM GBKCOM 
 SPARE      IDEF (I,001,00,60) ;#SPARE                      #       ITEM GBKCOM 
 OMEGA      IDEF (I,002,00,60) ;#FWA OF SUBBLOCK            #       ITEM GBKCOM 
 QQ         IDEF (I,003,00,60) ;#FWA OF RECORD IN SUBBLK    #       ITEM GBKCOM 
 BB         IDEF (I,004,00,60) ;#SET BY KRAK$MP             #       ITEM GBKCOM 
 AKW        IDEF (I,005,00,60) ;#ALT KEY ADDRESS            #       ITEM GBKCOM 
 AKP        IDEF (I,006,00,60) ;#ALT KEY POSITION           #       ITEM GBKCOM 
 AKL        IDEF (I,007,00,60) ;#ALT KEY LENGTH             #       ITEM GBKCOM 
 AKT        IDEF (I,008,00,60) ;#ALT KEY TYPE               #       ITEM GBKCOM 
 AKS        IDEF (I,009,00,60) ;#LEVEL-3 SF ORG             #       ITEM GBKCOM 
 AKC        IDEF (I,010,00,60) ;#REPT-GRP COUNT             #       ITEM GBKCOM 
 PKL        IDEF (I,011,00,60) ;#PRIMARY KEY LENGTH         #       ITEM GBKCOM 
 PKT        IDEF (I,012,00,60) ;#PRIMARY KEY TYPE           #       END  GBKCOM 
                                   ARRAY                                 GBKCOM 
 CHNG$MP    ADEF (1,3,1,S,     ) ;                            BEGIN ITEM GBKCOM 
 CHANGE     IDEF (U,000,00,60) ;                                    END  GBKCOM 
                                   ARRAY                                 GBKCOM 
 PKEY$MP    ADEF (0,25,1,S,    ) ;                            BEGIN ITEM GBKCOM 
 PRIMKEY    IDEF (U,000,00,60) ;                                    END  GBKCOM 
                                   ARRAY                                 GBKCOM 
 SKEY$MP    ADEF (0,25,1,S,    ) ;                            BEGIN ITEM GBKCOM 
 SECKEY     IDEF (U,000,00,60) ;                                    END  GBKCOM 
                                   ARRAY                                 GBKCOM 
 HOLD$MP    ADEF (0,51,1,S,    ) ;                            BEGIN ITEM GBKCOM 
 HOLD       IDEF (U,000,00,60) ;                                    END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 SFH$MP     ADEF (0,0,1,P,BASED) ;#SUB-FILE HEADER       #    BEGIN ITEM GBKCOM 
 SFHWD0     IDEF (U,000,00,60) ;#1ST WD OF SUBFILE HDR  #           ITEM GBKCOM 
 SFHFB      JDEF (I,000,FBLNDM) ;#1ST BLOCK NO.          #          ITEM GBKCOM 
 SFHFDB     JDEF (U,000,FDBLDM) ;#1ST DATA BLK NO.       #          ITEM GBKCOM 
 SFHWD1     IDEF (U,001,00,60) ;#2ND WORD               #           ITEM GBKCOM 
 SFHLV      JDEF (I,001,NLEVDM) ;#NO.OF INDX LVLS        #          ITEM GBKCOM 
 SFHLB      JDEF (U,001,LSTBDM) ;#LAST BLOCK NO.         #          ITEM GBKCOM 
 SFHRC      JDEF (U,001,RCNTDM) ;#LIVE RECORD COUNT      #          ITEM GBKCOM 
 SFHWD2     IDEF (U,002,00,60) ;#LAST WORD              #           ITEM GBKCOM 
 SFHSB      IDEF (U,002,00,01) ;#SUBBLOCK FLAG          #           ITEM GBKCOM 
 SFHLG      IDEF (I,002,00,18) ;#LENGTH OF SFH          #           ITEM GBKCOM 
 SFHKP      JDEF (U,002,KYPODM) ;#KEY POS                #          ITEM GBKCOM 
 SFHFO      JDEF (U,002,FLORDM) ;#SUBFILE ORG            #          ITEM GBKCOM 
 SFHKT      JDEF (U,002,KYTYDM) ;#KEY TYPE               #          ITEM GBKCOM 
 SFHKA      JDEF (I,002,KYLODM) ;#KEY ADDRESS            #          ITEM GBKCOM 
 SFHKL      JDEF (I,002,KYLNDM) ;#KEY LENGTH             #          END  GBKCOM 
