*DECK CCTTEXT 
          PROC  CCTTEXT;
          CONTROL STEXT;
*CALL CCT 
          BEGIN 
          END 
          TERM
