*DECK TSTABLE 
USETEXT   TSYMCNS 
USETEXT   TPAKDEF 
USETEXT   TSYMC5Q 
USETEXT   TCEXECQ 
      PRGM  TSTABLE;
      BEGIN 
      CONTROL STEXT;
*CALL COMEX 
*CALL STABLE
  
  
      END 
      TERM
