00001 *****                                                             03/03/99
00002 *   03/02/99   MODIFIED FOR DC - D.SHEPPERSON                     DTSIR762
00003 *                                                                    LV002
00004 *   DTSIR762   JOB SERVICE LOCAL OFFICE EMPLOYER EXTRACT             CL**2
00005 *              REPORT RECORD.                                     DTSIR762
00006 *                                                                 DTSIR762
00007 *****                                                             DTSIR762
00008                                                                   DTSIR762
00009          10  R762-LENGTH                 PIC S9(04)  COMP.        DTSIR762
00010                                                                   DTSIR762
00011          10  R762-SORT-AREA.                                      DTSIR762
00012              15  R762-REC-TYPE           PIC  X(03)  VALUE '762'. DTSIR762
00013              15  R762-ZIP                PIC  X(10).              DTSIR762
00014              15  R762-PRIMARY-NAME       PIC  X(40).                 CL**2
00015                                                                   DTSIR762
00016          10  R762-DATA-AREA.                                      DTSIR762
00017              15  R762-CITY               PIC  X(25).              DTSIR762
00018                                                                   DTSIR762
00019              15  R762-ST                 PIC  X(02).              DTSIR762
00020                                                                   DTSIR762
00021              15  R762-FMT-ADDR.                                   DTSIR762
00022                  20  R762-FMT-LINE OCCURS 5 TIMES                 DTSIR762
00023                                    INDEXED BY R762-FMT-IDX        DTSIR762
00024                                          PIC  X(40).              DTSIR762