00001 *****                                                             10/28/98
00002 *                                                                 DTSIR903
00003 *   DTSIR903   REQUEST FOR FEDERAL ID (UI-15) REPORT RECORDS.        LV003
00004 *                                                                 DTSIR903
00005 *                                                                    CL**2
00006 *              10/28/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIR903
00009                                                                      CL**2
00010          10  R903-LENGTH         PIC S9(04)  COMP.                   CL**2
00011                                                                      CL**2
00012          10  R903-SORT-AREA.                                      DTSIR903
00013              15  R903-REC-TYPE           PIC  X(03)  VALUE '903'. DTSIR903
00014              15  R903-OP-ID              PIC  X(08).              DTSIR903
00015              15  R903-EMP-NO             PIC S9(07)  COMP-3.      DTSIR903
00016                                                                      CL**2
00017          10  R903-DATA-AREA.                                      DTSIR903
00018              15  R903-MAIL-DATE          PIC S9(09)  COMP-3.         CL**3
00019              15  R903-FMT-ADDR.                                   DTSIR903
00020                  20  R903-FMT-LINE OCCURS 5 TIMES                 DTSIR903
00021                                    INDEXED BY R903-FMT-IDX        DTSIR903
00022                                          PIC  X(40).              DTSIR903
00023              15  R903-ZIP                PIC  X(10).              DTSIR903
00024              15  R903-ADVANCED-BARCODE   PIC  X(14).                 CL**2