DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
35
Copybook/DTSIEEMH.cpy
Normal file
35
Copybook/DTSIEEMH.cpy
Normal file
@ -0,0 +1,35 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIEEMH
|
||||
00003 * DTSIEEMH ELECTRONIC MEDIA EMPLOYER HISTORY. ONE LV001
|
||||
00004 * RECORD EXISTS FOR ALL SUCCESSFULLY PROCESSED DTSIEEMH
|
||||
00005 * SUBMISSIONS. DTSIEEMH
|
||||
00006 * DTSIEEMH
|
||||
00007 ***** DTSIEEMH
|
||||
00008 SKIP1 DTSIEEMH
|
||||
00009 10 EEMH-KEY-AREA. DTSIEEMH
|
||||
00010 15 EEMH-REC-TYPE PIC S9(04) COMP. DTSIEEMH
|
||||
00011 88 EEMH-EMH-88 VALUE +05. DTSIEEMH
|
||||
00012 15 EEMH-EMP-NO PIC S9(07) COMP-3. DTSIEEMH
|
||||
00013 15 EEMH-REPORTING-DATE PIC S9(09) COMP-3. DTSIEEMH
|
||||
00014 15 EEMH-DATA-TYPE-CD PIC X(02). DTSIEEMH
|
||||
00015 88 EEMH-PRT-UC30-88 VALUE '01'. DTSIEEMH
|
||||
00016 88 EEMH-BEN-CHARGE-DATA-88 VALUE '02'. DTSIEEMH
|
||||
00017 88 EEMH-WAGE-88 VALUE '03'. DTSIEEMH
|
||||
00018 88 EEMH-IRS-QTR-FEIN-88 VALUE '04'. DTSIEEMH
|
||||
00019 88 EEMH-IRS-940-CERT-88 VALUE '05'. DTSIEEMH
|
||||
00020 88 EEMH-IRS-WKLY-XMATCH-88 VALUE '06'. DTSIEEMH
|
||||
00021 88 EEMH-RR-RETIRE-88 VALUE '07'. DTSIEEMH
|
||||
00022 88 EEMH-BANK-RECON-OUT-88 VALUE '08'. DTSIEEMH
|
||||
00023 88 EEMH-BANK-RECON-IN-88 VALUE '09'. DTSIEEMH
|
||||
00024 88 EEMH-1099-88 VALUE '10'. DTSIEEMH
|
||||
00025 15 EEMH-LOG-NO PIC 9(10). DTSIEEMH
|
||||
00026 15 EEMH-KEY-FILLER PIC X(01). DTSIEEMH
|
||||
00027 SKIP1 DTSIEEMH
|
||||
00028 10 EEMH-DATA-AREA. DTSIEEMH
|
||||
00029 15 EEMH-RESULT-CD PIC X(02). DTSIEEMH
|
||||
00030 88 EEMH-RC-FAILED-88 VALUE '01'. DTSIEEMH
|
||||
00031 88 EEMH-RC-PART-SUCCESS-88 VALUE '03'. DTSIEEMH
|
||||
00032 88 EEMH-RC-SUCCESSFUL-88 VALUE '04'. DTSIEEMH
|
||||
00033 15 EEMH-ELF-ID PIC S9(07) COMP-3.DTSIEEMH
|
||||
00034 15 EEMH-EMP-SEQ-NO PIC 9(04). DTSIEEMH
|
||||
00035 15 EEMH-FILLER PIC X(30). DTSIEEMH
|
||||
Reference in New Issue
Block a user