*COMDECK AAMGCOM
                             #
*              THE ARRAY GCOM$AA IS THE COLLECTION OF ITEMS WHICH, IF 
*              LABELED COMMON COULD EASILY USED WITH FDL, WOULD BE IN 
*              COMMON.  ITEMS ARE DEFINED IN COMPASS ALSO.
                             #                                           GBKCOM 
                                   ARRAY                                 GBKCOM 
 GCOM$AA    ADEF (0,0,56,P,    ) ;#                          #BEGIN ITEM GBKCOM 
 BARREN     IDEF (I,000,00,60) ;#NON-0 WHEN CUR REC HAS SUB-F#      ITEM GBKCOM 
 CMMWRD     IDEF (I,001,00,60) ;#                          #        ITEM GBKCOM 
 OVACID     IDEF (U,001,08,16) ;#OVERFLOW ACT SUBR ID      #        ITEM GBKCOM 
 FCMMNED    IDEF (I,001,24,18) ;#AMT CMM TO LOAD MAIN RTNS#         ITEM GBKCOM 
 MAXRARE    IDEF (I,001,42,18) ;#AMT CMM TO LOAD RARE RTNS#         ITEM GBKCOM 
 BLOCLWA    IDEF (I,002,00,60) ;#LWA+1 OF CURRENT BLOCK      #      ITEM GBKCOM 
 BFCHNHD    IDEF (U,003,00,60) ;#HEAD OF BUFFER CHAIN        #      ITEM GBKCOM 
 BFBCHNPTR  IDEF (I,003,24,18) ;#BUF CHAIN BACK POINTER   #         ITEM GBKCOM 
 BFFCHNPTR  IDEF (I,003,42,18) ;#BUF CHAIN FORWARD PNTR   #         ITEM GBKCOM 
 CBUFAD     IDEF (I,004,00,60) ;#ADDR OF COMMON COMPR BUFFER #      ITEM GBKCOM 
 CBUFSZ     IDEF (I,005,00,60) ;#SIZE OF COMMON COMPR BUFFER #      ITEM GBKCOM 
 CFLGS      IDEF (I,006,00,60) ;#FLAG WORD                   #      ITEM GBKCOM 
 NOFDL      IDEF (B,006,00,01) ;#TRUE IF FDL NOT AVAILABLE   #      ITEM GBKCOM 
 NOCMM      IDEF (B,006,01,01) ;#TRUE IF NO CMM AVAILABLE    #      ITEM GBKCOM 
 FWIFLG     IDEF (U,006,47,01) ;#TRUE IF FWI ON IN FIT     #        ITEM GBKCOM 
 PREVOP     IDEF (U,006,48,06) ;#PREVIOUS OP CODE            #      ITEM GBKCOM 
 FLSHFLG    IDEF (U,006,55,01) ;#SET IF FLUSHING             #      ITEM GBKCOM 
 REPVFLG    IDEF (U,006,56,01) ;#SET IF IN REPRIEVE          #      ITEM GBKCOM 
 WRITSTRT   IDEF (U,006,57,01) ;#1 IF IOWR HAS DONE SOMETHI#        ITEM GBKCOM 
 ABLKINC    IDEF (U,006,58,01) ;#1 IF AN ALT BLK IN CMM      #      ITEM GBKCOM 
 NOTFRST    IDEF (B,006,59,01) ;#TRUE IF AAM INITIALIZED     #      ITEM GBKCOM 
 CMPREC     IDEF (I,007,00,60) ;#0 IF REC UNCOMPRESSED       #      ITEM GBKCOM 
 COND       IDEF (I,008,00,60) ;#KEY COMPARE RESULTS         #      ITEM GBKCOM 
 BACKREC    IDEF (I,009,00,60) ;#REC NUM BACKED TO IN BAC1$AA#      ITEM GBKCOM 
 FAIL       IDEF (I,010,00,60) ;#1 IF POSITIONING FAILED     #      ITEM GBKCOM 
 FITWRD     IDEF (I,011,00,60) ;#REQUESTORS FIT LFN AND ADDR #      ITEM GBKCOM 
 FITNAM     IDEF (U,011,00,42) ;#REQUESTORS FIT LFN          #      ITEM GBKCOM 
 FITSAV     IDEF (I,011,42,18) ;#REQUESTORS FIT ADDR       #        ITEM GBKCOM 
 FITZERO    IDEF (I,012,00,60) ;#ZERO TO TERM FIT CHN FLUSH  #      ITEM GBKCOM 
 FSTTHED    IDEF (I,013,00,60) ;#HEAD OF FSTT CHAIN          #      ITEM GBKCOM 
 FUNCT      IDEF (I,014,00,60) ;#1 IF PUT, 0 IF REPLACE      #      ITEM GBKCOM 
 INDXLNG    IDEF (I,015,00,60) ;#LNG OF INDEX REC IN WRDS    #      ITEM GBKCOM 
 KEYFWA     IDEF (I,016,00,60) ;#FWA OF KEY WE ARE LOOKING FO#      ITEM GBKCOM 
 KEYLNGW    IDEF (I,017,00,60) ;#PRIMARY KEY LENGTH          #      ITEM GBKCOM 
 KEYOFF     IDEF (I,018,00,60) ;#OFFSET IN KEYFWA OF START   #      ITEM GBKCOM 
 MAJKEY     IDEF (I,019,00,60) ;#NUM CHAR TO BE COMPARED     #      ITEM GBKCOM 
 MAJMATR    IDEF (I,020,00,60) ;#REC NUM OF MAJ KEY MATCH    #      ITEM GBKCOM 
 MATRESL    IDEF (I,021,00,60) ;#REC NUM OF FULL KEY MATCH   #      ITEM GBKCOM 
 MIPMODE    IDEF (I,022,00,60) ;#NON-0 IF INDEX OPERATION    #      ITEM GBKCOM 
 MPRECAF    IDEF (I,023,00,60) ;#FWA OF MIP REC BEING DLT/RPL#      ITEM GBKCOM 
 MPRECLN    IDEF (I,024,00,60) ;#LNG OF MIP REC BEING DLT/RPL#      ITEM GBKCOM 
 MRQFWA     IDEF (I,025,00,60) ;#FWA OF USER MIP REQ         #      ITEM GBKCOM 
 MRQLNG     IDEF (I,026,00,60) ;#LNG OF USER MIP REQ         #      ITEM GBKCOM 
 CALCODE    IDEF (I,027,00,60) ;#CONDITIONAL CALL CODE       #      ITEM GBKCOM 
 NEWBFWA    IDEF (I,028,00,60) ;#FWA OF FRAME OF NEW BLOCK   #      ITEM GBKCOM 
 NEWBNUM    IDEF (I,029,00,60) ;#PRU OF NEW BLOCK            #      ITEM GBKCOM 
 NEWFWA     IDEF (I,030,00,60) ;#FWA OF NEW REC (PUT OR RPLC)#      ITEM GBKCOM 
 NEWLNG     IDEF (I,031,00,60) ;#LENGTH OF NEW REC           #      ITEM GBKCOM 
 NRECINS    IDEF (I,032,00,60) ;#NUMBER OF RECS BEING INSERTE#      ITEM GBKCOM 
 OUTKEY     IDEF (I,033,00,60) ;#NON-0 IF KEYS ARE NON EMBED #      ITEM GBKCOM 
 QMF        IDEF (I,034,00,60) ;#1 IF MATCH FOUND            #      ITEM GBKCOM 
 QNE        IDEF (I,035,00,60) ;#1 IF KEYS NE BUT REL SATISFY#      ITEM GBKCOM 
 QREL       IDEF (I,036,00,60) ;#REL BEING LOOKED FOR        #      ITEM GBKCOM 
 READLN     IDEF (I,037,00,60) ;#LENGTH OF BLK AS READ       #      ITEM GBKCOM 
 RECFWA     IDEF (I,038,00,60) ;#FWA CURRENT REC             #      ITEM GBKCOM 
 RECLNG     IDEF (I,039,00,60) ;#LENGTH OF CURRENT REC       #      ITEM GBKCOM 
 RECLWA     IDEF (I,040,00,60) ;#LWA+1 OF CURRENT REC        #      ITEM GBKCOM 
 RECPTR     IDEF (I,041,00,60) ;#PTR FOR CUR REC RT JUSTIFIED#      ITEM GBKCOM 
 RPUCC      IDEF (U,041,30,04) ;#UNUSED CHARACTERS          #       ITEM GBKCOM 
 RPCMP      IDEF (U,041,34,01) ;#COMPRESSION FLAG           #       ITEM GBKCOM 
 RPSFF      IDEF (U,041,46,01) ;#SUBFILE FLAG               #       ITEM GBKCOM 
 RPLWA      IDEF (U,041,47,13) ;#RELATIVE LWA, CURRENT REC  #       ITEM GBKCOM 
 RNO        IDEF (I,042,00,60) ;#REC NUM OF CUR REC          #      ITEM GBKCOM 
 RUNTOTCM   IDEF (I,043,00,60) ;#RUNNING TOTAL OF CM USED   #       ITEM GBKCOM 
 SMALREC    IDEF (I,044,00,60) ;#REC NUM OF REC JUST LS KEY  #      ITEM GBKCOM 
 SPLTFLG    IDEF (I,045,00,60) ;#SPLIT FLAG (BLK MUST BE SPLI#      ITEM GBKCOM 
 TEMPLOC    IDEF (I,046,00,60) ;#LOC OF KEY W/IN REC (WORD)  #      ITEM GBKCOM 
 TEMPOS     IDEF (I,047,00,60) ;#POS OF KEY W/IN WRD IN REC  #      ITEM GBKCOM 
 TARGET     IDEF (I,048,00,60) ;#AMOUNT OF CMM SPACE TO USE  #      ITEM GBKCOM 
 RHO        IDEF (I,049,00,60) ;#NON-0 IF DUP ALT KEY        #      ITEM GBKCOM 
 BACKLEV    IDEF (I,050,00,60) ;#LEV NUM BACKED TO BY BACK$F#       ITEM GBKCOM 
 MKEYLNG    IDEF (I,051,00,60) ;#MKL IN FIT AT START OF OP  #       ITEM GBKCOM 
 MINTARG    IDEF (I,052,00,60) ;#MIN TARGET ALLOWED         #       ITEM GBKCOM 
 SAMKLOC    IDEF (I,053,00,60) ;#PRIMARY KEY RKW            #       ITEM GBKCOM 
 SAMKPOS    IDEF (I,054,00,60) ;#PRIMARY KEY RKP            #       ITEM GBKCOM 
 SAMKLENG   IDEF (I,055,00,60) ;#PK LGTH IF EMBEDDED       #        ITEM GBKCOM 
 TEMPLOFF   IDEF (I,056,00,60) ;#REAL RKW FOR BLOCK        #        ITEM GBKCOM 
 TOMPLEFF   IDEF (I,057,00,60) ;#REAL RKW FOR FILE         #        ITEM GBKCOM 
 TOMPES     IDEF (I,058,00,60) ;#REAL RKP FOR FILE         #        ITEM GBKCOM 
 IMPERR     IDEF (I,059,00,60) ;#IMPOS ERR, AAM 2.0 OFF    #        END  GBKCOM 
                             BASED ARRAY                                 GBKCOM 
 GWRD$AA    ADEF (0,0,1,P,BASED) ;#USED TO ACCESS ANY WRD IN #BEGIN ITEM GBKCOM 
 W          IDEF (U,000,00,60) ;#                            #      END  GBKCOM 
  
  
