00001 ***** 03/13/25 00002 * DTSIX47Z 00003 * DTSIX477 EMPLOYER DATA EXTRACT FOR BENEFITS (UIBS) LV004 00004 * DTSIX47Z 00005 * DTSIX47Z 00006 * 11/06/2023 INITIAL DEVELOPMENT. ZL1 DTSIX47Z 00007 * DTSIX47Z 00008 ***** DTSIX47Z 00009 DTSIX47Z 00010 10 X476-KEY-AREA. DTSIX47Z 00011 15 X476-EMP-NO PIC 9(06). DTSIX47Z 00012 10 FILLER PIC X VALUE '|'. CL**2 00013 10 X476-DATA-AREA. DTSIX47Z 00014 15 X476-TRADE-NAME PIC X(40) VALUE SPACES. DTSIX47Z 00015 15 FILLER PIC X VALUE '|'. CL**2 00016 15 X476-ENTITY-NAME PIC X(40) VALUE SPACES. DTSIX47Z 00017 15 FILLER PIC X VALUE '|'. CL**2 00018 15 X476-ADDRESS. DTSIX47Z 00019 20 X476-ATTN PIC X(40). DTSIX47Z 00020 20 FILLER1 PIC X VALUE '|'. CL**4 00021 20 X476-DELV1 PIC X(40). DTSIX47Z 00022 20 FILLER2 PIC X VALUE '|'. CL**4 00023 20 X476-DELV2 PIC X(40). DTSIX47Z 00024 20 FILLER3 PIC X VALUE '|'. CL**4 00025 20 X476-CITY PIC X(25). DTSIX47Z 00026 20 FILLER4 PIC X VALUE '|'. CL**4 00027 20 X476-STATE PIC X(02). DTSIX47Z 00028 20 FILLER5 PIC X VALUE '|'. CL**4 00029 20 X476-ZIP PIC X(10). DTSIX47Z 00030 15 FILLER PIC X VALUE '|'. CL**4 00031 15 X476-FEIN PIC 9(09). DTSIX47Z 00032 15 FILLER PIC X VALUE '|'. CL**3 00033 15 X476-REIMB-IND PIC X(01). DTSIX47Z 00034 88 X476-REIMB-YES-88 VALUE '1'. DTSIX47Z 00035 88 X476-REIMB-NO-88 VALUE '2'. DTSIX47Z 00036 15 FILLER PIC X VALUE '|'. CL**2 00037 15 X476-EMP-STATUS-CODE PIC X(01) VALUE SPACES. DTSIX47Z 00038 88 X476-STATUS-ACT-88 VALUE 'A'. DTSIX47Z 00039 88 X476-STATUS-INACT-88 VALUE 'I'. DTSIX47Z 00040 88 X476-STATUS-NEVERSUB-88 VALUE 'N'. DTSIX47Z 00041 88 X476-STATUS-UNK-88 VALUE 'U'. DTSIX47Z 00042 15 FILLER PIC X VALUE '|'. CL**2 00043 15 X476-EMP-TYPE PIC 9(02). DTSIX47Z 00044 15 FILLER PIC X VALUE '|'. CL**2 00045 15 X476-SIC-CODE PIC X(04). DTSIX47Z 00046 15 FILLER PIC X VALUE '|'. CL**2 00047 15 X476-NAICS-CODE PIC X(06). DTSIX47Z 00048 15 FILLER PIC X VALUE '|'. CL**2 00049 15 X476-OWN-CODE PIC X(02). DTSIX47Z 00050 15 FILLER PIC X VALUE '|'. CL**2 00051 15 X476-PHONE PIC 9(10). DTSIX47Z 00052 15 FILLER PIC X VALUE '|'. CL**2 00053 15 X476-FAX PIC 9(10). DTSIX47Z 00054 15 FILLER PIC X VALUE '|'. CL**2 00055 15 X476-EMAIL PIC X(40). DTSIX47Z