00001 *****                                                             04/07/09
00002 *                                                                 DTSIX106
00003 *    DTSIX106    EMPLOYER NAME EXTRACT RECORD                        LV003
00004 *                                                                 DTSIX106
00005 *    EXCHANGES EMPLOYER NAMES BETWEEN MAINFRAME AND               DTSIX106
00006 *    SQL SERVER DATABASE.                                         DTSIX106
00007 *                                                                 DTSIX106
00008 *    04/10/2009  ADDED NAME-TYPE-ALT         GD                   DTSIX106
00009 *                                                                 DTSIX106
00010 *****                                                             DTSIX106
00011                                                                   DTSIX106
00012          15  X106-REC-TYPE              PIC  X(03) VALUE '106'.   DTSIX106
00013          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX106
00014          15  X106-EMP-NO                PIC  9(06).               DTSIX106
00015          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX106
00016          15  X106-NAME-TYPE             PIC  X(01).               DTSIX106
00017              88  X106-NAME-TYPE-ENTITY-88  VALUE '0'.             DTSIX106
00018              88  X106-NAME-TYPE-TRADE-88   VALUE '1'.             DTSIX106
00019              88  X106-NAME-TYPE-ALT-88     VALUE '2'.             DTSIX106
00020          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX106
00021          15  X106-EMP-NAME              PIC  X(40).               DTSIX106