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