00001  IDENTIFICATION DIVISION.                                         07/11/11
00002  PROGRAM-ID.             DTSBE325.                                DTSBE325
00003  AUTHOR.                 NGC                                         LV007
00004  DATE-WRITTEN.           SEPTEMBER 2006.                          DTSBE325
00005  DATE-COMPILED.                                                   DTSBE325
00006      SKIP3                                                        DTSBE325
00007 *****                                                             DTSBE325
00008 *   TESTING FOR SOC7 ABEND *****************                      DTSBE325
00009 *                                                                 DTSBE325
00010 *    FUNCTION:  COMPUTE ADMINISTRATIVE TAX (SUR CHARGE) FOR       DTSBE325
00011 *               SELF INSURED EMPLOYERS.                           DTSBE325
00012 *****                                                             DTSBE325
00013      SKIP3                                                        DTSBE325
00014  ENVIRONMENT DIVISION.                                            DTSBE325
00015      SKIP2                                                        DTSBE325
00016  CONFIGURATION SECTION.                                           DTSBE325
00017  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBE325
00018  INPUT-OUTPUT SECTION.                                            DTSBE325
00019                                                                   DTSBE325
00020  FILE-CONTROL.                                                    DTSBE325
00021      SELECT DOWNLOAD-FILE ASSIGN TO DTSF325                       DTSBE325
00022             FILE STATUS IS DWN-STATUS.                            DTSBE325
00023                                                                   DTSBE325
00024      SELECT WESQ-FILE ASSIGN TO DTSWESQ                           DTSBE325
00025      ORGANIZATION IS INDEXED                                      DTSBE325
00026      RECORD KEY IS WESQ-KEY-AREA                                  DTSBE325
00027      FILE STATUS IS WESQ-FILE-STATUS                              DTSBE325
00028      ACCESS IS SEQUENTIAL.                                        DTSBE325
00029                                                                   DTSBE325
00030  DATA DIVISION.                                                   DTSBE325
00031                                                                   DTSBE325
00032  FILE SECTION.                                                    DTSBE325
00033  FD  DOWNLOAD-FILE                                                DTSBE325
00034      RECORDING MODE IS F.                                         DTSBE325
00035  01  DOWNLOAD-REC            PIC X(114).                          DTSBE325
00036                                                                   DTSBE325
00037  FD  WESQ-FILE.                                                   DTSBE325
00038  01  WESQ-REC.                                                    DTSBE325
00039  ++INCLUDE DTSIWESQ                                               DTSBE325
00040                                                                   DTSBE325
00041                                                                   DTSBE325
00042  WORKING-STORAGE SECTION.                                         DTSBE325
000425 77  PAN-VALET PICTURE X(24) VALUE '007DTSBE325  07/11/11'.       DTSBE325
00043      SKIP3                                                        DTSBE325
00044  01  WRK-AREA.                                                    DTSBE325
00045      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +325.DTSBE325
00046                                                                   DTSBE325
00047      05  ABEND-MSG                   PIC  X(60).                  DTSBE325
00048                                                                   DTSBE325
00049      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE325'.DTSBE325
00050                                                                   DTSBE325
00051      05  WRK-CONSTANTS.                                           DTSBE325
00052          10  WRK-MAX-PCT             PIC S9V9(04)      COMP-3     DTSBE325
00053                                       VALUE +0.1.                 DTSBE325
00054          10  WRK-MAX-WAGE-DIFF       PIC S9(11)V9(02)  COMP-3     DTSBE325
00055                                       VALUE +100000.              DTSBE325
00056      05  WESQ-FILE-STATUS            PIC  X(02).                  DTSBE325
00057          88  WESQ-FILE-OK-88          VALUE '00'.                 DTSBE325
00058          88  WESQ-FILE-NO-REC-88      VALUE '10' '23'.            DTSBE325
00059          88  WESQ-FILE-VERIFY-88      VALUE '97'.                 DTSBE325
00060                                                                   DTSBE325
00061      05  RPT-STATUS                  PIC  X(02).                  DTSBE325
00062          88  RPT-STATUS-OK-88         VALUE '00'.                 DTSBE325
00063      05  DWN-STATUS                  PIC  X(02).                  DTSBE325
00064          88  DWN-STATUS-OK-88         VALUE '00'.                 DTSBE325
00065      05  WRK-QTR-FOUND-IND          PIC  X(01).                   DTSBE325
00066          88  WRK-QTR-FOUND-YES-88    VALUE 'Y'.                   DTSBE325
00067          88  WRK-QTR-FOUND-NO-88     VALUE 'N'.                   DTSBE325
00068      05  WRK-ERROR-IND             PIC  X(01).                    DTSBE325
00069          88  WRK-ERROR-YES-88       VALUE 'Y'.                    DTSBE325
00070          88  WRK-ERROR-NO-88        VALUE 'N'.                    DTSBE325
00071                                                                   DTSBE325
00072 ***********************************************************       DTSBE325
00073 *  THE FOLLOWING INDICATOR SHOWS THE DIFFERENCE BETWEEN           DTSBE325
00074 *  THE UC-30 REPORTED WAGES AND THE WAGE FILE WAGES.              DTSBE325
00075 *     EXACT:     NO DIFFERENCE.                                   DTSBE325
00076 *     TOL:       WITHIN TOLERANCE ($0.99 * EMPLOYEE COUNT)        DTSBE325
00077 *     UNDER MAX: DIFFERENCE < 10% AND UNDER $100,000.00           DTSBE325
00078 *     NO ASSESS: DIFFERENCE IS TOO GREAT - NO ASSESSMENT          DTSBE325
00079 *                CHARGED.                                         DTSBE325
00080 *                                                                 DTSBE325
00081 *     IF THE COMPUTED AMOUNT FROM ACTUAL EARNINGS IS              DTSBE325
00082 *     GREATER THAN THE AMOUNT REPORTED ON THE UC-30,              DTSBE325
00083 *     THE COMPUTED AMOUNT WILL BE USED.                           DTSBE325
00084 ***********************************************************       DTSBE325
00085      05  WRK-ASSESS-STATUS         PIC  X(01).                    DTSBE325
00086          88  WRK-ASSESS-EXACT-88     VALUE '0'.                   DTSBE325
00087          88  WRK-ASSESS-TOL-88       VALUE '1'.                   DTSBE325
00088          88  WRK-ASSESS-UNDER-MAX-88 VALUE '2'.                   DTSBE325
00089          88  WRK-ASSESS-OVER-MAX-88  VALUE '3'.                   DTSBE325
00090          88  WRK-NO-WAGES-88         VALUE '4'.                   DTSBE325
00091          88  WRK-NO-ASSESS-88        VALUE '3' '4'.               DTSBE325
00092          88  WRK-CHARGE-ASSESS-88    VALUE '0' '1' '2'.           DTSBE325
00093                                                                   DTSBE325
00094      05  WRK-STATUS-CNTS.                                         DTSBE325
00095          10  WRK-EXACT-CNT       PIC S9(07)  COMP-3 VALUE 0.      DTSBE325
00096          10  WRK-TOL-CNT         PIC S9(07)  COMP-3 VALUE 0.      DTSBE325
00097          10  WRK-UNDER-MAX-CNT   PIC S9(07)  COMP-3 VALUE 0.      DTSBE325
00098          10  WRK-OVER-MAX-CNT    PIC S9(07)  COMP-3 VALUE 0.      DTSBE325
00099          10  WRK-NO-WAGES-CNT    PIC S9(07)  COMP-3 VALUE 0.      DTSBE325
00100                                                                   DTSBE325
00101      05  WRK-T026-CNT                PIC S9(07)  COMP-3           DTSBE325
00102                                   VALUE +0.                       DTSBE325
00103      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3           DTSBE325
00104                                   VALUE +0.                       DTSBE325
00105                                                                   DTSBE325
00106      05  WRK-SUR-RATE            PIC S9V9(04)      COMP-3.        DTSBE325
00107      05  WRK-START-YRQ           PIC S9(05)  COMP-3 VALUE 0.      DTSBE325
00108      05  WRK-END-YRQ             PIC S9(05)  COMP-3 VALUE 0.      DTSBE325
00109      05  WRK-CURR-YRQ            PIC S9(05)  COMP-3 VALUE 0.      DTSBE325
00110      05  WRK-CURR-ASSESS         PIC S9(11)V9(02)  COMP-3.        DTSBE325
00111      05  WRK-ASSESS-CHNG         PIC S9(11)V9(02)  COMP-3.        DTSBE325
00112      05  WRK-EMP-TOT-WAGE        PIC S9(11)V9(02)  COMP-3.        DTSBE325
00113      05  WRK-EMP-TAX-WAGE        PIC S9(11)V9(02)  COMP-3.        DTSBE325
00114      05  WRK-TAX-REMAIN          PIC S9(11)V9(02)  COMP-3.        DTSBE325
00115      05  WRK-TAX-WAGE            PIC S9(11)V9(02)  COMP-3.        DTSBE325
00116                                                                   DTSBE325
00117      05  WRK-PCT                 PIC S9V9(04)      COMP-3.        DTSBE325
00118      05  SUB                     PIC S9(04) COMP.                 DTSBE325
00119      05  WRK-QTR-TABLE-MAX       PIC S9(04) COMP VALUE +9.        DTSBE325
00120      05  WRK-QTR-TABLE OCCURS 9 TIMES.                            DTSBE325
00121          10  WRK-QTR-YRQ            PIC S9(05)        COMP-3.     DTSBE325
00122          10  WRK-QTR-RATE           PIC S9V9(04)      COMP-3.     DTSBE325
00123          10  WRK-QTR-OLD-TOT-WAGE   PIC S9(11)V9(02)  COMP-3.     DTSBE325
00124          10  WRK-QTR-OLD-ASSESSMT   PIC S9(11)V9(02)  COMP-3.     DTSBE325
00125          10  WRK-QTR-NEW-TOT-WAGE   PIC S9(11)V9(02)  COMP-3.     DTSBE325
00126          10  WRK-QTR-NEW-TAX-WAGE   PIC S9(11)V9(02)  COMP-3.     DTSBE325
00127          10  WRK-QTR-NEW-ASSESSMT   PIC S9(11)V9(02)  COMP-3.     DTSBE325
00128          10  WRK-QTR-EMP-CNT        PIC S9(07)        COMP-3.     DTSBE325
00129                                                                   DTSBE325
00130      05  WRK-WAGE-TOLERANCE      PIC S9(11)V9(02)  COMP-3.        DTSBE325
00131      05  WRK-WAGE-DIFF           PIC S9(11)V9(02)  COMP-3.        DTSBE325
00132                                                                   DTSBE325
00133      05  WRK-TAX-WAGES           PIC S9(11)V9(02)  COMP-3.        DTSBE325
00134      05  WRK-TAX-REMAINING       PIC S9(11)V9(02)  COMP-3.        DTSBE325
00135      05  WRK-TAX-AMT             PIC S9(09)V9(02)  COMP-3.        DTSBE325
00136      05  WRK-TOT-TAX-CHG         PIC S9(09)V9(02)  COMP-3.        DTSBE325
00137                                                                   DTSBE325
00138                                                                   DTSBE325
00139      05  WRK-DOWNLOAD-REC.                                        DTSBE325
00140          10  WRK-DWN-EMP             PIC  9(06).                  DTSBE325
00141          10  FILLER                  PIC  X(01) VALUE ','.        DTSBE325
00142          10  WRK-DWN-NAME            PIC  X(40).                  DTSBE325
00143          10  FILLER                  PIC  X(01) VALUE ','.        DTSBE325
00144          10  WRK-DWN-YRQ             PIC  X(06).                  DTSBE325
00145          10  FILLER                  PIC  X(01) VALUE ','.        DTSBE325
00146          10  WRK-DWN-TAX-WAGE        PIC  ----------9.99.         DTSBE325
00147          10  FILLER                  PIC  X(01) VALUE ','.        DTSBE325
00148          10  WRK-DWN-OLD-ASSESS      PIC  ----------9.99.         DTSBE325
00149          10  FILLER                  PIC  X(01) VALUE ','.        DTSBE325
00150          10  WRK-DWN-NEW-ASSESS      PIC  ----------9.99.         DTSBE325
00151          10  FILLER                  PIC  X(01) VALUE ','.        DTSBE325
00152          10  WRK-DWN-ASSESS-CHNG     PIC  ----------9.99.         DTSBE325
00153                                                                   DTSBE325
00154      05  WRK-TAX-WAGE-BASE           PIC S9(07)V99  COMP-3.       DTSBE325
00155                                                                   DTSBE325
00156      05  PARM-REC-CNT                PIC S9(07)  COMP-3.          DTSBE325
00157                                                                   DTSBE325
00158      05  WRK-TRACE-IND                   PIC  X(01).              DTSBE325
00159                                                                   DTSBE325
00160      05  WRK-ABEND-MSG            PIC  X(60)  VALUE SPACES.       DTSBE325
00161                                                                   DTSBE325
00162      05  AMT-DISP1                PIC -,---,---,--9.99.           DTSBE325
00163      05  AMT-DISP2                PIC -,---,---,--9.99.           DTSBE325
00164      05  AMT-DISP3                PIC -,---,---,--9.99.           DTSBE325
00165      05  AMT-DISP4                PIC -,---,---,--9.99.           DTSBE325
00166      05  DISP-RATE                PIC 9.9999.                     DTSBE325
00167      05  DISP-DATE1                  PIC  X(10).                  DTSBE325
00168      05  DISP-DATE2                  PIC  X(10).                  DTSBE325
00169                                                                   DTSBE325
00170                                                                   DTSBE325
00171  01  L001-LINK-AREA.                                              DTSBE325
00172  ++INCLUDE DTSIL001                                               DTSBE325
00173      EJECT                                                        DTSBE325
00174  01  L005-LINK-AREA.                                              DTSBE325
00175  ++INCLUDE DTSIL005                                               DTSBE325
00176      EJECT                                                        DTSBE325
00177  01  L109-LINK-AREA.                                              DTSBE325
00178  ++INCLUDE DTSIL109                                               DTSBE325
00179      EJECT                                                        DTSBE325
00180  01  L111-LINK-AREA.                                              DTSBE325
00181  ++INCLUDE DTSIL111                                               DTSBE325
00182      EJECT                                                        DTSBE325
00183  01  L112-LINK-AREA.                                              DTSBE325
00184  ++INCLUDE DTSIL112                                               DTSBE325
00185      EJECT                                                        DTSBE325
00186  01  L910-LINK-AREA.                                              DTSBE325
00187  ++INCLUDE DTSIL910                                               DTSBE325
00188      EJECT                                                        DTSBE325
00189  01  L981-LINK-AREA.                                              DTSBE325
00190  ++INCLUDE DTSIL981                                               DTSBE325
00191      EJECT                                                        DTSBE325
00192  01  MSKL-REC.                                                    DTSBE325
00193  ++INCLUDE DTSIMSKL                                               DTSBE325
00194      EJECT                                                        DTSBE325
00195  01  MHDR-REC.                                                    DTSBE325
00196  ++INCLUDE DTSIMHDR                                               DTSBE325
00197      EJECT                                                        DTSBE325
00198  01  MQTR-REC.                                                    DTSBE325
00199  ++INCLUDE DTSIMQTR                                               DTSBE325
00200      EJECT                                                        DTSBE325
00201  01  MRPT-REC.                                                    DTSBE325
00202  ++INCLUDE DTSIMRPT                                               DTSBE325
00203      EJECT                                                        DTSBE325
00204  01  MEVL-REC.                                                    DTSBE325
00205  ++INCLUDE DTSIMEVL                                               DTSBE325
00206      EJECT                                                        DTSBE325
00207  01  L921-LINK-AREA.                                              DTSBE325
00208  ++INCLUDE DTSIL921                                               DTSBE325
00209      EJECT                                                        DTSBE325
00210  01  ISKL-REC.                                                    DTSBE325
00211  ++INCLUDE DTSIISKL                                               DTSBE325
00212      EJECT                                                        DTSBE325
00213  01  L931-LINK-AREA.                                              DTSBE325
00214  ++INCLUDE DTSIL931                                               DTSBE325
00215      EJECT                                                        DTSBE325
00216  01  FSKL-REC.                                                    DTSBE325
00217  ++INCLUDE DTSIFSKL                                               DTSBE325
00218      EJECT                                                        DTSBE325
00219      EJECT                                                        DTSBE325
00220  01  FQTR-REC.                                                    DTSBE325
00221  ++INCLUDE DTSIFQTR                                               DTSBE325
00222      EJECT                                                        DTSBE325
00223  01  WWGH-REC.                                                    DTSBE325
00224  ++INCLUDE DTSIWWGH                                               DTSBE325
00225      EJECT                                                        DTSBE325
00226  01  R325-REC.                                                    DTSBE325
00227  ++INCLUDE DTSIR325                                               DTSBE325
00228      EJECT                                                        DTSBE325
00229  01  T026-REC.                                                    DTSBE325
00230  ++INCLUDE DTSIT026                                               DTSBE325
00231      EJECT                                                        DTSBE325
00232                                                                   DTSBE325
00233  01  L004-COMM-AREA.                                              DTSBE325
00234  ++INCLUDE DTSIL004                                               DTSBE325
00235      EJECT                                                        DTSBE325
00236  01  L927-LINK-AREA.                                              DTSBE325
00237  ++INCLUDE DTSIL927                                               DTSBE325
00238      EJECT                                                        DTSBE325
00239  LINKAGE SECTION.                                                 DTSBE325
00240      SKIP3                                                        DTSBE325
00241  01  LECM-LINK-AREA.                                              DTSBE325
00242  ++INCLUDE DTSILECM                                               DTSBE325
00243                                                                   DTSBE325
00244  01  MPRF-LINK-REC.                                               DTSBE325
00245  ++INCLUDE DTSIMPRF                                               DTSBE325
00246                                                                   DTSBE325
00247  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE325
00248                           MPRF-LINK-REC.                          DTSBE325
00249      EVALUATE TRUE                                                DTSBE325
00250        WHEN LECM-INITIALIZE-88                                    DTSBE325
00251           PERFORM I0000-INITIATE      THRU I0000-EXIT             DTSBE325
00252                                                                   DTSBE325
00253        WHEN LECM-PROCESS-88                                       DTSBE325
00254           PERFORM P0000-PROCESS       THRU P0000-EXIT             DTSBE325
00255                                                                   DTSBE325
00256        WHEN LECM-TERMINATE-88                                     DTSBE325
00257           PERFORM T0000-TERMINATE     THRU T0000-EXIT             DTSBE325
00258                                                                   DTSBE325
00259        WHEN OTHER                                                 DTSBE325
00260           MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'           DTSBE325
00261             TO ABEND-MSG                                          DTSBE325
00262           PERFORM S999-ABEND          THRU S999-EXIT              DTSBE325
00263      END-EVALUATE.                                                DTSBE325
00264                                                                   DTSBE325
00265      GOBACK.                                                      DTSBE325
00266                                                                   DTSBE325
00267  I0000-INITIATE.                                                  DTSBE325
00268      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBE325
00269                                                                   DTSBE325
00270      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSBE325
00271                                                                   DTSBE325
00272      PERFORM I3000-SUR-TAX-INFO        THRU I3000-EXIT.           DTSBE325
00273                                                                   DTSBE325
00274      PERFORM I4000-INIT-T026           THRU I4000-EXIT.           DTSBE325
00275                                                                   DTSBE325
00276      PERFORM I5000-INIT-WORK           THRU I5000-EXIT.           DTSBE325
00277                                                                   DTSBE325
00278  I0000-EXIT.                                                      DTSBE325
00279        EXIT.                                                      DTSBE325
00280                                                                   DTSBE325
00281  I2000-OPEN-FILES-1.                                              DTSBE325
00282      OPEN OUTPUT DOWNLOAD-FILE                                    DTSBE325
00283      IF NOT DWN-STATUS-OK-88                                      DTSBE325
00284         DISPLAY 'CANNOT OPEN DOWNLOAD FILE' DWN-STATUS            DTSBE325
00285         SET WRK-ERROR-YES-88 TO TRUE                              DTSBE325
00286         GO TO I2000-EXIT                                          DTSBE325
00287      END-IF.                                                      DTSBE325
00288                                                                   DTSBE325
00289      OPEN INPUT WESQ-FILE.                                        DTSBE325
00290      IF WESQ-FILE-OK-88 OR WESQ-FILE-VERIFY-88                    DTSBE325
00291         NEXT SENTENCE                                             DTSBE325
00292      ELSE                                                         DTSBE325
00293         DISPLAY 'CANNOT OPEN WESQ-FILE ' WESQ-FILE-STATUS         DTSBE325
00294         SET WRK-ERROR-YES-88 TO TRUE                              DTSBE325
00295         GO TO I2000-EXIT                                          DTSBE325
00296      END-IF.                                                      DTSBE325
00297                                                                   DTSBE325
00298                                                                   DTSBE325
00299      MOVE LECM-TRACE-IND             TO L910-TRACE-IND.           DTSBE325
00300      MOVE WRK-MOD-NAME               TO L910-MOD-NAME.            DTSBE325
00301                                                                   DTSBE325
00302      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE325
00303      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE325
00304                                                                   DTSBE325
00305  I2000-EXIT.                                                      DTSBE325
00306      EXIT.                                                        DTSBE325
00307                                                                   DTSBE325
00308  I3000-SUR-TAX-INFO.                                              DTSBE325
00309      PERFORM I3100-READ-MHDR           THRU I3100-EXIT.           DTSBE325
00310      PERFORM S005-SYS-DATE             THRU S005-EXIT.            DTSBE325
00311                                                                   DTSBE325
00312      PERFORM S109-SUR-RATE-FIRST-QTR   THRU S109-FIRST-EXIT.      DTSBE325
00313      MOVE L109-TAX-WAGE-BASE           TO WRK-TAX-WAGE-BASE.      DTSBE325
00314                                                                   DTSBE325
00315      MOVE MHDR-CURR-RUN-DATE           TO L004-DATE.              DTSBE325
00316      PERFORM S004-FROM-DATE            THRU S004-EXIT.            DTSBE325
00317      IF MHDR-CURR-RUN-DATE < L004-QTR-END-DATE                    DTSBE325
00318         SUBTRACT +1                    FROM L004-ABS-QTR          DTSBE325
00319         PERFORM S004-FROM-ABS          THRU S004-EXIT             DTSBE325
00320      END-IF.                                                      DTSBE325
00321      MOVE L004-QTR-5-9                 TO WRK-END-YRQ.            DTSBE325
00322                                                                   DTSBE325
00323 *    MOVE L004-DATE                    TO L001-FED-8-DATE-9.      DTSBE325
00324 *    SUBTRACT 1                        FROM L001-FED-8-YR.        DTSBE325
00325 *    MOVE L001-FED-8-DATE-9            TO L004-DATE.              DTSBE325
00326 *    PERFORM S004-FROM-DATE            THRU S004-EXIT.            DTSBE325
00327                                                                   DTSBE325
00328      SUBTRACT +8                       FROM L004-ABS-QTR.         DTSBE325
00329      PERFORM S004-FROM-ABS             THRU S004-EXIT             DTSBE325
00330      IF L004-QTR-5-9 < L109-YRQ                                   DTSBE325
00331         MOVE L109-YRQ                  TO WRK-START-YRQ           DTSBE325
00332      ELSE                                                         DTSBE325
00333         MOVE L004-QTR-5-9              TO WRK-START-YRQ           DTSBE325
00334      END-IF.                                                      DTSBE325
00335                                                                   DTSBE325
00336      MOVE WRK-START-YRQ                TO L004-QTR-5-9.           DTSBE325
00337      PERFORM S004-FROM-5               THRU S004-EXIT.            DTSBE325
00338      DISPLAY 'DTSBE325 START QUARTER ' L004-SLASH-5-QTR.          DTSBE325
00339                                                                   DTSBE325
00340      MOVE WRK-END-YRQ                  TO L004-QTR-5-9.           DTSBE325
00341      PERFORM S004-FROM-5               THRU S004-EXIT.            DTSBE325
00342      DISPLAY 'DTSBE325 END QUARTER   ' L004-SLASH-5-QTR.          DTSBE325
00343                                                                   DTSBE325
00344      MOVE MHDR-CURR-RUN-DATE           TO L001-FED-8-DATE-9.      DTSBE325
00345      PERFORM S001-FROM-FED-8           THRU S001-EXIT.            DTSBE325
00346      DISPLAY 'DTSBE325 CURR RUN DATE ' L001-SLASH-8-DATE.         DTSBE325
00347                                                                   DTSBE325
00348      PERFORM I3200-TAX-RATES           THRU I3200-EXIT.           DTSBE325
00349                                                                   DTSBE325
00350  I3000-EXIT.                                                      DTSBE325
00351      EXIT.                                                        DTSBE325
00352                                                                   DTSBE325
00353  I3100-READ-MHDR.                                                 DTSBE325
00354      MOVE LOW-VALUES              TO MSKL-REC.                    DTSBE325
00355      MOVE +0                      TO MSKL-EMP-NO.                 DTSBE325
00356      SET MSKL-HDR-88              TO TRUE.                        DTSBE325
00357                                                                   DTSBE325
00358      PERFORM S910-READ            THRU S910-EXIT.                 DTSBE325
00359      IF L910-NO-REC-88                                            DTSBE325
00360         DISPLAY 'DTSBE325: MHDR RECORD IS MISSING'                DTSBE325
00361         SET WRK-ERROR-YES-88      TO TRUE                         DTSBE325
00362         GO TO I3100-EXIT                                          DTSBE325
00363      ELSE                                                         DTSBE325
00364         MOVE MSKL-REC             TO MHDR-REC                     DTSBE325
00365      END-IF.                                                      DTSBE325
00366                                                                   DTSBE325
00367                                                                   DTSBE325
00368  I3100-EXIT.                                                      DTSBE325
00369      EXIT.                                                        DTSBE325
00370                                                                   DTSBE325
00371  I3200-TAX-RATES.                                                 DTSBE325
00372      MOVE WRK-START-YRQ                TO L004-QTR-5-9.           DTSBE325
00373      PERFORM S004-FROM-5               THRU S004-EXIT.            DTSBE325
00374      DISPLAY SPACE.                                               DTSBE325
00375      DISPLAY 'ASSESSMENT RATES: '.                                DTSBE325
00376      DISPLAY SPACE.                                               DTSBE325
00377                                                                   DTSBE325
00378      PERFORM                                                      DTSBE325
00379        VARYING SUB FROM +1 BY +1                                  DTSBE325
00380        UNTIL SUB > WRK-QTR-TABLE-MAX                              DTSBE325
00381          MOVE L004-QTR-5-9          TO L109-YRQ                   DTSBE325
00382                                        WRK-QTR-YRQ (SUB)          DTSBE325
00383          PERFORM S109-SUR-BY-QTR    THRU S109-QTR-EXIT            DTSBE325
00384          MOVE L109-SUR-RATE         TO WRK-QTR-RATE (SUB)         DTSBE325
00385                                        DISP-RATE                  DTSBE325
00386          DISPLAY '   ' L004-SLASH-5-QTR ' : ' DISP-RATE           DTSBE325
00387            '  ' L109-SUR-RATE                                     DTSBE325
00388          ADD +1                     TO L004-ABS-QTR               DTSBE325
00389          PERFORM S004-FROM-ABS      THRU S004-EXIT                DTSBE325
00390      END-PERFORM.                                                 DTSBE325
00391                                                                   DTSBE325
00392  I3200-EXIT.                                                      DTSBE325
00393      EXIT.                                                        DTSBE325
00394                                                                   DTSBE325
00395  I4000-INIT-T026.                                                 DTSBE325
00396      MOVE LENGTH OF T026-REC     TO T026-LENGTH.                  DTSBE325
00397      MOVE '026'                  TO T026-REC-TYPE.                DTSBE325
00398      MOVE 'DTSBE325'             TO T026-ORIGIN.                  DTSBE325
00399      MOVE L005-DATE              TO T026-SYS-DATE.                DTSBE325
00400      MOVE L005-TIME              TO T026-SYS-TIME.                DTSBE325
00401      MOVE LOW-VALUES             TO T026-DATA-AREA.               DTSBE325
00402                                                                   DTSBE325
00403  I4000-EXIT.                                                      DTSBE325
00404      EXIT.                                                        DTSBE325
00405                                                                   DTSBE325
00406  I5000-INIT-WORK.                                                 DTSBE325
00407      PERFORM                                                      DTSBE325
00408        VARYING SUB FROM +1 BY +1                                  DTSBE325
00409        UNTIL SUB > WRK-QTR-TABLE-MAX                              DTSBE325
00410           MOVE ZERO TO         WRK-QTR-OLD-TOT-WAGE (SUB)         DTSBE325
00411                                WRK-QTR-OLD-ASSESSMT (SUB)         DTSBE325
00412                                WRK-QTR-EMP-CNT (SUB)              DTSBE325
00413                                WRK-QTR-NEW-TOT-WAGE (SUB)         DTSBE325
00414                                WRK-QTR-NEW-TAX-WAGE (SUB)         DTSBE325
00415                                WRK-QTR-NEW-ASSESSMT (SUB)         DTSBE325
00416      END-PERFORM.                                                 DTSBE325
00417                                                                   DTSBE325
00418  I5000-EXIT.                                                      DTSBE325
00419      EXIT.                                                        DTSBE325
00420                                                                   DTSBE325
00421  P0000-PROCESS.                                                   DTSBE325
00422      IF WRK-ERROR-YES-88                                          DTSBE325
00423         GO TO P0000-EXIT                                          DTSBE325
00424      END-IF.                                                      DTSBE325
00425                                                                   DTSBE325
00426      PERFORM I5000-INIT-WORK            THRU I5000-EXIT.          DTSBE325
00427                                                                   DTSBE325
00428      IF MPRF-CLASS-SELF-INS-88                                    DTSBE325
00429         ADD +1 TO WRK-MPRF-CNT                                    DTSBE325
00430         PERFORM P1200-CURR-ASSESSMENT   THRU P1200-EXIT           DTSBE325
00431         PERFORM P1300-NEW-ASSESSMENT    THRU P1300-EXIT           DTSBE325
00432         PERFORM P2000-CHECK-FOR-UPDATE  THRU P2000-EXIT           DTSBE325
00433      END-IF.                                                      DTSBE325
00434                                                                   DTSBE325
00435  P0000-EXIT.                                                      DTSBE325
00436      EXIT.                                                        DTSBE325
00437                                                                   DTSBE325
00438  P1200-CURR-ASSESSMENT.                                           DTSBE325
00439      MOVE LOW-VALUES       TO MQTR-KEY-AREA.                      DTSBE325
00440      MOVE MPRF-EMP-NO      TO MQTR-EMP-NO.                        DTSBE325
00441      MOVE WRK-START-YRQ    TO MQTR-YRQ.                           DTSBE325
00442      SET  MQTR-QTR-88      TO TRUE                                DTSBE325
00443      MOVE MQTR-KEY-AREA    TO MSKL-KEY-AREA.                      DTSBE325
00444                                                                   DTSBE325
00445      DISPLAY '  *****EMP NO ' MPRF-EMP-NO.                        DTSBE325
00446      DISPLAY ' WRK START YRQ ' WRK-START-YRQ.                     DTSBE325
00447      DISPLAY ' WRK QTR   YRQ ' WRK-QTR-YRQ (SUB).                 DTSBE325
00448      PERFORM S910-START-BROWSE    THRU S910-EXIT.                 DTSBE325
00449      PERFORM UNTIL L910-NO-REC-88                                 DTSBE325
00450         MOVE MSKL-REC             TO MQTR-REC                     DTSBE325
00451         DISPLAY 'MQTR-YRQ ' MQTR-YRQ  ' END-YRQ ' WRK-END-YRQ     DTSBE325
00452         IF MQTR-YRQ >                WRK-END-YRQ                  DTSBE325
00453            SET L910-NO-REC-88     TO TRUE                         DTSBE325
00454         ELSE                                                      DTSBE325
00455            MOVE ZERO              TO WRK-CURR-ASSESS              DTSBE325
00456            PERFORM                                                DTSBE325
00457              VARYING MQTR-ACCT-IDX FROM 1 BY 1                    DTSBE325
00458              UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                  DTSBE325
00459                IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                DTSBE325
00460                   ADD  MQTR-CHARGED-AMT (MQTR-ACCT-IDX)           DTSBE325
00461                      TO WRK-CURR-ASSESS                           DTSBE325
00462                END-IF                                             DTSBE325
00463            END-PERFORM                                            DTSBE325
00464            PERFORM P1210-QTR-SUM      THRU P1210-EXIT             DTSBE325
00465            PERFORM S910-READ-NEXT     THRU S910-EXIT              DTSBE325
00466         END-IF                                                    DTSBE325
00467      END-PERFORM.                                                 DTSBE325
00468                                                                   DTSBE325
00469  P1200-EXIT.                                                      DTSBE325
00470      EXIT.                                                        DTSBE325
00471                                                                   DTSBE325
00472  P1210-QTR-SUM.                                                   DTSBE325
00473      SET WRK-QTR-FOUND-NO-88   TO TRUE.                           DTSBE325
00474      PERFORM                                                      DTSBE325
00475        VARYING SUB FROM +1 BY +1                                  DTSBE325
00476        UNTIL WRK-QTR-FOUND-YES-88                                 DTSBE325
00477          DISPLAY ' SUB ' SUB                                      DTSBE325
00478          DISPLAY 'MQTR YRQ ' MQTR-YRQ                             DTSBE325
00479          DISPLAY 'WRK QTR YRQ ' WRK-QTR-YRQ(SUB)                  DTSBE325
00480          DISPLAY '    '                                           DTSBE325
00481          IF MQTR-YRQ = WRK-QTR-YRQ (SUB)                          DTSBE325
00482             MOVE MQTR-TOT-WAGE   TO WRK-QTR-OLD-TOT-WAGE (SUB)    DTSBE325
00483             MOVE WRK-CURR-ASSESS TO WRK-QTR-OLD-ASSESSMT (SUB)    DTSBE325
00484             SET WRK-QTR-FOUND-YES-88  TO TRUE                     DTSBE325
00485          END-IF                                                   DTSBE325
00486      END-PERFORM.                                                 DTSBE325
00487                                                                   DTSBE325
00488  P1210-EXIT.                                                      DTSBE325
00489      EXIT.                                                        DTSBE325
00490                                                                   DTSBE325
00491  P1300-NEW-ASSESSMENT.                                            DTSBE325
00492 ***  DISPLAY 'P1300 ' MPRF-EMP-NO.                                DTSBE325
00493                                                                   DTSBE325
00494      MOVE LOW-VALUES                  TO WESQ-REC.                DTSBE325
00495      MOVE MPRF-EMP-NO                 TO WESQ-EMP-NO.             DTSBE325
00496      MOVE WRK-START-YRQ               TO WESQ-YRQ.                DTSBE325
00497      START WESQ-FILE KEY IS >=           WESQ-KEY-AREA.           DTSBE325
00498      READ WESQ-FILE NEXT.                                         DTSBE325
00499      PERFORM UNTIL NOT WESQ-FILE-OK-88                            DTSBE325
00500         MOVE ZERO                     TO WRK-TAX-WAGE             DTSBE325
00501         IF WESQ-EMP-NO = MPRF-EMP-NO                              DTSBE325
00502         AND WESQ-YRQ <= WRK-END-YRQ                               DTSBE325
00503            PERFORM P1310-TAX-WAGE     THRU P1310-EXIT             DTSBE325
00504            PERFORM P1320-QTR-SUM      THRU P1320-EXIT             DTSBE325
00505            READ WESQ-FILE NEXT                                    DTSBE325
00506         ELSE                                                      DTSBE325
00507            SET WESQ-FILE-NO-REC-88    TO TRUE                     DTSBE325
00508         END-IF                                                    DTSBE325
00509      END-PERFORM.                                                 DTSBE325
00510                                                                   DTSBE325
00511      PERFORM P1330-COMPUTE-ASSESS    THRU P1330-EXIT.             DTSBE325
00512                                                                   DTSBE325
00513  P1300-EXIT.                                                      DTSBE325
00514      EXIT.                                                        DTSBE325
00515                                                                   DTSBE325
00516  P1310-TAX-WAGE.                                                  DTSBE325
00517 *    IF WESQ-EMP-NO = 813380                                      DTSBE325
00518 *       MOVE WESQ-EARNINGS TO AMT-DISP1                           DTSBE325
00519 *       MOVE WESQ-YTD-EARNINGS TO AMT-DISP2                       DTSBE325
00520 *       DISPLAY 'P1300 ' WESQ-SSN '  ' AMT-DISP1                  DTSBE325
00521 *          '  ' WESQ-YRQ '  YTD ' AMT-DISP2                       DTSBE325
00522 *    END-IF.                                                      DTSBE325
00523                                                                   DTSBE325
00524      IF WESQ-YTD-EARNINGS >= 9000                                 DTSBE325
00525         MOVE ZERO               TO WRK-TAX-WAGE                   DTSBE325
00526      ELSE                                                         DTSBE325
00527         COMPUTE WRK-TAX-REMAIN = (9000 - WESQ-YTD-EARNINGS)       DTSBE325
00528         IF WRK-TAX-REMAIN    >  WESQ-EARNINGS                     DTSBE325
00529            MOVE WESQ-EARNINGS   TO WRK-TAX-WAGE                   DTSBE325
00530         ELSE                                                      DTSBE325
00531            MOVE WRK-TAX-REMAIN  TO WRK-TAX-WAGE                   DTSBE325
00532         END-IF                                                    DTSBE325
00533      END-IF.                                                      DTSBE325
00534                                                                   DTSBE325
00535  P1310-EXIT.                                                      DTSBE325
00536      EXIT.                                                        DTSBE325
00537                                                                   DTSBE325
00538  P1320-QTR-SUM.                                                   DTSBE325
00539 *    IF MPRF-EMP-NO = 813380                                      DTSBE325
00540 *       MOVE WESQ-EARNINGS      TO AMT-DISP1                      DTSBE325
00541 *       MOVE WRK-TAX-WAGE       TO AMT-DISP2                      DTSBE325
00542 *       DISPLAY 'P1320 WESQ ' WESQ-SSN '  ' AMT-DISP1             DTSBE325
00543 *          '  TAX ' AMT-DISP2                                     DTSBE325
00544 *          '  ' WESQ-YRQ                                          DTSBE325
00545 *    END-IF.                                                      DTSBE325
00546      SET WRK-QTR-FOUND-NO-88   TO TRUE.                           DTSBE325
00547      PERFORM                                                      DTSBE325
00548        VARYING SUB FROM +1 BY +1                                  DTSBE325
00549        UNTIL WRK-QTR-FOUND-YES-88                                 DTSBE325
00550          IF WESQ-YRQ = WRK-QTR-YRQ (SUB)                          DTSBE325
00551            ADD  WESQ-EARNINGS   TO WRK-QTR-NEW-TOT-WAGE (SUB)     DTSBE325
00552            ADD  WRK-TAX-WAGE    TO WRK-QTR-NEW-TAX-WAGE (SUB)     DTSBE325
00553            ADD +1               TO WRK-QTR-EMP-CNT (SUB)          DTSBE325
00554            SET WRK-QTR-FOUND-YES-88  TO TRUE                      DTSBE325
00555          END-IF                                                   DTSBE325
00556      END-PERFORM.                                                 DTSBE325
00557                                                                   DTSBE325
00558  P1320-EXIT.                                                      DTSBE325
00559      EXIT.                                                        DTSBE325
00560                                                                   DTSBE325
00561  P1330-COMPUTE-ASSESS.                                            DTSBE325
00562      PERFORM                                                      DTSBE325
00563        VARYING SUB FROM +1 BY +1                                  DTSBE325
00564        UNTIL SUB > WRK-QTR-TABLE-MAX                              DTSBE325
00565           COMPUTE WRK-QTR-NEW-ASSESSMT (SUB) ROUNDED =            DTSBE325
00566             (WRK-QTR-NEW-TAX-WAGE (SUB) *                         DTSBE325
00567              WRK-QTR-RATE (SUB))                                  DTSBE325
00568      END-PERFORM.                                                 DTSBE325
00569                                                                   DTSBE325
00570  P1330-EXIT.                                                      DTSBE325
00571      EXIT.                                                        DTSBE325
00572                                                                   DTSBE325
00573  P2000-CHECK-FOR-UPDATE.                                          DTSBE325
00574      PERFORM                                                      DTSBE325
00575        VARYING SUB FROM +1 BY +1                                  DTSBE325
00576        UNTIL SUB > WRK-QTR-TABLE-MAX                              DTSBE325
00577 *&                                                                DTSBE325
00578      IF MPRF-EMP-NO = 150337                                      DTSBE325
00579         MOVE WRK-QTR-NEW-ASSESSMT (SUB) TO AMT-DISP1              DTSBE325
00580         MOVE WRK-QTR-OLD-ASSESSMT (SUB) TO AMT-DISP2              DTSBE325
00581         DISPLAY 'P2000 OLD ' AMT-DISP2 '  NEW ' AMT-DISP1         DTSBE325
00582           '  ' WRK-QTR-YRQ (SUB)                                  DTSBE325
00583      END-IF                                                       DTSBE325
00584 *&                                                                DTSBE325
00585          IF WRK-QTR-OLD-ASSESSMT (SUB) NOT =                      DTSBE325
00586             WRK-QTR-NEW-ASSESSMT (SUB)                            DTSBE325
00587             PERFORM P2100-REPORT      THRU P2100-EXIT             DTSBE325
00588          END-IF                                                   DTSBE325
00589      END-PERFORM.                                                 DTSBE325
00590                                                                   DTSBE325
00591                                                                   DTSBE325
00592  P2000-EXIT.                                                      DTSBE325
00593      EXIT.                                                        DTSBE325
00594                                                                   DTSBE325
00595  P2100-REPORT.                                                    DTSBE325
00596      COMPUTE WRK-WAGE-TOLERANCE =                                 DTSBE325
00597         (WRK-QTR-EMP-CNT (SUB) * .99)                             DTSBE325
00598                                                                   DTSBE325
00599      COMPUTE WRK-WAGE-DIFF =                                      DTSBE325
00600         (WRK-QTR-OLD-TOT-WAGE (SUB) -                             DTSBE325
00601          WRK-QTR-NEW-TOT-WAGE (SUB)).                             DTSBE325
00602                                                                   DTSBE325
00603 **********************************************************        DTSBE325
00604 *  ALLOW THE SYSTEM TO CHARGE THE ASSESSMENT IF THE WAGES         DTSBE325
00605 *  ON THE WAGE FILE ARE GREATER THAN THOSE REPORTED ON            DTSBE325
00606 *  THE UC-30.  (WRK-WAGE-DIFF WILL BE < 0 IN THIS CASE.)          DTSBE325
00607 **********************************************************        DTSBE325
00608      MOVE 0             TO WRK-PCT.                               DTSBE325
00609      IF WRK-WAGE-DIFF > ZERO                                      DTSBE325
00610         IF WRK-QTR-OLD-TOT-WAGE (SUB) > 0                         DTSBE325
00611            COMPUTE WRK-PCT =                                      DTSBE325
00612               (WRK-WAGE-DIFF / WRK-QTR-OLD-TOT-WAGE (SUB))        DTSBE325
00613         END-IF                                                    DTSBE325
00614      END-IF.                                                      DTSBE325
00615                                                                   DTSBE325
00616      COMPUTE WRK-ASSESS-CHNG =                                    DTSBE325
00617         (WRK-QTR-NEW-ASSESSMT (SUB) -                             DTSBE325
00618          WRK-QTR-OLD-ASSESSMT (SUB)).                             DTSBE325
00619                                                                   DTSBE325
00620      EVALUATE TRUE                                                DTSBE325
00621        WHEN WRK-QTR-NEW-TOT-WAGE (SUB) = ZERO                     DTSBE325
00622           SET WRK-NO-WAGES-88             TO TRUE                 DTSBE325
00623           ADD +1                          TO WRK-NO-WAGES-CNT     DTSBE325
00624                                                                   DTSBE325
00625        WHEN (WRK-PCT > WRK-MAX-PCT                                DTSBE325
00626          OR WRK-WAGE-DIFF > WRK-MAX-WAGE-DIFF)                    DTSBE325
00627           SET WRK-ASSESS-OVER-MAX-88      TO TRUE                 DTSBE325
00628           ADD +1                          TO WRK-OVER-MAX-CNT     DTSBE325
00629                                                                   DTSBE325
00630        WHEN WRK-WAGE-DIFF > WRK-WAGE-TOLERANCE                    DTSBE325
00631           SET WRK-ASSESS-UNDER-MAX-88     TO TRUE                 DTSBE325
00632           ADD +1                          TO WRK-UNDER-MAX-CNT    DTSBE325
00633                                                                   DTSBE325
00634        WHEN WRK-WAGE-DIFF = 0                                     DTSBE325
00635           SET WRK-ASSESS-EXACT-88         TO TRUE                 DTSBE325
00636           ADD +1                          TO WRK-EXACT-CNT        DTSBE325
00637                                                                   DTSBE325
00638        WHEN OTHER                                                 DTSBE325
00639           SET WRK-ASSESS-TOL-88           TO TRUE                 DTSBE325
00640           ADD +1                          TO WRK-TOL-CNT          DTSBE325
00641      END-EVALUATE.                                                DTSBE325
00642                                                                   DTSBE325
00643      IF WRK-CHARGE-ASSESS-88                                      DTSBE325
00644         IF WRK-ASSESS-CHNG NOT = 0                                DTSBE325
00645            PERFORM P2110-WRITE-T026       THRU P2110-EXIT         DTSBE325
00646            PERFORM P2130-WRITE-DOWNLOAD   THRU P2130-EXIT         DTSBE325
00647         END-IF                                                    DTSBE325
00648      END-IF.                                                      DTSBE325
00649                                                                   DTSBE325
00650      PERFORM P2120-WRITE-R325             THRU P2120-EXIT.        DTSBE325
00651                                                                   DTSBE325
00652  P2100-EXIT.                                                      DTSBE325
00653      EXIT.                                                        DTSBE325
00654                                                                   DTSBE325
00655  P2110-WRITE-T026.                                                DTSBE325
00656      ADD 1                    TO WRK-T026-CNT.                    DTSBE325
00657      MOVE MPRF-EMP-NO         TO T026-EMP-NO.                     DTSBE325
00658      MOVE WRK-ASSESS-CHNG     TO T026-AMT.                        DTSBE325
00659      MOVE WRK-QTR-YRQ (SUB)   TO T026-APPLIC-YRQ.                 DTSBE325
00660      MOVE +0                  TO T026-RECEIVED-DATE.              DTSBE325
00661      MOVE SPACES              TO T026-NAME-CHECK                  DTSBE325
00662                                  T026-INT-SPAN-IND.               DTSBE325
00663      MOVE 'SU'                TO T026-APPLIC-IND.                 DTSBE325
00664      SET  T026-ADM-ASSESSMNT  TO TRUE.                            DTSBE325
00665      MOVE +0                  TO T026-APPLIC-BATCH-NO             DTSBE325
00666                                  T026-APPLIC-ITEM-NO              DTSBE325
00667                                  T026-DATE-1                      DTSBE325
00668                                  T026-DATE-2.                     DTSBE325
00669                                                                   DTSBE325
00670      MOVE SPACES               TO T026-RESPONSIBLE-ACTIVITY.      DTSBE325
00671      MOVE 'DTSBE325'           TO T026-RESPONSIBLE-OP-ID.         DTSBE325
00672                                                                   DTSBE325
00673      PERFORM S927-WRITE        THRU S927-EXIT.                    DTSBE325
00674                                                                   DTSBE325
00675  P2110-EXIT.                                                      DTSBE325
00676      EXIT.                                                        DTSBE325
00677                                                                   DTSBE325
00678  P2120-WRITE-R325.                                                DTSBE325
00679      MOVE LOW-VALUES            TO  R325-SORT-AREA.               DTSBE325
00680      MOVE LENGTH OF R325-REC    TO  R325-LENGTH.                  DTSBE325
00681      MOVE '325'                 TO  R325-REC-TYPE.                DTSBE325
00682      MOVE WRK-ASSESS-STATUS     TO  R325-RPT-TYPE.                DTSBE325
00683      MOVE MPRF-EMP-NO           TO  R325-EMP-NO.                  DTSBE325
00684      MOVE MPRF-FEIN             TO  R325-EMP-FEIN.                DTSBE325
00685      MOVE MHDR-CURR-RUN-DATE    TO  R325-STMT-DATE.               DTSBE325
00686      MOVE SPACES                TO  R325-OP-ID                    DTSBE325
00687      MOVE WRK-QTR-RATE (SUB)    TO  R325-ASSESSMENT-RATE.         DTSBE325
00688      MOVE WRK-QTR-YRQ (SUB)     TO  R325-QTR.                     DTSBE325
00689      MOVE WRK-QTR-OLD-TOT-WAGE (SUB)                              DTSBE325
00690                                 TO  R325-UC30-WAGES.              DTSBE325
00691      MOVE WRK-QTR-NEW-TOT-WAGE (SUB)                              DTSBE325
00692                                 TO  R325-WAGE-FILE-WAGES.         DTSBE325
00693      MOVE WRK-QTR-NEW-TAX-WAGE (SUB)                              DTSBE325
00694                                 TO  R325-ASSESSMENT-WAGES.        DTSBE325
00695      MOVE WRK-ASSESS-CHNG       TO  R325-CALC-ASSESS-DUE          DTSBE325
00696                                     R325-FINAL-ASSESS-DUE.        DTSBE325
00697      PERFORM P2121-GET-ADDR     THRU P2121-EXIT.                  DTSBE325
00698      PERFORM S946-WRITE-R325 THRU S946-EXIT.                      DTSBE325
00699                                                                   DTSBE325
00700      MOVE WRK-QTR-NEW-TOT-WAGE (SUB) TO AMT-DISP1.                DTSBE325
00701      MOVE WRK-QTR-OLD-TOT-WAGE (SUB) TO AMT-DISP2.                DTSBE325
00702 ***  MOVE WRK-QTR-NEW-TAX-WAGE (SUB)  TO AMT-DISP2.               DTSBE325
00703      MOVE WRK-QTR-OLD-ASSESSMT (SUB)  TO AMT-DISP3.               DTSBE325
00704      MOVE WRK-QTR-NEW-ASSESSMT (SUB)  TO AMT-DISP4.               DTSBE325
00705                                                                   DTSBE325
00706      DISPLAY SPACE.                                               DTSBE325
00707      IF WRK-ASSESS-EXACT-88                                       DTSBE325
00708        DISPLAY 'EX  ' MPRF-EMP-NO '  ' WRK-QTR-YRQ (SUB)          DTSBE325
00709        '  ' MPRF-PRIMARY-NAME '  ' WRK-QTR-EMP-CNT (SUB)          DTSBE325
00710      ELSE                                                         DTSBE325
00711        IF WRK-ASSESS-TOL-88                                       DTSBE325
00712          DISPLAY 'TL  ' MPRF-EMP-NO '  ' WRK-QTR-YRQ (SUB)        DTSBE325
00713          '  ' MPRF-PRIMARY-NAME '  ' WRK-QTR-EMP-CNT (SUB)        DTSBE325
00714        ELSE                                                       DTSBE325
00715          IF WRK-ASSESS-UNDER-MAX-88                               DTSBE325
00716            DISPLAY 'MX  ' MPRF-EMP-NO '  ' WRK-QTR-YRQ (SUB)      DTSBE325
00717            '  ' MPRF-PRIMARY-NAME '  ' WRK-QTR-EMP-CNT (SUB)      DTSBE325
00718          ELSE                                                     DTSBE325
00719            DISPLAY 'ERR ' MPRF-EMP-NO '  ' WRK-QTR-YRQ (SUB)      DTSBE325
00720            '  ' MPRF-PRIMARY-NAME '  ' WRK-QTR-EMP-CNT (SUB)      DTSBE325
00721          END-IF                                                   DTSBE325
00722        END-IF                                                     DTSBE325
00723      END-IF.                                                      DTSBE325
00724      DISPLAY  '  OLD ' AMT-DISP2 '  NEW ' AMT-DISP1.              DTSBE325
00725      DISPLAY '   OLD ' AMT-DISP3 '  NEW ' AMT-DISP4.              DTSBE325
00726      MOVE WRK-QTR-OLD-TOT-WAGE (SUB) TO AMT-DISP1.                DTSBE325
00727 **   DISPLAY  '  TAX ' AMT-DISP2                                  DTSBE325
00728 **   DISPLAY '   OLD ' AMT-DISP3 '  NEW ' AMT-DISP4.              DTSBE325
00729                                                                   DTSBE325
00730  P2120-EXIT.                                                      DTSBE325
00731      EXIT.                                                        DTSBE325
00732                                                                   DTSBE325
00733  P2121-GET-ADDR.                                                  DTSBE325
00734        MOVE LOW-VALUES           TO  L111-RETURN-AREA.            DTSBE325
00735        MOVE MPRF-EMP-NO          TO  L111-EMP-NO.                 DTSBE325
00736        SET L111-LOOKUP-TAD-88    TO  TRUE.                        DTSBE325
00737        MOVE +001                 TO  L111-ID-NO.                  DTSBE325
00738                                                                   DTSBE325
00739        PERFORM S111-LOOKUP-ADDR  THRU  S111-EXIT.                 DTSBE325
00740                                                                   DTSBE325
00741        IF L111-ADDR-FOUND-88                                      DTSBE325
00742            SET L112-TAD-ADDR-88  TO  TRUE                         DTSBE325
00743            MOVE L111-RETURN-AREA TO  L112-NAME-ADDRESS-AREA       DTSBE325
00744            PERFORM P2122-FORMAT-ADDR  THRU P2122-EXIT             DTSBE325
00745        ELSE                                                       DTSBE325
00746            MOVE ALL '?'          TO  R325-FMT-ADDR                DTSBE325
00747                                      R325-ZIP                     DTSBE325
00748                                      R325-ADVANCED-BARCODE.       DTSBE325
00749  P2121-EXIT.                                                      DTSBE325
00750      EXIT.                                                        DTSBE325
00751  P2122-FORMAT-ADDR.                                               DTSBE325
00752       SET L112-ANCHOR-FIRST-88  TO  TRUE.                         DTSBE325
00753       MOVE MPRF-PRIMARY-NAME    TO  L112-PRIMARY-NAME.            DTSBE325
00754                                                                   DTSBE325
00755       PERFORM S112-FORMAT-ADDR  THRU  S112-EXIT.                  DTSBE325
00756                                                                   DTSBE325
00757       MOVE L112-MAILING-ADDRESS   TO  R325-FMT-ADDR.              DTSBE325
00758       MOVE L112-ZIP               TO  R325-ZIP.                   DTSBE325
00759       MOVE R325-ZIP               TO  R325-SORT-ZIP.              DTSBE325
00760       MOVE L112-ADVANCED-BARCODE  TO  R325-ADVANCED-BARCODE.      DTSBE325
00761                                                                   DTSBE325
00762  P2122-EXIT.                                                      DTSBE325
00763      EXIT.                                                        DTSBE325
00764                                                                   DTSBE325
00765  P2130-WRITE-DOWNLOAD.                                            DTSBE325
00766      MOVE MPRF-EMP-NO            TO WRK-DWN-EMP.                  DTSBE325
00767      MOVE MPRF-PRIMARY-NAME      TO WRK-DWN-NAME.                 DTSBE325
00768      MOVE WRK-QTR-YRQ (SUB)      TO L004-QTR-5-9.                 DTSBE325
00769      PERFORM S004-FROM-5         THRU S004-EXIT.                  DTSBE325
00770      MOVE L004-SLASH-5-QTR       TO WRK-DWN-YRQ.                  DTSBE325
00771      MOVE WRK-QTR-NEW-TAX-WAGE (SUB)                              DTSBE325
00772                                  TO WRK-DWN-TAX-WAGE.             DTSBE325
00773      MOVE WRK-QTR-OLD-ASSESSMT (SUB)                              DTSBE325
00774                                  TO WRK-DWN-OLD-ASSESS.           DTSBE325
00775      MOVE WRK-QTR-NEW-ASSESSMT (SUB)                              DTSBE325
00776                                  TO WRK-DWN-NEW-ASSESS.           DTSBE325
00777      MOVE WRK-ASSESS-CHNG        TO WRK-DWN-ASSESS-CHNG.          DTSBE325
00778                                                                   DTSBE325
00779      WRITE DOWNLOAD-REC          FROM WRK-DOWNLOAD-REC.           DTSBE325
00780                                                                   DTSBE325
00781  P2130-EXIT.                                                      DTSBE325
00782      EXIT.                                                        DTSBE325
00783                                                                   DTSBE325
00784  P2300-WRITE-MEVL.                                                DTSBE325
00785        MOVE LOW-VALUES                     TO  MEVL-REC.          DTSBE325
00786        MOVE L005-DATE                      TO  MEVL-ESTB-DATE     DTSBE325
00787                                                MEVL-CHNG-DATE     DTSBE325
00788                                                MEVL-DATE.         DTSBE325
00789                                                                   DTSBE325
00790        ADD  +1000                          TO  L005-ABSTIME.      DTSBE325
00791        PERFORM S005-FROM-ABSTIME           THRU S005-EXIT.        DTSBE325
00792                                                                   DTSBE325
00793        MOVE MPRF-EMP-NO                    TO  MEVL-EMP-NO.       DTSBE325
00794        SET MEVL-EVL-88                     TO  TRUE.              DTSBE325
00795        MOVE +0                             TO  MEVL-PURGE-DATE.   DTSBE325
00796        MOVE 'SI ADMIN ASSESS BILL SENT'    TO  MEVL-TEXT.         DTSBE325
00797        MOVE 'SISUBILL'                     TO  MEVL-SOURCE.       DTSBE325
00798        SET MEVL-NOT-CONVERTED-88           TO  TRUE.              DTSBE325
00799        MOVE L005-TIME                      TO  MEVL-TIME.         DTSBE325
00800        MOVE MEVL-REC                       TO  MSKL-REC.          DTSBE325
00801        PERFORM S910-WRITE                  THRU S910-EXIT.        DTSBE325
00802                                                                   DTSBE325
00803  P2300-EXIT.                                                      DTSBE325
00804      EXIT.                                                        DTSBE325
00805                                                                   DTSBE325
00806                                                                   DTSBE325
00807  T0000-TERMINATE.                                                 DTSBE325
00808      IF WRK-ERROR-YES-88                                          DTSBE325
00809         GO TO T0000-EXIT                                          DTSBE325
00810      END-IF.                                                      DTSBE325
00811                                                                   DTSBE325
00812      DISPLAY ' '.                                                 DTSBE325
00813                                                                   DTSBE325
00814      DISPLAY '*** DTSBE325 TERMINATION STATISTICS ***'.           DTSBE325
00815                                                                   DTSBE325
00816      DISPLAY ' '.                                                 DTSBE325
00817                                                                   DTSBE325
00818      DISPLAY 'TOTAL SELF INS READ         : ' WRK-MPRF-CNT.       DTSBE325
00819      DISPLAY SPACE.                                               DTSBE325
00820      DISPLAY 'ASSESSED COUNTS             : '                     DTSBE325
00821      DISPLAY '  WAGES EXACT               : ' WRK-EXACT-CNT.      DTSBE325
00822      DISPLAY '  TOLERATED                 : ' WRK-TOL-CNT.        DTSBE325
00823      DISPLAY '  UNDER MAX                 : ' WRK-UNDER-MAX-CNT.  DTSBE325
00824      DISPLAY 'T026 TRANSACTIONS CREATED   : ' WRK-T026-CNT.       DTSBE325
00825      DISPLAY SPACE.                                               DTSBE325
00826      DISPLAY 'NO ASSESSMENT COUNTS        : '                     DTSBE325
00827      DISPLAY '  OVER MAX                  : ' WRK-OVER-MAX-CNT.   DTSBE325
00828      DISPLAY '  NO WAGES                  : ' WRK-OVER-MAX-CNT.   DTSBE325
00829                                                                   DTSBE325
00830       CLOSE DOWNLOAD-FILE                                         DTSBE325
00831             WESQ-FILE.                                            DTSBE325
00832                                                                   DTSBE325
00833                                                                   DTSBE325
00834  T0000-EXIT.                                                      DTSBE325
00835      EXIT.                                                        DTSBE325
00836                                                                   DTSBE325
00837  S001-FROM-FED-8.                                                 DTSBE325
00838      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE325
00839      GO TO S001-DATE.                                             DTSBE325
00840                                                                   DTSBE325
00841  S001-FROM-ABS-DAY.                                               DTSBE325
00842      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE325
00843      GO TO S001-DATE.                                             DTSBE325
00844                                                                   DTSBE325
00845  S001-DATE.                                                       DTSBE325
00846      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE325
00847                                                                   DTSBE325
00848  S001-EXIT.                                                       DTSBE325
00849      EXIT.                                                        DTSBE325
00850      SKIP3                                                        DTSBE325
00851  S004-FROM-5.                                                     DTSBE325
00852      SET L004-FROM-5     TO TRUE.                                 DTSBE325
00853      GO TO S004-EDIT-QTR.                                         DTSBE325
00854                                                                   DTSBE325
00855  S004-FROM-DATE.                                                  DTSBE325
00856      SET L004-FROM-DATE  TO TRUE.                                 DTSBE325
00857      GO TO S004-EDIT-QTR.                                         DTSBE325
00858                                                                   DTSBE325
00859  S004-FROM-ABS.                                                   DTSBE325
00860      SET L004-FROM-ABS   TO TRUE.                                 DTSBE325
00861      GO TO S004-EDIT-QTR.                                         DTSBE325
00862                                                                   DTSBE325
00863  S004-EDIT-QTR.                                                   DTSBE325
00864      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSBE325
00865                                                                   DTSBE325
00866  S004-EXIT.                                                       DTSBE325
00867      EXIT.                                                        DTSBE325
00868      SKIP3                                                        DTSBE325
00869  S005-SYS-DATE.                                                   DTSBE325
00870       SET L005-FROM-SYS TO TRUE                                   DTSBE325
00871       GO TO S005-ABSTIME.                                         DTSBE325
00872  S005-FROM-ABSTIME.                                               DTSBE325
00873       SET L005-FROM-ABSTIME TO TRUE.                              DTSBE325
00874       GO TO S005-ABSTIME.                                         DTSBE325
00875   S005-ABSTIME.                                                   DTSBE325
00876       CALL 'DTSBU005' USING L005-LINK-AREA.                       DTSBE325
00877   S005-EXIT.                                                      DTSBE325
00878       EXIT.                                                       DTSBE325
00879      SKIP3                                                        DTSBE325
00880  S109-SUR-RATE-FIRST-QTR.                                         DTSBE325
00881      SET L109-CMND-FIRST-QTR-88  TO TRUE.                         DTSBE325
00882      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBE325
00883                                                                   DTSBE325
00884  S109-FIRST-EXIT.                                                 DTSBE325
00885      EXIT.                                                        DTSBE325
00886  S109-SUR-BY-QTR.                                                 DTSBE325
00887      SET L109-CLASS-SELF-INS-88  TO TRUE.                         DTSBE325
00888      SET L109-CMND-INPUT-QTR-88  TO TRUE.                         DTSBE325
00889      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBE325
00890                                                                   DTSBE325
00891  S109-QTR-EXIT.                                                   DTSBE325
00892      EXIT.                                                        DTSBE325
00893      SKIP3                                                        DTSBE325
00894       SKIP3                                                       DTSBE325
00895  S111-LOOKUP-ADDR.                                                DTSBE325
00896       CALL 'DTSBU111' USING L111-LINK-AREA.                       DTSBE325
00897   S111-EXIT.                                                      DTSBE325
00898       EXIT.                                                       DTSBE325
00899       SKIP3                                                       DTSBE325
00900   S112-FORMAT-ADDR.                                               DTSBE325
00901       CALL 'DTSBU112' USING L112-LINK-AREA.                       DTSBE325
00902   S112-EXIT.                                                      DTSBE325
00903       EXIT.                                                       DTSBE325
00904       SKIP3                                                       DTSBE325
00905                                                                   DTSBE325
00906 *S910-OPEN-READ.                                                  DTSBE325
00907 *    SET L910-OPEN-READ-88 TO TRUE.                               DTSBE325
00908 *    GO TO S910-MSTR-IO.                                          DTSBE325
00909 *                                                                 DTSBE325
00910 *S910-OPEN-UPDATE-NO-AIX.                                         DTSBE325
00911 *    SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBE325
00912 *    GO TO S910-MSTR-IO.                                          DTSBE325
00913                                                                   DTSBE325
00914  S910-READ.                                                       DTSBE325
00915      SET L910-READ-88 TO TRUE.                                    DTSBE325
00916      GO TO S910-MSTR-IO.                                          DTSBE325
00917                                                                   DTSBE325
00918  S910-START-BROWSE.                                               DTSBE325
00919      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE325
00920      GO TO S910-MSTR-IO.                                          DTSBE325
00921                                                                   DTSBE325
00922  S910-READ-NEXT.                                                  DTSBE325
00923      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE325
00924      GO TO S910-MSTR-IO.                                          DTSBE325
00925                                                                   DTSBE325
00926  S910-COUNT.                                                      DTSBE325
00927      SET L910-COUNT-88 TO TRUE.                                   DTSBE325
00928      GO TO S910-MSTR-IO.                                          DTSBE325
00929                                                                   DTSBE325
00930  S910-REWRITE.                                                    DTSBE325
00931      SET L910-REWRITE-88 TO TRUE.                                 DTSBE325
00932      GO TO S910-MSTR-IO.                                          DTSBE325
00933                                                                   DTSBE325
00934  S910-WRITE.                                                      DTSBE325
00935      SET L910-WRITE-88 TO TRUE.                                   DTSBE325
00936      GO TO S910-MSTR-IO.                                          DTSBE325
00937                                                                   DTSBE325
00938 *S910-CLOSE.                                                      DTSBE325
00939 *    SET L910-CLOSE-88     TO TRUE.                               DTSBE325
00940 *    GO TO S910-MSTR-IO.                                          DTSBE325
00941                                                                   DTSBE325
00942  S910-MSTR-IO.                                                    DTSBE325
00943      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE325
00944                            MSKL-REC.                              DTSBE325
00945  S910-EXIT.                                                       DTSBE325
00946      EXIT.                                                        DTSBE325
00947      SKIP3                                                        DTSBE325
00948  S927-OPEN-UPDATE.                                                DTSBE325
00949      SET L927-OPEN-UPDATE-88 TO TRUE.                             DTSBE325
00950      GO TO S927-IO.                                               DTSBE325
00951  S927-WRITE.                                                      DTSBE325
00952      SET L927-WRITE-88 TO TRUE.                                   DTSBE325
00953      GO TO S927-IO.                                               DTSBE325
00954  S927-CLOSE.                                                      DTSBE325
00955      SET L927-CLOSE-88 TO TRUE.                                   DTSBE325
00956      GO TO S927-IO.                                               DTSBE325
00957  S927-IO.                                                         DTSBE325
00958      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBE325
00959                            T026-REC.                              DTSBE325
00960  S927-EXIT.                                                       DTSBE325
00961       EXIT.                                                       DTSBE325
00962                                                                   DTSBE325
00963  S946-WRITE-R325.                                                 DTSBE325
00964       CALL 'DTSBU946' USING R325-REC.                             DTSBE325
00965  S946-EXIT.                                                       DTSBE325
00966       EXIT.                                                       DTSBE325
00967                                                                   DTSBE325
00968  S981-OPEN-READ.                                                  DTSBE325
00969      SET L981-OPEN-READ-88 TO TRUE.                               DTSBE325
00970      GO TO S981-MSTR-IO.                                          DTSBE325
00971                                                                   DTSBE325
00972  S981-READ.                                                       DTSBE325
00973      SET L981-READ-88 TO TRUE.                                    DTSBE325
00974      GO TO S981-MSTR-IO.                                          DTSBE325
00975                                                                   DTSBE325
00976  S981-START-BROWSE.                                               DTSBE325
00977      SET L981-START-BROWSE-88 TO TRUE.                            DTSBE325
00978      GO TO S981-MSTR-IO.                                          DTSBE325
00979                                                                   DTSBE325
00980  S981-READ-NEXT.                                                  DTSBE325
00981      SET L981-READ-NEXT-88 TO TRUE.                               DTSBE325
00982      GO TO S981-MSTR-IO.                                          DTSBE325
00983                                                                   DTSBE325
00984  S981-CLOSE.                                                      DTSBE325
00985      SET L981-CLOSE-88     TO TRUE.                               DTSBE325
00986      GO TO S981-MSTR-IO.                                          DTSBE325
00987                                                                   DTSBE325
00988  S981-MSTR-IO.                                                    DTSBE325
00989      CALL 'DTSBU981' USING L981-LINK-AREA                         DTSBE325
00990                            WWGH-REC.                              DTSBE325
00991  S981-EXIT.                                                       DTSBE325
00992      EXIT.                                                        DTSBE325
00993      SKIP3                                                        DTSBE325
00994                                                                   DTSBE325
00995  S999-ABEND.                                                      DTSBE325
00996      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE325
00997  S999-EXIT.                                                       DTSBE325
00998      EXIT.                                                        DTSBE325
