673 lines
53 KiB
COBOL
673 lines
53 KiB
COBOL
00001 IDENTIFICATION DIVISION. 11/11/02
|
|
00002 PROGRAM-ID. DTSBD343. DTSBD343
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV008
|
|
00004 DATE-WRITTEN. JANUARY 1991. DTSBD343
|
|
00005 DATE-COMPILED. DTSBD343
|
|
00006 SKIP3 DTSBD343
|
|
00007 ***** DTSBD343
|
|
00008 * DTSBD343
|
|
00009 * FUNCTION: RATE NOTICE GENERATION. DTSBD343
|
|
00010 * DTSBD343
|
|
00011 * DTSBD343
|
|
00012 * MODIFICATION LOG: DTSBD343
|
|
00013 * DTSBD343
|
|
00014 * 01/09/92 INITIAL DEVELOPMENT. DTSBD343
|
|
00015 * WORK ORDER: PROGRAMMER: TCL DTSBD343
|
|
00016 * DTSBD343
|
|
00017 * 01/25/1999 REVIEWED AND MODIFIED FOR DC. DTSBD343
|
|
00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD343
|
|
00019 * DTSBD343
|
|
00020 * 08/20/2002 MODIFIED TO FINALIZE ESTIMATED RATE AND PRINT DTSBD343
|
|
00021 * RATE NOTICE WHEN T006-FINAL-RATE IS TRUE. DTSBD343
|
|
00022 * PROGRAM WILL PRINT ERROR REPORT IF DTSBD343
|
|
00023 * T006-FINAL-RATE IS NOT TRUE AND RATE IS DTSBD343
|
|
00024 * ESTIMATED. DTSBD343
|
|
00025 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD343
|
|
00026 * DTSBD343
|
|
00027 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD343
|
|
00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD343
|
|
00029 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD343
|
|
00030 * DTSBD343
|
|
00031 * DTSBD343
|
|
00032 * DESCRIPTION: DTSBD343
|
|
00033 * DTSBD343
|
|
00034 * IF, FOR A GIVEN EMP-NO AND START-YRQ, DTSBD343 IS CALLED DTSBD343
|
|
00035 * MORE THAN ONCE, THEN BYPASS PROCESSING ON ALL CALLS OTHER DTSBD343
|
|
00036 * THAN THE FIRST. YOU MAY ASSUME THE TRANSACTIONS WILL DTSBD343
|
|
00037 * ARRIVE IN T006-START-YRQ WITHIN T006-EMP-NO SEQUENCE. DTSBD343
|
|
00038 * DTSBD343
|
|
00039 * T006-START-YRQ IS THE START-YRQ OF THE RATE FOR WHICH DTSBD343
|
|
00040 * A RATE NOTICE IS TO BE PRINTED. IGNORE T006-END-YRQ. DTSBD343
|
|
00041 * DTSBD343
|
|
00042 * IF NO MRTE RECORD EXISTS FOR A SPECIFIED T006-START-YRQ, DTSBD343
|
|
00043 * THEN INDICATE THE TRANSACTION HAS FAILED. DTSBD343
|
|
00044 * DTSBD343
|
|
00045 * IF MRTE-RATE-TYPE-ESTIM-88, THEN INDICATE THE DTSBD343
|
|
00046 * TRANSACTION HAS FAILED. DTSBD343
|
|
00047 * DTSBD343
|
|
00048 * IF MRTE-NOTICE-MAIL-DATE = 0, THEN INDICATE THE DTSBD343
|
|
00049 * TRANSACTION HAS FAILED. DTSBD343
|
|
00050 * DTSBD343
|
|
00051 * READ THE MRCT RECORD CORRESPONDING TO T006-START-YRQ. DTSBD343
|
|
00052 * READ THE FCYR RECORD FOR THE YEAR INCLUDING DTSBD343
|
|
00053 * T006-START-YRQ. DTSBD343
|
|
00054 * DTSBD343
|
|
00055 * IF (THE MRCT RECORD DOES NOT EXIST) OR (THE MRCT DTSBD343
|
|
00056 * RECORD DOES NOT SUPPORT THE RATE IN THE MRTE DTSBD343
|
|
00057 * RECORD (AS DETERMINED BY A CALL TO DTSBU054)) OR DTSBD343
|
|
00058 * (THE FCYR RECORD DOES NOT EXIST); DTSBD343
|
|
00059 * DTSBD343
|
|
00060 * INDICATE THE TRANSACTION HAS FAILED DTSBD343
|
|
00061 * DTSBD343
|
|
00062 * ELSE DTSBD343
|
|
00063 * DTSBD343
|
|
00064 * GENERATE A R503 RECORD DTSBD343
|
|
00065 * IF L054-UI-PEN-RATE-YES-88 DTSBD343
|
|
00066 * GENERATE A R504 RECORD. DTSBD343
|
|
00067 * DTSBD343
|
|
00068 * DTSBD343
|
|
00069 * PLEASE SEE PRINTED OUTPUTS DESCRIPTIONS AND LAYOUTS DTSBD343
|
|
00070 * FOR FURTHER INFORMATION. DTSBD343
|
|
00071 * DTSBD343
|
|
00072 * DTSBD343
|
|
00073 * MASTER FILE RECORDS READ: DTSBD343
|
|
00074 * DTSBD343
|
|
00075 * MRCT DTSBD343
|
|
00076 * MRTE DTSBD343
|
|
00077 * DTSBD343
|
|
00078 * DTSBD343
|
|
00079 * REFERENCE FILE RECORDS READ: DTSBD343
|
|
00080 * DTSBD343
|
|
00081 * NONE. DTSBD343
|
|
00082 * DTSBD343
|
|
00083 * DTSBD343
|
|
00084 * MASTER FILE RECORDS UPDATED: DTSBD343
|
|
00085 * DTSBD343
|
|
00086 * NONE. DTSBD343
|
|
00087 * DTSBD343
|
|
00088 * DTSBD343
|
|
00089 * REPORT RECORDS WRITTEN: DTSBD343
|
|
00090 * DTSBD343
|
|
00091 * R503 RATE NOTICE. DTSBD343
|
|
00092 * R504 PENALTY RATE LETTER. DTSBD343
|
|
00093 * DTSBD343
|
|
00094 * DTSBD343
|
|
00095 * MODULES CALLED: DTSBD343
|
|
00096 * DTSBD343
|
|
00097 * DTSBU001 DATE EDIT/CONVERSION. DTSBD343
|
|
00098 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBD343
|
|
00099 * DTSBU054 RATE DETERMINATION FROM RCT RECORD. DTSBD343
|
|
00100 * DTSBU111 LOOKUP ADDRESS. DTSBD343
|
|
00101 * DTSBU112 FORMAT ADDRESS. DTSBD343
|
|
00102 * DTSBU910 MASTER FILE I/O. DTSBD343
|
|
00103 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD343
|
|
00104 * DTSBD343
|
|
00105 * DTSBD343
|
|
00106 ***** DTSBD343
|
|
00107 SKIP3 DTSBD343
|
|
00108 ENVIRONMENT DIVISION. DTSBD343
|
|
00109 EJECT DTSBD343
|
|
00110 DATA DIVISION. DTSBD343
|
|
00111 SKIP3 DTSBD343
|
|
00112 WORKING-STORAGE SECTION. DTSBD343
|
|
001125 77 PAN-VALET PICTURE X(24) VALUE '008DTSBD343 11/11/02'. DTSBD343
|
|
00113 SKIP3 DTSBD343
|
|
00114 01 WRK-AREA. DTSBD343
|
|
00115 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +343.DTSBD343
|
|
00116 DTSBD343
|
|
00117 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD343'.DTSBD343
|
|
00118 DTSBD343
|
|
00119 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD343
|
|
00120 DTSBD343
|
|
00121 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBD343
|
|
00122 DTSBD343
|
|
00123 05 WRK-START-YRQ PIC S9(05) COMP-3. DTSBD343
|
|
00124 SKIP3 DTSBD343
|
|
00125 01 MSG-TABLE. DTSBD343
|
|
00126 05 MSG1-NO-MRTE-REC. DTSBD343
|
|
00127 10 MSG1-ID PIC X(11) VALUE 'DTSBD343511'. DTSBD343
|
|
00128 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'NO MRTE RECORD'. DTSBD343
|
|
00129 10 MSG1-LONG-TEXT. DTSBD343
|
|
00130 15 FILLER PIC X(30) DTSBD343
|
|
00131 VALUE 'TRANSACTION FAILED - RATE RECO'. DTSBD343
|
|
00132 15 FILLER PIC X(30) DTSBD343
|
|
00133 VALUE 'RD NOT FOUND '. DTSBD343
|
|
00134 DTSBD343
|
|
00135 05 MSG2-NO-MRCT-REC. DTSBD343
|
|
00136 10 MSG2-ID PIC X(11) VALUE 'DTSBD343512'. DTSBD343
|
|
00137 10 MSG2-SHORT-TEXT PIC X(20) VALUE 'NO MRCT RECORD'. DTSBD343
|
|
00138 10 MSG2-LONG-TEXT. DTSBD343
|
|
00139 15 FILLER PIC X(30) DTSBD343
|
|
00140 VALUE 'TRANSACTION FAILED - RATE EXPE'. DTSBD343
|
|
00141 15 FILLER PIC X(30) DTSBD343
|
|
00142 VALUE 'RIENCE CUTOFF RECORD NOT FOUND'. DTSBD343
|
|
00143 DTSBD343
|
|
00144 *****05 MSG3-NO-FCYR-REC. DTSBD343
|
|
00145 *********10 MSG3-ID PIC X(11) VALUE 'DTSBD343513'. DTSBD343
|
|
00146 *********10 MSG3-SHORT-TEXT PIC X(20) VALUE 'NO FCYR RECORD'. DTSBD343
|
|
00147 *********10 MSG3-LONG-TEXT. DTSBD343
|
|
00148 *************15 FILLER PIC X(30) DTSBD343
|
|
00149 *******************VALUE 'TRANSACTION FAILED - REFERENCE'. DTSBD343
|
|
00150 *************15 FILLER PIC X(30) DTSBD343
|
|
00151 *******************VALUE 'CALENDAR YEAR RECORD NOT FOUND'. DTSBD343
|
|
00152 DTSBD343
|
|
00153 05 MSG4-INVALID-MRCT-REC. DTSBD343
|
|
00154 10 MSG4-ID PIC X(11) VALUE 'DTSBD343514'. DTSBD343
|
|
00155 10 MSG4-SHORT-TEXT PIC X(20) VALUE 'RATE ERROR '. DTSBD343
|
|
00156 10 MSG4-LONG-TEXT. DTSBD343
|
|
00157 15 FILLER PIC X(30) DTSBD343
|
|
00158 VALUE 'TRANSACTION FAILED - RATE EXPE'. DTSBD343
|
|
00159 15 FILLER PIC X(30) DTSBD343
|
|
00160 VALUE 'RIENCE DOES NOT SUPPORT RATE '. DTSBD343
|
|
00161 DTSBD343
|
|
00162 05 MSG5-NO-NOTICE-DATE. DTSBD343
|
|
00163 10 MSG5-ID PIC X(11) VALUE 'DTSBD343515'. DTSBD343
|
|
00164 10 MSG5-SHORT-TEXT PIC X(20) VALUE 'RATE ERROR '. DTSBD343
|
|
00165 10 MSG5-LONG-TEXT. DTSBD343
|
|
00166 15 FILLER PIC X(30) DTSBD343
|
|
00167 VALUE 'TRANSACTION FAILED - NOTICE DA'. DTSBD343
|
|
00168 15 FILLER PIC X(30) DTSBD343
|
|
00169 VALUE 'TE DOES NOT EXIST '. DTSBD343
|
|
00170 DTSBD343
|
|
00171 05 MSG6-ESTIMATED-RATE. DTSBD343
|
|
00172 10 MSG6-ID PIC X(11) VALUE 'DTSBD343516'. DTSBD343
|
|
00173 10 MSG6-SHORT-TEXT PIC X(20) VALUE 'RATE ERROR '. DTSBD343
|
|
00174 10 MSG6-LONG-TEXT. DTSBD343
|
|
00175 15 FILLER PIC X(30) DTSBD343
|
|
00176 VALUE 'TRANSACTION FAILED - CANNOT PR'. DTSBD343
|
|
00177 15 FILLER PIC X(30) DTSBD343
|
|
00178 VALUE 'INT NOTICE FOR ESTIMATED RATE.'. DTSBD343
|
|
00179 EJECT DTSBD343
|
|
00180 01 L001-LINK-AREA. DTSBD343
|
|
00181 ++INCLUDE DTSIL001 DTSBD343
|
|
00182 EJECT DTSBD343
|
|
00183 01 L004-LINK-AREA. DTSBD343
|
|
00184 ++INCLUDE DTSIL004 DTSBD343
|
|
00185 EJECT DTSBD343
|
|
00186 01 L006-LINK-AREA. DTSBD343
|
|
00187 ++INCLUDE DTSIL006 DTSBD343
|
|
00188 EJECT DTSBD343
|
|
00189 01 L054-LINK-AREA. DTSBD343
|
|
00190 ++INCLUDE DTSIL054 DTSBD343
|
|
00191 EJECT DTSBD343
|
|
00192 01 L055-LINK-AREA. DTSBD343
|
|
00193 ++INCLUDE DTSIL055 DTSBD343
|
|
00194 EJECT DTSBD343
|
|
00195 01 L111-LINK-AREA. DTSBD343
|
|
00196 ++INCLUDE DTSIL111 DTSBD343
|
|
00197 EJECT DTSBD343
|
|
00198 01 L112-LINK-AREA. DTSBD343
|
|
00199 ++INCLUDE DTSIL112 DTSBD343
|
|
00200 EJECT DTSBD343
|
|
00201 01 L910-LINK-AREA. DTSBD343
|
|
00202 ++INCLUDE DTSIL910 DTSBD343
|
|
00203 EJECT DTSBD343
|
|
00204 01 MSKL-REC. DTSBD343
|
|
00205 ++INCLUDE DTSIMSKL DTSBD343
|
|
00206 EJECT DTSBD343
|
|
00207 01 MRCT-REC. DTSBD343
|
|
00208 ++INCLUDE DTSIMRCT DTSBD343
|
|
00209 EJECT DTSBD343
|
|
00210 01 MRTE-REC. DTSBD343
|
|
00211 ++INCLUDE DTSIMRTE DTSBD343
|
|
00212 EJECT DTSBD343
|
|
00213 *01 L931-LINK-AREA. DTSBD343
|
|
00214 ***INCLUDE DTSIL931 DTSBD343
|
|
00215 EJECT DTSBD343
|
|
00216 *01 FSKL-REC. DTSBD343
|
|
00217 ***INCLUDE DTSIFSKL DTSBD343
|
|
00218 EJECT DTSBD343
|
|
00219 *01 FCYR-REC. DTSBD343
|
|
00220 ***INCLUDE DTSIFCYR DTSBD343
|
|
00221 EJECT DTSBD343
|
|
00222 01 R503-REC. DTSBD343
|
|
00223 ++INCLUDE DTSIR503 DTSBD343
|
|
00224 EJECT DTSBD343
|
|
00225 01 R504-REC. DTSBD343
|
|
00226 ++INCLUDE DTSIR504 DTSBD343
|
|
00227 EJECT DTSBD343
|
|
00228 01 MMAX-LITERALS. DTSBD343
|
|
00229 ++INCLUDE DTSIMMAX DTSBD343
|
|
00230 EJECT DTSBD343
|
|
00231 LINKAGE SECTION. DTSBD343
|
|
00232 SKIP3 DTSBD343
|
|
00233 01 LBCM-LINK-AREA. DTSBD343
|
|
00234 ++INCLUDE DTSILBCM DTSBD343
|
|
00235 EJECT DTSBD343
|
|
00236 01 MPRF-REC. DTSBD343
|
|
00237 ++INCLUDE DTSIMPRF DTSBD343
|
|
00238 EJECT DTSBD343
|
|
00239 01 T006-REC. DTSBD343
|
|
00240 ++INCLUDE DTSIT006 DTSBD343
|
|
00241 EJECT DTSBD343
|
|
00242 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD343
|
|
00243 MPRF-REC DTSBD343
|
|
00244 T006-REC. DTSBD343
|
|
00245 DTSBD343
|
|
00246 DTSBD343
|
|
00247 IF FIRST-TIME-IND = 'Y' DTSBD343
|
|
00248 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBD343
|
|
00249 MOVE 'N' TO FIRST-TIME-IND. DTSBD343
|
|
00250 DTSBD343
|
|
00251 DTSBD343
|
|
00252 IF (MPRF-EMP-NO = WRK-EMP-NO) DTSBD343
|
|
00253 AND DTSBD343
|
|
00254 (T006-START-YRQ = WRK-START-YRQ) DTSBD343
|
|
00255 NEXT SENTENCE DTSBD343
|
|
00256 ELSE DTSBD343
|
|
00257 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD343
|
|
00258 MOVE T006-START-YRQ TO WRK-START-YRQ DTSBD343
|
|
00259 MOVE MPRF-EMP-NO TO WRK-EMP-NO. DTSBD343
|
|
00260 DTSBD343
|
|
00261 DTSBD343
|
|
00262 GOBACK. DTSBD343
|
|
00263 EJECT DTSBD343
|
|
00264 I0000-INITIATE. DTSBD343
|
|
00265 MOVE LBCM-TRACE-IND TO L910-TRACE-IND. DTSBD343
|
|
00266 ****************************L931-TRACE-IND. DTSBD343
|
|
00267 DTSBD343
|
|
00268 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBD343
|
|
00269 ****************************L931-MOD-NAME. DTSBD343
|
|
00270 DTSBD343
|
|
00271 MOVE +0 TO WRK-EMP-NO DTSBD343
|
|
00272 WRK-START-YRQ. DTSBD343
|
|
00273 DTSBD343
|
|
00274 MOVE LENGTH OF R503-REC TO R503-LENGTH. DTSBD343
|
|
00275 DTSBD343
|
|
00276 MOVE LENGTH OF R504-REC TO R504-LENGTH. DTSBD343
|
|
00277 I0000-EXIT. DTSBD343
|
|
00278 EXIT. DTSBD343
|
|
00279 EJECT DTSBD343
|
|
00280 P0000-PROCESS. DTSBD343
|
|
00281 IF MPRF-CLASS-RATED-88 DTSBD343
|
|
00282 NEXT SENTENCE DTSBD343
|
|
00283 ELSE DTSBD343
|
|
00284 GO TO P0000-EXIT. DTSBD343
|
|
00285 DTSBD343
|
|
00286 DTSBD343
|
|
00287 MOVE LOW-VALUES TO MRTE-KEY-AREA. DTSBD343
|
|
00288 DTSBD343
|
|
00289 MOVE MPRF-EMP-NO TO MRTE-EMP-NO. DTSBD343
|
|
00290 DTSBD343
|
|
00291 SET MRTE-RTE-88 TO TRUE. DTSBD343
|
|
00292 DTSBD343
|
|
00293 MOVE T006-START-YRQ TO MRTE-EFF-YRQ. DTSBD343
|
|
00294 DTSBD343
|
|
00295 MOVE MRTE-KEY-AREA TO MSKL-KEY-AREA. DTSBD343
|
|
00296 DTSBD343
|
|
00297 PERFORM S910-READ THRU S910-EXIT. DTSBD343
|
|
00298 DTSBD343
|
|
00299 IF L910-NO-REC-88 DTSBD343
|
|
00300 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00301 MOVE MSG1-NO-MRTE-REC TO LBCM-TRN-MSG-AREA DTSBD343
|
|
00302 GO TO P0000-EXIT. DTSBD343
|
|
00303 DTSBD343
|
|
00304 DTSBD343
|
|
00305 MOVE MSKL-REC TO MRTE-REC. DTSBD343
|
|
00306 DTSBD343
|
|
00307 DTSBD343
|
|
00308 IF MRTE-RATE-TYPE-ESTIM-88 DTSBD343
|
|
00309 IF T006-FINAL-RATE DTSBD343
|
|
00310 PERFORM P2000-UPDATE-MRTE THRU P2000-EXIT DTSBD343
|
|
00311 ELSE DTSBD343
|
|
00312 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00313 MOVE MSG6-ESTIMATED-RATE TO LBCM-TRN-MSG-AREA DTSBD343
|
|
00314 GO TO P0000-EXIT. DTSBD343
|
|
00315 DTSBD343
|
|
00316 IF MRTE-NOTICE-DATE = 0 DTSBD343
|
|
00317 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00318 MOVE MSG5-NO-NOTICE-DATE TO LBCM-TRN-MSG-AREA DTSBD343
|
|
00319 GO TO P0000-EXIT. DTSBD343
|
|
00320 DTSBD343
|
|
00321 DTSBD343
|
|
00322 MOVE LOW-VALUES TO MRCT-KEY-AREA. DTSBD343
|
|
00323 DTSBD343
|
|
00324 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD343
|
|
00325 DTSBD343
|
|
00326 SET MRCT-RCT-88 TO TRUE. DTSBD343
|
|
00327 DTSBD343
|
|
00328 MOVE T006-START-YRQ TO MRCT-EFF-YRQ. DTSBD343
|
|
00329 DTSBD343
|
|
00330 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. DTSBD343
|
|
00331 DTSBD343
|
|
00332 PERFORM S910-READ THRU S910-EXIT. DTSBD343
|
|
00333 DTSBD343
|
|
00334 IF L910-NO-REC-88 DTSBD343
|
|
00335 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00336 MOVE MSG2-NO-MRCT-REC TO LBCM-TRN-MSG-AREA DTSBD343
|
|
00337 GO TO P0000-EXIT. DTSBD343
|
|
00338 DTSBD343
|
|
00339 DTSBD343
|
|
00340 MOVE MSKL-REC TO MRCT-REC. DTSBD343
|
|
00341 DTSBD343
|
|
00342 DTSBD343
|
|
00343 *****MOVE LOW-VALUES TO FCYR-KEY-AREA. DTSBD343
|
|
00344 DTSBD343
|
|
00345 *****SET FCYR-CYR-88 TO TRUE. DTSBD343
|
|
00346 DTSBD343
|
|
00347 *****MOVE T006-START-YRQ TO L004-QTR-5-9. DTSBD343
|
|
00348 DTSBD343
|
|
00349 *****MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD343
|
|
00350 DTSBD343
|
|
00351 *****MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD343
|
|
00352 DTSBD343
|
|
00353 *****PERFORM S931-READ THRU S931-EXIT. DTSBD343
|
|
00354 DTSBD343
|
|
00355 *****IF L931-NO-REC-88 DTSBD343
|
|
00356 ********SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00357 ********MOVE MSG3-NO-FCYR-REC TO LBCM-TRN-MSG-AREA DTSBD343
|
|
00358 ********GO TO P0000-EXIT. DTSBD343
|
|
00359 DTSBD343
|
|
00360 DTSBD343
|
|
00361 *****MOVE FSKL-REC TO FCYR-REC. DTSBD343
|
|
00362 DTSBD343
|
|
00363 DTSBD343
|
|
00364 IF MRTE-RATE-TYPE-ESTIM-88 DTSBD343
|
|
00365 OR MRTE-RATE-TYPE-FINAL-88 DTSBD343
|
|
00366 SET L054-ESTIMATED-RATE-YES-88 TO TRUE DTSBD343
|
|
00367 ELSE DTSBD343
|
|
00368 SET L054-ESTIMATED-RATE-NO-88 TO TRUE. DTSBD343
|
|
00369 DTSBD343
|
|
00370 PERFORM S054-RATE-LOOKUP-YES THRU S054-EXIT. DTSBD343
|
|
00371 DTSBD343
|
|
00372 DTSBD343
|
|
00373 PERFORM P1000-CHECK-CONSISTENCY THRU P1000-EXIT. DTSBD343
|
|
00374 DTSBD343
|
|
00375 DTSBD343
|
|
00376 IF LBCM-TRN-NOT-OK-88 DTSBD343
|
|
00377 MOVE MSG4-INVALID-MRCT-REC TO LBCM-TRN-MSG-AREA DTSBD343
|
|
00378 GO TO P0000-EXIT. DTSBD343
|
|
00379 DTSBD343
|
|
00380 DTSBD343
|
|
00381 MOVE MRTE-EFF-YRQ TO L006-YRQ. DTSBD343
|
|
00382 DTSBD343
|
|
00383 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD343
|
|
00384 DTSBD343
|
|
00385 DTSBD343
|
|
00386 MOVE MRTE-EFF-YRQ TO L055-EFF-YRQ. DTSBD343
|
|
00387 DTSBD343
|
|
00388 PERFORM S055-FROM-EFF-YRQ THRU S055-EXIT. DTSBD343
|
|
00389 DTSBD343
|
|
00390 DTSBD343
|
|
00391 PERFORM S111-LOOKUP-UI-TAX-MAILING THRU S111-EXIT. DTSBD343
|
|
00392 DTSBD343
|
|
00393 IF L111-ADDR-FOUND-88 DTSBD343
|
|
00394 PERFORM S112-FORMAT-TAD-ADDR THRU S112-EXIT DTSBD343
|
|
00395 ELSE DTSBD343
|
|
00396 MOVE SPACES TO L112-ZIP DTSBD343
|
|
00397 L112-ADVANCED-BARCODE DTSBD343
|
|
00398 MOVE ALL '?' TO L112-MAILING-ADDRESS. DTSBD343
|
|
00399 DTSBD343
|
|
00400 DTSBD343
|
|
00401 IF L054-UI-PEN-RATE-YES-88 DTSBD343
|
|
00402 SET R503-UI-PEN-RATE-YES-88 TO TRUE DTSBD343
|
|
00403 ELSE DTSBD343
|
|
00404 SET R503-UI-PEN-RATE-NO-88 TO TRUE. DTSBD343
|
|
00405 DTSBD343
|
|
00406 MOVE LOW-VALUES TO R503-SORT-VAR-AREA. DTSBD343
|
|
00407 DTSBD343
|
|
00408 MOVE MPRF-EMP-NO TO R503-DLY-EMP-NO. DTSBD343
|
|
00409 DTSBD343
|
|
00410 MOVE MRTE-EFF-YRQ TO R503-DLY-EFF-YRQ. DTSBD343
|
|
00411 DTSBD343
|
|
00412 IF L054-CLASSIFIED-88 DTSBD343
|
|
00413 SET R503-CLASSIFIED-88 TO TRUE DTSBD343
|
|
00414 ELSE DTSBD343
|
|
00415 SET R503-NONCLASSIFIED-88 TO TRUE. DTSBD343
|
|
00416 DTSBD343
|
|
00417 MOVE MPRF-EMP-NO TO R503-EMP-NO. DTSBD343
|
|
00418 DTSBD343
|
|
00419 MOVE MRTE-EFF-YRQ TO R503-EFF-YRQ. DTSBD343
|
|
00420 DTSBD343
|
|
00421 MOVE L006-RTE-YR-DISP TO R503-RATE-YEAR. DTSBD343
|
|
00422 DTSBD343
|
|
00423 MOVE MRTE-NOTICE-DATE TO R503-NOTICE-DATE. DTSBD343
|
|
00424 DTSBD343
|
|
00425 IF R503-UI-PEN-RATE-YES-88 DTSBD343
|
|
00426 MOVE R503-NOTICE-DATE TO L001-FED-8-DATE-9 DTSBD343
|
|
00427 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBD343
|
|
00428 ADD +30 TO L001-JUL-ABS-DAY DTSBD343
|
|
00429 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBD343
|
|
00430 MOVE L001-FED-8-DATE-9 TO R503-PENALTY-DEADLINE-DATE DTSBD343
|
|
00431 ELSE DTSBD343
|
|
00432 MOVE +0 TO R503-PENALTY-DEADLINE-DATE. DTSBD343
|
|
00433 DTSBD343
|
|
00434 MOVE L112-MAILING-ADDRESS TO R503-FMT-ADDR. DTSBD343
|
|
00435 DTSBD343
|
|
00436 MOVE L112-ZIP TO R503-ZIP. DTSBD343
|
|
00437 DTSBD343
|
|
00438 MOVE L112-ADVANCED-BARCODE TO R503-ADVANCED-BARCODE. DTSBD343
|
|
00439 DTSBD343
|
|
00440 MOVE L054-UI-CALC-RATE TO R503-CALC-RATE. DTSBD343
|
|
00441 DTSBD343
|
|
00442 MOVE L054-UI-PEN-RATE TO R503-PEN-RATE. DTSBD343
|
|
00443 DTSBD343
|
|
00444 IF R503-UI-PEN-RATE-YES-88 DTSBD343
|
|
00445 MOVE L054-UI-PEN-RATE TO R503-UI-RATE DTSBD343
|
|
00446 ELSE DTSBD343
|
|
00447 MOVE L054-UI-CALC-RATE TO R503-UI-RATE. DTSBD343
|
|
00448 DTSBD343
|
|
00449 MOVE L055-CURRENT-RESERVE-THRU-DATE DTSBD343
|
|
00450 TO R503-CURRENT-RESERVE-THRU-DATE. DTSBD343
|
|
00451 DTSBD343
|
|
00452 MOVE L054-AVG-TAX-WAGE TO R503-AVG-TAX-WAGE. DTSBD343
|
|
00453 DTSBD343
|
|
00454 MOVE L054-RATIO TO R503-RESERVE-RATIO. DTSBD343
|
|
00455 DTSBD343
|
|
00456 MOVE MRCT-PRIOR-RESERVE-AMT TO R503-PRIOR-RESERVE-AMT. DTSBD343
|
|
00457 DTSBD343
|
|
00458 MOVE MRCT-TRUST-FUND-INTEREST-AMT DTSBD343
|
|
00459 TO R503-TRUST-FUND-INTEREST-AMT. DTSBD343
|
|
00460 DTSBD343
|
|
00461 MOVE MRCT-UI-TAX-PAID-AMT DTSBD343
|
|
00462 TO R503-UI-TAX-PAID-AMT. DTSBD343
|
|
00463 DTSBD343
|
|
00464 MOVE MRCT-BENEFITS-CHARGED-AMT TO R503-BENEFITS-CHARGED-AMT. DTSBD343
|
|
00465 DTSBD343
|
|
00466 MOVE L054-CURRENT-RESERVE-AMT TO R503-CURRENT-RESERVE-AMT. DTSBD343
|
|
00467 DTSBD343
|
|
00468 PERFORM S946-WRITE-R503 THRU S946-EXIT. DTSBD343
|
|
00469 DTSBD343
|
|
00470 DTSBD343
|
|
00471 IF R503-UI-PEN-RATE-YES-88 DTSBD343
|
|
00472 NEXT SENTENCE DTSBD343
|
|
00473 ELSE DTSBD343
|
|
00474 GO TO P0000-EXIT. DTSBD343
|
|
00475 DTSBD343
|
|
00476 DTSBD343
|
|
00477 MOVE LOW-VALUES TO R504-SORT-VAR-AREA. DTSBD343
|
|
00478 DTSBD343
|
|
00479 MOVE MPRF-EMP-NO TO R504-DLY-EMP-NO. DTSBD343
|
|
00480 DTSBD343
|
|
00481 MOVE MRCT-EFF-YRQ TO R504-DLY-EFF-YRQ. DTSBD343
|
|
00482 DTSBD343
|
|
00483 MOVE MPRF-EMP-NO TO R504-EMP-NO. DTSBD343
|
|
00484 DTSBD343
|
|
00485 MOVE MRCT-EFF-YRQ TO R504-EFF-YRQ. DTSBD343
|
|
00486 DTSBD343
|
|
00487 MOVE R503-RATE-YEAR TO R504-RATE-YEAR. DTSBD343
|
|
00488 DTSBD343
|
|
00489 MOVE R503-NOTICE-DATE TO R504-NOTICE-DATE. DTSBD343
|
|
00490 DTSBD343
|
|
00491 MOVE R503-PENALTY-DEADLINE-DATE DTSBD343
|
|
00492 TO R504-PENALTY-DEADLINE-DATE. DTSBD343
|
|
00493 DTSBD343
|
|
00494 MOVE L112-MAILING-ADDRESS TO R504-FMT-ADDR. DTSBD343
|
|
00495 DTSBD343
|
|
00496 MOVE L112-ZIP TO R504-ZIP. DTSBD343
|
|
00497 DTSBD343
|
|
00498 MOVE L112-ADVANCED-BARCODE TO R504-ADVANCED-BARCODE. DTSBD343
|
|
00499 DTSBD343
|
|
00500 MOVE R503-CALC-RATE TO R504-CALC-RATE. DTSBD343
|
|
00501 DTSBD343
|
|
00502 MOVE R503-PEN-RATE TO R504-PEN-RATE. DTSBD343
|
|
00503 DTSBD343
|
|
00504 PERFORM S946-WRITE-R504 THRU S946-EXIT. DTSBD343
|
|
00505 P0000-EXIT. DTSBD343
|
|
00506 EXIT. DTSBD343
|
|
00507 EJECT DTSBD343
|
|
00508 P1000-CHECK-CONSISTENCY. DTSBD343
|
|
00509 IF L054-OK-88 DTSBD343
|
|
00510 NEXT SENTENCE DTSBD343
|
|
00511 ELSE DTSBD343
|
|
00512 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00513 GO TO P1000-EXIT. DTSBD343
|
|
00514 DTSBD343
|
|
00515 IF L054-UI-PEN-RATE-NO-88 OR L054-UI-PEN-RATE-INEFF-88 DTSBD343
|
|
00516 IF L054-UI-CALC-RATE = MRTE-UI-RATE DTSBD343
|
|
00517 NEXT SENTENCE DTSBD343
|
|
00518 ELSE DTSBD343
|
|
00519 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00520 GO TO P1000-EXIT DTSBD343
|
|
00521 ELSE DTSBD343
|
|
00522 IF L054-UI-PEN-RATE-YES-88 DTSBD343
|
|
00523 IF L054-UI-PEN-RATE = MRTE-UI-RATE DTSBD343
|
|
00524 NEXT SENTENCE DTSBD343
|
|
00525 ELSE DTSBD343
|
|
00526 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00527 GO TO P1000-EXIT DTSBD343
|
|
00528 ELSE DTSBD343
|
|
00529 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343
|
|
00530 GO TO P1000-EXIT. DTSBD343
|
|
00531 P1000-EXIT. DTSBD343
|
|
00532 EXIT. DTSBD343
|
|
00533 DTSBD343
|
|
00534 P2000-UPDATE-MRTE. DTSBD343
|
|
00535 SET MRTE-RATE-TYPE-FINAL-88 TO TRUE. DTSBD343
|
|
00536 MOVE LBCM-CURR-MAIL-DATE TO MRTE-NOTICE-DATE. DTSBD343
|
|
00537 DTSBD343
|
|
00538 MOVE MRTE-REC TO MSKL-REC. DTSBD343
|
|
00539 PERFORM S910-REWRITE THRU S910-EXIT. DTSBD343
|
|
00540 DTSBD343
|
|
00541 P2000-EXIT. DTSBD343
|
|
00542 EXIT. DTSBD343
|
|
00543 EJECT DTSBD343
|
|
00544 S001-FROM-FED-8. DTSBD343
|
|
00545 SET L001-FROM-FED-8 TO TRUE. DTSBD343
|
|
00546 GO TO S001-DATE. DTSBD343
|
|
00547 DTSBD343
|
|
00548 S001-FROM-ABS-DAY. DTSBD343
|
|
00549 SET L001-FROM-ABS-DAY TO TRUE. DTSBD343
|
|
00550 GO TO S001-DATE. DTSBD343
|
|
00551 DTSBD343
|
|
00552 S001-DATE. DTSBD343
|
|
00553 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD343
|
|
00554 S001-EXIT. DTSBD343
|
|
00555 EXIT. DTSBD343
|
|
00556 SKIP3 DTSBD343
|
|
00557 S004-FROM-5. DTSBD343
|
|
00558 SET L004-FROM-5 TO TRUE. DTSBD343
|
|
00559 GO TO S004-QTR. DTSBD343
|
|
00560 DTSBD343
|
|
00561 S004-QTR. DTSBD343
|
|
00562 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD343
|
|
00563 S004-EXIT. DTSBD343
|
|
00564 EXIT. DTSBD343
|
|
00565 SKIP3 DTSBD343
|
|
00566 S006-FROM-QTR. DTSBD343
|
|
00567 SET L006-FROM-QTR TO TRUE. DTSBD343
|
|
00568 GO TO S006-RATING-YEAR. DTSBD343
|
|
00569 DTSBD343
|
|
00570 S006-RATING-YEAR. DTSBD343
|
|
00571 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBD343
|
|
00572 S006-EXIT. DTSBD343
|
|
00573 EXIT. DTSBD343
|
|
00574 SKIP3 DTSBD343
|
|
00575 S054-RATE-LOOKUP-YES. DTSBD343
|
|
00576 SET L054-RATE-LOOKUP-YES-88 TO TRUE. DTSBD343
|
|
00577 GO TO S054-RATE-DETER. DTSBD343
|
|
00578 DTSBD343
|
|
00579 S054-RATE-DETER. DTSBD343
|
|
00580 CALL 'DTSBU054' USING L054-LINK-AREA DTSBD343
|
|
00581 MRCT-REC. DTSBD343
|
|
00582 S054-EXIT. DTSBD343
|
|
00583 EXIT. DTSBD343
|
|
00584 SKIP3 DTSBD343
|
|
00585 S055-FROM-EFF-YRQ. DTSBD343
|
|
00586 SET L055-FROM-EFF-YRQ-88 TO TRUE. DTSBD343
|
|
00587 GO TO S055-EXP-PERIOD-DATES. DTSBD343
|
|
00588 DTSBD343
|
|
00589 S055-EXP-PERIOD-DATES. DTSBD343
|
|
00590 CALL 'DTSBU055' USING L055-LINK-AREA. DTSBD343
|
|
00591 S055-EXIT. DTSBD343
|
|
00592 EXIT. DTSBD343
|
|
00593 SKIP3 DTSBD343
|
|
00594 S111-LOOKUP-UI-TAX-MAILING. DTSBD343
|
|
00595 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBD343
|
|
00596 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD343
|
|
00597 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD343
|
|
00598 GO TO S111-LOOKUP-ADDRESS. DTSBD343
|
|
00599 DTSBD343
|
|
00600 S111-LOOKUP-ADDRESS. DTSBD343
|
|
00601 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD343
|
|
00602 S111-EXIT. DTSBD343
|
|
00603 EXIT. DTSBD343
|
|
00604 SKIP3 DTSBD343
|
|
00605 S112-FORMAT-TAD-ADDR. DTSBD343
|
|
00606 SET L112-TAD-ADDR-88 TO TRUE. DTSBD343
|
|
00607 SET L112-ANCHOR-LAST-88 TO TRUE. DTSBD343
|
|
00608 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBD343
|
|
00609 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBD343
|
|
00610 GO TO S112-FORMAT-ADDRESS. DTSBD343
|
|
00611 DTSBD343
|
|
00612 S112-FORMAT-ADDRESS. DTSBD343
|
|
00613 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBD343
|
|
00614 S112-EXIT. DTSBD343
|
|
00615 EXIT. DTSBD343
|
|
00616 SKIP3 DTSBD343
|
|
00617 S910-READ. DTSBD343
|
|
00618 SET L910-READ-88 TO TRUE. DTSBD343
|
|
00619 GO TO S910-MSTR-IO. DTSBD343
|
|
00620 DTSBD343
|
|
00621 S910-START-BROWSE. DTSBD343
|
|
00622 SET L910-START-BROWSE-88 TO TRUE. DTSBD343
|
|
00623 GO TO S910-MSTR-IO. DTSBD343
|
|
00624 DTSBD343
|
|
00625 S910-READ-NEXT. DTSBD343
|
|
00626 SET L910-READ-NEXT-88 TO TRUE. DTSBD343
|
|
00627 GO TO S910-MSTR-IO. DTSBD343
|
|
00628 DTSBD343
|
|
00629 S910-REWRITE. DTSBD343
|
|
00630 SET L910-REWRITE-88 TO TRUE. DTSBD343
|
|
00631 GO TO S910-MSTR-IO. DTSBD343
|
|
00632 DTSBD343
|
|
00633 S910-MSTR-IO. DTSBD343
|
|
00634 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD343
|
|
00635 MSKL-REC. DTSBD343
|
|
00636 S910-EXIT. DTSBD343
|
|
00637 EXIT. DTSBD343
|
|
00638 SKIP3 DTSBD343
|
|
00639 *S931-READ. DTSBD343
|
|
00640 *****SET L931-READ-88 TO TRUE. DTSBD343
|
|
00641 *****GO TO S931-REF-I. DTSBD343
|
|
00642 DTSBD343
|
|
00643 *S931-START-BROWSE. DTSBD343
|
|
00644 *****SET L931-START-BROWSE-88 TO TRUE. DTSBD343
|
|
00645 *****GO TO S931-REF-I. DTSBD343
|
|
00646 DTSBD343
|
|
00647 *S931-READ-NEXT. DTSBD343
|
|
00648 *****SET L931-READ-NEXT-88 TO TRUE. DTSBD343
|
|
00649 *****GO TO S931-REF-I. DTSBD343
|
|
00650 DTSBD343
|
|
00651 *S931-REF-I. DTSBD343
|
|
00652 *****CALL 'DTSBU931' USING L931-LINK-AREA DTSBD343
|
|
00653 ***************************FSKL-REC. DTSBD343
|
|
00654 *S931-EXIT. DTSBD343
|
|
00655 *****EXIT. DTSBD343
|
|
00656 SKIP3 DTSBD343
|
|
00657 S946-WRITE-R503. DTSBD343
|
|
00658 CALL 'DTSBU946' USING R503-REC. DTSBD343
|
|
00659 GO TO S946-EXIT. DTSBD343
|
|
00660 DTSBD343
|
|
00661 S946-WRITE-R504. DTSBD343
|
|
00662 CALL 'DTSBU946' USING R504-REC. DTSBD343
|
|
00663 GO TO S946-EXIT. DTSBD343
|
|
00664 DTSBD343
|
|
00665 S946-EXIT. DTSBD343
|
|
00666 EXIT. DTSBD343
|
|
00667 SKIP3 DTSBD343
|
|
00668 S999-ABEND. DTSBD343
|
|
00669 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD343
|
|
00670 S999-EXIT. DTSBD343
|
|
00671 EXIT. DTSBD343
|