00001 *****                                                             04/01/99
00002 *                                                                 DTSIR717
00003 *    DTSIR717    RQC COLLECTIONS UNIVERSE REPORT RECORD.             LV002
00004 * D.SHEPPERSON  MODIFIED FOR DC   04/01/99                           CL**2
00005 *****                                                             DTSIR717
00006      SKIP1                                                        DTSIR717
00007          10  R717-LENGTH         PIC S9(04)  COMP.                   CL**2
00008      SKIP1                                                        DTSIR717
00009          10  R717-SORT-AREA.                                      DTSIR717
00010              15  R717-REC-TYPE           PIC  X(03)  VALUE '717'. DTSIR717
00011              15  R717-AMT-DUE            PIC S9(09)V99   COMP-3.  DTSIR717
00012              15  R717-EMP-NO             PIC S9(07)      COMP-3.  DTSIR717
00013      SKIP1                                                        DTSIR717
00014          10  R717-DATA-AREA.                                      DTSIR717
00015              15  R717-RUN-DATE           PIC S9(09)      COMP-3.  DTSIR717