*DECK SCANTXT 
      PRGM SCANTXT; 
      CONTROL STEXT;
      XREF
        BEGIN 
*CALL SCANXDCLS 
        END 
      TERM
