00001  IDENTIFICATION DIVISION.                                         11/01/22
00002  PROGRAM-ID.             DTSTOP03.                                DTSTOP03
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV015
00004  DATE-WRITTEN.           DECEMBER 1998.                           DTSTOP03
00005  DATE-COMPILED.                                                   DTSTOP03
00006      SKIP3                                                        DTSTOP03
00007 *****                                                             DTSTOP03
00008 *                                                                 DTSTOP03
00009 *    FUNCTION:  LIST EMPLOYERS WITH BALANCE GT ZERO               DTSTOP03
00010 *                                                                 DTSTOP03
00011 *                                                                 DTSTOP03
00012 *****                                                             DTSTOP03
00013      SKIP3                                                        DTSTOP03
00014  ENVIRONMENT DIVISION.                                            DTSTOP03
00015  INPUT-OUTPUT SECTION.                                            DTSTOP03
00016      SKIP3                                                        DTSTOP03
00017  FILE-CONTROL.                                                    DTSTOP03
00018      SELECT OUT-FILE          ASSIGN TO DTSOZ058                  DTSTOP03
00019             FILE STATUS IS Z057-STATUS.                           DTSTOP03
00020      SKIP2                                                        DTSTOP03
00021      SELECT IN-FILE          ASSIGN TO DTSIZ058                   DTSTOP03
00022             FILE STATUS IS Z058-STATUS.                           DTSTOP03
00023      SKIP2                                                        DTSTOP03
00024  DATA DIVISION.                                                   DTSTOP03
00025  FILE SECTION.                                                    DTSTOP03
00026  FD  OUT-FILE                                                     DTSTOP03
00027      RECORD CONTAINS 23 CHARACTERS                                DTSTOP03
00028      DATA RECORD IS MRRA-FILE-REC.                                DTSTOP03
00029  01  OUT-REC                         PIC  X(23).                  DTSTOP03
00030      SKIP3                                                        DTSTOP03
00031  FD  IN-FILE.                                                     DTSTOP03
00032  01  IN-REC.                                                      DTSTOP03
00033      05  IN-EMP-NO                  PIC  X(06).                   DTSTOP03
00034      05  FILLER                     PIC  X(01).                   DTSTOP03
00035      05  IN-QTR                     PIC  9(05).                   DTSTOP03
00036      05  FILLER                     PIC  X(68).                   DTSTOP03
00037      SKIP3                                                        DTSTOP03
00038      EJECT                                                        DTSTOP03
00039  WORKING-STORAGE SECTION.                                         DTSTOP03
000395 77  PAN-VALET PICTURE X(24) VALUE '015DTSTOP03  11/01/22'.       DTSTOP03
00040      SKIP3                                                        DTSTOP03
00041  01  WRK-AREA.                                                    DTSTOP03
00042      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +057.DTSTOP03
00043      05  ABEND-MSG                   PIC  X(60).                  DTSTOP03
00044                                                                   DTSTOP03
00045      05  W-IN-QTR                    PIC S9(05)  COMP-3.          DTSTOP03
00046      05  HOLD-LAST-USED-BATCH-NO     PIC S9(05)  COMP-3.          DTSTOP03
00047                                                                   DTSTOP03
00048      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBZ057'.DTSTOP03
00049      05  Z057-STATUS                 PIC  X(02).                  DTSTOP03
00050          88  Z057-FILE-OK-88          VALUE '00'.                 DTSTOP03
00051                                                                   DTSTOP03
00052      05  Z058-STATUS                 PIC  X(02).                  DTSTOP03
00053          88  Z058-FILE-OK-88          VALUE '00'.                 DTSTOP03
00054                                                                   DTSTOP03
00055      05  SEQ                         PIC S9(07)  COMP-3 VALUE +0. DTSTOP03
00056      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3.          DTSTOP03
00057      05  WRK-UPDATE-CNT              PIC S9(07)  COMP-3.          DTSTOP03
00058      05  WRK-EXCLUDE-CNT             PIC S9(07)  COMP-3.          DTSTOP03
00059      05  WRK-MPRF-AMT                PIC S9(09)V99  COMP-3.       DTSTOP03
00060      05  WRK-INTEREST-AMT            PIC S9(09)V99  COMP-3.       DTSTOP03
00061      05  WRK-PENALTY-AMT             PIC S9(09)V99 COMP-3 VALUE 0.DTSTOP03
00062      05  WRK-MLIN-AMT                PIC S9(09)V99 COMP-3 VALUE 0.DTSTOP03
00063      05  DIS-MLIN-AMT                PIC --------9.99.            DTSTOP03
00064      05  DIS-MPRF-AMT                PIC --------9.99.            DTSTOP03
00065      05  WRK-REMIT-AMT               PIC S9(09)V99  COMP-3.       DTSTOP03
00066      05  WRK-UI-BAL                  PIC S9(09)V99  COMP-3.       DTSTOP03
00067      05  WRK-MLIN-IND                PIC  X(01).                  DTSTOP03
00068          88 WRK-MLIN-OK           VALUE 'Y'.                      DTSTOP03
00069          88 WRK-MLIN-NO-REC       VALUE 'N'.                      DTSTOP03
00070                                                                   DTSTOP03
00071      05  WRK-OUT-REC.                                             DTSTOP03
00072          10  OUT-EMP                 PIC  9(06).                  DTSTOP03
00073          10  FILLER                  PIC  X(01) VALUE ','.        DTSTOP03
00074          10  OUT-QTR                 PIC  X(06).                  DTSTOP03
00075          10  FILLER                  PIC  X(01) VALUE ','.        DTSTOP03
00076          10  OUT-BATCH               PIC  9(05).                  DTSTOP03
00077          10  FILLER                  PIC  X(01) VALUE ','.        DTSTOP03
00078          10  OUT-ITEM                PIC  9(03).                  DTSTOP03
00079                                                                   DTSTOP03
00080      05  WRK-MQTR-CNT                PIC S9(07)  COMP-3.          DTSTOP03
00081      05  EMP-ACCT-DISP               PIC  9(06).                  DTSTOP03
00082      05  WRK-TIMELY-PMT-AREA.                                     DTSTOP03
00083          10  WRK-ERROR-IND           PIC X(01).                   DTSTOP03
00084              88  WRK-ERROR-YES-88        VALUE 'Y'.               DTSTOP03
00085              88  WRK-ERROR-NO-88         VALUE 'N'.               DTSTOP03
00086          10  WRK-MPAY-FOUND-IND      PIC X(01).                   DTSTOP03
00087              88  WRK-MPAY-FOUND-YES      VALUE 'Y'.               DTSTOP03
00088              88  WRK-MPAY-FOUND-NO       VALUE 'N'.               DTSTOP03
00089          10  WRK-MRPT-FOUND-IND      PIC X(01).                   DTSTOP03
00090              88  WRK-MRPT-FOUND-YES      VALUE 'Y'.               DTSTOP03
00091              88  WRK-MRPT-FOUND-NO       VALUE 'N'.               DTSTOP03
00092          10  WRK-EMP-SELECTED-IND    PIC X(01).                   DTSTOP03
00093              88  WRK-EMP-SELECTED-YES    VALUE 'Y'.               DTSTOP03
00094              88  WRK-EMP-SELECTED-NO     VALUE 'N'.               DTSTOP03
00095          10  WRK-SUPPL-RPT-IND       PIC X(01).                   DTSTOP03
00096              88  WRK-SUPPL-RPT-YES       VALUE 'Y'.               DTSTOP03
00097              88  WRK-SUPPL-RPT-NO        VALUE 'N'.               DTSTOP03
00098          10  WRK-WITHDRAWN-RPT-IND   PIC X(01).                   DTSTOP03
00099              88  WRK-WITHDRAWN-RPT-YES   VALUE 'Y'.               DTSTOP03
00100              88  WRK-WITHDRAWN-RPT-NO    VALUE 'N'.               DTSTOP03
00101          10  WRK-RPT-BATCH-NO        PIC S9(05)  COMP-3.          DTSTOP03
00102          10  WRK-RPT-ITEM-NO         PIC S9(03)  COMP-3.          DTSTOP03
00103          10  WRK-OPID                PIC X(08).                   DTSTOP03
00104          10  WRITE-OFF               PIC X(01)  VALUE SPACES.     DTSTOP03
00105          10  WRK-BALANCE-AMT         PIC ----------9.99.          DTSTOP03
00106                                                                   DTSTOP03
00107      05  WRK-CERTIFICATE-DATE        PIC 9(8) VALUE 0.            DTSTOP03
00108      05  WRK-TIMELY-RPT-AREA.                                     DTSTOP03
00109          10  WRK-RPT-RECEIVED-DATE   PIC S9(09)  COMP-3.          DTSTOP03
00110                                                                   DTSTOP03
00111      05  WRK-MNTE-MSG-LINE1.                                      DTSTOP03
00112          10  WRK-MNTE-MSG-YR         PIC X(04).                   DTSTOP03
00113          10  FILLER                  PIC X(01) VALUE '/'.         DTSTOP03
00114          10  WRK-MNTE-MSG-QTR        PIC X(01).                   DTSTOP03
00115          10  FILLER                  PIC X(44)  VALUE             DTSTOP03
00116          ' QUARTER ANNUAL REPORT FROM TDEC WAS PROCESS'.          DTSTOP03
00117          10  FILLER                  PIC  X(23)  VALUE            DTSTOP03
00118          'ED INCORRECTLY BY ESSP '.                               DTSTOP03
00119      05  WRK-MNTE-MSG-LINE2.                                      DTSTOP03
00120          10  FILLER                  PIC  X(48)  VALUE            DTSTOP03
00121          'REPORT WITHDRAWN AND REPOSTED CORRECTLY.        '.      DTSTOP03
00122          10  FILLER                  PIC  X(23)  VALUE            DTSTOP03
00123          '                       '.                               DTSTOP03
00124      05  WRK-MNTE-MSG-LINE3.                                      DTSTOP03
00125          10  FILLER                  PIC  X(12)  VALUE            DTSTOP03
00126          '            '.                                          DTSTOP03
00127                                                                   DTSTOP03
00128      05  WRK-MPRF-IND                PIC  X(01).                  DTSTOP03
00129          88 WRK-MPRF-OK           VALUE 'Y'.                      DTSTOP03
00130          88 WRK-MPRF-NO-REC       VALUE 'N'.                      DTSTOP03
00131      05  WRK-MQTR-IND                PIC  X(01).                  DTSTOP03
00132          88 WRK-MQTR-OK           VALUE 'Y'.                      DTSTOP03
00133          88 WRK-MQTR-NO-REC       VALUE 'N'.                      DTSTOP03
00134      05  WRK-MRPT-IND                PIC  X(01).                  DTSTOP03
00135          88 WRK-MRPT-OK           VALUE 'Y'.                      DTSTOP03
00136          88 WRK-MRPT-NO-REC       VALUE 'N'.                      DTSTOP03
00137                                                                   DTSTOP03
00138      05  WRK-T003-CNT                PIC S9(07)  COMP-3 VALUE +0. DTSTOP03
00139      05  PARM-REC-CNT                PIC S9(07)  COMP-3.          DTSTOP03
00140                                                                   DTSTOP03
00141      05  PARM-EOF-IND                    PIC  X(01).              DTSTOP03
00142                                                                   DTSTOP03
00143      05  WRK-EMP-NO                  PIC  9(06).                  DTSTOP03
00144                                                                   DTSTOP03
00145      05  WRK-TRACE-IND                   PIC  X(01).              DTSTOP03
00146                                                                   DTSTOP03
00147      05  WRK-MST-OPEN-IND                PIC  X(01).              DTSTOP03
00148                                                                   DTSTOP03
00149      05  WRK-REF-OPEN-IND                PIC  X(01).              DTSTOP03
00150                                                                   DTSTOP03
00151      EJECT                                                        DTSTOP03
00152  01  TSKL-REC.                                                    DTSTOP03
00153  ++INCLUDE DTSITSKL                                               DTSTOP03
00154                                                                   DTSTOP03
00155  01  T003-REC.                                                    DTSTOP03
00156  ++INCLUDE DTSIT003                                               DTSTOP03
00157                                                                   DTSTOP03
00158  01  L005-LINK-AREA.                                              DTSTOP03
00159  ++INCLUDE DTSIL005                                               DTSTOP03
00160                                                                   DTSTOP03
00161  01  L910-LINK-AREA.                                              DTSTOP03
00162  ++INCLUDE DTSIL910                                               DTSTOP03
00163      EJECT                                                        DTSTOP03
00164  01  MSKL-REC.                                                    DTSTOP03
00165  ++INCLUDE DTSIMSKL                                               DTSTOP03
00166      EJECT                                                        DTSTOP03
00167  01  MHDR-REC.                                                    DTSTOP03
00168  ++INCLUDE DTSIMHDR                                               DTSTOP03
00169      EJECT                                                        DTSTOP03
00170  01  MPRF-REC.                                                    DTSTOP03
00171  ++INCLUDE DTSIMPRF                                               DTSTOP03
00172      EJECT                                                        DTSTOP03
00173  01  MQTR-REC.                                                    DTSTOP03
00174  ++INCLUDE DTSIMQTR                                               DTSTOP03
00175      EJECT                                                        DTSTOP03
00176  01  MRPT-REC.                                                    DTSTOP03
00177  ++INCLUDE DTSIMRPT                                               DTSTOP03
00178      EJECT                                                        DTSTOP03
00179  01  MDST-REC.                                                    DTSTOP03
00180  ++INCLUDE DTSIMDST                                               DTSTOP03
00181      EJECT                                                        DTSTOP03
00182  01  MPAY-REC.                                                    DTSTOP03
00183  ++INCLUDE DTSIMPAY                                               DTSTOP03
00184      EJECT                                                        DTSTOP03
00185  01  MNTE-REC.                                                    DTSTOP03
00186  ++INCLUDE DTSIMNTE                                               DTSTOP03
00187      EJECT                                                        DTSTOP03
00188  01  L923-LINK-AREA.                                              DTSTOP03
00189  ++INCLUDE DTSIL923                                               DTSTOP03
00190      EJECT                                                        DTSTOP03
00191  01  ASKL-REC.                                                    DTSTOP03
00192  ++INCLUDE DTSIASKL                                               DTSTOP03
00193      EJECT                                                        DTSTOP03
00194  01  MLIN-REC.                                                    DTSTOP03
00195  ++INCLUDE DTSIMLIN                                               DTSTOP03
00196      EJECT                                                        DTSTOP03
00197  01  AHDR-REC.                                                    DTSTOP03
00198  ++INCLUDE DTSIAHDR                                               DTSTOP03
00199      EJECT                                                        DTSTOP03
00200  01  ARPT-REC.                                                    DTSTOP03
00201  ++INCLUDE DTSIARPT                                               DTSTOP03
00202      EJECT                                                        DTSTOP03
00203  01  APAY-REC.                                                    DTSTOP03
00204  ++INCLUDE DTSIAPAY                                               DTSTOP03
00205      EJECT                                                        DTSTOP03
00206  01  L927-LINK-AREA.                                              DTSTOP03
00207  ++INCLUDE DTSIL927                                               DTSTOP03
00208                                                                   DTSTOP03
00209  01  L101-LINK-AREA.                                              DTSTOP03
00210  ++INCLUDE DTSIL101                                               DTSTOP03
00211                                                                   DTSTOP03
00212  01  L004-COMM-AREA.                                              DTSTOP03
00213  ++INCLUDE DTSIL004                                               DTSTOP03
00214      EJECT                                                        DTSTOP03
00215  PROCEDURE DIVISION.                                              DTSTOP03
00216      SKIP2                                                        DTSTOP03
00217      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSTOP03
00218                                                                   DTSTOP03
00219      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSTOP03
00220                                                                   DTSTOP03
00221      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSTOP03
00222      SKIP2                                                        DTSTOP03
00223      GOBACK.                                                      DTSTOP03
00224      EJECT                                                        DTSTOP03
00225  I0000-INITIATE.                                                  DTSTOP03
00226      SKIP2                                                        DTSTOP03
00227      MOVE 'N' TO WRK-TRACE-IND.                                   DTSTOP03
00228                                                                   DTSTOP03
00229      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSTOP03
00230                                                                   DTSTOP03
00231      PERFORM I3000-BATCH-HEADER        THRU I3000-EXIT.           DTSTOP03
00232                                                                   DTSTOP03
00233      PERFORM S005-FROM-SYS             THRU S005-EXIT.            DTSTOP03
00234                                                                   DTSTOP03
00235  I0000-EXIT.                                                      DTSTOP03
00236      EXIT.                                                        DTSTOP03
00237                                                                   DTSTOP03
00238  I2000-OPEN-FILES-1.                                              DTSTOP03
00239      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSTOP03
00240                                                                   DTSTOP03
00241      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSTOP03
00242                                                                   DTSTOP03
00243      PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSTOP03
00244 **   PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT.              DTSTOP03
00245 **   PERFORM S910-OPEN-UPDATE-HDR    THRU S910-EXIT.              DTSTOP03
00246      PERFORM S923-OPEN-READ THRU S923-EXIT.                       DTSTOP03
00247      PERFORM S927-OPEN-UPDATE         THRU S927-EXIT.             DTSTOP03
00248                                                                   DTSTOP03
00249      OPEN OUTPUT OUT-FILE.                                        DTSTOP03
00250      IF NOT Z057-FILE-OK-88                                       DTSTOP03
00251         DISPLAY 'OUTPUT FILE OPEN ERROR: ' Z057-STATUS            DTSTOP03
00252         PERFORM S999-ABEND THRU S999-EXIT                         DTSTOP03
00253      END-IF.                                                      DTSTOP03
00254                                                                   DTSTOP03
00255      OPEN INPUT IN-FILE.                                          DTSTOP03
00256      IF NOT Z058-FILE-OK-88                                       DTSTOP03
00257         DISPLAY 'INPUT  FILE OPEN ERROR: ' Z058-STATUS            DTSTOP03
00258         PERFORM S999-ABEND THRU S999-EXIT                         DTSTOP03
00259      END-IF.                                                      DTSTOP03
00260                                                                   DTSTOP03
00261  I2000-EXIT.                                                      DTSTOP03
00262      EXIT.                                                        DTSTOP03
00263                                                                   DTSTOP03
00264  I3000-BATCH-HEADER.                                              DTSTOP03
00265      MOVE LOW-VALUES        TO MHDR-KEY-AREA.                     DTSTOP03
00266      MOVE +0 TO MHDR-EMP-NO.                                      DTSTOP03
00267      SET MHDR-HDR-88 TO TRUE.                                     DTSTOP03
00268      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSTOP03
00269      PERFORM S910-READ THRU S910-EXIT.                            DTSTOP03
00270                                                                   DTSTOP03
00271      IF L910-NO-REC-88                                            DTSTOP03
00272         MOVE 'MHDR RECORD NOT FOUND (I0000)'                      DTSTOP03
00273           TO ABEND-MSG                                            DTSTOP03
00274         PERFORM S999-ABEND THRU S999-EXIT.                        DTSTOP03
00275                                                                   DTSTOP03
00276      MOVE MSKL-REC TO MHDR-REC.                                   DTSTOP03
00277                                                                   DTSTOP03
00278      PERFORM S1000-INITIATE-AHDR       THRU S1000-EXIT.           DTSTOP03
00279      DISPLAY 'FIRST BATCH: ' AHDR-BATCH-NO.                       DTSTOP03
00280                                                                   DTSTOP03
00281  I3000-EXIT.                                                      DTSTOP03
00282      EXIT.                                                        DTSTOP03
00283                                                                   DTSTOP03
00284      EJECT                                                        DTSTOP03
00285  P0000-PROCESS.                                                   DTSTOP03
00286      READ IN-FILE AT END GO TO P0000-EXIT.                        DTSTOP03
00287                                                                   DTSTOP03
00288      MOVE +0 TO WRK-MPRF-CNT                                      DTSTOP03
00289                 WRK-EXCLUDE-CNT                                   DTSTOP03
00290                 WRK-UPDATE-CNT                                    DTSTOP03
00291                 DIS-MLIN-AMT                                      DTSTOP03
00292                 DIS-MPRF-AMT                                      DTSTOP03
00293                 WRK-INTEREST-AMT.                                 DTSTOP03
00294      SET WRK-ERROR-NO-88     TO TRUE.                             DTSTOP03
00295                                                                   DTSTOP03
00296      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSTOP03
00297      MOVE LOW-VALUES TO MPRF-KEY-AREA.                            DTSTOP03
00298                                                                   DTSTOP03
00299      MOVE +0 TO MSKL-EMP-NO.                                      DTSTOP03
00300                                                                   DTSTOP03
00301      SET MPRF-PRF-88 TO TRUE.                                     DTSTOP03
00302      MOVE +000001    TO MPRF-EMP-NO                               DTSTOP03
00303      MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA.                         DTSTOP03
00304      PERFORM S910-READ THRU S910-EXIT.                            DTSTOP03
00305      IF L910-OK-88                                                DTSTOP03
00306         MOVE MSKL-REC TO MPRF-REC                                 DTSTOP03
00307         SET WRK-MPRF-OK TO TRUE                                   DTSTOP03
00308      ELSE                                                         DTSTOP03
00309         DISPLAY 'BAD FIRST READ ' L910-RESULT-IND                 DTSTOP03
00310         SET L910-NO-REC-88 TO TRUE                                DTSTOP03
00311         GO TO P0000-EXIT.                                         DTSTOP03
00312                                                                   DTSTOP03
00313      DISPLAY 'LIST OF EMPLOYERS WITH BALANCE DUE GT ZERO.  '.     DTSTOP03
00314 *    DISPLAY 'REPORT DTSBZ063 - AUTOMATIC WITHDRAWALS      '.     DTSTOP03
00315      DISPLAY SPACE.                                               DTSTOP03
00316                                                                   DTSTOP03
00317      PERFORM P1000-READ-NEXT THRU P1000-EXIT                      DTSTOP03
00318         UNTIL WRK-MPRF-NO-REC                                     DTSTOP03
00319         OR WRK-ERROR-YES-88.                                      DTSTOP03
00320 **      OR MPRF-EMP-NO > 020999.                                  DTSTOP03
00321 **      OR WRK-REL-CNT > +100.                                    DTSTOP03
00322  P0000-EXIT.                                                      DTSTOP03
00323      EXIT.                                                        DTSTOP03
00324      EJECT                                                        DTSTOP03
00325  P1000-READ-NEXT.                                                 DTSTOP03
00326                                                                   DTSTOP03
00327            ADD +1 TO WRK-MPRF-CNT                                 DTSTOP03
00328                                                                   DTSTOP03
00329          IF MPRF-BANKRP-OPEN-88                                   DTSTOP03
00330             GO TO P1000-READ-CONTINUE.                            DTSTOP03
00331                                                                   DTSTOP03
00332          IF MPRF-TOT-BALANCE-AMT < 99                             DTSTOP03
00333             GO TO P1000-READ-CONTINUE.                            DTSTOP03
00334                                                                   DTSTOP03
00335          IF MPRF-ORG-HSEHLD-DMSTIC-88                             DTSTOP03
00336             GO TO P1000-READ-CONTINUE.                            DTSTOP03
00337                                                                   DTSTOP03
00338 **       IF MPRF-ESTB-DATE < 20050101                             DTSTOP03
00339 **          GO TO P1000-READ-CONTINUE.                            DTSTOP03
00340                                                                   DTSTOP03
00341 **       IF MPRF-ESTB-DATE > 20190501                             DTSTOP03
00342 **          GO TO P1000-READ-CONTINUE.                            DTSTOP03
00343                                                                   DTSTOP03
00344      IF MPRF-NOT-WRITTEN-OFF-88                                   DTSTOP03
00345         MOVE 'N' TO WRITE-OFF                                     DTSTOP03
00346      ELSE                                                         DTSTOP03
00347         MOVE 'Y' TO WRITE-OFF.                                    DTSTOP03
00348                                                                   DTSTOP03
00349      MOVE ZEROS TO  DIS-MLIN-AMT WRK-MLIN-AMT                     DTSTOP03
00350                     DIS-MPRF-AMT WRK-MPRF-AMT.                    DTSTOP03
00351      MOVE ZEROS TO WRK-CERTIFICATE-DATE                           DTSTOP03
00352                                                                      CL**2
00353      IF MPRF-MLIN-IND NOT = 'Y'                                      CL*10
00354         GO TO P1000-READ-CONTINUE.                                   CL*10
00355                                                                      CL*11
00356                                                                      CL*12
00357      PERFORM P7000-SCAN-LIN THRU P7000-EXIT                          CL**2
00358      MOVE WRK-MLIN-AMT   TO DIS-MLIN-AMT.                            CL*11
00359 *    DISPLAY '>>MPRF TOT: ' MPRF-EMP-NO ' ' MPRF-TOT-BALANCE-AMT     CL**2
00360                                                                      CL*11
00361      DISPLAY '>>MLIN LIN: ' MLIN-EMP-NO ' ' WRK-MLIN-IND.            CL*15
00362      IF WRK-MLIN-IND = 'Y'                                           CL**7
00363      PERFORM P5000-READ-MQTR THRU P5000-EXIT                         CL**8
00364 *    MOVE MPRF-TOT-BALANCE-AMT TO WRK-BALANCE-AMT                    CL**4
00365      MOVE WRK-MPRF-AMT   TO DIS-MPRF-AMT                             CL**4
00366      DISPLAY 'TOTAL LIEN: ' MPRF-EMP-NO ';'                          CL**2
00367              MPRF-PRIMARY-NAME(1:20) ';'                          DTSTOP03
00368              MPRF-EMP-CLASS ';'                                   DTSTOP03
00369              MPRF-EMP-STATUS ';'                                  DTSTOP03
00370 *            MPRF-ORG-TYPE ','                                    DTSTOP03
00371 *            WRITE-OFF ','                                        DTSTOP03
00372 *            MPRF-PURSUED-RPT-CNT ','                             DTSTOP03
00373              MPRF-BANKRUPTCY-OPEN-IND ';'                         DTSTOP03
00374               MPRF-MDPC-IND ';'                                   DTSTOP03
00375               MPRF-MAPL-IND ';'                                   DTSTOP03
00376               MPRF-MLIN-IND ';'                                   DTSTOP03
00377               WRK-CERTIFICATE-DATE ';'                            DTSTOP03
00378              DIS-MPRF-AMT ';'                                     DTSTOP03
00379              DIS-MLIN-AMT ';'                                     DTSTOP03
00380              MPRF-RETURN-MAIL-IND ';'.                            DTSTOP03
00381                                                                   DTSTOP03
00382  P1000-READ-CONTINUE.                                             DTSTOP03
00383                                                                   DTSTOP03
00384         MOVE MPRF-REC TO MSKL-REC.                                DTSTOP03
00385      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSTOP03
00386                                                                   DTSTOP03
00387      IF NOT L910-OK-88                                            DTSTOP03
00388         DISPLAY ' EMPLOYER NOT FOUND ' MPRF-EMP-NO                   CL*11
00389         SET WRK-MPRF-NO-REC TO TRUE                               DTSTOP03
00390      ELSE                                                         DTSTOP03
00391         SET WRK-MPRF-OK TO TRUE                                   DTSTOP03
00392         MOVE MSKL-REC TO MPRF-REC.                                DTSTOP03
00393                                                                   DTSTOP03
00394  P1000-EXIT.                                                      DTSTOP03
00395      EXIT.                                                        DTSTOP03
00396                                                                   DTSTOP03
00397  P7000-SCAN-LIN.                                                  DTSTOP03
00398      MOVE 'N' TO WRK-MLIN-IND.                                       CL**6
00399      MOVE ZEROS TO WRK-MLIN-AMT                                   DTSTOP03
00400      MOVE ZEROS TO DIS-MLIN-AMT                                   DTSTOP03
00401      MOVE LOW-VALUES  TO MLIN-KEY-AREA.                           DTSTOP03
00402      MOVE MPRF-EMP-NO TO MLIN-EMP-NO.                             DTSTOP03
00403      SET MLIN-LIN-88  TO TRUE.                                    DTSTOP03
00404      MOVE MLIN-KEY-AREA TO MSKL-KEY-AREA.                         DTSTOP03
00405                                                                   DTSTOP03
00406      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSTOP03
00407      PERFORM S910-READ      THRU S910-EXIT.                          CL*15
00408      IF L910-NO-REC-88                                            DTSTOP03
00409         DISPLAY 'NO 1LIEN: ' MPRF-EMP-NO ';'                         CL*15
00410         GO TO P7000-EXIT                                          DTSTOP03
00411      ELSE                                                         DTSTOP03
00412         PERFORM P7100-SCAN-MLIN THRU P7100-EXIT                   DTSTOP03
00413            UNTIL WRK-MLIN-NO-REC.                                 DTSTOP03
00414                                                                   DTSTOP03
00415  P7000-EXIT.                                                      DTSTOP03
00416      EXIT.                                                        DTSTOP03
00417  P7100-SCAN-MLIN.                                                 DTSTOP03
00418      MOVE MSKL-REC TO MLIN-REC.                                   DTSTOP03
00419         DISPLAY 'NO 1LIEN: ' MLIN-EMP-NO ' ' MLIN-STATUS-CD.         CL*15
00420      IF MLIN-STATUS-ACTIVE-88                                     DTSTOP03
00421         NEXT SENTENCE                                                CL**2
00422      ELSE                                                            CL**2
00423         GO TO P7100-CONTINUE.                                        CL**2
00424                                                                      CL**2
00425         DISPLAY '1LIEN: ' MPRF-EMP-NO ';'                            CL*14
00426      IF MLIN-ESTB-DATE < 20130101 OR                                 CL**2
00427         MLIN-ESTB-DATE > 20191231                                    CL**2
00428         GO TO P7100-CONTINUE.                                        CL**2
00429                                                                      CL**2
00430         DISPLAY '2LIEN: ' MPRF-EMP-NO ';'                            CL*14
00431        DISPLAY ' MLIN AMT; ' MLIN-STMT-DUE-AMT.                      CL**9
00432      IF MLIN-STMT-DUE-AMT <  .01                                     CL**9
00433         GO TO P7100-CONTINUE.                                        CL**3
00434                                                                      CL**6
00435      MOVE 'Y' TO WRK-MLIN-IND.                                       CL**6
00436                                                                      CL**3
00437         MOVE MLIN-COMP-DATE TO WRK-CERTIFICATE-DATE               DTSTOP03
00438         ADD  MLIN-STMT-DUE-AMT TO WRK-MLIN-AMT.                   DTSTOP03
00439         MOVE MLIN-STMT-DUE-AMT TO DIS-MLIN-AMT                       CL**2
00440                                                                      CL**2
00441         DISPLAY 'MLIEN: ' MPRF-EMP-NO ';'                            CL**2
00442              WRK-CERTIFICATE-DATE ';'                                CL**2
00443              DIS-MLIN-AMT ';'                                        CL**2
00444              MLIN-COV-CNT ';'                                        CL**2
00445              MLIN-COVERED-YRQ(1) ';'                                 CL**2
00446              MLIN-COVERED-YRQ(2) ';'                                 CL**2
00447              MLIN-COVERED-YRQ(3) ';'                                 CL**2
00448              MLIN-COVERED-YRQ(4) ';'                                 CL**2
00449              MLIN-COVERED-YRQ(5) ';'                                 CL**2
00450              MLIN-COVERED-YRQ(6) ';'                                 CL**2
00451              MLIN-COVERED-YRQ(7) ';'                                 CL**2
00452              MLIN-COVERED-YRQ(8) ';'                                 CL**2
00453              MLIN-COVERED-YRQ(9) ';'.                                CL**2
00454 *       SET WRK-MLIN-NO-REC TO TRUE                               DTSTOP03
00455 *       GO TO P7100-EXIT.                                         DTSTOP03
00456                                                                   DTSTOP03
00457  P7100-CONTINUE.                                                     CL**2
00458      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSTOP03
00459      IF L910-NO-REC-88                                            DTSTOP03
00460         SET WRK-MLIN-NO-REC TO TRUE.                              DTSTOP03
00461                                                                   DTSTOP03
00462  P7100-EXIT.                                                      DTSTOP03
00463      EXIT.                                                        DTSTOP03
00464  P5000-READ-MQTR.                                                 DTSTOP03
00465 *      DISPLAY '>>>> P5000-READ-MQTR>>>> ' MPRF-EMP-NO.           DTSTOP03
00466      MOVE LOW-VALUES  TO MQTR-KEY-AREA.                           DTSTOP03
00467      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSTOP03
00468      MOVE ZEROS  TO WRK-MPRF-AMT.                                 DTSTOP03
00469                                                                   DTSTOP03
00470      SET MQTR-QTR-88  TO TRUE.                                    DTSTOP03
00471      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSTOP03
00472                                                                   DTSTOP03
00473      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSTOP03
00474                                                                   DTSTOP03
00475      IF L910-NO-REC-88                                            DTSTOP03
00476         DISPLAY ' BQTR REC NOT FOUND ' MPRF-EMP-NO                DTSTOP03
00477         GO TO P5000-EXIT.                                         DTSTOP03
00478      PERFORM S910-READ THRU S910-EXIT.                            DTSTOP03
00479                                                                   DTSTOP03
00480      IF L910-NO-REC-88                                            DTSTOP03
00481         DISPLAY ' RQTR REC NOT FOUND ' MPRF-EMP-NO                DTSTOP03
00482         GO TO P5000-EXIT.                                         DTSTOP03
00483                                                                   DTSTOP03
00484      MOVE MSKL-REC TO MQTR-REC.                                   DTSTOP03
00485      PERFORM P5100-MQTR-SCAN THRU P5100-EXIT                      DTSTOP03
00486            UNTIL L910-NO-REC-88.                                  DTSTOP03
00487                                                                   DTSTOP03
00488                                                                   DTSTOP03
00489  P5000-EXIT.                                                      DTSTOP03
00490      EXIT.                                                        DTSTOP03
00491                                                                   DTSTOP03
00492  P5100-MQTR-SCAN.                                                 DTSTOP03
00493 *      DISPLAY '>>>> P5100-READ-MQTR>>> ' MPRF-EMP-NO.            DTSTOP03
00494      MOVE ZEROS TO L101-PAID-CHNG.                                DTSTOP03
00495      PERFORM                                                      DTSTOP03
00496         VARYING MQTR-ACCT-IDX FROM +1 BY +1                       DTSTOP03
00497         UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                       DTSTOP03
00498           ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                    DTSTOP03
00499                               TO WRK-MPRF-AMT                     DTSTOP03
00500 *    DISPLAY 'MQTR AMT: ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)        DTSTOP03
00501 *    DISPLAY 'WRK  AMT: ' WRK-MPRF-AMT                            DTSTOP03
00502      IF MQTR-BALANCE-AMT (MQTR-ACCT-IDX) > 0                      DTSTOP03
00503         PERFORM P5001-READ-MRPT THRU P5001-EXIT                   DTSTOP03
00504        END-IF                                                     DTSTOP03
00505      IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX)                          DTSTOP03
00506          ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                     DTSTOP03
00507           TO L101-PAID-CHNG                                       DTSTOP03
00508      END-IF                                                       DTSTOP03
00509      END-PERFORM.                                                 DTSTOP03
00510       IF L101-PAID-CHNG > +0                                      DTSTOP03
00511           NEXT SENTENCE                                           DTSTOP03
00512       ELSE                                                        DTSTOP03
00513           GO TO P5100-CONTINUE.                                   DTSTOP03
00514                                                                   DTSTOP03
00515 *    MOVE MHDR-CURR-RUN-DATE TO L101-RECEIVED-DATE.                  CL**4
00516 *    IF L101-RECEIVED-DATE > 0                                    DTSTOP03
00517 *         NEXT SENTENCE                                           DTSTOP03
00518 *     ELSE                                                        DTSTOP03
00519 *       DISPLAY ' RPT REC NOT FOUND- NO INT ' MPRF-EMP-NO         DTSTOP03
00520 *         GO TO P5100-CONTINUE.                                   DTSTOP03
00521                                                                   DTSTOP03
00522       SET L101-WAIVE-INT-NO-88 TO TRUE.                           DTSTOP03
00523 *     SET L101-ABATE-PEN-NO-88 TO TRUE.                           DTSTOP03
00524                                                                   DTSTOP03
00525       MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                DTSTOP03
00526                                                                   DTSTOP03
00527       MOVE MQTR-INT-AREA TO L101-INT-AREA.                        DTSTOP03
00528                                                                   DTSTOP03
00529       PERFORM S101-PER-MONTH-YES THRU S101-EXIT.                  DTSTOP03
00530                                                                   DTSTOP03
00531       ADD L101-INT-CHARGE-CHNG TO WRK-MPRF-AMT.                   DTSTOP03
00532                                                                   DTSTOP03
00533      DISPLAY 'BAL  AMT: ' MQTR-EMP-NO ' ' WRK-MPRF-AMT               CL**4
00534              ' TAX  AMT: ' L101-PAID-CHNG                            CL**4
00535              ' INT AMT: ' L101-INT-CHARGE-CHNG.                      CL**5
00536  P5100-CONTINUE.                                                  DTSTOP03
00537       MOVE MQTR-REC TO MSKL-REC.                                  DTSTOP03
00538        PERFORM S910-READ-NEXT THRU S910-EXIT.                     DTSTOP03
00539        IF L910-NO-REC-88                                          DTSTOP03
00540         SET L910-NO-REC-88 TO TRUE                                DTSTOP03
00541         GO TO P5100-EXIT.                                         DTSTOP03
00542                                                                   DTSTOP03
00543       MOVE MSKL-REC TO MQTR-REC.                                  DTSTOP03
00544                                                                   DTSTOP03
00545  P5100-EXIT.                                                      DTSTOP03
00546      EXIT.                                                        DTSTOP03
00547                                                                   DTSTOP03
00548  P5001-READ-MRPT.                                                 DTSTOP03
00549 *      DISPLAY '>>>> P5001-READ-MRPT>>>>> ' MPRF-EMP-NO.          DTSTOP03
00550      MOVE LOW-VALUES  TO MRPT-KEY-AREA.                           DTSTOP03
00551      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSTOP03
00552      MOVE MQTR-YRQ    TO MRPT-YRQ                                 DTSTOP03
00553                                                                   DTSTOP03
00554      SET MRPT-RPT-88  TO TRUE.                                    DTSTOP03
00555      MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA.                         DTSTOP03
00556                                                                   DTSTOP03
00557      MOVE ZEROS              TO L101-RECEIVED-DATE.               DTSTOP03
00558      PERFORM S910-START-BROWSE  THRU S910-EXIT.                   DTSTOP03
00559                                                                   DTSTOP03
00560      IF L910-NO-REC-88                                            DTSTOP03
00561         DISPLAY ' RPT REC NOT FOUND ' MPRF-EMP-NO                 DTSTOP03
00562         MOVE MHDR-CURR-RUN-DATE TO L101-RECEIVED-DATE             DTSTOP03
00563         GO TO P5001-EXIT.                                         DTSTOP03
00564                                                                   DTSTOP03
00565      PERFORM P5002-MRPT-SCAN THRU P5002-EXIT                      DTSTOP03
00566            UNTIL L910-NO-REC-88.                                  DTSTOP03
00567                                                                   DTSTOP03
00568                                                                   DTSTOP03
00569  P5001-EXIT.                                                      DTSTOP03
00570      EXIT.                                                        DTSTOP03
00571                                                                   DTSTOP03
00572  P5002-MRPT-SCAN.                                                 DTSTOP03
00573 *      DISPLAY '>>>> P5002-SCAN-MRPT>>> ' MPRF-EMP-NO.            DTSTOP03
00574      MOVE MSKL-REC TO MRPT-REC.                                   DTSTOP03
00575      IF MRPT-ORIG-88 OR MRPT-ESTIM-88                             DTSTOP03
00576         MOVE MRPT-RECEIVED-DATE TO L101-RECEIVED-DATE             DTSTOP03
00577         SET L910-NO-REC-88 TO TRUE                                DTSTOP03
00578         GO TO P5002-EXIT.                                         DTSTOP03
00579                                                                   DTSTOP03
00580       MOVE MRPT-REC TO MSKL-REC.                                  DTSTOP03
00581        PERFORM S910-READ-NEXT THRU S910-EXIT.                     DTSTOP03
00582        IF L910-NO-REC-88                                          DTSTOP03
00583         SET L910-NO-REC-88 TO TRUE                                DTSTOP03
00584         GO TO P5002-EXIT.                                         DTSTOP03
00585                                                                   DTSTOP03
00586                                                                   DTSTOP03
00587  P5002-EXIT.                                                      DTSTOP03
00588      EXIT.                                                        DTSTOP03
00589  P5111-SUM-PENALTY.                                               DTSTOP03
00590      PERFORM                                                      DTSTOP03
00591         VARYING MQTR-ACCT-IDX FROM +1 BY +1                       DTSTOP03
00592         UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                       DTSTOP03
00593            IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)               DTSTOP03
00594               ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                DTSTOP03
00595                                 TO WRK-PENALTY-AMT                DTSTOP03
00596            ELSE                                                   DTSTOP03
00597               IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                  DTSTOP03
00598                  ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)             DTSTOP03
00599                                 TO WRK-UI-BAL                     DTSTOP03
00600               END-IF                                              DTSTOP03
00601            END-IF                                                 DTSTOP03
00602      END-PERFORM.                                                 DTSTOP03
00603                                                                   DTSTOP03
00604  P5111-EXIT.                                                      DTSTOP03
00605      EXIT.                                                        DTSTOP03
00606                                                                   DTSTOP03
00607                                                                   DTSTOP03
00608  P5120-FIND-REPORT.                                               DTSTOP03
00609                                                                   DTSTOP03
00610      DISPLAY '*** P5120-1 ' MPRF-EMP-NO                           DTSTOP03
00611            '  ' MQTR-YRQ.                                         DTSTOP03
00612                                                                   DTSTOP03
00613      SET WRK-EMP-SELECTED-NO TO TRUE                              DTSTOP03
00614      MOVE ZERO TO WRK-RPT-RECEIVED-DATE                           DTSTOP03
00615                   WRK-RPT-BATCH-NO                                DTSTOP03
00616                   WRK-RPT-ITEM-NO.                                DTSTOP03
00617 *    SET WRK-SUPPL-RPT-NO TO TRUE.                                DTSTOP03
00618 *    SET WRK-WITHDRAWN-RPT-NO TO TRUE.                            DTSTOP03
00619                                                                   DTSTOP03
00620      MOVE LOW-VALUES  TO MRPT-KEY-AREA.                           DTSTOP03
00621      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSTOP03
00622      MOVE MQTR-YRQ    TO MRPT-YRQ.                                DTSTOP03
00623      MOVE ZEROS       TO MRPT-BATCH-NO.                           DTSTOP03
00624      MOVE ZEROS       TO MRPT-ITEM-NO                             DTSTOP03
00625                                                                   DTSTOP03
00626      SET MRPT-RPT-88  TO TRUE.                                    DTSTOP03
00627      MOVE MRPT-REC TO MSKL-REC.                                   DTSTOP03
00628                                                                   DTSTOP03
00629      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSTOP03
00630      IF L910-OK-88                                                DTSTOP03
00631         PERFORM P5121-SCAN-MRPT THRU P5121-EXIT                   DTSTOP03
00632            UNTIL L910-NO-REC-88.                                  DTSTOP03
00633                                                                   DTSTOP03
00634      IF WRK-EMP-SELECTED-YES                                      DTSTOP03
00635         SET WRK-MRPT-OK     TO TRUE                               DTSTOP03
00636         DISPLAY ' MRPT REPORT SELECTED ' MPRF-EMP-NO ' ' MRPT-YRQ DTSTOP03
00637         GO TO P5120-EXIT                                          DTSTOP03
00638      END-IF.                                                      DTSTOP03
00639                                                                   DTSTOP03
00640                                                                   DTSTOP03
00641  P5120-EXIT.                                                      DTSTOP03
00642      EXIT.                                                        DTSTOP03
00643                                                                   DTSTOP03
00644  P5121-SCAN-MRPT.                                                 DTSTOP03
00645      MOVE MSKL-REC TO MRPT-REC.                                   DTSTOP03
00646      IF MRPT-YRQ = MQTR-YRQ                                       DTSTOP03
00647         NEXT SENTENCE                                             DTSTOP03
00648      ELSE                                                         DTSTOP03
00649         IF MRPT-YRQ > MQTR-YRQ                                    DTSTOP03
00650            SET WRK-EMP-SELECTED-NO TO TRUE                        DTSTOP03
00651            SET L910-NO-REC-88  TO TRUE                            DTSTOP03
00652            GO TO P5121-EXIT                                       DTSTOP03
00653         ELSE                                                      DTSTOP03
00654            GO TO P5121-READ-NEXT                                  DTSTOP03
00655         END-IF                                                    DTSTOP03
00656      END-IF.                                                      DTSTOP03
00657                                                                   DTSTOP03
00658      IF MRPT-ORIG-88 AND MRPT-RESPONSIBLE-OP-ID = 'WEBESSP '      DTSTOP03
00659               MOVE MRPT-BATCH-NO TO WRK-RPT-BATCH-NO              DTSTOP03
00660               MOVE MRPT-ITEM-NO TO WRK-RPT-ITEM-NO                DTSTOP03
00661               SET WRK-EMP-SELECTED-YES TO TRUE                    DTSTOP03
00662               SET L910-NO-REC-88  TO TRUE                         DTSTOP03
00663               GO TO P5121-EXIT                                    DTSTOP03
00664      END-IF.                                                      DTSTOP03
00665                                                                   DTSTOP03
00666                                                                   DTSTOP03
00667  P5121-READ-NEXT.                                                 DTSTOP03
00668      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSTOP03
00669      IF L910-NO-REC-88                                            DTSTOP03
00670         SET WRK-MRPT-NO-REC TO TRUE.                              DTSTOP03
00671                                                                   DTSTOP03
00672  P5121-EXIT.                                                      DTSTOP03
00673      EXIT.                                                        DTSTOP03
00674                                                                   DTSTOP03
00675  P5130-ACCT-TRANS.                                                DTSTOP03
00676 **   DISPLAY 'P5130 '                                             DTSTOP03
00677      ADD +1 TO SEQ.                                               DTSTOP03
00678 **   MOVE MPRF-EMP-NO TO EMP-ACCT-DISP.                           DTSTOP03
00679 *    DISPLAY SEQ ' RATED  ' EMP-ACCT-DISP                         DTSTOP03
00680 *       '  RPT DOC # ' WRK-RPT-BATCH-NO                           DTSTOP03
00681 **      '  ' WRK-RPT-ITEM-NO.                                     DTSTOP03
00682      MOVE MPRF-EMP-NO              TO OUT-EMP.                    DTSTOP03
00683      MOVE MQTR-YRQ                 TO L004-QTR-5-9.               DTSTOP03
00684      SET L004-FROM-5               TO TRUE.                       DTSTOP03
00685      PERFORM S004-EDIT-QTR         THRU S004-EXIT.                DTSTOP03
00686      MOVE L004-SLASH-5-QTR         TO OUT-QTR.                    DTSTOP03
00687      MOVE WRK-RPT-BATCH-NO         TO OUT-BATCH.                  DTSTOP03
00688      MOVE WRK-RPT-ITEM-NO          TO OUT-ITEM.                   DTSTOP03
00689      WRITE OUT-REC                 FROM WRK-OUT-REC.              DTSTOP03
00690      IF NOT Z057-FILE-OK-88                                       DTSTOP03
00691         DISPLAY 'CANNOT WRITE OUTPUT FILE ' Z057-STATUS           DTSTOP03
00692         SET WRK-ERROR-YES-88       TO TRUE                        DTSTOP03
00693         GO TO P5130-EXIT                                          DTSTOP03
00694      END-IF.                                                      DTSTOP03
00695      PERFORM P5131-READ-MRPT-MPAY  THRU P5131-EXIT.               DTSTOP03
00696      PERFORM P5132-WITHDRAW-MRPT   THRU P5132-EXIT.               DTSTOP03
00697      PERFORM P5133-REVERSE-MPAY    THRU P5133-EXIT.               DTSTOP03
00698 *    PERFORM P5134-ENTER-ARPT      THRU P5134-EXIT.               DTSTOP03
00699                                                                   DTSTOP03
00700  P5130-EXIT.                                                      DTSTOP03
00701      EXIT.                                                        DTSTOP03
00702                                                                   DTSTOP03
00703  P5131-READ-MRPT-MPAY.                                            DTSTOP03
00704 **   DISPLAY 'P5131 READ MRPT MPAY '                              DTSTOP03
00705      SET WRK-MPAY-FOUND-YES TO TRUE.                              DTSTOP03
00706      SET WRK-MRPT-FOUND-YES TO TRUE.                              DTSTOP03
00707      MOVE ZERO TO WRK-REMIT-AMT.                                  DTSTOP03
00708                                                                   DTSTOP03
00709      MOVE LOW-VALUES  TO MRPT-KEY-AREA.                           DTSTOP03
00710      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSTOP03
00711      MOVE MQTR-YRQ    TO MRPT-YRQ.                                DTSTOP03
00712      MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO                       DTSTOP03
00713      MOVE WRK-RPT-ITEM-NO  TO MRPT-ITEM-NO.                       DTSTOP03
00714      SET MRPT-RPT-88  TO TRUE.                                    DTSTOP03
00715      MOVE MRPT-REC TO MSKL-REC.                                   DTSTOP03
00716                                                                   DTSTOP03
00717      PERFORM S910-READ         THRU S910-EXIT.                    DTSTOP03
00718      IF L910-OK-88                                                DTSTOP03
00719         DISPLAY ' MRPT-EMP-NO '   MRPT-EMP-NO                     DTSTOP03
00720         DISPLAY ' MRPT-YRQ '      MRPT-YRQ                        DTSTOP03
00721         DISPLAY ' MRPT-BATCH-NO ' MRPT-BATCH-NO                   DTSTOP03
00722         DISPLAY ' MRPT-ITEM-NO ' MRPT-ITEM-NO                     DTSTOP03
00723         MOVE MSKL-REC TO MRPT-REC                                 DTSTOP03
00724      ELSE                                                         DTSTOP03
00725         DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO                   DTSTOP03
00726         SET WRK-MRPT-FOUND-NO TO TRUE                             DTSTOP03
00727         GO TO P5131-EXIT.                                         DTSTOP03
00728                                                                   DTSTOP03
00729      MOVE LOW-VALUES  TO MPAY-KEY-AREA.                           DTSTOP03
00730      MOVE MPRF-EMP-NO TO MPAY-EMP-NO.                             DTSTOP03
00731      MOVE WRK-RPT-BATCH-NO TO MPAY-BATCH-NO                       DTSTOP03
00732      MOVE WRK-RPT-ITEM-NO  TO MPAY-ITEM-NO.                       DTSTOP03
00733      SET MPAY-PAY-88  TO TRUE.                                    DTSTOP03
00734      MOVE MPAY-REC TO MSKL-REC.                                   DTSTOP03
00735                                                                   DTSTOP03
00736      PERFORM S910-READ         THRU S910-EXIT.                    DTSTOP03
00737      IF L910-OK-88                                                DTSTOP03
00738         MOVE MSKL-REC TO MPAY-REC                                 DTSTOP03
00739         MOVE MPAY-REMIT-AMT TO WRK-REMIT-AMT                      DTSTOP03
00740         DISPLAY 'MPAY-EMP-NO '  MPAY-EMP-NO                       DTSTOP03
00741         DISPLAY 'MPAY-BATCH-NO ' MPAY-BATCH-NO                    DTSTOP03
00742         DISPLAY 'MPAY-ITEM-NO ' MPAY-ITEM-NO                      DTSTOP03
00743      ELSE                                                         DTSTOP03
00744         DISPLAY 'CANNOT FIND MPAY ' MPRF-EMP-NO                   DTSTOP03
00745         SET WRK-MPAY-FOUND-NO TO TRUE                             DTSTOP03
00746         GO TO P5131-EXIT.                                         DTSTOP03
00747                                                                   DTSTOP03
00748  P5131-EXIT.                                                      DTSTOP03
00749      EXIT.                                                        DTSTOP03
00750                                                                   DTSTOP03
00751  P5132-WITHDRAW-MRPT.                                             DTSTOP03
00752 *    DISPLAY 'P5132 WITHDRAW MRPT '                               DTSTOP03
00753      IF WRK-MRPT-FOUND-NO                                         DTSTOP03
00754         GO TO P5132-EXIT.                                         DTSTOP03
00755                                                                   DTSTOP03
00756      MOVE LOW-VALUES TO ARPT-REC.                                 DTSTOP03
00757                                                                   DTSTOP03
00758      IF AHDR-ATC-FILE-TRAN-CNT < +999                             DTSTOP03
00759         NEXT SENTENCE                                             DTSTOP03
00760      ELSE                                                         DTSTOP03
00761         PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT              DTSTOP03
00762         PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT.              DTSTOP03
00763                                                                   DTSTOP03
00764      MOVE AHDR-BATCH-NO TO ARPT-BATCH-NO.                         DTSTOP03
00765      ADD +1 TO AHDR-ATC-FILE-TRAN-CNT.                            DTSTOP03
00766      MOVE AHDR-ATC-FILE-TRAN-CNT TO ARPT-ITEM-NO.                 DTSTOP03
00767      SET ARPT-RPT-88 TO TRUE.                                     DTSTOP03
00768                                                                   DTSTOP03
00769      MOVE MPRF-PRIMARY-NAME TO ARPT-NAME-CHECK.                   DTSTOP03
00770      MOVE MPRF-EMP-NO TO ARPT-EMP-NO.                             DTSTOP03
00771      SET ARPT-WITHDRW-88 TO TRUE.                                 DTSTOP03
00772      MOVE MQTR-YRQ       TO ARPT-YRQ.                             DTSTOP03
00773                                                                   DTSTOP03
00774      COMPUTE ARPT-TOT-WAGE =                                      DTSTOP03
00775         -1 * MRPT-TOT-WAGE.                                       DTSTOP03
00776      COMPUTE ARPT-TAX-WAGE =                                      DTSTOP03
00777         -1 * MRPT-TAX-WAGE.                                       DTSTOP03
00778      COMPUTE ARPT-EXCESS-WAGE =                                   DTSTOP03
00779         -1 * MRPT-EXCESS-WAGE.                                    DTSTOP03
00780                                                                   DTSTOP03
00781      MOVE +0 TO ARPT-REMIT-AMT.                                   DTSTOP03
00782      SET ARPT-WAGE-RPT-NO-ENTRY-88 TO TRUE.                       DTSTOP03
00783      SET ARPT-WAIVE-BOTH-NO-88                                    DTSTOP03
00784          ARPT-WAIVE-INT-NO-88                                     DTSTOP03
00785          ARPT-WAIVE-LATE-PEN-NO-88                                DTSTOP03
00786          ARPT-STATUS-CHNG-NO-88    TO TRUE.                       DTSTOP03
00787                                                                   DTSTOP03
00788      SET ARPT-TOTAL-NO-ENTRY-88                                   DTSTOP03
00789          ARPT-1ST-MTH-NO-ENTRY-88                                 DTSTOP03
00790          ARPT-2ND-MTH-NO-ENTRY-88                                 DTSTOP03
00791          ARPT-3RD-MTH-NO-ENTRY-88 TO TRUE.                        DTSTOP03
00792                                                                   DTSTOP03
00793      SET ARPT-VERIFIED-NO-88 TO TRUE.                             DTSTOP03
00794      MOVE +0 TO ARPT-RECEIVED-DATE                                DTSTOP03
00795                 ARPT-DEPOSIT-DATE.                                DTSTOP03
00796      MOVE 'SYS' TO ARPT-RESPONSIBLE-ACTIVITY.                     DTSTOP03
00797      MOVE SPACES TO ARPT-RESPONSIBLE-OP-ID.                       DTSTOP03
00798      MOVE SPACE TO ARPT-DISREGARD-EDITS-IND.                      DTSTOP03
00799      SET ARPT-PASSED-FULL-EDITS-YES-88 TO TRUE.                   DTSTOP03
00800      MOVE +0 TO ARPT-PROCESSED-DATE                               DTSTOP03
00801                 ARPT-TRACE-NO                                     DTSTOP03
00802                 ARPT-PSEUDO-BATCH-NO                              DTSTOP03
00803                 ARPT-PSEUDO-ITEM-NO.                              DTSTOP03
00804                                                                   DTSTOP03
00805      MOVE ARPT-REC TO ASKL-REC.                                   DTSTOP03
00806 **   DISPLAY 'ARPT-NAME-CHECK '   ARPT-NAME-CHECK                 DTSTOP03
00807 **   DISPLAY 'ARPT-EMP-NO '   ARPT-EMP-NO                         DTSTOP03
00808 **   DISPLAY 'ARPT-YRQ ' ARPT-YRQ                                 DTSTOP03
00809      PERFORM S923-WRITE THRU S923-EXIT.                           DTSTOP03
00810                                                                   DTSTOP03
00811      DISPLAY 'P5132 REPORT WITHDRAWN ' ARPT-EMP-NO ' ' ARPT-YRQ.  DTSTOP03
00812  P5132-EXIT.                                                      DTSTOP03
00813      EXIT.                                                        DTSTOP03
00814                                                                   DTSTOP03
00815  P5133-REVERSE-MPAY.                                              DTSTOP03
00816                                                                   DTSTOP03
00817 **   DISPLAY 'P5133 REVERSE MPAY '                                DTSTOP03
00818      IF WRK-MPAY-FOUND-NO                                         DTSTOP03
00819         GO TO P5133-EXIT.                                         DTSTOP03
00820                                                                   DTSTOP03
00821      MOVE LOW-VALUES TO APAY-REC.                                 DTSTOP03
00822                                                                   DTSTOP03
00823      IF AHDR-ATC-FILE-TRAN-CNT < +999                             DTSTOP03
00824         NEXT SENTENCE                                             DTSTOP03
00825      ELSE                                                         DTSTOP03
00826         PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT              DTSTOP03
00827         PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT.              DTSTOP03
00828                                                                   DTSTOP03
00829      MOVE AHDR-BATCH-NO TO APAY-BATCH-NO.                         DTSTOP03
00830      ADD +1 TO AHDR-ATC-FILE-TRAN-CNT.                            DTSTOP03
00831      MOVE AHDR-ATC-FILE-TRAN-CNT TO APAY-ITEM-NO.                 DTSTOP03
00832      SET APAY-PAY-88 TO TRUE.                                     DTSTOP03
00833                                                                   DTSTOP03
00834      MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK.                   DTSTOP03
00835      MOVE MPRF-EMP-NO TO APAY-EMP-NO.                             DTSTOP03
00836      SET APAY-PAY-REV-88 TO TRUE.                                 DTSTOP03
00837                                                                   DTSTOP03
00838      COMPUTE APAY-REMIT-AMT =                                     DTSTOP03
00839         -1 * MPAY-REMIT-AMT.                                      DTSTOP03
00840                                                                   DTSTOP03
00841      ADD APAY-REMIT-AMT    TO AHDR-ATC-FILE-REMIT-AMT.            DTSTOP03
00842                                                                   DTSTOP03
00843      SET APAY-WAIVE-INT-NO-88                                     DTSTOP03
00844          APAY-WAIVE-LATE-PEN-NO-88                                DTSTOP03
00845          APAY-NSF-PEN-CHARGE-NO-88 TO TRUE.                       DTSTOP03
00846                                                                   DTSTOP03
00847      MOVE +0 TO APAY-RECEIVED-DATE                                DTSTOP03
00848                 APAY-DEPOSIT-DATE                                 DTSTOP03
00849                 APAY-APPLIC-YRQ.                                  DTSTOP03
00850      MOVE SPACES TO APAY-APPLIC-IND.                              DTSTOP03
00851                                                                   DTSTOP03
00852      MOVE MPAY-BATCH-NO TO APAY-APPLIC-BATCH-NO.                  DTSTOP03
00853      MOVE MPAY-ITEM-NO  TO APAY-APPLIC-ITEM-NO.                   DTSTOP03
00854                                                                   DTSTOP03
00855      MOVE 'SYS' TO APAY-RESPONSIBLE-ACTIVITY.                     DTSTOP03
00856      MOVE SPACES TO APAY-RESPONSIBLE-OP-ID.                       DTSTOP03
00857      MOVE SPACE TO APAY-DISREGARD-EDITS-IND.                      DTSTOP03
00858      MOVE +0 TO APAY-PROCESSED-DATE.                              DTSTOP03
00859      MOVE +0 TO APAY-NSF-MNTE-ABSTIME.                            DTSTOP03
00860      MOVE +0 TO APAY-TRACE-NO.                                    DTSTOP03
00861      SET APAY-ANNUAL-RPT-NULL-88   TO TRUE.                       DTSTOP03
00862 **   DISPLAY 'MPAY-BATCH-NO ' MPAY-BATCH-NO                       DTSTOP03
00863 **   DISPLAY 'MPAY-ITEM-NO  ' MPAY-ITEM-NO                        DTSTOP03
00864      MOVE APAY-REC TO ASKL-REC.                                   DTSTOP03
00865                                                                   DTSTOP03
00866      PERFORM S923-WRITE THRU S923-EXIT.                           DTSTOP03
00867                                                                   DTSTOP03
00868      DISPLAY 'MPAY REVERSED ' MPAY-BATCH-NO ' ' MPAY-ITEM-NO      DTSTOP03
00869               ' ' MPAY-EMP-NO.                                    DTSTOP03
00870  P5133-EXIT.                                                      DTSTOP03
00871      EXIT.                                                        DTSTOP03
00872                                                                   DTSTOP03
00873  P5134-ENTER-ARPT.                                                DTSTOP03
00874                                                                   DTSTOP03
00875 **   DISPLAY 'P5134 ENTER APRT '                                  DTSTOP03
00876                                                                   DTSTOP03
00877      IF WRK-MRPT-FOUND-NO                                         DTSTOP03
00878         GO TO P5134-EXIT.                                         DTSTOP03
00879                                                                   DTSTOP03
00880      MOVE LOW-VALUES TO ARPT-REC.                                 DTSTOP03
00881                                                                   DTSTOP03
00882      IF AHDR-ATC-FILE-TRAN-CNT < +999                             DTSTOP03
00883         NEXT SENTENCE                                             DTSTOP03
00884      ELSE                                                         DTSTOP03
00885         PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT              DTSTOP03
00886         PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT.              DTSTOP03
00887                                                                   DTSTOP03
00888      MOVE AHDR-BATCH-NO TO ARPT-BATCH-NO.                         DTSTOP03
00889      ADD +1 TO AHDR-ATC-FILE-TRAN-CNT.                            DTSTOP03
00890      MOVE AHDR-ATC-FILE-TRAN-CNT TO ARPT-ITEM-NO.                 DTSTOP03
00891      SET ARPT-RPT-88 TO TRUE.                                     DTSTOP03
00892                                                                   DTSTOP03
00893      MOVE MPRF-PRIMARY-NAME TO ARPT-NAME-CHECK.                   DTSTOP03
00894      MOVE MPRF-EMP-NO TO ARPT-EMP-NO.                             DTSTOP03
00895      SET ARPT-ORIG-88    TO TRUE.                                 DTSTOP03
00896      MOVE MQTR-YRQ       TO ARPT-YRQ.                             DTSTOP03
00897                                                                   DTSTOP03
00898      COMPUTE ARPT-TOT-WAGE =                                      DTSTOP03
00899              MRPT-TOT-WAGE.                                       DTSTOP03
00900      COMPUTE ARPT-TAX-WAGE =                                      DTSTOP03
00901              MRPT-TAX-WAGE.                                       DTSTOP03
00902      COMPUTE ARPT-EXCESS-WAGE =                                   DTSTOP03
00903              MRPT-EXCESS-WAGE.                                    DTSTOP03
00904                                                                   DTSTOP03
00905      MOVE WRK-REMIT-AMT TO ARPT-REMIT-AMT.                        DTSTOP03
00906      ADD ARPT-REMIT-AMT    TO AHDR-ATC-FILE-REMIT-AMT.            DTSTOP03
00907      SET ARPT-WAGE-RPT-NO-ENTRY-88 TO TRUE.                       DTSTOP03
00908      SET ARPT-WAIVE-BOTH-NO-88                                    DTSTOP03
00909          ARPT-WAIVE-INT-NO-88                                     DTSTOP03
00910          ARPT-WAIVE-LATE-PEN-NO-88 TO TRUE.                       DTSTOP03
00911                                                                   DTSTOP03
00912      MOVE MRPT-TOTAL-EMPL-CNT   TO ARPT-TOTAL-EMPL-CNT.           DTSTOP03
00913      MOVE MRPT-1ST-MTH-EMPL-CNT TO ARPT-1ST-MTH-EMPL-CNT.         DTSTOP03
00914      MOVE MRPT-2ND-MTH-EMPL-CNT TO ARPT-2ND-MTH-EMPL-CNT.         DTSTOP03
00915      MOVE MRPT-3RD-MTH-EMPL-CNT TO ARPT-3RD-MTH-EMPL-CNT.         DTSTOP03
00916                                                                   DTSTOP03
00917      SET ARPT-VERIFIED-NO-88 TO TRUE.                             DTSTOP03
00918 ****FIX RECEIVED DATE HERE                                        DTSTOP03
00919      EVALUATE MPRF-EMP-NO                                         DTSTOP03
00920           WHEN 179242                                             DTSTOP03
00921                MOVE 20131127 TO ARPT-RECEIVED-DATE                DTSTOP03
00922                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00923           WHEN 173938                                             DTSTOP03
00924                MOVE 20131120 TO ARPT-RECEIVED-DATE                DTSTOP03
00925                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00926           WHEN 178627                                             DTSTOP03
00927                MOVE 20131125 TO ARPT-RECEIVED-DATE                DTSTOP03
00928                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00929           WHEN 178646                                             DTSTOP03
00930                MOVE 20131125 TO ARPT-RECEIVED-DATE                DTSTOP03
00931                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00932           WHEN 178842                                             DTSTOP03
00933                MOVE 20131125 TO ARPT-RECEIVED-DATE                DTSTOP03
00934                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00935           WHEN 179229                                             DTSTOP03
00936                MOVE 20131125 TO ARPT-RECEIVED-DATE                DTSTOP03
00937                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00938           WHEN 179678                                             DTSTOP03
00939                MOVE 20131125 TO ARPT-RECEIVED-DATE                DTSTOP03
00940                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00941           WHEN 179748                                             DTSTOP03
00942                MOVE 20131125 TO ARPT-RECEIVED-DATE                DTSTOP03
00943                                 ARPT-DEPOSIT-DATE                 DTSTOP03
00944           WHEN OTHER                                              DTSTOP03
00945                DISPLAY 'ERROR IN FIXING RECEIVED DATE'            DTSTOP03
00946      END-EVALUATE.                                                DTSTOP03
00947                                                                   DTSTOP03
00948      MOVE          MRPT-RESPONSIBLE-ACTIVITY                      DTSTOP03
00949                 TO ARPT-RESPONSIBLE-ACTIVITY                      DTSTOP03
00950      MOVE 'SYS' TO ARPT-RESPONSIBLE-ACTIVITY.                     DTSTOP03
00951      MOVE     MRPT-RESPONSIBLE-OP-ID                              DTSTOP03
00952            TO ARPT-RESPONSIBLE-OP-ID.                             DTSTOP03
00953      MOVE SPACE TO ARPT-DISREGARD-EDITS-IND.                      DTSTOP03
00954      SET ARPT-PASSED-FULL-EDITS-YES-88 TO TRUE.                   DTSTOP03
00955      MOVE +0 TO ARPT-PROCESSED-DATE.                              DTSTOP03
00956      MOVE +0 TO ARPT-PSEUDO-BATCH-NO                              DTSTOP03
00957                 ARPT-PSEUDO-ITEM-NO                               DTSTOP03
00958                 ARPT-TRACE-NO.                                    DTSTOP03
00959      SET ARPT-STATUS-CHNG-NO-88  TO TRUE.                         DTSTOP03
00960                                                                   DTSTOP03
00961      MOVE ARPT-REC TO ASKL-REC.                                   DTSTOP03
00962 **   DISPLAY 'ARPT-BATCH-NO '  ARPT-BATCH-NO                      DTSTOP03
00963 **   DISPLAY 'ARPT-EMP-NO '   ARPT-EMP-NO                         DTSTOP03
00964 **   DISPLAY 'ARPT-YRQ '  ARPT-YRQ                                DTSTOP03
00965      PERFORM S923-WRITE THRU S923-EXIT.                           DTSTOP03
00966                                                                   DTSTOP03
00967                                                                   DTSTOP03
00968  P5134-EXIT.                                                      DTSTOP03
00969      EXIT.                                                        DTSTOP03
00970                                                                   DTSTOP03
00971  P5140-ACCT-TRANS.                                                DTSTOP03
00972      MOVE ZERO TO WRK-REMIT-AMT.                                  DTSTOP03
00973      ADD +1 TO SEQ.                                               DTSTOP03
00974 **   MOVE MPRF-EMP-NO TO EMP-ACCT-DISP                            DTSTOP03
00975 *    DISPLAY SEQ ' SELF INS ' EMP-ACCT-DISP                       DTSTOP03
00976 *       '   RPT DOC # ' WRK-RPT-BATCH-NO                          DTSTOP03
00977 **      '  ' WRK-RPT-ITEM-NO.                                     DTSTOP03
00978      MOVE MPRF-EMP-NO              TO OUT-EMP.                    DTSTOP03
00979      MOVE MRPT-YRQ                 TO L004-QTR-5-9.               DTSTOP03
00980      SET L004-FROM-5               TO TRUE.                       DTSTOP03
00981      PERFORM S004-EDIT-QTR         THRU S004-EXIT.                DTSTOP03
00982      MOVE L004-SLASH-5-QTR         TO OUT-QTR.                    DTSTOP03
00983      MOVE WRK-RPT-BATCH-NO         TO OUT-BATCH.                  DTSTOP03
00984      MOVE WRK-RPT-ITEM-NO          TO OUT-ITEM.                   DTSTOP03
00985      WRITE OUT-REC                 FROM WRK-OUT-REC.              DTSTOP03
00986      IF NOT Z058-FILE-OK-88                                       DTSTOP03
00987         DISPLAY 'CANNOT WRITE OUTPUT FILE ' Z058-STATUS           DTSTOP03
00988         SET WRK-ERROR-YES-88       TO TRUE                        DTSTOP03
00989         GO TO P5140-EXIT                                          DTSTOP03
00990      END-IF.                                                      DTSTOP03
00991      PERFORM P5141-READ-MRPT       THRU P5141-EXIT.               DTSTOP03
00992      PERFORM P5132-WITHDRAW-MRPT   THRU P5132-EXIT.               DTSTOP03
00993 *    PERFORM P5134-ENTER-ARPT      THRU P5134-EXIT.               DTSTOP03
00994                                                                   DTSTOP03
00995  P5140-EXIT.                                                      DTSTOP03
00996      EXIT.                                                        DTSTOP03
00997                                                                   DTSTOP03
00998  P5141-READ-MRPT.                                                 DTSTOP03
00999      SET WRK-MRPT-FOUND-YES TO TRUE.                              DTSTOP03
01000                                                                   DTSTOP03
01001      MOVE LOW-VALUES  TO MRPT-KEY-AREA.                           DTSTOP03
01002      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSTOP03
01003      MOVE MQTR-YRQ    TO MRPT-YRQ.                                DTSTOP03
01004      MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO                       DTSTOP03
01005      MOVE WRK-RPT-ITEM-NO  TO MRPT-ITEM-NO.                       DTSTOP03
01006      SET MRPT-RPT-88  TO TRUE.                                    DTSTOP03
01007      MOVE MRPT-REC TO MSKL-REC.                                   DTSTOP03
01008                                                                   DTSTOP03
01009      PERFORM S910-READ         THRU S910-EXIT.                    DTSTOP03
01010      IF L910-OK-88                                                DTSTOP03
01011         MOVE MSKL-REC TO MRPT-REC                                 DTSTOP03
01012      ELSE                                                         DTSTOP03
01013 **      DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO                   DTSTOP03
01014         SET WRK-MRPT-FOUND-NO TO TRUE                             DTSTOP03
01015         GO TO P5141-EXIT.                                         DTSTOP03
01016                                                                   DTSTOP03
01017  P5141-EXIT.                                                      DTSTOP03
01018      EXIT.                                                        DTSTOP03
01019                                                                   DTSTOP03
01020  P5200-ADD-MNTE.                                                  DTSTOP03
01021      MOVE LENGTH OF T003-REC     TO T003-LENGTH.                  DTSTOP03
01022      MOVE '003'                  TO T003-REC-TYPE.                DTSTOP03
01023      MOVE 'SYSTEM    '           TO T003-ORIGIN.                  DTSTOP03
01024      MOVE L005-DATE              TO T003-SYS-DATE.                DTSTOP03
01025      MOVE L005-TIME              TO T003-SYS-TIME.                DTSTOP03
01026      SET T003-ADD-MNTE-88        TO TRUE.                         DTSTOP03
01027                                                                   DTSTOP03
01028      MOVE LOW-VALUES              TO                              DTSTOP03
01029      MNTE-KEY-AREA.                                               DTSTOP03
01030      MOVE MPRF-EMP-NO             TO MNTE-EMP-NO.                 DTSTOP03
01031      SET MNTE-NTE-88              TO TRUE.                        DTSTOP03
01032      MOVE +0                      TO MNTE-PURGE-DATE.             DTSTOP03
01033      SET MNTE-NOT-CONVERTED-88    TO TRUE.                        DTSTOP03
01034                                                                   DTSTOP03
01035      MOVE L005-DATE               TO MNTE-ESTB-DATE               DTSTOP03
01036                                      MNTE-CHNG-DATE.              DTSTOP03
01037      MOVE ZERO                    TO MNTE-KEY-ESTB-ABSTIME        DTSTOP03
01038                                      MNTE-DATA-ESTB-ABSTIME       DTSTOP03
01039                                      MNTE-CHNG-ABSTIME.           DTSTOP03
01040      MOVE 'SYSTEM  '              TO MNTE-ESTB-OP-ID              DTSTOP03
01041                                      MNTE-CHNG-OP-ID.             DTSTOP03
01042                                                                   DTSTOP03
01043      MOVE '4TH QTR ANNUAL REPORT CORRECTION   '                   DTSTOP03
01044                                   TO MNTE-SUBJECT.                DTSTOP03
01045                                                                   DTSTOP03
01046      MOVE +2                      TO MNTE-TEXT-CNT.               DTSTOP03
01047                                                                   DTSTOP03
01048                MOVE  2014      TO WRK-MNTE-MSG-YR                 DTSTOP03
01049                MOVE  4         TO WRK-MNTE-MSG-QTR                DTSTOP03
01050      MOVE WRK-MNTE-MSG-LINE1      TO MNTE-TEXT (1).               DTSTOP03
01051      MOVE WRK-MNTE-MSG-LINE2      TO MNTE-TEXT (2).               DTSTOP03
01052 **   MOVE WRK-MNTE-MSG-LINE3      TO MNTE-TEXT (3).               DTSTOP03
01053                                                                   DTSTOP03
01054      MOVE MPRF-EMP-NO               TO T003-EMP-NO.               DTSTOP03
01055      MOVE MNTE-REC                  TO T003-MNTE-REC.             DTSTOP03
01056                                                                   DTSTOP03
01057      MOVE T003-REC                  TO TSKL-REC.                  DTSTOP03
01058      PERFORM S927-WRITE             THRU S927-EXIT.               DTSTOP03
01059      ADD +1                         TO WRK-T003-CNT.              DTSTOP03
01060                                                                   DTSTOP03
01061  P5200-EXIT.                                                      DTSTOP03
01062      EXIT.                                                        DTSTOP03
01063                                                                   DTSTOP03
01064      SKIP3                                                        DTSTOP03
01065  T0000-TERMINATE.                                                 DTSTOP03
01066                                                                   DTSTOP03
01067 *    PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT.                DTSTOP03
01068                                                                   DTSTOP03
01069      PERFORM S923-CLOSE THRU S923-EXIT.                           DTSTOP03
01070      PERFORM S927-CLOSE THRU S927-EXIT.                           DTSTOP03
01071                                                                   DTSTOP03
01072 *    MOVE MHDR-LAST-USED-BATCH-NO TO HOLD-LAST-USED-BATCH-NO.     DTSTOP03
01073                                                                   DTSTOP03
01074 *    MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSTOP03
01075                                                                   DTSTOP03
01076 *    PERFORM S910-READ THRU S910-EXIT.                            DTSTOP03
01077 *    IF L910-NO-REC-88                                            DTSTOP03
01078 *       MOVE 'MHDR RECORD NOT FOUND (T0000)'                      DTSTOP03
01079 *         TO ABEND-MSG                                            DTSTOP03
01080 *       PERFORM S999-ABEND THRU S999-EXIT.                        DTSTOP03
01081                                                                   DTSTOP03
01082 *    MOVE MSKL-REC TO MHDR-REC.                                   DTSTOP03
01083 *    MOVE HOLD-LAST-USED-BATCH-NO TO MHDR-LAST-USED-BATCH-NO.     DTSTOP03
01084 *    MOVE MHDR-CURR-RUN-DATE TO MHDR-CHNG-DATE.                   DTSTOP03
01085 *    MOVE MHDR-REC TO MSKL-REC.                                   DTSTOP03
01086                                                                   DTSTOP03
01087 *    PERFORM S910-REWRITE THRU S910-EXIT.                         DTSTOP03
01088 *    DISPLAY 'LAST BATCH: '  AHDR-BATCH-NO.                       DTSTOP03
01089                                                                   DTSTOP03
01090      DISPLAY ' '.                                                 DTSTOP03
01091                                                                   DTSTOP03
01092      DISPLAY '*** DTSBZ058 TERMINATION STATISTICS ***'.           DTSTOP03
01093                                                                   DTSTOP03
01094      DISPLAY ' '.                                                 DTSTOP03
01095                                                                   DTSTOP03
01096      DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSTOP03
01097              WRK-MPRF-CNT.                                        DTSTOP03
01098                                                                   DTSTOP03
01099      DISPLAY 'NUMBER OF ACCOUNTS UPDATED                       : 'DTSTOP03
01100              WRK-UPDATE-CNT.                                      DTSTOP03
01101                                                                   DTSTOP03
01102      DISPLAY 'NUMBER OF EMPLOYERS EXCLUDED                     : 'DTSTOP03
01103              WRK-EXCLUDE-CNT.                                     DTSTOP03
01104                                                                   DTSTOP03
01105      DISPLAY 'NOTEPAD RECORDS CREATED                          : 'DTSTOP03
01106              WRK-T003-CNT.                                        DTSTOP03
01107                                                                   DTSTOP03
01108      DISPLAY 'AMOUNT OF INTEREST REVERSED                      : 'DTSTOP03
01109              WRK-INTEREST-AMT.                                    DTSTOP03
01110                                                                   DTSTOP03
01111      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSTOP03
01112      CLOSE OUT-FILE IN-FILE.                                      DTSTOP03
01113                                                                   DTSTOP03
01114  T0000-EXIT.                                                      DTSTOP03
01115      EXIT.                                                        DTSTOP03
01116      EJECT                                                        DTSTOP03
01117                                                                   DTSTOP03
01118  S1000-INITIATE-AHDR.                                             DTSTOP03
01119      MOVE LOW-VALUES TO AHDR-REC.                                 DTSTOP03
01120                                                                   DTSTOP03
01121      IF MHDR-LAST-USED-BATCH-NO < +99999                          DTSTOP03
01122         COMPUTE AHDR-BATCH-NO = MHDR-LAST-USED-BATCH-NO + 1       DTSTOP03
01123      ELSE                                                         DTSTOP03
01124         MOVE +1 TO AHDR-BATCH-NO.                                 DTSTOP03
01125                                                                   DTSTOP03
01126      MOVE +0 TO AHDR-ITEM-NO.                                     DTSTOP03
01127      SET AHDR-HDR-88 TO TRUE.                                     DTSTOP03
01128      SET AHDR-BATCH-BALANCED-YES-88 TO TRUE.                      DTSTOP03
01129      SET AHDR-BATCH-HELD-NO-88  TO TRUE.                          DTSTOP03
01130      SET AHDR-ESTB-SYSTEM-88 TO TRUE.                             DTSTOP03
01131      MOVE SPACES TO AHDR-CHNG-OP-ID.                              DTSTOP03
01132      MOVE +0 TO AHDR-CHNG-DATE.                                   DTSTOP03
01133      MOVE MHDR-CURR-RUN-DATE TO AHDR-ESTB-DATE                    DTSTOP03
01134                                 AHDR-RECEIVED-DATE                DTSTOP03
01135                                 AHDR-DEPOSIT-DATE.                DTSTOP03
01136      MOVE +0 TO AHDR-LAST-USED-ITEM-NO                            DTSTOP03
01137                 AHDR-CONTROL-TRAN-CNT                             DTSTOP03
01138                 AHDR-ATC-FILE-TRAN-CNT                            DTSTOP03
01139                 AHDR-PROC-TRAN-CNT                                DTSTOP03
01140                 AHDR-CONTROL-REMIT-AMT                            DTSTOP03
01141                 AHDR-ATC-FILE-REMIT-AMT                           DTSTOP03
01142                 AHDR-PROC-REMIT-AMT                               DTSTOP03
01143                 AHDR-BANK-BATCH-NO.                               DTSTOP03
01144                                                                   DTSTOP03
01145  S1000-EXIT.                                                      DTSTOP03
01146      EXIT.                                                        DTSTOP03
01147                                                                   DTSTOP03
01148  S2000-TERMINATE-AHDR.                                            DTSTOP03
01149      IF AHDR-ATC-FILE-TRAN-CNT = +0                               DTSTOP03
01150         GO TO S2000-EXIT.                                         DTSTOP03
01151                                                                   DTSTOP03
01152      MOVE AHDR-BATCH-NO TO MHDR-LAST-USED-BATCH-NO.               DTSTOP03
01153      MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-LAST-USED-ITEM-NO.       DTSTOP03
01154      MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-CONTROL-TRAN-CNT.        DTSTOP03
01155      MOVE AHDR-ATC-FILE-REMIT-AMT TO AHDR-CONTROL-REMIT-AMT.      DTSTOP03
01156      MOVE AHDR-REC TO ASKL-REC.                                   DTSTOP03
01157                                                                   DTSTOP03
01158      PERFORM S923-WRITE THRU S923-EXIT.                           DTSTOP03
01159                                                                   DTSTOP03
01160  S2000-EXIT.                                                      DTSTOP03
01161      EXIT.                                                        DTSTOP03
01162                                                                   DTSTOP03
01163  S004-EDIT-QTR.                                                   DTSTOP03
01164      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSTOP03
01165                                                                   DTSTOP03
01166  S004-EXIT.                                                       DTSTOP03
01167      EXIT.                                                        DTSTOP03
01168      SKIP3                                                        DTSTOP03
01169  S005-FROM-SYS.                                                   DTSTOP03
01170      SET L005-FROM-SYS   TO TRUE.                                 DTSTOP03
01171      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSTOP03
01172                                                                   DTSTOP03
01173  S005-EXIT.                                                       DTSTOP03
01174      EXIT.                                                        DTSTOP03
01175                                                                   DTSTOP03
01176   S101-PER-MONTH-NO.                                              DTSTOP03
01177       SET L101-PER-MONTH-NO-88 TO TRUE.                           DTSTOP03
01178       GO TO S101-INT-PEN-COMP.                                    DTSTOP03
01179                                                                   DTSTOP03
01180   S101-PER-MONTH-YES.                                             DTSTOP03
01181       SET L101-PER-MONTH-YES-88 TO TRUE.                          DTSTOP03
01182       GO TO S101-INT-PEN-COMP.                                    DTSTOP03
01183                                                                   DTSTOP03
01184   S101-INT-PEN-COMP.                                              DTSTOP03
01185      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSTOP03
01186   S101-EXIT.                                                      DTSTOP03
01187       EXIT.                                                       DTSTOP03
01188  S910-OPEN-READ.                                                  DTSTOP03
01189      SET L910-OPEN-READ-88 TO TRUE.                               DTSTOP03
01190      GO TO S910-MSTR-IO.                                          DTSTOP03
01191                                                                   DTSTOP03
01192  S910-OPEN-UPDATE-NO-AIX.                                         DTSTOP03
01193      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSTOP03
01194      GO TO S910-MSTR-IO.                                          DTSTOP03
01195                                                                   DTSTOP03
01196  S910-OPEN-UPDATE-HDR.                                            DTSTOP03
01197      SET L910-OPEN-UPDATE-HDR-88    TO TRUE.                      DTSTOP03
01198      GO TO S910-MSTR-IO.                                          DTSTOP03
01199                                                                   DTSTOP03
01200  S910-READ.                                                       DTSTOP03
01201      SET L910-READ-88 TO TRUE.                                    DTSTOP03
01202      GO TO S910-MSTR-IO.                                          DTSTOP03
01203                                                                   DTSTOP03
01204  S910-START-BROWSE.                                               DTSTOP03
01205      SET L910-START-BROWSE-88 TO TRUE.                            DTSTOP03
01206      GO TO S910-MSTR-IO.                                          DTSTOP03
01207                                                                   DTSTOP03
01208  S910-READ-NEXT.                                                  DTSTOP03
01209      SET L910-READ-NEXT-88 TO TRUE.                               DTSTOP03
01210      GO TO S910-MSTR-IO.                                          DTSTOP03
01211                                                                   DTSTOP03
01212  S910-COUNT.                                                      DTSTOP03
01213      SET L910-COUNT-88 TO TRUE.                                   DTSTOP03
01214      GO TO S910-MSTR-IO.                                          DTSTOP03
01215                                                                   DTSTOP03
01216  S910-REWRITE.                                                    DTSTOP03
01217      SET L910-REWRITE-88 TO TRUE.                                 DTSTOP03
01218      GO TO S910-MSTR-IO.                                          DTSTOP03
01219                                                                   DTSTOP03
01220  S910-DELETE.                                                     DTSTOP03
01221      SET L910-DELETE-88 TO TRUE.                                  DTSTOP03
01222      GO TO S910-MSTR-IO.                                          DTSTOP03
01223                                                                   DTSTOP03
01224  S910-CLOSE.                                                      DTSTOP03
01225      SET L910-CLOSE-88     TO TRUE.                               DTSTOP03
01226      GO TO S910-MSTR-IO.                                          DTSTOP03
01227                                                                   DTSTOP03
01228  S910-MSTR-IO.                                                    DTSTOP03
01229      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSTOP03
01230                            MSKL-REC.                              DTSTOP03
01231  S910-EXIT.                                                       DTSTOP03
01232      EXIT.                                                        DTSTOP03
01233      SKIP3                                                        DTSTOP03
01234  S923-OPEN-UPDATE.                                                DTSTOP03
01235      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSTOP03
01236      GO TO S923-ATC-IO.                                           DTSTOP03
01237                                                                   DTSTOP03
01238  S923-OPEN-READ.                                                  DTSTOP03
01239      SET L923-OPEN-READ-88 TO TRUE.                               DTSTOP03
01240      GO TO S923-ATC-IO.                                           DTSTOP03
01241                                                                   DTSTOP03
01242  S923-READ.                                                       DTSTOP03
01243      SET L923-READ-88 TO TRUE.                                    DTSTOP03
01244      GO TO S923-ATC-IO.                                           DTSTOP03
01245                                                                   DTSTOP03
01246  S923-START-BROWSE.                                               DTSTOP03
01247      SET L923-START-BROWSE-88 TO TRUE.                            DTSTOP03
01248      GO TO S923-ATC-IO.                                           DTSTOP03
01249                                                                   DTSTOP03
01250  S923-READ-NEXT.                                                  DTSTOP03
01251      SET L923-READ-NEXT-88 TO TRUE.                               DTSTOP03
01252      GO TO S923-ATC-IO.                                           DTSTOP03
01253                                                                   DTSTOP03
01254  S923-WRITE.                                                      DTSTOP03
01255 **   DISPLAY 'S923 WRITE '                                        DTSTOP03
01256      SET L923-WRITE-88 TO TRUE.                                   DTSTOP03
01257      GO TO S923-ATC-IO.                                           DTSTOP03
01258                                                                   DTSTOP03
01259  S923-REWRITE.                                                    DTSTOP03
01260      SET L923-REWRITE-88 TO TRUE.                                 DTSTOP03
01261      GO TO S923-ATC-IO.                                           DTSTOP03
01262                                                                   DTSTOP03
01263  S923-DELETE.                                                     DTSTOP03
01264      SET L923-DELETE-88 TO TRUE.                                  DTSTOP03
01265      GO TO S923-ATC-IO.                                           DTSTOP03
01266                                                                   DTSTOP03
01267  S923-CLOSE.                                                      DTSTOP03
01268      SET L923-CLOSE-88 TO TRUE.                                   DTSTOP03
01269      GO TO S923-ATC-IO.                                           DTSTOP03
01270                                                                   DTSTOP03
01271  S923-ATC-IO.                                                     DTSTOP03
01272 **    DISPLAY 'DTSBU923 '                                         DTSTOP03
01273 **   DISPLAY 'L923 LINK AREA '   L923-LINK-AREA                   DTSTOP03
01274      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSTOP03
01275                            ASKL-REC.                              DTSTOP03
01276  S923-EXIT.                                                       DTSTOP03
01277      EXIT.                                                        DTSTOP03
01278      SKIP3                                                        DTSTOP03
01279  S927-OPEN-UPDATE.                                                DTSTOP03
01280      SET L927-OPEN-UPDATE-88 TO TRUE.                             DTSTOP03
01281      GO TO S927-BTC-O.                                            DTSTOP03
01282                                                                   DTSTOP03
01283  S927-WRITE.                                                      DTSTOP03
01284      SET L927-WRITE-88 TO TRUE.                                   DTSTOP03
01285      GO TO S927-BTC-O.                                            DTSTOP03
01286                                                                   DTSTOP03
01287  S927-CLOSE.                                                      DTSTOP03
01288      SET L927-CLOSE-88 TO TRUE.                                   DTSTOP03
01289      GO TO S927-BTC-O.                                            DTSTOP03
01290                                                                   DTSTOP03
01291  S927-BTC-O.                                                      DTSTOP03
01292      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSTOP03
01293                            TSKL-REC.                              DTSTOP03
01294  S927-EXIT.                                                       DTSTOP03
01295      EXIT.                                                        DTSTOP03
01296                                                                   DTSTOP03
01297      SKIP3                                                        DTSTOP03
01298  S999-ABEND.                                                      DTSTOP03
01299      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSTOP03
01300  S999-EXIT.                                                       DTSTOP03
01301      EXIT.                                                        DTSTOP03
