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