00001 *****                                                             09/08/01
00002 *                                                                 DTSIR429
00003 *    DTSIR429    COLLECTIONS SPECIALIST TOTAL BALANCE DUE            LV007
00004 *                > PARM-BAL-AMT                                   DTSIR429
00005 *                REPORT RECORD.                                   DTSIR429
00006 *                                                                 DTSIR429
00007 *                NOTE: TOT-BAL-AMT IS IN DESCENDING ORDER, THUS   DTSIR429
00008 *                      IT IS IN THE BOTH THE SORT AREA (-INV) AND DTSIR429
00009 *                      THE DATA AREA.                             DTSIR429
00010 *                                                                 DTSIR429
00011 *****                                                             DTSIR429
00012      SKIP1                                                        DTSIR429
00013          10  R429-LENGTH             PIC S9(04)  COMP.            DTSIR429
00014      SKIP1                                                        DTSIR429
00015          10  R429-SORT-AREA.                                      DTSIR429
00016              15  R429-REC-TYPE           PIC  X(03)  VALUE '429'. DTSIR429
00017              15  R429-FLD-REP-ID         PIC  X(02).              DTSIR429
00018              15  R429-CATEGORY           PIC  X(01).              DTSIR429
00019                  88  R429-CATEGORY-DEF-PAYMNT-88     VALUE '1'.   DTSIR429
00020                  88  R429-CATEGORY-LIEN-CAND-88      VALUE '2'.   DTSIR429
00021                  88  R429-CATEGORY-ALL-ELSE-I-88     VALUE '3'.   DTSIR429
00022                  88  R429-CATEGORY-ALL-ELSE-A-88     VALUE '4'.   DTSIR429
00023              15  R429-CATEGORY-9   REDEFINES   R429-CATEGORY      DTSIR429
00024                                          PIC  9(01).              DTSIR429
00025              15  R429-TOT-BAL-AMT-INV    PIC S9(09)V99   COMP-3.  DTSIR429
00026              15  R429-EMP-NO             PIC S9(07)      COMP-3.  DTSIR429
00027      SKIP1                                                        DTSIR429
00028          10  R429-DATA-AREA.                                      DTSIR429
00029              15  R429-PARM-BAL-AMT       PIC S9(09)V99   COMP-3.  DTSIR429
00030              15  R429-FLD-REP-CNT        PIC S9(04)      COMP.    DTSIR429
00031              15  R429-FLD-REP-PARM OCCURS 2 TIMES                 DTSIR429
00032                                          PIC  X(02).              DTSIR429
00033              15  R429-TAX-DUE-CUTOFF-DT  PIC S9(09)      COMP-3.  DTSIR429
00034              15  R429-FIELD-TYPE-CNT     PIC S9(04)      COMP.    DTSIR429
00035              15  R429-FIELD-TYPE-PARM OCCURS 3 TIMES              DTSIR429
00036                                          PIC  X(02).              DTSIR429
00037              15  R429-INT-PEN-COMP-DATE  PIC S9(09)      COMP-3.  DTSIR429
00038              15  R429-PRIMARY-NAME       PIC  X(40).              DTSIR429
00039              15  R429-INAC-DATE          PIC S9(09)      COMP-3.  DTSIR429
00040              15  R429-TOT-BAL-AMT        PIC S9(09)V99   COMP-3.  DTSIR429