*DECK  TCOM37Q
      PRGM  TCOM37Q;
      BEGIN 
      CONTROL STEXT;
  
#     THIS IS THE STATUS LIST QILOP.                                   #
  
*CALL COM37Q
  
      END 
      TERM
