00001 *****                                                             02/26/08
00002 *                                                                 DTSIX100
00003 *    DTSIX100    REFERENCE EXTRACT RECORD                            LV001
00004 *                                                                 DTSIX100
00005 *    EXCHANGES GLOBAL CONSTANTS BETWEEN MAINFRAME AND             DTSIX100
00006 *    SQL SERVER DATABASE.                                         DTSIX100
00007 *                                                                 DTSIX100
00008 *                                                                 DTSIX100
00009 *****                                                             DTSIX100
00010                                                                   DTSIX100
00011          15  X100-REC-TYPE              PIC  X(03) VALUE '100'.   DTSIX100
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX100
00013          15  X100-RATE-YEAR             PIC  9(04).               DTSIX100
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX100
00015          15  X100-NEW-EMP-RATE          PIC  9.9999.              DTSIX100
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX100
00017          15  X100-TAX-WAGE-BASE         PIC  9(05).99.            DTSIX100
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX100
00019          15  X100-TAX-TABLE             PIC  X(05).               DTSIX100