00001 *****                                                             01/14/99
00002 *                                                                 DTSIR408
00003 *    DTSIR408    PAYMENT PLANS SATISFIED REPORT RECORD.              LV002
00004 *                                                                 DTSIR408
00005 *****                                                             DTSIR408
00006      SKIP1                                                        DTSIR408
00007          10  R408-LENGTH                 PIC S9(04)  COMP.           CL**2
00008      SKIP1                                                        DTSIR408
00009          10  R408-SORT-AREA.                                      DTSIR408
00010              15  R408-REC-TYPE           PIC  X(03).                 CL**2
00011              15  R408-OP-ID              PIC  X(08).              DTSIR408
00012              15  R408-EMP-NO             PIC S9(07)       COMP-3. DTSIR408
00013      SKIP1                                                        DTSIR408
00014          10  R408-DATA-AREA.                                      DTSIR408
00015              15  R408-PERIOD-START-DATE  PIC S9(09)       COMP-3. DTSIR408
00016              15  R408-PERIOD-END-DATE    PIC S9(09)       COMP-3. DTSIR408
00017              15  R408-PRIMARY-NAME       PIC  X(40).                 CL**2
00018              15  R408-COVERED-YRQ-CNT    PIC S9(04)   COMP.       DTSIR408
00019              15  R408-COVERED-YRQ OCCURS 20 TIMES                 DTSIR408
00020                                    INDEXED BY R408-YRQ-IDX        DTSIR408
00021                                          PIC S9(05)       COMP-3. DTSIR408