*DECK TSBDIT
      PROC TSBDIT;           # SYMPL TEXT FOR DIRECTORY INFO TABLE     #
      BEGIN                  # TO BE USED BY THE DARS                  #
  
      CONTROL STEXT;
      XREF ARRAY DITSC [24] S(1);      # DIRECTORY INFO TABLE          #
        BEGIN 
*CALL SCCWDECLS 
*CALL DITDECLS
        END 
  
      XREF ARRAY SCBUF [195];;         # CRM BUFFER FOR DARS           #
  
      END 
      TERM; 
