ITD--REPORT-PRINT    SECTION.

           EXEC CICS WRITEQ TS QUEUE  (ITD--PROGRAM)
                               FROM   (ITD--COVERAGE-TEXT)
                               LENGTH (29)
           END-EXEC.

           MOVE SPACES TO ITD--DETAIL.

       ITD--REPORT-PRINT-EXIT. EXIT.

© Copyright IT Doctors.co.uk. 2002