*DECK TSCDCTB 
      PROC TSCDCTB;        #  SYMPL TEXT FOR COMMON DECK SCDCDECLS    # 
      BEGIN 
  
      CONTROL STEXT;
      ARRAY SCDCENTRY [1216] S(1);        # SCHEMA DATA CONTROL ENTRIES#
        BEGIN 
*CALL SCDCDECLS 
        END 
  
      END 
      TERM
