*COMDECK FDLT 
          CONTROL NOLIST;    #FDLT# 
          CONTROL EJECT;
# * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*         FDLT - FAST DYNAMIC LOADING TABLE 
* 
*             THIS TABLE IS USED TO CONTROL THE GENERATION OF 
*             CAPSULE CARDS FOR FDL AND THE GENERATION OF EQUIVALENCE 
*             TABLES FOR DETERMININATION OF PROGRAM NAMES AT
*             EXECUTION TIME. 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * # 
  
#      VALUES FOR FDLTENTTYPE  #
          STATUS FDLTENTVAL 
              NULL
              , PROGEQUIV    # PROGRAM EQUIVALENCE #
              , AREADECL     # AREA DECLARATION # 
              , RELDECL      # RELATION DECLARATION # 
              ; 
  
 #     VALUES FOR FDLTAREAOP   #
          STATUS FDLTAOVAL
                NULL
              , CLOSE 
              , DELETE
              , OPEN
              , READ
              , REWRITE 
              , START 
              , WRITE 
              ; 
          DEF NBRUSEOPS  #FDLTAOVAL "WRITE"#;  #NBR USE OPS#
  
          COMMON FDLTCOM; 
          BASED ARRAY FDLT [0:0] S(8);
              BEGIN 
              ITEM FDLTWORD0       I(0,0,60); 
              ITEM FDLTENTTYPE     S:FDLTENTVAL (0,0,4);
#      THE FOLLOWING APPLY TO PROGRAM ENTRIES ONLY #
              ITEM FDLTSTATICF     B(0,4,1);  # STATIC LOAD FLAG #
              ITEM FDLTCOMPILED    B(0,5,1);  # COMPILED #
              ITEM FDLTINTNAME     C(0,18,7); # INTERNAL NAME # 
              ITEM FDLTLIBNAME     C(1,0,7);  # LIBRARY NAME #
              ITEM FDLTPROGNAME    C(2,0,30); # 30 CHAR PROGRAM NAME #
#      THE FOLLOWING APPLY TO CDCS ENTRIES #
              ITEM FDLTAREAOP      U(0,5,20); # AREA OP FLAGS # 
              ITEM FDLTAREANAME    C(1,0,30); # AREA NAME # 
              ITEM FDLTRELNAME     C(1,0,30); # RELATION NAME # 
              END 
          CONTROL LIST;      #FDLT# 
