00001  IDENTIFICATION DIVISION.                                         02/02/07
00002  PROGRAM-ID.             DTSBU055                                 DTSBU055
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV009
00004  DATE-WRITTEN            JULY 1994.                               DTSBU055
00005  DATE-COMPILED.                                                   DTSBU055
00006      SKIP3                                                        DTSBU055
00007 *****                                                             DTSBU055
00008 *                                                                 DTSBU055
00009 *    FUNCTION:   RATING EXPERIENCE PERIOD MODULE.                 DTSBU055
00010 *                                                                 DTSBU055
00011 *    MODIFICATION LOG:                                            DTSBU055
00012 *                                                                 DTSBU055
00013 *    07/12/94  CLONED FROM DTSCU055.                              DTSBU055
00014 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBU055
00015 *                                                                 DTSBU055
00016 *    11/09/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBU055
00017 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBU055
00018 *                                                                 DTSBU055
00019 *    12/05/2006  MODIFIED FOR ALTERNATE BASE PERIOD.              DTSBU055
00020 *                REFERENCE: ALTERNATE BASE      PROGRAMMER: GD    DTSBU055
00021 *                                                                 DTSBU055
00022 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU055
00023 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU055
00024 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBU055
00025 *                                                                 DTSBU055
00026 *                                                                 DTSBU055
00027 *    DESCRIPTION:                                                 DTSBU055
00028 *                                                                 DTSBU055
00029 *****                                                             DTSBU055
00030  SKIP3                                                            DTSBU055
00031  ENVIRONMENT DIVISION.                                            DTSBU055
00032                                                                   DTSBU055
00033  DATA DIVISION.                                                   DTSBU055
00034  SKIP3                                                            DTSBU055
00035  WORKING-STORAGE SECTION.                                         DTSBU055
000355 77  PAN-VALET PICTURE X(24) VALUE '009DTSBU055  02/02/07'.       DTSBU055
00036                                                                   DTSBU055
00037  01  WRK-AREA.                                                    DTSBU055
00038      05  WRK-ABEND-CODE                      PIC S9(04) COMP      DTSBU055
00039                                                  VALUE +055.      DTSBU055
00040 *************************************************************     DTSBU055
00041 * THE FIRST YEAR IN WHICH BENEFIT ELIGIBILITY DETERMINATIONS      DTSBU055
00042 * CAN USE THE ALTERNATE BASE PERIOD:                              DTSBU055
00043 *************************************************************     DTSBU055
00044      05  WRK-ALT-BASE-START-YEAR             PIC S9(04) COMP      DTSBU055
00045                                                  VALUE +2003.     DTSBU055
00046                                                                   DTSBU055
00047      05  WS-YRQ-X.                                                DTSBU055
00048          10  WS-YR                           PIC  9(04).          DTSBU055
00049          10  WS-Q                            PIC  9(01).          DTSBU055
00050      05  WS-YRQ-9 REDEFINES WS-YRQ-X         PIC  9(05).          DTSBU055
00051      EJECT                                                        DTSBU055
00052  01  L001-LINK-AREA.                                              DTSBU055
00053  ++INCLUDE DTSIL001                                               DTSBU055
00054      EJECT                                                        DTSBU055
00055  01  L004-LINK-AREA.                                              DTSBU055
00056  ++INCLUDE DTSIL004                                               DTSBU055
00057      EJECT                                                        DTSBU055
00058  01  L006-LINK-AREA.                                              DTSBU055
00059  ++INCLUDE DTSIL006                                               DTSBU055
00060      EJECT                                                        DTSBU055
00061  LINKAGE SECTION.                                                 DTSBU055
00062  01  L055-LINK-AREA.                                              DTSBU055
00063  ++INCLUDE DTSIL055                                               DTSBU055
00064      EJECT                                                        DTSBU055
00065  PROCEDURE DIVISION USING L055-LINK-AREA.                         DTSBU055
00066                                                                   DTSBU055
00067                                                                   DTSBU055
00068      IF L055-FROM-EFF-YRQ-88                                      DTSBU055
00069          PERFORM P1000-FROM-EFF-YRQ THRU P1000-EXIT               DTSBU055
00070      ELSE                                                         DTSBU055
00071          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00072                                                                   DTSBU055
00073                                                                   DTSBU055
00074      GOBACK.                                                      DTSBU055
00075      EJECT                                                        DTSBU055
00076  P1000-FROM-EFF-YRQ.                                              DTSBU055
00077      MOVE L055-EFF-YRQ TO L006-YRQ.                               DTSBU055
00078                                                                   DTSBU055
00079      PERFORM S006-FROM-QTR THRU S006-EXIT.                        DTSBU055
00080                                                                   DTSBU055
00081      IF L006-RTE-YR-START-YRQ = L055-EFF-YRQ                      DTSBU055
00082          CONTINUE                                                 DTSBU055
00083      ELSE                                                         DTSBU055
00084          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00085                                                                   DTSBU055
00086                                                                   DTSBU055
00087      MOVE L055-EFF-YRQ TO WS-YRQ-9.                               DTSBU055
00088                                                                   DTSBU055
00089                                                                   DTSBU055
00090      MOVE 19390701 TO L055-PRIOR-RESERVE-FROM-DATE.               DTSBU055
00091                                                                   DTSBU055
00092                                                                   DTSBU055
00093      COMPUTE L001-FED-8-YR = WS-YR - 2.                           DTSBU055
00094                                                                   DTSBU055
00095      MOVE 06 TO L001-FED-8-MO.                                    DTSBU055
00096                                                                   DTSBU055
00097      MOVE 30 TO L001-FED-8-DA.                                    DTSBU055
00098                                                                   DTSBU055
00099      MOVE L001-FED-8-DATE-9 TO L055-PRIOR-RESERVE-THRU-DATE.      DTSBU055
00100                                                                   DTSBU055
00101                                                                   DTSBU055
00102      COMPUTE L001-FED-8-YR = WS-YR - 2.                           DTSBU055
00103                                                                   DTSBU055
00104      MOVE 07 TO L001-FED-8-MO.                                    DTSBU055
00105                                                                   DTSBU055
00106      MOVE 01 TO L001-FED-8-DA.                                    DTSBU055
00107                                                                   DTSBU055
00108      MOVE L001-FED-8-DATE-9 TO L055-UI-TAX-PAID-FROM-DATE.        DTSBU055
00109                                                                   DTSBU055
00110                                                                   DTSBU055
00111      COMPUTE L001-FED-8-YR = WS-YR - 1.                           DTSBU055
00112                                                                   DTSBU055
00113      MOVE 06 TO L001-FED-8-MO.                                    DTSBU055
00114                                                                   DTSBU055
00115      MOVE 30 TO L001-FED-8-DA.                                    DTSBU055
00116                                                                   DTSBU055
00117      MOVE L001-FED-8-DATE-9 TO L055-UI-TAX-PAID-THRU-DATE.        DTSBU055
00118                                                                   DTSBU055
00119                                                                   DTSBU055
00120      COMPUTE L001-FED-8-YR = WS-YR - 2.                           DTSBU055
00121                                                                   DTSBU055
00122      MOVE 04 TO L001-FED-8-MO.                                    DTSBU055
00123                                                                   DTSBU055
00124      MOVE 01 TO L001-FED-8-DA.                                    DTSBU055
00125                                                                   DTSBU055
00126      MOVE L001-FED-8-DATE-9 TO L055-TRUST-FUND-INT-FROM-DATE.     DTSBU055
00127                                                                   DTSBU055
00128                                                                   DTSBU055
00129      COMPUTE L001-FED-8-YR = WS-YR - 1.                           DTSBU055
00130                                                                   DTSBU055
00131      MOVE 03 TO L001-FED-8-MO.                                    DTSBU055
00132                                                                   DTSBU055
00133      MOVE 31 TO L001-FED-8-DA.                                    DTSBU055
00134                                                                   DTSBU055
00135      MOVE L001-FED-8-DATE-9 TO L055-TRUST-FUND-INT-THRU-DATE.     DTSBU055
00136                                                                   DTSBU055
00137                                                                   DTSBU055
00138      MOVE L055-UI-TAX-PAID-FROM-DATE                              DTSBU055
00139        TO L055-UI-BEN-CHGD-FROM-DATE.                             DTSBU055
00140                                                                   DTSBU055
00141                                                                   DTSBU055
00142      MOVE L055-UI-TAX-PAID-THRU-DATE                              DTSBU055
00143        TO L055-UI-BEN-CHGD-THRU-DATE.                             DTSBU055
00144                                                                   DTSBU055
00145                                                                   DTSBU055
00146      MOVE L055-PRIOR-RESERVE-FROM-DATE                            DTSBU055
00147        TO L055-CURRENT-RESERVE-FROM-DATE.                         DTSBU055
00148                                                                   DTSBU055
00149                                                                   DTSBU055
00150      COMPUTE L001-FED-8-YR = WS-YR - 1.                           DTSBU055
00151                                                                   DTSBU055
00152      MOVE 06 TO L001-FED-8-MO.                                    DTSBU055
00153                                                                   DTSBU055
00154      MOVE 30 TO L001-FED-8-DA.                                    DTSBU055
00155                                                                   DTSBU055
00156      MOVE L001-FED-8-DATE-9 TO L055-CURRENT-RESERVE-THRU-DATE.    DTSBU055
00157                                                                   DTSBU055
00158                                                                   DTSBU055
00159 *************************************************************     DTSBU055
00160 * ADJUST NONCLASSIFIED-FROM-DATE BASED ON WHETHER THE RATING      DTSBU055
00161 * YEAR - 4 IS LESS THAN THE YEAR IN WHICH ALTERNATE BASE          DTSBU055
00162 * TOOK EFFECT.                                                    DTSBU055
00163 *************************************************************     DTSBU055
00164      COMPUTE L001-FED-8-YR = WS-YR - 4.                           DTSBU055
00165                                                                   DTSBU055
00166      IF WS-YR < WRK-ALT-BASE-START-YEAR                           DTSBU055
00167         MOVE 04             TO L001-FED-8-MO                      DTSBU055
00168      ELSE                                                         DTSBU055
00169         MOVE 07             TO L001-FED-8-MO                      DTSBU055
00170      END-IF.                                                      DTSBU055
00171                                                                   DTSBU055
00172      MOVE 01                TO L001-FED-8-DA.                     DTSBU055
00173                                                                   DTSBU055
00174      MOVE L001-FED-8-DATE-9 TO L055-NONCLASSIFIED-FROM-DATE.      DTSBU055
00175                                                                   DTSBU055
00176                                                                   DTSBU055
00177      MOVE L055-PRIOR-RESERVE-FROM-DATE TO L004-DATE.              DTSBU055
00178                                                                   DTSBU055
00179      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00180                                                                   DTSBU055
00181      IF L004-INVALID-QTR                                          DTSBU055
00182          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00183                                                                   DTSBU055
00184      MOVE L004-QTR-5-9 TO L055-PRIOR-RESERVE-FROM-YRQ.            DTSBU055
00185                                                                   DTSBU055
00186                                                                   DTSBU055
00187      MOVE L055-PRIOR-RESERVE-THRU-DATE TO L004-DATE.              DTSBU055
00188                                                                   DTSBU055
00189      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00190                                                                   DTSBU055
00191      IF L004-INVALID-QTR                                          DTSBU055
00192          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00193                                                                   DTSBU055
00194      MOVE L004-QTR-5-9 TO L055-PRIOR-RESERVE-THRU-YRQ.            DTSBU055
00195                                                                   DTSBU055
00196                                                                   DTSBU055
00197      MOVE L055-UI-TAX-PAID-FROM-DATE TO L004-DATE.                DTSBU055
00198                                                                   DTSBU055
00199      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00200                                                                   DTSBU055
00201      IF L004-INVALID-QTR                                          DTSBU055
00202          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00203                                                                   DTSBU055
00204      MOVE L004-QTR-5-9 TO L055-UI-TAX-PAID-FROM-YRQ.              DTSBU055
00205                                                                   DTSBU055
00206                                                                   DTSBU055
00207      MOVE L055-UI-TAX-PAID-THRU-DATE TO L004-DATE.                DTSBU055
00208                                                                   DTSBU055
00209      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00210                                                                   DTSBU055
00211      IF L004-INVALID-QTR                                          DTSBU055
00212          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00213                                                                   DTSBU055
00214      MOVE L004-QTR-5-9 TO L055-UI-TAX-PAID-THRU-YRQ.              DTSBU055
00215                                                                   DTSBU055
00216                                                                   DTSBU055
00217      MOVE L055-TRUST-FUND-INT-FROM-DATE TO L004-DATE.             DTSBU055
00218                                                                   DTSBU055
00219      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00220                                                                   DTSBU055
00221      IF L004-INVALID-QTR                                          DTSBU055
00222          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00223                                                                   DTSBU055
00224      MOVE L004-QTR-5-9 TO L055-TRUST-FUND-INT-FROM-YRQ.           DTSBU055
00225                                                                   DTSBU055
00226                                                                   DTSBU055
00227      MOVE L055-TRUST-FUND-INT-THRU-DATE TO L004-DATE.             DTSBU055
00228                                                                   DTSBU055
00229      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00230                                                                   DTSBU055
00231      IF L004-INVALID-QTR                                          DTSBU055
00232          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00233                                                                   DTSBU055
00234      MOVE L004-QTR-5-9 TO L055-TRUST-FUND-INT-THRU-YRQ.           DTSBU055
00235                                                                   DTSBU055
00236                                                                   DTSBU055
00237      MOVE L055-UI-BEN-CHGD-FROM-DATE TO L004-DATE.                DTSBU055
00238                                                                   DTSBU055
00239      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00240                                                                   DTSBU055
00241      IF L004-INVALID-QTR                                          DTSBU055
00242          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00243                                                                   DTSBU055
00244      MOVE L004-QTR-5-9 TO L055-UI-BEN-CHGD-FROM-YRQ.              DTSBU055
00245                                                                   DTSBU055
00246                                                                   DTSBU055
00247      MOVE L055-UI-BEN-CHGD-THRU-DATE TO L004-DATE.                DTSBU055
00248                                                                   DTSBU055
00249      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00250                                                                   DTSBU055
00251      IF L004-INVALID-QTR                                          DTSBU055
00252          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00253                                                                   DTSBU055
00254      MOVE L004-QTR-5-9 TO L055-UI-BEN-CHGD-THRU-YRQ.              DTSBU055
00255                                                                   DTSBU055
00256                                                                   DTSBU055
00257      MOVE L055-CURRENT-RESERVE-FROM-DATE TO L004-DATE.            DTSBU055
00258                                                                   DTSBU055
00259      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00260                                                                   DTSBU055
00261      IF L004-INVALID-QTR                                          DTSBU055
00262          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00263                                                                   DTSBU055
00264      MOVE L004-QTR-5-9 TO L055-CURRENT-RESERVE-FROM-YRQ.          DTSBU055
00265                                                                   DTSBU055
00266                                                                   DTSBU055
00267      MOVE L055-CURRENT-RESERVE-THRU-DATE TO L004-DATE.            DTSBU055
00268                                                                   DTSBU055
00269      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00270                                                                   DTSBU055
00271      IF L004-INVALID-QTR                                          DTSBU055
00272          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00273                                                                   DTSBU055
00274      MOVE L004-QTR-5-9 TO L055-CURRENT-RESERVE-THRU-YRQ.          DTSBU055
00275                                                                   DTSBU055
00276                                                                   DTSBU055
00277      MOVE L055-NONCLASSIFIED-FROM-DATE TO L004-DATE.              DTSBU055
00278                                                                   DTSBU055
00279      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00280                                                                   DTSBU055
00281      IF L004-INVALID-QTR                                          DTSBU055
00282          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00283                                                                   DTSBU055
00284      MOVE L004-QTR-5-9 TO L055-NONCLASSIFIED-FROM-YRQ.            DTSBU055
00285                                                                   DTSBU055
00286                                                                   DTSBU055
00287                                                                   DTSBU055
00288                                                                   DTSBU055
00289      COMPUTE L001-FED-8-YR = WS-YR - 4.                           DTSBU055
00290                                                                   DTSBU055
00291      MOVE 04 TO L001-FED-8-MO.                                    DTSBU055
00292                                                                   DTSBU055
00293      MOVE 01 TO L001-FED-8-DA.                                    DTSBU055
00294                                                                   DTSBU055
00295      MOVE L001-FED-8-DATE-9 TO L055-WAGES-FROM-DATE (1).          DTSBU055
00296                                                                   DTSBU055
00297                                                                   DTSBU055
00298      COMPUTE L001-FED-8-YR = WS-YR - 3.                           DTSBU055
00299                                                                   DTSBU055
00300      MOVE 03 TO L001-FED-8-MO.                                    DTSBU055
00301                                                                   DTSBU055
00302      MOVE 31 TO L001-FED-8-DA.                                    DTSBU055
00303                                                                   DTSBU055
00304      MOVE L001-FED-8-DATE-9 TO L055-WAGES-THRU-DATE (1).          DTSBU055
00305                                                                   DTSBU055
00306                                                                   DTSBU055
00307      MOVE L055-WAGES-FROM-DATE (1) TO L004-DATE.                  DTSBU055
00308                                                                   DTSBU055
00309      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00310                                                                   DTSBU055
00311      IF L004-INVALID-QTR                                          DTSBU055
00312          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00313                                                                   DTSBU055
00314      MOVE L004-QTR-5-9 TO L055-WAGES-FROM-YRQ (1).                DTSBU055
00315                                                                   DTSBU055
00316                                                                   DTSBU055
00317      MOVE L055-WAGES-THRU-DATE (1) TO L004-DATE.                  DTSBU055
00318                                                                   DTSBU055
00319      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00320                                                                   DTSBU055
00321      IF L004-INVALID-QTR                                          DTSBU055
00322          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00323                                                                   DTSBU055
00324      MOVE L004-QTR-5-9 TO L055-WAGES-THRU-YRQ (1).                DTSBU055
00325                                                                   DTSBU055
00326                                                                   DTSBU055
00327                                                                   DTSBU055
00328                                                                   DTSBU055
00329      COMPUTE L001-FED-8-YR = WS-YR - 3.                           DTSBU055
00330                                                                   DTSBU055
00331      MOVE 04 TO L001-FED-8-MO.                                    DTSBU055
00332                                                                   DTSBU055
00333      MOVE 01 TO L001-FED-8-DA.                                    DTSBU055
00334                                                                   DTSBU055
00335      MOVE L001-FED-8-DATE-9 TO L055-WAGES-FROM-DATE (2).          DTSBU055
00336                                                                   DTSBU055
00337                                                                   DTSBU055
00338      COMPUTE L001-FED-8-YR = WS-YR - 2.                           DTSBU055
00339                                                                   DTSBU055
00340      MOVE 03 TO L001-FED-8-MO.                                    DTSBU055
00341                                                                   DTSBU055
00342      MOVE 31 TO L001-FED-8-DA.                                    DTSBU055
00343                                                                   DTSBU055
00344      MOVE L001-FED-8-DATE-9 TO L055-WAGES-THRU-DATE (2).          DTSBU055
00345                                                                   DTSBU055
00346                                                                   DTSBU055
00347      MOVE L055-WAGES-FROM-DATE (2) TO L004-DATE.                  DTSBU055
00348                                                                   DTSBU055
00349      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00350                                                                   DTSBU055
00351      IF L004-INVALID-QTR                                          DTSBU055
00352          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00353                                                                   DTSBU055
00354      MOVE L004-QTR-5-9 TO L055-WAGES-FROM-YRQ (2).                DTSBU055
00355                                                                   DTSBU055
00356                                                                   DTSBU055
00357      MOVE L055-WAGES-THRU-DATE (2) TO L004-DATE.                  DTSBU055
00358                                                                   DTSBU055
00359      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00360                                                                   DTSBU055
00361      IF L004-INVALID-QTR                                          DTSBU055
00362          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00363                                                                   DTSBU055
00364      MOVE L004-QTR-5-9 TO L055-WAGES-THRU-YRQ (2).                DTSBU055
00365                                                                   DTSBU055
00366                                                                   DTSBU055
00367                                                                   DTSBU055
00368                                                                   DTSBU055
00369      COMPUTE L001-FED-8-YR = WS-YR - 2.                           DTSBU055
00370                                                                   DTSBU055
00371      MOVE 04 TO L001-FED-8-MO.                                    DTSBU055
00372                                                                   DTSBU055
00373      MOVE 01 TO L001-FED-8-DA.                                    DTSBU055
00374                                                                   DTSBU055
00375      MOVE L001-FED-8-DATE-9 TO L055-WAGES-FROM-DATE (3).          DTSBU055
00376                                                                   DTSBU055
00377                                                                   DTSBU055
00378      COMPUTE L001-FED-8-YR = WS-YR - 1.                           DTSBU055
00379                                                                   DTSBU055
00380      MOVE 03 TO L001-FED-8-MO.                                    DTSBU055
00381                                                                   DTSBU055
00382      MOVE 31 TO L001-FED-8-DA.                                    DTSBU055
00383                                                                   DTSBU055
00384      MOVE L001-FED-8-DATE-9 TO L055-WAGES-THRU-DATE (3).          DTSBU055
00385                                                                   DTSBU055
00386                                                                   DTSBU055
00387      MOVE L055-WAGES-FROM-DATE (3) TO L004-DATE.                  DTSBU055
00388                                                                   DTSBU055
00389      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00390                                                                   DTSBU055
00391      IF L004-INVALID-QTR                                          DTSBU055
00392          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00393                                                                   DTSBU055
00394      MOVE L004-QTR-5-9 TO L055-WAGES-FROM-YRQ (3).                DTSBU055
00395                                                                   DTSBU055
00396                                                                   DTSBU055
00397      MOVE L055-WAGES-THRU-DATE (3) TO L004-DATE.                  DTSBU055
00398                                                                   DTSBU055
00399      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBU055
00400                                                                   DTSBU055
00401      IF L004-INVALID-QTR                                          DTSBU055
00402          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU055
00403                                                                   DTSBU055
00404      MOVE L004-QTR-5-9 TO L055-WAGES-THRU-YRQ (3).                DTSBU055
00405  P1000-EXIT.                                                      DTSBU055
00406      EXIT.                                                        DTSBU055
00407      EJECT                                                        DTSBU055
00408  S004-FROM-DATE.                                                  DTSBU055
00409      SET L004-FROM-DATE TO TRUE.                                  DTSBU055
00410      GO TO S004-YRQ.                                              DTSBU055
00411                                                                   DTSBU055
00412  S004-YRQ.                                                        DTSBU055
00413      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBU055
00414  S004-EXIT.                                                       DTSBU055
00415      EXIT.                                                        DTSBU055
00416      SKIP3                                                        DTSBU055
00417  S006-FROM-QTR.                                                   DTSBU055
00418      SET L006-FROM-QTR TO TRUE.                                   DTSBU055
00419      GO TO S006-RATE-YEAR.                                        DTSBU055
00420                                                                   DTSBU055
00421  S006-RATE-YEAR.                                                  DTSBU055
00422      CALL 'DTSBU006' USING L006-LINK-AREA.                        DTSBU055
00423  S006-EXIT.                                                       DTSBU055
00424      EXIT.                                                        DTSBU055
00425      EJECT                                                        DTSBU055
00426  S999-ABEND.                                                      DTSBU055
00427      CALL 'DTSBU999' USING WRK-ABEND-CODE.                        DTSBU055
00428  S999-EXIT.                                                       DTSBU055
00429      EXIT.                                                        DTSBU055
