00001  IDENTIFICATION DIVISION.                                         12/24/02
00002  PROGRAM-ID.             DTSBD730.                                DTSBD730
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV044
00004  DATE-WRITTEN.           APRIL 1999.                              DTSBD730
00005  DATE-COMPILED.                                                   DTSBD730
00006      SKIP3                                                        DTSBD730
00007 *****                                                             DTSBD730
00008 *                                                                 DTSBD730
00009 *    FUNCTION:  DISTRIBUTE TRUST FUND INTEREST.                   DTSBD730
00010 *                                                                 DTSBD730
00011 *                                                                 DTSBD730
00012 *    MODIFICATION LOG:                                            DTSBD730
00013 *                                                                 DTSBD730
00014 *    04/19/1999  WRITTEN FOR DC.                                  DTSBD730
00015 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD730
00016 *                                                                 DTSBD730
00017 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD730
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD730
00019 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD730
00020 *                                                                 DTSBD730
00021 *                                                                 DTSBD730
00022 *  DESCRIPTION:                                                   DTSBD730
00023 *                                                                 DTSBD730
00024 *      DTSBD730 PERFORMS THE FUNCTIONS DESCRIBED IN SECTION       DTSBD730
00025 *      5.4.5 OF THE DC UI TAX REQUIREMENTS DOCUMENT.              DTSBD730
00026 *                                                                 DTSBD730
00027 *                                                                 DTSBD730
00028 *****                                                             DTSBD730
00029      SKIP3                                                        DTSBD730
00030  ENVIRONMENT DIVISION.                                            DTSBD730
00031      SKIP2                                                        DTSBD730
00032  DATA DIVISION.                                                   DTSBD730
00033      SKIP3                                                        DTSBD730
00034  WORKING-STORAGE SECTION.                                         DTSBD730
000345 77  PAN-VALET PICTURE X(24) VALUE '044DTSBD730  12/24/02'.       DTSBD730
00035      SKIP3                                                        DTSBD730
00036  01  WRK-AREA.                                                    DTSBD730
00037      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +730.DTSBD730
00038                                                                   DTSBD730
00039      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD730'.DTSBD730
00040                                                                   DTSBD730
00041      05  ABEND-MSG                   PIC  X(60).                  DTSBD730
00042                                                                   DTSBD730
00043                                                                   DTSBD730
00044      05  WRK-SYS-ABSTIME             PIC S9(15)  COMP-3.          DTSBD730
00045                                                                   DTSBD730
00046      05  WRK-SYS-DATE                PIC S9(09)  COMP-3.          DTSBD730
00047                                                                   DTSBD730
00048      05  WRK-SYS-TIME                PIC S9(07)  COMP-3.          DTSBD730
00049                                                                   DTSBD730
00050                                                                   DTSBD730
00051      05  WRK-RTE-YR-START-YRQ        PIC S9(05)  COMP-3.          DTSBD730
00052                                                                   DTSBD730
00053      05  WRK-RTE-YR-END-YRQ          PIC S9(05)  COMP-3.          DTSBD730
00054                                                                   DTSBD730
00055      05  WRK-RTE-YR-START-DATE       PIC S9(09)  COMP-3.          DTSBD730
00056                                                                   DTSBD730
00057      05  WRK-RTE-YR-END-DATE         PIC S9(09)  COMP-3.          DTSBD730
00058                                                                   DTSBD730
00059      05  WRK-EXP-CUTOFF-DATE         PIC S9(09)  COMP-3.          DTSBD730
00060                                                                   DTSBD730
00061      05  WRK-RPT-EXISTING-AMT-IND    PIC  X(01).                  DTSBD730
00062          88  WRK-RPT-EXISTING-AMT-NO-88      VALUE 'N'.           DTSBD730
00063          88  WRK-RPT-EXISTING-AMT-YES-88     VALUE 'Y'.           DTSBD730
00064                                                                   DTSBD730
00065                                                                   DTSBD730
00066      05  WRK-TOT-POS-RESERVE-BAL-AMT PIC S9(11)V9(02)  COMP-3.    DTSBD730
00067                                                                   DTSBD730
00068      05  WRK-TOT-POS-RESERVE-EMP-CNT PIC S9(07)        COMP-3.    DTSBD730
00069                                                                   DTSBD730
00070      05  WRK-DIST-TRUST-FUND-INT-AMT PIC S9(11)V9(02)  COMP-3.    DTSBD730
00071                                                                   DTSBD730
00072                                                                   DTSBD730
00073      05  WRK-EMP-RTE-YR-LIABLE-IND   PIC  X(01).                  DTSBD730
00074          88  WRK-EMP-RTE-YR-LIABLE-NO-88     VALUE 'N'.           DTSBD730
00075          88  WRK-EMP-RTE-YR-LIABLE-YES-88    VALUE 'Y'.           DTSBD730
00076                                                                   DTSBD730
00077      05  WRK-EMP-POS-RESERVE-BAL-AMT                              DTSBD730
00078                                      PIC S9(09)V9(02)  COMP-3.    DTSBD730
00079                                                                   DTSBD730
00080      05  WRK-EMP-PORTION-OF-INTEREST                              DTSBD730
00081                                      PIC S9(01)V9(12)  COMP-3.    DTSBD730
00082                                                                   DTSBD730
00083                                                                   DTSBD730
00084      05  WRK-DISPLAY-CNT-X           PIC  X(11).                  DTSBD730
00085      05  WRK-DISPLAY-CNT-9 REDEFINES WRK-DISPLAY-CNT-X            DTSBD730
00086                                      PIC  ZZZ,ZZZ,ZZ9.            DTSBD730
00087                                                                   DTSBD730
00088      05  WRK-DISPLAY-AMT-X           PIC  X(17).                  DTSBD730
00089      05  WRK-DISPLAY-AMT-9 REDEFINES WRK-DISPLAY-AMT-X            DTSBD730
00090                                      PIC  ZZZZZ,ZZZ,ZZ9.99-.      DTSBD730
00091      EJECT                                                        DTSBD730
00092  01  MSG-TABLE.                                                   DTSBD730
00093      05  MSG01-AREA.                                              DTSBD730
00094          10  MSG01-MSG-IDENTIFIER    PIC  X(03)  VALUE '531'.     DTSBD730
00095          10  MSG01-MSG-TEXT.                                      DTSBD730
00096              15  FILLER              PIC  X(40)                   DTSBD730
00097                VALUE 'NON ZERO MRCT-TRUST-FUND-INTEREST-AMT EN'.  DTSBD730
00098              15  FILLER              PIC  X(42)                   DTSBD730
00099              VALUE 'COUNTERED.  RESET TO ZERO.  BEFORE RESET: '.  DTSBD730
00100              15  MSG01-TRUST-FUND-INTEREST-AMT                    DTSBD730
00101                                       PIC ----,---,--9.99.        DTSBD730
00102                                                                   DTSBD730
00103      05  MSG02-AREA.                                              DTSBD730
00104          10  MSG02-MSG-IDENTIFIER    PIC  X(03)  VALUE '532'.     DTSBD730
00105          10  MSG02-MSG-TEXT.                                      DTSBD730
00106              15  FILLER              PIC  X(40)                   DTSBD730
00107                VALUE 'EMPLOYER ACTIVE IN RATE YEAR FOR WHICH T'.  DTSBD730
00108              15  FILLER              PIC  X(40)                   DTSBD730
00109                VALUE 'RUST FUND INTEREST DISTRIBUTED, BUT NO M'.  DTSBD730
00110              15  FILLER              PIC  X(20)                   DTSBD730
00111                VALUE 'RCT RECORD EXISTS   '.                      DTSBD730
00112                                                                   DTSBD730
00113      05  MSG99-AREA.                                              DTSBD730
00114          10  MSG99-MSG-IDENTIFIER    PIC  X(03)  VALUE '539'.     DTSBD730
00115          10  MSG99-MSG-TEXT.                                      DTSBD730
00116              15  FILLER              PIC  X(40)                   DTSBD730
00117                VALUE 'DESPITE BEING LOCKED AGAINST UPDATE, AN '.  DTSBD730
00118              15  FILLER              PIC  X(40)                   DTSBD730
00119                VALUE 'ANNUAL RATING BATCH PROCESS UPDATED A MR'.  DTSBD730
00120              15  FILLER              PIC  X(20)                   DTSBD730
00121                VALUE 'CT RECORD OCCURRENCE'.                      DTSBD730
00122      EJECT                                                        DTSBD730
00123  01  L910-LINK-AREA.                                              DTSBD730
00124  ++INCLUDE DTSIL910                                               DTSBD730
00125      SKIP3                                                        DTSBD730
00126  01  MSKL-REC.                                                    DTSBD730
00127  ++INCLUDE DTSIMSKL                                               DTSBD730
00128      SKIP3                                                        DTSBD730
00129  01  MHDR-REC.                                                    DTSBD730
00130  ++INCLUDE DTSIMHDR                                               DTSBD730
00131      SKIP3                                                        DTSBD730
00132  01  MPRF-REC.                                                    DTSBD730
00133  ++INCLUDE DTSIMPRF                                               DTSBD730
00134      SKIP3                                                        DTSBD730
00135  01  MRCT-REC.                                                    DTSBD730
00136  ++INCLUDE DTSIMRCT                                               DTSBD730
00137      SKIP3                                                        DTSBD730
00138  01  MSOL-REC.                                                    DTSBD730
00139  ++INCLUDE DTSIMSOL                                               DTSBD730
00140      EJECT                                                        DTSBD730
00141  01  L931-LINK-AREA.                                              DTSBD730
00142  ++INCLUDE DTSIL931                                               DTSBD730
00143      SKIP3                                                        DTSBD730
00144  01  FSKL-REC.                                                    DTSBD730
00145  ++INCLUDE DTSIFSKL                                               DTSBD730
00146      SKIP3                                                        DTSBD730
00147  01  FUIR-REC.                                                    DTSBD730
00148  ++INCLUDE DTSIFUIR                                               DTSBD730
00149      EJECT                                                        DTSBD730
00150  01  R520-REC.                                                    DTSBD730
00151  ++INCLUDE DTSIR520                                               DTSBD730
00152      SKIP3                                                        DTSBD730
00153  01  R907-REC.                                                    DTSBD730
00154  ++INCLUDE DTSIR907                                               DTSBD730
00155      EJECT                                                        DTSBD730
00156  01  L001-LINK-AREA.                                              DTSBD730
00157  ++INCLUDE DTSIL001                                               DTSBD730
00158      SKIP3                                                        DTSBD730
00159  01  L004-LINK-AREA.                                              DTSBD730
00160  ++INCLUDE DTSIL004                                               DTSBD730
00161      SKIP3                                                        DTSBD730
00162  01  L005-LINK-AREA.                                              DTSBD730
00163  ++INCLUDE DTSIL005                                               DTSBD730
00164      SKIP3                                                        DTSBD730
00165  01  L006-LINK-AREA.                                              DTSBD730
00166  ++INCLUDE DTSIL006                                               DTSBD730
00167      EJECT                                                        DTSBD730
00168  LINKAGE SECTION.                                                 DTSBD730
00169      SKIP3                                                        DTSBD730
00170  01  PARM-AREA.                                                   DTSBD730
00171      05  PARM-LENGTH                PIC S9(04)  COMP.             DTSBD730
00172      05  PARM-DATA.                                               DTSBD730
00173          10  PARM-RTE-YR-START-YRQ-X                              DTSBD730
00174                                     PIC  X(03).                   DTSBD730
00175          10  PARM-RTE-YR-START-YRQ                                DTSBD730
00176              REDEFINES PARM-RTE-YR-START-YRQ-X                    DTSBD730
00177                                     PIC  9(03).                   DTSBD730
00178          10  FILLER                 PIC  X(01).                   DTSBD730
00179          10  PARM-RPT-EXISTING-AMT-IND                            DTSBD730
00180                                     PIC  X(01).                   DTSBD730
00181      EJECT                                                        DTSBD730
00182  PROCEDURE DIVISION USING PARM-AREA.                              DTSBD730
00183                                                                   DTSBD730
00184      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBD730
00185                                                                   DTSBD730
00186                                                                   DTSBD730
00187      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD730
00188                                                                   DTSBD730
00189      MOVE +0 TO MSKL-EMP-NO.                                      DTSBD730
00190                                                                   DTSBD730
00191      SET MSKL-PRF-88 TO TRUE.                                     DTSBD730
00192                                                                   DTSBD730
00193      PERFORM S910-START-BROWSE THRU  S910-EXIT.                   DTSBD730
00194                                                                   DTSBD730
00195      PERFORM                                                      DTSBD730
00196        UNTIL L910-NO-REC-88                                       DTSBD730
00197          MOVE MSKL-REC TO MPRF-REC                                DTSBD730
00198          PERFORM P1000-FIRST-PASS THRU P1000-EXIT                 DTSBD730
00199          MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA                      DTSBD730
00200          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD730
00201      END-PERFORM.                                                 DTSBD730
00202                                                                   DTSBD730
00203                                                                   DTSBD730
00204      IF WRK-TOT-POS-RESERVE-EMP-CNT = +0                          DTSBD730
00205          MOVE +0 TO R520-EMP-NO                                   DTSBD730
00206          MOVE FUIR-TOT-TRUST-FUND-INT-AMT                         DTSBD730
00207            TO R520-TOT-TRUST-FUND-INT-AMT                         DTSBD730
00208          MOVE 'NO POSITIVE RESERVE EMPLYRS ENCOUNTERED'           DTSBD730
00209            TO R520-PRIMARY-NAME                                   DTSBD730
00210          MOVE +0 TO R520-POSITIVE-RESERVE-AMT                     DTSBD730
00211                     R520-TRUST-FUND-INTEREST-AMT                  DTSBD730
00212          PERFORM S946-WRITE-R520 THRU S946-EXIT                   DTSBD730
00213      ELSE                                                         DTSBD730
00214          MOVE LOW-VALUES TO MSKL-KEY-AREA                         DTSBD730
00215          MOVE +0 TO MSKL-EMP-NO                                   DTSBD730
00216          SET MSKL-PRF-88 TO TRUE                                  DTSBD730
00217          PERFORM S910-START-BROWSE THRU  S910-EXIT                DTSBD730
00218          PERFORM                                                  DTSBD730
00219            UNTIL L910-NO-REC-88                                   DTSBD730
00220              MOVE MSKL-REC TO MPRF-REC                            DTSBD730
00221              PERFORM P2000-SECOND-PASS THRU P2000-EXIT            DTSBD730
00222              MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA                  DTSBD730
00223              PERFORM S910-READ-NEXT THRU S910-EXIT                DTSBD730
00224          END-PERFORM.                                             DTSBD730
00225                                                                   DTSBD730
00226                                                                   DTSBD730
00227      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBD730
00228                                                                   DTSBD730
00229                                                                   DTSBD730
00230      GOBACK.                                                      DTSBD730
00231      EJECT                                                        DTSBD730
00232  I0000-INITIATE.                                                  DTSBD730
00233      PERFORM S910-OPEN-UPDATE THRU S910-EXIT.                     DTSBD730
00234                                                                   DTSBD730
00235      PERFORM S931-OPEN-UPDATE THRU S931-EXIT.                     DTSBD730
00236                                                                   DTSBD730
00237                                                                   DTSBD730
00238      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD730
00239                                                                   DTSBD730
00240      MOVE +0 TO MSKL-EMP-NO.                                      DTSBD730
00241                                                                   DTSBD730
00242      SET MSKL-HDR-88 TO TRUE.                                     DTSBD730
00243                                                                   DTSBD730
00244      PERFORM S910-READ THRU S910-EXIT.                            DTSBD730
00245                                                                   DTSBD730
00246      IF L910-NO-REC-88                                            DTSBD730
00247          MOVE 'MHDR RECORD IS MISSING'                            DTSBD730
00248            TO ABEND-MSG                                           DTSBD730
00249          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00250                                                                   DTSBD730
00251      MOVE MSKL-REC TO MHDR-REC.                                   DTSBD730
00252                                                                   DTSBD730
00253                                                                   DTSBD730
00254      PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT.                 DTSBD730
00255                                                                   DTSBD730
00256                                                                   DTSBD730
00257      PERFORM I2000-FIND-FUIR THRU I2000-EXIT.                     DTSBD730
00258                                                                   DTSBD730
00259                                                                   DTSBD730
00260      PERFORM I3000-INITIALIZE-COUNTERS THRU I3000-EXIT.           DTSBD730
00261                                                                   DTSBD730
00262                                                                   DTSBD730
00263      MOVE LENGTH OF R520-REC TO R520-LENGTH.                      DTSBD730
00264                                                                   DTSBD730
00265      MOVE '520' TO R520-REC-TYPE.                                 DTSBD730
00266                                                                   DTSBD730
00267      MOVE WRK-RTE-YR-START-YRQ TO R520-EFF-QTR.                   DTSBD730
00268                                                                   DTSBD730
00269                                                                   DTSBD730
00270      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD730
00271                                                                   DTSBD730
00272      MOVE '907' TO R907-REC-TYPE.                                 DTSBD730
00273                                                                   DTSBD730
00274      MOVE WRK-MOD-NAME TO R907-MODULE-NAME.                       DTSBD730
00275                                                                   DTSBD730
00276                                                                   DTSBD730
00277      PERFORM S005-FROM-SYS THRU S005-EXIT.                        DTSBD730
00278                                                                   DTSBD730
00279      MOVE L005-ABSTIME TO WRK-SYS-ABSTIME.                        DTSBD730
00280                                                                   DTSBD730
00281      MOVE L005-DATE TO WRK-SYS-DATE.                              DTSBD730
00282                                                                   DTSBD730
00283      MOVE L005-TIME TO WRK-SYS-TIME.                              DTSBD730
00284  I0000-EXIT.                                                      DTSBD730
00285      EXIT.                                                        DTSBD730
00286      EJECT                                                        DTSBD730
00287  I1000-PROCESS-PARMS.                                             DTSBD730
00288      IF PARM-LENGTH = +5                                          DTSBD730
00289          NEXT SENTENCE                                            DTSBD730
00290      ELSE                                                         DTSBD730
00291          MOVE 'PARM-LENGTH NOT EQUAL TO 5'                        DTSBD730
00292            TO ABEND-MSG                                           DTSBD730
00293          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00294                                                                   DTSBD730
00295                                                                   DTSBD730
00296      DISPLAY '***'.                                               DTSBD730
00297                                                                   DTSBD730
00298      DISPLAY '*** '                                               DTSBD730
00299              WRK-MOD-NAME                                         DTSBD730
00300              ' PARAMETERS: '                                      DTSBD730
00301              PARM-DATA.                                           DTSBD730
00302                                                                   DTSBD730
00303      DISPLAY '***'.                                               DTSBD730
00304                                                                   DTSBD730
00305                                                                   DTSBD730
00306      IF PARM-RTE-YR-START-YRQ-X = SPACES OR LOW-VALUES OR '000'   DTSBD730
00307          PERFORM I1100-DEFAULT-START-YRQ THRU I1100-EXIT          DTSBD730
00308      ELSE                                                         DTSBD730
00309          PERFORM I1200-EDIT-START-YRQ THRU I1200-EXIT.            DTSBD730
00310                                                                   DTSBD730
00311                                                                   DTSBD730
00312      IF PARM-RPT-EXISTING-AMT-IND = SPACES OR LOW-VALUES          DTSBD730
00313          MOVE 'Y' TO WRK-RPT-EXISTING-AMT-IND                     DTSBD730
00314      ELSE                                                         DTSBD730
00315      IF PARM-RPT-EXISTING-AMT-IND = 'N' OR 'Y'                    DTSBD730
00316          MOVE PARM-RPT-EXISTING-AMT-IND                           DTSBD730
00317            TO WRK-RPT-EXISTING-AMT-IND                            DTSBD730
00318      ELSE                                                         DTSBD730
00319        MOVE 'INVALID PARM-RPT-EXISTING-AMT-IND VALUE ENCOUNTERED' DTSBD730
00320            TO ABEND-MSG                                           DTSBD730
00321          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00322  I1000-EXIT.                                                      DTSBD730
00323      EXIT.                                                        DTSBD730
00324      SKIP3                                                        DTSBD730
00325  I1100-DEFAULT-START-YRQ.                                         DTSBD730
00326      MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9.                 DTSBD730
00327                                                                   DTSBD730
00328      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD730
00329                                                                   DTSBD730
00330      IF L004-INVALID-QTR                                          DTSBD730
00331          MOVE 'LOGIC ERROR I1100-1'                               DTSBD730
00332            TO ABEND-MSG                                           DTSBD730
00333          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00334                                                                   DTSBD730
00335                                                                   DTSBD730
00336      ADD +1 TO L004-ABS-QTR.                                      DTSBD730
00337                                                                   DTSBD730
00338      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBD730
00339                                                                   DTSBD730
00340      MOVE L004-QTR-5-9 TO L006-YRQ.                               DTSBD730
00341                                                                   DTSBD730
00342      PERFORM S006-FROM-QTR THRU S006-EXIT.                        DTSBD730
00343                                                                   DTSBD730
00344      IF L004-QTR-5-9 = L006-RTE-YR-START-YRQ                      DTSBD730
00345          MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ       DTSBD730
00346          MOVE L006-RTE-YR-END-YRQ TO WRK-RTE-YR-END-YRQ           DTSBD730
00347          MOVE L006-RTE-YR-START-DATE TO WRK-RTE-YR-START-DATE     DTSBD730
00348          MOVE L006-RTE-YR-END-DATE TO WRK-RTE-YR-END-DATE         DTSBD730
00349      ELSE                                                         DTSBD730
00350          MOVE 'INVALID MHDR-LAST-RATE-YRQ ENCOUNTERED'            DTSBD730
00351            TO ABEND-MSG                                           DTSBD730
00352          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00353  I1100-EXIT.                                                      DTSBD730
00354      EXIT.                                                        DTSBD730
00355      SKIP3                                                        DTSBD730
00356  I1200-EDIT-START-YRQ.                                            DTSBD730
00357      MOVE PARM-RTE-YR-START-YRQ-X TO L004-QTR-3.                  DTSBD730
00358                                                                   DTSBD730
00359      PERFORM S004-FROM-3 THRU S004-EXIT.                          DTSBD730
00360                                                                   DTSBD730
00361      IF L004-INVALID-QTR                                          DTSBD730
00362          MOVE 'INVALID PARM-RTE-YR-START-YRQ-X ENCOUNTERED'       DTSBD730
00363            TO ABEND-MSG                                           DTSBD730
00364          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00365                                                                   DTSBD730
00366      MOVE L004-QTR-5-9 TO L006-YRQ.                               DTSBD730
00367                                                                   DTSBD730
00368      PERFORM S006-FROM-QTR THRU S006-EXIT.                        DTSBD730
00369                                                                   DTSBD730
00370      IF L004-QTR-5-9 = L006-RTE-YR-START-YRQ                      DTSBD730
00371          MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ       DTSBD730
00372          MOVE L006-RTE-YR-END-YRQ TO WRK-RTE-YR-END-YRQ           DTSBD730
00373          MOVE L006-RTE-YR-START-DATE TO WRK-RTE-YR-START-DATE     DTSBD730
00374          MOVE L006-RTE-YR-END-DATE TO WRK-RTE-YR-END-DATE         DTSBD730
00375      ELSE                                                         DTSBD730
00376          MOVE 'PARM-RTE-YR-START-YRQ NOT FIRST QTR IN RATE YEAR'  DTSBD730
00377            TO ABEND-MSG                                           DTSBD730
00378          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00379  I1200-EXIT.                                                      DTSBD730
00380      EXIT.                                                        DTSBD730
00381      SKIP3                                                        DTSBD730
00382  I2000-FIND-FUIR.                                                 DTSBD730
00383      MOVE LOW-VALUES TO FUIR-KEY-AREA.                            DTSBD730
00384                                                                   DTSBD730
00385      SET FUIR-UIR-88 TO TRUE.                                     DTSBD730
00386                                                                   DTSBD730
00387      MOVE WRK-RTE-YR-START-YRQ TO FUIR-EFF-YRQ.                   DTSBD730
00388                                                                   DTSBD730
00389      MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBD730
00390                                                                   DTSBD730
00391      PERFORM S931-READ THRU S931-EXIT.                            DTSBD730
00392                                                                   DTSBD730
00393      IF L931-NO-REC-88                                            DTSBD730
00394          MOVE 'FUIR RECORD NOT FOUND'                             DTSBD730
00395            TO ABEND-MSG                                           DTSBD730
00396          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00397                                                                   DTSBD730
00398      MOVE FSKL-REC TO FUIR-REC.                                   DTSBD730
00399                                                                   DTSBD730
00400      IF FUIR-RATE-CUTOFF-DATE = +0                                DTSBD730
00401          MOVE 'TOO EARLY - RATE CUTOFF HAS NOT YET OCCURRED'      DTSBD730
00402            TO ABEND-MSG                                           DTSBD730
00403          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00404                                                                   DTSBD730
00405      MOVE FUIR-RATE-CUTOFF-DATE TO WRK-EXP-CUTOFF-DATE.           DTSBD730
00406                                                                   DTSBD730
00407      IF FUIR-TOT-TRUST-FUND-INT-AMT > +0.00                       DTSBD730
00408          NEXT SENTENCE                                            DTSBD730
00409      ELSE                                                         DTSBD730
00410          MOVE 'FUIR-TOT-TRUST-FUND-INT-AMT <= 0.00'               DTSBD730
00411            TO ABEND-MSG                                           DTSBD730
00412          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00413  I2000-EXIT.                                                      DTSBD730
00414      EXIT.                                                        DTSBD730
00415      SKIP3                                                        DTSBD730
00416  I3000-INITIALIZE-COUNTERS.                                       DTSBD730
00417      MOVE +0 TO WRK-TOT-POS-RESERVE-BAL-AMT                       DTSBD730
00418                 WRK-TOT-POS-RESERVE-EMP-CNT                       DTSBD730
00419                 WRK-DIST-TRUST-FUND-INT-AMT.                      DTSBD730
00420  I3000-EXIT.                                                      DTSBD730
00421      EXIT.                                                        DTSBD730
00422      EJECT                                                        DTSBD730
00423  P1000-FIRST-PASS.                                                DTSBD730
00424      IF MPRF-CLASS-RATED-88                                       DTSBD730
00425          NEXT SENTENCE                                            DTSBD730
00426      ELSE                                                         DTSBD730
00427          GO TO P1000-EXIT.                                        DTSBD730
00428                                                                   DTSBD730
00429                                                                   DTSBD730
00430 *****IF (MPRF-EMP-NO < 360101)                                    DTSBD730
00431 ************OR                                                    DTSBD730
00432 ********(MPRF-EMP-NO > 360126)                                    DTSBD730
00433 *********GO TO P1000-EXIT.                                        DTSBD730
00434                                                                   DTSBD730
00435                                                                   DTSBD730
00436      PERFORM S1000-RTE-YR-LIABLE THRU S1000-EXIT.                 DTSBD730
00437                                                                   DTSBD730
00438                                                                   DTSBD730
00439      MOVE LOW-VALUES TO MRCT-KEY-AREA.                            DTSBD730
00440                                                                   DTSBD730
00441      MOVE MPRF-EMP-NO TO MRCT-EMP-NO.                             DTSBD730
00442                                                                   DTSBD730
00443      SET MRCT-RCT-88 TO TRUE.                                     DTSBD730
00444                                                                   DTSBD730
00445      MOVE WRK-RTE-YR-START-YRQ TO MRCT-EFF-YRQ.                   DTSBD730
00446                                                                   DTSBD730
00447      MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD730
00448                                                                   DTSBD730
00449      PERFORM S910-READ THRU S910-EXIT.                            DTSBD730
00450                                                                   DTSBD730
00451      IF L910-NO-REC-88                                            DTSBD730
00452          IF WRK-EMP-RTE-YR-LIABLE-YES-88                          DTSBD730
00453              MOVE MSG02-MSG-IDENTIFIER TO R907-MSG-ID             DTSBD730
00454              MOVE MPRF-EMP-NO TO R907-EMP-NO                      DTSBD730
00455              MOVE MSG02-MSG-TEXT TO R907-MSG-TEXT                 DTSBD730
00456              PERFORM S946-WRITE-R907 THRU S946-EXIT               DTSBD730
00457          END-IF                                                   DTSBD730
00458          GO TO P1000-EXIT.                                        DTSBD730
00459                                                                   DTSBD730
00460                                                                   DTSBD730
00461      MOVE MSKL-REC TO MRCT-REC.                                   DTSBD730
00462                                                                   DTSBD730
00463                                                                   DTSBD730
00464      IF MRCT-TRUST-FUND-INTEREST-AMT = +0.00                      DTSBD730
00465          NEXT SENTENCE                                            DTSBD730
00466      ELSE                                                         DTSBD730
00467          IF WRK-RPT-EXISTING-AMT-YES-88                           DTSBD730
00468              MOVE MRCT-TRUST-FUND-INTEREST-AMT                    DTSBD730
00469                TO MSG01-TRUST-FUND-INTEREST-AMT                   DTSBD730
00470              MOVE MSG01-MSG-IDENTIFIER TO R907-MSG-ID             DTSBD730
00471              MOVE MPRF-EMP-NO TO R907-EMP-NO                      DTSBD730
00472              MOVE MSG01-MSG-TEXT TO R907-MSG-TEXT                 DTSBD730
00473              PERFORM S946-WRITE-R907 THRU S946-EXIT               DTSBD730
00474          END-IF                                                   DTSBD730
00475          MOVE +0 TO MRCT-TRUST-FUND-INTEREST-AMT                  DTSBD730
00476          MOVE MHDR-CURR-RUN-DATE TO MRCT-CHNG-DATE                DTSBD730
00477          SET MRCT-CHNG-SYSTEM-88 TO TRUE                          DTSBD730
00478          MOVE MRCT-REC TO MSKL-REC                                DTSBD730
00479          PERFORM S910-REWRITE THRU S910-EXIT                      DTSBD730
00480          PERFORM S9000-EMPLOYER-UPDATED THRU S9000-EXIT.          DTSBD730
00481                                                                   DTSBD730
00482                                                                   DTSBD730
00483      IF WRK-EMP-RTE-YR-LIABLE-NO-88                               DTSBD730
00484          GO TO P1000-EXIT.                                        DTSBD730
00485                                                                   DTSBD730
00486                                                                   DTSBD730
00487      COMPUTE WRK-EMP-POS-RESERVE-BAL-AMT                          DTSBD730
00488                = MRCT-PRIOR-RESERVE-AMT                           DTSBD730
00489                   + MRCT-UI-TAX-PAID-AMT                          DTSBD730
00490                   - MRCT-BENEFITS-CHARGED-AMT.                    DTSBD730
00491                                                                   DTSBD730
00492                                                                   DTSBD730
00493      IF WRK-EMP-POS-RESERVE-BAL-AMT > +0.00                       DTSBD730
00494          ADD WRK-EMP-POS-RESERVE-BAL-AMT                          DTSBD730
00495           TO WRK-TOT-POS-RESERVE-BAL-AMT                          DTSBD730
00496          ADD +1 TO WRK-TOT-POS-RESERVE-EMP-CNT.                   DTSBD730
00497  P1000-EXIT.                                                      DTSBD730
00498      EXIT.                                                        DTSBD730
00499      EJECT                                                        DTSBD730
00500  P2000-SECOND-PASS.                                               DTSBD730
00501      IF MPRF-CLASS-RATED-88                                       DTSBD730
00502          NEXT SENTENCE                                            DTSBD730
00503      ELSE                                                         DTSBD730
00504          GO TO P2000-EXIT.                                        DTSBD730
00505                                                                   DTSBD730
00506                                                                   DTSBD730
00507 *****IF (MPRF-EMP-NO < 360101)                                    DTSBD730
00508 *************OR                                                   DTSBD730
00509 ********(MPRF-EMP-NO > 360126)                                    DTSBD730
00510 *********GO TO P2000-EXIT.                                        DTSBD730
00511                                                                   DTSBD730
00512                                                                   DTSBD730
00513      PERFORM S1000-RTE-YR-LIABLE THRU S1000-EXIT.                 DTSBD730
00514                                                                   DTSBD730
00515                                                                   DTSBD730
00516      IF WRK-EMP-RTE-YR-LIABLE-NO-88                               DTSBD730
00517          GO TO P2000-EXIT.                                        DTSBD730
00518                                                                   DTSBD730
00519                                                                   DTSBD730
00520      MOVE LOW-VALUES TO MRCT-KEY-AREA.                            DTSBD730
00521                                                                   DTSBD730
00522      MOVE MPRF-EMP-NO TO MRCT-EMP-NO.                             DTSBD730
00523                                                                   DTSBD730
00524      SET MRCT-RCT-88 TO TRUE.                                     DTSBD730
00525                                                                   DTSBD730
00526      MOVE WRK-RTE-YR-START-YRQ TO MRCT-EFF-YRQ.                   DTSBD730
00527                                                                   DTSBD730
00528      MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD730
00529                                                                   DTSBD730
00530      PERFORM S910-READ THRU S910-EXIT.                            DTSBD730
00531                                                                   DTSBD730
00532      IF L910-NO-REC-88                                            DTSBD730
00533          GO TO P2000-EXIT.                                        DTSBD730
00534                                                                   DTSBD730
00535                                                                   DTSBD730
00536      MOVE MSKL-REC TO MRCT-REC.                                   DTSBD730
00537                                                                   DTSBD730
00538                                                                   DTSBD730
00539      COMPUTE WRK-EMP-POS-RESERVE-BAL-AMT                          DTSBD730
00540                = MRCT-PRIOR-RESERVE-AMT                           DTSBD730
00541                    + MRCT-UI-TAX-PAID-AMT                         DTSBD730
00542                    - MRCT-BENEFITS-CHARGED-AMT.                   DTSBD730
00543                                                                   DTSBD730
00544                                                                   DTSBD730
00545      IF WRK-EMP-POS-RESERVE-BAL-AMT > +0.00                       DTSBD730
00546          NEXT SENTENCE                                            DTSBD730
00547      ELSE                                                         DTSBD730
00548          GO TO P2000-EXIT.                                        DTSBD730
00549                                                                   DTSBD730
00550                                                                   DTSBD730
00551      COMPUTE WRK-EMP-PORTION-OF-INTEREST ROUNDED                  DTSBD730
00552        = WRK-EMP-POS-RESERVE-BAL-AMT                              DTSBD730
00553            / WRK-TOT-POS-RESERVE-BAL-AMT                          DTSBD730
00554         ON SIZE ERROR                                             DTSBD730
00555           MOVE +0 TO WRK-EMP-PORTION-OF-INTEREST.                 DTSBD730
00556                                                                   DTSBD730
00557                                                                   DTSBD730
00558      COMPUTE MRCT-TRUST-FUND-INTEREST-AMT ROUNDED                 DTSBD730
00559        = FUIR-TOT-TRUST-FUND-INT-AMT                              DTSBD730
00560            * WRK-EMP-PORTION-OF-INTEREST.                         DTSBD730
00561                                                                   DTSBD730
00562                                                                   DTSBD730
00563      ADD MRCT-TRUST-FUND-INTEREST-AMT                             DTSBD730
00564       TO WRK-DIST-TRUST-FUND-INT-AMT.                             DTSBD730
00565                                                                   DTSBD730
00566                                                                   DTSBD730
00567      MOVE MHDR-CURR-RUN-DATE TO MRCT-CHNG-DATE.                   DTSBD730
00568                                                                   DTSBD730
00569      SET MRCT-CHNG-SYSTEM-88 TO TRUE.                             DTSBD730
00570                                                                   DTSBD730
00571      MOVE MRCT-REC TO MSKL-REC.                                   DTSBD730
00572                                                                   DTSBD730
00573      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD730
00574                                                                   DTSBD730
00575      PERFORM S9000-EMPLOYER-UPDATED THRU S9000-EXIT.              DTSBD730
00576                                                                   DTSBD730
00577                                                                   DTSBD730
00578      MOVE MPRF-EMP-NO TO R520-EMP-NO.                             DTSBD730
00579                                                                   DTSBD730
00580      MOVE FUIR-TOT-TRUST-FUND-INT-AMT                             DTSBD730
00581        TO R520-TOT-TRUST-FUND-INT-AMT.                            DTSBD730
00582                                                                   DTSBD730
00583      MOVE MPRF-PRIMARY-NAME TO R520-PRIMARY-NAME.                 DTSBD730
00584                                                                   DTSBD730
00585      MOVE WRK-EMP-POS-RESERVE-BAL-AMT                             DTSBD730
00586        TO R520-POSITIVE-RESERVE-AMT.                              DTSBD730
00587                                                                   DTSBD730
00588      MOVE MRCT-TRUST-FUND-INTEREST-AMT                            DTSBD730
00589        TO R520-TRUST-FUND-INTEREST-AMT.                           DTSBD730
00590                                                                   DTSBD730
00591      PERFORM S946-WRITE-R520 THRU S946-EXIT.                      DTSBD730
00592  P2000-EXIT.                                                      DTSBD730
00593      EXIT.                                                        DTSBD730
00594      EJECT                                                        DTSBD730
00595  T0000-TERMINATE.                                                 DTSBD730
00596      MOVE LOW-VALUE TO FUIR-KEY-AREA.                             DTSBD730
00597                                                                   DTSBD730
00598      SET FUIR-UIR-88 TO TRUE.                                     DTSBD730
00599                                                                   DTSBD730
00600      MOVE WRK-RTE-YR-START-YRQ TO FUIR-EFF-YRQ.                   DTSBD730
00601                                                                   DTSBD730
00602      MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBD730
00603                                                                   DTSBD730
00604      PERFORM S931-READ THRU S931-EXIT.                            DTSBD730
00605                                                                   DTSBD730
00606      IF L931-OK-88                                                DTSBD730
00607          MOVE FSKL-REC TO FUIR-REC                                DTSBD730
00608          MOVE WRK-TOT-POS-RESERVE-BAL-AMT                         DTSBD730
00609            TO FUIR-TOT-POS-RESERVE-BAL-AMT                        DTSBD730
00610          MOVE WRK-TOT-POS-RESERVE-EMP-CNT                         DTSBD730
00611            TO FUIR-TOT-POS-RESERVE-EMP-CNT                        DTSBD730
00612          MOVE WRK-DIST-TRUST-FUND-INT-AMT                         DTSBD730
00613            TO FUIR-DIST-TRUST-FUND-INT-AMT                        DTSBD730
00614          MOVE MHDR-CURR-RUN-DATE TO FUIR-CHNG-DATE                DTSBD730
00615          MOVE FUIR-REC TO FSKL-REC                                DTSBD730
00616          PERFORM S931-REWRITE THRU S931-EXIT                      DTSBD730
00617      ELSE                                                         DTSBD730
00618          MOVE 'T0000-01 UNEXPECTED NO REC FOUND ON FUIR READ'     DTSBD730
00619            TO ABEND-MSG                                           DTSBD730
00620          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD730
00621                                                                   DTSBD730
00622                                                                   DTSBD730
00623      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBD730
00624                                                                   DTSBD730
00625      PERFORM S931-CLOSE THRU S931-EXIT.                           DTSBD730
00626                                                                   DTSBD730
00627      MOVE -1 TO R907-LENGTH.                                      DTSBD730
00628                                                                   DTSBD730
00629      PERFORM S946-WRITE-R907 THRU S946-EXIT.                      DTSBD730
00630                                                                   DTSBD730
00631                                                                   DTSBD730
00632      DISPLAY '***'.                                               DTSBD730
00633                                                                   DTSBD730
00634      DISPLAY '*** '                                               DTSBD730
00635              WRK-MOD-NAME                                         DTSBD730
00636              ' TERMINATION DISPLAYS'.                             DTSBD730
00637                                                                   DTSBD730
00638                                                                   DTSBD730
00639      MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9.                   DTSBD730
00640                                                                   DTSBD730
00641      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD730
00642                                                                   DTSBD730
00643      DISPLAY '***                RATE YEAR START QUARTER: '       DTSBD730
00644              L004-SLASH-5-QTR.                                    DTSBD730
00645                                                                   DTSBD730
00646                                                                   DTSBD730
00647      DISPLAY '***'.                                               DTSBD730
00648                                                                   DTSBD730
00649      MOVE WRK-RTE-YR-END-YRQ TO L004-QTR-5-9.                     DTSBD730
00650                                                                   DTSBD730
00651      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD730
00652                                                                   DTSBD730
00653      DISPLAY '***                  RATE YEAR END QUARTER: '       DTSBD730
00654              L004-SLASH-5-QTR.                                    DTSBD730
00655                                                                   DTSBD730
00656                                                                   DTSBD730
00657      DISPLAY '***'.                                               DTSBD730
00658                                                                   DTSBD730
00659      MOVE WRK-RTE-YR-START-DATE TO L001-FED-8-DATE-9.             DTSBD730
00660                                                                   DTSBD730
00661      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBD730
00662                                                                   DTSBD730
00663      DISPLAY '***                   RATE YEAR START DATE: '       DTSBD730
00664              L001-SLASH-8-DATE.                                   DTSBD730
00665                                                                   DTSBD730
00666                                                                   DTSBD730
00667      DISPLAY '***'.                                               DTSBD730
00668                                                                   DTSBD730
00669      MOVE WRK-RTE-YR-END-DATE TO L001-FED-8-DATE-9.               DTSBD730
00670                                                                   DTSBD730
00671      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBD730
00672                                                                   DTSBD730
00673      DISPLAY '***                     RATE YEAR END DATE: '       DTSBD730
00674              L001-SLASH-8-DATE.                                   DTSBD730
00675                                                                   DTSBD730
00676                                                                   DTSBD730
00677      DISPLAY '***'.                                               DTSBD730
00678                                                                   DTSBD730
00679      MOVE WRK-EXP-CUTOFF-DATE TO L001-FED-8-DATE-9.               DTSBD730
00680                                                                   DTSBD730
00681      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBD730
00682                                                                   DTSBD730
00683      DISPLAY '***          RATING EXPERIENCE CUTOFF DATE: '       DTSBD730
00684              L001-SLASH-8-DATE.                                   DTSBD730
00685                                                                   DTSBD730
00686                                                                   DTSBD730
00687      DISPLAY '***'.                                               DTSBD730
00688                                                                   DTSBD730
00689      MOVE FUIR-TOT-TRUST-FUND-INT-AMT TO WRK-DISPLAY-AMT-9.       DTSBD730
00690                                                                   DTSBD730
00691      DISPLAY '***            FUIR-TOT-TRUST-FUND-INT-AMT: '       DTSBD730
00692              WRK-DISPLAY-AMT-X.                                   DTSBD730
00693                                                                   DTSBD730
00694                                                                   DTSBD730
00695      DISPLAY '***'.                                               DTSBD730
00696                                                                   DTSBD730
00697      MOVE FUIR-TOT-POS-RESERVE-BAL-AMT TO WRK-DISPLAY-AMT-9.      DTSBD730
00698                                                                   DTSBD730
00699      DISPLAY '***           FUIR-TOT-POS-RESERVE-BAL-AMT: '       DTSBD730
00700              WRK-DISPLAY-AMT-X.                                   DTSBD730
00701                                                                   DTSBD730
00702                                                                   DTSBD730
00703      DISPLAY '***'.                                               DTSBD730
00704                                                                   DTSBD730
00705      MOVE FUIR-TOT-POS-RESERVE-EMP-CNT TO WRK-DISPLAY-CNT-9.      DTSBD730
00706                                                                   DTSBD730
00707      DISPLAY '***           FUIR-TOT-POS-RESERVE-EMP-CNT: '       DTSBD730
00708              WRK-DISPLAY-CNT-X.                                   DTSBD730
00709                                                                   DTSBD730
00710                                                                   DTSBD730
00711      DISPLAY '***'.                                               DTSBD730
00712                                                                   DTSBD730
00713      MOVE FUIR-DIST-TRUST-FUND-INT-AMT TO WRK-DISPLAY-AMT-9.      DTSBD730
00714                                                                   DTSBD730
00715      DISPLAY '***           FUIR-DIST-TRUST-FUND-INT-AMT: '       DTSBD730
00716              WRK-DISPLAY-AMT-X.                                   DTSBD730
00717  T0000-EXIT.                                                      DTSBD730
00718      EXIT.                                                        DTSBD730
00719      EJECT                                                        DTSBD730
00720  S1000-RTE-YR-LIABLE.                                             DTSBD730
00721      SET WRK-EMP-RTE-YR-LIABLE-NO-88 TO TRUE.                     DTSBD730
00722                                                                   DTSBD730
00723      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD730
00724                                                                   DTSBD730
00725      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD730
00726                                                                   DTSBD730
00727      SET MSKL-SOL-88 TO TRUE.                                     DTSBD730
00728                                                                   DTSBD730
00729      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD730
00730                                                                   DTSBD730
00731      PERFORM                                                      DTSBD730
00732        UNTIL L910-NO-REC-88                                       DTSBD730
00733          MOVE MSKL-REC TO MSOL-REC                                DTSBD730
00734          PERFORM S1100-EXAMINE-MSOL THRU S1100-EXIT               DTSBD730
00735          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD730
00736      END-PERFORM.                                                 DTSBD730
00737  S1000-EXIT.                                                      DTSBD730
00738      EXIT.                                                        DTSBD730
00739      SKIP3                                                        DTSBD730
00740  S1100-EXAMINE-MSOL.                                              DTSBD730
00741      IF MSOL-INACT-WITHDRAWN-88                                   DTSBD730
00742          GO TO S1100-EXIT.                                        DTSBD730
00743                                                                   DTSBD730
00744      IF MSOL-FIRST-LIAB-YRQ > WRK-RTE-YR-END-YRQ                  DTSBD730
00745          GO TO S1100-EXIT.                                        DTSBD730
00746                                                                   DTSBD730
00747      IF MSOL-LAST-LIAB-YRQ < WRK-RTE-YR-START-YRQ                 DTSBD730
00748          GO TO S1100-EXIT.                                        DTSBD730
00749                                                                   DTSBD730
00750      SET WRK-EMP-RTE-YR-LIABLE-YES-88 TO TRUE.                    DTSBD730
00751  S1100-EXIT.                                                      DTSBD730
00752      EXIT.                                                        DTSBD730
00753      EJECT                                                        DTSBD730
00754  S9000-EMPLOYER-UPDATED.                                          DTSBD730
00755      IF MPRF-UPDATE-ACTIVE-88                                     DTSBD730
00756          MOVE MSG99-MSG-IDENTIFIER TO R907-MSG-ID                 DTSBD730
00757          MOVE MPRF-EMP-NO TO R907-EMP-NO                          DTSBD730
00758          MOVE MSG99-MSG-TEXT TO R907-MSG-TEXT                     DTSBD730
00759          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBD730
00760      ELSE                                                         DTSBD730
00761          MOVE WRK-SYS-ABSTIME TO MPRF-UPDATE-END-ABSTIME          DTSBD730
00762          MOVE +0 TO MPRF-UPDATE-TASK-ID                           DTSBD730
00763          MOVE 'BATCH' TO MPRF-UPDATE-OP-ID                        DTSBD730
00764          MOVE SPACES TO MPRF-UPDATE-TERMID                        DTSBD730
00765                         MPRF-UPDATE-NETNAME                       DTSBD730
00766          MOVE WRK-SYS-DATE TO MPRF-UPDATE-START-DATE              DTSBD730
00767          MOVE WRK-SYS-TIME TO MPRF-UPDATE-START-TIME              DTSBD730
00768          MOVE SPACES TO MPRF-UPDATE-SCR-ID                        DTSBD730
00769                         MPRF-UPDATE-FUNCTION                      DTSBD730
00770          MOVE MHDR-CURR-RUN-DATE TO MPRF-CHNG-DATE                DTSBD730
00771          MOVE MPRF-REC TO MSKL-REC                                DTSBD730
00772          PERFORM S910-REWRITE THRU S910-EXIT.                     DTSBD730
00773  S9000-EXIT.                                                      DTSBD730
00774      EXIT.                                                        DTSBD730
00775      EJECT                                                        DTSBD730
00776  S001-FROM-FED-8.                                                 DTSBD730
00777      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD730
00778      GO TO S001-DATE.                                             DTSBD730
00779                                                                   DTSBD730
00780  S001-DATE.                                                       DTSBD730
00781      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD730
00782  S001-EXIT.                                                       DTSBD730
00783      EXIT.                                                        DTSBD730
00784      SKIP3                                                        DTSBD730
00785  S004-FROM-5.                                                     DTSBD730
00786      SET L004-FROM-5 TO TRUE.                                     DTSBD730
00787      GO TO S004-QTR.                                              DTSBD730
00788                                                                   DTSBD730
00789  S004-FROM-ABS.                                                   DTSBD730
00790      SET L004-FROM-ABS TO TRUE.                                   DTSBD730
00791      GO TO S004-QTR.                                              DTSBD730
00792                                                                   DTSBD730
00793  S004-FROM-3.                                                     DTSBD730
00794      SET L004-FROM-3 TO TRUE.                                     DTSBD730
00795      GO TO S004-QTR.                                              DTSBD730
00796                                                                   DTSBD730
00797  S004-QTR.                                                        DTSBD730
00798      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD730
00799  S004-EXIT.                                                       DTSBD730
00800      EXIT.                                                        DTSBD730
00801      SKIP3                                                        DTSBD730
00802  S005-FROM-SYS.                                                   DTSBD730
00803      SET L005-FROM-SYS TO TRUE.                                   DTSBD730
00804      GO TO S005-ABSTIME.                                          DTSBD730
00805                                                                   DTSBD730
00806  S005-ABSTIME.                                                    DTSBD730
00807      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD730
00808  S005-EXIT.                                                       DTSBD730
00809      EXIT.                                                        DTSBD730
00810      SKIP3                                                        DTSBD730
00811  S006-FROM-QTR.                                                   DTSBD730
00812      SET L006-FROM-QTR TO TRUE.                                   DTSBD730
00813      GO TO S006-UI-RATE-YEAR.                                     DTSBD730
00814                                                                   DTSBD730
00815  S006-UI-RATE-YEAR.                                               DTSBD730
00816      CALL 'DTSBU006' USING L006-LINK-AREA.                        DTSBD730
00817  S006-EXIT.                                                       DTSBD730
00818      EXIT.                                                        DTSBD730
00819      SKIP3                                                        DTSBD730
00820  S910-OPEN-UPDATE.                                                DTSBD730
00821      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSBD730
00822      GO TO S910-MSTR-IO.                                          DTSBD730
00823                                                                   DTSBD730
00824  S910-READ.                                                       DTSBD730
00825      SET L910-READ-88 TO TRUE.                                    DTSBD730
00826      GO TO S910-MSTR-IO.                                          DTSBD730
00827                                                                   DTSBD730
00828  S910-START-BROWSE.                                               DTSBD730
00829      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD730
00830      GO TO S910-MSTR-IO.                                          DTSBD730
00831                                                                   DTSBD730
00832  S910-READ-NEXT.                                                  DTSBD730
00833      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD730
00834      GO TO S910-MSTR-IO.                                          DTSBD730
00835                                                                   DTSBD730
00836  S910-REWRITE.                                                    DTSBD730
00837      SET L910-REWRITE-88 TO TRUE.                                 DTSBD730
00838      GO TO S910-MSTR-IO.                                          DTSBD730
00839                                                                   DTSBD730
00840  S910-CLOSE.                                                      DTSBD730
00841      SET L910-CLOSE-88 TO TRUE.                                   DTSBD730
00842      GO TO S910-MSTR-IO.                                          DTSBD730
00843                                                                   DTSBD730
00844  S910-MSTR-IO.                                                    DTSBD730
00845      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD730
00846                            MSKL-REC.                              DTSBD730
00847  S910-EXIT.                                                       DTSBD730
00848      EXIT.                                                        DTSBD730
00849      SKIP3                                                        DTSBD730
00850  S931-OPEN-UPDATE.                                                DTSBD730
00851      SET L931-OPEN-UPDATE-88 TO TRUE.                             DTSBD730
00852      GO TO S931-REF-IO.                                           DTSBD730
00853                                                                   DTSBD730
00854  S931-READ.                                                       DTSBD730
00855      SET L931-READ-88 TO TRUE.                                    DTSBD730
00856      GO TO S931-REF-IO.                                           DTSBD730
00857                                                                   DTSBD730
00858  S931-REWRITE.                                                    DTSBD730
00859      SET L931-REWRITE-88 TO TRUE.                                 DTSBD730
00860      GO TO S931-REF-IO.                                           DTSBD730
00861                                                                   DTSBD730
00862  S931-CLOSE.                                                      DTSBD730
00863      SET L931-CLOSE-88 TO TRUE.                                   DTSBD730
00864      GO TO S931-REF-IO.                                           DTSBD730
00865                                                                   DTSBD730
00866  S931-REF-IO.                                                     DTSBD730
00867      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBD730
00868                            FSKL-REC.                              DTSBD730
00869  S931-EXIT.                                                       DTSBD730
00870      EXIT.                                                        DTSBD730
00871      SKIP3                                                        DTSBD730
00872  S946-WRITE-R520.                                                 DTSBD730
00873      CALL 'DTSBU946' USING R520-REC.                              DTSBD730
00874      GO TO S946-EXIT.                                             DTSBD730
00875                                                                   DTSBD730
00876  S946-WRITE-R907.                                                 DTSBD730
00877      CALL 'DTSBU946' USING R907-REC.                              DTSBD730
00878      GO TO S946-EXIT.                                             DTSBD730
00879                                                                   DTSBD730
00880  S946-EXIT.                                                       DTSBD730
00881      EXIT.                                                        DTSBD730
00882      SKIP3                                                        DTSBD730
00883  S999-ABEND.                                                      DTSBD730
00884      DISPLAY '***'.                                               DTSBD730
00885                                                                   DTSBD730
00886      DISPLAY '*** '                                               DTSBD730
00887              WRK-MOD-NAME                                         DTSBD730
00888              ' IS ABENDING BECAUSE '                              DTSBD730
00889              ABEND-MSG.                                           DTSBD730
00890                                                                   DTSBD730
00891      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD730
00892  S999-EXIT.                                                       DTSBD730
00893      EXIT.                                                        DTSBD730
