00001  IDENTIFICATION DIVISION.                                         05/21/99
00002  PROGRAM-ID.             DTSBD580.                                DTSBD580
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN.           DECEMBER 1997.                           DTSBD580
00005  DATE-COMPILED.                                                   DTSBD580
00006      SKIP3                                                        DTSBD580
00007 *****                                                             DTSBD580
00008 *                                                                 DTSBD580
00009 *    FUNCTION:  BATCH ADDRESS UPDATE MASTER FILE UPDATE.          DTSBD580
00010 *                                                                 DTSBD580
00011 *                                                                 DTSBD580
00012 *    MODIFICATION LOG:                                            DTSBD580
00013 *                                                                 DTSBD580
00014 *    12/27/97  INITIAL DEVELOPMENT.                               DTSBD580
00015 *              WORK ORDER: TCL 214              PROGRAMMER: EHH   DTSBD580
00016 *                                                                 DTSBD580
00017 *    02/13/1999  REVIEWED AND MODIFED FOR DC.                        CL**2
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**2
00019 *                                                                    CL**2
00020 *    05/21/1999  ADD CODE TO UPDATE MODIFICATION LOG - VIA CALL      CL**3
00021 *                TO DTSBU331.  OVER LOOKED DURING 02/13/1999         CL**3
00022 *                MODIFICATION.                                       CL**3
00023 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**3
00024 *                                                                    CL**3
00025 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00026 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00027 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**3
00028 *                                                                 DTSBD580
00029 *                                                                 DTSBD580
00030 *  DESCRIPTION:                                                   DTSBD580
00031 *                                                                 DTSBD580
00032 *      UPDATE ADDRESSES ON THE TAX MASTER FILE.                   DTSBD580
00033 *                                                                 DTSBD580
00034 *      DTSBD580 IS THE LAST STEP IN THE THREE STEP BATCH             CL**2
00035 *      ADDRESS UPDATE PROCESS.                                    DTSBD580
00036 *                                                                 DTSBD580
00037 *                                                                 DTSBD580
00038 *      REPORT RECORDS INPUT:                                      DTSBD580
00039 *                                                                 DTSBD580
00040 *        NONE                                                     DTSBD580
00041 *                                                                 DTSBD580
00042 *                                                                 DTSBD580
00043 *      TAPES INPUT:                                               DTSBD580
00044 *                                                                 DTSBD580
00045 *        NONE.                                                    DTSBD580
00046 *                                                                 DTSBD580
00047 *                                                                 DTSBD580
00048 *      MASTER FILE RECORDS READ:                                  DTSBD580
00049 *                                                                 DTSBD580
00050 *        MHDR                                                     DTSBD580
00051 *        MPRF                                                     DTSBD580
00052 *        MTAD                                                     DTSBD580
00053 *        MOPO                                                     DTSBD580
00054 *        MTAA                                                     DTSBD580
00055 *        MBAA                                                     DTSBD580
00056 *        MELF                                                     DTSBD580
00057 *                                                                 DTSBD580
00058 *                                                                 DTSBD580
00059 *      MASTER FILE RECORDS UPDATED:                               DTSBD580
00060 *                                                                 DTSBD580
00061 *        MPRF (REWRITE).                                          DTSBD580
00062 *        MTAD (REWRITE).                                          DTSBD580
00063 *        MOPO (REWRITE).                                          DTSBD580
00064 *        MTAA (REWRITE).                                          DTSBD580
00065 *        MBAA (REWRITE).                                          DTSBD580
00066 *        MELF (REWRITE).                                          DTSBD580
00067 *                                                                 DTSBD580
00068 *                                                                 DTSBD580
00069 *      RECORDS READ:                                              DTSBD580
00070 *                                                                 DTSBD580
00071 *        XLPC  INTERFACE TO FINALIST MODULE.                      DTSBD580
00072 *                                                                 DTSBD580
00073 *                                                                 DTSBD580
00074 *      MODULES CALLED:                                            DTSBD580
00075 *                                                                 DTSBD580
00076 *        DTSBU203  FIELD ZIP AND JS ZIP DETERMINATION.               CL**2
00077 *        DTSBU910  MASTER FILE I/O.                                  CL**2
00078 *        DTSBU921  ALTERNATE INDEX I/O.                              CL**2
00079 *                                                                 DTSBD580
00080 *                                                                 DTSBD580
00081 *****                                                             DTSBD580
00082      SKIP3                                                        DTSBD580
00083  ENVIRONMENT DIVISION.                                            DTSBD580
00084      SKIP3                                                        DTSBD580
00085  INPUT-OUTPUT SECTION.                                            DTSBD580
00086      SKIP2                                                        DTSBD580
00087  FILE-CONTROL.                                                    DTSBD580
00088      SELECT LPC-FILE  ASSIGN TO DTSLPCI.                             CL**2
00089  DATA DIVISION.                                                   DTSBD580
00090      SKIP3                                                        DTSBD580
00091  FILE SECTION.                                                    DTSBD580
00092      SKIP3                                                        DTSBD580
00093  FD  LPC-FILE                                                     DTSBD580
00094      LABEL RECORDS ARE STANDARD                                   DTSBD580
00095      RECORDING MODE IS F                                          DTSBD580
00096      BLOCK CONTAINS 0 RECORDS.                                    DTSBD580
00097      SKIP2                                                        DTSBD580
00098  01  LPC-REC.                                                     DTSBD580
00099  ++INCLUDE DTSIXLPC                                                  CL**2
00100      EJECT                                                        DTSBD580
00101  WORKING-STORAGE SECTION.                                         DTSBD580
001015 77  PAN-VALET PICTURE X(24) VALUE '005DTSBD580  05/21/99'.       DTSBD580
00102      SKIP3                                                        DTSBD580
00103  01  WRK-AREA.                                                    DTSBD580
00104      05  WRK-ABEND-CD                PIC S9(04)  COMP VALUE +580. DTSBD580
00105                                                                   DTSBD580
00106      05  ABEND-MSG                   PIC  X(60).                  DTSBD580
00107                                                                   DTSBD580
00108                                                                      CL**3
00109      05  WRK-SYS-ABSTIME             PIC S9(15)  COMP-3.             CL**3
00110                                                                      CL**3
00111                                                                      CL**3
00112      05  LPC-EOF-IND                 PIC  X(01).                  DTSBD580
00113                                                                   DTSBD580
00114                                                                      CL**3
00115      05  WRK-MPRF-REC-CNT            PIC S9(07)  COMP-3.          DTSBD580
00116                                                                   DTSBD580
00117      05  WRK-MTAD-REC-CNT            PIC S9(07)  COMP-3.          DTSBD580
00118                                                                   DTSBD580
00119      05  WRK-MOPO-REC-CNT            PIC S9(07)  COMP-3.          DTSBD580
00120                                                                   DTSBD580
00121      05  WRK-MTAA-REC-CNT            PIC S9(07)  COMP-3.          DTSBD580
00122                                                                   DTSBD580
00123      05  WRK-MBAA-REC-CNT            PIC S9(07)  COMP-3.          DTSBD580
00124                                                                   DTSBD580
00125      05  WRK-MELF-REC-CNT            PIC S9(07)  COMP-3.          DTSBD580
00126                                                                   DTSBD580
00127      05  WRK-LPC-REC-CNT             PIC S9(07)  COMP-3.          DTSBD580
00128                                                                   DTSBD580
00129                                                                   DTSBD580
00130      05  WRK-EMP-NO                  PIC S9(07)  COMP-3.          DTSBD580
00131                                                                   DTSBD580
00132      05  WRK-MTAD-ZIP-UPDATED-IND    PIC  X(01).                  DTSBD580
00133                                                                      CL**3
00134                                                                      CL**3
00135      05  WRK-ID-NO-9                 PIC  9(03).                     CL**3
00136      05  WRK-ID-NO-X REDEFINES WRK-ID-NO-9                           CL**3
00137                                      PIC  X(03).                     CL**3
00138      EJECT                                                        DTSBD580
00139  01  L005-LINK-AREA.                                                 CL**3
00140  ++INCLUDE DTSIL005                                                  CL**3
00141      EJECT                                                        DTSBD580
00142  01  L203-LINK-AREA.                                                 CL**3
00143  ++INCLUDE DTSIL203                                                  CL**3
00144      EJECT                                                           CL**3
00145  01  L331-LINK-AREA.                                                 CL**3
00146  ++INCLUDE DTSIL331                                                  CL**3
00147      EJECT                                                           CL**3
00148  01  L910-LINK-AREA.                                              DTSBD580
00149  ++INCLUDE DTSIL910                                                  CL**2
00150      EJECT                                                        DTSBD580
00151  01  MSKL-REC.                                                    DTSBD580
00152  ++INCLUDE DTSIMSKL                                                  CL**2
00153      EJECT                                                        DTSBD580
00154  01  MHDR-REC.                                                    DTSBD580
00155  ++INCLUDE DTSIMHDR                                                  CL**2
00156      EJECT                                                        DTSBD580
00157  01  MPRF-REC.                                                    DTSBD580
00158  ++INCLUDE DTSIMPRF                                                  CL**2
00159      EJECT                                                        DTSBD580
00160  01  MTAD-REC.                                                    DTSBD580
00161  ++INCLUDE DTSIMTAD                                                  CL**2
00162      EJECT                                                        DTSBD580
00163  01  MOPO-REC.                                                    DTSBD580
00164  ++INCLUDE DTSIMOPO                                                  CL**2
00165      EJECT                                                        DTSBD580
00166  01  MTAA-REC.                                                    DTSBD580
00167  ++INCLUDE DTSIMTAA                                                  CL**2
00168      EJECT                                                        DTSBD580
00169  01  MBAA-REC.                                                    DTSBD580
00170  ++INCLUDE DTSIMBAA                                                  CL**2
00171      EJECT                                                        DTSBD580
00172  01  MELF-REC.                                                    DTSBD580
00173  ++INCLUDE DTSIMELF                                                  CL**2
00174      EJECT                                                        DTSBD580
00175  01  L921-LINK-AREA.                                              DTSBD580
00176  ++INCLUDE DTSIL921                                                  CL**2
00177      EJECT                                                        DTSBD580
00178  01  ISKL-REC.                                                    DTSBD580
00179  ++INCLUDE DTSIISKL                                                  CL**2
00180      EJECT                                                        DTSBD580
00181  PROCEDURE DIVISION.                                              DTSBD580
00182                                                                   DTSBD580
00183                                                                   DTSBD580
00184      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBD580
00185                                                                   DTSBD580
00186                                                                   DTSBD580
00187      MOVE 'N' TO LPC-EOF-IND.                                     DTSBD580
00188                                                                   DTSBD580
00189      MOVE +0 TO WRK-EMP-NO.                                       DTSBD580
00190                                                                   DTSBD580
00191      MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND.                        DTSBD580
00192                                                                   DTSBD580
00193      PERFORM P0000-PROCESS THRU P0000-EXIT                        DTSBD580
00194          UNTIL LPC-EOF-IND = 'Y'.                                 DTSBD580
00195                                                                   DTSBD580
00196                                                                   DTSBD580
00197      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBD580
00198                                                                   DTSBD580
00199                                                                   DTSBD580
00200      GOBACK.                                                      DTSBD580
00201      EJECT                                                        DTSBD580
00202  I0000-INITIATE.                                                  DTSBD580
00203      PERFORM S910-OPEN-UPDATE THRU S910-EXIT.                     DTSBD580
00204                                                                   DTSBD580
00205      PERFORM S921-OPEN-UPDATE THRU S921-EXIT.                     DTSBD580
00206                                                                   DTSBD580
00207      OPEN INPUT LPC-FILE.                                         DTSBD580
00208                                                                   DTSBD580
00209                                                                   DTSBD580
00210      MOVE +0 TO WRK-MPRF-REC-CNT                                  DTSBD580
00211                 WRK-MTAD-REC-CNT                                  DTSBD580
00212                 WRK-MOPO-REC-CNT                                  DTSBD580
00213                 WRK-MTAA-REC-CNT                                  DTSBD580
00214                 WRK-MBAA-REC-CNT                                  DTSBD580
00215                 WRK-MELF-REC-CNT                                  DTSBD580
00216                 WRK-LPC-REC-CNT.                                  DTSBD580
00217                                                                   DTSBD580
00218                                                                   DTSBD580
00219      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD580
00220                                                                   DTSBD580
00221      MOVE +0 TO MSKL-EMP-NO.                                      DTSBD580
00222                                                                   DTSBD580
00223      SET MSKL-HDR-88 TO TRUE.                                     DTSBD580
00224                                                                   DTSBD580
00225      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00226                                                                   DTSBD580
00227      IF L910-NO-REC-88                                            DTSBD580
00228          MOVE 'MHDR RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00229          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00230                                                                   DTSBD580
00231      MOVE MSKL-REC TO MHDR-REC.                                   DTSBD580
00232                                                                      CL**3
00233                                                                      CL**3
00234      PERFORM S005-FROM-SYS THRU S005-EXIT.                           CL**3
00235                                                                      CL**3
00236      MOVE L005-ABSTIME TO WRK-SYS-ABSTIME.                           CL**3
00237  I0000-EXIT.                                                      DTSBD580
00238      EXIT.                                                        DTSBD580
00239      EJECT                                                        DTSBD580
00240  P0000-PROCESS.                                                   DTSBD580
00241      READ LPC-FILE                                                DTSBD580
00242        AT END                                                     DTSBD580
00243          MOVE 'Y' TO LPC-EOF-IND                                  DTSBD580
00244          PERFORM P9000-EMP-NO-BREAK THRU P9000-EXIT               DTSBD580
00245          GO TO P0000-EXIT.                                        DTSBD580
00246                                                                   DTSBD580
00247                                                                      CL**2
00248      ADD +1 TO WRK-LPC-REC-CNT.                                   DTSBD580
00249                                                                   DTSBD580
00250                                                                   DTSBD580
00251      IF XLPC-KEY-EMP-NO = WRK-EMP-NO                              DTSBD580
00252          NEXT SENTENCE                                            DTSBD580
00253      ELSE                                                         DTSBD580
00254          PERFORM P9000-EMP-NO-BREAK THRU P9000-EXIT               DTSBD580
00255          MOVE XLPC-KEY-EMP-NO TO WRK-EMP-NO                       DTSBD580
00256          MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND                        CL**3
00257          MOVE XLPC-KEY-EMP-NO TO L331-EMP-NO                         CL**3
00258          MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE               CL**3
00259          MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME                 CL**3
00260          MOVE 'BATCH' TO L331-OP-ID.                                 CL**5
00261                                                                      CL**3
00262                                                                   DTSBD580
00263      IF XLPC-KEY-TAD-88                                           DTSBD580
00264          PERFORM P1000-MTAD-UPDATE THRU P1000-EXIT                DTSBD580
00265      ELSE                                                         DTSBD580
00266      IF XLPC-KEY-OPO-88                                           DTSBD580
00267          PERFORM P2000-MOPO-UPDATE THRU P2000-EXIT                DTSBD580
00268      ELSE                                                         DTSBD580
00269      IF XLPC-KEY-TAA-88                                           DTSBD580
00270          PERFORM P3000-MTAA-UPDATE THRU P3000-EXIT                DTSBD580
00271      ELSE                                                         DTSBD580
00272      IF XLPC-KEY-BAA-88                                           DTSBD580
00273          PERFORM P4000-MBAA-UPDATE THRU P4000-EXIT                DTSBD580
00274      ELSE                                                         DTSBD580
00275      IF XLPC-KEY-ELF-88                                           DTSBD580
00276          PERFORM P5000-MELF-UPDATE THRU P5000-EXIT                DTSBD580
00277      ELSE                                                         DTSBD580
00278          MOVE 'INVALID XLPC-KEY-REC-TYPE ENCOUNTERED'             DTSBD580
00279            TO ABEND-MSG                                           DTSBD580
00280          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00281  P0000-EXIT.                                                      DTSBD580
00282      EXIT.                                                        DTSBD580
00283      EJECT                                                        DTSBD580
00284  P1000-MTAD-UPDATE.                                               DTSBD580
00285      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBD580
00286                                                                   DTSBD580
00287      MOVE XLPC-KEY-EMP-NO TO MTAD-EMP-NO.                         DTSBD580
00288                                                                   DTSBD580
00289      SET MTAD-TAD-88 TO TRUE.                                     DTSBD580
00290                                                                   DTSBD580
00291      MOVE XLPC-KEY-ADDR-ID-NO TO MTAD-ID-NO.                      DTSBD580
00292                                                                   DTSBD580
00293      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD580
00294                                                                   DTSBD580
00295      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00296                                                                   DTSBD580
00297      IF L910-NO-REC-88                                            DTSBD580
00298          MOVE 'MTAD RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00299          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00300                                                                   DTSBD580
00301                                                                   DTSBD580
00302      MOVE MSKL-REC TO MTAD-REC.                                   DTSBD580
00303                                                                   DTSBD580
00304                                                                   DTSBD580
00305      IF XLPC-POST-ZIP = MTAD-ZIP                                  DTSBD580
00306          NEXT SENTENCE                                            DTSBD580
00307      ELSE                                                         DTSBD580
00308          MOVE 'Y' TO WRK-MTAD-ZIP-UPDATED-IND.                    DTSBD580
00309                                                                   DTSBD580
00310                                                                      CL**3
00311      PERFORM P1100-CHECK-FOR-MLOG THRU P1100-EXIT.                   CL**3
00312                                                                      CL**3
00313                                                                   DTSBD580
00314      MOVE XLPC-POST-ADDRESS TO MTAD-ADDRESS.                      DTSBD580
00315                                                                   DTSBD580
00316      MOVE MHDR-CURR-RUN-DATE TO MTAD-CHNG-DATE.                   DTSBD580
00317                                                                   DTSBD580
00318                                                                   DTSBD580
00319      MOVE MTAD-REC TO MSKL-REC.                                   DTSBD580
00320                                                                   DTSBD580
00321      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD580
00322                                                                   DTSBD580
00323      ADD +1 TO WRK-MTAD-REC-CNT.                                  DTSBD580
00324  P1000-EXIT.                                                      DTSBD580
00325      EXIT.                                                        DTSBD580
00326      SKIP3                                                           CL**4
00327  P1100-CHECK-FOR-MLOG.                                               CL**4
00328      IF MTAD-ID-TAX-MAILING-ADDR-88                                  CL**4
00329          MOVE 'MAILING ADDRESS' TO L331-REC-OCC-ID                   CL**4
00330      ELSE                                                            CL**4
00331      IF MTAD-ID-TAX-RECORDS-ADDR-88                                  CL**4
00332          MOVE 'RECORDS ADDRESS' TO L331-REC-OCC-ID                   CL**4
00333      ELSE                                                            CL**4
00334          MOVE MTAD-ID-NO TO WRK-ID-NO-9                              CL**4
00335          MOVE WRK-ID-NO-X TO L331-REC-OCC-ID.                        CL**4
00336                                                                      CL**4
00337                                                                      CL**4
00338      IF XLPC-POST-ATTN-LINE = MTAD-ATTN-LINE                         CL**4
00339          NEXT SENTENCE                                               CL**4
00340      ELSE                                                            CL**4
00341          MOVE 'MTAD-ATTN-LINE' TO L331-FIELD-NAME                    CL**4
00342          MOVE MTAD-ATTN-LINE TO L331-FROM-VALUE                      CL**4
00343          MOVE XLPC-POST-ATTN-LINE TO L331-TO-VALUE                   CL**4
00344          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00345                                                                      CL**4
00346      IF XLPC-POST-DELIV-LINE-1 = MTAD-DELIV-LINE-1                   CL**4
00347          NEXT SENTENCE                                               CL**4
00348      ELSE                                                            CL**4
00349          MOVE 'MTAD-DELIV-LINE-1' TO L331-FIELD-NAME                 CL**4
00350          MOVE MTAD-DELIV-LINE-1 TO L331-FROM-VALUE                   CL**4
00351          MOVE XLPC-POST-DELIV-LINE-1 TO L331-TO-VALUE                CL**4
00352          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00353                                                                      CL**4
00354      IF XLPC-POST-DELIV-LINE-2 = MTAD-DELIV-LINE-2                   CL**4
00355          NEXT SENTENCE                                               CL**4
00356      ELSE                                                            CL**4
00357          MOVE 'MTAD-DELIV-LINE-2' TO L331-FIELD-NAME                 CL**4
00358          MOVE MTAD-DELIV-LINE-2 TO L331-FROM-VALUE                   CL**4
00359          MOVE XLPC-POST-DELIV-LINE-2 TO L331-TO-VALUE                CL**4
00360          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00361                                                                      CL**4
00362      IF XLPC-POST-CITY = MTAD-CITY                                   CL**4
00363          NEXT SENTENCE                                               CL**4
00364      ELSE                                                            CL**4
00365          MOVE 'MTAD-CITY' TO L331-FIELD-NAME                         CL**4
00366          MOVE MTAD-CITY TO L331-FROM-VALUE                           CL**4
00367          MOVE XLPC-POST-CITY TO L331-TO-VALUE                        CL**4
00368          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00369                                                                      CL**4
00370      IF XLPC-POST-ST = MTAD-ST                                       CL**4
00371          NEXT SENTENCE                                               CL**4
00372      ELSE                                                            CL**4
00373          MOVE 'MTAD-ST' TO L331-FIELD-NAME                           CL**4
00374          MOVE MTAD-ST TO L331-FROM-VALUE                             CL**4
00375          MOVE XLPC-POST-ST TO L331-TO-VALUE                          CL**4
00376          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00377                                                                      CL**4
00378      IF XLPC-POST-ZIP = MTAD-ZIP                                     CL**4
00379          NEXT SENTENCE                                               CL**4
00380      ELSE                                                            CL**4
00381          MOVE 'MTAD-ZIP' TO L331-FIELD-NAME                          CL**4
00382          MOVE MTAD-ZIP TO L331-FROM-VALUE                            CL**4
00383          MOVE XLPC-POST-ZIP TO L331-TO-VALUE                         CL**4
00384          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00385  P1100-EXIT.                                                         CL**4
00386      EXIT.                                                           CL**4
00387      EJECT                                                        DTSBD580
00388  P2000-MOPO-UPDATE.                                               DTSBD580
00389      MOVE LOW-VALUES TO MOPO-KEY-AREA.                            DTSBD580
00390                                                                   DTSBD580
00391      MOVE XLPC-KEY-EMP-NO TO MOPO-EMP-NO.                         DTSBD580
00392                                                                   DTSBD580
00393      SET MOPO-OPO-88 TO TRUE.                                     DTSBD580
00394                                                                   DTSBD580
00395      MOVE XLPC-KEY-ADDR-ID-NO TO MOPO-ID-NO.                      DTSBD580
00396                                                                   DTSBD580
00397      MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD580
00398                                                                   DTSBD580
00399      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00400                                                                   DTSBD580
00401      IF L910-NO-REC-88                                            DTSBD580
00402          MOVE 'MOPO RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00403          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00404                                                                   DTSBD580
00405                                                                   DTSBD580
00406      MOVE MSKL-REC TO MOPO-REC.                                   DTSBD580
00407                                                                   DTSBD580
00408                                                                   DTSBD580
00409      PERFORM P2100-CHECK-FOR-MLOG THRU P2100-EXIT.                   CL**4
00410                                                                      CL**4
00411                                                                      CL**4
00412      MOVE XLPC-POST-ADDRESS TO MOPO-ADDRESS.                      DTSBD580
00413                                                                   DTSBD580
00414      MOVE MHDR-CURR-RUN-DATE TO MOPO-CHNG-DATE.                   DTSBD580
00415                                                                   DTSBD580
00416                                                                   DTSBD580
00417      MOVE MOPO-REC TO MSKL-REC.                                   DTSBD580
00418                                                                   DTSBD580
00419      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD580
00420                                                                   DTSBD580
00421      ADD +1 TO WRK-MOPO-REC-CNT.                                  DTSBD580
00422  P2000-EXIT.                                                      DTSBD580
00423      EXIT.                                                        DTSBD580
00424      SKIP3                                                           CL**4
00425  P2100-CHECK-FOR-MLOG.                                               CL**4
00426      IF (MOPO-ESTB-ABSTIME NOT NUMERIC)                              CL**4
00427               OR                                                     CL**4
00428         (MOPO-ESTB-ABSTIME = +0)                                     CL**4
00429          MOVE MOPO-ID-NO TO WRK-ID-NO-9                              CL**4
00430          MOVE WRK-ID-NO-X TO L331-REC-OCC-ID                         CL**4
00431      ELSE                                                            CL**4
00432          MOVE MOPO-ESTB-ABSTIME TO L005-ABSTIME                      CL**4
00433          PERFORM S005-FROM-ABSTIME THRU S005-EXIT                    CL**4
00434          MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID.             CL**4
00435                                                                      CL**4
00436                                                                      CL**4
00437      IF XLPC-POST-ATTN-LINE = MOPO-ATTN-LINE                         CL**4
00438          NEXT SENTENCE                                               CL**4
00439      ELSE                                                            CL**4
00440          MOVE 'MOPO-ATTN-LINE' TO L331-FIELD-NAME                    CL**4
00441          MOVE MOPO-ATTN-LINE TO L331-FROM-VALUE                      CL**4
00442          MOVE XLPC-POST-ATTN-LINE TO L331-TO-VALUE                   CL**4
00443          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00444                                                                      CL**4
00445      IF XLPC-POST-DELIV-LINE-1 = MOPO-DELIV-LINE-1                   CL**4
00446          NEXT SENTENCE                                               CL**4
00447      ELSE                                                            CL**4
00448          MOVE 'MOPO-DELIV-LINE-1' TO L331-FIELD-NAME                 CL**4
00449          MOVE MOPO-DELIV-LINE-1 TO L331-FROM-VALUE                   CL**4
00450          MOVE XLPC-POST-DELIV-LINE-1 TO L331-TO-VALUE                CL**4
00451          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00452                                                                      CL**4
00453      IF XLPC-POST-DELIV-LINE-2 = MOPO-DELIV-LINE-2                   CL**4
00454          NEXT SENTENCE                                               CL**4
00455      ELSE                                                            CL**4
00456          MOVE 'MOPO-DELIV-LINE-2' TO L331-FIELD-NAME                 CL**4
00457          MOVE MOPO-DELIV-LINE-2 TO L331-FROM-VALUE                   CL**4
00458          MOVE XLPC-POST-DELIV-LINE-2 TO L331-TO-VALUE                CL**4
00459          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00460                                                                      CL**4
00461      IF XLPC-POST-CITY = MOPO-CITY                                   CL**4
00462          NEXT SENTENCE                                               CL**4
00463      ELSE                                                            CL**4
00464          MOVE 'MOPO-CITY' TO L331-FIELD-NAME                         CL**4
00465          MOVE MOPO-CITY TO L331-FROM-VALUE                           CL**4
00466          MOVE XLPC-POST-CITY TO L331-TO-VALUE                        CL**4
00467          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00468                                                                      CL**4
00469      IF XLPC-POST-ST = MOPO-ST                                       CL**4
00470          NEXT SENTENCE                                               CL**4
00471      ELSE                                                            CL**4
00472          MOVE 'MOPO-ST' TO L331-FIELD-NAME                           CL**4
00473          MOVE MOPO-ST TO L331-FROM-VALUE                             CL**4
00474          MOVE XLPC-POST-ST TO L331-TO-VALUE                          CL**4
00475          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00476                                                                      CL**4
00477      IF XLPC-POST-ZIP = MOPO-ZIP                                     CL**4
00478          NEXT SENTENCE                                               CL**4
00479      ELSE                                                            CL**4
00480          MOVE 'MOPO-ZIP' TO L331-FIELD-NAME                          CL**4
00481          MOVE MOPO-ZIP TO L331-FROM-VALUE                            CL**4
00482          MOVE XLPC-POST-ZIP TO L331-TO-VALUE                         CL**4
00483          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00484  P2100-EXIT.                                                         CL**4
00485      EXIT.                                                           CL**4
00486      EJECT                                                        DTSBD580
00487  P3000-MTAA-UPDATE.                                               DTSBD580
00488      MOVE LOW-VALUES TO MTAA-KEY-AREA.                            DTSBD580
00489                                                                   DTSBD580
00490      MOVE XLPC-KEY-EMP-NO TO MTAA-EMP-NO.                         DTSBD580
00491                                                                   DTSBD580
00492      SET MTAA-TAA-88 TO TRUE.                                     DTSBD580
00493                                                                   DTSBD580
00494      MOVE XLPC-KEY-ADDR-ID-NO TO MTAA-ID-NO.                      DTSBD580
00495                                                                   DTSBD580
00496      MOVE MTAA-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD580
00497                                                                   DTSBD580
00498      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00499                                                                   DTSBD580
00500      IF L910-NO-REC-88                                            DTSBD580
00501          MOVE 'MTAA RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00502          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00503                                                                   DTSBD580
00504                                                                   DTSBD580
00505      MOVE MSKL-REC TO MTAA-REC.                                   DTSBD580
00506                                                                   DTSBD580
00507                                                                      CL**4
00508      PERFORM P3100-CHECK-FOR-MLOG THRU P3100-EXIT.                   CL**4
00509                                                                      CL**4
00510                                                                   DTSBD580
00511      MOVE XLPC-POST-ADDRESS TO MTAA-ADDRESS.                      DTSBD580
00512                                                                   DTSBD580
00513      MOVE MHDR-CURR-RUN-DATE TO MTAA-CHNG-DATE.                   DTSBD580
00514                                                                   DTSBD580
00515                                                                   DTSBD580
00516      MOVE MTAA-REC TO MSKL-REC.                                   DTSBD580
00517                                                                   DTSBD580
00518      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD580
00519                                                                   DTSBD580
00520      ADD +1 TO WRK-MTAA-REC-CNT.                                  DTSBD580
00521  P3000-EXIT.                                                      DTSBD580
00522      EXIT.                                                        DTSBD580
00523      SKIP3                                                           CL**4
00524  P3100-CHECK-FOR-MLOG.                                               CL**4
00525      IF (MTAA-ESTB-ABSTIME NOT NUMERIC)                              CL**4
00526               OR                                                     CL**4
00527         (MTAA-ESTB-ABSTIME = +0)                                     CL**4
00528          MOVE MTAA-ID-NO TO WRK-ID-NO-9                              CL**4
00529          MOVE WRK-ID-NO-X TO L331-REC-OCC-ID                         CL**4
00530      ELSE                                                            CL**4
00531          MOVE MTAA-ESTB-ABSTIME TO L005-ABSTIME                      CL**4
00532          PERFORM S005-FROM-ABSTIME THRU S005-EXIT                    CL**4
00533          MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID.             CL**4
00534                                                                      CL**4
00535                                                                      CL**4
00536      IF XLPC-POST-ATTN-LINE = MTAA-ATTN-LINE                         CL**4
00537          NEXT SENTENCE                                               CL**4
00538      ELSE                                                            CL**4
00539          MOVE 'MTAA-ATTN-LINE' TO L331-FIELD-NAME                    CL**4
00540          MOVE MTAA-ATTN-LINE TO L331-FROM-VALUE                      CL**4
00541          MOVE XLPC-POST-ATTN-LINE TO L331-TO-VALUE                   CL**4
00542          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00543                                                                      CL**4
00544      IF XLPC-POST-DELIV-LINE-1 = MTAA-DELIV-LINE-1                   CL**4
00545          NEXT SENTENCE                                               CL**4
00546      ELSE                                                            CL**4
00547          MOVE 'MTAA-DELIV-LINE-1' TO L331-FIELD-NAME                 CL**4
00548          MOVE MTAA-DELIV-LINE-1 TO L331-FROM-VALUE                   CL**4
00549          MOVE XLPC-POST-DELIV-LINE-1 TO L331-TO-VALUE                CL**4
00550          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00551                                                                      CL**4
00552      IF XLPC-POST-DELIV-LINE-2 = MTAA-DELIV-LINE-2                   CL**4
00553          NEXT SENTENCE                                               CL**4
00554      ELSE                                                            CL**4
00555          MOVE 'MTAA-DELIV-LINE-2' TO L331-FIELD-NAME                 CL**4
00556          MOVE MTAA-DELIV-LINE-2 TO L331-FROM-VALUE                   CL**4
00557          MOVE XLPC-POST-DELIV-LINE-2 TO L331-TO-VALUE                CL**4
00558          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00559                                                                      CL**4
00560      IF XLPC-POST-CITY = MTAA-CITY                                   CL**4
00561          NEXT SENTENCE                                               CL**4
00562      ELSE                                                            CL**4
00563          MOVE 'MTAA-CITY' TO L331-FIELD-NAME                         CL**4
00564          MOVE MTAA-CITY TO L331-FROM-VALUE                           CL**4
00565          MOVE XLPC-POST-CITY TO L331-TO-VALUE                        CL**4
00566          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00567                                                                      CL**4
00568      IF XLPC-POST-ST = MTAA-ST                                       CL**4
00569          NEXT SENTENCE                                               CL**4
00570      ELSE                                                            CL**4
00571          MOVE 'MTAA-ST' TO L331-FIELD-NAME                           CL**4
00572          MOVE MTAA-ST TO L331-FROM-VALUE                             CL**4
00573          MOVE XLPC-POST-ST TO L331-TO-VALUE                          CL**4
00574          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00575                                                                      CL**4
00576      IF XLPC-POST-ZIP = MTAA-ZIP                                     CL**4
00577          NEXT SENTENCE                                               CL**4
00578      ELSE                                                            CL**4
00579          MOVE 'MTAA-ZIP' TO L331-FIELD-NAME                          CL**4
00580          MOVE MTAA-ZIP TO L331-FROM-VALUE                            CL**4
00581          MOVE XLPC-POST-ZIP TO L331-TO-VALUE                         CL**4
00582          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00583  P3100-EXIT.                                                         CL**4
00584      EXIT.                                                           CL**4
00585      EJECT                                                        DTSBD580
00586  P4000-MBAA-UPDATE.                                               DTSBD580
00587      MOVE LOW-VALUES TO MBAA-KEY-AREA.                            DTSBD580
00588                                                                   DTSBD580
00589      MOVE XLPC-KEY-EMP-NO TO MBAA-EMP-NO.                         DTSBD580
00590                                                                   DTSBD580
00591      SET MBAA-BAA-88 TO TRUE.                                     DTSBD580
00592                                                                   DTSBD580
00593      MOVE XLPC-KEY-ADDR-ID-NO TO MBAA-ID-NO.                      DTSBD580
00594                                                                   DTSBD580
00595      MOVE MBAA-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD580
00596                                                                   DTSBD580
00597      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00598                                                                   DTSBD580
00599      IF L910-NO-REC-88                                            DTSBD580
00600          MOVE 'MBAA RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00601          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00602                                                                   DTSBD580
00603                                                                   DTSBD580
00604      MOVE MSKL-REC TO MBAA-REC.                                   DTSBD580
00605                                                                   DTSBD580
00606                                                                      CL**4
00607      PERFORM P4100-CHECK-FOR-MLOG THRU P4100-EXIT.                   CL**4
00608                                                                      CL**4
00609                                                                   DTSBD580
00610      MOVE XLPC-POST-ADDRESS TO MBAA-ADDRESS.                      DTSBD580
00611                                                                   DTSBD580
00612      MOVE MHDR-CURR-RUN-DATE TO MBAA-CHNG-DATE.                   DTSBD580
00613                                                                   DTSBD580
00614                                                                   DTSBD580
00615      MOVE MBAA-REC TO MSKL-REC.                                   DTSBD580
00616                                                                   DTSBD580
00617      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD580
00618                                                                   DTSBD580
00619      ADD +1 TO WRK-MBAA-REC-CNT.                                  DTSBD580
00620  P4000-EXIT.                                                      DTSBD580
00621      EXIT.                                                        DTSBD580
00622      SKIP3                                                           CL**4
00623  P4100-CHECK-FOR-MLOG.                                               CL**4
00624      IF (MBAA-ESTB-ABSTIME NOT NUMERIC)                              CL**4
00625               OR                                                     CL**4
00626         (MBAA-ESTB-ABSTIME = +0)                                     CL**4
00627          MOVE MBAA-ID-NO TO WRK-ID-NO-9                              CL**4
00628          MOVE WRK-ID-NO-X TO L331-REC-OCC-ID                         CL**4
00629      ELSE                                                            CL**4
00630          MOVE MBAA-ESTB-ABSTIME TO L005-ABSTIME                      CL**4
00631          PERFORM S005-FROM-ABSTIME THRU S005-EXIT                    CL**4
00632          MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID.             CL**4
00633                                                                      CL**4
00634                                                                      CL**4
00635      IF XLPC-POST-ATTN-LINE = MBAA-ATTN-LINE                         CL**4
00636          NEXT SENTENCE                                               CL**4
00637      ELSE                                                            CL**4
00638          MOVE 'MBAA-ATTN-LINE' TO L331-FIELD-NAME                    CL**4
00639          MOVE MBAA-ATTN-LINE TO L331-FROM-VALUE                      CL**4
00640          MOVE XLPC-POST-ATTN-LINE TO L331-TO-VALUE                   CL**4
00641          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00642                                                                      CL**4
00643      IF XLPC-POST-DELIV-LINE-1 = MBAA-DELIV-LINE-1                   CL**4
00644          NEXT SENTENCE                                               CL**4
00645      ELSE                                                            CL**4
00646          MOVE 'MBAA-DELIV-LINE-1' TO L331-FIELD-NAME                 CL**4
00647          MOVE MBAA-DELIV-LINE-1 TO L331-FROM-VALUE                   CL**4
00648          MOVE XLPC-POST-DELIV-LINE-1 TO L331-TO-VALUE                CL**4
00649          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00650                                                                      CL**4
00651      IF XLPC-POST-DELIV-LINE-2 = MBAA-DELIV-LINE-2                   CL**4
00652          NEXT SENTENCE                                               CL**4
00653      ELSE                                                            CL**4
00654          MOVE 'MBAA-DELIV-LINE-2' TO L331-FIELD-NAME                 CL**4
00655          MOVE MBAA-DELIV-LINE-2 TO L331-FROM-VALUE                   CL**4
00656          MOVE XLPC-POST-DELIV-LINE-2 TO L331-TO-VALUE                CL**4
00657          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00658                                                                      CL**4
00659      IF XLPC-POST-CITY = MBAA-CITY                                   CL**4
00660          NEXT SENTENCE                                               CL**4
00661      ELSE                                                            CL**4
00662          MOVE 'MBAA-CITY' TO L331-FIELD-NAME                         CL**4
00663          MOVE MBAA-CITY TO L331-FROM-VALUE                           CL**4
00664          MOVE XLPC-POST-CITY TO L331-TO-VALUE                        CL**4
00665          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00666                                                                      CL**4
00667      IF XLPC-POST-ST = MBAA-ST                                       CL**4
00668          NEXT SENTENCE                                               CL**4
00669      ELSE                                                            CL**4
00670          MOVE 'MBAA-ST' TO L331-FIELD-NAME                           CL**4
00671          MOVE MBAA-ST TO L331-FROM-VALUE                             CL**4
00672          MOVE XLPC-POST-ST TO L331-TO-VALUE                          CL**4
00673          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00674                                                                      CL**4
00675      IF XLPC-POST-ZIP = MBAA-ZIP                                     CL**4
00676          NEXT SENTENCE                                               CL**4
00677      ELSE                                                            CL**4
00678          MOVE 'MBAA-ZIP' TO L331-FIELD-NAME                          CL**4
00679          MOVE MBAA-ZIP TO L331-FROM-VALUE                            CL**4
00680          MOVE XLPC-POST-ZIP TO L331-TO-VALUE                         CL**4
00681          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL**4
00682  P4100-EXIT.                                                         CL**4
00683      EXIT.                                                           CL**4
00684      EJECT                                                        DTSBD580
00685  P5000-MELF-UPDATE.                                               DTSBD580
00686      MOVE LOW-VALUES TO MELF-KEY-AREA.                            DTSBD580
00687                                                                   DTSBD580
00688      MOVE XLPC-KEY-EMP-NO TO MELF-EMP-NO.                         DTSBD580
00689                                                                   DTSBD580
00690      SET MELF-ELF-88 TO TRUE.                                     DTSBD580
00691                                                                   DTSBD580
00692      MOVE MELF-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD580
00693                                                                   DTSBD580
00694      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00695                                                                   DTSBD580
00696      IF L910-NO-REC-88                                            DTSBD580
00697          MOVE 'MELF RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00698          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00699                                                                   DTSBD580
00700                                                                   DTSBD580
00701      MOVE MSKL-REC TO MELF-REC.                                   DTSBD580
00702                                                                   DTSBD580
00703                                                                   DTSBD580
00704      MOVE XLPC-POST-ADDRESS TO MELF-ADDRESS.                      DTSBD580
00705                                                                   DTSBD580
00706      MOVE 'SYSTEM' TO MELF-CHNG-OP-ID.                            DTSBD580
00707                                                                   DTSBD580
00708      MOVE MHDR-CURR-RUN-DATE TO MELF-CHNG-DATE.                   DTSBD580
00709                                                                   DTSBD580
00710                                                                   DTSBD580
00711      MOVE MELF-REC TO MSKL-REC.                                   DTSBD580
00712                                                                   DTSBD580
00713      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD580
00714                                                                   DTSBD580
00715      ADD +1 TO WRK-MELF-REC-CNT.                                  DTSBD580
00716  P5000-EXIT.                                                      DTSBD580
00717      EXIT.                                                        DTSBD580
00718      EJECT                                                        DTSBD580
00719  P9000-EMP-NO-BREAK.                                              DTSBD580
00720      IF WRK-MTAD-ZIP-UPDATED-IND = 'N'                            DTSBD580
00721          GO TO P9000-EXIT.                                        DTSBD580
00722                                                                   DTSBD580
00723                                                                   DTSBD580
00724      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD580
00725                                                                   DTSBD580
00726      MOVE WRK-EMP-NO TO MSKL-EMP-NO.                              DTSBD580
00727                                                                   DTSBD580
00728      SET MSKL-PRF-88 TO TRUE.                                     DTSBD580
00729                                                                   DTSBD580
00730      PERFORM S910-READ THRU S910-EXIT.                            DTSBD580
00731                                                                   DTSBD580
00732      IF L910-NO-REC-88                                            DTSBD580
00733          MOVE 'MPRF RECORD NOT FOUND' TO ABEND-MSG                DTSBD580
00734          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD580
00735                                                                   DTSBD580
00736                                                                   DTSBD580
00737      MOVE MSKL-REC TO MPRF-REC.                                   DTSBD580
00738                                                                   DTSBD580
00739      ADD +1 TO WRK-MPRF-REC-CNT.                                  DTSBD580
00740                                                                   DTSBD580
00741                                                                   DTSBD580
00742      MOVE MPRF-EMP-NO TO L203-EMP-NO.                             DTSBD580
00743                                                                   DTSBD580
00744      MOVE MPRF-TAX-REC-ADDR-EXISTS-IND                               CL**2
00745        TO L203-TAX-REC-ADDR-EXISTS-IND.                              CL**2
00746                                                                   DTSBD580
00747      PERFORM S203-FIELD-ZIP-CODE THRU S203-EXIT.                     CL**2
00748                                                                   DTSBD580
00749      IF L203-OK-88                                                DTSBD580
00750          NEXT SENTENCE                                            DTSBD580
00751      ELSE                                                         DTSBD580
00752          GO TO P9000-EXIT.                                        DTSBD580
00753                                                                   DTSBD580
00754      IF (L203-FLD-ZIP = MPRF-FLD-ZIP)                             DTSBD580
00755            AND                                                    DTSBD580
00756         (L203-FLD-STATE = MPRF-FLD-ST)                               CL**2
00757          GO TO P9000-EXIT.                                        DTSBD580
00758                                                                   DTSBD580
00759      MOVE L203-FLD-ZIP TO MPRF-FLD-ZIP.                           DTSBD580
00760                                                                   DTSBD580
00761      MOVE L203-FLD-STATE TO MPRF-FLD-ST.                             CL**2
00762                                                                   DTSBD580
00763      MOVE MHDR-CURR-RUN-DATE TO MPRF-CHNG-DATE.                   DTSBD580
00764                                                                   DTSBD580
00765      MOVE MPRF-REC TO MSKL-REC.                                   DTSBD580
00766                                                                   DTSBD580
00767      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD580
00768  P9000-EXIT.                                                      DTSBD580
00769      EXIT.                                                        DTSBD580
00770      EJECT                                                        DTSBD580
00771  T0000-TERMINATE.                                                 DTSBD580
00772      DISPLAY                                                      DTSBD580
00773       '***  DTSBD580 TERMINATION STATISTICS'.                        CL**2
00774                                                                   DTSBD580
00775      DISPLAY ' '.                                                 DTSBD580
00776                                                                   DTSBD580
00777      DISPLAY                                                      DTSBD580
00778       '***  NUMBER OF MPRF RECORDS PROCESSED: '                   DTSBD580
00779       WRK-MPRF-REC-CNT.                                           DTSBD580
00780                                                                   DTSBD580
00781      DISPLAY                                                      DTSBD580
00782       '***  NUMBER OF MTAD RECORDS PROCESSED: '                   DTSBD580
00783       WRK-MTAD-REC-CNT.                                           DTSBD580
00784                                                                   DTSBD580
00785      DISPLAY                                                      DTSBD580
00786       '***  NUMBER OF MOPO RECORDS PROCESSED: '                   DTSBD580
00787       WRK-MOPO-REC-CNT.                                           DTSBD580
00788                                                                   DTSBD580
00789      DISPLAY                                                      DTSBD580
00790       '***  NUMBER OF MTAA RECORDS PROCESSED: '                   DTSBD580
00791       WRK-MTAA-REC-CNT.                                           DTSBD580
00792                                                                   DTSBD580
00793      DISPLAY                                                      DTSBD580
00794       '***  NUMBER OF MBAA RECORDS PROCESSED: '                   DTSBD580
00795       WRK-MBAA-REC-CNT.                                           DTSBD580
00796                                                                   DTSBD580
00797      DISPLAY                                                      DTSBD580
00798       '***  NUMBER OF MELF RECORDS PROCESSED: '                   DTSBD580
00799       WRK-MELF-REC-CNT.                                           DTSBD580
00800                                                                   DTSBD580
00801      DISPLAY                                                      DTSBD580
00802       '***      NUMBER OF XLPC RECORDS INPUT: '                   DTSBD580
00803       WRK-LPC-REC-CNT.                                            DTSBD580
00804                                                                   DTSBD580
00805                                                                   DTSBD580
00806      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBD580
00807                                                                   DTSBD580
00808      PERFORM S921-CLOSE THRU S921-EXIT.                           DTSBD580
00809                                                                   DTSBD580
00810      CLOSE LPC-FILE.                                              DTSBD580
00811  T0000-EXIT.                                                      DTSBD580
00812      EXIT.                                                        DTSBD580
00813      EJECT                                                        DTSBD580
00814  S005-FROM-SYS.                                                      CL**4
00815      SET L005-FROM-SYS TO TRUE.                                      CL**4
00816      GO TO S005-ABSTIME.                                             CL**4
00817                                                                      CL**4
00818  S005-FROM-ABSTIME.                                                  CL**4
00819      SET L005-FROM-ABSTIME TO TRUE.                                  CL**4
00820      GO TO S005-ABSTIME.                                             CL**4
00821                                                                      CL**4
00822  S005-ABSTIME.                                                       CL**4
00823      CALL 'DTSBU005' USING L005-LINK-AREA.                           CL**4
00824  S005-EXIT.                                                          CL**4
00825      EXIT.                                                        DTSBD580
00826      SKIP3                                                        DTSBD580
00827  S203-FIELD-ZIP-CODE.                                                CL**4
00828      CALL 'DTSBU203' USING L203-LINK-AREA.                           CL**4
00829  S203-EXIT.                                                          CL**4
00830      EXIT.                                                           CL**4
00831      SKIP3                                                           CL**4
00832  S331-WRITE-MLOG.                                                    CL**4
00833      CALL 'DTSBU331' USING L331-LINK-AREA.                           CL**4
00834  S331-EXIT.                                                          CL**4
00835      EXIT.                                                           CL**4
00836      SKIP3                                                           CL**4
00837  S910-OPEN-UPDATE.                                                DTSBD580
00838      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSBD580
00839      GO TO S910-MSTR-CALL.                                        DTSBD580
00840                                                                   DTSBD580
00841  S910-READ.                                                       DTSBD580
00842      SET L910-READ-88 TO TRUE.                                    DTSBD580
00843      GO TO S910-MSTR-CALL.                                        DTSBD580
00844                                                                   DTSBD580
00845  S910-START-BROWSE.                                               DTSBD580
00846      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD580
00847      GO TO S910-MSTR-CALL.                                        DTSBD580
00848                                                                   DTSBD580
00849  S910-READ-NEXT.                                                  DTSBD580
00850      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD580
00851      GO TO S910-MSTR-CALL.                                        DTSBD580
00852                                                                   DTSBD580
00853 *S910-COUNT.                                                      DTSBD580
00854 *****SET L910-COUNT-88 TO TRUE.                                   DTSBD580
00855 *****GO TO S910-MSTR-CALL.                                        DTSBD580
00856                                                                   DTSBD580
00857  S910-REWRITE.                                                    DTSBD580
00858      SET L910-REWRITE-88 TO TRUE.                                 DTSBD580
00859      GO TO S910-MSTR-CALL.                                        DTSBD580
00860                                                                   DTSBD580
00861  S910-CLOSE.                                                      DTSBD580
00862      SET L910-CLOSE-88 TO TRUE.                                   DTSBD580
00863      GO TO S910-MSTR-CALL.                                        DTSBD580
00864                                                                   DTSBD580
00865  S910-MSTR-CALL.                                                  DTSBD580
00866      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
00867                            MSKL-REC.                              DTSBD580
00868  S910-EXIT.                                                       DTSBD580
00869      EXIT.                                                        DTSBD580
00870      SKIP3                                                        DTSBD580
00871  S921-OPEN-UPDATE.                                                DTSBD580
00872      SET L921-OPEN-UPDATE-88 TO TRUE.                             DTSBD580
00873      GO TO S921-AIX-IO.                                           DTSBD580
00874                                                                   DTSBD580
00875  S921-CLOSE.                                                      DTSBD580
00876      SET L921-CLOSE-88 TO TRUE.                                   DTSBD580
00877      GO TO S921-AIX-IO.                                           DTSBD580
00878                                                                   DTSBD580
00879  S921-AIX-IO.                                                     DTSBD580
00880      CALL 'DTSBU921' USING L921-LINK-AREA                            CL**2
00881                            ISKL-REC.                              DTSBD580
00882  S921-EXIT.                                                       DTSBD580
00883      EXIT.                                                        DTSBD580
00884      SKIP3                                                        DTSBD580
00885  S999-ABEND.                                                      DTSBD580
00886      DISPLAY '*** DTSBD580 ABENDING.  '                              CL**2
00887              ABEND-MSG.                                           DTSBD580
00888      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00889  S999-EXIT.                                                       DTSBD580
00890      EXIT.                                                        DTSBD580
00891      EJECT                                                        DTSBD580
