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