*COMDECK  COMDTSUB - SUB-SCHEMA DIRECTORY.
          BASED ARRAY TSUB ;       # SUB-SCHEMA DIRECTORY # 
               BEGIN                    CONTROL NOLIST ;
               ITEM SUBW  U (0, 0, WL) ;   # SUB-SCHEMA DIRECTORY WORD #
*CALL     SBCWDECLS          SUB-SCHEMA CONTROL WORDS DECLARATIONS. 
*CALL     SUBDECLS           SUB-SCHEMA DECLARATIONS. 
*CALL     SBDCDECLS          SUB-SCHEMA DATA CONTROL DECLARATIONS.
*CALL     SBRSTDECL          SUB-SCHEMA RELATION SEARCH TABLE DECLARATIONS. 
*CALL SBRQHDDCL 
*CALL SBRQSTDCL 
*CALL SBRQATDCL 
               END                      CONTROL LIST ;
          ITEM TSUBL ;
