00001 IDENTIFICATION DIVISION. 02/01/06 00002 PROGRAM-ID. DTSBR442. DTSBR442 00003 AUTHOR. NORTHROP GRUMMAN LV001 00004 DATE-WRITTEN. JANUARY 2006. DTSBR442 00005 DATE-COMPILED. DTSBR442 00006 SKIP3 DTSBR442 00007 ***** DTSBR442 00008 * DTSBR442 00009 * CALLING SEQUENCE: DTSBE442 CREATES DTSIR442 RECORDS. DTSBR442 00010 * DTSBD800 CALLS DTSBR442 WHICH DTSBR442 00011 * PRODUCES THE CFO AGING RPT. DTSBR442 00012 * DTSBR442 00013 * DTSBR442 00014 * FUNCTION: EMPLOYERS AGING OF ACCOUNTS RECEIVABLE REPORT. DTSBR442 00015 * DTSBR442 00016 * DTSBR442 00017 * MODIFICATION HISTORY: DTSBR442 00018 * DTSBR442 00019 * 01-20-06 INITIAL DEVELOPMENT DTSBR442 00020 * WORK ORDER: DIR00084 AUTHOR OF CHANGE - RW1 DTSBR442 00021 * DTSBR442 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR442 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR442 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR442 00025 * DTSBR442 00026 * DTSBR442 00027 * DESCRIPTION: DTSBR442 00028 * DTSBR442 00029 * THIS MODULE DETAILS THE DISPOSITION OF AGING OF THE DTSBR442 00030 * ACCOUNTS RECEIVABLE ( TAX, PENALTY, AND INTEREST) DTSBR442 00031 * WITHIN THE TAX SYSTEM. DTSBR442 00032 * DTSBR442 00033 * DTSBR442 00034 * RECORDS READ: DTSBR442 00035 * DTSBR442 00036 * NONE. DTSBR442 00037 * DTSBR442 00038 * DTSBR442 00039 * PRINTED OUTPUTS: DTSBR442 00040 * DTSBR442 00041 * 442R1 AGING ACCOUNT RECEIVABLE DTSBR442 00042 * DTSBR442 00043 * DTSBR442 00044 * RECORDS WRITTEN: DTSBR442 00045 * DTSBR442 00046 * NONE. DTSBR442 00047 * DTSBR442 00048 * MODULES CALLED: DTSBR442 00049 * DTSBR442 00050 * DTSBU004 QUARTER CONVERSION/EDIT. DTSBR442 00051 * DTSBR442 00052 ***** DTSBR442 00053 EJECT DTSBR442 00054 ENVIRONMENT DIVISION. DTSBR442 00055 DTSBR442 00056 CONFIGURATION SECTION. DTSBR442 00057 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR442 00058 DTSBR442 00059 INPUT-OUTPUT SECTION. DTSBR442 00060 DTSBR442 00061 FILE-CONTROL. DTSBR442 00062 SELECT PRT-FILE ASSIGN TO RPT442R1. DTSBR442 00063 DTSBR442 00064 DATA DIVISION. DTSBR442 00065 DTSBR442 00066 FILE SECTION. DTSBR442 00067 DTSBR442 00068 FD PRT-FILE DTSBR442 00069 RECORDING MODE IS F. DTSBR442 00070 01 PRT-RECORD PIC X(133). DTSBR442 00071 DTSBR442 00072 WORKING-STORAGE SECTION. DTSBR442 000725 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR442 02/01/06'. DTSBR442 00073 SKIP3 DTSBR442 00074 01 WRK-AREA. DTSBR442 00075 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +442. DTSBR442 00076 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBR442 00077 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR442 00078 05 WS-EMP-CLASS-HOLD PIC X(01) VALUE SPACE. DTSBR442 00079 05 WS-SUB PIC S9(04) COMP VALUE +0. DTSBR442 00080 05 WS-TABLE-SIZE PIC S9(04) COMP VALUE +7. DTSBR442 00081 SKIP1 DTSBR442 00082 05 WS-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR442 00083 05 WS-FOOT-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR442 00084 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR442 00085 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR442 00086 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR442 00087 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR442 00088 SKIP1 DTSBR442 00089 05 WRK-TOT-RATED-TAX PIC S9(11)V99 COMP-3 VALUE +0.DTSBR442 00090 05 WRK-TOT-RATED-PEN PIC S9(11)V99 COMP-3 VALUE +0.DTSBR442 00091 05 WRK-TOT-RATED-INT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR442 00092 05 WRK-TOT-SELF-INS-TAX PIC S9(11)V99 COMP-3 VALUE +0.DTSBR442 00093 05 WRK-TOT-SELF-INS-PEN PIC S9(11)V99 COMP-3 VALUE +0.DTSBR442 00094 05 WRK-TOT-SELF-INS-INT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR442 00095 DTSBR442 00096 05 WRK-LIT-1-PRIOR. DTSBR442 00097 10 WRK-YRQ-1 PIC X(06). DTSBR442 00098 10 WRK-LIT-1 PIC X(11) VALUE ' AND PRIOR '. DTSBR442 00099 05 WRK-LIT-2-TOTAL PIC X(17) VALUE DTSBR442 00100 'GRAND TOTAL '. DTSBR442 00101 05 WRK-LIT-3-YR-OR-MORE PIC X(17) VALUE DTSBR442 00102 '3 YEARS OR MORE '. DTSBR442 00103 05 WRK-LIT-5-ACTIVE PIC X(17) VALUE DTSBR442 00104 'ACTIVE '. DTSBR442 00105 05 WRK-LIT-6-INACTIVE PIC X(17) VALUE DTSBR442 00106 'INACTIVE '. DTSBR442 00107 05 WRK-LIT-7-INACT-3-YR PIC X(17) VALUE DTSBR442 00108 'INACTIVE 3 YEARS '. DTSBR442 00109 05 WRK-LIT-8-CHPT-7 PIC X(17) VALUE DTSBR442 00110 'TOT IN CHAPTER 7 '. DTSBR442 00111 05 WRK-LIT-9-CHPT-11 PIC X(17) VALUE DTSBR442 00112 'TOT IN CHAPTER 11'. DTSBR442 00113 SKIP2 DTSBR442 00114 01 PAGE-HEADING. DTSBR442 00115 05 HEADER-1. DTSBR442 00116 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00117 10 FILLER PIC X(05) DTSBR442 00118 VALUE '442R1'. DTSBR442 00119 10 FILLER PIC X(34) VALUE SPACES. DTSBR442 00120 10 WS-AGY-NAME-LINE1 PIC X(50). DTSBR442 00121 10 FILLER PIC X(28) VALUE SPACES. DTSBR442 00122 10 FILLER PIC X(05) DTSBR442 00123 VALUE 'DATE:'. DTSBR442 00124 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00125 10 WS-SYS-DATE PIC X(08). DTSBR442 00126 05 HEADER-2. DTSBR442 00127 10 FILLER PIC X(40) VALUE SPACES. DTSBR442 00128 10 WS-AGY-NAME-LINE2 PIC X(50). DTSBR442 00129 10 FILLER PIC X(28) VALUE SPACES. DTSBR442 00130 10 FILLER PIC X(05) DTSBR442 00131 VALUE 'TIME:'. DTSBR442 00132 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00133 10 WS-SYS-TIME PIC X(08). DTSBR442 00134 05 HEADER-3. DTSBR442 00135 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00136 10 FILLER PIC X(29) DTSBR442 00137 VALUE 'ROUTE TO: CHIEF, TAX DIVISION'. DTSBR442 00138 10 FILLER PIC X(27) VALUE SPACES. DTSBR442 00139 10 FILLER PIC X(16) DTSBR442 00140 VALUE 'CFO AGING REPORT'. DTSBR442 00141 10 FILLER PIC X(45) VALUE SPACES. DTSBR442 00142 10 FILLER PIC X(05) DTSBR442 00143 VALUE 'PAGE:'. DTSBR442 00144 10 FILLER PIC X(03) VALUE SPACES. DTSBR442 00145 10 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR442 00146 05 HEADER-4 PIC X(133) VALUE SPACES. DTSBR442 00147 05 HEADER-5. DTSBR442 00148 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00149 10 FILLER PIC X(15) DTSBR442 00150 VALUE 'CURR RUN DATE: '. DTSBR442 00151 10 WS-CURR-RUN-DATE PIC X(08) VALUE SPACES. DTSBR442 00152 10 FILLER PIC X(02) VALUE ', '. DTSBR442 00153 10 FILLER PIC X(15) DTSBR442 00154 VALUE 'EMPLOYER TYPE: '. DTSBR442 00155 10 WS-EMPLOYER-TYPE-DSCR PIC X(12). DTSBR442 00156 10 FILLER PIC X(80) VALUE SPACES. DTSBR442 00157 05 HEADER-6 PIC X(133) VALUE SPACES. DTSBR442 00158 05 HEADER-7. DTSBR442 00159 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00160 10 FILLER PIC X(12) DTSBR442 00161 VALUE ' YEAR-QTR/ '. DTSBR442 00162 10 FILLER PIC X(120) VALUE SPACES. DTSBR442 00163 05 HEADER-8. DTSBR442 00164 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00165 10 FILLER PIC X(12) DTSBR442 00166 VALUE 'DESCRIPTION'. DTSBR442 00167 10 FILLER PIC X(05) VALUE SPACES. DTSBR442 00168 10 FILLER PIC X(16) VALUE SPACES. DTSBR442 00169 10 FILLER PIC X(03) DTSBR442 00170 VALUE 'TAX'. DTSBR442 00171 10 FILLER PIC X(12) VALUE SPACES. DTSBR442 00172 10 FILLER PIC X(07) DTSBR442 00173 VALUE 'PENALTY'. DTSBR442 00174 10 FILLER PIC X(11) VALUE SPACES. DTSBR442 00175 10 FILLER PIC X(08) DTSBR442 00176 VALUE 'INTEREST'. DTSBR442 00177 10 FILLER PIC X(58) VALUE SPACES. DTSBR442 00178 05 HEADER-9. DTSBR442 00179 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00180 10 FILLER PIC X(17) DTSBR442 00181 VALUE ALL '-'. DTSBR442 00182 10 FILLER PIC X(05) VALUE SPACES. DTSBR442 00183 10 FILLER PIC X(14) DTSBR442 00184 VALUE ALL '-'. DTSBR442 00185 10 FILLER PIC X(05) VALUE SPACES. DTSBR442 00186 10 FILLER PIC X(14) DTSBR442 00187 VALUE ALL '-'. DTSBR442 00188 10 FILLER PIC X(05) VALUE SPACES. DTSBR442 00189 10 FILLER PIC X(14) DTSBR442 00190 VALUE ALL '-'. DTSBR442 00191 10 FILLER PIC X(58) VALUE SPACES. DTSBR442 00192 DTSBR442 00193 01 DETAIL-LINE. DTSBR442 00194 05 DTL-LINE-1. DTSBR442 00195 10 FILLER PIC X(01) VALUE SPACE. DTSBR442 00196 10 WS-DTL-YRQ-DSCR PIC X(17). DTSBR442 00197 10 FILLER PIC X(03) VALUE SPACES. DTSBR442 00198 10 WS-DTL-TAX-AMT PIC -----,---,--9.99. DTSBR442 00199 10 FILLER PIC X(03) VALUE SPACES. DTSBR442 00200 10 WS-DTL-PEN-AMT PIC -----,---,--9.99. DTSBR442 00201 10 FILLER PIC X(03) VALUE SPACES. DTSBR442 00202 10 WS-DTL-INT-AMT PIC -----,---,--9.99. DTSBR442 00203 10 FILLER PIC X(58) VALUE SPACES. DTSBR442 00204 DTSBR442 00205 EJECT DTSBR442 00206 01 L001-LINK-AREA. DTSBR442 00207 ++INCLUDE DTSIL001 DTSBR442 00208 EJECT DTSBR442 00209 01 L004-LINK-AREA. DTSBR442 00210 ++INCLUDE DTSIL004 DTSBR442 00211 EJECT DTSBR442 00212 LINKAGE SECTION. DTSBR442 00213 DTSBR442 00214 01 LRCM-LINK-AREA. DTSBR442 00215 ++INCLUDE DTSILRCM DTSBR442 00216 EJECT DTSBR442 00217 01 R442-REC. DTSBR442 00218 ++INCLUDE DTSIR442 DTSBR442 00219 EJECT DTSBR442 00220 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR442 00221 R442-REC. DTSBR442 00222 SKIP2 DTSBR442 00223 IF FIRST-TIME-IND = 'Y' DTSBR442 00224 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR442 00225 MOVE 'N' TO FIRST-TIME-IND. DTSBR442 00226 SKIP1 DTSBR442 00227 IF LRCM-EOR-88 DTSBR442 00228 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR442 00229 ELSE DTSBR442 00230 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR442 00231 SKIP2 DTSBR442 00232 GOBACK. DTSBR442 00233 EJECT DTSBR442 00234 I1000-INITIATE. DTSBR442 00235 SKIP1 DTSBR442 00236 OPEN OUTPUT PRT-FILE. DTSBR442 00237 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR442 00238 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR442 00239 MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1. DTSBR442 00240 MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2. DTSBR442 00241 MOVE SPACES TO PRT-RECORD. DTSBR442 00242 DTSBR442 00243 MOVE R442-CURR-RUN-DATE TO L001-FED-8-DATE-9. DTSBR442 00244 SET L001-FROM-FED-8 TO TRUE. DTSBR442 00245 PERFORM S001-DATE THRU S001-EXIT. DTSBR442 00246 IF L001-INVALID-DATE DTSBR442 00247 MOVE 'INVALID CURRENT RUN DATE' TO WRK-ABEND-MSG DTSBR442 00248 PERFORM S999-ABEND THRU S999-EXIT DTSBR442 00249 ELSE DTSBR442 00250 MOVE L001-SLASH-DATE TO WS-CURR-RUN-DATE. DTSBR442 00251 DTSBR442 00252 I1000-EXIT. DTSBR442 00253 EXIT. DTSBR442 00254 DTSBR442 00255 P1000-PROCESS. DTSBR442 00256 DTSBR442 00257 IF R442-SORT-CLASS-R-88 DTSBR442 00258 MOVE 'RATED ' TO WS-EMPLOYER-TYPE-DSCR DTSBR442 00259 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR442 00260 PERFORM P2000-PRINT-RATED-DETAIL THRU P2000-EXIT DTSBR442 00261 ELSE DTSBR442 00262 IF R442-SORT-CLASS-S-88 DTSBR442 00263 MOVE 'SELF INSURED' TO WS-EMPLOYER-TYPE-DSCR DTSBR442 00264 MOVE +60 TO WS-LINE-CNT DTSBR442 00265 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR442 00266 PERFORM P2100-PRINT-SELF-INS-DETAIL THRU P2100-EXIT DTSBR442 00267 ELSE DTSBR442 00268 MOVE 'EMPLOYER CLASS NOT EQUAL RATED OR SELF-INSURED' DTSBR442 00269 TO WRK-ABEND-MSG DTSBR442 00270 PERFORM S999-ABEND THRU S999-EXIT DTSBR442 00271 END-IF DTSBR442 00272 END-IF. DTSBR442 00273 DTSBR442 00274 P1000-EXIT. DTSBR442 00275 EXIT. DTSBR442 00276 DTSBR442 00277 P2000-PRINT-RATED-DETAIL. DTSBR442 00278 DTSBR442 00279 PERFORM DTSBR442 00280 VARYING R442-IDX FROM 1 BY 1 DTSBR442 00281 UNTIL R442-IDX > 7 DTSBR442 00282 DTSBR442 00283 MOVE R442-YRQ (R442-IDX) TO L004-QTR-5-9 DTSBR442 00284 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR442 00285 IF L004-INVALID-QTR DTSBR442 00286 MOVE 'INVALID YEAR/QTR ' TO WRK-ABEND-MSG DTSBR442 00287 PERFORM S999-ABEND THRU S999-EXIT DTSBR442 00288 ELSE DTSBR442 00289 IF R442-IDX = 7 DTSBR442 00290 MOVE L004-SLASH-5-QTR TO WRK-YRQ-1 DTSBR442 00291 MOVE WRK-LIT-1-PRIOR TO WS-DTL-YRQ-DSCR DTSBR442 00292 ELSE DTSBR442 00293 MOVE L004-SLASH-5-QTR TO WS-DTL-YRQ-DSCR DTSBR442 00294 END-IF DTSBR442 00295 END-IF DTSBR442 00296 DTSBR442 00297 MOVE R442-TAX-AMT (R442-IDX) TO WS-DTL-TAX-AMT DTSBR442 00298 MOVE R442-PEN-AMT (R442-IDX) TO WS-DTL-PEN-AMT DTSBR442 00299 MOVE R442-INT-AMT (R442-IDX) TO WS-DTL-INT-AMT DTSBR442 00300 DTSBR442 00301 ADD R442-TAX-AMT (R442-IDX) TO WRK-TOT-RATED-TAX DTSBR442 00302 ADD R442-PEN-AMT (R442-IDX) TO WRK-TOT-RATED-PEN DTSBR442 00303 ADD R442-INT-AMT (R442-IDX) TO WRK-TOT-RATED-INT DTSBR442 00304 DTSBR442 00305 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00306 ADD +1 TO WS-LINE-CNT2 DTSBR442 00307 END-PERFORM. DTSBR442 00308 DTSBR442 00309 WRITE PRT-RECORD FROM HEADER-9 AFTER 1. DTSBR442 00310 DTSBR442 00311 MOVE WRK-LIT-2-TOTAL TO WS-DTL-YRQ-DSCR. DTSBR442 00312 MOVE WRK-TOT-RATED-TAX TO WS-DTL-TAX-AMT. DTSBR442 00313 MOVE WRK-TOT-RATED-PEN TO WS-DTL-PEN-AMT. DTSBR442 00314 MOVE WRK-TOT-RATED-INT TO WS-DTL-INT-AMT. DTSBR442 00315 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00316 ADD +1 TO WS-LINE-CNT2 DTSBR442 00317 DTSBR442 00318 MOVE WRK-LIT-3-YR-OR-MORE TO WS-DTL-YRQ-DSCR. DTSBR442 00319 MOVE R442-3-YR-MORE-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00320 MOVE R442-3-YR-MORE-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00321 MOVE R442-3-YR-MORE-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00322 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00323 ADD +2 TO WS-LINE-CNT2 DTSBR442 00324 DTSBR442 00325 * MOVE WRK-LIT-4-SINCE-1999-4 TO WS-DTL-YRQ-DSCR. DTSBR442 00326 * MOVE R442-SINCE-19994-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00327 * MOVE R442-SINCE-19994-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00328 * MOVE R442-SINCE-19994-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00329 * WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00330 * ADD +2 TO WS-LINE-CNT2 DTSBR442 00331 DTSBR442 00332 MOVE WRK-LIT-5-ACTIVE TO WS-DTL-YRQ-DSCR. DTSBR442 00333 MOVE R442-ACTIVE-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00334 MOVE R442-ACTIVE-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00335 MOVE R442-ACTIVE-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00336 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00337 ADD +2 TO WS-LINE-CNT2 DTSBR442 00338 DTSBR442 00339 MOVE WRK-LIT-6-INACTIVE TO WS-DTL-YRQ-DSCR. DTSBR442 00340 MOVE R442-INACTIVE-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00341 MOVE R442-INACTIVE-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00342 MOVE R442-INACTIVE-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00343 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00344 ADD +1 TO WS-LINE-CNT2 DTSBR442 00345 DTSBR442 00346 MOVE WRK-LIT-7-INACT-3-YR TO WS-DTL-YRQ-DSCR. DTSBR442 00347 MOVE R442-INACT-3-YR-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00348 MOVE R442-INACT-3-YR-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00349 MOVE R442-INACT-3-YR-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00350 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00351 ADD +1 TO WS-LINE-CNT2 DTSBR442 00352 DTSBR442 00353 MOVE WRK-LIT-8-CHPT-7 TO WS-DTL-YRQ-DSCR. DTSBR442 00354 MOVE R442-TOT-CHPT-7-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00355 MOVE R442-TOT-CHPT-7-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00356 MOVE R442-TOT-CHPT-7-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00357 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00358 ADD +2 TO WS-LINE-CNT2 DTSBR442 00359 DTSBR442 00360 MOVE WRK-LIT-9-CHPT-11 TO WS-DTL-YRQ-DSCR. DTSBR442 00361 MOVE R442-TOT-CHPT-11-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00362 MOVE R442-TOT-CHPT-11-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00363 MOVE R442-TOT-CHPT-11-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00364 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00365 ADD +1 TO WS-LINE-CNT2. DTSBR442 00366 DTSBR442 00367 P2000-EXIT. DTSBR442 00368 EXIT. DTSBR442 00369 DTSBR442 00370 P2100-PRINT-SELF-INS-DETAIL. DTSBR442 00371 DTSBR442 00372 PERFORM DTSBR442 00373 VARYING R442-IDX FROM 1 BY 1 DTSBR442 00374 UNTIL R442-IDX > 7 DTSBR442 00375 DTSBR442 00376 MOVE R442-YRQ (R442-IDX) TO L004-QTR-5-9 DTSBR442 00377 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR442 00378 IF L004-INVALID-QTR DTSBR442 00379 MOVE 'INVALID YEAR/QTR ' TO WRK-ABEND-MSG DTSBR442 00380 PERFORM S999-ABEND THRU S999-EXIT DTSBR442 00381 ELSE DTSBR442 00382 IF R442-IDX = 7 DTSBR442 00383 MOVE L004-SLASH-5-QTR TO WRK-YRQ-1 DTSBR442 00384 MOVE WRK-LIT-1-PRIOR TO WS-DTL-YRQ-DSCR DTSBR442 00385 ELSE DTSBR442 00386 MOVE L004-SLASH-5-QTR TO WS-DTL-YRQ-DSCR DTSBR442 00387 END-IF DTSBR442 00388 END-IF DTSBR442 00389 DTSBR442 00390 MOVE R442-TAX-AMT (R442-IDX) TO WS-DTL-TAX-AMT DTSBR442 00391 MOVE R442-PEN-AMT (R442-IDX) TO WS-DTL-PEN-AMT DTSBR442 00392 MOVE R442-INT-AMT (R442-IDX) TO WS-DTL-INT-AMT DTSBR442 00393 DTSBR442 00394 ADD R442-TAX-AMT (R442-IDX) TO WRK-TOT-SELF-INS-TAX DTSBR442 00395 ADD R442-PEN-AMT (R442-IDX) TO WRK-TOT-SELF-INS-PEN DTSBR442 00396 ADD R442-INT-AMT (R442-IDX) TO WRK-TOT-SELF-INS-INT DTSBR442 00397 DTSBR442 00398 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00399 ADD +1 TO WS-LINE-CNT2 DTSBR442 00400 END-PERFORM. DTSBR442 00401 DTSBR442 00402 WRITE PRT-RECORD FROM HEADER-9 AFTER 1. DTSBR442 00403 DTSBR442 00404 MOVE WRK-LIT-2-TOTAL TO WS-DTL-YRQ-DSCR. DTSBR442 00405 MOVE WRK-TOT-SELF-INS-TAX TO WS-DTL-TAX-AMT. DTSBR442 00406 MOVE WRK-TOT-SELF-INS-PEN TO WS-DTL-PEN-AMT. DTSBR442 00407 MOVE WRK-TOT-SELF-INS-INT TO WS-DTL-INT-AMT. DTSBR442 00408 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00409 ADD +1 TO WS-LINE-CNT2 DTSBR442 00410 DTSBR442 00411 MOVE WRK-LIT-3-YR-OR-MORE TO WS-DTL-YRQ-DSCR. DTSBR442 00412 MOVE R442-3-YR-MORE-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00413 MOVE R442-3-YR-MORE-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00414 MOVE R442-3-YR-MORE-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00415 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00416 ADD +2 TO WS-LINE-CNT2 DTSBR442 00417 DTSBR442 00418 * MOVE WRK-LIT-4-SINCE-1999-4 TO WS-DTL-YRQ-DSCR. DTSBR442 00419 * MOVE R442-SINCE-19994-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00420 * MOVE R442-SINCE-19994-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00421 * MOVE R442-SINCE-19994-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00422 * WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00423 * ADD +2 TO WS-LINE-CNT2 DTSBR442 00424 DTSBR442 00425 MOVE WRK-LIT-5-ACTIVE TO WS-DTL-YRQ-DSCR. DTSBR442 00426 MOVE R442-ACTIVE-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00427 MOVE R442-ACTIVE-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00428 MOVE R442-ACTIVE-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00429 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00430 ADD +2 TO WS-LINE-CNT2 DTSBR442 00431 DTSBR442 00432 MOVE WRK-LIT-6-INACTIVE TO WS-DTL-YRQ-DSCR. DTSBR442 00433 MOVE R442-INACTIVE-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00434 MOVE R442-INACTIVE-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00435 MOVE R442-INACTIVE-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00436 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00437 ADD +1 TO WS-LINE-CNT2 DTSBR442 00438 DTSBR442 00439 MOVE WRK-LIT-7-INACT-3-YR TO WS-DTL-YRQ-DSCR. DTSBR442 00440 MOVE R442-INACT-3-YR-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00441 MOVE R442-INACT-3-YR-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00442 MOVE R442-INACT-3-YR-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00443 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00444 ADD +1 TO WS-LINE-CNT2 DTSBR442 00445 DTSBR442 00446 MOVE WRK-LIT-8-CHPT-7 TO WS-DTL-YRQ-DSCR. DTSBR442 00447 MOVE R442-TOT-CHPT-7-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00448 MOVE R442-TOT-CHPT-7-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00449 MOVE R442-TOT-CHPT-7-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00450 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 2 DTSBR442 00451 ADD +2 TO WS-LINE-CNT2 DTSBR442 00452 DTSBR442 00453 MOVE WRK-LIT-9-CHPT-11 TO WS-DTL-YRQ-DSCR. DTSBR442 00454 MOVE R442-TOT-CHPT-11-TAX-AMT TO WS-DTL-TAX-AMT. DTSBR442 00455 MOVE R442-TOT-CHPT-11-PEN-AMT TO WS-DTL-PEN-AMT. DTSBR442 00456 MOVE R442-TOT-CHPT-11-INT-AMT TO WS-DTL-INT-AMT. DTSBR442 00457 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR442 00458 ADD +1 TO WS-LINE-CNT2. DTSBR442 00459 DTSBR442 00460 P2100-EXIT. DTSBR442 00461 EXIT. DTSBR442 00462 DTSBR442 00463 P3000-PRINT-HEADER. DTSBR442 00464 IF WS-LINE-CNT GREATER 58 OR DTSBR442 00465 WS-LINE-CNT2 GREATER 58 DTSBR442 00466 MOVE +0 TO WS-LINE-CNT DTSBR442 00467 MOVE +0 TO WS-LINE-CNT2 DTSBR442 00468 ADD +1 TO WS-PAGE-CNT DTSBR442 00469 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT DTSBR442 00470 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR442 00471 WRITE PRT-RECORD FROM HEADER-2 AFTER 1 DTSBR442 00472 WRITE PRT-RECORD FROM HEADER-3 AFTER 1 DTSBR442 00473 WRITE PRT-RECORD FROM HEADER-4 AFTER 1 DTSBR442 00474 WRITE PRT-RECORD FROM HEADER-5 AFTER 1 DTSBR442 00475 WRITE PRT-RECORD FROM HEADER-6 AFTER 1 DTSBR442 00476 WRITE PRT-RECORD FROM HEADER-7 AFTER 1 DTSBR442 00477 WRITE PRT-RECORD FROM HEADER-8 AFTER 1 DTSBR442 00478 WRITE PRT-RECORD FROM HEADER-9 AFTER 1 DTSBR442 00479 WRITE PRT-RECORD FROM WS-BLANK-LINE AFTER 1 DTSBR442 00480 ADD +10 TO WS-LINE-CNT2. DTSBR442 00481 P3000-EXIT. DTSBR442 00482 EXIT. DTSBR442 00483 DTSBR442 00484 T1000-TERMINATE. DTSBR442 00485 CLOSE PRT-FILE. DTSBR442 00486 DTSBR442 00487 T1000-EXIT. DTSBR442 00488 EXIT. DTSBR442 00489 DTSBR442 00490 S001-DATE. DTSBR442 00491 SKIP1 DTSBR442 00492 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR442 00493 SKIP2 DTSBR442 00494 S001-EXIT. DTSBR442 00495 EXIT. DTSBR442 00496 DTSBR442 00497 S004-FROM-5. DTSBR442 00498 SET L004-FROM-5 TO TRUE. DTSBR442 00499 GO TO S004-YRQ. DTSBR442 00500 DTSBR442 00501 S004-FROM-ABS. DTSBR442 00502 SET L004-FROM-ABS TO TRUE. DTSBR442 00503 GO TO S004-YRQ. DTSBR442 00504 DTSBR442 00505 S004-YRQ. DTSBR442 00506 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR442 00507 DTSBR442 00508 S004-EXIT. DTSBR442 00509 EXIT. DTSBR442 00510 DTSBR442 00511 S999-ABEND. DTSBR442 00512 DISPLAY '*** DTSBR442 ABENDING. ' DTSBR442 00513 WRK-ABEND-MSG. DTSBR442 00514 DTSBR442 00515 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR442 00516 DTSBR442 00517 S999-EXIT. DTSBR442 00518 EXIT. DTSBR442 00519 DTSBR442