00001 IDENTIFICATION DIVISION. 07/26/02 00002 PROGRAM-ID. DTSBR410. DTSBR410 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV010 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR410 00005 DATE-COMPILED. DTSBR410 00006 DTSBR410 00007 ***** DTSBR410 00008 * DTSBR410 00009 * CALLING SEQUENCE: DTSBE410 CREATES DTSIR410 RECORDS. DTSBR410 00010 * DTSBD800 CALLS DTSBR410 DTSBR410 00011 * WHICH PRODUCES THE APPEAL LIST. DTSBR410 00012 * DTSBR410 00013 * FUNCTION: OPEN APPEAL LIST. DTSBR410 00014 * DTSBR410 00015 * DTSBR410 00016 * MODIFICATION HISTORY: DTSBR410 00017 * DTSBR410 00018 * 12-20-94 INITIAL DEVELOPMENT DTSBR410 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR410 00020 * DTSBR410 00021 * 08-03-95 CHANGED ROUTING AREA SO "CONTRIBUTIONS BUREAU" IS ON DTSBR410 00022 * TOP AND ADDED LINE FOR THE FOURTH COPY. DTSBR410 00023 * REFERENCE RFP #RAP CLEANUP PROGRAMMER: MJA DTSBR410 00024 * DTSBR410 00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR410 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR410 00027 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR410 00028 * DTSBR410 00029 * DTSBR410 00030 * DESCRIPTION: DTSBR410 00031 * DTSBR410 00032 * THIS MODULE PRODUCES THE OPEN APPEAL LIST. DTSBR410 00033 * DTSBR410 00034 * DTSBR410 00035 * RECORDS READ: DTSBR410 00036 * DTSBR410 00037 * NONE. DTSBR410 00038 * DTSBR410 00039 * DTSBR410 00040 * PRINTED OUTPUTS: DTSBR410 00041 * DTSBR410 00042 * 410R1 OPEN APPEAL LIST. DTSBR410 00043 * DTSBR410 00044 * DTSBR410 00045 * RECORDS WRITTEN: DTSBR410 00046 * DTSBR410 00047 * NONE. DTSBR410 00048 * DTSBR410 00049 * DTSBR410 00050 * MODULES CALLED: DTSBR410 00051 * DTSBR410 00052 * DTSBU001 DATE CONVERT. DTSBR410 00053 * DTSBU034 APPEAL TYPE DESCRIPTION. DTSBR410 00054 * DTSBR410 00055 * DTSBR410 00056 ***** DTSBR410 00057 EJECT DTSBR410 00058 ENVIRONMENT DIVISION. DTSBR410 00059 DTSBR410 00060 CONFIGURATION SECTION. DTSBR410 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR410 00062 DTSBR410 00063 INPUT-OUTPUT SECTION. DTSBR410 00064 FILE-CONTROL. DTSBR410 00065 SELECT PRT-FILE ASSIGN TO RPT410R1. DTSBR410 00066 DTSBR410 00067 DATA DIVISION. DTSBR410 00068 FILE SECTION. DTSBR410 00069 DTSBR410 00070 FD PRT-FILE DTSBR410 00071 RECORDING MODE IS F. DTSBR410 00072 01 REPORT-LISTING PIC X(133). DTSBR410 00073 DTSBR410 00074 WORKING-STORAGE SECTION. DTSBR410 000745 77 PAN-VALET PICTURE X(24) VALUE '010DTSBR410 07/26/02'. DTSBR410 00075 DTSBR410 00076 01 WRK-AREA. DTSBR410 00077 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +410.DTSBR410 00078 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR410 00079 DTSBR410 00080 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR410 00081 05 WS-FOOT-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR410 00082 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR410 00083 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR410 00084 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR410 00085 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR410 00086 DTSBR410 00087 * 05 WRK-FILE-DATE PIC X(08). DTSBR410 00088 * 05 WRK-OPEN-DATE PIC X(08). DTSBR410 00089 DTSBR410 00090 05 WRK-LEVEL-TABLE. DTSBR410 00091 10 FILLER PIC X(34) VALUE 'TAX CHIEF '. DTSBR410 00092 10 FILLER PIC X(34) VALUE 'OFFICE OF APPEALS'. DTSBR410 00093 10 FILLER PIC X(34) DTSBR410 00094 VALUE 'OFFICE OF APPEALS AND REVIEW (OAR)'. DTSBR410 00095 10 FILLER PIC X(34) VALUE 'COURT '. DTSBR410 00096 10 FILLER PIC X(34) VALUE 'UNKOWN '. DTSBR410 00097 05 FILLER REDEFINES WRK-LEVEL-TABLE. DTSBR410 00098 10 WRK-APPEAL-LEVEL OCCURS 5 PIC X(34). DTSBR410 00099 DTSBR410 00100 05 HOLD-APPEAL-LEVEL PIC X(34). DTSBR410 00101 05 WS-APPEAL-LEVEL PIC X(34). DTSBR410 00102 DTSBR410 00103 EJECT DTSBR410 00104 01 L001-LINK-AREA. DTSBR410 00105 ++INCLUDE DTSIL001 DTSBR410 00106 EJECT DTSBR410 00107 01 L034-LINK-AREA. DTSBR410 00108 ++INCLUDE DTSIL034 DTSBR410 00109 EJECT DTSBR410 00110 **4*REPORT SECTION. DTSBR410 00111 **4*RD REPORT-LISTING DTSBR410 00112 **4 CONTROLS FINAL DTSBR410 00113 **4 HOLD-APPEAL-LEVEL DTSBR410 00114 **4 LINE LIMIT 132 DTSBR410 00115 **4 PAGE LIMIT 60 DTSBR410 00116 **4 FIRST DETAIL 14 DTSBR410 00117 **4 LAST BODY GROUP 60. DTSBR410 00118 DTSBR410 00119 01 PAGE-HEADING. DTSBR410 00120 05 HDR-LINE-1. DTSBR410 00121 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00122 10 FILLER PIC X(05) DTSBR410 00123 VALUE '410R1'. DTSBR410 00124 10 FILLER PIC X(36) VALUE SPACES.DTSBR410 00125 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR410 00126 10 FILLER PIC X(27) VALUE SPACES.DTSBR410 00127 10 FILLER PIC X(05) DTSBR410 00128 VALUE 'DATE:'. DTSBR410 00129 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00130 10 HDR-SYS-DATE PIC X(08). DTSBR410 00131 DTSBR410 00132 05 HDR-LINE-2. DTSBR410 00133 10 FILLER PIC X(42) VALUE SPACES.DTSBR410 00134 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR410 00135 10 FILLER PIC X(27) VALUE SPACES.DTSBR410 00136 10 FILLER PIC X(05) DTSBR410 00137 VALUE 'TIME:'. DTSBR410 00138 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00139 10 HDR-SYS-TIME PIC X(08). DTSBR410 00140 DTSBR410 00141 05 HDR-LINE-3. DTSBR410 00142 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00143 10 FILLER PIC X(31) DTSBR410 00144 VALUE 'ROUTE TO: TAX CHIEF'. DTSBR410 00145 10 FILLER PIC X(87) VALUE SPACES.DTSBR410 00146 10 FILLER PIC X(05) DTSBR410 00147 VALUE 'PAGE:'. DTSBR410 00148 10 FILLER PIC X(03) VALUE SPACES.DTSBR410 00149 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR410 00150 DTSBR410 00151 05 HDR-LINE-4. DTSBR410 00152 10 FILLER PIC X(12) VALUE SPACES.DTSBR410 00153 10 FILLER PIC X(28) DTSBR410 00154 VALUE 'UI DIRECTOR'. DTSBR410 00155 10 FILLER PIC X(19) VALUE SPACES.DTSBR410 00156 10 FILLER PIC X(16) DTSBR410 00157 VALUE 'OPEN APPEAL LIST'. DTSBR410 00158 DTSBR410 00159 05 HDR-LINE-5 PIC X(133) VALUE SPACES.DTSBR410 00160 05 HDR-LINE-6 PIC X(133) VALUE SPACES.DTSBR410 00161 05 HDR-LINE-7 PIC X(133) VALUE SPACES.DTSBR410 00162 05 HDR-LINE-8 PIC X(133) VALUE SPACES.DTSBR410 00163 05 HDR-LINE-9. DTSBR410 00164 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00165 10 FILLER PIC X(13) DTSBR410 00166 VALUE 'APPEAL LEVEL:'. DTSBR410 00167 10 FILLER PIC X(02) VALUE SPACES.DTSBR410 00168 10 HDR-APPEAL-LEVEL PIC X(34). DTSBR410 00169 **4 SOURCE HOLD-APPEAL-LEVEL. DTSBR410 00170 DTSBR410 00171 05 HDR-LINE-10 PIC X(133) VALUE SPACES.DTSBR410 00172 05 HDR-LINE-11. DTSBR410 00173 10 FILLER PIC X(91) VALUE SPACES.DTSBR410 00174 10 FILLER PIC X(06) DTSBR410 00175 VALUE 'APPEAL'. DTSBR410 00176 10 FILLER PIC X(10) VALUE SPACES.DTSBR410 00177 10 FILLER PIC X(06) DTSBR410 00178 VALUE 'APPEAL'. DTSBR410 00179 DTSBR410 00180 05 HDR-LINE-12. DTSBR410 00181 10 FILLER PIC X(02) VALUE SPACES.DTSBR410 00182 10 FILLER PIC X(06) DTSBR410 00183 VALUE 'EMP NO'. DTSBR410 00184 10 FILLER PIC X(09) VALUE SPACES.DTSBR410 00185 10 FILLER PIC X(13) DTSBR410 00186 VALUE 'PRIMARY NAME'. DTSBR410 00187 10 FILLER PIC X(34) VALUE SPACES.DTSBR410 00188 10 FILLER PIC X(11) DTSBR410 00189 VALUE 'APPEAL TYPE'. DTSBR410 00190 10 FILLER PIC X(14) VALUE SPACES.DTSBR410 00191 10 FILLER PIC X(09) DTSBR410 00192 VALUE 'FILE DATE'. DTSBR410 00193 10 FILLER PIC X(07) VALUE SPACES.DTSBR410 00194 10 FILLER PIC X(09) DTSBR410 00195 VALUE 'OPEN DATE'. DTSBR410 00196 DTSBR410 00197 01 DETAIL-LINE. DTSBR410 00198 05 DTL-LINE-2. DTSBR410 00199 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00200 10 DTL-EMP-NO PIC 999B999. DTSBR410 00201 **4 SOURCE R410-EMP-NO. DTSBR410 00202 10 FILLER PIC X(08) VALUE SPACES.DTSBR410 00203 10 DTL-PRIMARY-NAME PIC X(40). DTSBR410 00204 **4 SOURCE R410-PRIMARY-NAME. DTSBR410 00205 10 FILLER PIC X(07) VALUE SPACES.DTSBR410 00206 10 DTL-LONG-DSCR PIC X(20). DTSBR410 00207 **4 SOURCE L034-LONG-DSCR. DTSBR410 00208 10 FILLER PIC X(06) VALUE SPACES.DTSBR410 00209 10 WRK-FILE-DATE PIC X(08). DTSBR410 00210 **4 SOURCE WRK-FILE-DATE. DTSBR410 00211 10 FILLER PIC X(08) VALUE SPACES.DTSBR410 00212 10 WRK-OPEN-DATE PIC X(08). DTSBR410 00213 **4 SOURCE WRK-OPEN-DATE. DTSBR410 00214 DTSBR410 00215 01 CONTROL-FOOTING. DTSBR410 00216 05 CTF-LINE-3. DTSBR410 00217 10 FILLER PIC X(20) VALUE SPACES.DTSBR410 00218 10 CTF-REC-CNT PIC ZZ,ZZ9. DTSBR410 00219 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00220 10 FILLER PIC X(36) DTSBR410 00221 VALUE 'OPEN APPEALS LISTED FOR APPEAL LEVEL'. DTSBR410 00222 DTSBR410 00223 01 CONTROL-FOOTING-FINAL. DTSBR410 00224 05 CFF-LINE-2. DTSBR410 00225 10 FILLER PIC X(20) VALUE SPACES.DTSBR410 00226 10 CFF-SUM-CNT PIC ZZ,ZZ9. DTSBR410 00227 10 FILLER PIC X(01) VALUE SPACE. DTSBR410 00228 10 FILLER PIC X(30) DTSBR410 00229 VALUE 'OPEN APPEALS LISTED FOR REPORT'. DTSBR410 00230 EJECT DTSBR410 00231 LINKAGE SECTION. DTSBR410 00232 DTSBR410 00233 01 LRCM-LINK-AREA. DTSBR410 00234 ++INCLUDE DTSILRCM DTSBR410 00235 EJECT DTSBR410 00236 01 R410-REC. DTSBR410 00237 ++INCLUDE DTSIR410 DTSBR410 00238 EJECT DTSBR410 00239 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR410 00240 R410-REC. DTSBR410 00241 DTSBR410 00242 IF FIRST-TIME-IND = 'Y' DTSBR410 00243 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR410 00244 MOVE 'N' TO FIRST-TIME-IND. DTSBR410 00245 DTSBR410 00246 IF LRCM-EOR-88 DTSBR410 00247 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR410 00248 ELSE DTSBR410 00249 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR410 00250 DTSBR410 00251 GOBACK. DTSBR410 00252 DTSBR410 00253 I1000-INITIATE. DTSBR410 00254 DTSBR410 00255 PERFORM S1000-SET-APPEAL-LEVEL THRU S1000-EXIT. DTSBR410 00256 DTSBR410 00257 OPEN OUTPUT PRT-FILE. DTSBR410 00258 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR410 00259 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR410 00260 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR410 00261 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR410 00262 MOVE SPACES TO REPORT-LISTING. DTSBR410 00263 DTSBR410 00264 I1000-EXIT. DTSBR410 00265 EXIT. DTSBR410 00266 DTSBR410 00267 P1000-PROCESS. DTSBR410 00268 DTSBR410 00269 MOVE R410-APPEAL-TYPE TO L034-CD. DTSBR410 00270 PERFORM S034-LOOKUP-TYPE THRU S034-EXIT. DTSBR410 00271 IF L034-NOT-VALID DTSBR410 00272 MOVE ALL '?' TO L034-LONG-DSCR. DTSBR410 00273 DTSBR410 00274 PERFORM S1000-SET-APPEAL-LEVEL THRU S1000-EXIT. DTSBR410 00275 DTSBR410 00276 MOVE R410-FILE-DATE TO L001-FED-8-DATE-9. DTSBR410 00277 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR410 00278 MOVE L001-SLASH-DATE TO WRK-FILE-DATE. DTSBR410 00279 DTSBR410 00280 MOVE R410-OPEN-DATE TO L001-FED-8-DATE-9. DTSBR410 00281 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR410 00282 MOVE L001-SLASH-DATE TO WRK-OPEN-DATE. DTSBR410 00283 * DTSBR410 00284 IF HOLD-APPEAL-LEVEL NOT = WS-APPEAL-LEVEL DTSBR410 00285 MOVE HOLD-APPEAL-LEVEL TO WS-APPEAL-LEVEL DTSBR410 00286 DTSBR410 00287 IF WS-NUMBER-ONE = +0 DTSBR410 00288 MOVE +99 TO WS-NUMBER-ONE DTSBR410 00289 ELSE DTSBR410 00290 PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT DTSBR410 00291 MOVE +60 TO WS-LINE-CNT2 DTSBR410 00292 END-IF DTSBR410 00293 END-IF. DTSBR410 00294 * DTSBR410 00295 MOVE R410-EMP-NO TO DTL-EMP-NO. DTSBR410 00296 MOVE R410-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR410 00297 MOVE L034-LONG-DSCR TO DTL-LONG-DSCR. DTSBR410 00298 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR410 00299 WRITE REPORT-LISTING FROM DTL-LINE-2 AFTER 2. DTSBR410 00300 ADD +2 TO WS-LINE-CNT2. DTSBR410 00301 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR410 00302 ADD +1 TO WS-SUM-NUMBER-ONE. DTSBR410 00303 DTSBR410 00304 **4 GENERATE DETAIL-LINE. DTSBR410 00305 DTSBR410 00306 P1000-EXIT. DTSBR410 00307 EXIT. DTSBR410 00308 DTSBR410 00309 P2000-PRINT-HEADER. DTSBR410 00310 IF WS-LINE-CNT GREATER 58 OR DTSBR410 00311 WS-LINE-CNT2 GREATER 58 DTSBR410 00312 MOVE +0 TO WS-LINE-CNT DTSBR410 00313 MOVE +0 TO WS-LINE-CNT2 DTSBR410 00314 ADD +1 TO WS-PAGE-CNT DTSBR410 00315 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR410 00316 **4 MOVE WS-OP-ID-NAME TO WS-OP-ID-NAME-PREV DTSBR410 00317 WRITE REPORT-LISTING FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR410 00318 WRITE REPORT-LISTING FROM HDR-LINE-2 AFTER 1 DTSBR410 00319 WRITE REPORT-LISTING FROM HDR-LINE-3 AFTER 1 DTSBR410 00320 WRITE REPORT-LISTING FROM HDR-LINE-4 AFTER 1 DTSBR410 00321 WRITE REPORT-LISTING FROM HDR-LINE-5 AFTER 1 DTSBR410 00322 WRITE REPORT-LISTING FROM HDR-LINE-6 AFTER 1 DTSBR410 00323 WRITE REPORT-LISTING FROM HDR-LINE-7 AFTER 1 DTSBR410 00324 WRITE REPORT-LISTING FROM HDR-LINE-8 AFTER 1 DTSBR410 00325 WRITE REPORT-LISTING FROM HDR-LINE-9 AFTER 1 DTSBR410 00326 WRITE REPORT-LISTING FROM HDR-LINE-10 AFTER 1 DTSBR410 00327 WRITE REPORT-LISTING FROM HDR-LINE-11 AFTER 1 DTSBR410 00328 WRITE REPORT-LISTING FROM HDR-LINE-12 AFTER 1 DTSBR410 00329 ADD +12 TO WS-LINE-CNT2. DTSBR410 00330 P2000-EXIT. DTSBR410 00331 EXIT. DTSBR410 00332 DTSBR410 00333 P3000-PRINT-FOOTER. DTSBR410 00334 DTSBR410 00335 IF WS-LINE-CNT2 > 52 DTSBR410 00336 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR410 00337 END-IF. DTSBR410 00338 DTSBR410 00339 MOVE WS-FOOT-NUMBER-ONE TO CTF-REC-CNT. DTSBR410 00340 WRITE REPORT-LISTING FROM CTF-LINE-3 AFTER 3. DTSBR410 00341 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR410 00342 DTSBR410 00343 P3000-EXIT. DTSBR410 00344 EXIT. DTSBR410 00345 DTSBR410 00346 S1000-SET-APPEAL-LEVEL. DTSBR410 00347 IF (R410-APPEAL-LEVEL-9 NUMERIC) DTSBR410 00348 AND DTSBR410 00349 (R410-APPEAL-LEVEL-9 > 0) DTSBR410 00350 AND DTSBR410 00351 (R410-APPEAL-LEVEL-9 < 6) DTSBR410 00352 MOVE WRK-APPEAL-LEVEL (R410-APPEAL-LEVEL-9) DTSBR410 00353 TO HOLD-APPEAL-LEVEL HDR-APPEAL-LEVEL DTSBR410 00354 ELSE DTSBR410 00355 MOVE SPACES TO HOLD-APPEAL-LEVEL HDR-APPEAL-LEVEL. DTSBR410 00356 S1000-EXIT. DTSBR410 00357 EXIT. DTSBR410 00358 DTSBR410 00359 T1000-TERMINATE. DTSBR410 00360 DTSBR410 00361 PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT. DTSBR410 00362 MOVE WS-SUM-NUMBER-ONE TO CFF-SUM-CNT. DTSBR410 00363 WRITE REPORT-LISTING FROM CFF-LINE-2 AFTER 2. DTSBR410 00364 DTSBR410 00365 CLOSE PRT-FILE. DTSBR410 00366 DTSBR410 00367 T1000-EXIT. DTSBR410 00368 EXIT. DTSBR410 00369 DTSBR410 00370 S001-FROM-FED-8. DTSBR410 00371 DTSBR410 00372 SET L001-FROM-FED-8 TO TRUE. DTSBR410 00373 DTSBR410 00374 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR410 00375 DTSBR410 00376 S001-EXIT. DTSBR410 00377 EXIT. DTSBR410 00378 DTSBR410 00379 S034-LOOKUP-TYPE. DTSBR410 00380 DTSBR410 00381 SET L034-MAPL-TYPE TO TRUE. DTSBR410 00382 DTSBR410 00383 CALL 'DTSBU034' USING L034-LINK-AREA. DTSBR410 00384 DTSBR410 00385 S034-EXIT. DTSBR410 00386 EXIT. DTSBR410 00387 DTSBR410 00388 *S999-ABEND. DTSBR410 00389 * DTSBR410 00390 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR410 00391 * DTSBR410 00392 *S999-EXIT. DTSBR410 00393 * EXIT. DTSBR410 00394 DTSBR410