00001 ***** 08/08/12 00002 * DTSIX163 00003 * DTSIX163 AUDIT IMPORT RECORD - EMPLOYER LV001 00004 * DTSIX163 00005 * IMPORTS EMPLOYER-LEVEL DATA FROM WEB AUDIT DATABASE DTSIX163 00006 * DTSIX163 00007 * DTSIX163 00008 ***** DTSIX163 00009 DTSIX163 00010 15 X163-REC-TYPE PIC X(03) VALUE '163'. DTSIX163 00011 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00012 15 X163-EMP-NO PIC 9(06). DTSIX163 00013 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00014 15 X163-ASSIGN-NO PIC X(08). DTSIX163 00015 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00016 15 X163-COMPLETED-DT PIC X(10). DTSIX163 00017 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00018 15 X163-PROCESSED-DT PIC X(10). DTSIX163 00019 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00020 15 X163-FLD-REP-ID PIC 9(02). DTSIX163 00021 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00022 15 X163-FIRST-YRQ PIC X(06). DTSIX163 00023 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00024 15 X163-LAST-YRQ PIC X(06). DTSIX163 00025 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00026 15 X163-QTRS-AUDITED-CNT PIC 9(03). DTSIX163 00027 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00028 15 X163-EMP-SIZE-IND PIC X(01). DTSIX163 00029 88 X163-EMP-SIZE-LARGE-88 VALUE 'L'. DTSIX163 00030 88 X163-EMP-SIZE-SMALL-88 VALUE 'S'. DTSIX163 00031 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00032 15 X163-ERR-TYPE1 PIC 9(02). DTSIX163 00033 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00034 15 X163-ERR-TYPE2 PIC 9(02). DTSIX163 00035 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00036 15 X163-ERR-TYPE3 PIC 9(02). DTSIX163 00037 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00038 15 X163-ERR-TYPE4 PIC 9(02). DTSIX163 00039 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00040 15 X163-ERR-TYPE5 PIC 9(02). DTSIX163 00041 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00042 15 X163-MONEY-DUE-AMT PIC --------9.99. DTSIX163 00043 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00044 15 X163-MONEY-COLLECT-AMT PIC --------9.99. DTSIX163 00045 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00046 15 X163-MONEY-REASON-CD PIC X(01). DTSIX163 00047 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00048 15 X163-PEN-WAIVE-IND PIC X(01). DTSIX163 00049 88 X163-PEN-WAIVE-YES-88 VALUE 'Y'. DTSIX163 00050 88 X163-PEN-WAIVE-NO-88 VALUE 'N'. DTSIX163 00051 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00052 15 X163-INT-WAIVE-IND PIC X(01). DTSIX163 00053 88 X163-INT-WAIVE-YES-88 VALUE 'Y'. DTSIX163 00054 88 X163-INT-WAIVE-NO-88 VALUE 'N'. DTSIX163 00055 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00056 15 X163-AUDIT-HRS PIC 9(04).9. DTSIX163 00057 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00058 15 X163-NEW-EMPLOYEE-CNT PIC 9(05). DTSIX163 00059 15 FILLER PIC X(01) VALUE ';'. DTSIX163 00060 15 X163-INDCON-TO-EMPL-CNT PIC 9(05). DTSIX163