00001 *****                                                             02/01/04
00002 *                                                                 DTSIY771
00003 *    DTSIY771    ETA581 POPULATION 1 - ACTIVE EMPLOYERS              LV001
00004 *                                                                 DTSIY771
00005 *    DTSBE770 EXTRACTS RECONSTRUCTION FILE DATA FOR THE COUNT OF  DTSIY771
00006 *    ACTIVE EMPLOYERS FOR THE ETA581 REPORT. THE RECORDS ARE      DTSIY771
00007 *    SORTED AND PASSED TO DTSBD771 WHICH BUILDS RECONSTRUCTION    DTSIY771
00008 *    FILE RECORDS (DTSIX771).                                     DTSIY771
00009 *                                                                 DTSIY771
00010 *****                                                             DTSIY771
00011      10  Y771-LENGTH                    PIC S9(04) COMP.          DTSIY771
00012                                                                   DTSIY771
00013      10  Y771-SORT-AREA.                                          DTSIY771
00014          15  Y771-REC-TYPE              PIC  X(03).               DTSIY771
00015              88  Y771-REC-TYPE-771-88    VALUE '771'.             DTSIY771
00016          15  Y771-EMP-NO                PIC S9(07) COMP-3.        DTSIY771
00017                                                                   DTSIY771
00018      10  Y771-DATA-AREA.                                          DTSIY771
00019          15  Y771-EMP-STATUS            PIC  X(01).               DTSIY771
00020              88  Y771-STATUS-ACTIVE-88   VALUE 'A'.               DTSIY771
00021          15  Y771-EMP-CLASS             PIC  X(01).               DTSIY771
00022              88  Y771-CLASS-RATED-88     VALUE 'R'.               DTSIY771
00023              88  Y771-CLASS-SELF-INS-88  VALUE 'S'.               DTSIY771
00024          15  Y771-LIAB-DATE             PIC S9(09) COMP-3.        DTSIY771
00025          15  Y771-REOPEN-PROCESS-DATE   PIC S9(09) COMP-3.        DTSIY771
00026          15  Y771-PROCESS-DATE          PIC S9(09) COMP-3.        DTSIY771
00027          15  Y771-INACTIVE-DATE         PIC S9(09) COMP-3.        DTSIY771
00028          15  Y771-LIAB-QTR-CNT          PIC  9(02).               DTSIY771
00029          15  Y771-QTR1-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00030          15  Y771-QTR2-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00031          15  Y771-QTR3-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00032          15  Y771-QTR4-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00033          15  Y771-QTR5-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00034          15  Y771-QTR6-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00035          15  Y771-QTR7-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771
00036          15  Y771-QTR8-WAGES            PIC S9(11)V99 COMP-3.     DTSIY771