DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
34
Copybook/DTSIX164.cpy
Normal file
34
Copybook/DTSIX164.cpy
Normal file
@ -0,0 +1,34 @@
|
||||
00001 ***** 08/08/12
|
||||
00002 * DTSIX164
|
||||
00003 * DTSIX164 AUDIT IMPORT RECORD - QUARTER LEVEL DATA LV001
|
||||
00004 * DTSIX164
|
||||
00005 * IMPORTS QUARTERLY AUDIT RESULTS FROM WEB AUDIT DATABASE DTSIX164
|
||||
00006 * DTSIX164
|
||||
00007 * DTSIX164
|
||||
00008 ***** DTSIX164
|
||||
00009 DTSIX164
|
||||
00010 15 X164-REC-TYPE PIC X(03) VALUE '164'. DTSIX164
|
||||
00011 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00012 15 X164-EMP-NO PIC 9(06). DTSIX164
|
||||
00013 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00014 15 X164-ASSIGN-NO PIC X(08). DTSIX164
|
||||
00015 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00016 15 X164-QUARTER PIC X(06). DTSIX164
|
||||
00017 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00018 15 X164-QTR-AUDITED-IND PIC X(01). DTSIX164
|
||||
00019 88 X164-QTR-AUDITED-88 VALUE 'Y'. DTSIX164
|
||||
00020 88 X164-QTR-NOT-AUDITED-88 VALUE 'N'. DTSIX164
|
||||
00021 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00022 15 X164-QTR-GROSS-PAYROLL PIC --------9.99. DTSIX164
|
||||
00023 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00024 15 X164-QTR-UNDER-TOT-WAGE PIC --------9.99. DTSIX164
|
||||
00025 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00026 15 X164-QTR-UNDER-TAX-WAGE PIC --------9.99. DTSIX164
|
||||
00027 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00028 15 X164-QTR-UNDER-CONTRIB PIC --------9.99. DTSIX164
|
||||
00029 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00030 15 X164-QTR-OVER-TOT-WAGE PIC --------9.99. DTSIX164
|
||||
00031 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00032 15 X164-QTR-OVER-TAX-WAGE PIC --------9.99. DTSIX164
|
||||
00033 15 FILLER PIC X(01) VALUE ';'. DTSIX164
|
||||
00034 15 X164-QTR-OVER-CONTRIB PIC --------9.99. DTSIX164
|
||||
Reference in New Issue
Block a user