00001 *****                                                             01/18/99
00002 *                                                                 DTSIR413
00003 *    DTS CREDIT WRITE OFF CANDIDATE LIST REPORT RECORD.              LV002
00004 *                                                                 DTSIR413
00005 *****                                                             DTSIR413
00006      SKIP1                                                        DTSIR413
00007          10  R413-LENGTH                 PIC S9(04)  COMP.           CL**2
00008      SKIP1                                                        DTSIR413
00009          10  R413-SORT-AREA.                                      DTSIR413
00010              15  R413-REC-TYPE           PIC  X(03).                 CL**2
00011              15  R413-EMP-NO             PIC S9(07)      COMP-3.  DTSIR413
00012      SKIP1                                                        DTSIR413
00013          10  R413-DATA-AREA.                                      DTSIR413
00014              15  R413-CUTOFF-DATE        PIC S9(09)      COMP-3.  DTSIR413
00015              15  R413-PRIMARY-NAME       PIC  X(40).                 CL**2
00016              15  R413-FLD-REP-ID         PIC  X(02).              DTSIR413
00017              15  R413-TOT-CREDIT-AMT     PIC S9(09)V99   COMP-3.  DTSIR413
00018              15  R413-PURSUED-RPT-CNT    PIC S9(03)      COMP-3.  DTSIR413