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