*DECK TCOM39
USETEXT   TSOURCE 
USETEXT   TCOM39Q 
      PRGM TCOM39;
      BEGIN 
      CONTROL STEXT;
  
*CALL COMEX 
*CALL COM39 
  
      END 
      TERM
