ITD--REPORT-COVERAGE SECTION.

           PERFORM ITD--REPORT-VERB VARYING ITD--USED-SUB FROM 1 BY 1
                   UNTIL ITD--USED-SUB > ITD--LAST-VERB.

           PERFORM ITD--REPORT-PRINT.

           MOVE 'EXECUTED     ='     TO ITD--SUMM-TEXT.
           MOVE ITD--VERB-EXEC       TO ITD--SUMM-NUM.
           PERFORM ITD--REPORT-PRINT.

           MOVE 'ALL MISSED   ='     TO ITD--SUMM-TEXT.
           MOVE ITD--VERB-MISS       TO ITD--SUMM-NUM.
           PERFORM ITD--REPORT-PRINT.

           MOVE 'NEW MISSED   ='     TO ITD--SUMM-TEXT.
           MOVE ITD--VERB-MISS-NEW   TO ITD--SUMM-NUM.
           PERFORM ITD--REPORT-PRINT.

           MOVE 'COVERAGE %   =' TO ITD--SUMM-TEXT.
           COMPUTE ITD--VERB-PCNT = (ITD--VERB-EXEC * 100) /
                                     ITD--LAST-VERB.
           PERFORM ITD--REPORT-PRINT.
       ITD--REPORT-COVERAGE-EXIT.  EXIT.

       ITD--REPORT-VERB     SECTION.

           MOVE ITD--USED-SUB              TO ITD--VERB.
           MOVE ITD--USED  (ITD--USED-SUB) TO ITD--USED-COUNT.
           MOVE ITD--COL80 (ITD--USED-SUB) TO ITD--AUDIT.
           IF ITD--AUDIT = LOW-VALUES
              MOVE 'U'    TO ITD--AUDIT.

           IF ITD--USED (ITD--USED-SUB) NOT EQUAL 0
              ADD +1 TO ITD--VERB-EXEC
           ELSE
              IF ITD--AUDIT = 'U'
                 ADD +1      TO ITD--VERB-MISS
                 MOVE '*'    TO ITD--STAR
              ELSE
                 ADD +1      TO ITD--VERB-MISS-NEW
                 MOVE '**'   TO ITD--STAR.

           PERFORM ITD--REPORT-PRINT.

       ITD--REPORT-VERB-EXIT.  EXIT.

© Copyright IT Doctors.co.uk. 2002