00001 *****                                                             10/02/09
00002 *                                                                 DTSIE110
00003 *    DTSIX110    EMPLOYER ADDRESS EXTRACT RECORD                     LV003
00004 *                                                                 DTSIE110
00005 *    EXCHANGES EMPLOYER ADDRESS INFORMATION BETWEEN MAINFRAME AND DTSIE110
00006 *    SQL SERVER DATABASE.                                         DTSIE110
00007 *                                                                 DTSIE110
00008 *                                                                 DTSIE110
00009 *****                                                             DTSIE110
00010                                                                   DTSIE110
00011          15  X110-REC-TYPE              PIC  X(03) VALUE '110'.   DTSIE110
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00013          15  X110-EMP-NO                PIC  9(06).               DTSIE110
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00015          15  X110-ADDR-TYPE             PIC  X(02).               DTSIE110
00016              88  X110-ADDR-TYPE-MAIL-88  VALUE '01'.              DTSIE110
00017              88  X110-ADDR-TYPE-RECS-88  VALUE '02'.              DTSIE110
00018              88  X110-ADDR-TYPE-WORK-88  VALUE '03'.              DTSIE110
00019          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00020          15  X110-ATTENTION             PIC  X(40).               DTSIE110
00021          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00022          15  X110-STREET-1              PIC  X(40).               DTSIE110
00023          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00024          15  X110-STREET-2              PIC  X(40).               DTSIE110
00025          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00026          15  X110-CITY                  PIC  X(25).               DTSIE110
00027          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00028          15  X110-STATE                 PIC  X(02).               DTSIE110
00029          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00030          15  X110-ZIP                   PIC  X(10).               DTSIE110
00031          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00032          15  X110-PHONE                 PIC  X(15).               DTSIE110
00033          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00034          15  X110-FAX                   PIC  X(15).               DTSIE110
00035          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00036          15  X110-EMAIL                 PIC  X(40).               DTSIE110
00037          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00038          15  X110-WEB-SITE              PIC  X(40).               DTSIE110
00039          15  FILLER                     PIC  X(01) VALUE ','.     DTSIE110
00040          15  X110-EMP-NAME              PIC  X(40).               DTSIE110