20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
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
|