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