00001 *****                                                             04/08/21
00002 *                                                                 DTSIR439
00003 *    DTS DEBIT WRITE OFF CANDIDATE LIST REPORT RECORD.               LV010
00004 *                                                                 DTSIR439
00005 *   MODIFIED TO INCLUDE LAST LIAB QTR AND LAST ACTIVITY DATE         CL**7
00006 *                                              6/24/14   ZL1         CL**7
00007 *****                                                             DTSIR439
00008      SKIP1                                                        DTSIR439
00009          10  R439-LENGTH                 PIC S9(04)  COMP.           CL**5
00010      SKIP1                                                        DTSIR439
00011          10  R439-SORT-AREA.                                         CL**5
00012              15  R439-REC-TYPE           PIC  X(03).                 CL**5
00013              15  R439-EMP-NO             PIC S9(07)      COMP-3.     CL**5
00014      SKIP1                                                        DTSIR439
00015          10  R439-DATA-AREA.                                         CL**5
00016              15  R439-RPT-TYPE           PIC  9(01).                 CL**8
00017                  88  R439-CREDIT-RPT-88  VALUE 1.                    CL**8
00018                  88  R439-DEBIT-RPT-88   VALUE 2.                    CL**8
00019              15  R439-CUTOFF-YRQ         PIC S9(05)      COMP-3.     CL**8
00020              15  R439-PRIMARY-NAME       PIC  X(36).                 CL**7
00021              15  R439-EMP-STATUS         PIC  X(04).                 CL**7
00022              15  R439-FLD-REP-ID         PIC  X(02).                 CL**5
00023              15  R439-TOT-BALANCE-AMT    PIC S9(09)V99   COMP-3.     CL**5
00024              15  R439-TOT-MJRN-AMT       PIC S9(09)V99   COMP-3.     CL*10
00025              15  R439-PURSUED-RPT-CNT    PIC S9(03)      COMP-3.     CL**5
00026              15  R439-MLIN-IND           PIC  X(01).                 CL**5
00027              15  R439-MDPC-IND           PIC  X(01).                 CL**5
00028              15  R439-LAST-LIAB-YRQ      PIC  X(06).                 CL**7
00029              15  R439-LAST-UPD-DATE      PIC  X(10).                 CL**9