00001 *****                                                             04/02/99
00002 *                                                                 DTSIR720
00003 *    DTSIR720    RQC DEBIT/BILLINGS UNIVERSE                         LV002
00004 *                REPORT RECORD.                                   DTSIR720
00005 *                                                                 DTSIR720
00006 *****                                                             DTSIR720
00007      SKIP1                                                        DTSIR720
00008          10  R720-LENGTH         PIC S9(04)  COMP.                   CL**2
00009      SKIP1                                                        DTSIR720
00010          10  R720-SORT-AREA.                                      DTSIR720
00011              15  R720-REC-TYPE           PIC  X(03)  VALUE '720'. DTSIR720
00012              15  R720-TRANS-TYPE         PIC  X(01).              DTSIR720
00013                  88  R720-TRANS-TYPE-CNTRB-88        VALUE '1'.   DTSIR720
00014                  88  R720-TRANS-TYPE-REIMB-88        VALUE '2'.   DTSIR720
00015              15  R720-EMP-NO             PIC S9(07)      COMP-3.  DTSIR720
00016      SKIP1                                                        DTSIR720
00017          10  R720-DATA-AREA.                                      DTSIR720
00018              15  R720-RUN-DATE           PIC S9(09)      COMP-3.  DTSIR720
00019              15  R720-TAX-DUE            PIC S9(09)V99   COMP-3.  DTSIR720
00020              15  R720-TAX-PAID           PIC S9(09)V99   COMP-3.  DTSIR720