24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 04/13/00
|
|
00002 * DTSIR608
|
|
00003 * DTSIR608 AUDIT SURVEY CARDS REPORT RECORDS. LV003
|
|
00004 * DTSIR608
|
|
00005 * 10/16/1999 MODIFIED FOR DC. EHH CL**2
|
|
00006 * CL**2
|
|
00007 ***** DTSIR608
|
|
00008 CL**2
|
|
00009 10 R608-LENGTH PIC S9(04) COMP. CL**2
|
|
00010 CL**2
|
|
00011 10 R608-SORT-AREA. DTSIR608
|
|
00012 15 R608-REC-TYPE PIC X(03) VALUE '608'. DTSIR608
|
|
00013 15 R608-OP-ID PIC X(08). DTSIR608
|
|
00014 15 R608-EMP-NO PIC S9(07) COMP-3. DTSIR608
|
|
00015 CL**2
|
|
00016 10 R608-DATA-AREA. DTSIR608
|
|
00017 15 R608-FIELD-REP-ID PIC X(02). DTSIR608
|
|
00018 15 R608-FMT-ADDR. DTSIR608
|
|
00019 20 R608-FMT-LINE OCCURS 5 TIMES DTSIR608
|
|
00020 INDEXED BY R608-FMT-IDX DTSIR608
|
|
00021 PIC X(40). DTSIR608
|
|
00022 15 R608-ZIP PIC X(10). DTSIR608
|
|
00023 15 R608-ADVANCED-BARCODE PIC X(14). CL**2
|