00001 IDENTIFICATION DIVISION. 02/09/04 00002 PROGRAM-ID. EFTBD110. EFTBD110 00003 AUTHOR. NORTHROP GRUMMAN. LV223 00004 DATE-WRITTEN. APRIL 2003. CL129 00005 DATE-COMPILED. CL146 00006 SKIP3 CL146 00007 ***** CL146 00008 * CL146 00009 * FUNCTION: PROCESS DAILY ENROLLMENT FILE FROM GOVONE AND CL201 00010 * UPDATES THE TAX DATABASE. IT MODIFIES THE ENROLL- CL125 00011 * MENT INDICATOR ON THR MPRF RECORD AND THE MOPO CL125 00012 * RECORDS THAT CONTAIN CONTACT NAMES AND SET THE CL125 00013 * MOPO-TYPR-EFT-VENDOR-88 TO TRUE. CL125 00014 * CL146 00015 * MODIFICATION LOG: CL146 00016 * CL146 00017 * 04/22/03 INITIAL DEVELOPMENT CL129 00018 * WORK ORDER: PROGRAMMER: RW1 CL**3 00019 * CL**3 00020 * 02/04/04 NOTE**** OPO RECORD IS NOT DELETED WHEN EMPLOYER CL221 00021 * UNENROLL FROM EFT PROGRAMMER: ZL1 CL221 00022 * CL221 00023 * 02/04/04 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL221 00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**3 00025 * WORK ORDER: PROGRAMMER: XXX CL**3 00026 * CL146 00027 * DESCRIPTION: CL146 00028 * CL146 00029 * INITIATION: CL146 00030 * NONE CL*91 00031 * CL146 00032 * PARAMETERS INPUT: CL*50 00033 * NONE CL*91 00034 * CL*50 00035 * PROCESSING: CL146 00036 * READ THE ENROLLMENT FILE SEQUENTIALLY FROM GOVONE CL125 00037 * AND COMPARES THE EMP-NO WITH THE MPRF MASTER FILE. CL125 00038 * CL125 00039 * TERMINATION: CL146 00040 * OUTPUT STATISTICAL RECORDS COUNT. CL*50 00041 * CL146 00042 * RECORDS UPDATED: CL125 00043 * MASTER: CL**3 00044 * MPRF AND MOPO FILES CL125 00045 * CL**3 00046 * ALTERNATE INDEX: CL146 00047 * NONE. CL146 00048 * CL146 00049 * REFERENCE: CL146 00050 * NONE. CL146 00051 * CL146 00052 * REPORT RECORDS WRITTEN: CL146 00053 * NONE CL125 00054 * CL*50 00055 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: CL241 00056 * NONE CL125 00057 * CL146 00058 * MODULES CALLED: CL146 00059 * DTSBU001 DATE CONVERSION/EDIT. CL146 00060 * DTSBU004 QUARERLY SUMMARY REPORT REC. CL*47 00061 * DTSBU910 VSAM MASTER FILES I/O. CL*74 00062 * DTSBU927 VARIABLE LENGTH RECORDS BTC OUTPUT. CL166 00063 * CL166 00064 * CL146 00065 ***** CL146 00066 SKIP3 CL*13 00067 ENVIRONMENT DIVISION. CL146 00068 CL*58 00069 INPUT-OUTPUT SECTION. CL*58 00070 CL*58 00071 DATA DIVISION. CL*13 00072 CL*58 00073 WORKING-STORAGE SECTION. CL146 000735 77 PAN-VALET PICTURE X(24) VALUE '223EFTBD110 02/09/04'. CL146 00074 CL*40 00075 01 WRK-AREA. CL146 00076 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +110. CL179 00077 05 WRK-MOD-NAME PIC X(08) VALUE 'EFTBD110'. CL179 00078 05 WRK-ABEND-MSG PIC X(60). CL*83 00079 05 WRK-TRACE-IND PIC X(01) VALUE SPACES. CL126 00080 CL*69 00081 05 EFT-STATUS PIC X(02). CL*58 00082 88 EFT-STATUS-OK-88 VALUE '00'. CL*58 00083 88 EFT-STATUS-EOF-88 VALUE '10'. CL149 00084 CL126 00085 05 EMP-FOUND-IND PIC X(01). CL197 00086 05 WRK-MPRF-IND PIC X(01). CL197 00087 88 WRK-MPRF-OK-88 VALUE '0'. CL151 00088 88 WRK-MPRF-EOF-88 VALUE '1'. CL151 00089 CL126 00090 05 EFT-CHAR-CNT PIC S9(04) COMP. CL151 00091 05 WRK-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. CL*59 00092 05 WRK-SUM-SSN-WAGES-AMT PIC S9(07)V99 VALUE +0. CL*59 00093 05 WRK-TOTAL-WAGES-AMT PIC S9(09)V99 VALUE +0. CL*59 00094 05 WRK-SSN-HOLD PIC S9(09) COMP-3 VALUE +0. CL*58 00095 05 WRK-MOPO-ID-NO PIC S9(03) COMP-3 VALUE +0. CL140 00096 CL101 00097 05 WRK-PRIMARY-NAME. CL*98 00098 10 WRK-FIRST4-NAME PIC X(04). CL101 00099 10 WRK-REST-NAME PIC X(36). CL101 00100 CL*98 00101 05 WS-CONTACT-NAME. CL204 00102 10 WS-FIRST1-NAME PIC X(01) VALUE SPACES. CL204 00103 10 WS-REST-NAME PIC X(25) VALUE SPACES. CL204 00104 CL204 00105 05 WS-FIRST-NAME PIC X(15) VALUE SPACES. CL204 00106 05 WS-LAST-NAME PIC X(20) VALUE SPACES. CL204 00107 05 WS-MIDDLE-I PIC X(01) VALUE SPACES. CL204 00108 CL204 00109 05 DISP-DATE PIC X(10) VALUE SPACES. CL204 00110 05 DISP-TIME PIC X(08) VALUE SPACES. CL*92 00111 05 DISP-ABSTIME PIC X(16) VALUE SPACES. CL132 00112 CL132 00113 05 WRK-CURR-TIME PIC S9(07) COMP-3 VALUE +0. CL133 00114 05 WRK-CURR-DATE PIC S9(09) COMP-3 VALUE +0. CL132 00115 05 WRK-CURR-YR PIC 9(04) VALUE ZEROS. CL*92 00116 05 WRK-ABSTIME PIC S9(15) COMP-3 VALUE +0. CL132 00117 CL132 00118 05 WRK-EMP-NO PIC 9(06) VALUE 0. CL*77 00119 05 WRK-EFT-READ-CNT PIC S9(07) COMP-3 VALUE +0. CL136 00120 05 WRK-MPRF-READ-CNT PIC S9(07) COMP-3 VALUE +0. CL101 00121 05 WRK-MPRF-REWRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL136 00122 05 WRK-MOPO-FIND-CNT PIC S9(07) COMP-3 VALUE +0. CL136 00123 05 WRK-MOPO-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. CL136 00124 05 WRK-MOPO-REWRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL136 00125 05 WRK-MOPO-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL142 00126 05 WRK-MATCHED-CNT PIC S9(07) COMP-3 VALUE +0. CL142 00127 05 WRK-ERROR-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL*78 00128 05 WRK-BTC-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL168 00129 05 WRK-T001-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. CL177 00130 05 WRK-T001-ADD-CNT PIC S9(07) COMP-3 VALUE +0. CL177 00131 05 WRK-T001-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL177 00132 05 WRK-T002-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. CL172 00133 CL168 00134 05 WRK-ERROR-IND PIC X(01). CL168 00135 88 WRK-ERROR-YES-88 VALUE 'Y'. CL*37 00136 88 WRK-ERROR-NO-88 VALUE 'N'. CL*37 00137 CL125 00138 05 FENR-CONTACT-NAME-IND PIC X(01). CL211 00139 88 FENR-CONTACT-NAME-YES-88 VALUE 'Y'. CL211 00140 88 FENR-CONTACT-NAME-NO-88 VALUE 'N'. CL211 00141 CL141 00142 05 WRK-MOPO-IND PIC X(01). CL141 00143 88 WRK-MOPO-FOUND-YES-88 VALUE 'Y'. CL149 00144 88 WRK-MOPO-FOUND-NO-88 VALUE 'N'. CL149 00145 CL*74 00146 01 FENR-REC. CL125 00147 ++INCLUDE EFTIFENR CL125 00148 SKIP3 CL*58 00149 01 TSKL-REC. CL190 00150 ++INCLUDE DTSITSKL CL190 00151 SKIP3 CL190 00152 01 L001-LINK-AREA. CL146 00153 ++INCLUDE DTSIL001 CL146 00154 EJECT CL146 00155 01 L004-LINK-AREA. CL*24 00156 ++INCLUDE DTSIL004 CL*24 00157 EJECT CL*24 00158 01 L005-COMM-AREA. CL*61 00159 ++INCLUDE DTSIL005 CL*61 00160 EJECT CL100 00161 01 L076-LINK-AREA. CL222 00162 ++INCLUDE DTSIL076 CL222 00163 EJECT CL204 00164 01 L910-LINK-AREA. CL*94 00165 ++INCLUDE DTSIL910 CL*94 00166 EJECT CL162 00167 01 L927-LINK-AREA. CL189 00168 ++INCLUDE DTSIL927 CL189 00169 EJECT CL189 00170 01 EFTE-REC. CL205 00171 ++INCLUDE EFTERMSG CL205 00172 SKIP3 CL205 00173 01 F907-REC. CL205 00174 ++INCLUDE EFTIF907 CL205 00175 SKIP3 CL205 00176 *01 MOPO-REC. CL180 00177 ***INCLUDE DTSIMOPO CL180 00178 * EJECT CL180 00179 01 MSKL-REC. CL*70 00180 ++INCLUDE DTSIMSKL CL*70 00181 EJECT CL*70 00182 01 MPRF-REC. CL*70 00183 ++INCLUDE DTSIMPRF CL*70 00184 EJECT CL*70 00185 01 ISKL-REC. CL157 00186 ++INCLUDE DTSIISKL CL157 00187 EJECT CL157 00188 01 T001-REC. CL189 00189 ++INCLUDE DTSIT001 CL188 00190 01 T002-REC. CL188 00191 ++INCLUDE DTSIT002 CL188 00192 01 R907-REC. CL188 00193 ++INCLUDE DTSIR907 CL188 00194 EJECT CL188 00195 CL188 00196 LINKAGE SECTION. CL180 00197 01 EFT-REC-TYPE-LINK-AREA. CL180 00198 ++INCLUDE EFTIL100 CL180 00199 CL180 00200 01 RSKL-REC. CL180 00201 ++INCLUDE EFTIRSKL CL180 00202 CL189 00203 PROCEDURE DIVISION USING CL180 00204 EFT-REC-TYPE-LINK-AREA CL180 00205 RSKL-REC. CL188 00206 CL187 00207 MOVE RSKL-REC TO FENR-REC. CL187 00208 CL187 00209 MOVE ZEROS TO EMP-FOUND-IND. CL196 00210 CL200 00211 IF EFT-L100-CMD-INIT-88 CL180 00212 PERFORM I0000-INITIALIZE THRU I0000-EXIT CL180 00213 ELSE CL180 00214 IF EFT-L100-CMD-PROCESS-88 CL180 00215 ADD +1 TO WRK-EFT-READ-CNT CL201 00216 PERFORM P0000-PROCESS THRU P0000-EXIT UNTIL CL196 00217 EMP-FOUND-IND = 1 CL196 00218 ELSE CL180 00219 IF EFT-L100-CMD-TERMINATE-88 CL192 00220 PERFORM T0000-TERMINATE THRU T0000-EXIT CL180 00221 ELSE CL180 00222 DISPLAY 'INVLAID CALL FROM BD100 ' CL180 00223 PERFORM S999-ABEND THRU S999-EXIT. CL180 00224 CL180 00225 CL*62 00226 GOBACK. CL146 00227 EJECT CL146 00228 I0000-INITIALIZE. CL146 00229 CL*72 00230 MOVE ZERO TO WRK-EFT-READ-CNT. CL*74 00231 SET WRK-MPRF-OK-88 TO TRUE. CL151 00232 CL*72 00233 PERFORM I1000-SYS-DATE THRU I1000-EXIT. CL*74 00234 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. CL*74 00235 PERFORM I3000-START-BROW THRU I3000-EXIT. CL196 00236 CL*63 00237 I0000-EXIT. CL146 00238 EXIT. CL146 00239 CL107 00240 I1000-SYS-DATE. CL*72 00241 SET L005-FROM-SYS TO TRUE. CL*72 00242 PERFORM S005-SYS-DATE THRU S005-EXIT. CL*72 00243 MOVE L005-DATE TO DISP-DATE WRK-CURR-DATE. CL132 00244 MOVE L005-TIME TO DISP-TIME WRK-CURR-TIME. CL132 00245 MOVE L005-ABSTIME TO DISP-ABSTIME WRK-ABSTIME. CL132 00246 CL132 00247 * DISPLAY ' '. CL199 00248 * DISPLAY 'L005-DATE ' DISP-DATE ' L005-TIME ' DISP-TIME CL199 00249 * ' L005-ABSTIME ' DISP-ABSTIME. CL199 00250 I1000-EXIT. CL*72 00251 EXIT. CL*72 00252 CL**1 00253 I2000-OPEN-FILES. CL*72 00254 CL166 00255 MOVE LENGTH OF T001-REC TO T001-LENGTH. CL191 00256 MOVE LENGTH OF T002-REC TO T002-LENGTH. CL191 00257 MOVE LENGTH OF F907-REC TO F907-LENGTH. CL212 00258 MOVE WRK-MOD-NAME TO F907-MODULE-NAME. CL215 00259 CL215 00260 I2000-EXIT. CL*72 00261 EXIT. CL*58 00262 CL*58 00263 I3000-START-BROW. CL196 00264 CL196 00265 CL196 00266 MOVE +0 TO WRK-MPRF-READ-CNT. CL196 00267 CL196 00268 MOVE LOW-VALUES TO MSKL-KEY-AREA. CL196 00269 CL196 00270 MOVE +0 TO MSKL-EMP-NO. CL196 00271 SET MSKL-PRF-88 TO TRUE. CL196 00272 CL196 00273 PERFORM S910-START-BROWSE THRU S910-EXIT. CL196 00274 IF L910-OK-88 CL196 00275 MOVE MSKL-REC TO MPRF-REC CL196 00276 ADD +1 TO WRK-MPRF-READ-CNT CL196 00277 ELSE CL196 00278 DISPLAY 'BAD FIRST READ ON MPRF ' L910-RESULT-IND CL196 00279 PERFORM S999-ABEND THRU S999-EXIT. CL196 00280 CL196 00281 I3000-EXIT. CL196 00282 EXIT. CL196 00283 ************************************************************** CL146 00284 * READ THE ELECTRONIC ENROLLMENT FILE FROM GOVONE AND * CL135 00285 * COMPARES THE EMPLOYER NNUMBER WITH THE MPRF MASTER. * CL135 00286 ************************************************************** CL146 00287 CL146 00288 P0000-PROCESS. CL146 00289 CL130 00290 IF RSKL-TYPE-ENROLL-88 CL186 00291 NEXT SENTENCE CL200 00292 ELSE CL185 00293 MOVE 'THE WRONG RECORD TYPE SEND FROM PGM EFTBD100 ' TO CL185 00294 WRK-ABEND-MSG CL185 00295 PERFORM S999-ABEND THRU S999-EXIT CL186 00296 END-IF. CL186 00297 CL185 00298 CL196 00299 IF MPRF-EMP-NO < FENR-EMP-NO CL130 00300 PERFORM P1000-MPRF-LESS-FENR THRU P1000-EXIT CL196 00301 ELSE CL196 00302 IF MPRF-EMP-NO = FENR-EMP-NO CL196 00303 PERFORM P1100-MPRF-EQUAL-FENR THRU P1100-EXIT CL196 00304 MOVE 1 TO EMP-FOUND-IND CL196 00305 ELSE CL196 00306 MOVE 1 TO EMP-FOUND-IND. CL196 00307 CL196 00308 PERFORM S2000-READ-MPRF THRU S2000-EXIT. CL196 00309 CL130 00310 P0000-EXIT. CL146 00311 EXIT. CL146 00312 CL135 00313 P1000-MPRF-LESS-FENR. CL149 00314 CL168 00315 IF MPRF-EFT-ENROLLED-YES-88 CL196 00316 SET T001-EFT-ENROLLMENT TO TRUE CL168 00317 SET T001-EFT-ENROLL-DEL-88 TO TRUE CL173 00318 PERFORM P2000-WRITE-T001 THRU P2000-EXIT CL168 00319 ADD 1 TO WRK-T001-DELETE-CNT CL177 00320 END-IF. CL149 00321 CL149 00322 P1000-EXIT. CL149 00323 EXIT. CL149 00324 CL149 00325 P1100-MPRF-EQUAL-FENR. CL149 00326 ADD +1 TO WRK-MATCHED-CNT. CL150 00327 IF MPRF-EFT-ENROLLED-YES-88 CL149 00328 DISPLAY ' EMP FOUND ON MPRF/UPD T002 ' MPRF-EMP-NO CL218 00329 SET T002-UPD-CONTACT-88 TO TRUE CL197 00330 SET T002-CONTACT-EFT-VENDOR-88 TO TRUE CL220 00331 PERFORM P3000-WRITE-T002 THRU P3000-EXIT CL170 00332 ELSE CL149 00333 DISPLAY ' EMP NOT ON MPRF/ADD T001/T002 ' MPRF-EMP-NO CL218 00334 SET T002-ADD-CONTACT-88 TO TRUE CL196 00335 SET T002-CONTACT-EFT-VENDOR-88 TO TRUE CL220 00336 SET T001-EFT-ENROLLMENT TO TRUE CL199 00337 SET T001-EFT-ENROLL-ADD-88 TO TRUE CL199 00338 ADD 1 TO WRK-T001-ADD-CNT CL199 00339 PERFORM P2000-WRITE-T001 THRU P2000-EXIT CL168 00340 PERFORM P3000-WRITE-T002 THRU P3000-EXIT CL168 00341 END-IF. CL149 00342 CL149 00343 P1100-EXIT. CL149 00344 EXIT. CL149 00345 CL149 00346 ************************************************************** CL*37 00347 * FORMAT AND WRITE THE T001 RECORDS * CL168 00348 ************************************************************** CL*37 00349 CL*37 00350 P2000-WRITE-T001. CL174 00351 CL213 00352 MOVE SPACES TO TSKL-REC. CL213 00353 CL213 00354 MOVE MPRF-EMP-NO TO T001-EMP-NO. CL169 00355 MOVE 'IVRENRMT' TO T001-ORIGIN. CL170 00356 MOVE L005-DATE TO T001-SYS-DATE. CL169 00357 MOVE L005-TIME TO T001-SYS-TIME. CL169 00358 MOVE SPACES TO T001-RESP-OP-ID. CL169 00359 MOVE SPACE TO T001-NOT-LIABLE-LTR-TYPE. CL169 00360 MOVE SPACE TO T001-WELCOME-LTR-IND. CL169 00361 MOVE ZEROS TO T001-HH-START-YRQ. CL169 00362 MOVE T001-REC TO TSKL-REC. CL188 00363 CL188 00364 PERFORM S927-WRITE THRU S927-EXIT. CL188 00365 CL181 00366 ADD 1 TO WRK-T001-WRITE-CNT. CL172 00367 ADD 1 TO WRK-BTC-WRITE-CNT. CL168 00368 CL*72 00369 P2000-EXIT. CL168 00370 EXIT. CL*72 00371 CL168 00372 ************************************************************** CL168 00373 * FORMAT AND WRITE THE T002 RECORDS * CL168 00374 ************************************************************** CL168 00375 CL168 00376 P3000-WRITE-T002. CL173 00377 CL168 00378 MOVE SPACES TO TSKL-REC. CL213 00379 CL213 00380 SET FENR-CONTACT-NAME-YES-88 TO TRUE. CL211 00381 PERFORM P3001-EDIT-CONT-NAME THRU P3001-EXIT. CL211 00382 CL202 00383 IF FENR-CONTACT-NAME-NO-88 CL211 00384 * DISPLAY ' T002 NOT ADDED NO NAME ' MPRF-EMP-NO CL220 00385 GO TO P3000-EXIT. CL211 00386 CL211 00387 MOVE MPRF-EMP-NO TO T002-EMP-NO. CL169 00388 MOVE 'IVRENRMT' TO T002-ORIGIN. CL170 00389 MOVE L005-DATE TO T002-SYS-DATE. CL169 00390 MOVE L005-TIME TO T002-SYS-TIME. CL169 00391 MOVE FENR-VOICE-1-AREA-CD TO T002-C-VOICE-AREA-CD. CL172 00392 MOVE FENR-VOICE-1-PREFIX TO T002-C-VOICE-PREFIX. CL172 00393 MOVE FENR-VOICE-1-SUFFIX TO T002-C-VOICE-SUFFIX. CL172 00394 MOVE FENR-VOICE-1-EXT TO T002-C-VOICE-EXT. CL172 00395 MOVE ZEROS TO T002-CONTACT-SSN. CL172 00396 MOVE SPACES TO T002-CONTACT-TITLE. CL172 00397 MOVE SPACES TO T002-CONTACT-FAX. CL172 00398 MOVE SPACES TO T002-CONTACT-EMAIL. CL172 00399 CL172 00400 MOVE T002-REC TO TSKL-REC. CL188 00401 CL188 00402 PERFORM S927-WRITE THRU S927-EXIT. CL188 00403 CL168 00404 CL181 00405 ADD 1 TO WRK-T002-WRITE-CNT. CL172 00406 ADD 1 TO WRK-BTC-WRITE-CNT. CL172 00407 CL168 00408 P3000-EXIT. CL168 00409 EXIT. CL168 00410 CL136 00411 P3001-EDIT-CONT-NAME. CL202 00412 MOVE FENR-CONTACT-NAME TO WS-CONTACT-NAME CL207 00413 CL204 00414 * IF WS-FIRST1-NAME < 'A' OR > 'Z' OR = ' ' CL214 00415 IF WS-CONTACT-NAME = SPACES OR LOW-VALUES CL219 00416 SET FENR-CONTACT-NAME-NO-88 TO TRUE CL217 00417 MOVE FENR-EMP-NO TO F907-EMP-NO CL217 00418 MOVE '061' TO F907-MSG-ID CL217 00419 MOVE EFT061 TO F907-MSG-TEXT CL217 00420 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL217 00421 PERFORM S946-WRITE-R907 THRU S946-EXIT CL217 00422 GO TO P3001-EXIT. CL217 00423 CL204 00424 UNSTRING WS-CONTACT-NAME CL204 00425 DELIMITED BY ' ' INTO CL204 00426 WS-FIRST-NAME CL204 00427 WS-LAST-NAME CL204 00428 WS-MIDDLE-I. CL204 00429 CL204 00430 MOVE WS-FIRST-NAME TO L076-NAMEF CL222 00431 MOVE WS-LAST-NAME TO L076-NAMEL CL222 00432 MOVE WS-MIDDLE-I TO L076-NAMEI CL222 00433 PERFORM S076-NAME THRU S076-EXIT. CL222 00434 IF L076-NAME-INVALID CL222 00435 SET FENR-CONTACT-NAME-NO-88 TO TRUE CL211 00436 MOVE FENR-EMP-NO TO F907-EMP-NO CL203 00437 MOVE '037' TO F907-MSG-ID CL206 00438 MOVE EFT037 TO F907-MSG-TEXT CL203 00439 MOVE RSKL-REC-TYPE TO F907-GOV1-RECID CL203 00440 MOVE WS-CONTACT-NAME TO F907-GOV1-DATA CL216 00441 PERFORM S946-WRITE-R907 THRU S946-EXIT CL204 00442 ELSE CL204 00443 MOVE L076-NAM TO T002-CONTACT-NAME. CL222 00444 CL207 00445 CL203 00446 P3001-EXIT. CL202 00447 EXIT. CL202 00448 CL202 00449 T0000-TERMINATE. CL146 00450 CL*59 00451 DISPLAY ' '. CL221 00452 DISPLAY ' '. CL221 00453 CL*71 00454 DISPLAY '*** EFTBD110 TERMINATION STATISTICS ***'. CL179 00455 CL*71 00456 DISPLAY ' '. CL237 00457 DISPLAY ' NO. OF FENR RECORDS RECEIVED FROM BD100.... :' CL199 00458 WRK-EFT-READ-CNT. CL*98 00459 CL*98 00460 DISPLAY ' NO. OF MPRF RECORDS READ................... :' CL199 00461 WRK-MPRF-READ-CNT. CL144 00462 CL144 00463 DISPLAY ' NO.OF MPRF RECORD FOUND ................... :' CL199 00464 WRK-MATCHED-CNT. CL142 00465 CL144 00466 DISPLAY ' NO. OF T001 RECORDS DELETED................ :' CL199 00467 WRK-T001-DELETE-CNT. CL177 00468 CL177 00469 DISPLAY ' NO. OF TOO1 RECORDS ADDED.................. :' CL199 00470 WRK-T001-ADD-CNT. CL177 00471 CL177 00472 DISPLAY ' NO. OF T001 RECORDS WRITTEN................ :' CL199 00473 WRK-T001-WRITE-CNT. CL177 00474 CL172 00475 DISPLAY ' NO. OF T002 RECORDS WRITTEN................ :' CL199 00476 WRK-T002-WRITE-CNT. CL172 00477 CL172 00478 DISPLAY ' '. CL172 00479 DISPLAY ' NO. OF BTC RECORDS WRITTEN................ :' CL199 00480 WRK-BTC-WRITE-CNT. CL172 00481 CL**5 00482 CL157 00483 T0000-EXIT. CL146 00484 EXIT. CL146 00485 EJECT CL146 00486 CL*59 00487 CL149 00488 ************************************************************** CL149 00489 * READ THE MPRF MASTER SEQUENTIALLY. * CL149 00490 ************************************************************** CL149 00491 S2000-READ-MPRF. CL151 00492 MOVE MPRF-REC TO MSKL-REC. CL151 00493 PERFORM S910-READ-NEXT THRU S910-EXIT. CL151 00494 IF L910-OK-88 CL151 00495 ADD +1 TO WRK-MPRF-READ-CNT CL153 00496 MOVE MSKL-REC TO MPRF-REC CL151 00497 ELSE CL151 00498 SET WRK-MPRF-EOF-88 TO TRUE. CL151 00499 CL151 00500 S2000-EXIT. CL151 00501 EXIT. CL151 00502 CL149 00503 CL195 00504 S001-FROM-FED-8. CL108 00505 SET L001-FROM-FED-8 TO TRUE. CL108 00506 GO TO S001-DATE. CL108 00507 CL108 00508 S001-FROM-ABS-DAY. CL108 00509 SET L001-FROM-ABS-DAY TO TRUE. CL108 00510 GO TO S001-DATE. CL108 00511 CL108 00512 S001-FROM-CAL-6. CL108 00513 SET L001-FROM-CAL-6 TO TRUE. CL108 00514 GO TO S001-DATE. CL108 00515 CL108 00516 S001-DATE. CL108 00517 CALL 'DTSBU001' USING L001-LINK-AREA. CL108 00518 S001-EXIT. CL108 00519 EXIT. CL108 00520 CL*15 00521 CL204 00522 S076-NAME. CL222 00523 CALL 'DTSBU076' USING L076-LINK-AREA. CL223 00524 S076-EXIT. CL222 00525 EXIT. CL204 00526 S004-FROM-3. CL*24 00527 SET L004-FROM-3 TO TRUE. CL*24 00528 GO TO S004-YRQ. CL*24 00529 CL*24 00530 S004-YRQ. CL*24 00531 CALL 'DTSBU004' USING L004-LINK-AREA. CL*24 00532 CL*24 00533 S004-EXIT. CL*24 00534 EXIT. CL*24 00535 CL*24 00536 S005-SYS-DATE. CL*61 00537 CALL 'DTSBU005' USING L005-COMM-AREA. CL*61 00538 CL*61 00539 S005-EXIT. CL*61 00540 EXIT. CL*61 00541 CL*78 00542 S910-READ. CL*70 00543 SET L910-READ-88 TO TRUE. CL*70 00544 GO TO S910-MSTR-IO. CL*70 00545 CL*70 00546 S910-START-BROWSE. CL*70 00547 SET L910-START-BROWSE-88 TO TRUE. CL*70 00548 GO TO S910-MSTR-IO. CL*70 00549 CL*13 00550 S910-READ-NEXT. CL*70 00551 SET L910-READ-NEXT-88 TO TRUE. CL*70 00552 GO TO S910-MSTR-IO. CL*70 00553 CL*70 00554 S910-MSTR-IO. CL*70 00555 CALL 'DTSBU910' USING L910-LINK-AREA CL*70 00556 MSKL-REC. CL*70 00557 S910-EXIT. CL*70 00558 EXIT. CL*70 00559 CL*80 00560 S927-WRITE. CL188 00561 SET L927-WRITE-88 TO TRUE. CL188 00562 CALL 'DTSBU927' USING L927-LINK-AREA CL188 00563 TSKL-REC. CL188 00564 S927-EXIT. CL188 00565 EXIT. CL188 00566 CL166 00567 S946-WRITE-R907. CL205 00568 CALL 'DTSBU946' USING F907-REC. CL205 00569 S946-EXIT. CL205 00570 EXIT. CL205 00571 CL205 00572 S999-ABEND. CL146 00573 DISPLAY '*** EFTBD110 ABENDING : ' CL179 00574 WRK-ABEND-MSG. CL*83 00575 CL146 00576 CALL 'DTSBU999' USING WRK-ABEND-CD. CL146 00577 S999-EXIT. CL146 00578 EXIT. CL146