*DECK TSYMCNS 
      PRGM  TSYMCNS;
      BEGIN 
      CONTROL STEXT;
  
#     THIS IS THE STATUS LIST CLIST.                                   #
  
*CALL SYMCNS
  
      END 
      TERM
