38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
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
|