00001 IDENTIFICATION DIVISION. 09/01/05 00002 PROGRAM-ID. DTSBR332. DTSBR332 00003 AUTHOR. NORTHROP GRUMMAN LV001 00004 DATE-WRITTEN. NOVEMBER 2004. DTSBR332 00005 DATE-COMPILED. DTSBR332 00006 SKIP3 DTSBR332 00007 ***** DTSBR332 00008 * DTSBR332 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR332 00010 * DTSBX332 WHICH CREATES DTSIR332 RECORDS DTSBR332 00011 * DTSBD800 CALLS DTSBR332 00012 * DTSBR332 WHICH READS DTSIR332 RECORDS DTSBR332 00013 * DTSBR332 00014 * FUNCTION: RECEIVABLES OVER 120 DAYS OLD. DTSBR332 00015 * DTSBR332 00016 * DTSBR332 00017 * MODIFICATION HISTORY: DTSBR332 00018 * DTSBR332 00019 * 11-17-04 INITIAL DEVELOPMENT DTSBR332 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RW1 DTSBR332 00021 * DTSBR332 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR332 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR332 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR332 00025 * DTSBR332 00026 * DTSBR332 00027 * DESCRIPTION: DTSBR332 00028 * DTSBR332 00029 * THIS MODULE PRODUCES A REPORT OF ACCOUNT RECEIVABLE DTSBR332 00030 * BASED ON A CUTOFF DATE FOR ANY OF THE FIELD REPRE- DTSBR332 00031 * SENTATIVES. DTSBR332 00032 * DTSBR332 00033 * DTSBR332 00034 * RECORDS READ: DTSBR332 00035 * DTSBR332 00036 * NONE. DTSBR332 00037 * DTSBR332 00038 * DTSBR332 00039 * PRINTED OUTPUTS: DTSBR332 00040 * DTSBR332 00041 * 332R1 RECEIVABLES OVER 120 DAYS OLD. DTSBR332 00042 * DTSBR332 00043 * DTSBR332 00044 * RECORDS WRITTEN: DTSBR332 00045 * DTSBR332 00046 * NONE. DTSBR332 00047 * DTSBR332 00048 * DTSBR332 00049 * MODULES CALLED: DTSBR332 00050 * DTSBR332 00051 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR332 00052 * DTSBU004 YEAR QTR EDIT/CONVERSION MODULE DTSBR332 00053 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSBR332 00054 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR332 00055 * DTSBR332 00056 * DTSBR332 00057 ***** DTSBR332 00058 EJECT DTSBR332 00059 ENVIRONMENT DIVISION. DTSBR332 00060 DTSBR332 00061 CONFIGURATION SECTION. DTSBR332 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR332 00063 DTSBR332 00064 INPUT-OUTPUT SECTION. DTSBR332 00065 SKIP1 DTSBR332 00066 FILE-CONTROL. DTSBR332 00067 SELECT PRT-FILE1 ASSIGN TO RPT332R1. DTSBR332 00068 SKIP3 DTSBR332 00069 DATA DIVISION. DTSBR332 00070 DTSBR332 00071 FILE SECTION. DTSBR332 00072 DTSBR332 00073 FD PRT-FILE1 DTSBR332 00074 RECORDING MODE IS F. DTSBR332 00075 01 REPORT-LISTING1 PIC X(133). DTSBR332 00076 DTSBR332 00077 WORKING-STORAGE SECTION. DTSBR332 000775 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR332 09/01/05'. DTSBR332 00078 SKIP3 DTSBR332 00079 01 WRK-AREA. DTSBR332 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +332.DTSBR332 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR332 00082 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR332 00083 DTSBR332 00084 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR332 00085 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR332 00086 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR332 00087 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR332 00088 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR332 00089 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR332 00090 05 WS-FOOT-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR332 00091 05 WS-FOOT-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR332 00092 05 WS-FOOT-ONE-AMT PIC S9(07)V99 COMP-3 DTSBR332 00093 VALUE +0. DTSBR332 00094 05 WS-FOOT-TWO-AMT PIC S9(09)V99 COMP-3 DTSBR332 00095 VALUE +0. DTSBR332 00096 DTSBR332 00097 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR332 00098 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR332 00099 DTSBR332 00100 05 WS-FLD-REP-ID-HOLD PIC X(02) VALUE SPACES. DTSBR332 00101 DTSBR332 00102 EJECT DTSBR332 00103 01 L001-LINK-AREA. DTSBR332 00104 ++INCLUDE DTSIL001 DTSBR332 00105 EJECT DTSBR332 00106 01 L004-LINK-AREA. DTSBR332 00107 ++INCLUDE DTSIL004 DTSBR332 00108 SKIP3 DTSBR332 00109 01 L062-LINK-AREA. DTSBR332 00110 ++INCLUDE DTSIL062 DTSBR332 00111 EJECT DTSBR332 00112 01 L071-LINK-AREA. DTSBR332 00113 ++INCLUDE DTSIL071 DTSBR332 00114 EJECT DTSBR332 00115 01 PAGE-HEADING1. DTSBR332 00116 05 HEADER1-LINE-1. DTSBR332 00117 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00118 10 FILLER PIC X(05) DTSBR332 00119 VALUE '332R1'. DTSBR332 00120 10 FILLER PIC X(34) VALUE SPACES. DTSBR332 00121 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR332 00122 10 FILLER PIC X(28) VALUE SPACES. DTSBR332 00123 10 FILLER PIC X(05) DTSBR332 00124 VALUE 'DATE:'. DTSBR332 00125 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00126 10 HDR1-SYS-DATE PIC X(08). DTSBR332 00127 05 HEADER1-LINE-2. DTSBR332 00128 10 FILLER PIC X(40) VALUE SPACES. DTSBR332 00129 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR332 00130 10 FILLER PIC X(28) VALUE SPACES. DTSBR332 00131 10 FILLER PIC X(05) DTSBR332 00132 VALUE 'TIME:'. DTSBR332 00133 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00134 10 HDR1-SYS-TIME PIC X(08). DTSBR332 00135 05 HEADER1-LINE-3. DTSBR332 00136 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00137 10 FILLER PIC X(28) DTSBR332 00138 VALUE 'ROUTE TO: ACCOUNTING '. DTSBR332 00139 10 FILLER PIC X(19) VALUE SPACES. DTSBR332 00140 10 FILLER PIC X(40) DTSBR332 00141 VALUE ' RECEIVABLES OVER 120 DAYS OLD '. DTSBR332 00142 10 FILLER PIC X(30) VALUE SPACES. DTSBR332 00143 10 FILLER PIC X(05) DTSBR332 00144 VALUE 'PAGE:'. DTSBR332 00145 10 FILLER PIC X(03) VALUE SPACES. DTSBR332 00146 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR332 00147 05 HEADER1-LINE-4 PIC X(133) VALUE SPACES. DTSBR332 00148 05 HEADER1-LINE-5 PIC X(133) VALUE SPACES. DTSBR332 00149 05 HEADER1-LINE-6. DTSBR332 00150 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00151 10 FILLER PIC X(33) DTSBR332 00152 VALUE 'RECEIVABLES ESTABLISHED BETWEEN: '. DTSBR332 00153 10 HDR1-START-DATE PIC X(10). DTSBR332 00154 10 FILLER PIC X(05) DTSBR332 00155 VALUE ' AND '. DTSBR332 00156 10 HDR1-END-DATE PIC X(10). DTSBR332 00157 10 FILLER PIC X(74) VALUE SPACES. DTSBR332 00158 05 HEADER1-LINE-7 PIC X(133) VALUE SPACES. DTSBR332 00159 05 HEADER1-LINE-8 PIC X(133) VALUE SPACES. DTSBR332 00160 05 HEADER1-LINE-9. DTSBR332 00161 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00162 10 FILLER PIC X(11) DTSBR332 00163 VALUE 'FLD REP : '. DTSBR332 00164 10 HDR1-FLD-REP-NAME PIC X(32). DTSBR332 00165 10 FILLER PIC X(89) VALUE SPACES. DTSBR332 00166 05 HEADER1-LINE-10. DTSBR332 00167 10 FILLER PIC X(01) VALUE SPACE. DTSBR332 00168 10 FILLER PIC X(11) DTSBR332 00169 VALUE 'FLD CODE: '. DTSBR332 00170 10 HDR1-FLD-REP-ID PIC X(02). DTSBR332 00171 05 HEADER1-LINE-11 PIC X(133) VALUE SPACES. DTSBR332 00172 05 HEADER1-LINE-12 PIC X(133) VALUE SPACES. DTSBR332 00173 05 HEADER1-LINE-13. DTSBR332 00174 10 FILLER PIC X(01) VALUE SPACES. DTSBR332 00175 10 FILLER PIC X(07) DTSBR332 00176 VALUE 'EMP NO '. DTSBR332 00177 10 FILLER PIC X(04) VALUE SPACES. DTSBR332 00178 10 FILLER PIC X(07) DTSBR332 00179 VALUE 'QUARTER'. DTSBR332 00180 10 FILLER PIC X(05) VALUE SPACES. DTSBR332 00181 10 FILLER PIC X(06) DTSBR332 00182 VALUE 'AMOUNT'. DTSBR332 00183 10 FILLER PIC X(101) VALUE SPACES. DTSBR332 00184 DTSBR332 00185 01 REPORT1-DETAIL. DTSBR332 00186 05 DTL1-LINE-2. DTSBR332 00187 10 FILLER PIC X(01) VALUE SPACES. DTSBR332 00188 10 WS-EMP-NO PIC 999B999. DTSBR332 00189 10 FILLER PIC X(04) VALUE SPACES. DTSBR332 00190 10 WS-YRQ PIC X(06). DTSBR332 00191 10 FILLER PIC X(01) VALUE SPACES. DTSBR332 00192 10 WS-AMT PIC ZZ,ZZZ,ZZ9.99. DTSBR332 00193 10 FILLER PIC X(101) VALUE SPACES. DTSBR332 00194 DTSBR332 00195 01 CONTROL-FOOTING. DTSBR332 00196 05 CTF-LINE-5. DTSBR332 00197 10 FILLER PIC X(18) VALUE SPACES. DTSBR332 00198 10 WS-CTF-CNT PIC ZZZ,ZZ9. DTSBR332 00199 10 FILLER PIC X(27) DTSBR332 00200 VALUE ' TOTAL NUMBER OF ACCOUNTS '. DTSBR332 00201 05 CTF-LINE-6 PIC X(133) VALUE SPACES. DTSBR332 00202 05 CTF-LINE-7. DTSBR332 00203 10 FILLER PIC X(11) VALUE SPACES. DTSBR332 00204 10 WS-CTF-AMT PIC $$$,$$$,$$9.99. DTSBR332 00205 10 FILLER PIC X(27) DTSBR332 00206 VALUE ' TOTAL DEBITS ESTABLISHED '. DTSBR332 00207 EJECT DTSBR332 00208 SKIP2 DTSBR332 00209 01 CONTROL-FOOTING-FINAL. DTSBR332 00210 05 CFF-LINE-5. DTSBR332 00211 10 FILLER PIC X(11) VALUE SPACES. DTSBR332 00212 10 WS-CFF-AMT PIC $$$,$$$,$$9.99. DTSBR332 00213 10 FILLER PIC X(21) DTSBR332 00214 VALUE ' GRAND TOTAL AMOUNT '. DTSBR332 00215 05 CFF-LINE-6 PIC X(133) VALUE SPACES. DTSBR332 00216 05 CFF-LINE-7. DTSBR332 00217 10 FILLER PIC X(27) VALUE SPACES. DTSBR332 00218 10 FILLER PIC X(21) DTSBR332 00219 VALUE '*** END OF REPORT '. DTSBR332 00220 EJECT DTSBR332 00221 LINKAGE SECTION. DTSBR332 00222 DTSBR332 00223 01 LRCM-LINK-AREA. DTSBR332 00224 ++INCLUDE DTSILRCM DTSBR332 00225 EJECT DTSBR332 00226 01 R332-REC. DTSBR332 00227 ++INCLUDE DTSIR332 DTSBR332 00228 EJECT DTSBR332 00229 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR332 00230 R332-REC. DTSBR332 00231 DTSBR332 00232 IF FIRST-TIME-IND = 'Y' DTSBR332 00233 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR332 00234 MOVE 'N' TO FIRST-TIME-IND. DTSBR332 00235 SKIP1 DTSBR332 00236 IF LRCM-EOR-88 DTSBR332 00237 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR332 00238 ELSE DTSBR332 00239 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR332 00240 SKIP2 DTSBR332 00241 GOBACK. DTSBR332 00242 EJECT DTSBR332 00243 I1000-INITIATE. DTSBR332 00244 DTSBR332 00245 OPEN OUTPUT PRT-FILE1. DTSBR332 00246 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR332 00247 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR332 00248 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR332 00249 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR332 00250 MOVE SPACES TO REPORT-LISTING1. DTSBR332 00251 DTSBR332 00252 PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT. DTSBR332 00253 DTSBR332 00254 MOVE R332-START-DATE TO L001-FED-8-DATE-9. DTSBR332 00255 SET L001-FROM-FED-8 TO TRUE. DTSBR332 00256 PERFORM S001-DATE THRU S001-EXIT. DTSBR332 00257 MOVE L001-SLASH-8-DATE TO HDR1-START-DATE. DTSBR332 00258 DTSBR332 00259 MOVE R332-END-DATE TO L001-FED-8-DATE-9. DTSBR332 00260 SET L001-FROM-FED-8 TO TRUE. DTSBR332 00261 PERFORM S001-DATE THRU S001-EXIT. DTSBR332 00262 MOVE L001-SLASH-8-DATE TO HDR1-END-DATE. DTSBR332 00263 DTSBR332 00264 I1000-EXIT. DTSBR332 00265 EXIT. DTSBR332 00266 EJECT DTSBR332 00267 P1000-PROCESS. DTSBR332 00268 SKIP1 DTSBR332 00269 IF R332-FLD-REP-ID = WS-FLD-REP-ID-HOLD DTSBR332 00270 NEXT SENTENCE DTSBR332 00271 ELSE DTSBR332 00272 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR332 00273 MOVE +0 TO WS-PAGE-CNT DTSBR332 00274 MOVE +60 TO WS-LINE-CNT2 DTSBR332 00275 PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT DTSBR332 00276 END-IF. DTSBR332 00277 DTSBR332 00278 MOVE R332-YRQ TO L004-QTR-5-9. DTSBR332 00279 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR332 00280 MOVE L004-SLASH-5-QTR TO WS-YRQ. DTSBR332 00281 DTSBR332 00282 * MOVE R332-ESTB-DATE TO L001-FED-8-DATE-9. DTSBR332 00283 * SET L001-FROM-FED-8 TO TRUE. DTSBR332 00284 * PERFORM S001-DATE THRU S001-EXIT. DTSBR332 00285 * MOVE L001-SLASH-8-DATE TO WS-ESTB-DATE. DTSBR332 00286 DTSBR332 00287 MOVE R332-FLD-REP-ID TO HDR1-FLD-REP-ID. DTSBR332 00288 MOVE R332-EMP-NO TO WS-EMP-NO. DTSBR332 00289 * MOVE R332-BATCH-NO TO WS-BATCH-NO. DTSBR332 00290 * MOVE R332-ITEM-NO TO WS-ITEM-NO. DTSBR332 00291 * MOVE R332-TRAN-TYPE TO WS-TRAN-TYPE. DTSBR332 00292 MOVE R332-UI-TAX-BAL TO WS-AMT. DTSBR332 00293 ADD R332-UI-TAX-BAL TO WS-FOOT-ONE-AMT. DTSBR332 00294 ADD R332-UI-TAX-BAL TO WS-FOOT-TWO-AMT. DTSBR332 00295 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR332 00296 WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2. DTSBR332 00297 ADD +2 TO WS-LINE-CNT2. DTSBR332 00298 ADD +1 TO WS-FOOT-NUMBER-TWO. DTSBR332 00299 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR332 00300 DTSBR332 00301 P1000-EXIT. DTSBR332 00302 EXIT. DTSBR332 00303 DTSBR332 00304 P2000-FLD-REP-LOOKUP. DTSBR332 00305 DTSBR332 00306 MOVE R332-FLD-REP-ID TO WS-FLD-REP-ID-HOLD DTSBR332 00307 L062-FLD-REP-ID. DTSBR332 00308 PERFORM S062-FLD-REP-INFO THRU S062-EXIT. DTSBR332 00309 DISPLAY ' L062-NAME ' L062-NAME DTSBR332 00310 IF L062-VALID DTSBR332 00311 MOVE L062-NAME TO L071-NAM DTSBR332 00312 SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSBR332 00313 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR332 00314 MOVE L071-NAM TO HDR1-FLD-REP-NAME DTSBR332 00315 ELSE DTSBR332 00316 MOVE L062-NAME TO HDR1-FLD-REP-NAME DTSBR332 00317 END-IF. DTSBR332 00318 DTSBR332 00319 P2000-EXIT. DTSBR332 00320 EXIT. DTSBR332 00321 DTSBR332 00322 P3000-PRINT-HEADER. DTSBR332 00323 DTSBR332 00324 IF WS-LINE-CNT GREATER 58 OR DTSBR332 00325 WS-LINE-CNT2 GREATER 58 DTSBR332 00326 MOVE +0 TO WS-LINE-CNT DTSBR332 00327 MOVE +0 TO WS-LINE-CNT2 DTSBR332 00328 ADD +1 TO WS-PAGE-CNT DTSBR332 00329 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR332 00330 WRITE REPORT-LISTING1 FROM HEADER1-LINE-1 DTSBR332 00331 AFTER TOP-OF-PAGE DTSBR332 00332 WRITE REPORT-LISTING1 FROM HEADER1-LINE-2 AFTER 1 DTSBR332 00333 WRITE REPORT-LISTING1 FROM HEADER1-LINE-3 AFTER 1 DTSBR332 00334 WRITE REPORT-LISTING1 FROM HEADER1-LINE-4 AFTER 1 DTSBR332 00335 WRITE REPORT-LISTING1 FROM HEADER1-LINE-5 AFTER 1 DTSBR332 00336 WRITE REPORT-LISTING1 FROM HEADER1-LINE-6 AFTER 1 DTSBR332 00337 WRITE REPORT-LISTING1 FROM HEADER1-LINE-7 AFTER 1 DTSBR332 00338 WRITE REPORT-LISTING1 FROM HEADER1-LINE-8 AFTER 1 DTSBR332 00339 WRITE REPORT-LISTING1 FROM HEADER1-LINE-9 AFTER 1 DTSBR332 00340 WRITE REPORT-LISTING1 FROM HEADER1-LINE-10 AFTER 1 DTSBR332 00341 WRITE REPORT-LISTING1 FROM HEADER1-LINE-11 AFTER 1 DTSBR332 00342 WRITE REPORT-LISTING1 FROM HEADER1-LINE-12 AFTER 1 DTSBR332 00343 WRITE REPORT-LISTING1 FROM HEADER1-LINE-13 AFTER 1 DTSBR332 00344 ADD +13 TO WS-LINE-CNT2. DTSBR332 00345 DTSBR332 00346 P3000-EXIT. DTSBR332 00347 EXIT. DTSBR332 00348 DTSBR332 00349 P5000-PRINT-FOOTER. DTSBR332 00350 IF WS-LINE-CNT2 > 52 DTSBR332 00351 ADD +8 TO WS-LINE-CNT2 DTSBR332 00352 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR332 00353 END-IF. DTSBR332 00354 DTSBR332 00355 MOVE WS-FOOT-ONE-AMT TO WS-CTF-AMT. DTSBR332 00356 MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-CNT. DTSBR332 00357 WRITE REPORT-LISTING1 FROM CTF-LINE-5 AFTER 3. DTSBR332 00358 WRITE REPORT-LISTING1 FROM CTF-LINE-6 AFTER 1. DTSBR332 00359 WRITE REPORT-LISTING1 FROM CTF-LINE-7 AFTER 1. DTSBR332 00360 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR332 00361 MOVE +0 TO WS-FOOT-ONE-AMT. DTSBR332 00362 MOVE +60 TO WS-LINE-CNT2. DTSBR332 00363 DTSBR332 00364 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR332 00365 IF WRK-ODD-PAGE-88 DTSBR332 00366 WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE DTSBR332 00367 AFTER TOP-OF-PAGE DTSBR332 00368 WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE AFTER 58 DTSBR332 00369 ADD +60 TO WS-LINE-CNT2 DTSBR332 00370 MOVE +0 TO WS-PAGE-CNT DTSBR332 00371 END-IF. DTSBR332 00372 DTSBR332 00373 P5000-EXIT. DTSBR332 00374 EXIT. DTSBR332 00375 DTSBR332 00376 T1000-TERMINATE. DTSBR332 00377 DTSBR332 00378 IF WS-LINE-CNT2 > 52 DTSBR332 00379 ADD +8 TO WS-LINE-CNT2 DTSBR332 00380 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR332 00381 END-IF. DTSBR332 00382 DTSBR332 00383 MOVE WS-FOOT-ONE-AMT TO WS-CTF-AMT. DTSBR332 00384 MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-CNT. DTSBR332 00385 WRITE REPORT-LISTING1 FROM CTF-LINE-5 AFTER 3. DTSBR332 00386 WRITE REPORT-LISTING1 FROM CTF-LINE-6 AFTER 1. DTSBR332 00387 WRITE REPORT-LISTING1 FROM CTF-LINE-7 AFTER 1. DTSBR332 00388 DTSBR332 00389 IF WS-LINE-CNT2 > 52 DTSBR332 00390 ADD +8 TO WS-LINE-CNT2 DTSBR332 00391 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR332 00392 END-IF. DTSBR332 00393 DTSBR332 00394 MOVE WS-FOOT-TWO-AMT TO WS-CFF-AMT. DTSBR332 00395 WRITE REPORT-LISTING1 FROM CFF-LINE-5 AFTER 3. DTSBR332 00396 WRITE REPORT-LISTING1 FROM CFF-LINE-6 AFTER 1. DTSBR332 00397 WRITE REPORT-LISTING1 FROM CFF-LINE-7 AFTER 1. DTSBR332 00398 DTSBR332 00399 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR332 00400 IF WRK-ODD-PAGE-88 DTSBR332 00401 WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE DTSBR332 00402 AFTER TOP-OF-PAGE DTSBR332 00403 WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE AFTER 58 DTSBR332 00404 END-IF. DTSBR332 00405 DTSBR332 00406 CLOSE PRT-FILE1. DTSBR332 00407 DTSBR332 00408 T1000-EXIT. DTSBR332 00409 EXIT. DTSBR332 00410 EJECT DTSBR332 00411 S001-DATE. DTSBR332 00412 DTSBR332 00413 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR332 00414 DTSBR332 00415 S001-EXIT. DTSBR332 00416 EXIT. DTSBR332 00417 DTSBR332 00418 S004-FROM-5. DTSBR332 00419 SET L004-FROM-5 TO TRUE. DTSBR332 00420 GO TO S004-QTR. DTSBR332 00421 DTSBR332 00422 S004-FROM-ABS. DTSBR332 00423 SET L004-FROM-ABS TO TRUE. DTSBR332 00424 GO TO S004-QTR. DTSBR332 00425 DTSBR332 00426 S004-FROM-3. DTSBR332 00427 SET L004-FROM-3 TO TRUE. DTSBR332 00428 GO TO S004-QTR. DTSBR332 00429 DTSBR332 00430 S004-QTR. DTSBR332 00431 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR332 00432 DTSBR332 00433 S004-EXIT. DTSBR332 00434 EXIT. DTSBR332 00435 DTSBR332 00436 S062-FLD-REP-INFO. DTSBR332 00437 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR332 00438 DTSBR332 00439 S062-EXIT. DTSBR332 00440 EXIT. DTSBR332 00441 DTSBR332 00442 S071-DESLASH-NAME. DTSBR332 00443 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR332 00444 DTSBR332 00445 S071-EXIT. DTSBR332 00446 EXIT. DTSBR332 00447 DTSBR332 00448 S999-ABEND. DTSBR332 00449 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR332 00450 DTSBR332 00451 S999-EXIT. DTSBR332 00452 EXIT. DTSBR332 00453 DTSBR332