00001 *****                                                             08/10/20
00002 *                                                                 DTSIX772
00003 *    DTSIX772    DTSBE772 LINKAGE                                    LV007
00004 *                ETA581 POPULATION 2 - SUBJECT QUARTER            DTSIX772
00005 *                                                                 DTSIX772
00006 *    DTSBE772 EXTRACTS RECONSTRUCTION FILE DATA FOR FILING        DTSIX772
00007 *    ACTIVITIES FOR A SUBJECT QUARTER FOR THE ETA581 REPORT.      DTSIX772
00008 *    IT FORMATS THE DATA FOR DOWNLOAD TO THE SQL SERVER DATABASE. DTSIX772
00009 *                                                                 DTSIX772
00010 *                                                                 DTSIX772
00011 *****                                                             DTSIX772
00012      SKIP1                                                        DTSIX772
00013                                                                   DTSIX772
00014          15  X772-OBS-NBR               PIC  9(08).               DTSIX772
00015          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00016          15  FILLER                     PIC  9(11)                   CL**4
00017                                         VALUE   0.                   CL**7
00018          15  X772-EMP-NO                PIC  9(09).                  CL**3
00019          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00020          15  X772-RPT-QTR               PIC  X(06).               DTSIX772
00021          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00022          15  X772-EMP-TYPE              PIC  X(20).                  CL**2
00023          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00024          15  X772-RECVD-DATE            PIC  X(10).               DTSIX772
00025          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00026          15  X772-FINAL-ASSESS-DATE     PIC  X(10).               DTSIX772
00027          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00028          15  X772-LIAB-DATE             PIC  X(10).               DTSIX772
00029          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00030          15  X772-LIAB-ESTB-DATE        PIC  X(10).               DTSIX772
00031          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00032          15  X772-INACTIVE-DATE         PIC  X(10).               DTSIX772
00033          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00034          15  X772-SUSPEND-QTR           PIC  X(06).               DTSIX772
00035          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772
00036          15  X772-INACT-PROCESS-DATE    PIC X(10).                DTSIX772
00037          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX772