00001 IDENTIFICATION DIVISION. 03/08/04 00002 PROGRAM-ID. EFTBI100. EFTBI100 00003 AUTHOR. TRW. LV118 00004 DATE-WRITTEN. APRIL 2002. CL240 00005 DATE-COMPILED. EFTBI100 00006 SKIP3 EFTBI100 00007 ***** EFTBI100 00008 * EFTBI100 00009 * FUNCTION: READ THE ELETRONIC PAYMENT FILE FROM GOVONE CL*91 00010 * AND VALIDATE THE FILE/DATA INTEGGRITY. CL111 00011 * EFTBI100 00012 * MODIFICATION LOG: EFTBI100 00013 * EFTBI100 00014 * 04/22/03 INITIAL DEVELOPMENT CL109 00015 * WORK ORDER: PROGRAMMER: ZL1 CL109 00016 * CL**3 00017 * 99/99/99 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**3 00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**3 00019 * WORK ORDER: PROGRAMMER: XXX CL**3 00020 * EFTBI100 00021 * DESCRIPTION: EFTBI100 00022 * EFTBI100 00023 * INITIATION: EFTBI100 00024 * NONE CL*91 00025 * EFTBI100 00026 * PARAMETERS INPUT: CL*50 00027 * NONE CL*91 00028 * CL*50 00029 * PROCESSING: EFTBI100 00030 * EDIT FILE PAYMENT FILE FROM GOVONE CL217 00031 * EFTBI100 00032 * TERMINATION: EFTBI100 00033 * OUTPUT STATISTICAL RECORDS COUNT. CL*50 00034 * EFTBI100 00035 * RECORDS READ: EFTBI100 00036 * MASTER: CL**3 00037 * MPRF CL111 00038 * CL**3 00039 * ALTERNATE INDEX: EFTBI100 00040 * NONE. EFTBI100 00041 * EFTBI100 00042 * REFERENCE: EFTBI100 00043 * NONE. EFTBI100 00044 * EFTBI100 00045 * RECORDS UPDATED: CL**3 00046 * NONE CL249 00047 * EFTBI100 00048 * REPORT RECORDS WRITTEN: EFTBI100 00049 * R907 ERROR PAYMENT RECORD FROM EDITING FOR REPORTING. CL*91 00050 * CL*50 00051 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: CL241 00052 * PAYMENT TRANSACTION FILE CL109 00053 * REOPRT TRANSACTION FILE (WAGES AND PAYMENTS) CL109 00054 * EFTBI100 00055 * MODULES CALLED: EFTBI100 00056 * DTSBU001 DATE CONVERSION/EDIT. EFTBI100 00057 * DTSBU004 EDIT QTR CL254 00058 * DTSBU017 EDIT FEIN CL254 00059 * DTSBU020 EDIT SSN CL254 00060 * DTSBU021 EDIT TELEPHONE NO. CL254 00061 * DTSBU910 VSAM MASTER FILES I/O. CL*74 00062 * DTSBU927 VARIABLE LENGTH RECORDS BTC OUTPUT. CL*96 00063 * DTSBU947 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 2. CL*91 00064 * EFTBI100 00065 * EFTBI100 00066 ***** EFTBI100 00067 SKIP3 CL*13 00068 ENVIRONMENT DIVISION. EFTBI100 00069 CL*58 00070 INPUT-OUTPUT SECTION. CL*58 00071 CL*58 00072 FILE-CONTROL. CL*58 00073 CL*58 00074 SELECT EFT-GOVONE-INPUT ASSIGN TO GOVONEFT CL109 00075 FILE STATUS IS EFT-STATUS. CL109 00076 CL*70 00077 SELECT EFT-GOVONE-OUTPUT ASSIGN TO EFTTRANS CL*36 00078 FILE STATUS IS DPT-STATUS. CL109 00079 CL109 00080 * SELECT EFT-REPORTS-F907 ASSIGN TO DTSFVRO1 CL*51 00081 * FILE STATUS IS F907-STATUS. CL*51 00082 CL113 00083 * SELECT EFT-REPORTS-R907 ASSIGN TO EFTIR907 CL*52 00084 * FILE STATUS IS R907-STATUS. CL*52 00085 CL125 00086 SELECT EFT-PROCESS-GDG ASSIGN TO EFTIFGDG CL220 00087 FILE STATUS IS RGDG-STATUS. CL220 00088 CL219 00089 DATA DIVISION. CL*13 00090 CL*58 00091 FILE SECTION. CL*58 00092 CL*58 00093 FD EFT-GOVONE-INPUT CL109 00094 RECORDING MODE IS V CL*35 00095 BLOCK CONTAINS 0 RECORDS. CL109 00096 01 RVAR-REC. CL*32 00097 ++INCLUDE EFTIRVAR CL*32 00098 01 GOV1-REC PIC X(2396). CL*94 00099 CL109 00100 FD EFT-GOVONE-OUTPUT CL*36 00101 RECORDING MODE IS V CL109 00102 BLOCK CONTAINS 0 RECORDS. CL109 00103 01 EFT-TRANS-OUT. CL*90 00104 05 EFT-SORT-KEY. CL*90 00105 10 EFT-SORT-TRACE-NO PIC 9(13). CL*90 00106 10 EFT-SORT-TRAN PIC 9(02). CL*90 00107 05 EFT-TRANS-REC PIC X(4074). CL*90 00108 CL109 00109 *FD EFT-REPORTS-R907 CL*52 00110 * RECORDING MODE IS V CL*52 00111 * BLOCK CONTAINS 0 RECORDS. CL*52 00112 *01 R907REC PIC X(4089). CL*52 00113 CL109 00114 *FD EFT-REPORTS-F907 CL*51 00115 * RECORDING MODE IS V CL*51 00116 * BLOCK CONTAINS 0 RECORDS. CL*51 00117 *01 F907REC PIC X(4089). CL*51 00118 CL220 00119 FD EFT-PROCESS-GDG CL220 00120 RECORDING MODE IS V CL*35 00121 BLOCK CONTAINS 0 RECORDS. CL125 00122 01 FGOV-REC. CL219 00123 ++INCLUDE EFTIFGOV CL219 00124 CL125 00125 WORKING-STORAGE SECTION. EFTBI100 001255 77 PAN-VALET PICTURE X(24) VALUE '118EFTBI100 03/08/04'. EFTBI100 00126 CL*40 00127 01 WRK-AREA. EFTBI100 00128 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +100. CL104 00129 05 WRK-MOD-NAME PIC X(08) VALUE 'EFTBI100'. CL109 00130 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. CL196 00131 CL*69 00132 CL109 00133 05 WRK-BTC-WRITE-CNT PIC S9(04) VALUE ZEROS. CL126 00134 05 WRK-EFT-DATA-CNT PIC 9(09) VALUE ZEROS. CL215 00135 05 WRK-DPT-DATA-CNT PIC 9(07) VALUE ZEROS. CL**5 00136 05 WRK-EST-DATA-CNT PIC 9(07) VALUE ZEROS. CL**5 00137 05 WRK-ENR-DATA-CNT PIC 9(07) VALUE ZEROS. CL**5 00138 05 WRK-QTF-DATA-CNT PIC 9(07) VALUE ZEROS. CL**5 00139 05 WRK-CQW-DATA-CNT PIC 9(07) VALUE ZEROS. CL**5 00140 05 EFT-CHAR-CNT PIC 9(04) VALUE ZEROS. CL**4 00141 05 WRK-TRANS-REC-CNT PIC 9(09) VALUE ZEROS. CL133 00142 05 WRK-TRANS-CONT-NAME PIC X(26) VALUE SPACES. CL133 00143 05 WRK-TRANS-TRACE-NO PIC 9(13) VALUE ZEROS. CL133 00144 05 WRK-TRANS-ACCT-NO PIC 9(06) VALUE ZEROS. CL124 00145 05 WRK-TRANS-AMT PIC S9(13)V99 VALUE ZEROS. CL223 00146 05 WRK-TRANS-AMTX REDEFINES WRK-TRANS-AMT PIC X(15). CL*48 00147 05 WRK-TOT-DATA-AMT PIC S9(13)V99 VALUE ZEROS. CL223 00148 05 WRK-FEST-REC-CNT PIC 9(07) VALUE ZEROS. CL*13 00149 05 WRK-FCQW-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00150 05 WRK-FQTF-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00151 05 WRK-FHDR-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00152 05 WRK-FTRL-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00153 05 WRK-FDPT-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00154 05 WRK-FENR-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00155 05 WRK-REC-CNT PIC 9(07) VALUE ZEROS. CL*12 00156 05 PARM-REC-CNT PIC 9(02) VALUE ZEROS. CL123 00157 CL123 00158 05 PARM-EOF-IND PIC X(01). CL123 00159 CL109 00160 05 EFT-STATUS PIC X(02). CL*58 00161 88 EFT-STATUS-OK-88 VALUE '00'. CL109 00162 88 EFT-NO-REC-88 VALUE '10'. CL109 00163 CL*90 00164 05 DPT-STATUS PIC X(02). CL109 00165 88 DPT-STATUS-OK-88 VALUE '00'. CL109 00166 CL**1 00167 05 EST-STATUS PIC X(02). CL**1 00168 88 EST-STATUS-OK-88 VALUE '00'. CL**2 00169 CL**1 00170 05 CQW-STATUS PIC X(02). CL**1 00171 88 CQW-STATUS-OK-88 VALUE '00'. CL**1 00172 CL**1 00173 05 QTF-STATUS PIC X(02). CL**1 00174 88 QTF-STATUS-OK-88 VALUE '00'. CL**1 00175 CL126 00176 05 F907-STATUS PIC X(02). CL128 00177 88 F907-STATUS-OK-88 VALUE '00'. CL128 00178 CL128 00179 05 R907-STATUS PIC X(02). CL128 00180 88 R907-STATUS-OK-88 VALUE '00'. CL128 00181 CL219 00182 05 RGDG-STATUS PIC X(02). CL220 00183 88 RGDG-STATUS-OK-88 VALUE '00'. CL220 00184 CL219 00185 05 ENR-STATUS PIC X(02). CL129 00186 88 ENR-STATUS-OK-88 VALUE '00'. CL129 00187 CL219 00188 05 RPT-STATUS PIC X(02). CL109 00189 88 RPT-STATUS-OK-88 VALUE '00'. CL109 00190 CL109 00191 05 WRK-EFT-EOF-IND PIC X(01) VALUE SPACES. CL196 00192 05 WRK-TRACE-IND PIC X(01) VALUE SPACES. CL*90 00193 05 HOLD-REC-TYPE PIC X(02) VALUE SPACES. CL163 00194 05 HOLD-FHDR-TYPE PIC X(02) VALUE SPACES. CL163 00195 05 HOLD-FTRL-TYPE PIC X(02) VALUE SPACES. CL187 00196 CL*58 00197 05 WRK-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. CL*59 00198 05 WRK-SUM-SSN-WAGES-AMT PIC S9(07)V99 VALUE +0. CL*59 00199 05 WRK-TOTAL-WAGES-AMT PIC S9(09)V99 VALUE +0. CL*59 00200 05 WRK-SSN-HOLD PIC S9(09) COMP-3 VALUE +0. CL*58 00201 CL*98 00202 05 DISP-DATE PIC X(10) VALUE SPACES. CL*92 00203 05 DISP-TIME PIC X(08) VALUE SPACES. CL*92 00204 05 WRK-SYS-TIME PIC X(06) VALUE SPACES. CL*92 00205 05 WRK-SYS-DATE PIC X(08) VALUE SPACES. CL*92 00206 05 WRK-CURR-YR PIC 9(04) VALUE ZEROS. CL*92 00207 05 WRK-EMAIL-CNT PIC 9(04) VALUE ZEROS. CL249 00208 CL*89 00209 05 WRK-MSG-TEXT PIC X(80) VALUE SPACES. CL*81 00210 05 WRK-PREV-EMP-NO PIC 9(06) VALUE 0. CL163 00211 05 WRK-TRANS-EMP-NO PIC 9(06) VALUE 0. CL130 00212 05 WRK-TOT-EFT-READ-CNT PIC S9(07) COMP-3 VALUE +0. CL187 00213 05 WRK-EFT-READ-CNT PIC 9(09) VALUE ZEROS. CL215 00214 05 WRK-DPT-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL113 00215 05 WRK-ENR-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL129 00216 05 WRK-R907-REC-CNT PIC S9(07) COMP-3 VALUE +0. CL*80 00217 05 WRK-F907-REC-CNT PIC S9(07) COMP-3 VALUE +0. CL126 00218 05 WRK-PAYMENT-AMOUNT PIC S9(07)V99 VALUE +0. CL108 00219 CL*13 00220 05 VALID-TRANS-DATE-IND PIC X(01). CL122 00221 88 VALID-TRANS-DATE-YES-88 VALUE 'Y'. CL122 00222 88 VALID-TRANS-DATE-NO-88 VALUE 'N'. CL122 00223 CL*76 00224 05 VALID-TRANS-CONT-NAME-IND PIC X(01). CL131 00225 88 VALID-TRANS-CONT-NAME-YES-88 VALUE 'Y'. CL132 00226 88 VALID-TRANS-CONT-NAME-NO-88 VALUE 'N'. CL132 00227 CL131 00228 05 VALID-TRANS-CONT-FONE-IND PIC X(01). CL131 00229 88 VALID-TRANS-CONT-FONE-YES-88 VALUE 'Y'. CL133 00230 88 VALID-TRANS-CONT-FONE-NO-88 VALUE 'N'. CL133 00231 CL131 00232 05 VALID-TRANS-TIME-IND PIC X(01). CL122 00233 88 VALID-TRANS-TIME-YES-88 VALUE 'Y'. CL122 00234 88 VALID-TRANS-TIME-NO-88 VALUE 'N'. CL122 00235 CL122 00236 05 VALID-TRANS-AMT-IND PIC X(01). CL122 00237 88 VALID-TRANS-AMT-YES-88 VALUE 'Y'. CL122 00238 88 VALID-TRANS-AMT-NO-88 VALUE 'N'. CL122 00239 CL122 00240 05 VALID-TRANS-REC-CNT-IND PIC X(01). CL122 00241 88 VALID-TRANS-REC-CNT-YES-88 VALUE 'Y'. CL122 00242 88 VALID-TRANS-REC-CNT-NO-88 VALUE 'N'. CL122 00243 CL123 00244 05 VALID-TRANS-ACCOUNT-IND PIC X(01). CL123 00245 88 VALID-TRANS-ACCOUNT-YES-88 VALUE 'Y'. CL123 00246 88 VALID-TRANS-ACCOUNT-NO-88 VALUE 'N'. CL123 00247 CL123 00248 05 VALID-TRANS-TRACE-IND PIC X(01). CL123 00249 88 VALID-TRANS-TRACE-YES-88 VALUE 'Y'. CL123 00250 88 VALID-TRANS-TRACE-NO-88 VALUE 'N'. CL123 00251 CL123 00252 05 VALID-TRANS-EMAIL-IND PIC X(01). CL238 00253 88 VALID-TRANS-EMAIL-YES-88 VALUE 'Y'. CL238 00254 88 VALID-TRANS-EMAIL-NO-88 VALUE 'N'. CL238 00255 CL238 00256 05 VALID-TRANS-PHONE-IND PIC X(01). CL238 00257 88 VALID-TRANS-PHONE-YES-88 VALUE 'Y'. CL238 00258 88 VALID-TRANS-PHONE-NO-88 VALUE 'N'. CL238 00259 CL239 00260 05 VALID-TRANS-FAX-IND PIC X(01). CL249 00261 88 VALID-TRANS-FAX-YES-88 VALUE 'Y'. CL249 00262 88 VALID-TRANS-FAX-NO-88 VALUE 'N'. CL249 00263 CL249 00264 05 VALID-TRANS-RPT-IND PIC X(01). CL249 00265 88 VALID-TRANS-RPT-YES-88 VALUE 'Y'. CL249 00266 88 VALID-TRANS-RPT-NO-88 VALUE 'N'. CL249 00267 CL249 00268 05 VALID-TRANS-SSN-IND PIC X(01). CL249 00269 88 VALID-TRANS-SSN-YES-88 VALUE 'Y'. CL249 00270 88 VALID-TRANS-SSN-NO-88 VALUE 'N'. CL249 00271 CL249 00272 05 VALID-TRANS-QTR-IND PIC X(01). CL249 00273 88 VALID-TRANS-QTR-YES-88 VALUE 'Y'. CL249 00274 88 VALID-TRANS-QTR-NO-88 VALUE 'N'. CL249 00275 CL249 00276 05 VALID-TRANS-FEIN-IND PIC X(01). CL249 00277 88 VALID-TRANS-FEIN-YES-88 VALUE 'Y'. CL249 00278 88 VALID-TRANS-FEIN-NO-88 VALUE 'N'. CL249 00279 CL238 00280 05 VALID-FDPT-REC-IND PIC X(01). CL123 00281 88 VALID-FDPT-REC-YES-88 VALUE 'Y'. CL123 00282 88 VALID-FDPT-REC-NO-88 VALUE 'N'. CL123 00283 CL123 00284 05 VALID-FENR-REC-IND PIC X(01). CL131 00285 88 VALID-FENR-REC-YES-88 VALUE 'Y'. CL131 00286 88 VALID-FENR-REC-NO-88 VALUE 'N'. CL131 00287 CL131 00288 05 VALID-FHDR-REC-IND PIC X(01). CL123 00289 88 VALID-FHDR-REC-YES-88 VALUE 'Y'. CL123 00290 88 VALID-FHDR-REC-NO-88 VALUE 'N'. CL123 00291 CL123 00292 CL233 00293 05 VALID-FEST-REC-IND PIC X(01). CL233 00294 88 VALID-FEST-REC-YES-88 VALUE 'Y'. CL233 00295 88 VALID-FEST-REC-NO-88 VALUE 'N'. CL233 00296 CL233 00297 05 VALID-FCQW-REC-IND PIC X(01). CL233 00298 88 VALID-FCQW-REC-YES-88 VALUE 'Y'. CL233 00299 88 VALID-FCQW-REC-NO-88 VALUE 'N'. CL233 00300 CL233 00301 05 VALID-FQTF-REC-IND PIC X(01). CL249 00302 88 VALID-FQTF-REC-YES-88 VALUE 'Y'. CL249 00303 88 VALID-FQTF-REC-NO-88 VALUE 'N'. CL249 00304 CL233 00305 05 VALID-FTRL-REC-IND PIC X(01). CL123 00306 88 VALID-FTRL-REC-YES-88 VALUE 'Y'. CL123 00307 88 VALID-FTRL-REC-NO-88 VALUE 'N'. CL123 00308 CL130 00309 01 WRK-QTR PIC X(05). CL*75 00310 01 WRK-QTR-9 REDEFINES WRK-QTR CL*75 00311 PIC 9(05). CL*75 00312 01 WRK-QTR-CCYYQ REDEFINES WRK-QTR-9. CL*75 00313 10 WRK-QTR-CCYY PIC 9(04). CL*75 00314 10 WRK-QTR-Q PIC 9(01). CL*75 00315 CL*75 00316 01 WRK-TRANS-DATE PIC X(08). CL116 00317 01 WRK-TRANS-DATE-9 REDEFINES WRK-TRANS-DATE CL116 00318 PIC 9(08). CL116 00319 01 WRK-TRANS-CCYYMMDD REDEFINES WRK-TRANS-DATE-9. CL116 00320 10 WRK-DATE-CCYY PIC 9(04). CL116 00321 10 WRK-DATE-MM PIC 9(02). CL116 00322 10 WRK-DATE-DD PIC 9(02). CL116 00323 CL*84 00324 01 WRK-SYS-PARM-RUN-DATE PIC X(08). CL116 00325 01 WRK-SYS-PARM-RUN-DATE-9 REDEFINES WRK-SYS-PARM-RUN-DATE CL116 00326 PIC 9(08). CL116 00327 01 WRK-SYS-PARM-DATE REDEFINES WRK-SYS-PARM-RUN-DATE-9. CL238 00328 10 WRK-SYS-PARM-DATE-CCYY PIC 9(04). CL247 00329 10 WRK-SYS-PARM-DATE-MM PIC 9(02). CL116 00330 10 WRK-SYS-PARM-DATE-DD PIC 9(02). CL116 00331 CL116 00332 01 WRK-SYS-CURR-QTR PIC 9(05). CL*73 00333 * 10 WRK-SYS-PARM-QTR1 PIC 9(04). CL*73 00334 * 10 WRK-SYS-PARM-QTR2 PIC 9(01). CL*73 00335 CL243 00336 01 WRK-EMPL-SSN. CL251 00337 10 WRK-EMPL-SSN1 PIC X(03). CL251 00338 10 WRK-EMPL-SSN2 PIC X(02). CL251 00339 10 WRK-EMPL-SSN3 PIC X(04). CL251 00340 CL251 00341 01 WRK-HDR-TRANS-DATE PIC X(08). CL220 00342 01 WRK-HDR-TRANS-DATE-9 REDEFINES WRK-HDR-TRANS-DATE CL220 00343 PIC 9(08). CL220 00344 01 WRK-HDR-TRAN-CCYYMMDD REDEFINES WRK-HDR-TRANS-DATE-9. CL220 00345 10 WRK-HDR-TRAN-DATE-CCYY PIC 9(04). CL220 00346 10 WRK-HDR-TRAN-DATE-MM PIC 9(02). CL220 00347 10 WRK-HDR-TRAN-DATE-DD PIC 9(02). CL220 00348 CL220 00349 01 WRK-GOV-PARM-RUN-DATE PIC X(08). CL220 00350 01 WRK-GOV-PARM-RUN-DATE-9 REDEFINES WRK-GOV-PARM-RUN-DATE CL220 00351 PIC 9(08). CL220 00352 01 WRK-GOV-PARM-CCYYMMDD REDEFINES WRK-GOV-PARM-RUN-DATE-9. CL220 00353 10 WRK-GOV-PARM-DATE-CCYY PIC 9(04). CL220 00354 10 WRK-GOV-PARM-DATE-MM PIC 9(02). CL220 00355 10 WRK-GOV-PARM-DATE-DD PIC 9(02). CL220 00356 CL220 00357 01 WRK-TRANS-TIME PIC X(06). CL122 00358 01 WRK-TRANS-TIME-9 REDEFINES WRK-TRANS-TIME CL122 00359 PIC 9(06). CL*85 00360 01 WRK-TRANS-HHMMSS REDEFINES WRK-TRANS-TIME-9. CL122 00361 10 WRK-TRANS-TIME-HH PIC 9(02). CL122 00362 10 WRK-TRANS-TIME-MM PIC 9(02). CL122 00363 10 WRK-TRANS-TIME-SS PIC 9(02). CL122 00364 CL113 00365 01 WS-FENR-REC. CL213 00366 10 WS-FENR-LENGTH PIC S9(04) COMP. CL213 00367 10 WS-FENR-DATA PIC X(503). CL213 00368 CL113 00369 01 WS-FDPT-REC. CL230 00370 10 WS-FDPT-LENGTH PIC S9(04) COMP. CL230 00371 10 WS-FDPT-DATA PIC X(503). CL230 00372 CL230 00373 01 WS-FEST-REC. CL251 00374 10 WS-FEST-LENGTH PIC S9(04) COMP. CL251 00375 10 WS-FEST-DATA PIC X(503). CL251 00376 CL251 00377 01 WS-FQTF-REC. CL251 00378 10 WS-FQTF-LENGTH PIC S9(04) COMP. CL251 00379 10 WS-FQTF-DATA PIC X(503). CL251 00380 CL251 00381 01 WS-FCQW-REC. CL251 00382 10 WS-FCQW-LENGTH PIC S9(04) COMP. CL251 00383 10 WS-FCQW-DATA PIC X(503). CL251 00384 CL251 00385 01 WRK-AREA. CL236 00386 05 WRK-FEIN-X. CL236 00387 10 WRK-FEIN-1 PIC X(02). CL236 00388 10 WRK-FEIN-2 PIC X(07). CL236 00389 05 WRK-FEIN-9 REDEFINES WRK-FEIN-X PIC 9(09). CL236 00390 CL*91 00391 01 ZSKL-REC PIC X(2396) VALUE SPACES. CL*94 00392 CL*94 00393 01 RSKL-REC. CL*94 00394 ++INCLUDE EFTIRSKL CL*91 00395 CL113 00396 01 EFT-ERR-MSGS. CL163 00397 ++INCLUDE EFTERMSG CL123 00398 CL123 00399 01 FDPT-REC. CL103 00400 ++INCLUDE EFTIFDPT CL103 00401 SKIP3 CL*58 00402 01 FENR-REC. CL129 00403 ++INCLUDE EFTIFENR CL129 00404 SKIP3 CL109 00405 01 FHDR-REC. CL123 00406 ++INCLUDE EFTIFHDR CL123 00407 SKIP3 CL123 00408 01 FEST-REC. CL233 00409 ++INCLUDE EFTIFEST CL233 00410 SKIP3 CL233 00411 01 FQTF-REC. CL249 00412 ++INCLUDE EFTIFQTF CL251 00413 SKIP3 CL233 00414 01 FCQW-REC. CL233 00415 ++INCLUDE EFTIFCQW CL233 00416 SKIP3 CL233 00417 01 FTRL-REC. CL123 00418 ++INCLUDE EFTIFTRL CL123 00419 SKIP3 CL123 00420 01 L001-LINK-AREA. EFTBI100 00421 ++INCLUDE DTSIL001 EFTBI100 00422 EJECT EFTBI100 00423 01 L004-LINK-AREA. CL*24 00424 ++INCLUDE DTSIL004 CL*24 00425 EJECT CL*24 00426 01 L005-COMM-AREA. CL*61 00427 ++INCLUDE DTSIL005 CL*61 00428 EJECT CL233 00429 01 L017-LINK-AREA. CL237 00430 ++INCLUDE DTSIL017 CL237 00431 EJECT CL237 00432 01 L020-LINK-AREA. CL237 00433 ++INCLUDE DTSIL020 CL237 00434 EJECT CL100 00435 01 L021-LINK-AREA. CL233 00436 ++INCLUDE DTSIL021 CL233 00437 EJECT CL233 00438 01 L927-LINK-AREA. CL*94 00439 ++INCLUDE DTSIL927 CL*94 00440 EJECT CL100 00441 01 L910-LINK-AREA. CL*94 00442 ++INCLUDE DTSIL910 CL*94 00443 EJECT CL*94 00444 01 MSKL-REC. CL*70 00445 ++INCLUDE DTSIMSKL CL*70 00446 EJECT CL*70 00447 01 MHDR-REC. CL*73 00448 ++INCLUDE DTSIMHDR CL*73 00449 EJECT CL*73 00450 01 MPRF-REC. CL*70 00451 ++INCLUDE DTSIMPRF CL*70 00452 EJECT CL*70 00453 01 R907-REC. CL139 00454 ++INCLUDE DTSIR907 CL141 00455 01 F907-REC. CL139 00456 ++INCLUDE EFTIF907 CL140 00457 CL139 00458 PROCEDURE DIVISION. CL113 00459 CL*62 00460 PERFORM I0000-INITIALIZE THRU I0000-EXIT. CL*16 00461 PERFORM I1000-EDIT-PARMS THRU I1000-EXIT. CL112 00462 CL*72 00463 MOVE 'N' TO WRK-EFT-EOF-IND. CL101 00464 PERFORM P0000-PROCESS THRU P0000-EXIT CL101 00465 UNTIL WRK-EFT-EOF-IND = 'Y'. CL*72 00466 CL*72 00467 PERFORM T0000-TERMINATE THRU T0000-EXIT. CL**6 00468 CL*62 00469 GOBACK. EFTBI100 00470 EJECT EFTBI100 00471 I0000-INITIALIZE. EFTBI100 00472 MOVE ZERO TO WRK-EFT-READ-CNT CL109 00473 WRK-TOT-EFT-READ-CNT CL186 00474 WRK-FDPT-REC-CNT CL186 00475 WRK-FHDR-REC-CNT CL194 00476 WRK-FTRL-REC-CNT CL194 00477 WRK-FEST-REC-CNT CL243 00478 WRK-FCQW-REC-CNT CL243 00479 WRK-FTRL-REC-CNT CL243 00480 WRK-FQTF-REC-CNT CL252 00481 WRK-PREV-EMP-NO CL214 00482 WRK-TRANS-EMP-NO. CL214 00483 CL109 00484 PERFORM I1000-EDIT-PARMS THRU I1000-EXIT. CL113 00485 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. CL*78 00486 PERFORM I3000-HDR-DATE THRU I3000-EXIT. CL*78 00487 CL*63 00488 I0000-EXIT. EFTBI100 00489 EXIT. EFTBI100 00490 CL107 00491 I1000-EDIT-PARMS. CL113 00492 CL113 00493 CL219 00494 OPEN INPUT EFT-PROCESS-GDG. CL220 00495 IF RGDG-STATUS-OK-88 CL220 00496 NEXT SENTENCE CL219 00497 ELSE CL219 00498 DISPLAY 'OPEN ERROR ON READING GDG FILE ' RGDG-STATUS CL220 00499 PERFORM S999-ABEND THRU S999-EXIT. CL219 00500 CL219 00501 CL113 00502 MOVE 'N' TO PARM-EOF-IND. CL113 00503 CL113 00504 MOVE +0 TO PARM-REC-CNT. CL113 00505 CL198 00506 PERFORM I1100-READ-PARM THRU I1100-EXIT CL113 00507 UNTIL PARM-EOF-IND = 'Y'. CL113 00508 CL113 00509 IF PARM-REC-CNT < 1 CL113 00510 DISPLAY '** PARM RECORD MISSING OR INCORRECT !!!! ' CL114 00511 PERFORM S999-ABEND THRU S999-EXIT. CL113 00512 CL113 00513 CLOSE EFT-PROCESS-GDG. CL220 00514 I1000-EXIT. CL113 00515 EXIT. CL113 00516 CL113 00517 I1100-READ-PARM. CL113 00518 CL196 00519 READ EFT-PROCESS-GDG CL220 00520 AT END CL113 00521 GO TO I1100-EXIT. CL113 00522 CL113 00523 MOVE 'Y' TO PARM-EOF-IND. CL160 00524 CL113 00525 IF NOT FGOV-TYPE-VALID-88 CL219 00526 DISPLAY '*** INVALID RECORD IN GDG ' FGOV-TYPE CL219 00527 GO TO I1100-EXIT. CL113 00528 CL113 00529 CL219 00530 IF NOT FGOV-SUB-TYPE-HEADER-88 CL219 00531 DISPLAY '*IST REC IS NOT HDR IN GEG ' FGOV-TYPE CL219 00532 GO TO I1100-EXIT. CL219 00533 CL219 00534 CL218 00535 MOVE FGOV-CREATE-DATE TO L001-FED-8-DATE-X. CL219 00536 PERFORM S001-FROM-FED-8 THRU S001-EXIT CL114 00537 CL113 00538 CL218 00539 IF L001-INVALID-DATE CL116 00540 DISPLAY '*** INVALID GDG TRANSACTION DATE ' CL219 00541 DISPLAY '*** ' L001-FED-8-DATE-X CL219 00542 GO TO I1100-EXIT CL120 00543 ELSE CL116 00544 MOVE L001-FED-8-DATE-X TO WRK-GOV-PARM-RUN-DATE CL229 00545 DISPLAY 'LAST GOV1 FILE USED-' WRK-GOV-PARM-RUN-DATE. CL100 00546 CL219 00547 ADD +1 TO PARM-REC-CNT. CL219 00548 CL113 00549 I1100-EXIT. CL113 00550 EXIT. CL113 00551 CL113 00552 CL**1 00553 I2000-OPEN-FILES. CL*78 00554 CL*58 00555 MOVE 'N' TO WRK-TRACE-IND. CL*72 00556 MOVE WRK-TRACE-IND TO L910-TRACE-IND. CL*72 00557 MOVE LENGTH OF R907-REC TO R907-LENGTH. CL*81 00558 MOVE LENGTH OF F907-REC TO F907-LENGTH. CL126 00559 CL*72 00560 MOVE WRK-MOD-NAME TO L910-MOD-NAME. CL*72 00561 PERFORM S910-OPEN-READ THRU S910-EXIT. CL*72 00562 CL*93 00563 OPEN INPUT EFT-GOVONE-INPUT. CL110 00564 IF EFT-STATUS-OK-88 CL*72 00565 NEXT SENTENCE CL*72 00566 ELSE CL*72 00567 DISPLAY 'OPEN ERROR ON GOVONE INPUT FILE ** ' EFT-STATUS CL110 00568 PERFORM S999-ABEND THRU S999-EXIT. CL*72 00569 CL*72 00570 OPEN OUTPUT EFT-GOVONE-OUTPUT. CL*52 00571 IF DPT-STATUS-OK-88 CL*52 00572 NEXT SENTENCE CL*52 00573 ELSE CL*52 00574 DISPLAY 'OPEN ERROR ON GOVONE FILE ** ' DPT-STATUS CL*52 00575 PERFORM S999-ABEND THRU S999-EXIT. CL*52 00576 CL110 00577 MOVE '035' TO F907-MSG-ID CL*52 00578 MOVE EFT035 TO F907-MSG-TEXT CL*52 00579 MOVE ZEROS TO F907-EMP-NO CL*52 00580 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*52 00581 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL*53 00582 CL254 00583 * OPEN OUTPUT EFT-REPORTS-R907. CL*52 00584 * IF R907-STATUS-OK-88 CL*52 00585 * NEXT SENTENCE CL*52 00586 * ELSE CL*52 00587 * DISPLAY 'OPEN ERROR ON DTSIR907 FILE ** ' R907-STATUS CL*52 00588 * PERFORM S999-ABEND THRU S999-EXIT. CL*52 00589 CL126 00590 * OPEN OUTPUT EFT-REPORTS-F907. CL*51 00591 * IF F907-STATUS-OK-88 CL*51 00592 * NEXT SENTENCE CL*51 00593 * ELSE CL*51 00594 * DISPLAY 'OPEN ERROR ON EFTIF907 FILE ** ' F907-STATUS CL*51 00595 * PERFORM S999-ABEND THRU S999-EXIT. CL*51 00596 CL110 00597 I2000-EXIT. CL*78 00598 EXIT. CL*58 00599 CL*58 00600 I3000-HDR-DATE. CL*78 00601 MOVE LOW-VALUES TO MSKL-REC. CL*78 00602 CL*78 00603 MOVE +0 TO MSKL-EMP-NO. CL*78 00604 CL*78 00605 SET MSKL-HDR-88 TO TRUE. CL*78 00606 CL*78 00607 PERFORM S910-READ THRU S910-EXIT. CL*78 00608 CL*78 00609 IF L910-NO-REC-88 CL*78 00610 DISPLAY 'EFTBI100: MHDR RECORD IS MISSING' CL*78 00611 PERFORM S999-ABEND THRU S999-EXIT CL*78 00612 ELSE CL*78 00613 MOVE MSKL-REC TO MHDR-REC CL*78 00614 MOVE MHDR-CURR-RUN-DATE TO L001-FED-8-DATE-9. CL*78 00615 CL*78 00616 MOVE L001-FED-8-YR TO WRK-SYS-PARM-DATE-CCYY. CL*78 00617 MOVE L001-FED-8-MO TO WRK-SYS-PARM-DATE-MM. CL*78 00618 MOVE L001-FED-8-DA TO WRK-SYS-PARM-DATE-DD. CL*78 00619 DISPLAY ' CURR WRK-SYS-PARM-RUN-DATE ' WRK-SYS-PARM-RUN-DATE. CL*79 00620 CL*78 00621 MOVE L001-FED-8-DATE-9 TO L004-DATE. CL*78 00622 PERFORM S004-FROM-DATE THRU S004-EXIT. CL*78 00623 SUBTRACT +1 FROM L004-ABS-QTR. CL*78 00624 PERFORM S004-FROM-ABS THRU S004-EXIT. CL*78 00625 MOVE L004-QTR-5-9 TO WRK-SYS-CURR-QTR. CL*78 00626 ** MOVE L005-DATE-8-YR TO WRK-SYS-PARM-QTR1. CL*78 00627 * IF L005-DATE-8-MO < 4 CL*78 00628 * MOVE 1 TO WRK-SYS-PARM-QTR2 CL*78 00629 * ELSE CL*78 00630 * IF L005-DATE-8-MO > 3 AND < 7 CL*78 00631 * MOVE 2 TO WRK-SYS-PARM-QTR2 CL*78 00632 * ELSE CL*78 00633 * IF L005-DATE-8-MO > 6 AND < 10 CL*78 00634 * MOVE 3 TO WRK-SYS-PARM-QTR2 CL*78 00635 * ELSE CL*78 00636 * MOVE 4 TO WRK-SYS-PARM-QTR2. CL*78 00637 CL*78 00638 DISPLAY ' CURRENT YEAR/QTR ' WRK-SYS-CURR-QTR. CL*78 00639 CL*78 00640 I3000-EXIT. CL*78 00641 EXIT. CL*78 00642 ************************************************************** EFTBI100 00643 * READ THE ELECTRONIC PAYMENT FILE FROM GOVONE AND CHECK * CL*90 00644 * THE HEADER AND TRAILER RECORDS. * CL*90 00645 ************************************************************** EFTBI100 00646 EFTBI100 00647 P0000-PROCESS. EFTBI100 00648 EFTBI100 00649 MOVE SPACES TO RSKL-REC ZSKL-REC. CL*94 00650 CL*91 00651 READ EFT-GOVONE-INPUT INTO ZSKL-REC CL*94 00652 AT END CL*72 00653 MOVE 'Y' TO WRK-EFT-EOF-IND CL*72 00654 GO TO P0000-EXIT. CL*72 00655 CL129 00656 MOVE ZSKL-REC TO RSKL-REC. CL*92 00657 * COMPUTE EFT-CHAR-CNT = RVAR-LENGTH OF RVAR-REC - 2. CL210 00658 CL129 00659 IF RSKL-TYPE-VALID-TRANS CL152 00660 NEXT SENTENCE CL152 00661 ELSE CL152 00662 PERFORM S1000-INVALID-TRANS THRU S1000-EXIT CL114 00663 GO TO P0000-EXIT. CL114 00664 CL100 00665 ADD +1 TO WRK-EFT-READ-CNT. CL100 00666 IF WRK-EFT-READ-CNT = 1 AND CL137 00667 NOT RSKL-SUB-TYPE-HEADER-88 CL161 00668 DISPLAY '**** 1ST REC IS NOT A HDR REC ' RSKL-REC CL161 00669 DISPLAY '**** PROGRAM TERMINATED **** ' CL161 00670 MOVE 'Y' TO WRK-EFT-EOF-IND CL161 00671 PERFORM S999-ABEND THRU S999-EXIT CL211 00672 GO TO P0000-EXIT CL161 00673 ELSE CL161 00674 MOVE RSKL-REC-TYPE TO HOLD-REC-TYPE. CL163 00675 CL115 00676 IF RSKL-SUB-TYPE-HEADER-88 CL117 00677 PERFORM P1000-VALIDATE-HDR-TRANS THRU P1000-EXIT CL122 00678 ELSE CL115 00679 IF RSKL-SUB-TYPE-TRAILER-88 CL156 00680 PERFORM P8000-VALIDATE-TRL-TRANS THRU P8000-EXIT CL156 00681 ELSE CL156 00682 IF RSKL-TYPE-STATUS-CHANGE-88 CL*41 00683 PERFORM P2000-EMP-STATUS THRU P2000-EXIT CL118 00684 ELSE CL114 00685 IF RSKL-TYPE-QTR-TAX-RPT-88 CL114 00686 PERFORM P3000-QTR-TAX-RPT THRU P3000-EXIT CL118 00687 ELSE CL114 00688 IF RSKL-TYPE-ANN-TAX-RPT-88 CL114 00689 PERFORM P4000-ANN-TAX-RPT THRU P4000-EXIT CL118 00690 ELSE CL114 00691 IF RSKL-TYPE-PAYMENT-88 CL114 00692 PERFORM P5000-VALIDATE-DPT-TRANS THRU P5000-EXIT CL122 00693 ELSE CL114 00694 IF RSKL-TYPE-WAGE-IMP-88 CL114 00695 PERFORM P6000-WAGE-RECORD THRU P6000-EXIT CL249 00696 ELSE CL114 00697 IF RSKL-TYPE-ENROLL-88 CL133 00698 PERFORM P7000-VALIDATE-ENR-TRANS THRU P7000-EXIT CL131 00699 ELSE CL115 00700 DISPLAY ' !!INVALID TRANS REC/TYPE ' RSKL-REC-TYPE CL115 00701 PERFORM S1000-INVALID-TRANS THRU S1000-EXIT. CL115 00702 CL115 00703 CL**8 00704 P0000-EXIT. EFTBI100 00705 EXIT. EFTBI100 00706 CL*72 00707 CL118 00708 P1000-VALIDATE-HDR-TRANS. CL122 00709 SET VALID-TRANS-DATE-YES-88 TO TRUE. CL122 00710 SET VALID-FHDR-REC-YES-88 TO TRUE. CL118 00711 MOVE RSKL-REC TO FHDR-REC CL153 00712 DISPLAY ' **** P1000 HDR ' FHDR-REC. CL154 00713 ADD +1 TO WRK-FHDR-REC-CNT. CL193 00714 MOVE FHDR-CREATE-DATE TO WRK-TRANS-DATE CL247 00715 CL161 00716 PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT. CL118 00717 CL118 00718 IF VALID-TRANS-DATE-NO-88 CL120 00719 SET VALID-FHDR-REC-NO-88 TO TRUE CL120 00720 MOVE '005' TO F907-MSG-ID CL162 00721 MOVE EFT005 TO F907-MSG-TEXT CL162 00722 MOVE ZEROS TO F907-EMP-NO CL162 00723 PERFORM S946-WRITE-F907 THRU S946-EXIT CL162 00724 DISPLAY '!!!!! BAD HEADER RECORD ++++++' CL120 00725 DISPLAY FHDR-REC CL*54 00726 DISPLAY 'WRK-DATE ' WRK-TRANS-DATE CL*60 00727 DISPLAY 'HDR-DATE ' FHDR-CREATE-DATE CL*60 00728 MOVE 'Y' TO WRK-EFT-EOF-IND CL161 00729 PERFORM S999-ABEND THRU S999-EXIT CL207 00730 GO TO P1000-EXIT CL120 00731 END-IF. CL118 00732 CL120 00733 P1000-EXIT. CL118 00734 EXIT. CL118 00735 CL118 00736 P2000-EMP-STATUS. CL118 00737 CL233 00738 SET VALID-FEST-REC-YES-88 TO TRUE. CL*68 00739 SET VALID-TRANS-EMAIL-YES-88 TO TRUE. CL*68 00740 SET VALID-TRANS-PHONE-YES-88 TO TRUE. CL*68 00741 SET VALID-TRANS-FAX-YES-88 TO TRUE. CL*68 00742 SET VALID-TRANS-CONT-NAME-YES-88 TO TRUE. CL*68 00743 SET VALID-TRANS-DATE-YES-88 TO TRUE. CL*68 00744 SET VALID-TRANS-ACCOUNT-YES-88 TO TRUE. CL*68 00745 SET VALID-TRANS-FEIN-YES-88 TO TRUE. CL*68 00746 CL*72 00747 MOVE RSKL-REC TO FEST-REC CL*68 00748 ADD +1 TO WRK-EST-DATA-CNT. CL*68 00749 CL233 00750 MOVE FEST-EMP-NO TO WRK-TRANS-EMP-NO. CL*68 00751 PERFORM S7000-EDIT-ACCOUNT-NO THRU S7000-EXIT. CL*68 00752 IF VALID-TRANS-ACCOUNT-NO-88 CL233 00753 SET VALID-FEST-REC-NO-88 TO TRUE. CL*68 00754 CL233 00755 * PERFORM S7400-DUP-EMP-NO THRU S7400-EXIT. CL*97 00756 * IF VALID-TRANS-ACCOUNT-NO-88 CL*97 00757 * SET VALID-FEST-REC-NO-88 TO TRUE. CL*97 00758 CL233 00759 IF FEST-BUSINESS-PHONE = SPACES OR LOW-VALUES OR ZEROS CL117 00760 NEXT SENTENCE CL117 00761 ELSE CL117 00762 PERFORM S2100-EDIT-FEST-FONE THRU S2100-EXIT CL*71 00763 IF VALID-TRANS-PHONE-NO-88 CL*71 00764 MOVE '041' TO F907-MSG-ID CL101 00765 MOVE EFT041 TO F907-MSG-TEXT CL101 00766 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL117 00767 * SET VALID-FEST-REC-NO-88 TO TRUE. CL117 00768 CL*71 00769 MOVE FEST-CONTACT-NAME TO WRK-TRANS-CONT-NAME CL*68 00770 PERFORM S2000-EDIT-CONT-NAME THRU S2000-EXIT CL*68 00771 * IF VALID-TRANS-CONT-NAME-NO-88 CL117 00772 * SET VALID-FEST-REC-NO-88 TO TRUE. CL117 00773 CL248 00774 IF FEST-FAX = SPACES OR LOW-VALUES OR ZEROS CL117 00775 NEXT SENTENCE CL*71 00776 ELSE CL*71 00777 PERFORM S2100-EDIT-FEST-FAX THRU S2100-EXIT CL*71 00778 IF VALID-TRANS-FAX-NO-88 CL*71 00779 MOVE '042' TO F907-MSG-ID CL101 00780 MOVE EFT042 TO F907-MSG-TEXT CL101 00781 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL117 00782 * SET VALID-FEST-REC-NO-88 TO TRUE. CL117 00783 CL248 00784 IF FEST-EMAIL-ADDRESS > SPACES CL*20 00785 PERFORM S2400-EDIT-EMAIL THRU S2400-EXIT. CL117 00786 * IF VALID-TRANS-EMAIL-NO-88 CL117 00787 * SET VALID-FEST-REC-NO-88 TO TRUE. CL117 00788 CL*20 00789 SET VALID-TRANS-DATE-YES-88 TO TRUE. CL*68 00790 CL*71 00791 IF FEST-SALE-DATE NOT NUMERIC CL*77 00792 MOVE '047' TO F907-MSG-ID CL107 00793 MOVE EFT047 TO F907-MSG-TEXT CL107 00794 MOVE ZEROS TO F907-EMP-NO CL*77 00795 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*77 00796 MOVE FEST-SALE-DATE TO F907-GOV1-DATA CL*80 00797 PERFORM S946-WRITE-F907 THRU S946-EXIT CL*77 00798 SET VALID-FEST-REC-NO-88 TO TRUE CL117 00799 ELSE CL*77 00800 IF FEST-SALE-DATE = ZEROS CL*77 00801 NEXT SENTENCE CL*77 00802 ELSE CL*77 00803 MOVE FEST-SALE-DATE TO WRK-TRANS-DATE CL*76 00804 PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT CL*76 00805 IF VALID-TRANS-DATE-NO-88 CL*76 00806 SET VALID-FEST-REC-NO-88 TO TRUE CL*77 00807 MOVE '048' TO F907-MSG-ID CL107 00808 MOVE EFT048 TO F907-MSG-TEXT CL107 00809 PERFORM S946-WRITE-F907 THRU S946-EXIT CL*77 00810 END-IF CL*77 00811 END-IF CL*77 00812 END-IF. CL*77 00813 CL237 00814 SET VALID-TRANS-DATE-YES-88 TO TRUE. CL*68 00815 CL*71 00816 IF FEST-LAST-WAGES-PAID-DATE NOT NUMERIC CL*77 00817 MOVE '049' TO F907-MSG-ID CL107 00818 MOVE EFT049 TO F907-MSG-TEXT CL107 00819 PERFORM S946-WRITE-F907 THRU S946-EXIT CL*77 00820 ELSE CL*77 00821 IF FEST-LAST-WAGES-PAID-DATE = ZERO CL*77 00822 NEXT SENTENCE CL*77 00823 ELSE CL*77 00824 MOVE FEST-LAST-WAGES-PAID-DATE TO WRK-TRANS-DATE CL*77 00825 PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT CL*77 00826 IF VALID-TRANS-DATE-NO-88 CL*77 00827 MOVE '050' TO F907-MSG-ID CL107 00828 MOVE EFT050 TO F907-MSG-TEXT CL107 00829 PERFORM S946-WRITE-F907 THRU S946-EXIT CL*77 00830 SET VALID-FEST-REC-NO-88 TO TRUE CL*77 00831 END-IF CL*77 00832 END-IF CL*77 00833 END-IF. CL*77 00834 CL*68 00835 IF FEST-FEIN = SPACES OR LOW-VALUES CL*70 00836 NEXT SENTENCE CL*70 00837 ELSE CL*70 00838 PERFORM S2600-EMP-STATUS-FEIN THRU S2600-EXIT CL*71 00839 IF VALID-TRANS-FEIN-NO-88 CL*70 00840 SET VALID-FEST-REC-NO-88 TO TRUE. CL*71 00841 CL235 00842 IF VALID-FEST-REC-YES-88 CL240 00843 DISPLAY 'PASSED EDITS FEST- ' FEST-EMP-NO CL*96 00844 PERFORM S946-WRITE-FEST THRU S946-EXIT. CL*71 00845 CL118 00846 P2000-EXIT. CL118 00847 EXIT. CL114 00848 CL*71 00849 P3000-QTR-TAX-RPT. CL118 00850 CL243 00851 SET VALID-FQTF-REC-YES-88 TO TRUE. CL248 00852 SET VALID-TRANS-ACCOUNT-YES-88 TO TRUE. CL243 00853 SET VALID-TRANS-TRACE-YES-88 TO TRUE CL248 00854 SET VALID-TRANS-DATE-YES-88 TO TRUE CL248 00855 SET VALID-TRANS-TIME-YES-88 TO TRUE CL248 00856 SET VALID-TRANS-PHONE-YES-88 TO TRUE CL248 00857 SET VALID-TRANS-CONT-NAME-YES-88 TO TRUE. CL117 00858 SET VALID-TRANS-RPT-YES-88 TO TRUE CL117 00859 MOVE RSKL-REC TO FQTF-REC CL248 00860 ADD +1 TO WRK-QTF-DATA-CNT. CL251 00861 CL243 00862 MOVE SPACES TO L021-S-TNO1. CL114 00863 MOVE SPACES TO L021-S-TNO2 CL114 00864 MOVE SPACES TO L021-S-TNO3 CL114 00865 MOVE SPACES TO L021-S-TNO4. CL114 00866 *& CL*55 00867 DISPLAY 'EFTBI100 P3000 EMP ' FQTF-EMP-NO CL*55 00868 ' TIME ' FQTF-FILING-TIME CL*55 00869 ' DATE ' FQTF-FILING-DATE CL*55 00870 ' TRACE ' FQTF-TRACE-NO. CL*55 00871 *& CL*55 00872 MOVE FQTF-EMP-NO TO WRK-TRANS-EMP-NO. CL248 00873 PERFORM S7000-EDIT-ACCOUNT-NO THRU S7000-EXIT. CL243 00874 IF VALID-TRANS-ACCOUNT-NO-88 CL243 00875 SET VALID-FQTF-REC-NO-88 TO TRUE. CL248 00876 CL243 00877 * PERFORM S7400-DUP-EMP-NO THRU S7400-EXIT. CL*97 00878 * IF VALID-TRANS-ACCOUNT-NO-88 CL*97 00879 * SET VALID-FQTF-REC-NO-88 TO TRUE. CL*97 00880 CL243 00881 MOVE FQTF-YRQ TO WRK-QTR. CL*76 00882 PERFORM S5300-EDIT-QTR THRU S5300-EXIT. CL*75 00883 IF VALID-TRANS-QTR-NO-88 CL*75 00884 MOVE '058' TO F907-MSG-ID CL108 00885 MOVE EFT058 TO F907-MSG-TEXT CL108 00886 PERFORM S946-WRITE-F907 THRU S946-EXIT CL108 00887 SET VALID-FQTF-REC-NO-88 TO TRUE. CL*76 00888 CL*75 00889 IF FQTF-FILING-TEL-NO = SPACES OR LOW-VALUES OR ZEROS CL117 00890 NEXT SENTENCE CL101 00891 ELSE CL101 00892 PERFORM S2100-EDIT-FQTF-FONE THRU S2100-EXIT CL101 00893 IF VALID-TRANS-PHONE-NO-88 CL116 00894 MOVE '043' TO F907-MSG-ID CL101 00895 MOVE EFT043 TO F907-MSG-TEXT CL101 00896 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL117 00897 * SET VALID-FQTF-REC-NO-88 TO TRUE. CL117 00898 CL248 00899 IF FQTF-FILING-REPORT-NAME = SPACES OR LOW-VALUES CL117 00900 NEXT SENTENCE CL117 00901 ELSE CL117 00902 MOVE FQTF-FILING-REPORT-NAME TO WRK-TRANS-CONT-NAME CL117 00903 PERFORM S2000-EDIT-CONT-NAME THRU S2000-EXIT. CL117 00904 * IF VALID-TRANS-CONT-NAME-NO-88 CL117 00905 * SET VALID-FQTF-REC-NO-88 TO TRUE. CL117 00906 CL243 00907 MOVE FQTF-TRACE-NO TO WRK-TRANS-TRACE-NO. CL248 00908 PERFORM S7200-EDIT-TRACE-NO THRU S7200-EXIT. CL243 00909 IF VALID-TRANS-TRACE-NO-88 CL243 00910 MOVE '054' TO F907-MSG-ID CL107 00911 MOVE EFT054 TO F907-MSG-TEXT CL107 00912 PERFORM S946-WRITE-F907 THRU S946-EXIT CL107 00913 SET VALID-FQTF-REC-NO-88 TO TRUE. CL248 00914 CL243 00915 IF FQTF-WAGE-RPT-IND NOT = 'Y' AND 'N' CL248 00916 SET VALID-TRANS-RPT-NO-88 TO TRUE CL247 00917 MOVE '034' TO F907-MSG-ID CL*18 00918 MOVE EFT034 TO F907-MSG-TEXT CL*18 00919 MOVE ZEROS TO F907-EMP-NO CL247 00920 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL247 00921 CL247 00922 IF VALID-TRANS-RPT-NO-88 CL245 00923 SET VALID-FQTF-REC-NO-88 TO TRUE. CL248 00924 CL243 00925 MOVE FQTF-FILING-DATE TO WRK-TRANS-DATE. CL248 00926 PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT CL247 00927 IF VALID-TRANS-DATE-NO-88 CL247 00928 MOVE '051' TO F907-MSG-ID CL107 00929 MOVE EFT051 TO F907-MSG-TEXT CL107 00930 PERFORM S946-WRITE-F907 THRU S946-EXIT CL107 00931 SET VALID-FQTF-REC-NO-88 TO TRUE. CL248 00932 CL243 00933 MOVE FQTF-FILING-TIME TO WRK-TRANS-TIME. CL*21 00934 PERFORM S6100-EDIT-TRANS-TIME THRU S6100-EXIT. CL*21 00935 * IF VALID-TRANS-TIME-NO-88 CL117 00936 * SET VALID-FQTF-REC-NO-88 TO TRUE. CL117 00937 CL243 00938 CL243 00939 IF VALID-FQTF-REC-YES-88 CL248 00940 PERFORM S946-WRITE-FQTF THRU S946-EXIT. CL*18 00941 CL243 00942 P3000-EXIT. CL245 00943 EXIT. CL245 00944 CL245 00945 CL118 00946 P4000-ANN-TAX-RPT. CL118 00947 CL118 00948 DISPLAY ' GOVONE PHASE2 AND BEYOND CODE '. CL114 00949 CL118 00950 P4000-EXIT. CL118 00951 EXIT. CL114 00952 P5000-VALIDATE-DPT-TRANS. CL122 00953 CL118 00954 SET VALID-FDPT-REC-YES-88 TO TRUE. CL122 00955 SET VALID-TRANS-AMT-YES-88 TO TRUE. CL122 00956 SET VALID-TRANS-DATE-YES-88 TO TRUE. CL122 00957 SET VALID-TRANS-TIME-YES-88 TO TRUE. CL122 00958 SET VALID-TRANS-ACCOUNT-YES-88 TO TRUE. CL122 00959 SET VALID-TRANS-TRACE-YES-88 TO TRUE. CL122 00960 MOVE RSKL-REC TO FDPT-REC CL122 00961 ADD +1 TO WRK-DPT-DATA-CNT. CL122 00962 *& CL*55 00963 DISPLAY 'EFTBI100 P5000 EMP ' FDPT-EMP-NO CL*55 00964 ' TIME ' FDPT-PAYMENT-TIME CL*55 00965 ' DATE ' FDPT-PAYMENT-DATE CL*55 00966 ' TRACE ' FDPT-PAYMENT-TRACE-NO. CL*55 00967 *& CL*55 00968 CL120 00969 MOVE FDPT-EMP-NO TO WRK-TRANS-EMP-NO. CL*45 00970 PERFORM S7000-EDIT-ACCOUNT-NO THRU S7000-EXIT. CL*45 00971 CL*45 00972 IF VALID-TRANS-ACCOUNT-NO-88 CL*45 00973 SET VALID-FDPT-REC-NO-88 TO TRUE. CL*45 00974 CL*45 00975 * PERFORM S7400-DUP-EMP-NO THRU S7400-EXIT. CL*97 00976 CL*45 00977 * IF VALID-TRANS-ACCOUNT-NO-88 CL*97 00978 * SET VALID-FDPT-REC-NO-88 TO TRUE. CL*97 00979 CL*45 00980 MOVE FDPT-PAYMENT-AMOUNT TO WRK-TRANS-AMT. CL124 00981 PERFORM S5000-EDIT-AMOUNT THRU S5000-EXIT. CL126 00982 CL120 00983 IF VALID-TRANS-AMT-NO-88 CL130 00984 SET VALID-FDPT-REC-NO-88 TO TRUE CL191 00985 MOVE '029' TO F907-MSG-ID CL109 00986 MOVE EFT029 TO F907-MSG-TEXT CL109 00987 PERFORM S946-WRITE-F907 THRU S946-EXIT CL109 00988 ELSE CL190 00989 ADD WRK-TRANS-AMT TO WRK-TOT-DATA-AMT. CL190 00990 CL193 00991 MOVE FDPT-PAYMENT-DATE TO WRK-TRANS-DATE. CL124 00992 PERFORM S6000-EDIT-TRANS-DATE THRU S6000-EXIT. CL120 00993 CL122 00994 IF VALID-TRANS-DATE-NO-88 CL130 00995 MOVE '053' TO F907-MSG-ID CL107 00996 MOVE EFT053 TO F907-MSG-TEXT CL107 00997 PERFORM S946-WRITE-F907 THRU S946-EXIT CL107 00998 SET VALID-FDPT-REC-NO-88 TO TRUE. CL130 00999 CL130 01000 MOVE FDPT-PAYMENT-TIME TO WRK-TRANS-TIME. CL124 01001 PERFORM S6100-EDIT-TRANS-TIME THRU S6100-EXIT. CL122 01002 CL130 01003 * IF VALID-TRANS-TIME-NO-88 CL117 01004 * SET VALID-FDPT-REC-NO-88 TO TRUE. CL117 01005 CL122 01006 MOVE FDPT-PAYMENT-TRACE-NO TO WRK-TRANS-TRACE-NO. CL124 01007 PERFORM S7200-EDIT-TRACE-NO THRU S7200-EXIT. CL124 01008 CL130 01009 IF VALID-TRANS-TRACE-NO-88 CL130 01010 MOVE '055' TO F907-MSG-ID CL107 01011 MOVE EFT055 TO F907-MSG-TEXT CL107 01012 PERFORM S946-WRITE-F907 THRU S946-EXIT CL107 01013 SET VALID-FDPT-REC-NO-88 TO TRUE. CL130 01014 CL130 01015 IF VALID-FDPT-REC-YES-88 CL131 01016 PERFORM S946-WRITE-FDPT THRU S946-EXIT. CL131 01017 CL131 01018 P5000-EXIT. CL118 01019 EXIT. CL114 01020 CL118 01021 P6000-WAGE-RECORD. CL240 01022 CL118 01023 SET VALID-FCQW-REC-YES-88 TO TRUE. CL240 01024 SET VALID-TRANS-ACCOUNT-YES-88 TO TRUE. CL240 01025 SET VALID-TRANS-AMT-YES-88 TO TRUE CL111 01026 SET VALID-TRANS-SSN-YES-88 TO TRUE CL111 01027 SET VALID-TRANS-TRACE-YES-88 TO TRUE CL106 01028 SET VALID-TRANS-QTR-YES-88 TO TRUE CL243 01029 SET VALID-TRANS-CONT-NAME-YES-88 TO TRUE. CL240 01030 MOVE RSKL-REC TO FCQW-REC CL240 01031 ADD +1 TO WRK-CQW-DATA-CNT. CL240 01032 *& CL*55 01033 DISPLAY 'EFTBI100 P6000 EMP ' FCQW-EMP-NO CL*55 01034 ' SSN ' FCQW-SSN CL*55 01035 ' NAME ' FCQW-EMPL-NAME CL*55 01036 ' TRACE ' FCQW-EMPL-TRACE-NO. CL*55 01037 *& CL*55 01038 CL240 01039 MOVE FCQW-EMP-NO TO WRK-TRANS-EMP-NO. CL240 01040 PERFORM S7000-EDIT-ACCOUNT-NO THRU S7000-EXIT. CL240 01041 IF VALID-TRANS-ACCOUNT-NO-88 CL240 01042 SET VALID-FCQW-REC-NO-88 TO TRUE. CL240 01043 CL241 01044 *& THE FOLLOWING TEST IS INVALID FOR WAGES - THERE MAY BE CL*56 01045 *& MULTIPLE EMPLOYEES FOR A GIVEN EMPLOYER - GD CL*56 01046 ** PERFORM S7400-DUP-EMP-NO THRU S7400-EXIT. CL*56 01047 ** IF VALID-TRANS-ACCOUNT-NO-88 CL*56 01048 ** SET VALID-FCQW-REC-NO-88 TO TRUE. CL*56 01049 CL240 01050 MOVE FCQW-EMPL-NAME TO WRK-TRANS-CONT-NAME. CL242 01051 PERFORM S2300-EDIT-EMPL-NAME THRU S2300-EXIT. CL248 01052 * IF VALID-TRANS-CONT-NAME-NO-88 CL117 01053 * SET VALID-FCQW-REC-NO-88 TO TRUE. CL117 01054 CL*39 01055 MOVE FCQW-EMPL-TRACE-NO TO WRK-TRANS-TRACE-NO. CL241 01056 PERFORM S7200-EDIT-TRACE-NO THRU S7200-EXIT. CL242 01057 IF VALID-TRANS-TRACE-NO-88 CL241 01058 MOVE '056' TO F907-MSG-ID CL108 01059 MOVE EFT056 TO F907-MSG-TEXT CL108 01060 PERFORM S946-WRITE-F907 THRU S946-EXIT CL107 01061 SET VALID-FCQW-REC-NO-88 TO TRUE. CL242 01062 CL*21 01063 CL241 01064 PERFORM S5200-EDIT-SSN THRU S5200-EXIT. CL247 01065 IF VALID-TRANS-SSN-NO-88 CL242 01066 SET VALID-FCQW-REC-NO-88 TO TRUE. CL242 01067 CL240 01068 CL*21 01069 DISPLAY 'EMPL-EAGES ' FCQW-EMPL-WAGES CL110 01070 MOVE FCQW-EMPL-WAGES TO WRK-TRANS-AMT CL110 01071 PERFORM S5000-EDIT-AMOUNT THRU S5000-EXIT CL247 01072 IF VALID-TRANS-AMT-NO-88 CL242 01073 MOVE '032' TO F907-MSG-ID CL109 01074 MOVE EFT032 TO F907-MSG-TEXT CL109 01075 PERFORM S946-WRITE-F907 THRU S946-EXIT CL109 01076 SET VALID-FCQW-REC-NO-88 TO TRUE. CL242 01077 CL247 01078 CL*21 01079 * SET VALID-TRANS-AMT-YES-88 TO TRUE CL112 01080 * PERFORM S5100-EDIT-ZERO-AMOUNT THRU S5100-EXIT CL112 01081 * IF VALID-TRANS-AMT-NO-88 CL112 01082 * SET VALID-FCQW-REC-NO-88 TO TRUE. CL112 01083 CL242 01084 CL*21 01085 SET VALID-TRANS-AMT-YES-88 TO TRUE CL111 01086 DISPLAY ' EMPL TAX WAGES ' FCQW-EMPL-TAXABLE-WAGES CL110 01087 MOVE FCQW-EMPL-TAXABLE-WAGES TO WRK-TRANS-AMT CL110 01088 PERFORM S5000-EDIT-AMOUNT THRU S5000-EXIT CL247 01089 IF VALID-TRANS-AMT-NO-88 CL242 01090 MOVE '059' TO F907-MSG-ID CL109 01091 MOVE EFT059 TO F907-MSG-TEXT CL109 01092 PERFORM S946-WRITE-F907 THRU S946-EXIT CL109 01093 SET VALID-FCQW-REC-NO-88 TO TRUE. CL242 01094 CL242 01095 MOVE FCQW-YEAR-QTR TO WRK-QTR. CL*75 01096 PERFORM S5300-EDIT-QTR THRU S5300-EXIT. CL*75 01097 IF VALID-TRANS-QTR-NO-88 CL243 01098 MOVE '057' TO F907-MSG-ID CL108 01099 MOVE EFT057 TO F907-MSG-TEXT CL108 01100 PERFORM S946-WRITE-F907 THRU S946-EXIT CL108 01101 SET VALID-FCQW-REC-NO-88 TO TRUE. CL243 01102 CL243 01103 CL243 01104 IF VALID-FCQW-REC-YES-88 CL241 01105 PERFORM S946-WRITE-FCQW THRU S946-EXIT. CL241 01106 CL240 01107 P6000-EXIT. CL118 01108 EXIT. CL114 01109 CL243 01110 P7000-VALIDATE-ENR-TRANS. CL130 01111 CL118 01112 SET VALID-FENR-REC-YES-88 TO TRUE. CL129 01113 SET VALID-TRANS-ACCOUNT-YES-88 TO TRUE. CL129 01114 SET VALID-TRANS-CONT-NAME-YES-88 TO TRUE. CL131 01115 SET VALID-TRANS-CONT-FONE-YES-88 TO TRUE. CL131 01116 MOVE SPACES TO FENR-REC. CL*89 01117 MOVE RSKL-REC TO FENR-REC CL*87 01118 ADD +1 TO WRK-ENR-DATA-CNT. CL129 01119 CL129 01120 CL*87 01121 MOVE FENR-EMP-NO TO WRK-TRANS-EMP-NO. CL175 01122 PERFORM S7000-EDIT-ACCOUNT-NO THRU S7000-EXIT. CL129 01123 IF VALID-TRANS-ACCOUNT-NO-88 CL130 01124 SET VALID-FENR-REC-NO-88 TO TRUE. CL130 01125 CL130 01126 * PERFORM S7400-DUP-EMP-NO THRU S7400-EXIT. CL*97 01127 * IF VALID-TRANS-ACCOUNT-NO-88 CL*97 01128 * SET VALID-FENR-REC-NO-88 TO TRUE. CL*97 01129 CL*21 01130 * IF FENR-CONTACT-PHONE = SPACES OR LOW-VALUES CL101 01131 * NEXT SENTENCE CL101 01132 * ELSE CL101 01133 PERFORM S2100-EDIT-FENR-FONE THRU S2100-EXIT CL101 01134 IF VALID-TRANS-CONT-FONE-NO-88 CL248 01135 MOVE '044' TO F907-MSG-ID CL101 01136 MOVE EFT044 TO F907-MSG-TEXT CL101 01137 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL117 01138 * SET VALID-FENR-REC-NO-88 TO TRUE. CL117 01139 CL248 01140 * IF FENR-CONTACT-NAME = SPACES OR LOW-VALUES CL101 01141 * NEXT SENTENCE CL101 01142 * ELSE CL101 01143 MOVE FENR-CONTACT-NAME TO WRK-TRANS-CONT-NAME CL101 01144 PERFORM S2000-EDIT-CONT-NAME THRU S2000-EXIT. CL117 01145 * IF VALID-TRANS-CONT-NAME-NO-88 CL117 01146 * SET VALID-FENR-REC-NO-88 TO TRUE. CL117 01147 CL130 01148 IF VALID-FENR-REC-YES-88 CL131 01149 PERFORM S946-WRITE-FENR THRU S946-EXIT. CL131 01150 CL131 01151 P7000-EXIT. CL118 01152 EXIT. CL114 01153 CL130 01154 P8000-VALIDATE-TRL-TRANS. CL122 01155 SET VALID-FTRL-REC-YES-88 TO TRUE. CL122 01156 SET VALID-TRANS-REC-CNT-YES-88 TO TRUE. CL126 01157 SET VALID-TRANS-AMT-YES-88 TO TRUE. CL126 01158 CL117 01159 MOVE RSKL-REC TO FTRL-REC. CL117 01160 CL156 01161 ADD +1 TO WRK-FTRL-REC-CNT. CL193 01162 CL184 01163 IF WRK-EFT-READ-CNT = 1 CL193 01164 DISPLAY ' 1ST RECORD CANNOT BE TRAILER RECORD *****' CL184 01165 SET VALID-FTRL-REC-NO-88 TO TRUE CL184 01166 END-IF. CL184 01167 CL184 01168 PERFORM P8100-VALID-FTRL-REC THRU P8100-EXIT CL184 01169 CL184 01170 MOVE FTRL-RECORD-CNT TO WRK-TRANS-REC-CNT. CL122 01171 PERFORM S7300-EDIT-REC-CNT THRU S7300-EXIT CL126 01172 CL117 01173 IF VALID-TRANS-REC-CNT-NO-88 CL122 01174 SET VALID-FTRL-REC-NO-88 TO TRUE CL120 01175 END-IF. CL120 01176 CL120 01177 PERFORM P8100-VALID-FTRL-REC THRU P8100-EXIT CL119 01178 CL117 01179 SUBTRACT +2 FROM WRK-EFT-READ-CNT GIVING WRK-EFT-DATA-CNT. CL228 01180 CL159 01181 DISPLAY ' !!!TOTAL DATA CNT ' WRK-EFT-DATA-CNT CL227 01182 DISPLAY ' !! TOTAL READ CNT ' WRK-EFT-READ-CNT CL226 01183 DISPLAY ' !!TRAILER REC CNT ' FTRL-RECORD-CNT CL*61 01184 DISPLAY ' XXXXXXXXXXXXXXXXX ' . CL*54 01185 CL226 01186 IF WRK-TRANS-REC-CNT NOT = WRK-EFT-DATA-CNT CL214 01187 DISPLAY ' !!! TOTAL REC CNT ' WRK-EFT-DATA-CNT CL214 01188 DISPLAY ' !!TRAILER REC CNT ' WRK-TRANS-REC-CNT CL205 01189 MOVE '008' TO F907-MSG-ID CL*64 01190 MOVE EFT008 TO F907-MSG-TEXT CL*64 01191 MOVE ZEROS TO F907-EMP-NO CL*64 01192 SET VALID-FTRL-REC-NO-88 TO TRUE CL*64 01193 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL*64 01194 CL118 01195 IF WRK-EFT-READ-CNT = 2 CL195 01196 DISPLAY ' !!!! NO EFT RECORDS TODAY ++++++++' CL181 01197 * PERFORM S946-WRITE-TYPE-98 THRU S946-EXIT CL*64 01198 GO TO P8000-RESET-CNTS. CL*64 01199 CL181 01200 PERFORM P8100-VALID-FTRL-REC THRU P8100-EXIT CL122 01201 CL184 01202 IF NOT FTRL-TYPE-PAYMENT-88 CL126 01203 GO TO P8000-RESET-CNTS CL188 01204 END-IF. CL118 01205 CL118 01206 MOVE FTRL-TOT-AMOUNT TO WRK-TRANS-AMT CL121 01207 PERFORM S5000-EDIT-AMOUNT THRU S5000-EXIT CL122 01208 CL120 01209 IF VALID-TRANS-AMT-NO-88 CL122 01210 MOVE '060' TO F907-MSG-ID CL109 01211 MOVE EFT060 TO F907-MSG-TEXT CL109 01212 PERFORM S946-WRITE-F907 THRU S946-EXIT CL109 01213 SET VALID-FTRL-REC-NO-88 TO TRUE CL120 01214 END-IF. CL120 01215 CL120 01216 PERFORM P8100-VALID-FTRL-REC THRU P8100-EXIT CL122 01217 CL117 01218 IF WRK-TRANS-AMT NOT = WRK-TOT-DATA-AMT CL122 01219 DISPLAY ' !!TRAILER TOTAL ' WRK-TRANS-AMT CL222 01220 DISPLAY ' !! DATA TOTAL ' WRK-TOT-DATA-AMT CL222 01221 MOVE '010' TO F907-MSG-ID CL*64 01222 MOVE EFT010 TO F907-MSG-TEXT CL*65 01223 MOVE ZEROS TO F907-EMP-NO CL*64 01224 SET VALID-FTRL-REC-NO-88 TO TRUE CL*64 01225 PERFORM S946-WRITE-F907 THRU S946-EXIT CL*64 01226 END-IF. CL118 01227 CL122 01228 PERFORM P8100-VALID-FTRL-REC THRU P8100-EXIT. CL127 01229 CL118 01230 P8000-RESET-CNTS. CL184 01231 ADD WRK-EFT-READ-CNT TO WRK-TOT-EFT-READ-CNT. CL184 01232 MOVE ZEROS TO WRK-EFT-DATA-CNT CL184 01233 WRK-TOT-DATA-AMT CL222 01234 WRK-EFT-READ-CNT. CL222 01235 P8000-EXIT. CL118 01236 EXIT. CL117 01237 CL117 01238 P8100-VALID-FTRL-REC. CL120 01239 CL120 01240 IF VALID-FTRL-REC-NO-88 CL120 01241 DISPLAY ' BAD TRAILER RECORD ++++++++++' CL120 01242 DISPLAY RSKL-REC CL127 01243 * PERFORM S999-ABEND THRU S999-EXIT CL206 01244 END-IF. CL120 01245 P8100-EXIT. CL120 01246 EXIT. CL120 01247 CL120 01248 S1000-INVALID-TRANS. CL125 01249 CL129 01250 DISPLAY 'INVALID TRANSACTION ::::: ' RSKL-REC-TYPE CL*59 01251 MOVE '017' TO F907-MSG-ID CL162 01252 MOVE ZEROS TO F907-EMP-NO CL162 01253 MOVE EFT017 TO F907-MSG-TEXT. CL162 01254 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01255 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL129 01256 CL125 01257 S1000-EXIT. CL125 01258 EXIT. CL125 01259 CL125 01260 CL129 01261 ************************************************************** CL130 01262 * EDIT THE CONTACT NAME FIELD FROM THE ELECTRONIC PAYMENT * CL130 01263 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL130 01264 ************************************************************** CL130 01265 S2000-EDIT-CONT-NAME. CL129 01266 CL129 01267 IF L021-VALID AND WRK-TRANS-CONT-NAME = SPACES CL248 01268 SET VALID-TRANS-CONT-NAME-NO-88 TO TRUE CL248 01269 MOVE '018' TO F907-MSG-ID CL248 01270 MOVE EFT018 TO F907-MSG-TEXT CL248 01271 MOVE ZEROS TO F907-EMP-NO CL248 01272 PERFORM S946-WRITE-F907 THRU S946-EXIT CL248 01273 ELSE CL248 01274 IF L021-NO-ENTRY AND WRK-TRANS-CONT-NAME > SPACES CL248 01275 SET VALID-TRANS-CONT-NAME-NO-88 TO TRUE CL248 01276 MOVE '020' TO F907-MSG-ID CL248 01277 MOVE EFT020 TO F907-MSG-TEXT CL248 01278 MOVE ZEROS TO F907-EMP-NO CL248 01279 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL248 01280 CL248 01281 S2000-EXIT. CL130 01282 EXIT. CL130 01283 CL130 01284 ************************************************************** CL130 01285 * EDIT THE CONTACT PHONE FIELD FROM THE ELECTRONIC PAYMENT * CL130 01286 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL130 01287 ************************************************************** CL130 01288 S2100-EDIT-FENR-FONE. CL248 01289 CL*86 01290 MOVE FENR-VOICE-1-AREA-CD TO L021-S-TNO1. CL248 01291 MOVE FENR-VOICE-1-PREFIX TO L021-S-TNO2 CL248 01292 MOVE FENR-VOICE-1-SUFFIX TO L021-S-TNO3 CL248 01293 MOVE FENR-VOICE-1-EXT TO L021-S-TNO4. CL248 01294 GO TO S2100-EDIT-FONE. CL248 01295 CL248 01296 S2100-EDIT-FQTF-FONE. CL252 01297 MOVE FQTF-AREA-CODE TO L021-S-TNO1. CL253 01298 MOVE FQTF-PREFIX TO L021-S-TNO2 CL253 01299 MOVE FQTF-SUFFIX TO L021-S-TNO3 CL253 01300 MOVE FQTF-EXTENSION TO L021-S-TNO4. CL253 01301 GO TO S2100-EDIT-FONE. CL252 01302 CL252 01303 S2100-EDIT-FEST-FONE. CL248 01304 MOVE FEST-BUSINESS-AREA-CD TO L021-S-TNO1 CL248 01305 MOVE FEST-BUSINESS-PREFIX TO L021-S-TNO2 CL248 01306 MOVE FEST-BUSINESS-SUFFIX TO L021-S-TNO3 CL248 01307 MOVE FEST-BUSINESS-EXT TO L021-S-TNO4 CL248 01308 GO TO S2100-EDIT-FONE. CL248 01309 CL248 01310 S2100-EDIT-FEST-FAX. CL248 01311 MOVE FEST-FAX-AREA-CD TO L021-S-TNO1 CL248 01312 MOVE FEST-FAX-PREFIX TO L021-S-TNO2 CL248 01313 MOVE FEST-FAX-SUFFIX TO L021-S-TNO3 CL248 01314 MOVE SPACES TO L021-S-TNO4 CL248 01315 GO TO S2100-EDIT-FONE. CL248 01316 CL248 01317 S2100-EDIT-FONE. CL248 01318 DISPLAY 'GTEL NO ' FQTF-FILING-TEL-NO. CL113 01319 PERFORM S021-EDIT-FONE-FAX THRU S021-EXIT. CL248 01320 CL*85 01321 IF L021-NOT-VALID CL101 01322 DISPLAY 'BAD -GTEL NO ' FQTF-FILING-TEL-NO CL114 01323 SET VALID-TRANS-CONT-FONE-NO-88 TO TRUE CL*84 01324 SET VALID-TRANS-PHONE-NO-88 TO TRUE CL*84 01325 MOVE ZEROS TO F907-EMP-NO CL248 01326 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01327 MOVE L021-TNO TO F907-GOV1-DATA CL*47 01328 GO TO S2100-EXIT. CL249 01329 S2100-EXIT. CL130 01330 EXIT. CL129 01331 CL129 01332 S2300-EDIT-EMPL-NAME. CL248 01333 CL248 01334 IF WRK-TRANS-CONT-NAME = SPACES CL248 01335 SET VALID-TRANS-CONT-NAME-NO-88 TO TRUE CL248 01336 MOVE '045' TO F907-MSG-ID CL102 01337 MOVE EFT045 TO F907-MSG-TEXT CL102 01338 MOVE ZEROS TO F907-EMP-NO CL248 01339 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01340 MOVE WRK-TRANS-CONT-NAME TO F907-GOV1-DATA CL*47 01341 PERFORM S946-WRITE-F907 THRU S946-EXIT. CL248 01342 CL129 01343 S2300-EXIT. CL248 01344 EXIT. CL248 01345 CL248 01346 S2400-EDIT-EMAIL. CL248 01347 CL248 01348 MOVE ZEROS TO WRK-EMAIL-CNT. CL249 01349 INSPECT FEST-EMAIL-ADDRESS TALLYING WRK-EMAIL-CNT CL249 01350 FOR ALL '@'. CL249 01351 CL248 01352 IF WRK-EMAIL-CNT NOT EQUAL 1 CL249 01353 SET VALID-TRANS-EMAIL-NO-88 TO TRUE CL248 01354 MOVE '030' TO F907-MSG-ID CL248 01355 MOVE EFT030 TO F907-MSG-TEXT CL248 01356 MOVE ZEROS TO F907-EMP-NO CL248 01357 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01358 MOVE FEST-EMAIL-ADDRESS TO F907-GOV1-DATA CL*47 01359 PERFORM S946-WRITE-F907 THRU S946-EXIT CL248 01360 GO TO S2400-EXIT. CL248 01361 CL248 01362 MOVE ZEROS TO WRK-EMAIL-CNT. CL249 01363 INSPECT FEST-EMAIL-ADDRESS TALLYING WRK-EMAIL-CNT CL249 01364 FOR ALL '.'. CL249 01365 CL248 01366 IF WRK-EMAIL-CNT = ZEROS CL249 01367 SET VALID-TRANS-EMAIL-NO-88 TO TRUE CL248 01368 MOVE '030' TO F907-MSG-ID CL248 01369 MOVE EFT030 TO F907-MSG-TEXT CL248 01370 MOVE ZEROS TO F907-EMP-NO CL248 01371 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01372 MOVE FEST-EMAIL-ADDRESS TO F907-GOV1-DATA CL*47 01373 PERFORM S946-WRITE-F907 THRU S946-EXIT CL248 01374 GO TO S2400-EXIT. CL248 01375 S2400-EXIT. CL248 01376 EXIT. CL248 01377 S2600-EMP-STATUS-FEIN. CL248 01378 MOVE FEST-FEIN TO WRK-FEIN-X. CL248 01379 MOVE WRK-FEIN-1 TO L017-S-FEIN1 CL248 01380 MOVE WRK-FEIN-2 TO L017-S-FEIN2 CL248 01381 PERFORM S017-EDIT-FEIN THRU S017-EXIT. CL248 01382 CL248 01383 IF L017-NOT-VALID OR L017-NO-ENTRY CL248 01384 SET VALID-TRANS-FEIN-NO-88 TO TRUE CL248 01385 MOVE '028' TO F907-MSG-ID CL248 01386 MOVE EFT028 TO F907-MSG-TEXT CL248 01387 MOVE ZEROS TO F907-EMP-NO CL248 01388 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*67 01389 MOVE FEST-FEIN TO F907-GOV1-DATA CL*67 01390 PERFORM S946-WRITE-F907 THRU S946-EXIT CL248 01391 GO TO S2600-EXIT. CL248 01392 CL248 01393 S2600-EXIT. CL248 01394 EXIT. CL248 01395 ************************************************************** CL120 01396 * EDIT THE PAYMENT AMOUNT FIELD FROM THE ELECTRONIC PAYMENT * CL120 01397 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL120 01398 ************************************************************** CL120 01399 S5000-EDIT-AMOUNT. CL122 01400 CL118 01401 IF WRK-TRANS-AMT NOT NUMERIC CL122 01402 MOVE ZEROS TO F907-EMP-NO CL163 01403 SET VALID-TRANS-AMT-NO-88 TO TRUE CL122 01404 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01405 MOVE WRK-TRANS-AMTX TO F907-GOV1-DATA CL*48 01406 GO TO S5000-EXIT. CL122 01407 CL118 01408 S5000-EXIT. CL122 01409 EXIT. CL118 01410 CL118 01411 S5100-EDIT-ZERO-AMOUNT. CL247 01412 CL247 01413 IF WRK-TRANS-AMT = ZEROS CL247 01414 MOVE '033' TO F907-MSG-ID CL*44 01415 MOVE EFT033 TO F907-MSG-TEXT CL*44 01416 MOVE ZEROS TO F907-EMP-NO CL247 01417 SET VALID-TRANS-AMT-NO-88 TO TRUE CL247 01418 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01419 MOVE WRK-TRANS-AMTX TO F907-GOV1-DATA CL*48 01420 PERFORM S946-WRITE-F907 THRU S946-EXIT CL247 01421 GO TO S5100-EXIT. CL*40 01422 CL247 01423 S5100-EXIT. CL247 01424 EXIT. CL247 01425 CL247 01426 CL242 01427 S5200-EDIT-SSN. CL247 01428 MOVE FCQW-SSN TO WRK-EMPL-SSN. CL*57 01429 MOVE WRK-EMPL-SSN1 TO L020-S-SSN1. CL247 01430 MOVE WRK-EMPL-SSN2 TO L020-S-SSN2. CL247 01431 MOVE WRK-EMPL-SSN3 TO L020-S-SSN3. CL247 01432 PERFORM S020-SSN THRU S020-EXIT. CL247 01433 CL247 01434 IF L020-NOT-VALID OR L020-NO-ENTRY CL247 01435 SET VALID-TRANS-SSN-NO-88 TO TRUE CL247 01436 MOVE '027' TO F907-MSG-ID CL247 01437 MOVE EFT027 TO F907-MSG-TEXT CL247 01438 MOVE ZEROS TO F907-EMP-NO CL247 01439 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01440 MOVE WRK-EMPL-SSN TO F907-GOV1-DATA CL*47 01441 PERFORM S946-WRITE-F907 THRU S946-EXIT CL247 01442 GO TO S5200-EXIT. CL247 01443 CL247 01444 S5200-EXIT. CL247 01445 EXIT. CL247 01446 CL247 01447 S5300-EDIT-QTR. CL247 01448 CL*27 01449 CL*22 01450 MOVE WRK-QTR TO L004-QTR-5-AREA. CL*76 01451 PERFORM S004-FROM-5 THRU S004-EXIT CL249 01452 CL247 01453 IF L004-INVALID-QTR CL251 01454 SET VALID-TRANS-QTR-NO-88 TO TRUE CL247 01455 MOVE ZEROS TO F907-EMP-NO CL247 01456 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01457 MOVE WRK-QTR TO F907-GOV1-DATA CL*76 01458 GO TO S5300-EXIT. CL247 01459 CL247 01460 * IF WRK-QTR NOT = WRK-SYS-CURR-QTR CL*98 01461 * SET VALID-TRANS-QTR-NO-88 TO TRUE CL*98 01462 * MOVE '032' TO F907-MSG-ID CL*98 01463 * MOVE EFT032 TO F907-MSG-TEXT CL*98 01464 * MOVE ZEROS TO F907-EMP-NO CL*98 01465 * MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*98 01466 * MOVE WRK-QTR TO F907-GOV1-DATA CL*98 01467 * PERFORM S946-WRITE-F907 THRU S946-EXIT CL*98 01468 * GO TO S5300-EXIT. CL*98 01469 CL247 01470 S5300-EXIT. CL247 01471 EXIT. CL247 01472 ************************************************************** CL120 01473 * EDIT THE DATE FIELD FROM THE ELECTRONIC PAYMENT * CL120 01474 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL120 01475 ************************************************************** CL120 01476 CL120 01477 S6000-EDIT-TRANS-DATE. CL118 01478 CL218 01479 MOVE WRK-TRANS-DATE TO L001-FED-8-DATE-X. CL247 01480 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL115 01481 IF L001-INVALID-DATE CL115 01482 SET VALID-TRANS-DATE-NO-88 TO TRUE CL*76 01483 MOVE ZEROS TO F907-EMP-NO CL107 01484 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL107 01485 MOVE WRK-TRANS-DATE TO F907-GOV1-DATA CL107 01486 GO TO S6000-EXIT CL116 01487 END-IF. CL115 01488 CL115 01489 * IF WRK-TRANS-DATE > WRK-SYS-PARM-RUN-DATE OR CL118 01490 * WRK-TRANS-DATE <= WRK-GOV-PARM-RUN-DATE CL118 01491 * SET VALID-TRANS-DATE-NO-88 TO TRUE CL118 01492 * MOVE '062' TO F907-MSG-ID CL118 01493 * MOVE EFT062 TO F907-MSG-TEXT CL118 01494 * MOVE ZEROS TO F907-EMP-NO CL118 01495 * MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL118 01496 * MOVE WRK-TRANS-DATE TO F907-GOV1-DATA CL118 01497 * GO TO S6000-EXIT CL118 01498 * END-IF. CL118 01499 CL116 01500 S6000-EXIT. CL115 01501 EXIT. CL115 01502 CL115 01503 ************************************************************** CL122 01504 * EDIT THE TIME FIELD FROM THE ELECTRONIC PAYMENT * CL122 01505 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL122 01506 ************************************************************** CL122 01507 CL122 01508 S6100-EDIT-TRANS-TIME. CL122 01509 CL122 01510 IF WRK-TRANS-TIME-9 = ZEROS OR WRK-TRANS-TIME = SPACES CL122 01511 MOVE '015' TO F907-MSG-ID CL117 01512 MOVE EFT015 TO F907-MSG-TEXT CL117 01513 MOVE ZEROS TO F907-EMP-NO CL117 01514 SET VALID-TRANS-TIME-NO-88 TO TRUE CL*76 01515 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL117 01516 MOVE WRK-TRANS-TIME TO F907-GOV1-DATA CL117 01517 PERFORM S946-WRITE-F907 THRU S946-EXIT CL117 01518 GO TO S6100-EXIT. CL122 01519 CL122 01520 IF (WRK-TRANS-TIME-HH > 24) OR (WRK-TRANS-TIME-MM > 60) OR CL122 01521 (WRK-TRANS-TIME-SS > 60) CL122 01522 MOVE '016' TO F907-MSG-ID CL117 01523 MOVE EFT016 TO F907-MSG-TEXT CL117 01524 MOVE ZEROS TO F907-EMP-NO CL117 01525 SET VALID-TRANS-TIME-NO-88 TO TRUE CL117 01526 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL117 01527 MOVE WRK-TRANS-TIME TO F907-GOV1-DATA CL117 01528 PERFORM S946-WRITE-F907 THRU S946-EXIT CL117 01529 GO TO S6100-EXIT. CL122 01530 CL122 01531 CL122 01532 S6100-EXIT. CL122 01533 EXIT. CL122 01534 CL122 01535 ************************************************************** CL*81 01536 * EDIT THE EMPLOYER NUMBER FROM THE ELECTRONIC PAYMENT * CL*81 01537 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL*82 01538 ************************************************************** CL*81 01539 CL*81 01540 S7000-EDIT-ACCOUNT-NO. CL126 01541 CL*77 01542 IF WRK-TRANS-EMP-NO NOT NUMERIC CL130 01543 SET VALID-TRANS-ACCOUNT-NO-88 TO TRUE CL130 01544 MOVE '011' TO F907-MSG-ID CL162 01545 MOVE EFT011 TO F907-MSG-TEXT CL162 01546 MOVE ZEROS TO F907-EMP-NO CL162 01547 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01548 MOVE WRK-TRANS-EMP-NO TO F907-GOV1-DATA CL*47 01549 PERFORM S946-WRITE-F907 THRU S946-EXIT CL120 01550 GO TO S7000-EXIT. CL120 01551 CL120 01552 IF WRK-TRANS-EMP-NO = ZEROS CL130 01553 SET VALID-TRANS-ACCOUNT-NO-88 TO TRUE CL130 01554 MOVE '012' TO F907-MSG-ID CL162 01555 MOVE EFT012 TO F907-MSG-TEXT CL162 01556 MOVE ZEROS TO F907-EMP-NO CL162 01557 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01558 MOVE WRK-TRANS-EMP-NO TO F907-GOV1-DATA CL*47 01559 PERFORM S946-WRITE-F907 THRU S946-EXIT CL120 01560 GO TO S7000-EXIT. CL120 01561 CL118 01562 PERFORM S7100-VALID-TAX-EMP THRU S7100-EXIT. CL120 01563 S7000-EXIT. CL124 01564 EXIT. CL*76 01565 CL*82 01566 CL120 01567 ************************************************************** CL120 01568 * SELECT MASTER MPRF RECORD USING THE FDPT-EMP-NO TO * CL120 01569 * OBTAIN VARIOUS INFORMATIONS FOR THE OUTPUT RECORD. * CL120 01570 ************************************************************** CL120 01571 CL120 01572 S7100-VALID-TAX-EMP. CL120 01573 MOVE LOW-VALUE TO MSKL-KEY-AREA. CL120 01574 CL120 01575 MOVE WRK-TRANS-EMP-NO TO MSKL-EMP-NO. CL130 01576 CL120 01577 SET MSKL-PRF-88 TO TRUE. CL120 01578 CL120 01579 PERFORM S910-READ THRU S910-EXIT. CL120 01580 CL120 01581 IF L910-NO-REC-88 CL120 01582 SET VALID-TRANS-ACCOUNT-NO-88 TO TRUE CL130 01583 MOVE '001' TO F907-MSG-ID CL162 01584 MOVE EFT001 TO F907-MSG-TEXT CL162 01585 MOVE WRK-TRANS-EMP-NO TO F907-EMP-NO CL201 01586 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01587 MOVE WRK-TRANS-EMP-NO TO F907-GOV1-DATA CL*47 01588 PERFORM S946-WRITE-F907 THRU S946-EXIT CL120 01589 GO TO S7100-EXIT. CL120 01590 CL120 01591 CL120 01592 MOVE MSKL-REC TO MPRF-REC. CL120 01593 CL120 01594 IF MPRF-EMP-STATUS NOT = 'A' CL181 01595 * SET VALID-TRANS-ACCOUNT-NO-88 TO TRUE CL206 01596 MOVE '025' TO F907-MSG-ID CL181 01597 MOVE EFT025 TO F907-MSG-TEXT CL181 01598 MOVE WRK-TRANS-EMP-NO TO F907-EMP-NO CL201 01599 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01600 MOVE MPRF-EMP-STATUS TO F907-GOV1-DATA CL*47 01601 PERFORM S946-WRITE-F907 THRU S946-EXIT CL181 01602 GO TO S7100-EXIT. CL181 01603 CL181 01604 CL120 01605 S7100-EXIT. CL120 01606 EXIT. CL120 01607 CL120 01608 ************************************************************** CL*82 01609 * EDIT THE TRACE NO FIELD ON THE ELECTRONIC * CL104 01610 * INPUT RECORDS AND OUTPUT AN ERROR MESSAGE IF ERROR FOUND. * CL*82 01611 ************************************************************** CL*82 01612 CL*82 01613 S7200-EDIT-TRACE-NO. CL122 01614 CL*82 01615 IF WRK-TRANS-TRACE-NO NOT NUMERIC CL105 01616 SET VALID-TRANS-TRACE-NO-88 TO TRUE CL130 01617 MOVE ZEROS TO F907-EMP-NO CL162 01618 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01619 MOVE WRK-TRANS-TRACE-NO TO F907-GOV1-DATA CL*47 01620 GO TO S7200-EXIT. CL122 01621 CL120 01622 IF WRK-TRANS-TRACE-NO = ZEROS CL130 01623 SET VALID-TRANS-TRACE-NO-88 TO TRUE CL130 01624 MOVE ZEROS TO F907-EMP-NO CL162 01625 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01626 MOVE WRK-TRANS-TRACE-NO TO F907-GOV1-DATA CL*47 01627 GO TO S7200-EXIT. CL122 01628 CL120 01629 CL*82 01630 S7200-EXIT. CL122 01631 EXIT. CL*82 01632 CL*83 01633 CL122 01634 S7300-EDIT-REC-CNT. CL122 01635 CL122 01636 IF WRK-TRANS-REC-CNT NOT NUMERIC CL122 01637 MOVE '006' TO F907-MSG-ID CL162 01638 MOVE EFT006 TO F907-MSG-TEXT CL162 01639 F907-MSG-TEXT CL122 01640 MOVE ZEROS TO F907-EMP-NO CL162 01641 SET VALID-TRANS-REC-CNT-NO-88 TO TRUE CL122 01642 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01643 MOVE WRK-TRANS-REC-CNT TO F907-GOV1-DATA CL*47 01644 PERFORM S946-WRITE-F907 THRU S946-EXIT CL122 01645 GO TO S7300-EXIT. CL122 01646 CL122 01647 S7300-EXIT. CL122 01648 EXIT. CL122 01649 CL122 01650 ************************************************************** CL162 01651 * EDIT THE EMPLOYER NUMBER FROM THE ELECTRONIC PAYMENT * CL162 01652 * FOR DUPLICATE ENTRIES. WRITE ERROR MSG IF ERROR FOUND. * CL162 01653 ************************************************************** CL162 01654 CL162 01655 S7400-DUP-EMP-NO. CL162 01656 CL162 01657 IF WRK-PREV-EMP-NO = ZEROS CL215 01658 MOVE WRK-TRANS-EMP-NO TO WRK-PREV-EMP-NO CL162 01659 ELSE CL162 01660 IF WRK-PREV-EMP-NO = WRK-TRANS-EMP-NO CL162 01661 SET VALID-TRANS-ACCOUNT-NO-88 TO TRUE CL162 01662 MOVE '024' TO F907-MSG-ID CL162 01663 MOVE EFT024 TO F907-MSG-TEXT CL162 01664 MOVE WRK-TRANS-EMP-NO TO F907-EMP-NO CL201 01665 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL*47 01666 PERFORM S946-WRITE-F907 THRU S946-EXIT CL162 01667 ELSE CL162 01668 MOVE WRK-TRANS-EMP-NO TO WRK-PREV-EMP-NO. CL162 01669 CL162 01670 S7400-EXIT. CL162 01671 EXIT. CL162 01672 T0000-TERMINATE. EFTBI100 01673 CL*63 01674 ** IF WRK-FHDR-REC-CNT NOT = 5 AND CL*34 01675 ** WRK-FTRL-REC-CNT NOT = 5 CL*34 01676 ** DISPLAY ' **** ERROR DID NOT RECEIVE 5 FILES ******' CL*34 01677 ** DISPLAY ' **** PROGRAM WILL ABEND ******************' CL*34 01678 ** PERFORM S999-ABEND THRU S999-EXIT. CL*34 01679 CL*71 01680 DISPLAY '*** EFTBI100 TERMINATION STATISTICS ***'. CL129 01681 CL*71 01682 DISPLAY ' '. CL237 01683 DISPLAY ' EFT HEADER INPUT RECORDS READ COUNT :' CL184 01684 WRK-FHDR-REC-CNT. CL193 01685 CL184 01686 DISPLAY ' EFT TRAILER INPUT RECORDS READ COUNT :' CL184 01687 WRK-FTRL-REC-CNT. CL193 01688 CL*98 01689 DISPLAY ' F907 ERRORS OUTPUT RECORDS WRITE COUNT :' CL122 01690 WRK-F907-REC-CNT. CL122 01691 CL122 01692 DISPLAY ' EFT FDPT IN REC COUNT : ' WRK-DPT-DATA-CNT. CL**1 01693 DISPLAY ' EFT FDPT OUT REC COUNT : ' WRK-FDPT-REC-CNT. CL255 01694 CL255 01695 DISPLAY ' EFT FENR IN REC COUNT : ' WRK-ENR-DATA-CNT. CL**1 01696 DISPLAY ' EFT FENR OUT REC COUNT : ' WRK-FENR-REC-CNT. CL255 01697 CL254 01698 DISPLAY ' EFT FEST IN REC COUNT : ' WRK-EST-DATA-CNT. CL**1 01699 DISPLAY ' EFT FEST OUT REC COUNT : ' WRK-FEST-REC-CNT. CL255 01700 CL255 01701 DISPLAY ' EFT FQTF IN REC COUNT : ' WRK-QTF-DATA-CNT. CL**1 01702 DISPLAY ' EFT FQTF OUT REC COUNT : ' WRK-FQTF-REC-CNT. CL255 01703 CL255 01704 DISPLAY ' EFT FCQW IN REC COUNT : ' WRK-CQW-DATA-CNT. CL**1 01705 DISPLAY ' EFT FCQW OUT REC COUNT : ' WRK-FCQW-REC-CNT. CL255 01706 CL255 01707 DISPLAY ' TOTAL EFT ---INPUT RECORDS READ COUNT :' CL255 01708 WRK-TOT-EFT-READ-CNT. CL255 01709 CL255 01710 CL184 01711 CLOSE EFT-GOVONE-OUTPUT CL*36 01712 EFT-GOVONE-INPUT CL254 01713 * EFT-REPORTS-F907 CL*50 01714 * EFT-REPORTS-R907. CL*52 01715 CL*69 01716 IF EFT-STATUS-OK-88 CL*58 01717 NEXT SENTENCE CL*58 01718 ELSE CL*58 01719 DISPLAY 'CLOSE ERROR ON EFT FILE ' EFT-STATUS CL*58 01720 PERFORM S999-ABEND THRU S999-EXIT. CL*58 01721 CL*69 01722 * IF WRK-F907-REC-CNT > 0 CL208 01723 * DISPLAY ' GOV1 INPUT FILE CONTAINS ERRORS+++' CL208 01724 * DISPLAY ' PROGRAM WILL ABEND ***************' CL208 01725 * PERFORM S999-ABEND THRU S999-EXIT CL208 01726 * END-IF. CL208 01727 T0000-EXIT. EFTBI100 01728 EXIT. EFTBI100 01729 EJECT EFTBI100 01730 CL*59 01731 S001-FROM-FED-8. CL108 01732 SET L001-FROM-FED-8 TO TRUE. CL108 01733 GO TO S001-DATE. CL108 01734 CL108 01735 S001-FROM-ABS-DAY. CL108 01736 SET L001-FROM-ABS-DAY TO TRUE. CL108 01737 GO TO S001-DATE. CL108 01738 CL108 01739 S001-FROM-CAL-6. CL108 01740 SET L001-FROM-CAL-6 TO TRUE. CL108 01741 GO TO S001-DATE. CL108 01742 CL108 01743 S001-FROM-CAL-8. CL237 01744 SET L001-FROM-CAL-8 TO TRUE. CL237 01745 GO TO S001-DATE. CL237 01746 CL237 01747 S001-DATE. CL108 01748 CALL 'DTSBU001' USING L001-LINK-AREA. CL108 01749 S001-EXIT. CL108 01750 EXIT. CL108 01751 CL*15 01752 S017-EDIT-FEIN. CL238 01753 CALL 'DTSBU017' USING L017-LINK-AREA. CL237 01754 S017-EXIT. CL237 01755 EXIT. CL237 01756 CL249 01757 S020-SSN. CL251 01758 CALL 'DTSBU020' USING L020-LINK-AREA. CL249 01759 S020-EXIT. CL249 01760 EXIT. CL249 01761 CL237 01762 S021-EDIT-FONE-FAX. CL251 01763 CALL 'DTSBU021' USING L021-LINK-AREA. CL237 01764 S021-EXIT. CL237 01765 EXIT. CL237 01766 CL237 01767 S004-FROM-DATE. CL*74 01768 SET L004-FROM-DATE TO TRUE. CL*74 01769 GO TO S004-YRQ. CL*24 01770 CL*24 01771 S004-FROM-5. CL249 01772 SET L004-FROM-5 TO TRUE. CL249 01773 GO TO S004-YRQ. CL249 01774 CL249 01775 S004-FROM-ABS. CL*74 01776 SET L004-FROM-ABS TO TRUE. CL*74 01777 GO TO S004-YRQ. CL*74 01778 CL*74 01779 S004-YRQ. CL*24 01780 CALL 'DTSBU004' USING L004-LINK-AREA. CL*24 01781 CL*24 01782 S004-EXIT. CL*24 01783 EXIT. CL*24 01784 CL*24 01785 S005-SYS-DATE. CL*61 01786 CALL 'DTSBU005' USING L005-COMM-AREA. CL*61 01787 CL*61 01788 S005-EXIT. CL*61 01789 EXIT. CL*61 01790 CL*78 01791 S910-OPEN-READ. CL*70 01792 SET L910-OPEN-READ-88 TO TRUE. CL*70 01793 GO TO S910-MSTR-IO. CL*70 01794 CL*70 01795 S910-OPEN-UPDATE-NO-AIX. CL*70 01796 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. CL*70 01797 GO TO S910-MSTR-IO. CL*70 01798 CL*70 01799 S910-READ. CL*70 01800 SET L910-READ-88 TO TRUE. CL*70 01801 GO TO S910-MSTR-IO. CL*70 01802 CL*70 01803 S910-START-BROWSE. CL*70 01804 SET L910-START-BROWSE-88 TO TRUE. CL*70 01805 GO TO S910-MSTR-IO. CL*70 01806 CL*13 01807 S910-READ-NEXT. CL*70 01808 SET L910-READ-NEXT-88 TO TRUE. CL*70 01809 GO TO S910-MSTR-IO. CL*70 01810 CL*70 01811 S910-COUNT. CL*70 01812 SET L910-COUNT-88 TO TRUE. CL*70 01813 GO TO S910-MSTR-IO. CL*70 01814 CL*70 01815 S910-WRITE. CL*70 01816 SET L910-WRITE-88 TO TRUE. CL*70 01817 GO TO S910-MSTR-IO. CL*70 01818 CL*70 01819 S910-REWRITE. CL*70 01820 SET L910-REWRITE-88 TO TRUE. CL*70 01821 GO TO S910-MSTR-IO. CL*70 01822 CL*70 01823 S910-CLOSE. CL*70 01824 SET L910-CLOSE-88 TO TRUE. CL*70 01825 GO TO S910-MSTR-IO. CL*70 01826 CL*70 01827 S910-MSTR-IO. CL*70 01828 CALL 'DTSBU910' USING L910-LINK-AREA CL*70 01829 MSKL-REC. CL*70 01830 S910-EXIT. CL*70 01831 EXIT. CL*70 01832 CL184 01833 S946-WRITE-TYPE-98. CL184 01834 CL184 01835 IF RSKL-TYPE-PAYMENT-88 CL184 01836 MOVE '98' TO FDPT-TYPE CL184 01837 GO TO S946-WRITE-FDPT. CL184 01838 CL184 01839 GO TO S946-EXIT. CL184 01840 CL184 01841 S946-WRITE-F907. CL117 01842 CL117 01843 ADD +1 TO WRK-F907-REC-CNT. CL201 01844 MOVE WRK-MOD-NAME TO F907-MODULE-NAME. CL117 01845 MOVE WRK-TRANS-EMP-NO TO F907-EMP-NO. CL163 01846 * MOVE RSKL-REC TO F907-GOV1-REC CL*42 01847 CL117 01848 CALL 'DTSBU946' USING F907-REC. CL117 01849 CL131 01850 ************************************************************** CL196 01851 * WRITE GOVONE ERROR RETURN FILE(F907) * CL196 01852 ************************************************************** CL196 01853 CL196 01854 * WRITE R907REC FROM F907-REC. CL*52 01855 CL196 01856 GO TO S946-EXIT. CL196 01857 CL196 01858 CL196 01859 ************************************************************** CL175 01860 * WRITE VALID DAILY PAYMENT TRANSACTION (DPT) RECORD * CL175 01861 ************************************************************** CL175 01862 CL175 01863 S946-WRITE-FDPT. CL131 01864 ADD +1 TO WRK-FDPT-REC-CNT. CL131 01865 MOVE LENGTH OF FDPT-REC TO FDPT-LENGTH. CL*36 01866 MOVE FDPT-PAYMENT-TRACE-NO TO EFT-SORT-TRACE-NO. CL*36 01867 CL*36 01868 IF FDPT-BALANCE-DUE-88 CL*36 01869 MOVE +02 TO EFT-SORT-TRAN CL*36 01870 ELSE CL*36 01871 MOVE +04 TO EFT-SORT-TRAN. CL*36 01872 MOVE FDPT-REC TO EFT-TRANS-REC. CL*36 01873 WRITE EFT-TRANS-OUT. CL*36 01874 GO TO S946-EXIT. CL*36 01875 CL*36 01876 CL111 01877 ************************************************************** CL175 01878 * WRITE VALID DAILY ENROLL TRANSACTION (ENR) RECORD * CL230 01879 ************************************************************** CL175 01880 CL175 01881 S946-WRITE-FENR. CL131 01882 CL131 01883 ADD +1 TO WRK-FENR-REC-CNT. CL131 01884 * MOVE LENGTH OF FENR-REC TO FENR-LENGTH. CL*90 01885 MOVE FENR-EMP-NO TO EFT-SORT-TRACE-NO. CL*58 01886 MOVE +00 TO EFT-SORT-TRAN. CL*36 01887 MOVE FENR-REC TO EFT-TRANS-REC. CL*36 01888 WRITE EFT-TRANS-OUT. CL*36 01889 GO TO S946-EXIT. CL*36 01890 CL*36 01891 CL240 01892 ************************************************************** CL240 01893 * WRITE VALID DAILY STATUE TRANSACTION (EST) RECORD * CL240 01894 ************************************************************** CL240 01895 CL240 01896 S946-WRITE-FEST. CL240 01897 CL240 01898 ADD +1 TO WRK-FEST-REC-CNT. CL240 01899 MOVE LENGTH OF FEST-REC TO FEST-LENGTH. CL*36 01900 MOVE FEST-TRACE-NO TO EFT-SORT-TRACE-NO. CL*36 01901 MOVE +01 TO EFT-SORT-TRAN. CL*36 01902 MOVE FEST-REC TO EFT-TRANS-REC. CL*36 01903 WRITE EFT-TRANS-OUT. CL*36 01904 GO TO S946-EXIT. CL*36 01905 CL*36 01906 CL249 01907 S946-WRITE-FQTF. CL249 01908 ADD +1 TO WRK-FQTF-REC-CNT. CL249 01909 MOVE LENGTH OF FQTF-REC TO FQTF-LENGTH. CL*36 01910 MOVE FQTF-TRACE-NO TO EFT-SORT-TRACE-NO. CL*36 01911 MOVE +03 TO EFT-SORT-TRAN. CL*36 01912 MOVE FQTF-REC TO EFT-TRANS-REC. CL*36 01913 WRITE EFT-TRANS-OUT. CL*36 01914 GO TO S946-EXIT. CL*36 01915 CL*36 01916 CL249 01917 S946-WRITE-FCQW. CL249 01918 DISPLAY ' WRITING FCQW REC'. CL103 01919 ADD +1 TO WRK-FCQW-REC-CNT. CL249 01920 MOVE LENGTH OF FCQW-REC TO FCQW-LENGTH. CL*36 01921 MOVE FCQW-EMPL-TRACE-NO TO EFT-SORT-TRACE-NO. CL*38 01922 MOVE +05 TO EFT-SORT-TRAN. CL*36 01923 MOVE FCQW-REC TO EFT-TRANS-REC. CL*36 01924 WRITE EFT-TRANS-OUT. CL*36 01925 GO TO S946-EXIT. CL249 01926 CL240 01927 S946-EXIT. CL157 01928 EXIT. CL*80 01929 CL*80 01930 S999-ABEND. EFTBI100 01931 DISPLAY '*** EFTBD100 ABENDING : ' CL104 01932 WRK-ABEND-MSG. CL*83 01933 EFTBI100 01934 CALL 'DTSBU999' USING WRK-ABEND-CD. EFTBI100 01935 S999-EXIT. EFTBI100 01936 EXIT. EFTBI100