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