00001 *****                                                             09/07/00
00002 *                                                                 DTSIR614
00003 *   DTSIR614   PAYMENTS APPLIED TO ESTIMATED QUARTERS                LV001
00004 *              REPORT RECORD.                                     DTSIR614
00005 *                                                                 DTSIR614
00006 *                                                                 DTSIR614
00007 *****                                                             DTSIR614
00008      SKIP1                                                        DTSIR614
00009          10  R614-LENGTH         PIC S9(04)  COMP.                DTSIR614
00010      SKIP1                                                        DTSIR614
00011          10  R614-SORT-AREA.                                      DTSIR614
00012              15  R614-REC-TYPE           PIC  X(03).              DTSIR614
00013              15  R614-FIELD-REP-ID       PIC  X(02).              DTSIR614
00014              15  R614-EMP-NO             PIC S9(07)      COMP-3.  DTSIR614
00015              15  R614-YRQ                PIC S9(05)      COMP-3.  DTSIR614
00016      SKIP1                                                        DTSIR614
00017          10  R614-DATA-AREA.                                      DTSIR614
00018              15  R614-TOT-PAYMENT        PIC S9(09)V99   COMP-3.  DTSIR614
00019              15  R614-CURR-PAYMENT       PIC S9(09)V99   COMP-3.  DTSIR614
00020              15  R614-PRIMARY-NAME       PIC  X(40).              DTSIR614
00021              15  R614-PARM-START-DATE    PIC S9(09)  COMP-3.      DTSIR614
00022              15  R614-PARM-END-DATE      PIC S9(09)  COMP-3.      DTSIR614