00001 ***** 11/28/18 00002 * DTSUX110 00003 * DTSUX110 COPY OF EMPLOYER ADDRESS EXTRACT RECORD (X110) LV006 00004 * DTSUX110 00005 * THIS COPYBOOK IS USED TO UPDATE THE EMPLOYER ADDRESS INFO CL**4 00006 * ON THE MAILING AND BUSINESS OPO ADDRESS NOT UPDATED CL**5 00007 * DTSUX110 00008 * ADDED FILLER AT END FOR REC LEN 512 09/23/14 ZL1 CL**4 00009 ***** DTSUX110 00010 DTSUX110 00011 15 X110-REC-TYPE PIC X(03) VALUE '110'. DTSUX110 00012 15 FILLER PIC X(01) VALUE ','. DTSUX110 00013 15 X110-EMP-NO PIC 9(06). DTSUX110 00014 15 FILLER PIC X(01) VALUE ','. DTSUX110 00015 15 X110-ADDR-TYPE PIC X(02). DTSUX110 00016 88 X110-ADDR-TYPE-MAIL-88 VALUE '01'. DTSUX110 00017 88 X110-ADDR-TYPE-RECS-88 VALUE '02'. DTSUX110 00018 88 X110-ADDR-TYPE-WORK-88 VALUE '03'. DTSUX110 00019 15 FILLER PIC X(01) VALUE ','. DTSUX110 00020 15 X110-ATTENTION PIC X(40). DTSUX110 00021 15 FILLER PIC X(01) VALUE ','. DTSUX110 00022 15 X110-STREET-1 PIC X(40). DTSUX110 00023 15 FILLER PIC X(01) VALUE ','. DTSUX110 00024 15 X110-STREET-2 PIC X(40). DTSUX110 00025 15 FILLER PIC X(01) VALUE ','. DTSUX110 00026 15 X110-CITY PIC X(25). DTSUX110 00027 15 FILLER PIC X(01) VALUE ','. DTSUX110 00028 15 X110-STATE PIC X(02). DTSUX110 00029 15 FILLER PIC X(01) VALUE ','. DTSUX110 00030 15 X110-ZIP PIC X(10). DTSUX110 00031 15 FILLER PIC X(01) VALUE ','. DTSUX110 00032 15 X110-PHONE PIC X(15). DTSUX110 00033 15 FILLER PIC X(01) VALUE ','. DTSUX110 00034 15 X110-FAX PIC X(15). DTSUX110 00035 15 FILLER PIC X(01) VALUE ','. DTSUX110 00036 15 X110-EMAIL PIC X(40). DTSUX110 00037 15 FILLER PIC X(01) VALUE ','. DTSUX110 00038 15 X110-WEB-SITE PIC X(40). DTSUX110 00039 15 FILLER PIC X(01) VALUE ','. DTSUX110 00040 15 X110-EMP-NAME PIC X(40). DTSUX110 00041 15 FILLER PIC X(01) VALUE ','. CL**6 00042 15 X110-QAS-FLAG PIC X(01). CL**6 00043 15 FILLER PIC X(179). CL**6