01  ITD--COVERAGE-TABLE.
            05 ITD--LAST-VERB       PIC S9(4)  COMP.
            05 ITD--VERB-EXEC       PIC S9(4)  COMP.
            05 ITD--VERB-MISS       PIC S9(4)  COMP.
            05 ITD--VERB-MISS-NEW   PIC S9(4)  COMP.
            05 ITD--USED-SUB        PIC S9(4)  COMP.
            05 ITD--USED            PIC S9(9)  COMP OCCURS 5000.
            05 ITD--COL80           PIC X           OCCURS 5000.
        01  ITD--COVERAGE-TEXT.
            05 FILLER               PIC X.
            05 ITD--PROGRAM         PIC X(8).
            05 ITD--DETAIL.

               10 ITD--VERB         PIC Z(4)9.
               10 ITD--USED-COUNT   PIC Z(9)9.
               10 FILLER            PIC X.
               10 ITD--AUDIT        PIC X.
               10 FILLER            PIC X.
               10 ITD--STAR         PIC XX.
            05 ITD--SUMMARY REDEFINES ITD--DETAIL.
               10 ITD--SUMM-TEXT    PIC X(16).
               10 ITD--SUMM-NUM     PIC Z(3)9.
               10 ITD--VERB-PCNT REDEFINES ITD--SUMM-NUM
                                    PIC Z9.9.

© Copyright IT Doctors.co.uk. 2002