00001 ***** 03/25/15 00002 * DTSWX120 00003 * DTSWX120 EMPLOYER OWNER/PARNTER-OFFICER EXTRACT RECORD. LV005 00004 * DTSWX120 00005 * EXCHANGES OWNER/PARTNER/OFFICER DATA BETWEEN MAINFRAME AND DTSWX120 00006 * SQL SERVER DATABASE. DTSWX120 00007 * DTSWX120 00008 * 11-10-14 ESSP IS PASSING COMMAS IN ADDRESS FIELDS, OUR CL**2 00009 * DELIMITER IN BX205 IS A COMMA FIELDS ARE BEING CL**2 00010 * CUTOFF, TO FIX PROBLEM DO NOT CALL BX205 FOR CL**2 00011 * ADDRESSES. MODIFIED W120 RECORD TO PASS ONLY CL**4 00012 * SIZE NEEDED FROM ESSP TO X120 ZL1 CL**4 00013 ***** DTSWX120 00014 DTSWX120 00015 15 W120-REC-TYPE PIC X(03) VALUE '120'. CL**4 00016 15 FILLER PIC X(01) VALUE ','. DTSWX120 00017 15 W120-EMP-NO PIC 9(06). CL**4 00018 15 FILLER PIC X(01) VALUE ','. DTSWX120 00019 15 W120-TYPE-IND PIC X(02). CL**4 00020 88 W120-TYPE-OPO-88 VALUE '00'. CL**4 00021 88 W120-TYPE-RPT-BSNS-88 VALUE '03'. CL**4 00022 88 W120-TYPE-RPT-TECH-88 VALUE '04'. CL**4 00023 88 W120-TYPE-FR500-88 VALUE '05'. CL**4 00024 88 W120-TYPE-CHARGE-88 VALUE '06'. CL**4 00025 88 W120-TYPE-BENEFITS-88 VALUE '07'. CL**4 00026 88 W120-TYPE-STATUS-88 VALUE '08'. CL**4 00027 15 FILLER PIC X(01) VALUE ','. DTSWX120 00028 15 W120-OPO-ESSP-FNAME. CL**4 00029 25 W120-OPO-FIRST-NAME PIC X(20). CL**4 00030 25 W120-OPO-FIRST-FILLER PIC X(20). CL**4 00031 15 FILLER PIC X(01) VALUE ','. DTSWX120 00032 15 W120-OPO-MID-INIT PIC X(01). CL**4 00033 15 FILLER PIC X(01) VALUE ','. DTSWX120 00034 15 W120-OPO-ESSP-LNAME. CL**4 00035 25 W120-OPO-LAST-NAME PIC X(20). CL**4 00036 25 W120-OPO-LAST-FILLER PIC X(20). CL**4 00037 15 FILLER PIC X(01) VALUE ','. DTSWX120 00038 15 W120-OPO-MEMBER-NAME PIC X(40). CL**4 00039 15 FILLER PIC X(01) VALUE ','. DTSWX120 00040 15 W120-OPO-SSN PIC X(09). CL**4 00041 15 FILLER PIC X(01) VALUE ','. DTSWX120 00042 15 W120-OPO-TITLE PIC X(40). CL**4 00043 15 FILLER PIC X(01) VALUE ','. DTSWX120 00044 15 W120-OPO-ATTENTION PIC X(40). CL**4 00045 15 FILLER PIC X(01) VALUE ','. DTSWX120 00046 15 W120-OPO-STREET-1 PIC X(40). CL**4 00047 15 FILLER PIC X(01) VALUE ','. DTSWX120 00048 15 W120-OPO-STREET-2 PIC X(40). CL**4 00049 15 FILLER PIC X(01) VALUE ','. DTSWX120 00050 15 W120-OPO-ESSP-CITY. CL**4 00051 25 W120-OPO-CITY PIC X(20). CL**4 00052 25 W120-OPO-CITY-FILLER PIC X(05). CL**4 00053 15 FILLER PIC X(01) VALUE ','. DTSWX120 00054 15 W120-OPO-STATE PIC X(02). CL**4 00055 15 FILLER PIC X(01) VALUE ','. DTSWX120 00056 15 W120-OPO-ZIP PIC X(10). CL**4 00057 15 FILLER PIC X(01) VALUE ','. DTSWX120 00058 15 W120-OPO-PHONE PIC X(15). CL**4 00059 15 FILLER PIC X(01) VALUE ','. DTSWX120 00060 15 W120-OPO-FAX PIC X(16). CL**5 00061 15 FILLER PIC X(01) VALUE ','. DTSWX120 00062 15 W120-OPO-EMAIL PIC X(40). CL**4