61 lines
4.7 KiB
COBOL
61 lines
4.7 KiB
COBOL
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
|