00001 *****                                                             11/12/04
00002 *                                                                 DTSIR330
00003 *     DTSIR330     CREDITS ESTABLISHED REPORT RECORD.                LV001
00004 *                                                                 DTSIR330
00005 *****                                                             DTSIR330
00006      SKIP1                                                        DTSIR330
00007          10  R330-LENGTH             PIC S9(04)  COMP.            DTSIR330
00008      SKIP1                                                        DTSIR330
00009          10  R330-SORT-AREA.                                      DTSIR330
00010              15  R330-REC-TYPE           PIC  X(03).              DTSIR330
00011              15  R330-EMP-NO             PIC S9(07)       COMP-3. DTSIR330
00012      SKIP1                                                        DTSIR330
00013          10  R330-DATA-AREA.                                      DTSIR330
00014              15  R330-SUBJECT-DATE       PIC S9(09)       COMP-3. DTSIR330
00015              15  R330-RPT-TYPE           PIC  X(01).              DTSIR330
00016                  88  R330-RPT-TYPE-DAILY-88 VALUE '0'.            DTSIR330
00017                  88  R330-RPT-TYPE-COLL-88  VALUE '1'.            DTSIR330
00018              15  R330-CREDIT-DEBIT-IND   PIC  X(01).              DTSIR330
00019                  88  R330-CREDIT-88         VALUE 'C'.            DTSIR330
00020                  88  R330-DEBIT-88          VALUE 'D'.            DTSIR330
00021              15  R330-BATCH-NO           PIC S9(05) COMP-3.       DTSIR330
00022              15  R330-ITEM-NO            PIC S9(03) COMP-3.       DTSIR330
00023              15  R330-TRAN-TYPE          PIC  X(02).              DTSIR330
00024              15  R330-AMT                PIC S9(09)V99    COMP-3. DTSIR330