00001  IDENTIFICATION DIVISION.                                         12/17/03
00002  PROGRAM-ID.             DTSBZ261.                                DTSBZ261
00003  AUTHOR.                 NGC.                                        LV001
00004  DATE-WRITTEN.           OCTOBER 2003.                            DTSBZ261
00005  DATE-COMPILED.                                                   DTSBZ261
00006      SKIP3                                                        DTSBZ261
00007 *****                                                             DTSBZ261
00008 *                                                                 DTSBZ261
00009 *    FUNCTION:  CORRECT 2000/1 BATCHES ENTERED AS LATE.           DTSBZ261
00010 *                                                                 DTSBZ261
00011 *    CLONED FROM DTSBZ057 (CONV)                                  DTSBZ261
00012 *                                                                 DTSBZ261
00013 *    WITHDRAWAL RCVD DATE   = 6/30/2003                           DTSBZ261
00014 *    PAYMENT REVERSAL DATE  = 6/30/2003                           DTSBZ261
00015 *    NEW ORIGINAL RCVD DATE = 4/15/2003                           DTSBZ261
00016 *                                                                 DTSBZ261
00017 *****                                                             DTSBZ261
00018      SKIP3                                                        DTSBZ261
00019  ENVIRONMENT DIVISION.                                            DTSBZ261
00020      SKIP2                                                        DTSBZ261
00021  DATA DIVISION.                                                   DTSBZ261
00022      SKIP3                                                        DTSBZ261
00023      EJECT                                                        DTSBZ261
00024  WORKING-STORAGE SECTION.                                         DTSBZ261
000245 77  PAN-VALET PICTURE X(24) VALUE '001DTSBZ261  12/17/03'.       DTSBZ261
00025      SKIP3                                                        DTSBZ261
00026  01  WRK-AREA.                                                    DTSBZ261
00027      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +261.DTSBZ261
00028      05  ABEND-MSG                   PIC  X(60).                  DTSBZ261
00029                                                                   DTSBZ261
00030      05  WRK-START-BATCH             PIC S9(05)  COMP-3.          DTSBZ261
00031      05  HOLD-LAST-USED-BATCH-NO     PIC S9(05)  COMP-3.          DTSBZ261
00032                                                                   DTSBZ261
00033      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBZ261'.DTSBZ261
00034                                                                   DTSBZ261
00035      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3.          DTSBZ261
00036      05  WRK-UPDATE-CNT              PIC S9(07)  COMP-3.          DTSBZ261
00037      05  WRK-EXCLUDE-CNT             PIC S9(07)  COMP-3.          DTSBZ261
00038      05  WRK-INTEREST-CHG            PIC S9(09)V99  COMP-3.       DTSBZ261
00039      05  WRK-INTEREST-PD             PIC S9(09)V99  COMP-3.       DTSBZ261
00040      05  WRK-INTEREST-BAL            PIC S9(09)V99  COMP-3.       DTSBZ261
00041      05  WRK-REMIT-AMT               PIC S9(09)V99  COMP-3.       DTSBZ261
00042      05  WRK-REV-AMT                 PIC S9(09)V99  COMP-3.       DTSBZ261
00043      05  WRK-TOT-WAGE                PIC S9(09)V99  COMP-3.       DTSBZ261
00044      05  WRK-TAX-WAGE                PIC S9(09)V99  COMP-3.       DTSBZ261
00045      05  WRK-TOT-REMIT               PIC S9(11)V99  COMP-3        DTSBZ261
00046                                        VALUE +0.                  DTSBZ261
00047      05  WRK-TOT-REVERSE             PIC S9(11)V99  COMP-3        DTSBZ261
00048                                        VALUE +0.                  DTSBZ261
00049      05  SUB                         PIC S9(04)  COMP.            DTSBZ261
00050      05  WRK-SEQ-NO                  PIC S9(04)  COMP VALUE +0.   DTSBZ261
00051      05  WRK-EVENT-TXT               PIC  X(50)  VALUE            DTSBZ261
00052          '2002 ANNUAL REPORT DATES SET TO TIMELY BY DEFAULT'.     DTSBZ261
00053                                                                   DTSBZ261
00054      05  WRK-MQTR-CNT                PIC S9(07)  COMP-3.          DTSBZ261
00055      05  EMP-ACCT-DISP               PIC  9(06).                  DTSBZ261
00056      05  AMT-DISP                    PIC  --------9.99.           DTSBZ261
00057      05  AMT-DISP1                   PIC  --------9.99.           DTSBZ261
00058      05  WRK-TIMELY-PMT-AREA.                                     DTSBZ261
00059          10  WRK-ERROR-IND           PIC X(01).                   DTSBZ261
00060              88  WRK-ERROR-YES           VALUE 'Y'.               DTSBZ261
00061              88  WRK-ERROR-NO            VALUE 'N'.               DTSBZ261
00062          10  WRK-MPAY-FOUND-IND      PIC X(01).                   DTSBZ261
00063              88  WRK-MPAY-FOUND-YES      VALUE 'Y'.               DTSBZ261
00064              88  WRK-MPAY-FOUND-NO       VALUE 'N'.               DTSBZ261
00065          10  WRK-MRPT-FOUND-IND      PIC X(01).                   DTSBZ261
00066              88  WRK-MRPT-FOUND-YES      VALUE 'Y'.               DTSBZ261
00067              88  WRK-MRPT-FOUND-NO       VALUE 'N'.               DTSBZ261
00068          10  WRK-EMP-SELECTED-IND    PIC X(01).                   DTSBZ261
00069              88  WRK-EMP-SELECTED-YES    VALUE 'Y'.               DTSBZ261
00070              88  WRK-EMP-SELECTED-NO     VALUE 'N'.               DTSBZ261
00071          10  WRK-SUPPL-RPT-IND       PIC X(01).                   DTSBZ261
00072              88  WRK-SUPPL-RPT-YES       VALUE 'Y'.               DTSBZ261
00073              88  WRK-SUPPL-RPT-NO        VALUE 'N'.               DTSBZ261
00074          10  WRK-WITHDRAWN-RPT-IND   PIC X(01).                   DTSBZ261
00075              88  WRK-WITHDRAWN-RPT-YES   VALUE 'Y'.               DTSBZ261
00076              88  WRK-WITHDRAWN-RPT-NO    VALUE 'N'.               DTSBZ261
00077          10  WRK-RPT-BATCH-NO        PIC S9(05)  COMP-3.          DTSBZ261
00078          10  WRK-RPT-ITEM-NO         PIC S9(03)  COMP-3.          DTSBZ261
00079                                                                   DTSBZ261
00080      05  WRK-EMPL-CNT-AREA.                                       DTSBZ261
00081          10  WRK-TOT-CNT             PIC S9(07)  COMP-3.          DTSBZ261
00082          10  WRK-JAN-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00083          10  WRK-FEB-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00084          10  WRK-MAR-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00085          10  WRK-APR-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00086          10  WRK-MAY-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00087          10  WRK-JUN-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00088          10  WRK-JUL-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00089          10  WRK-AUG-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00090          10  WRK-SEP-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00091          10  WRK-OCT-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00092          10  WRK-NOV-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00093          10  WRK-DEC-CNT             PIC S9(05)  COMP-3.          DTSBZ261
00094      05  WRK-TIMELY-RPT-AREA.                                     DTSBZ261
00095          10  WRK-RPT-RECEIVED-DATE   PIC S9(09)  COMP-3.          DTSBZ261
00096                                                                   DTSBZ261
00097      05  WRK-MPRF-IND                PIC  X(01).                  DTSBZ261
00098          88 WRK-MPRF-OK           VALUE 'Y'.                      DTSBZ261
00099          88 WRK-MPRF-NO-REC       VALUE 'N'.                      DTSBZ261
00100      05  WRK-MQTR-IND                PIC  X(01).                  DTSBZ261
00101          88 WRK-MQTR-OK           VALUE 'Y'.                      DTSBZ261
00102          88 WRK-MQTR-NO-REC       VALUE 'N'.                      DTSBZ261
00103      05  WRK-MRPT-IND                PIC  X(01).                  DTSBZ261
00104          88 WRK-MRPT-OK           VALUE 'Y'.                      DTSBZ261
00105          88 WRK-MRPT-NO-REC       VALUE 'N'.                      DTSBZ261
00106                                                                   DTSBZ261
00107      05  PARM-REC-CNT                PIC S9(07)  COMP-3.          DTSBZ261
00108                                                                   DTSBZ261
00109      05  PARM-EOF-IND                    PIC  X(01).              DTSBZ261
00110                                                                   DTSBZ261
00111      05  WRK-EMP-NO                  PIC  9(06).                  DTSBZ261
00112                                                                   DTSBZ261
00113      05  WRK-TRACE-IND                   PIC  X(01).              DTSBZ261
00114                                                                   DTSBZ261
00115      05  WRK-MST-OPEN-IND                PIC  X(01).              DTSBZ261
00116                                                                   DTSBZ261
00117      05  WRK-REF-OPEN-IND                PIC  X(01).              DTSBZ261
00118                                                                   DTSBZ261
00119      EJECT                                                        DTSBZ261
00120  01  L410-LINK-AREA.                                              DTSBZ261
00121  ++INCLUDE DTSIL410                                               DTSBZ261
00122                                                                   DTSBZ261
00123  01  L005-LINK-AREA.                                              DTSBZ261
00124  ++INCLUDE DTSIL005                                               DTSBZ261
00125                                                                   DTSBZ261
00126  01  L910-LINK-AREA.                                              DTSBZ261
00127  ++INCLUDE DTSIL910                                               DTSBZ261
00128      EJECT                                                        DTSBZ261
00129  01  MSKL-REC.                                                    DTSBZ261
00130  ++INCLUDE DTSIMSKL                                               DTSBZ261
00131      EJECT                                                        DTSBZ261
00132  01  MHDR-REC.                                                    DTSBZ261
00133  ++INCLUDE DTSIMHDR                                               DTSBZ261
00134      EJECT                                                        DTSBZ261
00135  01  MPRF-REC.                                                    DTSBZ261
00136  ++INCLUDE DTSIMPRF                                               DTSBZ261
00137      EJECT                                                        DTSBZ261
00138  01  MQTR-REC.                                                    DTSBZ261
00139  ++INCLUDE DTSIMQTR                                               DTSBZ261
00140      EJECT                                                        DTSBZ261
00141  01  MRPT-REC.                                                    DTSBZ261
00142  ++INCLUDE DTSIMRPT                                               DTSBZ261
00143      EJECT                                                        DTSBZ261
00144  01  MEVL-REC.                                                    DTSBZ261
00145  ++INCLUDE DTSIMEVL                                               DTSBZ261
00146      EJECT                                                        DTSBZ261
00147  01  MPAY-REC.                                                    DTSBZ261
00148  ++INCLUDE DTSIMPAY                                               DTSBZ261
00149      EJECT                                                        DTSBZ261
00150  01  MREV-REC.                                                    DTSBZ261
00151  ++INCLUDE DTSIMREV                                               DTSBZ261
00152      EJECT                                                        DTSBZ261
00153  01  L923-LINK-AREA.                                              DTSBZ261
00154  ++INCLUDE DTSIL923                                               DTSBZ261
00155      EJECT                                                        DTSBZ261
00156  01  ASKL-REC.                                                    DTSBZ261
00157  ++INCLUDE DTSIASKL                                               DTSBZ261
00158      EJECT                                                        DTSBZ261
00159  01  AHDR-REC.                                                    DTSBZ261
00160  ++INCLUDE DTSIAHDR                                               DTSBZ261
00161      EJECT                                                        DTSBZ261
00162  01  AATX-REC.                                                    DTSBZ261
00163  ++INCLUDE DTSIAATX                                               DTSBZ261
00164      EJECT                                                        DTSBZ261
00165  01  APAY-REC.                                                    DTSBZ261
00166  ++INCLUDE DTSIAPAY                                               DTSBZ261
00167      EJECT                                                        DTSBZ261
00168  01  L931-LINK-AREA.                                              DTSBZ261
00169  ++INCLUDE DTSIL931                                               DTSBZ261
00170      EJECT                                                        DTSBZ261
00171  01  FSKL-REC.                                                    DTSBZ261
00172  ++INCLUDE DTSIFSKL                                               DTSBZ261
00173      EJECT                                                        DTSBZ261
00174  01  FCYR-REC.                                                    DTSBZ261
00175  ++INCLUDE DTSIFCYR                                               DTSBZ261
00176      EJECT                                                        DTSBZ261
00177  01  L981-LINK-AREA.                                              DTSBZ261
00178  ++INCLUDE DTSIL981                                               DTSBZ261
00179      SKIP3                                                        DTSBZ261
00180  01  WWGH-REC.                                                    DTSBZ261
00181  ++INCLUDE DTSIWWGH                                               DTSBZ261
00182      SKIP3                                                        DTSBZ261
00183  01  L983-LINK-AREA.                                              DTSBZ261
00184  ++INCLUDE DTSIL983                                               DTSBZ261
00185      SKIP3                                                        DTSBZ261
00186  01  WSKL-REC.                                                    DTSBZ261
00187  ++INCLUDE DTSIWSKL                                               DTSBZ261
00188      SKIP3                                                        DTSBZ261
00189  01  W001-REC.                                                    DTSBZ261
00190  ++INCLUDE DTSIW001                                               DTSBZ261
00191                                                                   DTSBZ261
00192  01  L004-COMM-AREA.                                              DTSBZ261
00193  ++INCLUDE DTSIL004                                               DTSBZ261
00194      EJECT                                                        DTSBZ261
00195  01  L421-LINK-AREA.                                              DTSBZ261
00196  ++INCLUDE DTSIL421                                               DTSBZ261
00197      EJECT                                                        DTSBZ261
00198  PROCEDURE DIVISION.                                              DTSBZ261
00199      SKIP2                                                        DTSBZ261
00200      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBZ261
00201                                                                   DTSBZ261
00202      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBZ261
00203                                                                   DTSBZ261
00204      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBZ261
00205      SKIP2                                                        DTSBZ261
00206      GOBACK.                                                      DTSBZ261
00207      EJECT                                                        DTSBZ261
00208  I0000-INITIATE.                                                  DTSBZ261
00209      SKIP2                                                        DTSBZ261
00210      MOVE 'N' TO WRK-TRACE-IND.                                   DTSBZ261
00211                                                                   DTSBZ261
00212      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSBZ261
00213                                                                   DTSBZ261
00214      PERFORM I3000-BATCH-HEADER        THRU I3000-EXIT.           DTSBZ261
00215                                                                   DTSBZ261
00216      PERFORM S005-FROM-SYS     THRU S005-EXIT.                    DTSBZ261
00217                                                                   DTSBZ261
00218  I0000-EXIT.                                                      DTSBZ261
00219      EXIT.                                                        DTSBZ261
00220                                                                   DTSBZ261
00221  I2000-OPEN-FILES-1.                                              DTSBZ261
00222      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBZ261
00223                                                                   DTSBZ261
00224      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBZ261
00225                                                                   DTSBZ261
00226 ***  PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSBZ261
00227 ***  PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT.              DTSBZ261
00228 ***  PERFORM S910-OPEN-UPDATE-HDR    THRU S910-EXIT.              DTSBZ261
00229      PERFORM S910-OPEN-UPDATE        THRU S910-EXIT.              DTSBZ261
00230      PERFORM S923-OPEN-UPDATE THRU S923-EXIT.                     DTSBZ261
00231      PERFORM S931-OPEN-READ THRU S931-EXIT.                       DTSBZ261
00232      PERFORM S981A-OPEN       THRU S981A-EXIT.                    DTSBZ261
00233      PERFORM S983-OPEN        THRU S983-EXIT.                     DTSBZ261
00234                                                                   DTSBZ261
00235  I2000-EXIT.                                                      DTSBZ261
00236      EXIT.                                                        DTSBZ261
00237                                                                   DTSBZ261
00238  I3000-BATCH-HEADER.                                              DTSBZ261
00239      MOVE LOW-VALUES        TO MHDR-KEY-AREA.                     DTSBZ261
00240      MOVE +0 TO MHDR-EMP-NO.                                      DTSBZ261
00241      SET MHDR-HDR-88 TO TRUE.                                     DTSBZ261
00242      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBZ261
00243      PERFORM S910-READ THRU S910-EXIT.                            DTSBZ261
00244                                                                   DTSBZ261
00245      IF L910-NO-REC-88                                            DTSBZ261
00246         MOVE 'MHDR RECORD NOT FOUND (I0000)'                      DTSBZ261
00247           TO ABEND-MSG                                            DTSBZ261
00248         PERFORM S999-ABEND THRU S999-EXIT.                        DTSBZ261
00249                                                                   DTSBZ261
00250      MOVE MSKL-REC TO MHDR-REC.                                   DTSBZ261
00251                                                                   DTSBZ261
00252      COMPUTE WRK-START-BATCH = MHDR-LAST-USED-BATCH-NO + 1.       DTSBZ261
00253                                                                   DTSBZ261
00254      PERFORM S1000-INITIATE-AHDR       THRU S1000-EXIT.           DTSBZ261
00255  I3000-EXIT.                                                      DTSBZ261
00256      EXIT.                                                        DTSBZ261
00257                                                                   DTSBZ261
00258      EJECT                                                        DTSBZ261
00259  P0000-PROCESS.                                                   DTSBZ261
00260                                                                   DTSBZ261
00261      MOVE +0 TO WRK-MPRF-CNT                                      DTSBZ261
00262                 WRK-EXCLUDE-CNT                                   DTSBZ261
00263                 WRK-UPDATE-CNT.                                   DTSBZ261
00264                                                                   DTSBZ261
00265      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBZ261
00266                                                                   DTSBZ261
00267      MOVE +0 TO MSKL-EMP-NO.                                      DTSBZ261
00268                                                                   DTSBZ261
00269      SET MSKL-PRF-88 TO TRUE.                                     DTSBZ261
00270                                                                   DTSBZ261
00271      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBZ261
00272      IF L910-OK-88                                                DTSBZ261
00273         MOVE MSKL-REC TO MPRF-REC                                 DTSBZ261
00274         SET WRK-MPRF-OK TO TRUE                                   DTSBZ261
00275      ELSE                                                         DTSBZ261
00276         DISPLAY 'BAD FIRST READ ' L910-RESULT-IND                 DTSBZ261
00277         SET L910-NO-REC-88 TO TRUE                                DTSBZ261
00278         GO TO P0000-EXIT.                                         DTSBZ261
00279                                                                   DTSBZ261
00280      DISPLAY 'CORRECTION 2002 ANNUAL REPORTS               '.     DTSBZ261
00281      DISPLAY '       DTSBZ261                              '.     DTSBZ261
00282      DISPLAY SPACE.                                               DTSBZ261
00283                                                                   DTSBZ261
00284      PERFORM P1000-READ-NEXT THRU P1000-EXIT                      DTSBZ261
00285         UNTIL WRK-MPRF-NO-REC.                                    DTSBZ261
00286 **      OR MPRF-EMP-NO > 120000.                                  DTSBZ261
00287 **      OR WRK-REL-CNT > +100.                                    DTSBZ261
00288  P0000-EXIT.                                                      DTSBZ261
00289      EXIT.                                                        DTSBZ261
00290      EJECT                                                        DTSBZ261
00291  P1000-READ-NEXT.                                                 DTSBZ261
00292      IF MPRF-EMP-NO = 136190                                      DTSBZ261
00293         NEXT SENTENCE                                             DTSBZ261
00294      ELSE                                                         DTSBZ261
00295         IF MPRF-ORG-HSEHLD-DMSTIC-88                              DTSBZ261
00296            SET L410-MODE-INPUT-YRQ-88       TO TRUE               DTSBZ261
00297            MOVE MPRF-EMP-NO TO L410-EMP-NO                        DTSBZ261
00298            MOVE 20021       TO L410-YRQ                           DTSBZ261
00299            PERFORM S410-FILING-SCHED  THRU S410-EXIT              DTSBZ261
00300            IF L410-ANN-SCHED-88                                   DTSBZ261
00301               ADD +1 TO WRK-MPRF-CNT                              DTSBZ261
00302               PERFORM P5000-READ-QTR THRU P5000-EXIT              DTSBZ261
00303               IF WRK-EMP-SELECTED-YES                             DTSBZ261
00304                  ADD +1 TO WRK-UPDATE-CNT                         DTSBZ261
00305               END-IF                                              DTSBZ261
00306            END-IF                                                 DTSBZ261
00307         END-IF                                                    DTSBZ261
00308      END-IF.                                                      DTSBZ261
00309                                                                   DTSBZ261
00310      MOVE MPRF-REC TO MSKL-REC.                                   DTSBZ261
00311      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBZ261
00312      IF NOT L910-OK-88                                            DTSBZ261
00313         SET WRK-MPRF-NO-REC TO TRUE                               DTSBZ261
00314      ELSE                                                         DTSBZ261
00315         MOVE MSKL-REC TO MPRF-REC.                                DTSBZ261
00316                                                                   DTSBZ261
00317  P1000-EXIT.                                                      DTSBZ261
00318      EXIT.                                                        DTSBZ261
00319                                                                   DTSBZ261
00320  P5000-READ-QTR.                                                  DTSBZ261
00321      SET WRK-EMP-SELECTED-NO TO TRUE.                             DTSBZ261
00322      MOVE LOW-VALUES  TO MQTR-KEY-AREA.                           DTSBZ261
00323      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBZ261
00324      MOVE 20021       TO MQTR-YRQ.                                DTSBZ261
00325      SET MQTR-QTR-88  TO TRUE.                                    DTSBZ261
00326      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBZ261
00327                                                                   DTSBZ261
00328      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBZ261
00329      IF L910-NO-REC-88                                            DTSBZ261
00330         GO TO P5000-EXIT                                          DTSBZ261
00331      ELSE                                                         DTSBZ261
00332         MOVE MSKL-REC TO MQTR-REC                                 DTSBZ261
00333         IF MQTR-YRQ > 20024                                       DTSBZ261
00334            SET L910-NO-REC-88 TO TRUE                             DTSBZ261
00335         ELSE                                                      DTSBZ261
00336            PERFORM P5120-FIND-REPORT      THRU P5120-EXIT         DTSBZ261
00337            IF WRK-EMP-SELECTED-YES                                DTSBZ261
00338               PERFORM P5130-ACCT-TRANS    THRU P5130-EXIT         DTSBZ261
00339               PERFORM P5200-EVL           THRU P5200-EXIT         DTSBZ261
00340            END-IF                                                 DTSBZ261
00341         END-IF                                                    DTSBZ261
00342      END-IF.                                                      DTSBZ261
00343                                                                   DTSBZ261
00344 *    PERFORM                                                      DTSBZ261
00345 *      UNTIL L910-NO-REC-88                                       DTSBZ261
00346 *         MOVE MSKL-REC TO MQTR-REC                               DTSBZ261
00347 *                                                                 DTSBZ261
00348 *         IF MQTR-YRQ > 20024                                     DTSBZ261
00349 *            SET L910-NO-REC-88 TO TRUE                           DTSBZ261
00350 *         ELSE                                                    DTSBZ261
00351 *            MOVE ZERO       TO WRK-INTEREST-CHG                  DTSBZ261
00352 *                               WRK-INTEREST-PD                   DTSBZ261
00353 *                               WRK-INTEREST-BAL                  DTSBZ261
00354 *            PERFORM P5120-FIND-REPORT      THRU P5120-EXIT       DTSBZ261
00355 *            IF WRK-EMP-SELECTED-YES                              DTSBZ261
00356 *               PERFORM P5110-SUM-INTEREST  THRU P5110-EXIT       DTSBZ261
00357 *               ADD +1 TO WRK-UPDATE-CNT                          DTSBZ261
00358 *               PERFORM P5130-ACCT-TRANS    THRU P5130-EXIT       DTSBZ261
00359 *            END-IF                                               DTSBZ261
00360 *         END-IF                                                  DTSBZ261
00361 *         MOVE MQTR-REC TO MSKL-REC                               DTSBZ261
00362 *         PERFORM S910-START-BROWSE THRU S910-EXIT                DTSBZ261
00363 *         PERFORM S910-READ-NEXT    THRU S910-EXIT                DTSBZ261
00364 *    END-PERFORM.                                                 DTSBZ261
00365                                                                   DTSBZ261
00366  P5000-EXIT.                                                      DTSBZ261
00367      EXIT.                                                        DTSBZ261
00368                                                                   DTSBZ261
00369  P5110-SUM-INTEREST.                                              DTSBZ261
00370      PERFORM                                                      DTSBZ261
00371         VARYING MQTR-ACCT-IDX FROM +1 BY +1                       DTSBZ261
00372         UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                       DTSBZ261
00373            IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                    DTSBZ261
00374               ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                DTSBZ261
00375                                 TO WRK-INTEREST-CHG               DTSBZ261
00376               ADD MQTR-PAID-AMT (MQTR-ACCT-IDX)                   DTSBZ261
00377                                 TO WRK-INTEREST-PD                DTSBZ261
00378               ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                DTSBZ261
00379                                 TO WRK-INTEREST-BAL               DTSBZ261
00380            END-IF                                                 DTSBZ261
00381      END-PERFORM.                                                 DTSBZ261
00382                                                                   DTSBZ261
00383  P5110-EXIT.                                                      DTSBZ261
00384      EXIT.                                                        DTSBZ261
00385                                                                   DTSBZ261
00386                                                                   DTSBZ261
00387  P5120-FIND-REPORT.                                               DTSBZ261
00388 *&                                                                DTSBZ261
00389 *    DISPLAY '*** P5120-1 ' MPRF-EMP-NO                           DTSBZ261
00390 *          '  ' DISP-QTR.                                         DTSBZ261
00391 *&                                                                DTSBZ261
00392      MOVE ZERO TO WRK-RPT-RECEIVED-DATE                           DTSBZ261
00393                   WRK-RPT-BATCH-NO                                DTSBZ261
00394                   WRK-RPT-ITEM-NO                                 DTSBZ261
00395                   WRK-JAN-CNT                                     DTSBZ261
00396                   WRK-FEB-CNT                                     DTSBZ261
00397                   WRK-MAR-CNT                                     DTSBZ261
00398                   WRK-APR-CNT                                     DTSBZ261
00399                   WRK-MAY-CNT                                     DTSBZ261
00400                   WRK-JUN-CNT                                     DTSBZ261
00401                   WRK-JUL-CNT                                     DTSBZ261
00402                   WRK-AUG-CNT                                     DTSBZ261
00403                   WRK-SEP-CNT                                     DTSBZ261
00404                   WRK-OCT-CNT                                     DTSBZ261
00405                   WRK-NOV-CNT                                     DTSBZ261
00406                   WRK-DEC-CNT.                                    DTSBZ261
00407      SET WRK-SUPPL-RPT-NO TO TRUE.                                DTSBZ261
00408      SET WRK-WITHDRAWN-RPT-NO TO TRUE.                            DTSBZ261
00409      SET WRK-MRPT-OK     TO TRUE.                                 DTSBZ261
00410                                                                   DTSBZ261
00411      MOVE LOW-VALUES  TO MRPT-KEY-AREA.                           DTSBZ261
00412      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSBZ261
00413      MOVE MQTR-YRQ    TO MRPT-YRQ.                                DTSBZ261
00414      SET MRPT-RPT-88  TO TRUE.                                    DTSBZ261
00415      MOVE MRPT-REC TO MSKL-REC.                                   DTSBZ261
00416                                                                   DTSBZ261
00417      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBZ261
00418      IF L910-OK-88                                                DTSBZ261
00419         PERFORM P5121-SCAN-MRPT THRU P5121-EXIT                   DTSBZ261
00420            UNTIL WRK-MRPT-NO-REC.                                 DTSBZ261
00421                                                                   DTSBZ261
00422 *    IF WRK-RPT-RECEIVED-DATE = ZERO                              DTSBZ261
00423 *       ADD +1 TO WRK-EXCLUDE-CNT                                 DTSBZ261
00424 *       GO TO P5120-EXIT.                                         DTSBZ261
00425                                                                   DTSBZ261
00426 *&                                                                DTSBZ261
00427 *    DISPLAY '*** P5120-2 ' MPRF-EMP-NO                           DTSBZ261
00428 *          '  ' DISP-QTR                                          DTSBZ261
00429 *          '  ' WRK-RPT-RECEIVED-DATE                             DTSBZ261
00430 *          '  ' WRK-SUPPL-RPT-IND.                                DTSBZ261
00431 *&                                                                DTSBZ261
00432                                                                   DTSBZ261
00433      IF WRK-RPT-RECEIVED-DATE > 20030415                          DTSBZ261
00434         SET WRK-EMP-SELECTED-YES TO TRUE                          DTSBZ261
00435      ELSE                                                         DTSBZ261
00436         ADD +1 TO WRK-EXCLUDE-CNT.                                DTSBZ261
00437                                                                   DTSBZ261
00438  P5120-EXIT.                                                      DTSBZ261
00439      EXIT.                                                        DTSBZ261
00440                                                                   DTSBZ261
00441  P5121-SCAN-MRPT.                                                 DTSBZ261
00442      MOVE MSKL-REC TO MRPT-REC.                                   DTSBZ261
00443 *&                                                                DTSBZ261
00444 *    DISPLAY '*** P5121 ' MPRF-EMP-NO                             DTSBZ261
00445 *          '  ' MRPT-YRQ                                          DTSBZ261
00446 *          '  ' MRPT-RPT-TYPE                                     DTSBZ261
00447 *          '  ' MRPT-RECEIVED-DATE                                DTSBZ261
00448 *          '  ' MRPT-BATCH-NO                                     DTSBZ261
00449 *          '  ' MRPT-ITEM-NO.                                     DTSBZ261
00450 *&                                                                DTSBZ261
00451 *    IF MRPT-YRQ = MQTR-YRQ                                       DTSBZ261
00452 *       NEXT SENTENCE                                             DTSBZ261
00453 *    ELSE                                                         DTSBZ261
00454         IF MRPT-YRQ > 20024                                       DTSBZ261
00455            SET WRK-MRPT-NO-REC TO TRUE                            DTSBZ261
00456            GO TO P5121-EXIT                                       DTSBZ261
00457         END-IF.                                                   DTSBZ261
00458 *    END-IF.                                                      DTSBZ261
00459                                                                   DTSBZ261
00460      IF MRPT-WITHDRW-88                                           DTSBZ261
00461         MOVE ZERO      TO WRK-RPT-RECEIVED-DATE                   DTSBZ261
00462      ELSE                                                         DTSBZ261
00463         IF MRPT-ORIG-88                                           DTSBZ261
00464            MOVE MRPT-RECEIVED-DATE                                DTSBZ261
00465                               TO WRK-RPT-RECEIVED-DATE            DTSBZ261
00466            MOVE MRPT-BATCH-NO TO WRK-RPT-BATCH-NO                 DTSBZ261
00467            MOVE MRPT-ITEM-NO  TO WRK-RPT-ITEM-NO                  DTSBZ261
00468            PERFORM P5131A-EMPL-CNTS    THRU P5131A-EXIT           DTSBZ261
00469         END-IF                                                    DTSBZ261
00470      END-IF.                                                      DTSBZ261
00471                                                                   DTSBZ261
00472      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBZ261
00473      IF L910-NO-REC-88                                            DTSBZ261
00474         SET WRK-MRPT-NO-REC TO TRUE.                              DTSBZ261
00475                                                                   DTSBZ261
00476  P5121-EXIT.                                                      DTSBZ261
00477      EXIT.                                                        DTSBZ261
00478                                                                   DTSBZ261
00479  P5130-ACCT-TRANS.                                                DTSBZ261
00480                                                                   DTSBZ261
00481 **   IF WRK-INTEREST-CHG > ZERO                                   DTSBZ261
00482 *       MOVE MPRF-EMP-NO TO EMP-ACCT-DISP                         DTSBZ261
00483 *       DISPLAY EMP-ACCT-DISP                                     DTSBZ261
00484 *          '  RPT DOC # ' WRK-RPT-BATCH-NO                        DTSBZ261
00485 *          ' ' WRK-RPT-ITEM-NO                                    DTSBZ261
00486 *          '  ' WRK-RPT-RECEIVED-DATE.                            DTSBZ261
00487 *          '  ' WRK-INTEREST-CHG                                  DTSBZ261
00488 *          '  ' WRK-INTEREST-PD                                   DTSBZ261
00489 *          '  ' WRK-INTEREST-BAL                                  DTSBZ261
00490 **   END-IF.                                                      DTSBZ261
00491                                                                   DTSBZ261
00492      PERFORM P5131-READ-MPAY       THRU P5131-EXIT.               DTSBZ261
00493      PERFORM P5132-WITHDRAW-ATX    THRU P5132-EXIT.               DTSBZ261
00494      PERFORM P5133-REVERSE-MPAY    THRU P5133-EXIT.               DTSBZ261
00495      PERFORM P5134-ENTER-AATX      THRU P5134-EXIT.               DTSBZ261
00496                                                                   DTSBZ261
00497  P5130-EXIT.                                                      DTSBZ261
00498      EXIT.                                                        DTSBZ261
00499                                                                   DTSBZ261
00500  P5131-READ-MPAY.                                                 DTSBZ261
00501      SET WRK-MPAY-FOUND-YES TO TRUE.                              DTSBZ261
00502 ***  SET WRK-MRPT-FOUND-YES TO TRUE.                              DTSBZ261
00503      MOVE ZERO TO WRK-REMIT-AMT                                   DTSBZ261
00504                   WRK-REV-AMT.                                    DTSBZ261
00505                                                                   DTSBZ261
00506 *    MOVE LOW-VALUES  TO MRPT-KEY-AREA.                           DTSBZ261
00507 *    MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSBZ261
00508 *    MOVE MQTR-YRQ    TO MRPT-YRQ.                                DTSBZ261
00509 *    MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO                       DTSBZ261
00510 *    MOVE WRK-RPT-ITEM-NO  TO MRPT-ITEM-NO.                       DTSBZ261
00511 *    SET MRPT-RPT-88  TO TRUE.                                    DTSBZ261
00512 *    MOVE MRPT-REC TO MSKL-REC.                                   DTSBZ261
00513 *                                                                 DTSBZ261
00514 *    PERFORM S910-READ         THRU S910-EXIT.                    DTSBZ261
00515 *    IF L910-OK-88                                                DTSBZ261
00516 *       MOVE MSKL-REC TO MRPT-REC                                 DTSBZ261
00517 *       PERFORM P5131A-EMPL-CNTS    THRU P5131A-EXIT              DTSBZ261
00518 *    ELSE                                                         DTSBZ261
00519 *       DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO                   DTSBZ261
00520 *       SET WRK-MRPT-FOUND-NO TO TRUE                             DTSBZ261
00521 *       GO TO P5131-EXIT.                                         DTSBZ261
00522                                                                   DTSBZ261
00523                                                                   DTSBZ261
00524      MOVE LOW-VALUES  TO MPAY-KEY-AREA.                           DTSBZ261
00525      MOVE MPRF-EMP-NO TO MPAY-EMP-NO.                             DTSBZ261
00526      MOVE WRK-RPT-BATCH-NO TO MPAY-BATCH-NO                       DTSBZ261
00527      MOVE WRK-RPT-ITEM-NO  TO MPAY-ITEM-NO.                       DTSBZ261
00528      SET MPAY-PAY-88  TO TRUE.                                    DTSBZ261
00529      MOVE MPAY-REC TO MSKL-REC.                                   DTSBZ261
00530                                                                   DTSBZ261
00531      PERFORM S910-READ         THRU S910-EXIT.                    DTSBZ261
00532      IF L910-OK-88                                                DTSBZ261
00533         MOVE MSKL-REC TO MPAY-REC                                 DTSBZ261
00534         MOVE MPAY-REMIT-AMT TO WRK-REMIT-AMT                      DTSBZ261
00535      ELSE                                                         DTSBZ261
00536         DISPLAY 'CANNOT FIND MPAY ' MPRF-EMP-NO                   DTSBZ261
00537         SET WRK-MPAY-FOUND-NO TO TRUE                             DTSBZ261
00538         GO TO P5131-EXIT.                                         DTSBZ261
00539                                                                   DTSBZ261
00540      MOVE LOW-VALUE            TO MREV-REC.                       DTSBZ261
00541      MOVE MPAY-EMP-NO          TO MREV-EMP-NO.                    DTSBZ261
00542      SET MREV-REV-88           TO TRUE.                           DTSBZ261
00543      MOVE MPAY-BATCH-NO        TO MREV-PA-BATCH-NO.               DTSBZ261
00544      MOVE MPAY-ITEM-NO         TO MREV-PA-ITEM-NO.                DTSBZ261
00545      MOVE MREV-KEY-AREA    TO MSKL-KEY-AREA.                      DTSBZ261
00546      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBZ261
00547                                                                   DTSBZ261
00548      PERFORM                                                      DTSBZ261
00549        UNTIL L910-NO-REC-88                                       DTSBZ261
00550           MOVE MSKL-REC TO MREV-REC                               DTSBZ261
00551           ADD MREV-AMT  TO WRK-REV-AMT                            DTSBZ261
00552           PERFORM S910-READ-NEXT    THRU S910-EXIT                DTSBZ261
00553      END-PERFORM.                                                 DTSBZ261
00554                                                                   DTSBZ261
00555      DISPLAY SPACE.                                               DTSBZ261
00556      MOVE MPRF-EMP-NO TO EMP-ACCT-DISP.                           DTSBZ261
00557      DISPLAY EMP-ACCT-DISP                                        DTSBZ261
00558         '  RPT DOC # ' WRK-RPT-BATCH-NO                           DTSBZ261
00559         ' ' WRK-RPT-ITEM-NO                                       DTSBZ261
00560         '  ' WRK-RPT-RECEIVED-DATE.                               DTSBZ261
00561      MOVE WRK-REV-AMT TO AMT-DISP.                                DTSBZ261
00562      MOVE WRK-REMIT-AMT TO AMT-DISP1.                             DTSBZ261
00563      DISPLAY '   REMIT ' AMT-DISP1                                DTSBZ261
00564         '  REV  ' AMT-DISP.                                       DTSBZ261
00565                                                                   DTSBZ261
00566      COMPUTE WRK-REMIT-AMT =                                      DTSBZ261
00567         (WRK-REMIT-AMT - WRK-REV-AMT).                            DTSBZ261
00568                                                                   DTSBZ261
00569                                                                   DTSBZ261
00570  P5131-EXIT.                                                      DTSBZ261
00571      EXIT.                                                        DTSBZ261
00572                                                                   DTSBZ261
00573  P5131A-EMPL-CNTS.                                                DTSBZ261
00574 *&                                                                DTSBZ261
00575      IF MRPT-EMP-NO = 133080 OR 135921                            DTSBZ261
00576         DISPLAY 'P5131A ' MRPT-EMP-NO '  ' MRPT-YRQ               DTSBZ261
00577            '  1 ' MRPT-1ST-MTH-EMPL-CNT                           DTSBZ261
00578            '  2 ' MRPT-2ND-MTH-EMPL-CNT                           DTSBZ261
00579            '  3 ' MRPT-3RD-MTH-EMPL-CNT.                          DTSBZ261
00580 *&                                                                DTSBZ261
00581                                                                   DTSBZ261
00582      EVALUATE TRUE                                                DTSBZ261
00583        WHEN MRPT-YRQ = 20021                                      DTSBZ261
00584           MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-JAN-CNT               DTSBZ261
00585           MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-FEB-CNT               DTSBZ261
00586           MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-MAR-CNT               DTSBZ261
00587        WHEN MRPT-YRQ = 20022                                      DTSBZ261
00588           MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-APR-CNT               DTSBZ261
00589           MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-MAY-CNT               DTSBZ261
00590           MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-JUN-CNT               DTSBZ261
00591        WHEN MRPT-YRQ = 20023                                      DTSBZ261
00592           MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-JUL-CNT               DTSBZ261
00593           MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-AUG-CNT               DTSBZ261
00594           MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-SEP-CNT               DTSBZ261
00595        WHEN MRPT-YRQ = 20024                                      DTSBZ261
00596           MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-OCT-CNT               DTSBZ261
00597           MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-NOV-CNT               DTSBZ261
00598           MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-DEC-CNT               DTSBZ261
00599      END-EVALUATE.                                                DTSBZ261
00600  P5131A-EXIT.                                                     DTSBZ261
00601      EXIT.                                                        DTSBZ261
00602                                                                   DTSBZ261
00603  P5132-WITHDRAW-ATX.                                              DTSBZ261
00604 *    IF WRK-MRPT-FOUND-NO                                         DTSBZ261
00605 *       GO TO P5132-EXIT.                                         DTSBZ261
00606                                                                   DTSBZ261
00607      PERFORM P5132A-FIND-WAGES     THRU P5132A-EXIT.              DTSBZ261
00608                                                                   DTSBZ261
00609      MOVE LOW-VALUES TO AATX-REC.                                 DTSBZ261
00610                                                                   DTSBZ261
00611      IF AHDR-ATC-FILE-TRAN-CNT < +999                             DTSBZ261
00612         NEXT SENTENCE                                             DTSBZ261
00613      ELSE                                                         DTSBZ261
00614         PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT              DTSBZ261
00615         PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT.              DTSBZ261
00616                                                                   DTSBZ261
00617      MOVE AHDR-BATCH-NO TO AATX-BATCH-NO.                         DTSBZ261
00618      ADD +1 TO AHDR-ATC-FILE-TRAN-CNT.                            DTSBZ261
00619      MOVE AHDR-ATC-FILE-TRAN-CNT TO AATX-ITEM-NO.                 DTSBZ261
00620      SET AATX-ATX-88 TO TRUE.                                     DTSBZ261
00621                                                                   DTSBZ261
00622      MOVE MPRF-PRIMARY-NAME TO AATX-NAME-CHECK.                   DTSBZ261
00623      MOVE MPRF-EMP-NO TO AATX-EMP-NO.                             DTSBZ261
00624      SET AATX-WITHDRW-88 TO TRUE.                                 DTSBZ261
00625      MOVE 20021          TO AATX-YRQ.                             DTSBZ261
00626                                                                   DTSBZ261
00627 *&                                                                DTSBZ261
00628      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
00629         DISPLAY 'WITHDRAW ' EMP-ACCT-DISP                         DTSBZ261
00630            '  BTC ' AATX-BATCH-NO                                 DTSBZ261
00631            '  ITM ' AATX-ITEM-NO                                  DTSBZ261
00632            '  TOT ' WRK-TOT-WAGE                                  DTSBZ261
00633            '  TAX ' WRK-TAX-WAGE                                  DTSBZ261
00634      END-IF.                                                      DTSBZ261
00635 *&                                                                DTSBZ261
00636      COMPUTE AATX-TOT-WAGE = WRK-TOT-WAGE * -1.                   DTSBZ261
00637                                                                   DTSBZ261
00638      COMPUTE AATX-TAX-WAGE = WRK-TAX-WAGE * -1.                   DTSBZ261
00639                                                                   DTSBZ261
00640      COMPUTE AATX-EXCESS-WAGE =                                   DTSBZ261
00641         (WRK-TOT-WAGE - WRK-TAX-WAGE).                            DTSBZ261
00642                                                                   DTSBZ261
00643      MOVE +0 TO AATX-REMIT-AMT.                                   DTSBZ261
00644      SET AATX-WAIVE-BOTH-NO-88                                    DTSBZ261
00645          AATX-WAIVE-INT-NO-88                                     DTSBZ261
00646          AATX-WAIVE-LATE-PEN-NO-88 TO TRUE.                       DTSBZ261
00647                                                                   DTSBZ261
00648      SET AATX-TOTAL-NO-ENTRY-88                                   DTSBZ261
00649          AATX-JAN-NO-ENTRY-88                                     DTSBZ261
00650          AATX-FEB-NO-ENTRY-88                                     DTSBZ261
00651          AATX-MAR-NO-ENTRY-88                                     DTSBZ261
00652          AATX-APR-NO-ENTRY-88                                     DTSBZ261
00653          AATX-MAY-NO-ENTRY-88                                     DTSBZ261
00654          AATX-JUN-NO-ENTRY-88                                     DTSBZ261
00655          AATX-JUL-NO-ENTRY-88                                     DTSBZ261
00656          AATX-AUG-NO-ENTRY-88                                     DTSBZ261
00657          AATX-SEP-NO-ENTRY-88                                     DTSBZ261
00658          AATX-OCT-NO-ENTRY-88                                     DTSBZ261
00659          AATX-NOV-NO-ENTRY-88                                     DTSBZ261
00660          AATX-DEC-NO-ENTRY-88 TO TRUE.                            DTSBZ261
00661                                                                   DTSBZ261
00662      SET AATX-VERIFIED-NO-88 TO TRUE.                             DTSBZ261
00663      MOVE 20030630 TO                                             DTSBZ261
00664                 AATX-RECEIVED-DATE                                DTSBZ261
00665                 AATX-DEPOSIT-DATE.                                DTSBZ261
00666      MOVE 'SYS' TO AATX-RESPONSIBLE-ACTIVITY.                     DTSBZ261
00667      MOVE SPACES TO AATX-RESPONSIBLE-OP-ID.                       DTSBZ261
00668      MOVE SPACE TO AATX-DISREGARD-EDITS-IND.                      DTSBZ261
00669      SET AATX-PASSED-FULL-EDITS-YES-88 TO TRUE.                   DTSBZ261
00670      MOVE +0 TO AATX-PROCESSED-DATE.                              DTSBZ261
00671                                                                   DTSBZ261
00672      MOVE AATX-REC TO ASKL-REC.                                   DTSBZ261
00673                                                                   DTSBZ261
00674      PERFORM S923-WRITE THRU S923-EXIT.                           DTSBZ261
00675                                                                   DTSBZ261
00676      PERFORM P5132B-WITHDRAW-WAGES  THRU P5132B-EXIT.             DTSBZ261
00677                                                                   DTSBZ261
00678  P5132-EXIT.                                                      DTSBZ261
00679      EXIT.                                                        DTSBZ261
00680                                                                   DTSBZ261
00681  P5132A-FIND-WAGES.                                               DTSBZ261
00682      MOVE ZERO                     TO WRK-TOT-WAGE                DTSBZ261
00683                                       WRK-TAX-WAGE.               DTSBZ261
00684                                                                   DTSBZ261
00685      SET L421-RPT-TYPE-SUPPL-88    TO TRUE.                       DTSBZ261
00686      MOVE MPRF-EMP-NO              TO L421-EMP-NO.                DTSBZ261
00687      MOVE 20021                    TO L421-QTR1.                  DTSBZ261
00688      MOVE 20022                    TO L421-QTR2.                  DTSBZ261
00689      MOVE 20023                    TO L421-QTR3.                  DTSBZ261
00690      MOVE 20024                    TO L421-QTR4.                  DTSBZ261
00691                                                                   DTSBZ261
00692      PERFORM S421-FIND-WAGES       THRU S421-EXIT.                DTSBZ261
00693                                                                   DTSBZ261
00694      PERFORM                                                      DTSBZ261
00695         VARYING SUB FROM +1 BY +1                                 DTSBZ261
00696         UNTIL SUB > L421-WAGE-TBL-CNT                             DTSBZ261
00697            ADD L421-QTR1-CURR-WAGE (SUB) TO WRK-TOT-WAGE          DTSBZ261
00698            ADD L421-QTR1-TAX-WAGE (SUB)  TO WRK-TAX-WAGE          DTSBZ261
00699            ADD L421-QTR2-CURR-WAGE (SUB) TO WRK-TOT-WAGE          DTSBZ261
00700            ADD L421-QTR2-TAX-WAGE (SUB)  TO WRK-TAX-WAGE          DTSBZ261
00701            ADD L421-QTR3-CURR-WAGE (SUB) TO WRK-TOT-WAGE          DTSBZ261
00702            ADD L421-QTR3-TAX-WAGE (SUB)  TO WRK-TAX-WAGE          DTSBZ261
00703            ADD L421-QTR4-CURR-WAGE (SUB) TO WRK-TOT-WAGE          DTSBZ261
00704            ADD L421-QTR4-TAX-WAGE (SUB)  TO WRK-TAX-WAGE          DTSBZ261
00705      END-PERFORM.                                                 DTSBZ261
00706                                                                   DTSBZ261
00707  P5132A-EXIT.                                                     DTSBZ261
00708      EXIT.                                                        DTSBZ261
00709                                                                   DTSBZ261
00710  P5132B-WITHDRAW-WAGES.                                           DTSBZ261
00711      MOVE ZERO TO WRK-SEQ-NO.                                     DTSBZ261
00712                                                                   DTSBZ261
00713      PERFORM P5132B1-ADD-W001       THRU P5132B1-EXIT             DTSBZ261
00714         VARYING SUB FROM +1 BY +1                                 DTSBZ261
00715         UNTIL SUB > L421-WAGE-TBL-CNT.                            DTSBZ261
00716                                                                   DTSBZ261
00717  P5132B-EXIT.                                                     DTSBZ261
00718      EXIT.                                                        DTSBZ261
00719                                                                   DTSBZ261
00720  P5132B1-ADD-W001.                                                DTSBZ261
00721      MOVE LOW-VALUES TO W001-REC.                                 DTSBZ261
00722                                                                   DTSBZ261
00723      MOVE AATX-BATCH-NO          TO W001-BATCH-NO.                DTSBZ261
00724                                                                   DTSBZ261
00725      MOVE AATX-ITEM-NO           TO W001-ITEM-NO.                 DTSBZ261
00726                                                                   DTSBZ261
00727      MOVE MPRF-EMP-NO TO W001-EMP-NO.                             DTSBZ261
00728                                                                   DTSBZ261
00729      MOVE 20021          TO L004-QTR-5-9.                         DTSBZ261
00730                                                                   DTSBZ261
00731      MOVE L421-SSN (SUB) TO W001-SSN.                             DTSBZ261
00732       SET W001-SSN-VALID-88   TO TRUE.                            DTSBZ261
00733                                                                   DTSBZ261
00734      MOVE SPACES              TO W001-NAME.                       DTSBZ261
00735      SET W001-NAME-VALID-88   TO TRUE.                            DTSBZ261
00736                                                                   DTSBZ261
00737      MOVE MHDR-CURR-RUN-DATE TO W001-RECEIVED-DATE.               DTSBZ261
00738                                                                   DTSBZ261
00739      MOVE ZERO               TO W001-RECEIVED-TIME.               DTSBZ261
00740                                                                   DTSBZ261
00741      MOVE 'SYSTEM'           TO W001-RESPONSIBLE-OP-ID.           DTSBZ261
00742                                                                   DTSBZ261
00743      SET W001-SOURCE-RPT-88        TO TRUE.                       DTSBZ261
00744                                                                   DTSBZ261
00745      MOVE 1                            TO L004-QTR-5-Q.           DTSBZ261
00746      COMPUTE W001-WAGE-CHNG =                                     DTSBZ261
00747          (L421-QTR1-CURR-WAGE (SUB) * -1).                        DTSBZ261
00748      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
00749                                           W001-TAX-WAGE           DTSBZ261
00750                                           W001-PRIOR-WAGE.        DTSBZ261
00751                                                                   DTSBZ261
00752      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
00753      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
00754      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
00755      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
00756      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
00757      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
00758 *&                                                                DTSBZ261
00759      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
00760         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
00761         MOVE L421-QTR1-CURR-WAGE (SUB) TO AMT-DISP1               DTSBZ261
00762         DISPLAY 'P5132A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
00763            '  ' AMT-DISP '  ' W001-YRQ                            DTSBZ261
00764            '  L421 ' AMT-DISP1.                                   DTSBZ261
00765 *&                                                                DTSBZ261
00766                                                                   DTSBZ261
00767      MOVE 2                            TO L004-QTR-5-Q            DTSBZ261
00768      COMPUTE W001-WAGE-CHNG =                                     DTSBZ261
00769          (L421-QTR2-CURR-WAGE (SUB) * -1).                        DTSBZ261
00770      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
00771                                           W001-TAX-WAGE           DTSBZ261
00772                                           W001-PRIOR-WAGE.        DTSBZ261
00773                                                                   DTSBZ261
00774      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
00775      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
00776      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
00777      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
00778      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
00779      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
00780 *&                                                                DTSBZ261
00781      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
00782         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
00783         DISPLAY 'P5132A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
00784            '  ' AMT-DISP '  ' W001-YRQ.                           DTSBZ261
00785 *&                                                                DTSBZ261
00786                                                                   DTSBZ261
00787      MOVE 3                            TO L004-QTR-5-Q            DTSBZ261
00788      COMPUTE W001-WAGE-CHNG =                                     DTSBZ261
00789          (L421-QTR3-CURR-WAGE (SUB) * -1).                        DTSBZ261
00790      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
00791                                           W001-TAX-WAGE           DTSBZ261
00792                                           W001-PRIOR-WAGE.        DTSBZ261
00793                                                                   DTSBZ261
00794      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
00795      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
00796      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
00797      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
00798      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
00799      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
00800 *&                                                                DTSBZ261
00801      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
00802         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
00803         DISPLAY 'P5132A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
00804            '  ' AMT-DISP '  ' W001-YRQ.                           DTSBZ261
00805 *&                                                                DTSBZ261
00806                                                                   DTSBZ261
00807      MOVE 4                            TO L004-QTR-5-Q            DTSBZ261
00808      COMPUTE W001-WAGE-CHNG =                                     DTSBZ261
00809          (L421-QTR4-CURR-WAGE (SUB) * -1).                        DTSBZ261
00810      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
00811                                           W001-TAX-WAGE           DTSBZ261
00812                                           W001-PRIOR-WAGE.        DTSBZ261
00813                                                                   DTSBZ261
00814      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
00815      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
00816      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
00817      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
00818      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
00819      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
00820 *&                                                                DTSBZ261
00821      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
00822         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
00823         DISPLAY 'P5132A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
00824            '  ' AMT-DISP '  ' W001-YRQ.                           DTSBZ261
00825 *&                                                                DTSBZ261
00826                                                                   DTSBZ261
00827  P5132B1-EXIT.                                                    DTSBZ261
00828      EXIT.                                                        DTSBZ261
00829                                                                   DTSBZ261
00830  P5133-REVERSE-MPAY.                                              DTSBZ261
00831      IF WRK-MPAY-FOUND-NO                                         DTSBZ261
00832      OR WRK-REMIT-AMT = ZERO                                      DTSBZ261
00833         GO TO P5133-EXIT.                                         DTSBZ261
00834                                                                   DTSBZ261
00835      MOVE LOW-VALUES TO APAY-REC.                                 DTSBZ261
00836                                                                   DTSBZ261
00837      IF AHDR-ATC-FILE-TRAN-CNT < +999                             DTSBZ261
00838         NEXT SENTENCE                                             DTSBZ261
00839      ELSE                                                         DTSBZ261
00840         PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT              DTSBZ261
00841         PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT.              DTSBZ261
00842                                                                   DTSBZ261
00843      MOVE AHDR-BATCH-NO TO APAY-BATCH-NO.                         DTSBZ261
00844      ADD +1 TO AHDR-ATC-FILE-TRAN-CNT.                            DTSBZ261
00845      MOVE AHDR-ATC-FILE-TRAN-CNT TO APAY-ITEM-NO.                 DTSBZ261
00846      SET APAY-PAY-88 TO TRUE.                                     DTSBZ261
00847                                                                   DTSBZ261
00848      MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK.                   DTSBZ261
00849      MOVE MPRF-EMP-NO TO APAY-EMP-NO.                             DTSBZ261
00850      SET APAY-PAY-REV-88 TO TRUE.                                 DTSBZ261
00851                                                                   DTSBZ261
00852      COMPUTE APAY-REMIT-AMT =                                     DTSBZ261
00853         -1 * WRK-REMIT-AMT.                                       DTSBZ261
00854      COMPUTE WRK-TOT-REVERSE =                                    DTSBZ261
00855         (WRK-TOT-REVERSE + APAY-REMIT-AMT).                       DTSBZ261
00856                                                                   DTSBZ261
00857      SET APAY-WAIVE-INT-NO-88                                     DTSBZ261
00858          APAY-WAIVE-LATE-PEN-NO-88                                DTSBZ261
00859          APAY-NSF-PEN-CHARGE-NO-88 TO TRUE.                       DTSBZ261
00860                                                                   DTSBZ261
00861      MOVE 20030630 TO                                             DTSBZ261
00862                 APAY-RECEIVED-DATE                                DTSBZ261
00863                 APAY-DEPOSIT-DATE.                                DTSBZ261
00864      MOVE +0 TO APAY-APPLIC-YRQ.                                  DTSBZ261
00865      MOVE SPACES TO APAY-APPLIC-IND.                              DTSBZ261
00866                                                                   DTSBZ261
00867      MOVE MPAY-BATCH-NO TO APAY-APPLIC-BATCH-NO.                  DTSBZ261
00868      MOVE MPAY-ITEM-NO  TO APAY-APPLIC-ITEM-NO.                   DTSBZ261
00869                                                                   DTSBZ261
00870      MOVE 'SYS' TO APAY-RESPONSIBLE-ACTIVITY.                     DTSBZ261
00871      MOVE SPACES TO APAY-RESPONSIBLE-OP-ID.                       DTSBZ261
00872      MOVE SPACE TO APAY-DISREGARD-EDITS-IND.                      DTSBZ261
00873      MOVE +0 TO APAY-PROCESSED-DATE.                              DTSBZ261
00874      COMPUTE AHDR-ATC-FILE-REMIT-AMT =                            DTSBZ261
00875         (WRK-TOT-REMIT + WRK-TOT-REVERSE).                        DTSBZ261
00876                                                                   DTSBZ261
00877      MOVE APAY-REC TO ASKL-REC.                                   DTSBZ261
00878                                                                   DTSBZ261
00879      PERFORM S923-WRITE THRU S923-EXIT.                           DTSBZ261
00880                                                                   DTSBZ261
00881  P5133-EXIT.                                                      DTSBZ261
00882      EXIT.                                                        DTSBZ261
00883                                                                   DTSBZ261
00884  P5134-ENTER-AATX.                                                DTSBZ261
00885 *    IF WRK-MRPT-FOUND-NO                                         DTSBZ261
00886 *       GO TO P5134-EXIT.                                         DTSBZ261
00887                                                                   DTSBZ261
00888 *&                                                                DTSBZ261
00889 *    DISPLAY 'P5134 ADD ' MPRF-EMP-NO.                            DTSBZ261
00890 *&                                                                DTSBZ261
00891      MOVE LOW-VALUES TO AATX-REC.                                 DTSBZ261
00892                                                                   DTSBZ261
00893      IF AHDR-ATC-FILE-TRAN-CNT < +999                             DTSBZ261
00894         NEXT SENTENCE                                             DTSBZ261
00895      ELSE                                                         DTSBZ261
00896         PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT              DTSBZ261
00897         PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT.              DTSBZ261
00898                                                                   DTSBZ261
00899      MOVE AHDR-BATCH-NO TO AATX-BATCH-NO.                         DTSBZ261
00900      ADD +1 TO AHDR-ATC-FILE-TRAN-CNT.                            DTSBZ261
00901      MOVE AHDR-ATC-FILE-TRAN-CNT TO AATX-ITEM-NO.                 DTSBZ261
00902      SET AATX-ATX-88 TO TRUE.                                     DTSBZ261
00903                                                                   DTSBZ261
00904      MOVE MPRF-PRIMARY-NAME TO AATX-NAME-CHECK.                   DTSBZ261
00905      MOVE MPRF-EMP-NO TO AATX-EMP-NO.                             DTSBZ261
00906      SET AATX-ORIG-88    TO TRUE.                                 DTSBZ261
00907      MOVE 20021          TO AATX-YRQ.                             DTSBZ261
00908                                                                   DTSBZ261
00909      MOVE WRK-TOT-WAGE  TO  AATX-TOT-WAGE.                        DTSBZ261
00910      MOVE WRK-TAX-WAGE  TO  AATX-TAX-WAGE.                        DTSBZ261
00911      COMPUTE AATX-EXCESS-WAGE =                                   DTSBZ261
00912             (AATX-TOT-WAGE - AATX-TAX-WAGE).                      DTSBZ261
00913 *&                                                                DTSBZ261
00914 *    DISPLAY 'ADD ' EMP-ACCT-DISP                                 DTSBZ261
00915 *       '  BTC ' AATX-BATCH-NO                                    DTSBZ261
00916 *       '  ITM ' AATX-ITEM-NO                                     DTSBZ261
00917 *       '  TOT ' WRK-TOT-WAGE                                     DTSBZ261
00918 *       '  TAX ' WRK-TAX-WAGE                                     DTSBZ261
00919 *       '  REMIT ' AATX-REMIT-AMT.                                DTSBZ261
00920 *&                                                                DTSBZ261
00921                                                                   DTSBZ261
00922      MOVE WRK-REMIT-AMT         TO AATX-REMIT-AMT.                DTSBZ261
00923      COMPUTE WRK-TOT-REMIT =                                      DTSBZ261
00924         (WRK-TOT-REMIT + WRK-REMIT-AMT).                          DTSBZ261
00925      SET AATX-WAIVE-BOTH-NO-88                                    DTSBZ261
00926          AATX-WAIVE-INT-NO-88                                     DTSBZ261
00927          AATX-WAIVE-LATE-PEN-NO-88 TO TRUE.                       DTSBZ261
00928                                                                   DTSBZ261
00929      MOVE WRK-JAN-CNT           TO AATX-JAN-EMPL-CNT.             DTSBZ261
00930      MOVE WRK-FEB-CNT           TO AATX-FEB-EMPL-CNT.             DTSBZ261
00931      MOVE WRK-MAR-CNT           TO AATX-MAR-EMPL-CNT.             DTSBZ261
00932      MOVE WRK-APR-CNT           TO AATX-APR-EMPL-CNT.             DTSBZ261
00933      MOVE WRK-MAY-CNT           TO AATX-MAY-EMPL-CNT.             DTSBZ261
00934      MOVE WRK-JUN-CNT           TO AATX-JUN-EMPL-CNT.             DTSBZ261
00935      MOVE WRK-JUL-CNT           TO AATX-JUL-EMPL-CNT.             DTSBZ261
00936      MOVE WRK-AUG-CNT           TO AATX-AUG-EMPL-CNT.             DTSBZ261
00937      MOVE WRK-SEP-CNT           TO AATX-SEP-EMPL-CNT.             DTSBZ261
00938      MOVE WRK-OCT-CNT           TO AATX-OCT-EMPL-CNT.             DTSBZ261
00939      MOVE WRK-NOV-CNT           TO AATX-NOV-EMPL-CNT.             DTSBZ261
00940      MOVE WRK-DEC-CNT           TO AATX-DEC-EMPL-CNT.             DTSBZ261
00941                                                                   DTSBZ261
00942 *&                                                                DTSBZ261
00943      IF MRPT-EMP-NO = 133080 OR 135921                            DTSBZ261
00944         DISPLAY 'P5134 ' AATX-EMP-NO                              DTSBZ261
00945           '  '                     AATX-JAN-EMPL-CNT              DTSBZ261
00946           '  '                     AATX-FEB-EMPL-CNT              DTSBZ261
00947           '  '                     AATX-MAR-EMPL-CNT              DTSBZ261
00948         DISPLAY                    AATX-APR-EMPL-CNT              DTSBZ261
00949         '  '                       AATX-MAY-EMPL-CNT              DTSBZ261
00950         '  '                       AATX-JUN-EMPL-CNT              DTSBZ261
00951         '  '                       AATX-JUL-EMPL-CNT              DTSBZ261
00952         DISPLAY                    AATX-AUG-EMPL-CNT              DTSBZ261
00953         '  '                       AATX-SEP-EMPL-CNT              DTSBZ261
00954         '  '                       AATX-OCT-EMPL-CNT              DTSBZ261
00955         '  '                       AATX-NOV-EMPL-CNT              DTSBZ261
00956         '  '                       AATX-DEC-EMPL-CNT.             DTSBZ261
00957 *&                                                                DTSBZ261
00958      COMPUTE MRPT-TOTAL-EMPL-CNT =                                DTSBZ261
00959           WRK-JAN-CNT +                                           DTSBZ261
00960           WRK-FEB-CNT +                                           DTSBZ261
00961           WRK-MAR-CNT +                                           DTSBZ261
00962           WRK-APR-CNT +                                           DTSBZ261
00963           WRK-MAY-CNT +                                           DTSBZ261
00964           WRK-JUN-CNT +                                           DTSBZ261
00965           WRK-JUL-CNT +                                           DTSBZ261
00966           WRK-AUG-CNT +                                           DTSBZ261
00967           WRK-SEP-CNT +                                           DTSBZ261
00968           WRK-OCT-CNT +                                           DTSBZ261
00969           WRK-NOV-CNT +                                           DTSBZ261
00970           WRK-DEC-CNT.                                            DTSBZ261
00971                                                                   DTSBZ261
00972      SET AATX-VERIFIED-NO-88 TO TRUE.                             DTSBZ261
00973 *&   MOVE MHDR-CURR-RUN-DATE TO                                   DTSBZ261
00974      MOVE 20030415 TO                                             DTSBZ261
00975                 AATX-RECEIVED-DATE                                DTSBZ261
00976                 AATX-DEPOSIT-DATE.                                DTSBZ261
00977      MOVE 'SYS' TO AATX-RESPONSIBLE-ACTIVITY.                     DTSBZ261
00978      MOVE SPACES TO AATX-RESPONSIBLE-OP-ID.                       DTSBZ261
00979      MOVE SPACE TO AATX-DISREGARD-EDITS-IND.                      DTSBZ261
00980      SET AATX-PASSED-FULL-EDITS-YES-88 TO TRUE.                   DTSBZ261
00981      MOVE +0 TO AATX-PROCESSED-DATE.                              DTSBZ261
00982      COMPUTE AHDR-ATC-FILE-REMIT-AMT =                            DTSBZ261
00983         (WRK-TOT-REMIT + WRK-TOT-REVERSE).                        DTSBZ261
00984                                                                   DTSBZ261
00985      MOVE AATX-REC TO ASKL-REC.                                   DTSBZ261
00986                                                                   DTSBZ261
00987      PERFORM S923-WRITE THRU S923-EXIT.                           DTSBZ261
00988                                                                   DTSBZ261
00989      PERFORM P5134A-ADD-WAGES       THRU P5134A-EXIT.             DTSBZ261
00990                                                                   DTSBZ261
00991  P5134-EXIT.                                                      DTSBZ261
00992      EXIT.                                                        DTSBZ261
00993                                                                   DTSBZ261
00994  P5134A-ADD-WAGES.                                                DTSBZ261
00995      MOVE ZERO TO WRK-SEQ-NO.                                     DTSBZ261
00996                                                                   DTSBZ261
00997      PERFORM P5134A1-ADD-W001       THRU P5134A1-EXIT             DTSBZ261
00998         VARYING SUB FROM +1 BY +1                                 DTSBZ261
00999         UNTIL SUB > L421-WAGE-TBL-CNT.                            DTSBZ261
01000                                                                   DTSBZ261
01001  P5134A-EXIT.                                                     DTSBZ261
01002      EXIT.                                                        DTSBZ261
01003                                                                   DTSBZ261
01004  P5134A1-ADD-W001.                                                DTSBZ261
01005 *&                                                                DTSBZ261
01006      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
01007         DISPLAY 'P5134 ' EMP-ACCT-DISP                            DTSBZ261
01008            '  BTC ' AATX-BATCH-NO                                 DTSBZ261
01009            '  ITM ' AATX-ITEM-NO.                                 DTSBZ261
01010 *&                                                                DTSBZ261
01011      MOVE LOW-VALUES TO W001-REC.                                 DTSBZ261
01012                                                                   DTSBZ261
01013      MOVE AATX-BATCH-NO          TO W001-BATCH-NO.                DTSBZ261
01014                                                                   DTSBZ261
01015      MOVE AATX-ITEM-NO           TO W001-ITEM-NO.                 DTSBZ261
01016                                                                   DTSBZ261
01017      MOVE MPRF-EMP-NO TO W001-EMP-NO.                             DTSBZ261
01018                                                                   DTSBZ261
01019      MOVE 20021          TO L004-QTR-5-9.                         DTSBZ261
01020                                                                   DTSBZ261
01021      MOVE L421-SSN (SUB) TO W001-SSN.                             DTSBZ261
01022       SET W001-SSN-VALID-88   TO TRUE.                            DTSBZ261
01023                                                                   DTSBZ261
01024      MOVE SPACES              TO W001-NAME.                       DTSBZ261
01025      SET W001-NAME-VALID-88   TO TRUE.                            DTSBZ261
01026                                                                   DTSBZ261
01027      MOVE MHDR-CURR-RUN-DATE TO W001-RECEIVED-DATE.               DTSBZ261
01028                                                                   DTSBZ261
01029      MOVE ZERO               TO W001-RECEIVED-TIME.               DTSBZ261
01030                                                                   DTSBZ261
01031      MOVE 'SYSTEM'           TO W001-RESPONSIBLE-OP-ID.           DTSBZ261
01032                                                                   DTSBZ261
01033      SET W001-SOURCE-RPT-88        TO TRUE.                       DTSBZ261
01034                                                                   DTSBZ261
01035      MOVE 1                            TO L004-QTR-5-Q.           DTSBZ261
01036      MOVE L421-QTR1-CURR-WAGE (SUB)    TO W001-WAGE-CHNG.         DTSBZ261
01037      MOVE L421-QTR1-TAX-WAGE (SUB)     TO W001-TAX-WAGE.          DTSBZ261
01038      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
01039                                           W001-PRIOR-WAGE.        DTSBZ261
01040                                                                   DTSBZ261
01041      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
01042      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
01043      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
01044      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
01045      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
01046      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
01047 *&                                                                DTSBZ261
01048      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
01049         MOVE W001-WAGE-CHNG       TO AMT-DISP                     DTSBZ261
01050         MOVE W001-TAX-WAGE        TO AMT-DISP1                    DTSBZ261
01051         DISPLAY 'P5134A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
01052            '  ' AMT-DISP '  ' AMT-DISP1 '  ' W001-YRQ.            DTSBZ261
01053 *&                                                                DTSBZ261
01054                                                                   DTSBZ261
01055      MOVE 2                            TO L004-QTR-5-Q            DTSBZ261
01056      MOVE L421-QTR2-CURR-WAGE (SUB)    TO W001-WAGE-CHNG.         DTSBZ261
01057      MOVE L421-QTR2-TAX-WAGE (SUB)     TO W001-TAX-WAGE.          DTSBZ261
01058      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
01059                                           W001-PRIOR-WAGE.        DTSBZ261
01060                                                                   DTSBZ261
01061      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
01062      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
01063      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
01064      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
01065      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
01066      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
01067 *&                                                                DTSBZ261
01068      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
01069         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
01070         MOVE W001-TAX-WAGE        TO AMT-DISP1                    DTSBZ261
01071         DISPLAY 'P5134A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
01072            '  ' AMT-DISP '  ' AMT-DISP1 '  ' W001-YRQ.            DTSBZ261
01073 *&                                                                DTSBZ261
01074                                                                   DTSBZ261
01075      MOVE 3                            TO L004-QTR-5-Q            DTSBZ261
01076      MOVE L421-QTR3-CURR-WAGE (SUB)    TO W001-WAGE-CHNG.         DTSBZ261
01077      MOVE L421-QTR3-TAX-WAGE (SUB)     TO W001-TAX-WAGE.          DTSBZ261
01078      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
01079                                           W001-PRIOR-WAGE.        DTSBZ261
01080                                                                   DTSBZ261
01081      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
01082      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
01083      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
01084      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
01085      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
01086      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
01087 *&                                                                DTSBZ261
01088      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
01089         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
01090         MOVE W001-TAX-WAGE        TO AMT-DISP1                    DTSBZ261
01091         DISPLAY 'P5134A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
01092            '  ' AMT-DISP '  ' AMT-DISP1 '  ' W001-YRQ.            DTSBZ261
01093 *&                                                                DTSBZ261
01094                                                                   DTSBZ261
01095      MOVE 4                            TO L004-QTR-5-Q            DTSBZ261
01096      MOVE L421-QTR4-CURR-WAGE (SUB)    TO W001-WAGE-CHNG.         DTSBZ261
01097      MOVE L421-QTR4-TAX-WAGE (SUB)     TO W001-TAX-WAGE.          DTSBZ261
01098      MOVE ZERO                         TO W001-CURR-WAGE          DTSBZ261
01099                                           W001-PRIOR-WAGE.        DTSBZ261
01100                                                                   DTSBZ261
01101      SET W001-WAGE-VALID-88            TO TRUE.                   DTSBZ261
01102      ADD +1                            TO WRK-SEQ-NO              DTSBZ261
01103      MOVE WRK-SEQ-NO                   TO W001-SEQ-NO.            DTSBZ261
01104      MOVE L004-QTR-5-9                 TO W001-YRQ.               DTSBZ261
01105      MOVE W001-REC                     TO WSKL-REC.               DTSBZ261
01106      PERFORM S983-WRITE                THRU S983-EXIT.            DTSBZ261
01107 *&                                                                DTSBZ261
01108      IF MPRF-EMP-NO = 054281 OR 067126                            DTSBZ261
01109         MOVE W001-WAGE-CHNG TO AMT-DISP                           DTSBZ261
01110         MOVE W001-TAX-WAGE        TO AMT-DISP1                    DTSBZ261
01111         DISPLAY 'P5134A SSN ' MPRF-EMP-NO '  ' W001-SSN           DTSBZ261
01112            '  ' AMT-DISP '  ' AMT-DISP1 '  ' W001-YRQ.            DTSBZ261
01113 *&                                                                DTSBZ261
01114                                                                   DTSBZ261
01115  P5134A1-EXIT.                                                    DTSBZ261
01116      EXIT.                                                        DTSBZ261
01117                                                                   DTSBZ261
01118  P5200-EVL.                                                       DTSBZ261
01119      ADD +1000                 TO L005-ABSTIME.                   DTSBZ261
01120      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBZ261
01121                                                                   DTSBZ261
01122      MOVE LOW-VALUE TO MEVL-REC.                                  DTSBZ261
01123                                                                   DTSBZ261
01124      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBZ261
01125                                                                   DTSBZ261
01126      SET MEVL-EVL-88 TO TRUE.                                     DTSBZ261
01127                                                                   DTSBZ261
01128      MOVE L005-DATE TO MEVL-DATE.                                 DTSBZ261
01129                                                                   DTSBZ261
01130      MOVE L005-TIME TO MEVL-TIME.                                 DTSBZ261
01131                                                                   DTSBZ261
01132      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBZ261
01133                                                                   DTSBZ261
01134      MOVE WRK-EVENT-TXT TO MEVL-TEXT.                             DTSBZ261
01135                                                                   DTSBZ261
01136      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBZ261
01137                                                                   DTSBZ261
01138      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBZ261
01139                                                                   DTSBZ261
01140      MOVE L005-DATE          TO MEVL-ESTB-DATE                    DTSBZ261
01141                                 MEVL-CHNG-DATE.                   DTSBZ261
01142                                                                   DTSBZ261
01143      MOVE MEVL-REC TO MSKL-REC.                                   DTSBZ261
01144                                                                   DTSBZ261
01145      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBZ261
01146                                                                   DTSBZ261
01147  P5200-EXIT.                                                      DTSBZ261
01148      EXIT.                                                        DTSBZ261
01149                                                                   DTSBZ261
01150  T0000-TERMINATE.                                                 DTSBZ261
01151                                                                   DTSBZ261
01152      PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT.                DTSBZ261
01153                                                                   DTSBZ261
01154      PERFORM S923-CLOSE THRU S923-EXIT.                           DTSBZ261
01155                                                                   DTSBZ261
01156      MOVE MHDR-LAST-USED-BATCH-NO TO HOLD-LAST-USED-BATCH-NO.     DTSBZ261
01157                                                                   DTSBZ261
01158      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBZ261
01159                                                                   DTSBZ261
01160      PERFORM S910-READ THRU S910-EXIT.                            DTSBZ261
01161      IF L910-NO-REC-88                                            DTSBZ261
01162         MOVE 'MHDR RECORD NOT FOUND (T0000)'                      DTSBZ261
01163           TO ABEND-MSG                                            DTSBZ261
01164         PERFORM S999-ABEND THRU S999-EXIT.                        DTSBZ261
01165                                                                   DTSBZ261
01166      MOVE MSKL-REC TO MHDR-REC.                                   DTSBZ261
01167      MOVE HOLD-LAST-USED-BATCH-NO TO MHDR-LAST-USED-BATCH-NO.     DTSBZ261
01168      MOVE MHDR-CURR-RUN-DATE TO MHDR-CHNG-DATE.                   DTSBZ261
01169      MOVE MHDR-REC TO MSKL-REC.                                   DTSBZ261
01170                                                                   DTSBZ261
01171      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBZ261
01172                                                                   DTSBZ261
01173      DISPLAY ' '.                                                 DTSBZ261
01174                                                                   DTSBZ261
01175      DISPLAY '*** DTSBZ261 TERMINATION STATISTICS ***'.           DTSBZ261
01176                                                                   DTSBZ261
01177      DISPLAY ' '.                                                 DTSBZ261
01178                                                                   DTSBZ261
01179      DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSBZ261
01180              WRK-MPRF-CNT.                                        DTSBZ261
01181                                                                   DTSBZ261
01182      DISPLAY 'NUMBER OF ACCOUNTS UPDATED                       : 'DTSBZ261
01183              WRK-UPDATE-CNT.                                      DTSBZ261
01184                                                                   DTSBZ261
01185      DISPLAY 'NUMBER OF EMPLOYERS EXCLUDED                     : 'DTSBZ261
01186              WRK-EXCLUDE-CNT.                                     DTSBZ261
01187                                                                   DTSBZ261
01188      DISPLAY 'AHDR REMIT AMOUNT                                : 'DTSBZ261
01189              AHDR-ATC-FILE-REMIT-AMT.                             DTSBZ261
01190                                                                   DTSBZ261
01191      DISPLAY 'STARTING BATCH                                   : 'DTSBZ261
01192         WRK-START-BATCH.                                          DTSBZ261
01193                                                                   DTSBZ261
01194      DISPLAY 'ENDING BATCH                                     : 'DTSBZ261
01195         HOLD-LAST-USED-BATCH-NO.                                  DTSBZ261
01196                                                                   DTSBZ261
01197 *    DISPLAY 'AMOUNT OF INTEREST REVERSED                      : 'DTSBZ261
01198 *            WRK-INTEREST-AMT.                                    DTSBZ261
01199                                                                   DTSBZ261
01200      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBZ261
01201      PERFORM S931-CLOSE THRU S931-EXIT.                           DTSBZ261
01202      PERFORM S981B-CLOSE      THRU S981B-EXIT.                    DTSBZ261
01203      PERFORM S983-CLOSE       THRU S983-EXIT.                     DTSBZ261
01204                                                                   DTSBZ261
01205  T0000-EXIT.                                                      DTSBZ261
01206      EXIT.                                                        DTSBZ261
01207      EJECT                                                        DTSBZ261
01208                                                                   DTSBZ261
01209  S1000-INITIATE-AHDR.                                             DTSBZ261
01210      MOVE LOW-VALUES TO AHDR-REC.                                 DTSBZ261
01211                                                                   DTSBZ261
01212      IF MHDR-LAST-USED-BATCH-NO < +99999                          DTSBZ261
01213         COMPUTE AHDR-BATCH-NO = MHDR-LAST-USED-BATCH-NO + 1       DTSBZ261
01214      ELSE                                                         DTSBZ261
01215         MOVE +1 TO AHDR-BATCH-NO.                                 DTSBZ261
01216                                                                   DTSBZ261
01217      MOVE +0 TO AHDR-ITEM-NO.                                     DTSBZ261
01218      SET AHDR-HDR-88 TO TRUE.                                     DTSBZ261
01219      SET AHDR-BATCH-BALANCED-YES-88 TO TRUE.                      DTSBZ261
01220      SET AHDR-BATCH-HELD-NO-88  TO TRUE.                          DTSBZ261
01221      SET AHDR-ESTB-SYSTEM-88 TO TRUE.                             DTSBZ261
01222      MOVE SPACES TO AHDR-CHNG-OP-ID.                              DTSBZ261
01223      MOVE +0 TO AHDR-CHNG-DATE.                                   DTSBZ261
01224      MOVE MHDR-CURR-RUN-DATE TO AHDR-ESTB-DATE                    DTSBZ261
01225                                 AHDR-RECEIVED-DATE                DTSBZ261
01226                                 AHDR-DEPOSIT-DATE.                DTSBZ261
01227      MOVE +0 TO AHDR-LAST-USED-ITEM-NO                            DTSBZ261
01228                 AHDR-CONTROL-TRAN-CNT                             DTSBZ261
01229                 AHDR-ATC-FILE-TRAN-CNT                            DTSBZ261
01230                 AHDR-PROC-TRAN-CNT                                DTSBZ261
01231                 AHDR-CONTROL-REMIT-AMT                            DTSBZ261
01232                 AHDR-ATC-FILE-REMIT-AMT                           DTSBZ261
01233                 AHDR-PROC-REMIT-AMT.                              DTSBZ261
01234                                                                   DTSBZ261
01235  S1000-EXIT.                                                      DTSBZ261
01236      EXIT.                                                        DTSBZ261
01237                                                                   DTSBZ261
01238  S2000-TERMINATE-AHDR.                                            DTSBZ261
01239      IF AHDR-ATC-FILE-TRAN-CNT = +0                               DTSBZ261
01240         GO TO S2000-EXIT.                                         DTSBZ261
01241                                                                   DTSBZ261
01242      MOVE AHDR-BATCH-NO TO MHDR-LAST-USED-BATCH-NO.               DTSBZ261
01243      MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-LAST-USED-ITEM-NO.       DTSBZ261
01244      MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-CONTROL-TRAN-CNT.        DTSBZ261
01245      MOVE AHDR-ATC-FILE-REMIT-AMT TO AHDR-CONTROL-REMIT-AMT.      DTSBZ261
01246      MOVE AHDR-REC TO ASKL-REC.                                   DTSBZ261
01247                                                                   DTSBZ261
01248      PERFORM S923-WRITE THRU S923-EXIT.                           DTSBZ261
01249                                                                   DTSBZ261
01250  S2000-EXIT.                                                      DTSBZ261
01251      EXIT.                                                        DTSBZ261
01252                                                                   DTSBZ261
01253  S004-EDIT-QTR.                                                   DTSBZ261
01254      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSBZ261
01255                                                                   DTSBZ261
01256  S004-EXIT.                                                       DTSBZ261
01257      EXIT.                                                        DTSBZ261
01258      SKIP3                                                        DTSBZ261
01259  S410-FILING-SCHED.                                               DTSBZ261
01260      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBZ261
01261                                                                   DTSBZ261
01262  S410-EXIT.                                                       DTSBZ261
01263      EXIT.                                                        DTSBZ261
01264                                                                   DTSBZ261
01265  S421-FIND-WAGES.                                                 DTSBZ261
01266      CALL 'DTSBU421' USING L421-LINK-AREA.                        DTSBZ261
01267  S421-EXIT.                                                       DTSBZ261
01268      EXIT.                                                        DTSBZ261
01269                                                                   DTSBZ261
01270  S005-FROM-SYS.                                                   DTSBZ261
01271      SET L005-FROM-SYS     TO TRUE.                               DTSBZ261
01272      GO TO S005-TIME.                                             DTSBZ261
01273                                                                   DTSBZ261
01274  S005-FROM-ABSTIME.                                               DTSBZ261
01275      SET L005-FROM-ABSTIME TO TRUE.                               DTSBZ261
01276      GO TO S005-TIME.                                             DTSBZ261
01277                                                                   DTSBZ261
01278  S005-TIME.                                                       DTSBZ261
01279      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBZ261
01280  S005-EXIT.                                                       DTSBZ261
01281      EXIT.                                                        DTSBZ261
01282                                                                   DTSBZ261
01283  S910-OPEN-READ.                                                  DTSBZ261
01284      SET L910-OPEN-READ-88 TO TRUE.                               DTSBZ261
01285      GO TO S910-MSTR-IO.                                          DTSBZ261
01286                                                                   DTSBZ261
01287  S910-OPEN-UPDATE-NO-AIX.                                         DTSBZ261
01288      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBZ261
01289      GO TO S910-MSTR-IO.                                          DTSBZ261
01290                                                                   DTSBZ261
01291  S910-OPEN-UPDATE-HDR.                                            DTSBZ261
01292      SET L910-OPEN-UPDATE-HDR-88    TO TRUE.                      DTSBZ261
01293      GO TO S910-MSTR-IO.                                          DTSBZ261
01294                                                                   DTSBZ261
01295  S910-OPEN-UPDATE.                                                DTSBZ261
01296      SET L910-OPEN-UPDATE-88        TO TRUE.                      DTSBZ261
01297      GO TO S910-MSTR-IO.                                          DTSBZ261
01298                                                                   DTSBZ261
01299  S910-READ.                                                       DTSBZ261
01300      SET L910-READ-88 TO TRUE.                                    DTSBZ261
01301      GO TO S910-MSTR-IO.                                          DTSBZ261
01302                                                                   DTSBZ261
01303  S910-START-BROWSE.                                               DTSBZ261
01304      SET L910-START-BROWSE-88 TO TRUE.                            DTSBZ261
01305      GO TO S910-MSTR-IO.                                          DTSBZ261
01306                                                                   DTSBZ261
01307  S910-READ-NEXT.                                                  DTSBZ261
01308      SET L910-READ-NEXT-88 TO TRUE.                               DTSBZ261
01309      GO TO S910-MSTR-IO.                                          DTSBZ261
01310                                                                   DTSBZ261
01311  S910-COUNT.                                                      DTSBZ261
01312      SET L910-COUNT-88 TO TRUE.                                   DTSBZ261
01313      GO TO S910-MSTR-IO.                                          DTSBZ261
01314                                                                   DTSBZ261
01315  S910-WRITE.                                                      DTSBZ261
01316      SET L910-WRITE-88 TO TRUE.                                   DTSBZ261
01317      GO TO S910-MSTR-IO.                                          DTSBZ261
01318                                                                   DTSBZ261
01319  S910-REWRITE.                                                    DTSBZ261
01320      SET L910-REWRITE-88 TO TRUE.                                 DTSBZ261
01321      GO TO S910-MSTR-IO.                                          DTSBZ261
01322                                                                   DTSBZ261
01323  S910-DELETE.                                                     DTSBZ261
01324      SET L910-DELETE-88 TO TRUE.                                  DTSBZ261
01325      GO TO S910-MSTR-IO.                                          DTSBZ261
01326                                                                   DTSBZ261
01327  S910-CLOSE.                                                      DTSBZ261
01328      SET L910-CLOSE-88     TO TRUE.                               DTSBZ261
01329      GO TO S910-MSTR-IO.                                          DTSBZ261
01330                                                                   DTSBZ261
01331  S910-MSTR-IO.                                                    DTSBZ261
01332      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBZ261
01333                            MSKL-REC.                              DTSBZ261
01334  S910-EXIT.                                                       DTSBZ261
01335      EXIT.                                                        DTSBZ261
01336      SKIP3                                                        DTSBZ261
01337  S923-OPEN-UPDATE.                                                DTSBZ261
01338      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSBZ261
01339      GO TO S923-ATC-IO.                                           DTSBZ261
01340                                                                   DTSBZ261
01341  S923-READ.                                                       DTSBZ261
01342      SET L923-READ-88 TO TRUE.                                    DTSBZ261
01343      GO TO S923-ATC-IO.                                           DTSBZ261
01344                                                                   DTSBZ261
01345  S923-START-BROWSE.                                               DTSBZ261
01346      SET L923-START-BROWSE-88 TO TRUE.                            DTSBZ261
01347      GO TO S923-ATC-IO.                                           DTSBZ261
01348                                                                   DTSBZ261
01349  S923-READ-NEXT.                                                  DTSBZ261
01350      SET L923-READ-NEXT-88 TO TRUE.                               DTSBZ261
01351      GO TO S923-ATC-IO.                                           DTSBZ261
01352                                                                   DTSBZ261
01353  S923-WRITE.                                                      DTSBZ261
01354      SET L923-WRITE-88 TO TRUE.                                   DTSBZ261
01355      GO TO S923-ATC-IO.                                           DTSBZ261
01356                                                                   DTSBZ261
01357  S923-REWRITE.                                                    DTSBZ261
01358      SET L923-REWRITE-88 TO TRUE.                                 DTSBZ261
01359      GO TO S923-ATC-IO.                                           DTSBZ261
01360                                                                   DTSBZ261
01361  S923-DELETE.                                                     DTSBZ261
01362      SET L923-DELETE-88 TO TRUE.                                  DTSBZ261
01363      GO TO S923-ATC-IO.                                           DTSBZ261
01364                                                                   DTSBZ261
01365  S923-CLOSE.                                                      DTSBZ261
01366      SET L923-CLOSE-88 TO TRUE.                                   DTSBZ261
01367      GO TO S923-ATC-IO.                                           DTSBZ261
01368                                                                   DTSBZ261
01369  S923-ATC-IO.                                                     DTSBZ261
01370      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBZ261
01371                            ASKL-REC.                              DTSBZ261
01372  S923-EXIT.                                                       DTSBZ261
01373      EXIT.                                                        DTSBZ261
01374      SKIP3                                                        DTSBZ261
01375  S931-OPEN-READ.                                                  DTSBZ261
01376      SET L931-OPEN-READ-88 TO TRUE.                               DTSBZ261
01377      GO TO S931-REF-I.                                            DTSBZ261
01378                                                                   DTSBZ261
01379  S931-CLOSE.                                                      DTSBZ261
01380      SET L931-CLOSE-88 TO TRUE.                                   DTSBZ261
01381      GO TO S931-REF-I.                                            DTSBZ261
01382                                                                   DTSBZ261
01383  S931-REF-I.                                                      DTSBZ261
01384      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBZ261
01385                            FSKL-REC.                              DTSBZ261
01386  S931-EXIT.                                                       DTSBZ261
01387      EXIT.                                                        DTSBZ261
01388                                                                   DTSBZ261
01389  S981A-OPEN.                                                      DTSBZ261
01390      SET L981-OPEN-READ-88    TO TRUE.                            DTSBZ261
01391      CALL 'DTSBU981' USING L981-LINK-AREA                         DTSBZ261
01392                            WWGH-REC.                              DTSBZ261
01393  S981A-EXIT.                                                      DTSBZ261
01394      EXIT.                                                        DTSBZ261
01395      SKIP3                                                        DTSBZ261
01396  S981B-CLOSE.                                                     DTSBZ261
01397      SET L981-CLOSE-88        TO TRUE.                            DTSBZ261
01398      CALL 'DTSBU981' USING L981-LINK-AREA                         DTSBZ261
01399                            WWGH-REC.                              DTSBZ261
01400  S981B-EXIT.                                                      DTSBZ261
01401      EXIT.                                                        DTSBZ261
01402      SKIP3                                                        DTSBZ261
01403                                                                   DTSBZ261
01404  S983-OPEN.                                                       DTSBZ261
01405      SET L983-OPEN-UPDATE-88  TO TRUE.                            DTSBZ261
01406      GO TO S983-WAGE-O.                                           DTSBZ261
01407                                                                   DTSBZ261
01408  S983-WRITE.                                                      DTSBZ261
01409      SET L983-WRITE-88     TO TRUE.                               DTSBZ261
01410      GO TO S983-WAGE-O.                                           DTSBZ261
01411                                                                   DTSBZ261
01412  S983-CLOSE.                                                      DTSBZ261
01413      SET L983-CLOSE-88        TO TRUE.                            DTSBZ261
01414      GO TO S983-WAGE-O.                                           DTSBZ261
01415                                                                   DTSBZ261
01416  S983-WAGE-O.                                                     DTSBZ261
01417      CALL 'DTSBU983' USING L983-LINK-AREA                         DTSBZ261
01418                            WSKL-REC.                              DTSBZ261
01419  S983-EXIT.                                                       DTSBZ261
01420      EXIT.                                                        DTSBZ261
01421      SKIP3                                                        DTSBZ261
01422  S999-ABEND.                                                      DTSBZ261
01423      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBZ261
01424  S999-EXIT.                                                       DTSBZ261
01425      EXIT.                                                        DTSBZ261
