63 lines
4.9 KiB
COBOL
63 lines
4.9 KiB
COBOL
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
|