49 lines
3.8 KiB
COBOL
49 lines
3.8 KiB
COBOL
00001 ***** 10/01/03
|
|
00002 * EFTIFEWR
|
|
00003 * EFTIFEWR ELECTRONIC PAYMENT AND REPORTING LV051
|
|
00004 * EMPLOYEE WAGE DATA RECORD DESCRIPTION CL*29
|
|
00005 * CL*17
|
|
00006 * THE EXPORT AND IMPORT FILES FOR THE ELECTRONIC PAYMENT AND CL*17
|
|
00007 * FILING APPLICATIONS CONSIST OF MULTIPLE RECORD TYPES CL*17
|
|
00008 * SEPARATED BY HEADER AND TRAILER RECORDS. CL*17
|
|
00009 * CL*17
|
|
00010 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE CL*17
|
|
00011 * EMPLOYEE WAGE DATA NEEDED FOR THE REPORTING APPLICATION. CL*44
|
|
00012 * IT CONTAINS REPORTED WAGES FROM PRIOR QUARTERS IN THE CL*23
|
|
00013 * CALENDAR YEAR. AND IS USED TO CALCULATE TAXABLE WAGES CL*23
|
|
00014 * FOR THE CURRENT QUARTER. THERE WILL BE ONE RECORD FOR CL*23
|
|
00015 * EACH EMPLOYER/QUARTER/SSN. CL*23
|
|
00016 * CL*23
|
|
00017 ***** EFTIFEWR
|
|
00018 ***** CL*37
|
|
00019 CL*37
|
|
00020 10 FEWR-LENGTH PIC S9(04) COMP. CL*49
|
|
00021 CL*37
|
|
00022 10 FEWR-SORT-AREA. CL*38
|
|
00023 15 FEWR-TYPE PIC X(02). CL*38
|
|
00024 88 FEWR-TYPE-GLOBAL-DATA-88 VALUE '01'. CL*38
|
|
00025 88 FEWR-TYPE-EMP-STATUS-88 VALUE '10'. CL*38
|
|
00026 88 FEWR-TYPE-WAGE-EXP-88 VALUE '11'. CL*38
|
|
00027 88 FEWR-TYPE-VALID-EMP-NO-88 VALUE '12'. CL*38
|
|
00028 88 FEWR-TYPE-QTR-TAX-RPT-88 VALUE '30'. CL*38
|
|
00029 88 FEWR-TYPE-ANN-TAX-RPT-88 VALUE '31'. CL*38
|
|
00030 88 FEWR-TYPE-PAYMENT-88 VALUE '32'. CL*38
|
|
00031 88 FEWR-TYPE-WAGE-IMP-88 VALUE '33'. CL*38
|
|
00032 88 FEWR-TYPE-STATUS-CHANGE-88 VALUE '34'. CL*51
|
|
00033 88 FEWR-TYPE-ENROLL-88 VALUE '35'. CL*39
|
|
00034 CL*28
|
|
00035 15 FEWR-SUB-TYPE PIC X(01). CL*38
|
|
00036 88 FEWR-SUB-TYPE-HEADER-88 VALUE '0'. CL*38
|
|
00037 88 FEWR-SUB-TYPE-DATA-88 VALUE '1'. CL*38
|
|
00038 88 FEWR-SUB-TYPE-TRAILER-88 VALUE '9'. CL*38
|
|
00039 EFTIFEWR
|
|
00040 10 FEWR-DATA-AREA. CL*38
|
|
00041 15 FEWR-EMP-NO PIC 9(06). CL*38
|
|
00042 15 FEWR-EMPL-SSN PIC 9(09). CL*38
|
|
00043 15 FEWR-EMPL-NAME. CL*38
|
|
00044 20 FEWR-FIRST-NAME PIC X(15). CL*38
|
|
00045 20 FEWR-MIDDLE-INITIAL PIC X(01). CL*38
|
|
00046 20 FEWR-LAST-NAME PIC X(20). CL*38
|
|
00047 15 FEWR-YR-TO-DATE-WAGES PIC S9(11)V99. CL*44
|
|
00048 **** 15 FEWR-FILLER PIC X(436). CL*40
|