00001 ***** 01/02/06 00002 * DTSIR301 00003 * DTSIR301 BATCH CONTROL SUMMARY REPORT RECORD. LV008 00004 * DTSIR301 00005 * DTSIR301 00006 * 10/10/1998 REVIEWED AND MODIFIED FOR DC. DTSIR301 00007 * 12/19/2005 ADDED BANK BATCH NUMBER. GD. DTSIR301 00008 * DTSIR301 00009 ***** DTSIR301 00010 DTSIR301 00011 10 R301-LENGTH PIC S9(04) COMP. DTSIR301 00012 DTSIR301 00013 10 R301-SORT-AREA. DTSIR301 00014 15 R301-REC-TYPE PIC X(03) VALUE '301'. DTSIR301 00015 15 R301-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIR301 00016 15 R301-BATCH-NO PIC S9(05) COMP-3. DTSIR301 00017 DTSIR301 00018 10 R301-DATA-AREA. DTSIR301 00019 15 R301-CURR-RUN-DATE PIC S9(09) COMP-3. DTSIR301 00020 DTSIR301 00021 15 R301-BATCH-BALANCED-IND PIC X(01). DTSIR301 00022 88 R301-BATCH-BALANCED-NO-88 VALUE 'N'. DTSIR301 00023 88 R301-BATCH-BALANCED-YES-88 VALUE 'Y'. DTSIR301 00024 DTSIR301 00025 15 R301-BATCH-HELD-IND PIC X(01). DTSIR301 00026 88 R301-BATCH-HELD-NO-88 VALUE 'N'. DTSIR301 00027 88 R301-BATCH-HELD-YES-88 VALUE 'Y'. DTSIR301 00028 DTSIR301 00029 15 R301-ESTB-DATA. DTSIR301 00030 20 R301-ESTB-OP-ID PIC X(08). DTSIR301 00031 20 R301-ESTB-DATE PIC S9(09) COMP-3. DTSIR301 00032 DTSIR301 00033 15 R301-CHNG-DATA. DTSIR301 00034 20 R301-CHNG-OP-ID PIC X(08). DTSIR301 00035 20 R301-CHNG-DATE PIC S9(09) COMP-3. DTSIR301 00036 DTSIR301 00037 15 R301-SUCCEEDED-PREV-DATA. DTSIR301 00038 20 R301-SUCCEEDED-PREV-TRAN-CNT DTSIR301 00039 PIC S9(03) COMP-3. DTSIR301 00040 20 R301-SUCCEEDED-PREV-REMIT-AMT DTSIR301 00041 PIC S9(09)V9(02) COMP-3. DTSIR301 00042 DTSIR301 00043 15 R301-SUCCEEDED-TODAY-DATA. DTSIR301 00044 20 R301-SUCCEEDED-TODAY-TRAN-CNT DTSIR301 00045 PIC S9(03) COMP-3. DTSIR301 00046 20 R301-SUCCEEDED-TODAY-REMIT-AMT DTSIR301 00047 PIC S9(09)V9(02) COMP-3. DTSIR301 00048 DTSIR301 00049 15 R301-FAILED-TODAY-DATA. DTSIR301 00050 20 R301-FAILED-TODAY-TRAN-CNT DTSIR301 00051 PIC S9(03) COMP-3. DTSIR301 00052 20 R301-FAILED-TODAY-REMIT-AMT DTSIR301 00053 PIC S9(09)V9(02) COMP-3. DTSIR301 00054 DTSIR301 00055 15 R301-BYPASSED-TODAY-DATA. DTSIR301 00056 20 R301-BYPASSED-TODAY-TRAN-CNT DTSIR301 00057 PIC S9(03) COMP-3. DTSIR301 00058 20 R301-BYPASSED-TODAY-REMIT-AMT DTSIR301 00059 PIC S9(09)V9(02) COMP-3. DTSIR301 00060 DTSIR301 00061 15 R301-ATC-FILE-DATA. DTSIR301 00062 20 R301-ATC-FILE-TRAN-CNT DTSIR301 00063 PIC S9(03) COMP-3. DTSIR301 00064 20 R301-ATC-FILE-REMIT-AMT DTSIR301 00065 PIC S9(09)V9(02) COMP-3. DTSIR301 00066 DTSIR301 00067 15 R301-CONTROL-DATA. DTSIR301 00068 20 R301-CONTROL-TRAN-CNT DTSIR301 00069 PIC S9(03) COMP-3. DTSIR301 00070 20 R301-CONTROL-REMIT-AMT DTSIR301 00071 PIC S9(09)V9(02) COMP-3. DTSIR301 00072 DTSIR301 00073 15 R301-BANK-BATCH-NO PIC S9(05) COMP-3. DTSIR301