*DECK TREGNOS 
      PRGM  TREGNOS;
      BEGIN 
      CONTROL STEXT;
  
*CALL REGNOS
  
      END 
      TERM
