DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

159
Copybook/EFTERMSG.cpy Normal file
View File

@ -0,0 +1,159 @@
00001 02 EFT-BATCH-ERROR-MESSAGES. 03/08/04
00002 05 EFT001 PIC X(42) VALUE EFTERMSG
00003 'E - EMPLOYER NOT FOUND ON TAX MASTER FILE'. LV146
00004 05 EFT002 PIC X(42) VALUE CL119
00005 ' EMPLOYER NAME & ACCOUNT NO. DO NOT MATCH '. CL119
00006 05 EFT003 PIC X(42) VALUE CL119
00007 ' EMPLOYER ACCOUNT NUMBER IS REQUIRED '. CL119
00008 05 EFT004 PIC X(42) VALUE CL119
00009 ' EMPLOYER NAME IS REQUIRED '. CL119
00010 05 EFT005 PIC X(42) VALUE CL119
00011 'E - INVALID HEADER DATE ON GOVONE FILE '. CL131
00012 05 EFT006 PIC X(42) VALUE CL119
00013 'E - TRAILER RECORD COUNT IS NOT NUMERIC '. CL138
00014 05 EFT007 PIC X(42) VALUE CL119
00015 ' RECORD COUNT EQUAL ZEROS '. CL119
00016 05 EFT008 PIC X(42) VALUE CL119
00017 ' INCORRECT TRAILER RECORD COUNT '. CL119
00018 05 EFT009 PIC X(42) VALUE CL119
00019 ' AMOUNT FIELD IS NOT NUMERIC '. CL123
00020 05 EFT010 PIC X(42) VALUE CL119
00021 'E - INCORRECT AMOUNT IN TRAILER RECORD '. CL130
00022 05 EFT011 PIC X(42) VALUE CL119
00023 'E - EMP ACCOUNT NO IS NOT NUMERIC '. CL130
00024 05 EFT012 PIC X(42) VALUE CL119
00025 'E - INVALID ACCOUNT NO - ALL ZEROS '. CL130
00026 05 EFT013 PIC X(42) VALUE CL119
00027 ' TRACE NUMBER IS NOT NUMERIC '. CL119
00028 05 EFT014 PIC X(42) VALUE CL119
00029 ' INVALID TRACE NO - ALL ZEROS '. CL129
00030 05 EFT015 PIC X(42) VALUE CL119
00031 ' TIME DATA IS NOT NUMERIC OR ZEROS '. CL119
00032 05 EFT016 PIC X(42) VALUE CL119
00033 ' TIME DATA CONTAINS INVALID DATA '. CL144
00034 05 EFT017 PIC X(42) VALUE CL119
00035 ' INVALID TRANSACTION - UNKNOWN REC TYPE '. CL142
00036 05 EFT018 PIC X(42) VALUE CL119
00037 'I - CONTACT NAME INCORRECT OR BLANK '. CL146
00038 05 EFT019 PIC X(42) VALUE CL119
00039 ' INVALID VALUE - PHONE NUMBER '. CL129
00040 05 EFT020 PIC X(42) VALUE CL119
00041 'I - PHONE NUMBER INCORRECT OR BLANK '. CL146
00042 05 EFT021 PIC X(42) VALUE CL119
00043 ' EMPLOYEE WAGES MUST BE ENTERED '. CL119
00044 05 EFT022 PIC X(42) VALUE CL119
00045 ' WAGE AMOUNT MUST BE NUMERIC '. CL119
00046 05 EFT023 PIC X(42) VALUE CL119
00047 ' DUPLICATE EMPLOYEE ENTRIES FOUND '. CL119
00048 05 EFT024 PIC X(42) VALUE CL119
00049 ' DUPLICATE EMPLOYER ENTRIES FOUND '. CL119
00050 05 EFT025 PIC X(42) VALUE CL119
00051 'I - INACTIVE EMPLOYER IN DOES TAX SYSTEM'. CL130
00052 05 EFT026 PIC X(42) VALUE CL119
00053 'I - INVALID TRANSACTION DATE '. CL130
00054 05 EFT027 PIC X(42) VALUE CL119
00055 'E - INVALID SOCIAL SECURITY NUMBER (FCQW) '. CL138
00056 05 EFT028 PIC X(42) VALUE CL119
00057 'E - FEST INVALID FEIN '. CL138
00058 05 EFT029 PIC X(42) VALUE CL119
00059 'E - FDPT INVALID PAYMENT AMOUNT '. CL139
00060 05 EFT030 PIC X(42) VALUE CL119
00061 'E - FEST EMAIL ADDRESS INCORRECT '. CL136
00062 05 EFT031 PIC X(42) VALUE CL119
00063 ' INVALID FAX NUMBER '. CL129
00064 05 EFT032 PIC X(42) VALUE CL119
00065 'E - FCWQ EMPLOYEE WAGES IS INVALID '. CL139
00066 05 EFT033 PIC X(42) VALUE CL119
00067 'E - WAGE AMOUNT MUST BE GREATER THAN ZERO '. CL130
00068 05 EFT034 PIC X(42) VALUE CL119
00069 'E - WAGE REPORT INDICATOR MUST BE Y OR N '. CL144
00070 05 EFT035 PIC X(42) VALUE CL119
00071 'I - INFO OPEN FILE FOR DRV PROGRAM '. CL136
00072 05 EFT036 PIC X(42) VALUE CL119
00073 ' EMP NOT ENROLL IN EFT BUT RECEIVED PAYMNT'. CL127
00074 05 EFT037 PIC X(42) VALUE CL119
00075 'I - INVALID FENR CONTACT NAME '. CL135
00076 05 EFT038 PIC X(42) VALUE CL119
00077 'E - INVALID PAYMENT AMOUNT '. CL130
00078 05 EFT039 PIC X(42) VALUE CL119
00079 'E -INVALID EMPLOYER WAGES '. CL130
00080 05 EFT040 PIC X(42) VALUE CL119
00081 'E - INVALID EMPLOYER TAXABLE WAGES '. CL130
00082 05 EFT041 PIC X(42) VALUE CL119
00083 'I - INVALID FEST PHONE NUMBER '. CL144
00084 05 EFT042 PIC X(42) VALUE CL119
00085 'I - INVALID FEST FAX NUMBER '. CL145
00086 05 EFT043 PIC X(42) VALUE CL119
00087 'I - INVALID FQTF PHONE NUMBER '. CL144
00088 05 EFT044 PIC X(42) VALUE CL119
00089 'I - INVALID FENR PHONE NUMBER '. CL144
00090 05 EFT045 PIC X(42) VALUE CL119
00091 'E - FCQW EMPLOYEE NAME MUST BE ENTERED '. CL134
00092 05 EFT046 PIC X(42) VALUE CL119
00093 'I - FEST EMAIL ADDRESS INCORRECT '. CL145
00094 05 EFT047 PIC X(42) VALUE CL119
00095 'E - FEST SALES DATE NOT NUMERIC '. CL137
00096 05 EFT048 PIC X(42) VALUE CL119
00097 'E - FEST SALES DATE IS INVALID '. CL137
00098 05 EFT049 PIC X(42) VALUE CL119
00099 'E - FEST LAST WAGES PAID DATE IS NOT NUM '. CL137
00100 05 EFT050 PIC X(42) VALUE CL119
00101 'E - FEST LAST WAGES PAID DATE IS INVALID '. CL137
00102 05 EFT051 PIC X(42) VALUE CL119
00103 'E - FQTF FILING DATE IS INVALID '. CL137
00104 05 EFT052 PIC X(42) VALUE CL119
00105 ' EMPLYEE WAGES & EMPLYR TOTL WAGES ERROR!!'. CL119
00106 05 EFT053 PIC X(42) VALUE CL119
00107 'E - FDPT PAYMENT DATE IS INVALID '. CL137
00108 05 EFT054 PIC X(42) VALUE CL119
00109 'E - FQTF TRACE NUMBER IS INVALID '. CL137
00110 05 EFT055 PIC X(42) VALUE CL119
00111 'E - FDPT TRACE NUMBER IS INVALID '. CL137
00112 05 EFT056 PIC X(42) VALUE CL119
00113 'E - FCQW TRACE NUMBER IS INVALID '. CL138
00114 05 EFT057 PIC X(42) VALUE CL119
00115 'E - FCQW QTR IS INVALID '. CL138
00116 05 EFT058 PIC X(42) VALUE CL119
00117 'E - FQTF QTR IS INVALID '. CL138
00118 05 EFT059 PIC X(42) VALUE CL119
00119 'E - FCQW EMPLOYEE TAXABLE WAGES IS INVALID'. CL139
00120 05 EFT060 PIC X(42) VALUE CL119
00121 'E - FTRL TOTAL AMOUNT IS INVALID '. CL139
00122 05 EFT061 PIC X(42) VALUE CL119
00123 'I - FENR CONT NAME INVALID NO T002 CREATED'. CL140
00124 05 EFT062 PIC X(42) VALUE CL119
00125 'E - INPUT FILE CONTAINS BAD HEADER DATE '. CL144
00126 05 EFT063 PIC X(42) VALUE CL119
00127 ' INVALID EMPLOYER NAME ENTERED '. CL119
00128 05 EFT064 PIC X(42) VALUE CL119
00129 'E - FAC9 BATCH COUNT IS NOT NUMERIC (ACH) '. CL141
00130 05 EFT065 PIC X(42) VALUE CL119
00131 'E - FAC9 BATCH COUNT NOT = REC IN FILE '. CL141
00132 05 EFT066 PIC X(42) VALUE CL119
00133 'E - FAC9 BATCH CNT EQUAL ZEROS '. CL141
00134 05 EFT067 PIC X(42) VALUE CL119
00135 'I - FAC9 CREDIT AMT NOT EQ FAC6 TOT CR AMT'. CL143
00136 05 EFT068 PIC X(42) VALUE CL119
00137 ' INVALID QTR - VALID QTRS ARE 1 THRU 4 '. CL119
00138 05 EFT069 PIC X(42) VALUE CL119
00139 ' DSIDERR - TAX MASTER FILE ERROR '. CL119
00140 05 EFT070 PIC X(42) VALUE CL119
00141 ' INVREQ - TAX MASTER FILE ERROR '. CL119
00142 05 EFT071 PIC X(42) VALUE CL119
00143 ' IOERR - TAX MASTER FILE ERROR '. CL119
00144 05 EFT072 PIC X(42) VALUE CL119
00145 ' NOSPACE - TAX MASTER FILE ERROR '. CL119
00146 05 EFT073 PIC X(42) VALUE CL119
00147 ' NOTOPEN - TAX MASTER FILE ERROR '. CL119
00148 05 EFT074 PIC X(42) VALUE CL119
00149 ' ILLOGIC - TAX MASTER FILE ERROR '. CL119
00150 05 EFT075 PIC X(42) VALUE CL119
00151 ' LENGERR - TAX MASTER FILE ERROR '. CL119
00152 05 EFT076 PIC X(42) VALUE CL119
00153 ' NOTAUTH - TAX MASTER FILE ERROR '. CL119
00154 05 EFT077 PIC X(42) VALUE CL119
00155 ' DISABLED - TAX MASTER FILE ERROR '. CL119
00156 05 EFT078 PIC X(42) VALUE CL119
00157 ' YEAR AND QUARTER MUST BE ENTERED '. CL119
00158 05 EFT079 PIC X(42) VALUE CL119
00159 ' FUTURE YEAR/QUARTER NOT VALID '. CL119