00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR907. DTSBR907 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV008 00004 DATE-WRITTEN. JULY 1994. DTSBR907 00005 DATE-COMPILED. DTSBR907 00006 DTSBR907 00007 ***** DTSBR907 00008 * DTSBR907 00009 * CALLING SEQUENCE: STANDARD PROGRAM THAT FLAGS DTSBR907 00010 * UNUSUAL CONDITIONS. MODULE DTSBR907 00011 * IS CALLED BY MULTIPLE PROGRAMS. DTSBR907 00012 * DTSBR907 00013 * FUNCTION: UNUSUAL CONDITIONS ENCOUNTERED REPORT. DTSBR907 00014 * DTSBR907 00015 * DTSBR907 00016 * MODIFICATION HISTORY: DTSBR907 00017 * DTSBR907 00018 * 07-24-94 INITIAL DEVELOPMENT DTSBR907 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR907 00020 * DTSBR907 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR907 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR907 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR907 00024 * DTSBR907 00025 * DTSBR907 00026 * DESCRIPTION: DTSBR907 00027 * DTSBR907 00028 * FOR EACH REPORT RECORD PASSED TO DTSBR907, WRITE ONE DTSBR907 00029 * DETAIL LINE ON EACH OF TWO REPORTS. THESE TWO REPORTS DTSBR907 00030 * ARE IDENTICAL EXCEPT FOR ROUTING INFORMATION. THEY DTSBR907 00031 * REPORT ON UNUSUAL CONDITIONS ENCOUNTERED DURING TAX DTSBR907 00032 * SYSTEM BATCH PROCESSING. DTSBR907 00033 * DTSBR907 00034 * DTSBR907 00035 * RECORDS READ: DTSBR907 00036 * DTSBR907 00037 * NONE. DTSBR907 00038 * DTSBR907 00039 * DTSBR907 00040 * PRINTED OUTPUTS: DTSBR907 00041 * DTSBR907 00042 * 907R1 - PROGRAMMERS COPY DTSBR907 00043 * 907R2 - USERS COPY DTSBR907 00044 * DTSBR907 00045 * DTSBR907 00046 * RECORDS WRITTEN: DTSBR907 00047 * DTSBR907 00048 * NONE. DTSBR907 00049 * DTSBR907 00050 * DTSBR907 00051 * MODULES CALLED: DTSBR907 00052 * DTSBR907 00053 * NONE DTSBR907 00054 * DTSBR907 00055 * DTSBR907 00056 ***** DTSBR907 00057 EJECT DTSBR907 00058 ENVIRONMENT DIVISION. DTSBR907 00059 DTSBR907 00060 CONFIGURATION SECTION. DTSBR907 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR907 00062 DTSBR907 00063 INPUT-OUTPUT SECTION. DTSBR907 00064 DTSBR907 00065 FILE-CONTROL. DTSBR907 00066 SELECT PRT-FILE-PROG ASSIGN TO RPT907R1. DTSBR907 00067 SELECT PRT-FILE-USERS ASSIGN TO RPT907R2. DTSBR907 00068 DTSBR907 00069 DATA DIVISION. DTSBR907 00070 DTSBR907 00071 FILE SECTION. DTSBR907 00072 DTSBR907 00073 FD PRT-FILE-PROG DTSBR907 00074 RECORDING MODE IS F. DTSBR907 00075 01 REPORT-LISTING1 PIC X(133). DTSBR907 00076 DTSBR907 00077 FD PRT-FILE-USERS DTSBR907 00078 RECORDING MODE IS F. DTSBR907 00079 01 REPORT-LISTING2 PIC X(133). DTSBR907 00080 DTSBR907 00081 WORKING-STORAGE SECTION. DTSBR907 000815 77 PAN-VALET PICTURE X(24) VALUE '008DTSBR907 01/29/01'. DTSBR907 00082 DTSBR907 00083 01 WRK-AREA. DTSBR907 00084 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +907.DTSBR907 00085 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR907 00086 05 WRK-ROUTE-LOCATION PIC X(20) VALUE SPACES. DTSBR907 00087 DTSBR907 00088 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR907 00089 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR907 00090 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR907 00091 DTSBR907 00092 05 WS-LINE-CNT3 PIC S9(02) COMP-3 VALUE 60. DTSBR907 00093 05 WS-LINE-CNT4 PIC S9(02) COMP-3 VALUE +0. DTSBR907 00094 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBR907 00095 DTSBR907 00096 01 PAGE-HEADING1. DTSBR907 00097 05 HDR1-LINE-1. DTSBR907 00098 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00099 10 FILLER PIC X(05) DTSBR907 00100 VALUE '907R1'. DTSBR907 00101 10 FILLER PIC X(34) VALUE SPACES. DTSBR907 00102 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR907 00103 10 FILLER PIC X(28) VALUE SPACES. DTSBR907 00104 10 FILLER PIC X(05) DTSBR907 00105 VALUE 'DATE:'. DTSBR907 00106 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00107 10 HDR1-SYS-DATE PIC X(08). DTSBR907 00108 05 HDR1-LINE-2. DTSBR907 00109 10 FILLER PIC X(40) VALUE SPACES. DTSBR907 00110 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR907 00111 10 FILLER PIC X(28) VALUE SPACES. DTSBR907 00112 10 FILLER PIC X(05) DTSBR907 00113 VALUE 'TIME:'. DTSBR907 00114 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00115 10 HDR1-SYS-TIME PIC X(08). DTSBR907 00116 05 HDR1-LINE-3. DTSBR907 00117 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00118 10 FILLER PIC X(10) DTSBR907 00119 VALUE 'ROUTE TO: '. DTSBR907 00120 10 HDR1-ROUTE-LOCATION PIC X(20). DTSBR907 00121 10 FILLER PIC X(87) VALUE SPACES. DTSBR907 00122 10 FILLER PIC X(05) DTSBR907 00123 VALUE 'PAGE:'. DTSBR907 00124 10 FILLER PIC X(03) VALUE SPACES. DTSBR907 00125 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR907 00126 05 HDR1-LINE-4. DTSBR907 00127 10 FILLER PIC X(50) VALUE SPACES. DTSBR907 00128 10 FILLER PIC X(30) DTSBR907 00129 VALUE 'UNUSUAL CONDITIONS ENCOUNTERED'. DTSBR907 00130 05 HDR1-LINE-5 PIC X(133) VALUE SPACES. DTSBR907 00131 05 HDR1-LINE-6. DTSBR907 00132 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00133 10 FILLER PIC X(03) DTSBR907 00134 VALUE 'MSG'. DTSBR907 00135 10 FILLER PIC X(121) VALUE SPACES. DTSBR907 00136 10 FILLER PIC X(06) DTSBR907 00137 VALUE 'MODULE'. DTSBR907 00138 05 HDR1-LINE-7. DTSBR907 00139 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00140 10 FILLER PIC X(25) DTSBR907 00141 VALUE 'ID EMP NO MESSAGE'. DTSBR907 00142 10 FILLER PIC X(120) VALUE SPACES. DTSBR907 00143 10 FILLER PIC X(04) DTSBR907 00144 VALUE 'NAME'. DTSBR907 00145 DTSBR907 00146 01 DETAIL-LINE-P. DTSBR907 00147 05 DTL1-LINE-2. DTSBR907 00148 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00149 10 DTL1-MSG-ID PIC X(03). DTSBR907 00150 10 FILLER PIC X(03) VALUE SPACES. DTSBR907 00151 10 DTL1-EMP-NO PIC 999B999. DTSBR907 00152 10 FILLER PIC X(03) VALUE SPACES. DTSBR907 00153 10 DTL1-MSG-TEXT PIC X(105). DTSBR907 00154 10 FILLER PIC X(02) VALUE SPACES. DTSBR907 00155 10 DTL1-MODULE-NAME PIC X(08). DTSBR907 00156 DTSBR907 00157 01 CONTROL-FOOTING-FINAL1. DTSBR907 00158 05 CTF1-LINE-3. DTSBR907 00159 10 FILLER PIC X(05) VALUE SPACES. DTSBR907 00160 10 FILLER PIC X(17) DTSBR907 00161 VALUE '*** END OF REPORT'. DTSBR907 00162 DTSBR907 00163 01 PAGE-HEADING2. DTSBR907 00164 05 HDR2-LINE-1. DTSBR907 00165 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00166 10 FILLER PIC X(05) DTSBR907 00167 VALUE '907R2'. DTSBR907 00168 10 FILLER PIC X(34) VALUE SPACES. DTSBR907 00169 10 HDR2-AGY-NAME-LINE1 PIC X(50). DTSBR907 00170 10 FILLER PIC X(28) VALUE SPACES. DTSBR907 00171 10 FILLER PIC X(05) DTSBR907 00172 VALUE 'DATE:'. DTSBR907 00173 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00174 10 HDR2-SYS-DATE PIC X(08). DTSBR907 00175 05 HDR2-LINE-2. DTSBR907 00176 10 FILLER PIC X(40) VALUE SPACES. DTSBR907 00177 10 HDR2-AGY-NAME-LINE2 PIC X(50). DTSBR907 00178 10 FILLER PIC X(28) VALUE SPACES. DTSBR907 00179 10 FILLER PIC X(05) DTSBR907 00180 VALUE 'TIME:'. DTSBR907 00181 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00182 10 HDR2-SYS-TIME PIC X(08). DTSBR907 00183 05 HDR2-LINE-3. DTSBR907 00184 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00185 10 FILLER PIC X(10) DTSBR907 00186 VALUE 'ROUTE TO: '. DTSBR907 00187 10 HDR2-ROUTE-LOCATION PIC X(20). DTSBR907 00188 10 FILLER PIC X(87) VALUE SPACES. DTSBR907 00189 10 FILLER PIC X(05) DTSBR907 00190 VALUE 'PAGE:'. DTSBR907 00191 10 FILLER PIC X(03) VALUE SPACES. DTSBR907 00192 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DTSBR907 00193 05 HDR2-LINE-4. DTSBR907 00194 10 FILLER PIC X(50) VALUE SPACES. DTSBR907 00195 10 FILLER PIC X(30) DTSBR907 00196 VALUE 'UNUSUAL CONDITIONS ENCOUNTERED'. DTSBR907 00197 05 HDR2-LINE-5 PIC X(133) VALUE SPACES. DTSBR907 00198 05 HDR2-LINE-6. DTSBR907 00199 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00200 10 FILLER PIC X(03) DTSBR907 00201 VALUE 'MSG'. DTSBR907 00202 10 FILLER PIC X(121) VALUE SPACES. DTSBR907 00203 10 FILLER PIC X(06) DTSBR907 00204 VALUE 'MODULE'. DTSBR907 00205 05 HDR2-LINE-7. DTSBR907 00206 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00207 10 FILLER PIC X(25) DTSBR907 00208 VALUE 'ID EMP NO MESSAGE'. DTSBR907 00209 10 FILLER PIC X(120) VALUE SPACES. DTSBR907 00210 10 FILLER PIC X(04) DTSBR907 00211 VALUE 'NAME'. DTSBR907 00212 DTSBR907 00213 01 DETAIL-LINE-U. DTSBR907 00214 05 DTL2-LINE-2. DTSBR907 00215 10 FILLER PIC X(01) VALUE SPACE. DTSBR907 00216 10 DTL2-MSG-ID PIC X(03). DTSBR907 00217 10 FILLER PIC X(03) VALUE SPACES. DTSBR907 00218 10 DTL2-EMP-NO PIC 999B999. DTSBR907 00219 10 FILLER PIC X(03) VALUE SPACES. DTSBR907 00220 10 DTL2-MSG-TEXT PIC X(105). DTSBR907 00221 10 FILLER PIC X(02) VALUE SPACES. DTSBR907 00222 10 DTL2-MODULE-NAME PIC X(08). DTSBR907 00223 DTSBR907 00224 01 CONTROL-FOOTING-FINAL2. DTSBR907 00225 05 CTF2-LINE-3. DTSBR907 00226 10 FILLER PIC X(05) VALUE SPACES. DTSBR907 00227 10 FILLER PIC X(17) DTSBR907 00228 VALUE '*** END OF REPORT'. DTSBR907 00229 DTSBR907 00230 LINKAGE SECTION. DTSBR907 00231 DTSBR907 00232 01 LRCM-LINK-AREA. DTSBR907 00233 ++INCLUDE DTSILRCM DTSBR907 00234 EJECT DTSBR907 00235 01 R907-REC. DTSBR907 00236 ++INCLUDE DTSIR907 DTSBR907 00237 EJECT DTSBR907 00238 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR907 00239 R907-REC. DTSBR907 00240 DTSBR907 00241 IF FIRST-TIME-IND = 'Y' DTSBR907 00242 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR907 00243 MOVE 'N' TO FIRST-TIME-IND. DTSBR907 00244 DTSBR907 00245 IF LRCM-EOR-88 DTSBR907 00246 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR907 00247 ELSE DTSBR907 00248 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR907 00249 DTSBR907 00250 GOBACK. DTSBR907 00251 EJECT DTSBR907 00252 I1000-INITIATE. DTSBR907 00253 DTSBR907 00254 OPEN OUTPUT PRT-FILE-PROG PRT-FILE-USERS. DTSBR907 00255 DTSBR907 00256 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR907 00257 MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE. DTSBR907 00258 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR907 00259 MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME. DTSBR907 00260 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR907 00261 MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1. DTSBR907 00262 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR907 00263 MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2. DTSBR907 00264 MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2. DTSBR907 00265 DTSBR907 00266 I1000-EXIT. DTSBR907 00267 EXIT. DTSBR907 00268 DTSBR907 00269 P1000-PROCESS. DTSBR907 00270 DTSBR907 00271 MOVE 'CHIEF TAX DIVISION ' TO HDR1-ROUTE-LOCATION. DTSBR907 00272 MOVE R907-MSG-ID TO DTL1-MSG-ID. DTSBR907 00273 MOVE R907-EMP-NO TO DTL1-EMP-NO. DTSBR907 00274 MOVE R907-MSG-TEXT TO DTL1-MSG-TEXT. DTSBR907 00275 MOVE R907-MODULE-NAME TO DTL1-MODULE-NAME. DTSBR907 00276 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR907 00277 WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2. DTSBR907 00278 ADD +2 TO WS-LINE-CNT2. DTSBR907 00279 DTSBR907 00280 MOVE 'CONTRIBUTIONS BUREAU' TO HDR2-ROUTE-LOCATION. DTSBR907 00281 MOVE R907-MSG-ID TO DTL2-MSG-ID. DTSBR907 00282 MOVE R907-EMP-NO TO DTL2-EMP-NO. DTSBR907 00283 MOVE R907-MSG-TEXT TO DTL2-MSG-TEXT. DTSBR907 00284 MOVE R907-MODULE-NAME TO DTL2-MODULE-NAME. DTSBR907 00285 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR907 00286 WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 2. DTSBR907 00287 ADD +2 TO WS-LINE-CNT4. DTSBR907 00288 DTSBR907 00289 P1000-EXIT. DTSBR907 00290 EXIT. DTSBR907 00291 DTSBR907 00292 P2000-PRINT-HEADER. DTSBR907 00293 DTSBR907 00294 IF WS-LINE-CNT GREATER 58 OR DTSBR907 00295 WS-LINE-CNT2 GREATER 58 DTSBR907 00296 MOVE +0 TO WS-LINE-CNT DTSBR907 00297 MOVE +0 TO WS-LINE-CNT2 DTSBR907 00298 ADD +1 TO WS-PAGE-CNT DTSBR907 00299 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR907 00300 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 DTSBR907 00301 AFTER TOP-OF-PAGE DTSBR907 00302 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DTSBR907 00303 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DTSBR907 00304 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DTSBR907 00305 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1 DTSBR907 00306 WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1 DTSBR907 00307 WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1 DTSBR907 00308 ADD +7 TO WS-LINE-CNT2. DTSBR907 00309 DTSBR907 00310 P2000-EXIT. DTSBR907 00311 EXIT. DTSBR907 00312 DTSBR907 00313 P3000-PRINT-HEADER. DTSBR907 00314 DTSBR907 00315 IF WS-LINE-CNT3 GREATER 58 OR DTSBR907 00316 WS-LINE-CNT4 GREATER 58 DTSBR907 00317 MOVE +0 TO WS-LINE-CNT3 DTSBR907 00318 MOVE +0 TO WS-LINE-CNT4 DTSBR907 00319 ADD +1 TO WS-PAGE-CNT2 DTSBR907 00320 MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT DTSBR907 00321 WRITE REPORT-LISTING2 FROM HDR2-LINE-1 DTSBR907 00322 AFTER TOP-OF-PAGE DTSBR907 00323 WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1 DTSBR907 00324 WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1 DTSBR907 00325 WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1 DTSBR907 00326 WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1 DTSBR907 00327 WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1 DTSBR907 00328 WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1 DTSBR907 00329 ADD +7 TO WS-LINE-CNT4. DTSBR907 00330 DTSBR907 00331 P3000-EXIT. DTSBR907 00332 EXIT. DTSBR907 00333 DTSBR907 00334 T1000-TERMINATE. DTSBR907 00335 DTSBR907 00336 WRITE REPORT-LISTING1 FROM CTF1-LINE-3 AFTER 3. DTSBR907 00337 WRITE REPORT-LISTING2 FROM CTF2-LINE-3 AFTER 3. DTSBR907 00338 CLOSE PRT-FILE-PROG PRT-FILE-USERS. DTSBR907 00339 DTSBR907 00340 T1000-EXIT. DTSBR907 00341 EXIT. DTSBR907 00342 DTSBR907 00343 *S999-ABEND. DTSBR907 00344 * SKIP1 DTSBR907 00345 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR907 00346 * SKIP2 DTSBR907 00347 *S999-EXIT. DTSBR907 00348 * EXIT. DTSBR907