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