00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR502. DTSBR502 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV014 00004 MODIFED BY TRW S&ITG FEB 1999 DTSBR502 00005 DATE-WRITTEN. AUGUST 1994. DTSBR502 00006 DATE-COMPILED. DTSBR502 00007 SKIP3 DTSBR502 00008 ***** DTSBR502 00009 * CALLING SEQUENCE: DTSBD341 CREATES IR502 RECORDS. DTSBR502 00010 * DTSBD800 CALLS DTSBR502, WHICH DTSBR502 00011 * READS IR502 AND PRODUCES THE LIST. DTSBR502 00012 * DTSBR502 00013 * FUNCTION: RATE DISCREPANCY LIST. DTSBR502 00014 * DTSBR502 00015 * DTSBR502 00016 * MODIFICATION HISTORY: DTSBR502 00017 * DTSBR502 00018 * 08-22-94 INITIAL DEVELOPMENT DTSBR502 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR502 00020 * DTSBR502 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR502 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR502 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR502 00024 * DTSBR502 00025 * DTSBR502 00026 * DESCRIPTION: DTSBR502 00027 * DTSBR502 00028 * THIS MODULE DISPLAYS ANY DESCREPANCIES BETWEEN RATES DTSBR502 00029 * ASSIGNED TO ACCOUNTS AND THEIR CHARACTERISTICS. DTSBR502 00030 * DTSBR502 00031 * THIS IS AN "AT LEAST ONCE" MODULE. DTSBR502 00032 * DTSBR502 00033 * DTSBR502 00034 * RECORDS READ: DTSBR502 00035 * DTSBR502 00036 * NONE. DTSBR502 00037 * DTSBR502 00038 * DTSBR502 00039 * PRINTED OUTPUTS: DTSBR502 00040 * DTSBR502 00041 * 502R1 RATE DISCREPANCY LIST DTSBR502 00042 * DTSBR502 00043 * DTSBR502 00044 * RECORDS WRITTEN: DTSBR502 00045 * DTSBR502 00046 * NONE. DTSBR502 00047 * DTSBR502 00048 * DTSBR502 00049 * MODULES CALLED: DTSBR502 00050 * DTSBR502 00051 * DTSBU056 RATE DISPLAY MODULE DTSBR502 00052 * DTSBR502 00053 * DTSBR502 00054 ***** DTSBR502 00055 EJECT DTSBR502 00056 ENVIRONMENT DIVISION. DTSBR502 00057 DTSBR502 00058 CONFIGURATION SECTION. DTSBR502 00059 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR502 00060 DTSBR502 00061 INPUT-OUTPUT SECTION. DTSBR502 00062 DTSBR502 00063 FILE-CONTROL. DTSBR502 00064 SELECT PRT-FILE ASSIGN TO RPT502R1. DTSBR502 00065 DTSBR502 00066 DATA DIVISION. DTSBR502 00067 DTSBR502 00068 FILE SECTION. DTSBR502 00069 DTSBR502 00070 FD PRT-FILE DTSBR502 00071 RECORDING MODE IS F. DTSBR502 00072 01 REPORT-LISTING1 PIC X(133). DTSBR502 00073 DTSBR502 00074 WORKING-STORAGE SECTION. DTSBR502 000745 77 PAN-VALET PICTURE X(24) VALUE '014DTSBR502 01/29/01'. DTSBR502 00075 SKIP3 DTSBR502 00076 01 WRK-AREA. DTSBR502 00077 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +502.DTSBR502 00078 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR502 00079 DTSBR502 00080 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR502 00081 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR502 00082 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR502 00083 DTSBR502 00084 01 L056-LINK-AREA. DTSBR502 00085 ++INCLUDE DTSIL056 DTSBR502 00086 EJECT DTSBR502 00087 DTSBR502 00088 01 PAGE-HEADING. DTSBR502 00089 05 HDR-LINE-1. DTSBR502 00090 10 FILLER PIC X(01) VALUE SPACE. DTSBR502 00091 10 FILLER PIC X(05) DTSBR502 00092 VALUE '502R1'. DTSBR502 00093 10 FILLER PIC X(35) VALUE SPACES. DTSBR502 00094 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR502 00095 10 FILLER PIC X(28) VALUE SPACES. DTSBR502 00096 10 FILLER PIC X(05) DTSBR502 00097 VALUE 'DATE:'. DTSBR502 00098 10 FILLER PIC X(01) VALUE SPACE. DTSBR502 00099 10 HDR-SYS-DATE PIC X(08). DTSBR502 00100 05 HDR-LINE-2. DTSBR502 00101 10 FILLER PIC X(41) VALUE SPACES. DTSBR502 00102 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR502 00103 10 FILLER PIC X(28) VALUE SPACES. DTSBR502 00104 10 FILLER PIC X(05) DTSBR502 00105 VALUE 'TIME:'. DTSBR502 00106 10 FILLER PIC X(01) VALUE SPACE. DTSBR502 00107 10 HDR-SYS-TIME PIC X(08). DTSBR502 00108 05 HDR-LINE-3. DTSBR502 00109 10 FILLER PIC X(01) VALUE SPACE. DTSBR502 00110 10 FILLER PIC X(34) DTSBR502 00111 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR502 00112 10 FILLER PIC X(20) VALUE SPACES. DTSBR502 00113 10 FILLER PIC X(23) DTSBR502 00114 VALUE ' RATE DISCREPANCY LIST '. DTSBR502 00115 10 FILLER PIC X(41) VALUE SPACES. DTSBR502 00116 10 FILLER PIC X(05) DTSBR502 00117 VALUE 'PAGE:'. DTSBR502 00118 10 FILLER PIC X(03) VALUE SPACES. DTSBR502 00119 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR502 00120 05 HDR-LINE-4 PIC X(133) VALUE SPACES. DTSBR502 00121 05 HDR-LINE-5. DTSBR502 00122 10 FILLER PIC X(56) VALUE SPACES. DTSBR502 00123 10 FILLER PIC X(10) DTSBR502 00124 VALUE ' RATE'. DTSBR502 00125 05 HDR-LINE-6. DTSBR502 00126 10 FILLER PIC X(56) VALUE SPACES. DTSBR502 00127 10 FILLER PIC X(10) DTSBR502 00128 VALUE 'EFFECTIVE'. DTSBR502 00129 05 HDR-LINE-7. DTSBR502 00130 10 FILLER PIC X(01) VALUE SPACE. DTSBR502 00131 10 FILLER PIC X(26) DTSBR502 00132 VALUE 'EMP NO PRIMARY NAME'. DTSBR502 00133 10 FILLER PIC X(29) VALUE SPACES. DTSBR502 00134 10 FILLER PIC X(37) DTSBR502 00135 VALUE ' QUARTER RATE MESSAGE'. DTSBR502 00136 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR502 00137 DTSBR502 00138 01 NO-REPORT-LINE. DTSBR502 00139 05 NO-RPT-LINE-5. DTSBR502 00140 10 FILLER PIC X(24) VALUE SPACES. DTSBR502 00141 10 FILLER PIC X(22) DTSBR502 00142 VALUE 'NO DISCREPANCIES FOUND'. DTSBR502 00143 DTSBR502 00144 01 DETAIL-LINE1. DTSBR502 00145 05 DTL1-LINE-2. DTSBR502 00146 10 FILLER PIC X(01) VALUE SPACE. DTSBR502 00147 10 DTL1-EMP-NO PIC 999B999. DTSBR502 00148 10 FILLER PIC X(02) VALUE SPACES. DTSBR502 00149 10 DTL1-PRIMARY-NAME PIC X(40). DTSBR502 00150 10 FILLER PIC X(07) VALUE SPACES. DTSBR502 00151 10 WS-EFF-QTR-UNPACK PIC 9999/9. DTSBR502 00152 10 FILLER PIC X(06) VALUE SPACES. DTSBR502 00153 10 WS-DISP-RATE PIC X(07). DTSBR502 00154 10 FILLER PIC X(03) VALUE SPACES. DTSBR502 00155 10 DTL1-MSG-TEXT-1 PIC X(50) VALUE SPACES. DTSBR502 00156 DTSBR502 00157 01 DETAIL-LINE2. DTSBR502 00158 05 DTL2-LINE-1. DTSBR502 00159 10 FILLER PIC X(79) VALUE SPACES. DTSBR502 00160 10 DTL2-MSG-TEXT-2 PIC X(50) VALUE SPACES. DTSBR502 00161 DTSBR502 00162 01 CONTROL-FOOTING-FINAL. DTSBR502 00163 05 CFF-LINE-3. DTSBR502 00164 10 FILLER PIC X(26) VALUE SPACES. DTSBR502 00165 10 FILLER PIC X(17) DTSBR502 00166 VALUE '*** END OF REPORT'. DTSBR502 00167 EJECT DTSBR502 00168 LINKAGE SECTION. DTSBR502 00169 DTSBR502 00170 01 LRCM-LINK-AREA. DTSBR502 00171 ++INCLUDE DTSILRCM DTSBR502 00172 EJECT DTSBR502 00173 01 R502-REC. DTSBR502 00174 ++INCLUDE DTSIR502 DTSBR502 00175 EJECT DTSBR502 00176 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR502 00177 R502-REC. DTSBR502 00178 DTSBR502 00179 IF FIRST-TIME-IND = 'Y' DTSBR502 00180 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR502 00181 MOVE 'N' TO FIRST-TIME-IND DTSBR502 00182 IF LRCM-EOR-88 DTSBR502 00183 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR502 00184 WRITE REPORT-LISTING1 FROM NO-RPT-LINE-5 AFTER 5. DTSBR502 00185 DTSBR502 00186 IF LRCM-EOR-88 DTSBR502 00187 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR502 00188 ELSE DTSBR502 00189 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR502 00190 DTSBR502 00191 GOBACK. DTSBR502 00192 EJECT DTSBR502 00193 I1000-INITIATE. DTSBR502 00194 DTSBR502 00195 OPEN OUTPUT PRT-FILE. DTSBR502 00196 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR502 00197 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR502 00198 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR502 00199 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR502 00200 MOVE SPACES TO REPORT-LISTING1. DTSBR502 00201 DTSBR502 00202 I1000-EXIT. DTSBR502 00203 EXIT. DTSBR502 00204 EJECT DTSBR502 00205 P1000-PROCESS. DTSBR502 00206 DTSBR502 00207 MOVE R502-EFFECTIVE-QTR TO WS-EFF-QTR-UNPACK. DTSBR502 00208 DTSBR502 00209 IF R502-NO-RATE-88 DTSBR502 00210 MOVE 'NONE' TO WS-DISP-RATE DTSBR502 00211 ELSE DTSBR502 00212 MOVE R502-RATE TO L056-RATE DTSBR502 00213 SET L056-DISP1-LEFT-88 TO TRUE DTSBR502 00214 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR502 00215 MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR502 00216 DTSBR502 00217 MOVE R502-EMP-NO TO DTL1-EMP-NO. DTSBR502 00218 MOVE R502-PRIMARY-NAME TO DTL1-PRIMARY-NAME. DTSBR502 00219 MOVE R502-MSG-TEXT-1 TO DTL1-MSG-TEXT-1. DTSBR502 00220 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR502 00221 WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2. DTSBR502 00222 ADD +2 TO WS-LINE-CNT2. DTSBR502 00223 DTSBR502 00224 IF R502-MSG-TEXT-2 NOT = SPACES DTSBR502 00225 MOVE R502-MSG-TEXT-1 TO DTL2-MSG-TEXT-2 DTSBR502 00226 WRITE REPORT-LISTING1 FROM DTL2-LINE-1 AFTER 1 DTSBR502 00227 ADD +1 TO WS-LINE-CNT2. DTSBR502 00228 DTSBR502 00229 P1000-EXIT. DTSBR502 00230 EXIT. DTSBR502 00231 EJECT DTSBR502 00232 DTSBR502 00233 P2000-PRINT-HEADER. DTSBR502 00234 DTSBR502 00235 IF WS-LINE-CNT GREATER 58 OR DTSBR502 00236 WS-LINE-CNT2 GREATER 58 DTSBR502 00237 MOVE +0 TO WS-LINE-CNT DTSBR502 00238 MOVE +0 TO WS-LINE-CNT2 DTSBR502 00239 ADD +1 TO WS-PAGE-CNT DTSBR502 00240 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR502 00241 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR502 00242 AFTER TOP-OF-PAGE DTSBR502 00243 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR502 00244 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR502 00245 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR502 00246 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR502 00247 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR502 00248 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR502 00249 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR502 00250 ADD +8 TO WS-LINE-CNT2. DTSBR502 00251 DTSBR502 00252 P2000-EXIT. DTSBR502 00253 EXIT. DTSBR502 00254 DTSBR502 00255 T1000-TERMINATE. DTSBR502 00256 DTSBR502 00257 IF WS-LINE-CNT2 > 52 DTSBR502 00258 ADD +8 TO WS-LINE-CNT2 DTSBR502 00259 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR502 00260 END-IF. DTSBR502 00261 DTSBR502 00262 WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3. DTSBR502 00263 CLOSE PRT-FILE. DTSBR502 00264 DTSBR502 00265 T1000-EXIT. DTSBR502 00266 EXIT. DTSBR502 00267 EJECT DTSBR502 00268 S056-RATE-DISPLAY. DTSBR502 00269 DTSBR502 00270 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR502 00271 DTSBR502 00272 S056-EXIT. DTSBR502 00273 EXIT. DTSBR502 00274 DTSBR502 00275 *S999-ABEND. DTSBR502 00276 * DTSBR502 00277 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR502 00278 * DTSBR502 00279 *S999-EXIT. DTSBR502 00280 * EXIT. DTSBR502 00281 DTSBR502