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