00001 *****                                                             02/05/99
00002 *    D.SHEPPERSON MODIFIED 02/05/99                               DTSIR432
00003 *                                                                    LV004
00004 *    DTSIR432    ACCOUNTS RECEIVABLE AUDIT TRAIL REPORT RECORD.      CL**3
00005 *                                                                 DTSIR432
00006 *****                                                             DTSIR432
00007      SKIP1                                                        DTSIR432
00008          10  R432-LENGTH             PIC S9(04)  COMP.               CL**2
00009      SKIP1                                                        DTSIR432
00010          10  R432-SORT-AREA.                                      DTSIR432
00011              15  R432-REC-TYPE           PIC  X(03)  VALUE '432'. DTSIR432
00012              15  R432-DOC-NO.                                        CL**2
00013                 20  R432-BATCH-NO        PIC S9(05)      COMP-3.     CL**4
00014                 20  R432-ITEM-NO         PIC S9(03)      COMP-3.     CL**4
00015              15  R432-EMP-NO             PIC S9(07)      COMP-3.  DTSIR432
00016              15  R432-YRQ                PIC S9(05)      COMP-3.  DTSIR432
00017      SKIP1                                                        DTSIR432
00018          10  R432-DATA-AREA.                                      DTSIR432
00019              15  R432-RPT-TYPE           PIC  X(02).              DTSIR432