DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
894
Batch/DTSBD730.cob
Normal file
894
Batch/DTSBD730.cob
Normal file
@ -0,0 +1,894 @@
|
||||
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
|
||||
Reference in New Issue
Block a user