*DECK IMFTBL
USETEXT TIMFDEF 
PROC IMFTBL;                 # ARRAYS AND POINTERS IN MAIN OVERLAY     #
BEGIN 
  
  
XDEF ARRAY SIC$COP[0:0] S(SICLENGTH);;
XDEF BASED ARRAY FOLLOWS;;         # STORED NAVIGATION STRATEGY        #
XDEF BASED ARRAY SST$;;            # EXTERNAL SCHEMA TABLE             #
XDEF BASED ARRAY SYMSST$;;         # SYMBOLIC EXTERNAL SCHEMA TABLE    #
XDEF BASED ARRAY RECORDS;;         # ADDRESSES AND LENGTH OF REC TYPES #
XDEF BASED ARRAY THREAD;; 
XDEF BASED ARRAY LINE;; 
XDEF BASED ARRAY SCHNAMA;;         # EXTERNAL SCHEMA NAME AND          #
                                   # CONCEPTUAL SCHEMA NAME ARRAY      #
XDEF ITEM APATHDUP I;              # ON IF ACCESS PATH HAS DUPL        #
XDEF ITEM APATHREC U;              # RECORD ID OF ACCESS PATH          #
XDEF ITEM FOLLOWON B=FALSE;        # TRUE IF STORED NAVIGATION PATH    #
XDEF ITEM SCHMSDB U;         # METADATABASE PERMANENT FILE NAME        #
XDEF ITEM PRYPFID;           # METADATABASE PERMANENT FILE ID          #
XDEF ITEM PWRD$;             # PASSWORD FOR ALL DATA FILES             #
XDEF ITEM REPAIRF B;         # TRUE IF -INVOKE FOR REPAIR-             #
XDEF ITEM IOBUF$ U = 4;      # NUMBER OF I/O BUFFERS                   #
XDEF ITEM NORPV$ B = TRUE;   # NO-REPRIEVE FLAG                        #
XDEF ITEM IMF$GRP I;         # GROUP-ID OF CMM BLOCKS ACQUIRED DURING  #
                             # THE LIFE OF OVERLAY 60-0.  NEEDED BY    #
                             # OVERLAY 60-0 AND CAPSULE IMFRUN.        #
                             # DEFINED IN 0-0 BECAUSE IMFRUN MAY BE    #
                             # LOADED BY OVERLAYS OTHER THAN 60-0.     #
  
XDEF ITEM IMFDBM B;                # TRUE IF IMF DATA BASE MODE        #
XDEF ITEM KEYORDINAL;        # TO COMMUNICATE KEY ORDINL TO EXPANAL    #
      XDEF ITEM KEYMAP  I;         # USED IN CONJUNCTION WITH -USING-. #
                                   # THE BIT CORRESPONDING TO THE ORD  #
                                   # OF A SEARCH KEY IS TURNED ON.     #
                                   # THE RESULTING BIT MAP IS USED TO  #
                                   # FIND THE ACCESS PATH CORR TO THAT #
                                   # LIST OF SEARCH KEYS.              #
      XDEF ITEM THREADINDEX  I;    # INDEX INTO ARRAY -THREAD-         #
  
END 
TERM
