00001 *****                                                             07/12/99
00002 *   DTSIR792   EMPLOYER WIH MISSING INDUSTRY CODE                 DTSIR792
00003 *              REPORT RECORD.                                        LV008
00004 *                                                                 DTSIR792
00005 *****                                                             DTSIR792
00006                                                                   DTSIR792
00007          10  R792-LENGTH                 PIC S9(04)  COMP.           CL**3
00008                                                                   DTSIR792
00009          10  R792-SORT-AREA.                                         CL**3
00010              15  R792-REC-TYPE           PIC  X(03)  VALUE '792'.    CL**3
00011              15  R792-PRIMARY-NAME       PIC  X(40).                 CL**3
00012                                                                   DTSIR792
00013          10  R792-DATA-AREA.                                         CL**3
00014              15  R792-EMP-NO             PIC S9(07)  COMP-3.         CL**3
00015              15  R792-PHONE-NUMBER.                                  CL**8
00016                  20  R792-VOICE-1.                                   CL**8
00017                      25  R792-VOICE-1-AREA-CD PIC X(03).             CL**8
00018                      25  R792-VOICE-1-PREFIX PIC  X(03).             CL**8
00019                      25  R792-VOICE-1-SUFFIX PIC  X(04).             CL**8
00020                      25  R792-VOICE-1-EXT    PIC  X(05).             CL**8
00021              15  R792-ATTN-LINE          PIC  X(40).                 CL**4
00022 *            15  R792-FMT-ADDR.                                      CL**7
00023 *                20  R792-FMT-LINE OCCURS 5 TIMES                    CL**7
00024 *                                  INDEXED BY R792-FMT-IDX           CL**7
00025 *                                        PIC  X(40).                 CL**7