35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
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
|