*DECK TSCHTBL 
      PROC TSCHTBL;          # SYMPL TEXT FOR COMMON DECKS SCHDECLS    #
      BEGIN 
  
      CONTROL STEXT;
      BASED ARRAY SCWORKBUF [0] S(1);     # SCHEMA TABLE ENTRIES       #
          BEGIN 
          ITEM SCWORKWD U(0,0,60);
*CALL SCHDECLS
          END 
      END 
      TERM; 
