DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
34
Copybook/DTSIAATH.cpy
Normal file
34
Copybook/DTSIAATH.cpy
Normal file
@ -0,0 +1,34 @@
|
||||
00001 ***** 12/30/09
|
||||
00002 * DTSIAATH
|
||||
00003 * DTSIAATH ACCOUNTING TRANSACTION HISTORY FILE RECORD LV001
|
||||
00004 * DEFINITION. DTSIAATH
|
||||
00005 * DTSIAATH
|
||||
00006 * 12/11/2009 INITIAL DEVELOPMENT GD DTSIAATH
|
||||
00007 * DTSIAATH
|
||||
00008 ***** DTSIAATH
|
||||
00009 DTSIAATH
|
||||
00010 10 AATH-KEY-AREA. DTSIAATH
|
||||
00011 15 AATH-DOC-NO. DTSIAATH
|
||||
00012 20 AATH-BATCH-NO PIC S9(05) COMP-3. DTSIAATH
|
||||
00013 20 AATH-ITEM-NO PIC S9(03) COMP-3. DTSIAATH
|
||||
00014 DTSIAATH
|
||||
00015 10 AATH-DATA-AREA. DTSIAATH
|
||||
00016 15 AATH-REC-TYPE PIC X(01). DTSIAATH
|
||||
00017 88 AATH-ADJ-88 VALUE 'A'. DTSIAATH
|
||||
00018 88 AATH-HDR-88 VALUE 'H'. DTSIAATH
|
||||
00019 88 AATH-PAY-88 VALUE 'P'. DTSIAATH
|
||||
00020 88 AATH-RPT-88 VALUE 'R'. DTSIAATH
|
||||
00021 88 AATH-ATX-88 VALUE 'T'. DTSIAATH
|
||||
00022 DTSIAATH
|
||||
00023 15 AATH-DATA-FILLER PIC X(122). DTSIAATH
|
||||
00024 DTSIAATH
|
||||
00025 10 AATH-AUDIT-AREA. DTSIAATH
|
||||
00026 15 AATH-ACTION PIC X(01). DTSIAATH
|
||||
00027 88 AATH-ACTION-ADD-88 VALUE 'A'. DTSIAATH
|
||||
00028 88 AATH-ACTION-UPD-88 VALUE 'U'. DTSIAATH
|
||||
00029 88 AATH-ACTION-DEL-88 VALUE 'D'. DTSIAATH
|
||||
00030 15 AATH-OP-ID PIC X(08). DTSIAATH
|
||||
00031 15 AATH-DATE PIC S9(09) COMP-3. DTSIAATH
|
||||
00032 15 AATH-TIME PIC S9(07) COMP-3. DTSIAATH
|
||||
00033 DTSIAATH
|
||||
00034 10 AATH-FILLER PIC X(110). DTSIAATH
|
||||
Reference in New Issue
Block a user