00001 *****                                                             02/01/04
00002 *                                                                 DTSIY773
00003 *    DTSIY773    DTSBE773 LINKAGE                                    LV001
00004 *                ETA581 POPULATION 3 - STATUS DETERMINATIONS      DTSIY773
00005 *                                                                 DTSIY773
00006 *    DTSBE773 EXTRACTS RECONSTRUCTION FILE DATA FOR THE STATUS    DTSIY773
00007 *    DETERMINATIONS FOR THE ETA581 REPORT. Y773 RECORDS ARE       DTSIY773
00008 *    SORTED AND PASSED TO DTSBD773 WHICH BUILDS THE RECONSTRUCTIONDTSIY773
00009 *    FILE RECORDS (DTSIX773).                                     DTSIY773
00010 *                                                                 DTSIY773
00011 *****                                                             DTSIY773
00012      SKIP1                                                        DTSIY773
00013      10  Y773-LENGTH                    PIC S9(04) COMP.          DTSIY773
00014                                                                   DTSIY773
00015      10  Y773-SORT-AREA.                                          DTSIY773
00016          15  Y773-REC-TYPE              PIC  X(03).               DTSIY773
00017              88  Y773-REC-TYPE-773-88    VALUE '773'.             DTSIY773
00018          15  Y773-EMP-NO                PIC S9(07) COMP-3.        DTSIY773
00019          15  Y773-DETERM-TYPE           PIC  X(01).               DTSIY773
00020              88  Y773-DETERM-ORIG-88     VALUE '1'.               DTSIY773
00021              88  Y773-DETERM-REACT-88    VALUE '2'.               DTSIY773
00022              88  Y773-DETERM-NEW-88      VALUE '1' '2'.           DTSIY773
00023              88  Y773-DETERM-SUC-88      VALUE '3'.               DTSIY773
00024              88  Y773-DETERM-INACT-88    VALUE '4'.               DTSIY773
00025          15  Y773-STATUS-DETERM-DATE    PIC S9(09) COMP-3.        DTSIY773
00026                                                                   DTSIY773
00027      10  Y773-DATA-AREA.                                          DTSIY773
00028          15  Y773-EMP-CLASS             PIC  X(01).               DTSIY773
00029              88  Y773-CLASS-RATED-88     VALUE 'R'.               DTSIY773
00030              88  Y773-CLASS-SELF-INS-88  VALUE 'S'.               DTSIY773
00031          15  Y773-ACTIVATION-DATE       PIC S9(09) COMP-3.        DTSIY773
00032          15  Y773-REACT-DATE            PIC S9(09) COMP-3.        DTSIY773
00033          15  Y773-INACT-DATE            PIC S9(09) COMP-3.        DTSIY773
00034          15  Y773-SUCC-DATE             PIC S9(09) COMP-3.        DTSIY773
00035          15  Y773-LIAB-DATE             PIC S9(09) COMP-3.        DTSIY773
00036          15  Y773-PRED-EMP-NO           PIC S9(07) COMP-3.        DTSIY773