*DECK TSOURCE 
      PRGM  TSOURCE;
      BEGIN 
      CONTROL STEXT;
  
*CALL SOURCEDEF 
  
      END 
      TERM
