*DECK TCEXEC
USETEXT   TSYMCNS 
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
      PRGM  TCEXEC; 
      BEGIN 
      CONTROL STEXT;
  
*CALL COMEX 
*CALL CEXEC 
  
      END 
      TERM
