*COMDECK EXTBLDCLS
  
#***********************************************************************
*     EXTABLE - EXECUTION TABLE BASED ARRAY 
# 
  
      BASED ARRAY EXTABLE S(DFEXENTSZ); 
        BEGIN 
  
        # THE FOLLOWING ITEMS DESCRIBE THE EXECUTION TABLE HEADER      #
  
                                       # BITS 0-23 ARE UNUSED          #
        ITEM EXPRIOR   U(00,24,18);    # PTR TO PRIOR EXTABLE BLOCK    #
        ITEM EXNEXT    U(00,42,18);    # PTR TO NEXT EXTABLE BLOCK     #
                                       # BITS 0-47 ARE UNUSED          #
        ITEM EXNUMENT  U(01,48,12);    # NO. OF ENTRIES IN EXTABLE BLK #
  
        # THE FOLLOWING ITEMS DESCRIBE THE VARIABLE PORTION OF THE     #
        # EXECUTION TABLE.  UP TO DFMAXENT ENTRIES MAY FOLLOW THE      #
        # HEADER IN EACH FIXED POSITION MANAGED MEMORY BLOCK.          #
  
        ITEM EXWORD0   U(00,00,60);    # USED FOR INITIALIZATION       #
        ITEM EXFLAGS   U(00,00,04);    # FLAGS                         #
          ITEM EXJLFLG   B(00,00,01);  # JLF FLAG, 1 = JLF SPECIFIED   #
          ITEM EXQRFLG   B(00,01,01);  # QRF FLAG, 1 = QRF SPECIFIED   #
          ITEM EXTRFLG   B(00,02,01);  # TRF FLAG, 1 = TRF SPECIFIED   #
          ITEM EXRIFLG   B(00,03,01);  # RIF FLAG, 1 = RIF SPECIFIED   #
                                       # BITS 4-29 ARE UNUSED          #
        ITEM EXTRNUM   U(00,30,06);    # TRF NUMBER                    #
        ITEM EXJLNUM   U(00,36,06);    # JOURNAL LOG FILE NUMBER       #
        ITEM EXSDTX    U(00,42,12);    # SCHEMA DIRECTORY TABLE INDEX  #
        ITEM EXFUNC    U(00,54,06);    # FUNCTION CODE                 #
        ITEM EXWORD1   U(01,00,60);    # USED FOR INITIALIZATION       #
        ITEM EXJLSZ    U(01,00,30);    # SIZE OF JOURNAL LOG FILE      #
        ITEM EXQRFSZ   U(01,30,30);    # SIZE OF QUICK RECOVERY FILE   #
  
        END 
