00001 ***** 08/29/23 00002 * DTSIX102 00003 * DTSIX102 EMPLOYER PROFILE RECORD LV003 00004 * DTSIX102 00005 ***** DTSIX102 00006 DTSIX102 00007 15 X102-REC-TYPE PIC X(03) VALUE '102'. DTSIX102 00008 15 FILLER PIC X(01) VALUE ','. DTSIX102 00009 15 X102-EMP-NO PIC 9(06). DTSIX102 00010 15 FILLER PIC X(01) VALUE ','. DTSIX102 00011 15 X102-EMP-FEIN PIC 9(09). DTSIX102 00012 15 FILLER PIC X(01) VALUE ','. DTSIX102 00013 15 X102-EMP-CLASS PIC X(01). DTSIX102 00014 88 X102-CLASS-RATED-88 VALUE 'R'. DTSIX102 00015 88 X102-CLASS-SELF-INS-88 VALUE 'S'. DTSIX102 00016 88 X102-CLASS-CD-VALID-88 VALUE 'R' 'S'. CL**2 00017 15 FILLER PIC X(01) VALUE ','. DTSIX102 00018 15 X102-EMP-STATUS PIC X(01). DTSIX102 00019 88 X102-STATUS-ACTIVE-88 VALUE 'A'. DTSIX102 00020 88 X102-STATUS-INACTIVE-88 VALUE 'I'. DTSIX102 00021 88 X102-STATUS-NOT-SUB-88 VALUE 'N'. DTSIX102 00022 88 X102-STATUS-UNKNOWN-88 VALUE 'U'. DTSIX102 00023 88 X102-STATUS-CD-VALID-88 VALUE 'A' 'I' CL**2 00024 'N' 'U'. CL**2 00025 15 FILLER PIC X(01) VALUE ','. DTSIX102 00026 15 X102-SOURCE-CD PIC X(02). DTSIX102 00027 88 X102-CONTRACT-CMPL-88 VALUE '00'. DTSIX102 00028 88 X102-PHONE-CALL-88 VALUE '01'. DTSIX102 00029 88 X102-WRITTEN-REQUEST-88 VALUE '02'. DTSIX102 00030 88 X102-VOLUNTARY-88 VALUE '03'. DTSIX102 00031 88 X102-UC30-OF-PRED-88 VALUE '04'. DTSIX102 00032 88 X102-BENEFITS-88 VALUE '05'. DTSIX102 00033 88 X102-940-CERTIFICATION-88 VALUE '06'. DTSIX102 00034 88 X102-UNION-HALL-88 VALUE '07'. DTSIX102 00035 88 X102-FIELD-REP-88 VALUE '08'. DTSIX102 00036 88 X102-FOLLOW-UP-88 VALUE '09'. DTSIX102 00037 88 X102-OTR-88 VALUE '10'. DTSIX102 00038 88 X102-WORKERS-COMP-88 VALUE '11'. DTSIX102 00039 88 X102-LIQUOR-LIC-88 VALUE '12'. DTSIX102 00040 88 X102-FEIN-LIST-88 VALUE '13'. DTSIX102 00041 88 X102-UC30-STAFF-88 VALUE '14'. DTSIX102 00042 88 X102-UC30-SYS-88 VALUE '15'. DTSIX102 00043 88 X102-UC30-88 VALUE '14', '15'. DTSIX102 00044 88 X102-FISCAL-AGENT-88 VALUE '16'. DTSIX102 00045 88 X102-WEB-REG-88 VALUE '17'. DTSIX102 00046 88 X102-WEB-REG-PRED-88 VALUE '18'. DTSIX102 00047 88 X102-WEB-REG-SUCC-88 VALUE '19'. DTSIX102 00048 88 X102-WEB-88 VALUE DTSIX102 00049 '17' THRU '19'. DTSIX102 00050 88 X102-SOURCE-CD-VALID-88 VALUE DTSIX102 00051 '00' THRU '19'. DTSIX102 00052 15 FILLER PIC X(01) VALUE ','. DTSIX102 00053 15 X102-ACTION-CD PIC X(01). DTSIX102 00054 88 X102-ACTION-INSERT-88 VALUE 'I'. DTSIX102 00055 88 X102-ACTION-UPDATE-88 VALUE 'U'. DTSIX102 00056 88 X102-ACTION-DELETE-88 VALUE 'D'. DTSIX102 00057 88 X102-ACTION-CD-VALID-88 VALUE 'I' 'U' 'D'. CL**2