00001 *****                                                             09/27/99
00002 *                                                                 DTSIR763
00003 *   DTSIR763   JOB SERVICE NEW EMPLOYER LIST                         LV008
00004 *              REPORT RECORD.                                     DTSIR763
00005 *                                                                 DTSIR763
00006 *****                                                             DTSIR763
00007                                                                   DTSIR763
00008          10  R763-LENGTH                 PIC S9(04)  COMP.        DTSIR763
00009                                                                   DTSIR763
00010          10  R763-SORT-AREA.                                      DTSIR763
00011              15  R763-REC-TYPE           PIC  X(03)  VALUE '763'. DTSIR763
00012              15  R763-INDUSTRY-CODE.                                 CL**2
00013                  20  R763-NAICS-CD.                                  CL**4
00014                      25  R763-SIC-00     PIC  X(02).                 CL**2
00015                      25  R763-SIC-CD     PIC  X(04).                 CL**2
00016              15  R763-PRIMARY-NAME       PIC  X(40).                 CL**2
00017                                                                   DTSIR763
00018          10  R763-DATA-AREA.                                      DTSIR763
00019              15  R763-EMP-NO             PIC S9(07)  COMP-3.      DTSIR763
00020                                                                   DTSIR763
00021              15  R763-EMP-STATUS         PIC  X(01).                 CL**2
00022                  88  R763-NEW-EMPLOYER               VALUE 'N'.      CL**2
00023                  88  R763-REACTIVATED-EMPLOYER       VALUE 'R'.      CL**2
00024                                                                   DTSIR763
00025              15  R763-ADDRESS.                                       CL**2
00026                  20  R763-ATTN-LINE      PIC  X(40).                 CL**2
00027                  20  R763-DELIV-LINE-1   PIC  X(40).                 CL**2
00028                  20  R763-DELIV-LINE-2   PIC  X(40).                 CL**2
00029                  20  R763-CITY           PIC  X(25).                 CL**2
00030                  20  R763-ST             PIC  X(02).                 CL**2
00031                  20  R763-ZIP            PIC  X(10).                 CL**2
00032                                                                      CL**2
00033              15  R763-VOICE.                                         CL**2
00034                  20  R763-VOICE-AREA-CD  PIC  X(03).              DTSIR763
00035                  20  R763-VOICE-PREFIX   PIC  X(03).              DTSIR763
00036                  20  R763-VOICE-SUFFIX   PIC  X(04).              DTSIR763
00037                  20  R763-VOICE-EXT      PIC  X(04).              DTSIR763
00038                                                                      CL**8
00039              15  R763-SELECTION-DTS.                                 CL**8
00040                  20  R763-START-DT       PIC S9(09)   COMP-3.        CL**8
00041                  20  R763-END-DT         PIC S9(09)   COMP-3.        CL**8