36 lines
2.8 KiB
COBOL
36 lines
2.8 KiB
COBOL
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
|