DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
114
Copybook/EFTIFESR.cpy
Normal file
114
Copybook/EFTIFESR.cpy
Normal file
@ -0,0 +1,114 @@
|
||||
00001 ***** 10/01/03
|
||||
00002 * EFTIFESR
|
||||
00003 * EFTIFESR ELECTRONIC PAYMENT AND REPORTING LV059
|
||||
00004 * EMPLOYER STATUS RECORD DESCRIPTION CL*49
|
||||
00005 * CL*26
|
||||
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 THE CL*34
|
||||
00011 * EMPLOYER STATUS DATA NEEDED FOR THE TAX REPORTING CL*34
|
||||
00012 * APPLICATION. CL*34
|
||||
00013 * RULE. CL*29
|
||||
00014 * CL*26
|
||||
00015 ***** EFTIFESR
|
||||
00016 ***** CL*48
|
||||
00017 CL*48
|
||||
00018 10 FESR-LENGTH PIC S9(04) COMP. CL*58
|
||||
00019 CL*48
|
||||
00020 10 FESR-SORT-AREA. CL*49
|
||||
00021 15 FESR-TYPE PIC X(02). CL*49
|
||||
00022 88 FESR-TYPE-GLOBAL-DATA-88 VALUE '01'. CL*49
|
||||
00023 88 FESR-TYPE-EMP-STATUS-88 VALUE '10'. CL*49
|
||||
00024 88 FESR-TYPE-WAGE-EXP-88 VALUE '11'. CL*49
|
||||
00025 88 FESR-TYPE-VALID-EMP-NO-88 VALUE '12'. CL*49
|
||||
00026 88 FESR-TYPE-QTR-TAX-RPT-88 VALUE '30'. CL*49
|
||||
00027 88 FESR-TYPE-ANN-TAX-RPT-88 VALUE '31'. CL*49
|
||||
00028 88 FESR-TYPE-PAYMENT-88 VALUE '32'. CL*49
|
||||
00029 88 FESR-TYPE-WAGE-IMP-88 VALUE '33'. CL*49
|
||||
00030 88 FESR-TYPE-STATUS-CHANGE-88 VALUE '34'. CL*59
|
||||
00031 88 FESR-TYPE-ENROLL-88 VALUE '35'. CL*50
|
||||
00032 CL*33
|
||||
00033 15 FESR-SUB-TYPE PIC X(01). CL*49
|
||||
00034 88 FESR-SUB-TYPE-HEADER-88 VALUE '0'. CL*49
|
||||
00035 88 FESR-SUB-TYPE-DATA-88 VALUE '1'. CL*49
|
||||
00036 88 FESR-SUB-TYPE-TRAILER-88 VALUE '9'. CL*49
|
||||
00037 EFTIFESR
|
||||
00038 10 FESR-DATA-AREA. CL*49
|
||||
00039 15 FESR-EMP-NO PIC 9(06). CL*49
|
||||
00040 CL*43
|
||||
00041 15 FESR-LIABILITY-IND PIC X(01). CL*49
|
||||
00042 88 FESR-LIAB-YES-88 VALUE 'Y'. CL*49
|
||||
00043 88 FESR-LIAB-NO-88 VALUE 'N'. CL*49
|
||||
00044 CL*30
|
||||
00045 15 FESR-FILING-SCHED-IND PIC X(01). CL*49
|
||||
00046 88 FESR-QTRLY-SCHED-88 VALUE '0'. CL*49
|
||||
00047 88 FESR-ANN-SCHED-88 VALUE '1'. CL*49
|
||||
00048 CL*30
|
||||
00049 15 FESR-FISCAL-AGENT-IND PIC X(01). CL*49
|
||||
00050 88 FESR-FISCAL-AGENT-NO-88 VALUE 'N'. CL*49
|
||||
00051 88 FESR-FISCAL-AGENT-YES-88 VALUE 'Y'. CL*49
|
||||
00052 CL*30
|
||||
00053 15 FESR-REPORT-ON-FILE-IND PIC X(01). CL*49
|
||||
00054 88 FESR-QTR-REPORT-NO-88 VALUE 'N'. CL*49
|
||||
00055 88 FESR-QTR-REPORT-YES-88 VALUE 'Y'. CL*49
|
||||
00056 CL*30
|
||||
00057 15 FESR-EMPLOYER-CLASS-IND PIC X(01). CL*49
|
||||
00058 88 FESR-EMPL-RATED-88 VALUE '0'. CL*49
|
||||
00059 88 FESR-EMPL-SELF-INSURED-88 VALUE '1'. CL*49
|
||||
00060 CL*30
|
||||
00061 15 FESR-EMPLOYER-RATE PIC S9V9999. CL*54
|
||||
00062 15 FESR-CREDIT-AVAILABLE PIC S9(08)V99. CL*55
|
||||
00063 15 FESR-PRIOR-BALANCE-DUE PIC S9(08)V99. CL*55
|
||||
00064 15 FESR-REPORT-DUE-DATE PIC 9(08). CL*49
|
||||
00065 CL*31
|
||||
00066 15 FESR-CHARGE-INTEREST-IND PIC X(01). CL*49
|
||||
00067 88 FESR-CHRG-INTEREST-YES-88 VALUE 'Y'. CL*49
|
||||
00068 88 FESR-CHRG-INTEREST-NO-88 VALUE 'N'. CL*49
|
||||
00069 CL*31
|
||||
00070 15 FESR-CHARGE-PENALTY-IND PIC X(01). CL*49
|
||||
00071 88 FESR-CHRG-PENALTY-YES-88 VALUE 'Y'. CL*49
|
||||
00072 88 FESR-CHRG-PENALTY-NO-88 VALUE 'N'. CL*49
|
||||
00073 CL*29
|
||||
00074 15 FESR-CALC-TAX-WAGE-IND PIC X(01). CL*49
|
||||
00075 88 FESR-CALC-TAX-WAGE-YES-88 VALUE 'Y'. CL*49
|
||||
00076 88 FESR-CALC-TAX-WAGE-NO-88 VALUE 'N'. CL*49
|
||||
00077 CL*37
|
||||
00078 15 FESR-ENTITY-NAME PIC X(40). CL*49
|
||||
00079 CL*43
|
||||
00080 15 FESR-TRADE-NAME PIC X(40). CL*49
|
||||
00081 CL*43
|
||||
00082 15 FESR-BUSINESS-PHONE. CL*49
|
||||
00083 20 FESR-BUSINESS-AREA-CD PIC X(03). CL*49
|
||||
00084 20 FESR-BUSINESS-PREFIX PIC X(03). CL*49
|
||||
00085 20 FESR-BUSINESS-SUFFIX PIC X(04). CL*49
|
||||
00086 20 FESR-BUSINESS-EXT PIC X(05). CL*49
|
||||
00087 CL*43
|
||||
00088 15 FESR-FAX. CL*49
|
||||
00089 20 FESR-FAX-AREA-CD PIC X(03). CL*49
|
||||
00090 20 FESR-FAX-PREFIX PIC X(03). CL*49
|
||||
00091 20 FESR-FAX-SUFFIX PIC X(04). CL*49
|
||||
00092 CL*43
|
||||
00093 15 FESR-EMAIL-ADDRESS PIC X(40). CL*49
|
||||
00094 CL*43
|
||||
00095 15 FESR-FEIN PIC 9(09). CL*49
|
||||
00096 CL*45
|
||||
00097 15 FESR-ATTN-LINE PIC X(40). CL*49
|
||||
00098 15 FESR-STREET-ADDRESS-1 PIC X(40). CL*49
|
||||
00099 15 FESR-STREET-ADDRESS-2 PIC X(40). CL*49
|
||||
00100 15 FESR-CITY PIC X(25). CL*49
|
||||
00101 15 FESR-STATE PIC X(02). CL*49
|
||||
00102 15 FESR-ZIP PIC X(10). CL*49
|
||||
00103 CL*43
|
||||
00104 15 FESR-CONTACT-FIRST-NAME PIC X(15). CL*49
|
||||
00105 15 FESR-CONTACT-MI PIC X(01). CL*49
|
||||
00106 15 FESR-CONTACT-LAST-NAME PIC X(20). CL*49
|
||||
00107 CL*43
|
||||
00108 15 FESR-CONTACT-PHONE. CL*49
|
||||
00109 20 FESR-CONTACT-AREA-CD PIC X(03). CL*49
|
||||
00110 20 FESR-CONTACT-PREFIX PIC X(03). CL*49
|
||||
00111 20 FESR-CONTACT-SUFFIX PIC X(04). CL*49
|
||||
00112 20 FESR-CONTACT-EXT PIC X(05). CL*49
|
||||
00113 CL*43
|
||||
00114 *** 15 FESR-FILLER PIC X(83). CL*51
|
||||
Reference in New Issue
Block a user