00001 *****                                                             03/21/03
00002 *                                                                 DTSIR751
00003 *    DTSIR751    WEEKLY EARNINGS REQUEST                             LV007
00004 *                REPORT RECORD.                                   DTSIR751
00005 *                                                                 DTSIR751
00006 *    11/08/2002  INITIAL DEVELOPMENT                        GD    DTSIR751
00007 *                                                                 DTSIR751
00008 *                                                                 DTSIR751
00009 *****                                                             DTSIR751
00010      SKIP1                                                        DTSIR751
00011          10  R751-LENGTH         PIC S9(04)  COMP.                DTSIR751
00012      SKIP1                                                        DTSIR751
00013          10  R751-SORT-AREA.                                      DTSIR751
00014              15  R751-REC-TYPE           PIC  X(03) VALUE '751'.  DTSIR751
00015              15  R751-OP-NAME            PIC  X(32).              DTSIR751
00016              15  R751-EMP-NO             PIC S9(07)       COMP-3. DTSIR751
00017              15  R751-SSN                PIC  X(09).              DTSIR751
00018              15  R751-YRQ                PIC S9(05)       COMP-3. DTSIR751
00019      SKIP1                                                        DTSIR751
00020 *        10  R751-SELF-MAILER            PIC X(01) VALUE 'N'.     DTSIR751
00021 *            88  R751-NOT-MAILER-88          VALUE 'N'.           DTSIR751
00022 *            88  R751-MAILER-88              VALUE 'Y'.           DTSIR751
00023          10  R751-DATA-AREA.                                      DTSIR751
00024              15  R751-CLAIMANT-NAME      PIC  X(32).              DTSIR751
00025              15  R751-EMP-PRIMARY-NAME   PIC  X(40).              DTSIR751
00026              15  R751-EMP-ADDR.                                   DTSIR751
00027                  20  R751-ATTN-LINE      PIC  X(40).              DTSIR751
00028                  20  R751-DELIV-LINE-1   PIC  X(40).              DTSIR751
00029                  20  R751-DELIV-LINE-2   PIC  X(40).              DTSIR751
00030                  20  R751-CITY           PIC  X(25).              DTSIR751
00031                  20  R751-ST             PIC  X(02).              DTSIR751
00032                  20  R751-ZIP            PIC  X(10).              DTSIR751
00033              15  R751-MAIL-DATE          PIC  S9(09) COMP-3.      DTSIR751