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