*COMDECK  COMDTSCH - SCHEMA DIRECTORY (CURRENT PORTION).
          BASED ARRAY TSCH ;       # SCHEMA DIRECTORY (CURRENT PORTION)#
               BEGIN                    CONTROL NOLIST ;
               ITEM SCHW  U  (0, 0, WL) ;    # SCHEMA DIRECTORY WORD #
*CALL     SCHDECLS           SCHEMA DECLARATIONS. 
*CALL     SCDCDECLS          SCHEMA DATA CONTROL DECLARATIONS.
*CALL     SCRLDECLS          SCHEMA RELATION SEARCH TABLE DECLARATIONS. 
               END                      CONTROL LIST ;
          ITEM TSCHL ;
