DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
38
Copybook/DTSIX215.cpy
Normal file
38
Copybook/DTSIX215.cpy
Normal file
@ -0,0 +1,38 @@
|
||||
00001 ***** 04/17/09
|
||||
00002 * DTSIX215
|
||||
00003 * DTSIX215 ACCOUNTING BATCH AUDIT LV001
|
||||
00004 * DTSIX215
|
||||
00005 * DTSIX215
|
||||
00006 * DATA BUILT FROM R301 REPORT RECORDS DTSIX215
|
||||
00007 * DTSIX215
|
||||
00008 * 12/19/2005 - ADDED BANK-BATCH GD DTSIX215
|
||||
00009 * 06/15/2006 - ADDED ESTB OPID GD DTSIX215
|
||||
00010 * DTSIX215
|
||||
00011 ***** DTSIX215
|
||||
00012 15 X215-PROCESS-DT PIC X(10). DTSIX215
|
||||
00013 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00014 15 X215-BATCH PIC 9(05). DTSIX215
|
||||
00015 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00016 15 X215-BALANCED-IND PIC X(01). DTSIX215
|
||||
00017 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00018 15 X215-HELD-IND PIC X(01). DTSIX215
|
||||
00019 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00020 15 X215-CONTROL-TRAN-CNT PIC 9(03) VALUE 0. DTSIX215
|
||||
00021 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00022 15 X215-CONTROL-REMIT-AMT PIC ----------9.99. DTSIX215
|
||||
00023 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00024 15 X215-ATC-FILE-TRAN-CNT PIC 9(03) VALUE 0. DTSIX215
|
||||
00025 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00026 15 X215-ATC-FILE-REMIT-AMT PIC ----------9.99. DTSIX215
|
||||
00027 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00028 15 X215-PROCESSED-CNT PIC 9(03) VALUE 0. DTSIX215
|
||||
00029 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00030 15 X215-PROCESSED-REMIT PIC ----------9.99. DTSIX215
|
||||
00031 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00032 15 X215-DEPOSIT-DATE PIC X(10). DTSIX215
|
||||
00033 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00034 15 X215-CHNG-OP-ID PIC X(08). DTSIX215
|
||||
00035 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00036 15 X215-BANK-BATCH PIC 9(05). DTSIX215
|
||||
00037 15 FILLER PIC X(01) VALUE ','. DTSIX215
|
||||
00038 15 X215-ESTB-OP-ID PIC X(08). DTSIX215
|
||||
Reference in New Issue
Block a user