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