DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
70
Copybook/DTSIAHDR.cpy
Normal file
70
Copybook/DTSIAHDR.cpy
Normal file
@ -0,0 +1,70 @@
|
||||
00001 ***** 04/23/12
|
||||
00002 * DTSIAHDR
|
||||
00003 * DTSIAHDR ACCOUNTING TRANSACTION FILE 'HEADER' LV001
|
||||
00004 * RECORD DEFINITION. DTSIAHDR
|
||||
00005 * DTSIAHDR
|
||||
00006 * DTSIAHDR
|
||||
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIAHDR
|
||||
00008 * 12/07/2005 ADDED BANK BATCH NUMBER. GD DTSIAHDR
|
||||
00009 * 04/04/2011 ADDED DEPOSIT-ID FOR WALK-IN DTSIAHDR
|
||||
00010 * PAYMENTS THROUGH TREASURY. GD DTSIAHDR
|
||||
00011 * DTSIAHDR
|
||||
00012 ***** DTSIAHDR
|
||||
00013 DTSIAHDR
|
||||
00014 10 AHDR-KEY-AREA. DTSIAHDR
|
||||
00015 15 AHDR-DOC-NO. DTSIAHDR
|
||||
00016 20 AHDR-BATCH-NO PIC S9(05) COMP-3. DTSIAHDR
|
||||
00017 20 AHDR-ITEM-NO PIC S9(03) COMP-3. DTSIAHDR
|
||||
00018 DTSIAHDR
|
||||
00019 DTSIAHDR
|
||||
00020 10 AHDR-DATA-AREA. DTSIAHDR
|
||||
00021 15 AHDR-REC-TYPE PIC X(01). DTSIAHDR
|
||||
00022 88 AHDR-HDR-88 VALUE 'H'. DTSIAHDR
|
||||
00023 DTSIAHDR
|
||||
00024 DTSIAHDR
|
||||
00025 15 AHDR-BATCH-BALANCED-IND PIC X(01). DTSIAHDR
|
||||
00026 88 AHDR-BATCH-BALANCED-NO-88 VALUE 'N'. DTSIAHDR
|
||||
00027 88 AHDR-BATCH-BALANCED-YES-88 VALUE 'Y'. DTSIAHDR
|
||||
00028 DTSIAHDR
|
||||
00029 15 AHDR-BATCH-HELD-IND PIC X(01). DTSIAHDR
|
||||
00030 88 AHDR-BATCH-HELD-NO-88 VALUE 'N'. DTSIAHDR
|
||||
00031 88 AHDR-BATCH-HELD-YES-88 VALUE 'Y'. DTSIAHDR
|
||||
00032 DTSIAHDR
|
||||
00033 15 AHDR-ESTB-OP-ID PIC X(08). DTSIAHDR
|
||||
00034 88 AHDR-ESTB-SYSTEM-88 VALUE 'SYSTEM'. DTSIAHDR
|
||||
00035 DTSIAHDR
|
||||
00036 15 AHDR-ESTB-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00037 DTSIAHDR
|
||||
00038 15 AHDR-CHNG-OP-ID PIC X(08). DTSIAHDR
|
||||
00039 DTSIAHDR
|
||||
00040 15 AHDR-CHNG-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00041 DTSIAHDR
|
||||
00042 15 AHDR-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00043 DTSIAHDR
|
||||
00044 15 AHDR-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00045 DTSIAHDR
|
||||
00046 15 AHDR-LAST-USED-ITEM-NO PIC S9(03) COMP-3. DTSIAHDR
|
||||
00047 DTSIAHDR
|
||||
00048 15 AHDR-CONTROL-TRAN-CNT PIC S9(03) COMP-3. DTSIAHDR
|
||||
00049 DTSIAHDR
|
||||
00050 15 AHDR-ATC-FILE-TRAN-CNT PIC S9(03) COMP-3. DTSIAHDR
|
||||
00051 DTSIAHDR
|
||||
00052 15 AHDR-PROC-TRAN-CNT PIC S9(03) COMP-3. DTSIAHDR
|
||||
00053 DTSIAHDR
|
||||
00054 15 AHDR-CONTROL-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAHDR
|
||||
00055 DTSIAHDR
|
||||
00056 15 AHDR-ATC-FILE-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAHDR
|
||||
00057 DTSIAHDR
|
||||
00058 15 AHDR-PROC-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAHDR
|
||||
00059 DTSIAHDR
|
||||
00060 15 AHDR-ANNUAL-BATCH-IND PIC X(01). DTSIAHDR
|
||||
00061 88 AHDR-ANNUAL-BATCH-YES-88 VALUE 'Y'. DTSIAHDR
|
||||
00062 88 AHDR-ANNUAL-BATCH-NO-88 VALUE 'N'. DTSIAHDR
|
||||
00063 DTSIAHDR
|
||||
00064 15 AHDR-BANK-BATCH-NO PIC S9(05) COMP-3. DTSIAHDR
|
||||
00065 DTSIAHDR
|
||||
00066 15 AHDR-CHK-SCAN-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00067 DTSIAHDR
|
||||
00068 15 AHDR-DEPOSIT-ID PIC S9(11) COMP-3. DTSIAHDR
|
||||
00069 DTSIAHDR
|
||||
00070 15 FILLER PIC X(11). DTSIAHDR
|
||||
Reference in New Issue
Block a user