895 lines
71 KiB
COBOL
895 lines
71 KiB
COBOL
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
|