00001 IDENTIFICATION DIVISION. 11/27/01 00002 PROGRAM-ID. DTSBR507. DTSBR507 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV009 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR507 00005 DATE-COMPILED. DTSBR507 00006 DTSBR507 00007 ***** DTSBR507 00008 * DTSBR507 00009 * CALLING SEQUENCE: DTSBD710 WRITES DTSIR507 RECORDS DTSBR507 00010 * DTSBR507 READS DTSIR507 RECORDS DTSBR507 00011 * TO PRODUCE THE RATE CUTOFF ERROR REPORT. DTSBR507 00012 * DTSBR507 00013 * FUNCTION: RATING EXPERIENCE CUTOFF ERROR LIST. DTSBR507 00014 * DTSBR507 00015 * DTSBR507 00016 * MODIFICATION HISTORY: DTSBR507 00017 * DTSBR507 00018 * 12-17-94 INITIAL DEVELOPMENT DTSBR507 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR507 00020 * DTSBR507 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR507 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR507 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR507 00024 * DTSBR507 00025 * DTSBR507 00026 * DESCRIPTION: DTSBR507 00027 * DTSBR507 00028 * THIS MODULE REPORTS ON ANY ERROR CONDITIONS THAT OCCUR DTSBR507 00029 * IN THE CREATION OF RATE CUTOFF RECORDS FOR THE YEARLY DTSBR507 00030 * EXPERIENCE RATING RUN. DTSBR507 00031 * DTSBR507 00032 * THIS IS AN "AT LEAST ONCE" MODULE. DTSBR507 00033 * DTSBR507 00034 * DTSBR507 00035 * RECORDS READ: DTSBR507 00036 * DTSBR507 00037 * NONE. DTSBR507 00038 * DTSBR507 00039 * DTSBR507 00040 * PRINTED OUTPUTS: DTSBR507 00041 * DTSBR507 00042 * 507R1 RATING EXPERIENCE CUTOFF ERROR LIST DTSBR507 00043 * DTSBR507 00044 * DTSBR507 00045 * RECORDS WRITTEN: DTSBR507 00046 * DTSBR507 00047 * NONE. DTSBR507 00048 * DTSBR507 00049 * DTSBR507 00050 * MODULES CALLED: DTSBR507 00051 * DTSBR507 00052 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR507 00053 * DTSBR507 00054 * DTSBR507 00055 ***** DTSBR507 00056 EJECT DTSBR507 00057 ENVIRONMENT DIVISION. DTSBR507 00058 DTSBR507 00059 CONFIGURATION SECTION. DTSBR507 00060 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR507 00061 DTSBR507 00062 INPUT-OUTPUT SECTION. DTSBR507 00063 DTSBR507 00064 FILE-CONTROL. DTSBR507 00065 SELECT PRT-FILE ASSIGN TO RPT507R1. DTSBR507 00066 DTSBR507 00067 DATA DIVISION. DTSBR507 00068 DTSBR507 00069 FILE SECTION. DTSBR507 00070 DTSBR507 00071 FD PRT-FILE DTSBR507 00072 RECORDING MODE IS F. DTSBR507 00073 01 REPORT-LISTING1 PIC X(133). DTSBR507 00074 DTSBR507 00075 WORKING-STORAGE SECTION. DTSBR507 000755 77 PAN-VALET PICTURE X(24) VALUE '009DTSBR507 11/27/01'. DTSBR507 00076 DTSBR507 00077 01 WRK-AREA. DTSBR507 00078 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +507.DTSBR507 00079 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR507 00080 DTSBR507 00081 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR507 00082 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR507 00083 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR507 00084 DTSBR507 00085 EJECT DTSBR507 00086 01 L001-LINK-AREA. DTSBR507 00087 ++INCLUDE DTSIL001 DTSBR507 00088 EJECT DTSBR507 00089 01 L004-LINK-AREA. DTSBR507 00090 ++INCLUDE DTSIL004 DTSBR507 00091 EJECT DTSBR507 00092 DTSBR507 00093 01 PAGE-HEADING. DTSBR507 00094 05 HDR-LINE-1. DTSBR507 00095 10 FILLER PIC X(01) VALUE SPACE. DTSBR507 00096 10 FILLER PIC X(05) DTSBR507 00097 VALUE '507R1'. DTSBR507 00098 10 FILLER PIC X(35) VALUE SPACES. DTSBR507 00099 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR507 00100 10 FILLER PIC X(28) VALUE SPACES. DTSBR507 00101 10 FILLER PIC X(05) DTSBR507 00102 VALUE 'DATE:'. DTSBR507 00103 10 FILLER PIC X(01) VALUE SPACE. DTSBR507 00104 10 HDR-SYS-DATE PIC X(08). DTSBR507 00105 05 HDR-LINE-2. DTSBR507 00106 10 FILLER PIC X(41) VALUE SPACES. DTSBR507 00107 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR507 00108 10 FILLER PIC X(28) VALUE SPACES. DTSBR507 00109 10 FILLER PIC X(05) DTSBR507 00110 VALUE 'TIME:'. DTSBR507 00111 10 FILLER PIC X(01) VALUE SPACE. DTSBR507 00112 10 HDR-SYS-TIME PIC X(08). DTSBR507 00113 05 HDR-LINE-3. DTSBR507 00114 10 FILLER PIC X(01) VALUE SPACE. DTSBR507 00115 10 FILLER PIC X(33) DTSBR507 00116 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR507 00117 10 FILLER PIC X(85) VALUE SPACES. DTSBR507 00118 10 FILLER PIC X(05) DTSBR507 00119 VALUE 'PAGE:'. DTSBR507 00120 10 FILLER PIC X(03) VALUE SPACES. DTSBR507 00121 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR507 00122 05 HDR-LINE-4. DTSBR507 00123 10 FILLER PIC X(12) VALUE SPACES. DTSBR507 00124 10 FILLER PIC X(20) DTSBR507 00125 VALUE ' '. DTSBR507 00126 10 FILLER PIC X(16) VALUE SPACES. DTSBR507 00127 10 FILLER PIC X(35) DTSBR507 00128 VALUE 'RATING EXPERIENCE CUTOFF ERROR LIST'. DTSBR507 00129 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR507 00130 05 HDR-LINE-6. DTSBR507 00131 10 FILLER PIC X(01) VALUE SPACE. DTSBR507 00132 10 FILLER PIC X(20) DTSBR507 00133 VALUE ' RATE EXP CUTOFF: '. DTSBR507 00134 10 WS-EXP-CUTOFF-DATE PIC X(08). DTSBR507 00135 05 HDR-LINE-7. DTSBR507 00136 10 FILLER PIC X(01) VALUE SPACE. DTSBR507 00137 10 FILLER PIC X(20) DTSBR507 00138 VALUE 'RATE EFFECTIVE QTR: '. DTSBR507 00139 10 WS-EFF-QTR PIC X(04). DTSBR507 00140 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR507 00141 05 HDR-LINE-9. DTSBR507 00142 10 FILLER PIC X(14) VALUE SPACES. DTSBR507 00143 10 FILLER PIC X(06) DTSBR507 00144 VALUE 'EMP NO'. DTSBR507 00145 10 FILLER PIC X(08) VALUE SPACES. DTSBR507 00146 10 FILLER PIC X(13) DTSBR507 00147 VALUE 'PRIMARY NAME'. DTSBR507 00148 10 FILLER PIC X(32) VALUE SPACES. DTSBR507 00149 10 FILLER PIC X(13) DTSBR507 00150 VALUE 'ERROR MESSAGE'. DTSBR507 00151 DTSBR507 00152 01 NO-REPORT-LINE. DTSBR507 00153 05 NO-RPT-LINE-5. DTSBR507 00154 10 FILLER PIC X(24) VALUE SPACES. DTSBR507 00155 10 FILLER PIC X(15) DTSBR507 00156 VALUE 'NO ERRORS FOUND'. DTSBR507 00157 DTSBR507 00158 01 DETAIL-LINE. DTSBR507 00159 05 DTL-LINE-2. DTSBR507 00160 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00161 10 FILLER PIC X(04) DTSBR507 00162 VALUE 'SUCC'. DTSBR507 00163 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00164 10 DTL-SUCC-EMP-NO PIC 999B999. DTSBR507 00165 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00166 10 DTL-SUCC-PRIMARY-NAME PIC X(40). DTSBR507 00167 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00168 10 DTL-MSG-TEXT-1 PIC X(50). DTSBR507 00169 DTSBR507 00170 05 DTL-LINE-3. DTSBR507 00171 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00172 10 FILLER PIC X(04) DTSBR507 00173 VALUE 'PRED'. DTSBR507 00174 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00175 10 DTL-PRED-EMP-NO PIC 999B999. DTSBR507 00176 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00177 10 DTL-PRED-PRIMARY-NAME PIC X(40). DTSBR507 00178 10 FILLER PIC X(05) VALUE SPACES. DTSBR507 00179 10 DTL-MSG-TEXT-2 PIC X(50). DTSBR507 00180 DTSBR507 00181 01 CONTROL-FOOTING-FINAL. DTSBR507 00182 05 CFF-LINE-4. DTSBR507 00183 10 FILLER PIC X(26) VALUE SPACES. DTSBR507 00184 10 FILLER PIC X(17) DTSBR507 00185 VALUE '*** END OF REPORT'. DTSBR507 00186 EJECT DTSBR507 00187 LINKAGE SECTION. DTSBR507 00188 DTSBR507 00189 01 LRCM-LINK-AREA. DTSBR507 00190 ++INCLUDE DTSILRCM DTSBR507 00191 EJECT DTSBR507 00192 01 R507-REC. DTSBR507 00193 ++INCLUDE DTSIR507 DTSBR507 00194 EJECT DTSBR507 00195 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR507 00196 R507-REC. DTSBR507 00197 IF FIRST-TIME-IND = 'Y' DTSBR507 00198 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR507 00199 MOVE 'N' TO FIRST-TIME-IND DTSBR507 00200 IF LRCM-EOR-88 DTSBR507 00201 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR507 00202 WRITE REPORT-LISTING1 FROM NO-RPT-LINE-5 AFTER 5. DTSBR507 00203 DTSBR507 00204 IF LRCM-EOR-88 DTSBR507 00205 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR507 00206 ELSE DTSBR507 00207 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR507 00208 DTSBR507 00209 GOBACK. DTSBR507 00210 EJECT DTSBR507 00211 I1000-INITIATE. DTSBR507 00212 DTSBR507 00213 OPEN OUTPUT PRT-FILE. DTSBR507 00214 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR507 00215 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR507 00216 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR507 00217 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR507 00218 MOVE SPACES TO REPORT-LISTING1. DTSBR507 00219 DTSBR507 00220 IF LRCM-EOR-88 DTSBR507 00221 MOVE SPACES TO WS-EXP-CUTOFF-DATE DTSBR507 00222 WS-EFF-QTR DTSBR507 00223 ELSE DTSBR507 00224 MOVE R507-EXP-CUTOFF-DATE TO L001-FED-8-DATE-9 DTSBR507 00225 SET L001-FROM-FED-8 TO TRUE DTSBR507 00226 PERFORM S001-DATE THRU S001-EXIT DTSBR507 00227 MOVE L001-SLASH-DATE TO WS-EXP-CUTOFF-DATE DTSBR507 00228 PERFORM I1100-PICKUP-YRQ THRU I1100-EXIT. DTSBR507 00229 DTSBR507 00230 I1000-EXIT. DTSBR507 00231 EXIT. DTSBR507 00232 EJECT DTSBR507 00233 I1100-PICKUP-YRQ. DTSBR507 00234 IF LRCM-PICKUP-YRQ = R507-EFF-QTR DTSBR507 00235 MOVE 'PU ' TO WS-EFF-QTR DTSBR507 00236 ELSE DTSBR507 00237 MOVE R507-EFF-QTR TO L004-QTR-5-9 DTSBR507 00238 SET L004-FROM-5 TO TRUE DTSBR507 00239 PERFORM S004-QUARTER THRU S004-EXIT DTSBR507 00240 MOVE L004-SLASH-QTR TO WS-EFF-QTR. DTSBR507 00241 I1100-EXIT. DTSBR507 00242 EXIT. DTSBR507 00243 EJECT DTSBR507 00244 P1000-PROCESS. DTSBR507 00245 DTSBR507 00246 MOVE R507-SUCC-EMP-NO TO DTL-SUCC-EMP-NO. DTSBR507 00247 MOVE R507-SUCC-PRIMARY-NAME TO DTL-SUCC-PRIMARY-NAME. DTSBR507 00248 MOVE R507-MSG-TEXT-1 TO DTL-MSG-TEXT-1. DTSBR507 00249 MOVE R507-PRED-EMP-NO TO DTL-PRED-EMP-NO. DTSBR507 00250 MOVE R507-PRED-PRIMARY-NAME TO DTL-PRED-PRIMARY-NAME. DTSBR507 00251 MOVE R507-MSG-TEXT-2 TO DTL-MSG-TEXT-2. DTSBR507 00252 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR507 00253 WRITE REPORT-LISTING1 FROM DTL-LINE-2 AFTER 2. DTSBR507 00254 WRITE REPORT-LISTING1 FROM DTL-LINE-3 AFTER 1. DTSBR507 00255 ADD +3 TO WS-LINE-CNT2. DTSBR507 00256 DTSBR507 00257 P1000-EXIT. DTSBR507 00258 EXIT. DTSBR507 00259 EJECT DTSBR507 00260 DTSBR507 00261 P2000-PRINT-HEADER. DTSBR507 00262 DTSBR507 00263 IF WS-LINE-CNT GREATER 58 OR DTSBR507 00264 WS-LINE-CNT2 GREATER 58 DTSBR507 00265 MOVE +0 TO WS-LINE-CNT DTSBR507 00266 MOVE +0 TO WS-LINE-CNT2 DTSBR507 00267 ADD +1 TO WS-PAGE-CNT DTSBR507 00268 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR507 00269 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR507 00270 AFTER TOP-OF-PAGE DTSBR507 00271 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR507 00272 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR507 00273 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR507 00274 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR507 00275 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR507 00276 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR507 00277 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR507 00278 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR507 00279 ADD +9 TO WS-LINE-CNT2. DTSBR507 00280 DTSBR507 00281 P2000-EXIT. DTSBR507 00282 EXIT. DTSBR507 00283 DTSBR507 00284 T1000-TERMINATE. DTSBR507 00285 DTSBR507 00286 IF WS-LINE-CNT2 > 52 DTSBR507 00287 ADD +8 TO WS-LINE-CNT2 DTSBR507 00288 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR507 00289 END-IF. DTSBR507 00290 DTSBR507 00291 WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4. DTSBR507 00292 CLOSE PRT-FILE. DTSBR507 00293 DTSBR507 00294 T1000-EXIT. DTSBR507 00295 EXIT. DTSBR507 00296 EJECT DTSBR507 00297 S001-DATE. DTSBR507 00298 DTSBR507 00299 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR507 00300 DTSBR507 00301 S001-EXIT. DTSBR507 00302 EXIT. DTSBR507 00303 DTSBR507 00304 S004-QUARTER. DTSBR507 00305 DTSBR507 00306 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR507 00307 DTSBR507 00308 S004-EXIT. DTSBR507 00309 EXIT. DTSBR507 00310 DTSBR507 00311 *S999-ABEND. DTSBR507 00312 * DTSBR507 00313 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR507 00314 * DTSBR507 00315 *S999-EXIT. DTSBR507 00316 * EXIT. DTSBR507 00317 DTSBR507