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