00001 *****                                                             11/06/23
00002 *                                                                 DTSIX479
00003 *    DTSIX477  EMPLOYER DATA EXTRACT FOR BENEFITS (UIBS)             LV002
00004 *                                                                 DTSIX479
00005 *                                                                 DTSIX479
00006 *              11/06/2023  INITIAL DEVELOPMENT.      ZL1             CL**2
00007 *                                                                 DTSIX479
00008 *****                                                             DTSIX479
00009                                                                   DTSIX479
00010          10  X476-KEY-AREA.                                       DTSIX479
00011              15  X476-EMP-NO             PIC  9(06).                 CL**2
00012                                                                   DTSIX479
00013          10  X476-DATA-AREA.                                      DTSIX479
00014              15  X476-TRADE-NAME         PIC X(40) VALUE SPACES.  DTSIX479
00015              15  X476-ENTITY-NAME        PIC X(40) VALUE SPACES.  DTSIX479
00016              15  X476-ADDRESS.                                    DTSIX479
00017                  20  X476-ATTN           PIC  X(40).              DTSIX479
00018                  20  X476-DELV1          PIC  X(40).              DTSIX479
00019                  20  X476-DELV2          PIC  X(40).              DTSIX479
00020                  20  X476-CITY           PIC  X(25).              DTSIX479
00021                  20  X476-STATE          PIC  X(02).              DTSIX479
00022                  20  X476-ZIP            PIC  X(10).              DTSIX479
00023              15  X476-FEIN               PIC  9(09).                 CL**2
00024              15  X476-REIMB-IND          PIC  X(01).              DTSIX479
00025                  88  X476-REIMB-YES-88       VALUE '1'.           DTSIX479
00026                  88  X476-REIMB-NO-88        VALUE '2'.           DTSIX479
00027              15  X476-EMP-STATUS-CODE    PIC X(01) VALUE SPACES.  DTSIX479
00028                  88  X476-STATUS-ACT-88      VALUE 'A'.           DTSIX479
00029                  88  X476-STATUS-INACT-88    VALUE 'I'.           DTSIX479
00030                  88  X476-STATUS-NEVERSUB-88 VALUE 'N'.           DTSIX479
00031                  88  X476-STATUS-UNK-88      VALUE 'U'.           DTSIX479
00032              15  X476-EMP-TYPE           PIC 9(02).               DTSIX479
00033              15  X476-SIC-CODE           PIC X(04).               DTSIX479
00034              15  X476-NAICS-CODE         PIC X(06).               DTSIX479
00035              15  X476-OWN-CODE           PIC X(02).               DTSIX479
00036              15  X476-PHONE              PIC 9(10).                  CL**2
00037              15  X476-FAX                PIC 9(10).                  CL**2
00038              15  X476-EMAIL              PIC X(40).               DTSIX479