23 lines
1.7 KiB
COBOL
23 lines
1.7 KiB
COBOL
00001 ***** 02/25/99
|
|
00002 * MODIFIED FOR DC 02/25/99 - D. SHEPPERSON. DTSIR712
|
|
00003 * LV004
|
|
00004 * DTSIR712 REQUEST FOR FEDERAL ID LETTER REPORT RECORD. CL**2
|
|
00005 * DTSIR712
|
|
00006 ***** DTSIR712
|
|
00007 SKIP1 DTSIR712
|
|
00008 10 R712-LENGTH PIC S9(04) COMP. CL**2
|
|
00009 SKIP1 DTSIR712
|
|
00010 10 R712-SORT-AREA. DTSIR712
|
|
00011 15 R712-REC-TYPE PIC X(03) VALUE '712'. DTSIR712
|
|
00012 15 R712-EMP-NO PIC S9(07) COMP-3. DTSIR712
|
|
00013 SKIP1 DTSIR712
|
|
00014 10 R712-DATA-AREA. DTSIR712
|
|
00015 15 R712-MAIL-DATE PIC S9(09) COMP-3. DTSIR712
|
|
00016 15 R712-FMT-ADDR. DTSIR712
|
|
00017 20 R712-FMT-LINE OCCURS 5 TIMES DTSIR712
|
|
00018 INDEXED BY R712-FMT-IDX DTSIR712
|
|
00019 PIC X(40). DTSIR712
|
|
00020 15 R712-ZIP PIC X(10). DTSIR712
|
|
00021 15 R712-ADVANCED-BARCODE PIC X(14). CL**4
|
|
00022 15 R712-OP-ID PIC X(08). DTSIR712
|