00001 ***** 07/23/07 00002 * DTSIX130 00003 * DTSIX130 EMPLOYER RELATIONSHIP EXTRACT RECORD. LV001 00004 * DTSIX130 00005 * EXCHANGES RELATIONSHIP DATA BETWEEN MAINFRAME AND DTSIX130 00006 * SQL SERVER DATABASE. DTSIX130 00007 * DTSIX130 00008 * DTSIX130 00009 ***** DTSIX130 00010 DTSIX130 00011 15 X130-REC-TYPE PIC X(03) VALUE '130'. DTSIX130 00012 15 FILLER PIC X(01) VALUE ','. DTSIX130 00013 15 X130-EMP-NO PIC 9(06). DTSIX130 00014 15 FILLER PIC X(01) VALUE ','. DTSIX130 00015 15 X130-SOURCE PIC X(01). DTSIX130 00016 88 X130-SOURCE-WEB-88 VALUE 'W'. DTSIX130 00017 88 X130-SOURCE-MAINFRM-88 VALUE 'M'. DTSIX130 00018 15 FILLER PIC X(01) VALUE ','. DTSIX130 00019 15 X130-ENTITY-NAME PIC X(40). DTSIX130 00020 15 FILLER PIC X(01) VALUE ','. DTSIX130 00021 15 X130-EFF-DATE PIC X(10). DTSIX130 00022 15 FILLER PIC X(01) VALUE ','. DTSIX130 00023 15 X130-PRED-EMP-NO PIC 9(06). DTSIX130 00024 15 FILLER PIC X(01) VALUE ','. DTSIX130 00025 15 X130-PRED-FEIN PIC 9(09). DTSIX130 00026 15 FILLER PIC X(01) VALUE ','. DTSIX130 00027 15 X130-RELATIONSHIP-CD PIC X(02). DTSIX130 00028 88 X130-REL-ACQUIRED-88 VALUE '02'. DTSIX130 00029 88 X130-REL-MERGER-SPLIT-88 VALUE '03'. DTSIX130 00030 88 X130-REL-REORG-88 VALUE '04'. DTSIX130 00031 88 X130-REL-REG-TO-REIMB-88 VALUE '08'. DTSIX130 00032 88 X130-REL-REIMB-TO-REG-88 VALUE '09'. DTSIX130 00033 88 X130-REL-PEO-88 VALUE '10'. DTSIX130 00034 88 X130-REL-VALID-88 VALUE '02' '03' DTSIX130 00035 '04' '08' '09' '10'. DTSIX130 00036 15 FILLER PIC X(01) VALUE ','. DTSIX130 00037 15 X130-PORTION-EXP-TRNSF-X PIC X(06). DTSIX130 00038 15 X130-PORTION-EXP-TRNSF REDEFINES DTSIX130 00039 X130-PORTION-EXP-TRNSF-X PIC 999.99. DTSIX130 00040 15 FILLER PIC X(01) VALUE ','. DTSIX130 00041 15 X130-ATTENTION PIC X(40). DTSIX130 00042 15 FILLER PIC X(01) VALUE ','. DTSIX130 00043 15 X130-STREET-1 PIC X(40). DTSIX130 00044 15 FILLER PIC X(01) VALUE ','. DTSIX130 00045 15 X130-STREET-2 PIC X(40). DTSIX130 00046 15 FILLER PIC X(01) VALUE ','. DTSIX130 00047 15 X130-CITY PIC X(25). DTSIX130 00048 15 FILLER PIC X(01) VALUE ','. DTSIX130 00049 15 X130-STATE PIC X(02). DTSIX130 00050 15 FILLER PIC X(01) VALUE ','. DTSIX130 00051 15 X130-ZIP PIC X(10). DTSIX130 00052 15 FILLER PIC X(01) VALUE ','. DTSIX130 00053 15 X130-PHONE PIC X(15). DTSIX130 00054 15 FILLER PIC X(01) VALUE ','. DTSIX130 00055 15 X130-FAX PIC X(15). DTSIX130 00056 15 FILLER PIC X(01) VALUE ','. DTSIX130 00057 15 X130-EMAIL PIC X(40). DTSIX130