00001 *****                                                             01/06/20
00002 *                                                                 DTSIX108
00003 *    DTSIX108    EMPLOYER RATE EXTRACT RECORD                        LV003
00004 *                                                                 DTSIX108
00005 *    EXCHANGES EMPLOYER RATES BETWEEN MAINFRAME AND               DTSIX108
00006 *    SQL SERVER DATABASE.                                         DTSIX108
00007 *                                                                 DTSIX108
00008 *                                                                 DTSIX108
00009 *****                                                             DTSIX108
00010                                                                   DTSIX108
00011          15  X108-REC-TYPE              PIC  X(03) VALUE '108'.   DTSIX108
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX108
00013          15  X108-EMP-NO                PIC  9(06).               DTSIX108
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX108
00015          15  X108-RATE-YEAR.                                         CL**2
00016              25  X108-RATE-YR           PIC  9(04).                  CL**3
00017              25  X108-RATE-SLASH        PIC  X(02) VALUE '/1'.       CL**2
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX108
00019          15  X108-RATE-X                PIC  X(06).               DTSIX108
00020          15  X108-RATE REDEFINES X108-RATE-X                      DTSIX108
00021                                         PIC  9.9999.              DTSIX108