DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
53
Copybook/DTSIY775.cpy
Normal file
53
Copybook/DTSIY775.cpy
Normal file
@ -0,0 +1,53 @@
|
||||
00001 ***** 10/17/24
|
||||
00002 * DTSIY775
|
||||
00003 * DTSIY775 ETA581 POPULATION 5 - AUDITS LV002
|
||||
00004 * DTSIY775
|
||||
00005 * DTSBE770 EXTRACTS RECONSTRUCTION FILE DATA FOR THE COUNT OF DTSIY775
|
||||
00006 * COMPLETED AUDITS FOR THE ETA581 REPORT. THE RECORDS ARE DTSIY775
|
||||
00007 * SORTED AND PASSED TO DTSBD775 WHICH BUILDS RECONSTRUCTION DTSIY775
|
||||
00008 * FILE RECORDS. DTSIY775
|
||||
00009 * DTSIY775
|
||||
00010 ***** DTSIY775
|
||||
00011 10 Y775-LENGTH PIC S9(04) COMP. DTSIY775
|
||||
00012 DTSIY775
|
||||
00013 10 Y775-SORT-AREA. DTSIY775
|
||||
00014 15 Y775-REC-TYPE PIC X(03). DTSIY775
|
||||
00015 88 Y775-REC-TYPE-775-88 VALUE '775'. DTSIY775
|
||||
00016 15 Y775-EMP-NO PIC S9(07) COMP-3. DTSIY775
|
||||
00017 DTSIY775
|
||||
00018 ***************************************************************** DTSIY775
|
||||
00019 * THE FOLLOWING AREA CONTAINS DATA ELEMENTS NEEDED TO BUILD DTSIY775
|
||||
00020 * THE POPULATION 5 (AUDIT) RECONSTRUCTION FILE. DTSIY775
|
||||
00021 ***************************************************************** DTSIY775
|
||||
00022 10 Y775-DATA-VALIDATION-AREA. DTSIY775
|
||||
00023 15 Y775-AUDIT-ID PIC S9(09) COMP-3. DTSIY775
|
||||
00024 15 Y775-EMP-SIZE-IND PIC X(01). DTSIY775
|
||||
00025 88 Y775-EMP-SIZE-LARGE-88 VALUE 'L'. DTSIY775
|
||||
00026 88 Y775-EMP-SIZE-SMALL-88 VALUE 'S'. DTSIY775
|
||||
00027 15 Y775-CHANGE-AUDIT-IND PIC X(01). DTSIY775
|
||||
00028 88 Y775-CHANGE-AUDIT-YES-88 VALUE 'Y'. DTSIY775
|
||||
00029 88 Y775-CHANGE-AUDIT-NO-88 VALUE 'N'. DTSIY775
|
||||
00030 15 Y775-AUDIT-CMPL-DATE PIC S9(09) COMP-3. DTSIY775
|
||||
00031 15 Y775-PRE-AUDIT-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00032 15 Y775-POST-AUDIT-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00033 15 Y775-UNDER-RPT-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00034 15 Y775-OVER-RPT-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00035 15 Y775-PRE-AUDIT-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00036 15 Y775-POST-AUDIT-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00037 15 Y775-UNDER-RPT-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00038 15 Y775-OVER-RPT-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00039 15 Y775-PRE-AUDIT-CONTRIB PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00040 15 Y775-POST-AUDIT-CONTRIB PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00041 15 Y775-UNDER-RPT-CONTRIB PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00042 15 Y775-OVER-RPT-CONTRIB PIC S9(11)V99 COMP-3. DTSIY775
|
||||
00043 DTSIY775
|
||||
00044 ***************************************************************** DTSIY775
|
||||
00045 * THE FOLLOWING AREA CONTAINS ADDITIONAL DATA ELEMENTS NEEDED DTSIY775
|
||||
00046 * FOR THE ETA581. DTSIY775
|
||||
00047 * Y775-NEW-EMPLOYEE-CNT- ADDED FIELD FOR MISCLASSIFIED WORKERS CL**2
|
||||
00048 ***************************************************************** DTSIY775
|
||||
00049 10 Y775-ETA581-AREA. DTSIY775
|
||||
00050 15 Y775-QTR-CNT PIC S9(07) COMP-3. DTSIY775
|
||||
00051 15 Y775-HOURS PIC S9(07) COMP-3. DTSIY775
|
||||
00052 15 Y775-IND-CON-CNT PIC S9(07) COMP-3. DTSIY775
|
||||
00053 15 Y775-NEW-EMPLOYEE-CNT PIC S9(07) COMP-3. DTSIY775
|
||||
Reference in New Issue
Block a user