1938 lines
153 KiB
COBOL
1938 lines
153 KiB
COBOL
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
|