00001 *****                                                             02/01/04
00002 *                                                                 DTSIY772
00003 *    DTSIY772    ETA581 POPULATION 1 - ACTIVE EMPLOYERS              LV001
00004 *                                                                 DTSIY772
00005 *    DTSBE770 EXTRACTS RECONSTRUCTION FILE DATA FOR REPORT        DTSIY772
00006 *    FILING FOR THE ETA581 REPORT. THE RECORDS ARE SORTED         DTSIY772
00007 *    AND PASSED TO DTSBD772 WHICH BUILDS RECONSTRUCTION           DTSIY772
00008 *    FILE RECORDS (DTSIX772).                                     DTSIY772
00009 *                                                                 DTSIY772
00010 *****                                                             DTSIY772
00011      10  Y772-LENGTH                    PIC S9(04) COMP.          DTSIY772
00012                                                                   DTSIY772
00013      10  Y772-SORT-AREA.                                          DTSIY772
00014          15  Y772-REC-TYPE              PIC  X(03).               DTSIY772
00015              88  Y772-REC-TYPE-772-88    VALUE '772'.             DTSIY772
00016          15  Y772-EMP-NO                PIC S9(07) COMP-3.        DTSIY772
00017          15  Y772-RPT-YRQ               PIC S9(05) COMP-3.        DTSIY772
00018                                                                   DTSIY772
00019      10  Y772-DATA-AREA.                                          DTSIY772
00020          15  Y772-EMP-CLASS             PIC  X(01).               DTSIY772
00021              88  Y772-CLASS-RATED-88     VALUE 'R'.               DTSIY772
00022              88  Y772-CLASS-SELF-INS-88  VALUE 'S'.               DTSIY772
00023          15  Y772-RPT-TYPE              PIC  X(01).               DTSIY772
00024              88  Y772-RPT-RCVD-88        VALUE '0'.               DTSIY772
00025              88  Y772-RPT-ESTIM-88       VALUE '1'.               DTSIY772
00026              88  Y772-RPT-INACT-88       VALUE '2'.               DTSIY772
00027              88  Y772-RPT-LIAB-88        VALUE '3'.               DTSIY772
00028              88  Y772-RPT-WITHDRW-88     VALUE '4'.               DTSIY772
00029              88  Y772-RPT-RESOLVED-88    VALUE '1' THRU '4'.      DTSIY772
00030              88  Y772-RPT-581-ONLY-88    VALUE '5'.               DTSIY772
00031          15  Y772-DUE-DATE              PIC S9(09) COMP-3.        DTSIY772
00032          15  Y772-RECEIVED-DATE         PIC S9(09) COMP-3.        DTSIY772
00033          15  Y772-FINAL-ASSESS-DATE     PIC S9(09) COMP-3.        DTSIY772
00034          15  Y772-LIAB-DATE             PIC S9(09) COMP-3.        DTSIY772
00035          15  Y772-INACTIVE-DATE         PIC S9(09) COMP-3.        DTSIY772
00036          15  Y772-INACT-PROCESS-DATE    PIC S9(09) COMP-3.        DTSIY772