25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 03/14/01
|
|
00002 * DTSIR909
|
|
00003 * DTSIR909 LETTER TO EMPLOYERS LV002
|
|
00004 * DTSIR909
|
|
00005 * 11/07/2000 CREATED FOR DC. ZL1 DTSIR909
|
|
00006 * DTSIR909
|
|
00007 ***** DTSIR909
|
|
00008 DTSIR909
|
|
00009 10 R909-LENGTH PIC S9(04) COMP. DTSIR909
|
|
00010 DTSIR909
|
|
00011 10 R909-SORT-AREA. DTSIR909
|
|
00012 15 R909-REC-TYPE PIC X(03) VALUE '909'. CL**2
|
|
00013 15 R909-OP-ID PIC X(08). DTSIR909
|
|
00014 15 R909-EMP-NO PIC S9(07) COMP-3. DTSIR909
|
|
00015 DTSIR909
|
|
00016 10 R909-DATA-AREA. DTSIR909
|
|
00017 15 R909-FIELD-REP-ID PIC X(02). DTSIR909
|
|
00018 15 R909-FEIN PIC X(09). DTSIR909
|
|
00019 15 R909-FMT-ADDR. DTSIR909
|
|
00020 20 R909-FMT-LINE OCCURS 5 TIMES DTSIR909
|
|
00021 INDEXED BY R909-FMT-IDX DTSIR909
|
|
00022 PIC X(40). DTSIR909
|
|
00023 15 R909-ZIP PIC X(10). DTSIR909
|
|
00024 15 R909-ADVANCED-BARCODE PIC X(14). DTSIR909
|