DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
58
Copybook/DTSIX775.cpy
Normal file
58
Copybook/DTSIX775.cpy
Normal file
@ -0,0 +1,58 @@
|
||||
00001 ***** 02/01/04
|
||||
00002 * DTSIX775
|
||||
00003 * DTSIX775 DTSBE770 LINKAGE LV001
|
||||
00004 * ETA581 POPULATION 5 - AUDITS DTSIX775
|
||||
00005 * DTSIX775
|
||||
00006 * DTSBE770 EXTRACTS RECONSTRUCTION FILE DATA FOR THE COUNT OF DTSIX775
|
||||
00007 * AUDITS FOR THE ETA581 REPORT. DTSIX775
|
||||
00008 * DTSIX775
|
||||
00009 * DTSIX775
|
||||
00010 ***** DTSIX775
|
||||
00011 DTSIX775
|
||||
00012 15 X775-OBS-NBR PIC 9(07). DTSIX775
|
||||
00013 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00014 15 X775-EMP-NO PIC 9(07). DTSIX775
|
||||
00015 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00016 15 X775-AUDIT-ID PIC 9(09). DTSIX775
|
||||
00017 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00018 15 X775-EMP-SIZE-IND PIC X(01). DTSIX775
|
||||
00019 88 X775-EMP-SIZE-LARGE-88 VALUE 'L'. DTSIX775
|
||||
00020 88 X775-EMP-SIZE-SMALL-88 VALUE 'S'. DTSIX775
|
||||
00021 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00022 15 X775-CHANGE-AUDIT-IND PIC X(01). DTSIX775
|
||||
00023 88 X775-CHANGE-AUDIT-YES-88 VALUE 'Y'. DTSIX775
|
||||
00024 88 X775-CHANGE-AUDIT-NO-88 VALUE 'N'. DTSIX775
|
||||
00025 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00026 15 X775-AUDIT-CMPL-DATE PIC X(10). DTSIX775
|
||||
00027 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00028 15 X775-PRE-AUDIT-TOT-WAGE PIC ----------9.99. DTSIX775
|
||||
00029 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00030 15 X775-POST-AUDIT-TOT-WAGE PIC ----------9.99. DTSIX775
|
||||
00031 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00032 15 X775-UNDER-RPT-TOT-WAGE PIC ----------9.99. DTSIX775
|
||||
00033 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00034 15 X775-OVER-RPT-TOT-WAGE PIC ----------9.99. DTSIX775
|
||||
00035 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00036 15 X775-TOTAL-RECON PIC 9(07). DTSIX775
|
||||
00037 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00038 15 X775-PRE-AUDIT-TAX-WAGE PIC ----------9.99. DTSIX775
|
||||
00039 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00040 15 X775-POST-AUDIT-TAX-WAGE PIC ----------9.99. DTSIX775
|
||||
00041 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00042 15 X775-UNDER-RPT-TAX-WAGE PIC ----------9.99. DTSIX775
|
||||
00043 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00044 15 X775-OVER-RPT-TAX-WAGE PIC ----------9.99. DTSIX775
|
||||
00045 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00046 15 X775-TAX-RECON PIC 9(07). DTSIX775
|
||||
00047 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00048 15 X775-PRE-AUDIT-CONTRIB PIC ----------9.99. DTSIX775
|
||||
00049 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00050 15 X775-POST-AUDIT-CONTRIB PIC ----------9.99. DTSIX775
|
||||
00051 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00052 15 X775-UNDER-RPT-CONTRIB PIC ----------9.99. DTSIX775
|
||||
00053 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00054 15 X775-OVER-RPT-CONTRIB PIC ----------9.99. DTSIX775
|
||||
00055 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00056 15 X775-CONTRIB-RECON PIC 9(07). DTSIX775
|
||||
00057 15 FILLER PIC X(01) VALUE ','. DTSIX775
|
||||
00058 15 X775-USER-FIELD PIC X(01). DTSIX775
|
||||
Reference in New Issue
Block a user