00001 *****                                                             04/02/99
00002 *                                                                 DTSIR722
00003 *    DTSIR722    RQC CREDIT/REFUNDS UNIVERSE                         LV002
00004 *                REPORT RECORD.                                   DTSIR722
00005 *                                                                 DTSIR722
00006 *****                                                             DTSIR722
00007      SKIP1                                                        DTSIR722
00008          10  R722-LENGTH         PIC S9(04)  COMP.                   CL**2
00009      SKIP1                                                        DTSIR722
00010          10  R722-SORT-AREA.                                      DTSIR722
00011              15  R722-REC-TYPE           PIC  X(03)  VALUE '722'. DTSIR722
00012              15  R722-EMP-NO             PIC S9(07)      COMP-3.  DTSIR722
00013      SKIP1                                                        DTSIR722
00014          10  R722-DATA-AREA.                                      DTSIR722
00015              15  R722-RUN-DATE           PIC S9(09)      COMP-3.  DTSIR722
00016              15  R722-TAX-DUE            PIC S9(09)V99   COMP-3.  DTSIR722
00017              15  R722-TAX-PAID           PIC S9(09)V99   COMP-3.  DTSIR722