00001 *****                                                             02/01/04
00002 *                                                                 DTSIX771
00003 *    DTSIX771    DTSBE771 LINKAGE                                    LV001
00004 *                ETA581 POPULATION 1 - ACTIVE EMPLOYERS           DTSIX771
00005 *                                                                 DTSIX771
00006 *    DTSBE771 EXTRACTS RECONSTRUCTION FILE DATA FOR THE COUNT OF  DTSIX771
00007 *    ACTIVE EMPLOYERS FOR THE ETA581 REPORT. IT FORMATS THE DATA  DTSIX771
00008 *    FOR DOWNLOAD TO THE SQL SERVER DATABASE.                     DTSIX771
00009 *                                                                 DTSIX771
00010 *                                                                 DTSIX771
00011 *****                                                             DTSIX771
00012                                                                   DTSIX771
00013          15  X771-OBS-NBR               PIC  9(07).               DTSIX771
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00015          15  X771-EMP-NO                PIC  9(07).               DTSIX771
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00017          15  X771-EMP-STATUS            PIC  X(24).               DTSIX771
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00019          15  X771-EMP-TYPE              PIC  X(24).               DTSIX771
00020          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00021          15  X771-LIAB-DATE             PIC  X(10).               DTSIX771
00022          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00023          15  X771-REOPEN-PROCESS-DATE   PIC  X(10).               DTSIX771
00024          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00025          15  X771-INACTIVE-DATE         PIC  X(10).               DTSIX771
00026          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00027          15  X771-PROCESS-DATE          PIC  X(10).               DTSIX771
00028          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00029          15  X771-LIAB-QTR-CNT          PIC  9(02).               DTSIX771
00030          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00031          15  X771-QTR1-WAGES            PIC  ----------9.99.      DTSIX771
00032          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00033          15  X771-QTR2-WAGES            PIC  ----------9.99.      DTSIX771
00034          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00035          15  X771-QTR3-WAGES            PIC  ----------9.99.      DTSIX771
00036          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00037          15  X771-QTR4-WAGES            PIC  ----------9.99.      DTSIX771
00038          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00039          15  X771-QTR5-WAGES            PIC  ----------9.99.      DTSIX771
00040          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00041          15  X771-QTR6-WAGES            PIC  ----------9.99.      DTSIX771
00042          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00043          15  X771-QTR7-WAGES            PIC  ----------9.99.      DTSIX771
00044          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00045          15  X771-QTR8-WAGES            PIC  ----------9.99.      DTSIX771
00046          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX771
00047          15  X771-USER-FIELD            PIC  X(01).               DTSIX771