00001 *****                                                             01/05/99
00002 *                                                                 DTSIR305
00003 *   DTSIR305     TRIAL BALANCE REPORT RECORD.                        LV004
00004 *                                                                 DTSIR305
00005 *       NOTE:    R305-ACCT-SUB SIMPLY FORCES THE REPORT RECORDS   DTSIR305
00006 *                INTO THE SAME SEQUENCE AS THE REPORT LINES.      DTSIR305
00007 *                                                                 DTSIR305
00008 *****                                                             DTSIR305
00009      SKIP1                                                        DTSIR305
00010          10  R305-LENGTH             PIC S9(04)  COMP.               CL**4
00011      SKIP1                                                        DTSIR305
00012          10  R305-SORT-AREA.                                      DTSIR305
00013              15  R305-REC-TYPE           PIC  X(03).                 CL**4
00014              15  R305-EMP-CLASS          PIC  X(01).              DTSIR305
00015                  88  R305-CLASS-CHG-ONLY-88      VALUE 'C'.          CL**3
00016                  88  R305-CLASS-RATED-88         VALUE 'R'.          CL**3
00017                  88  R305-CLASS-SELF-INS-88      VALUE 'S'.          CL**3
00018                  88  R305-CLASS-UNK-88           VALUE 'U'.          CL**3
00019                  88  R305-CLASS-SUB-88           VALUE 'R' 'S'.      CL**3
00020              15  R305-ACCT-SUB           PIC S9(04)  COMP.        DTSIR305
00021              15  R305-ACCT-IND           PIC  X(02).              DTSIR305
00022      SKIP1                                                        DTSIR305
00023          10  R305-DATA-AREA.                                      DTSIR305
00024              15  R305-LAST-ACCT-UPDATE-DATE                       DTSIR305
00025                                          PIC S9(09)       COMP-3. DTSIR305
00026              15  R305-CHARGED-AMT        PIC S9(11)V9(02) COMP-3. DTSIR305
00027              15  R305-PAID-AMT           PIC S9(11)V9(02) COMP-3. DTSIR305
00028              15  R305-WAIVED-AMT         PIC S9(11)V9(02) COMP-3.    CL**3
00029              15  R305-WRITTEN-OFF-AMT    PIC S9(11)V9(02) COMP-3.    CL**3
00030              15  R305-TOLER-AMT          PIC S9(11)V9(02) COMP-3. DTSIR305
00031              15  R305-BALANCE-AMT        PIC S9(11)V9(02) COMP-3. DTSIR305