00001 IDENTIFICATION DIVISION. 04/05/04 00002 PROGRAM-ID. DTSBR318. DTSBR318 00003 AUTHOR. TRW/TDI OUTSOURCE. LV001 00004 DATE-WRITTEN. JUNE 2003. DTSBR318 00005 DATE-COMPILED. DTSBR318 00006 SKIP3 DTSBR318 00007 ***** DTSBR318 00008 * DTSBR318 00009 * CALLING SEQUENCE: DTSBD800 CALLS DTSBR318 00010 * DTSBR318 WHICH READS DTSIR318 RECORDS DTSBR318 00011 * DTSBR318 00012 * FUNCTION: FIELD REP EFT PAYMENT TRANSACTION LIST. DTSBR318 00013 * DTSBR318 00014 * DTSBR318 00015 * MODIFICATION HISTORY: DTSBR318 00016 * DTSBR318 00017 * DTSBR318 00018 * 06-20-02 INITIAL DEVELOPMENT. COPIED FROM DTSBR311 DTSBR318 00019 * REFERENCE EFT SYSTEM AUTHOR OF CHANGE - RW1 DTSBR318 00020 * DTSBR318 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR318 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR318 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR318 00024 * DTSBR318 00025 * DTSBR318 00026 * DESCRIPTION: DTSBR318 00027 * DTSBR318 00028 * THIS MODULE PRODUCES A LIST OF PAYMENT TRANSACTIONS DTSBR318 00029 * PROCESSED THROUGH THE GOV1 EFT IVR/WEB SYSTEM. DTSBR318 00030 * A PARAMETER SPECIFIED PERIOD OF TIME FOR DTSBR318 00031 * ANY OF THE FIELD REPRESENTATIVES. DTSBR318 00032 * DTSBR318 00033 * DTSBR318 00034 * RECORDS READ: DTSBR318 00035 * DTSBR318 00036 * NONE. DTSBR318 00037 * DTSBR318 00038 * DTSBR318 00039 * PRINTED OUTPUTS: DTSBR318 00040 * DTSBR318 00041 * 318R1 FIELD REPRESENTATIVE EFT PAYMENT LIST DTSBR318 00042 * 318R2 FIELD REPRESENTATIVE TOTALS REPORT DTSBR318 00043 * DTSBR318 00044 * DTSBR318 00045 * RECORDS WRITTEN: DTSBR318 00046 * DTSBR318 00047 * NONE. DTSBR318 00048 * DTSBR318 00049 * DTSBR318 00050 * MODULES CALLED: DTSBR318 00051 * DTSBR318 00052 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR318 00053 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE DTSBR318 00054 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR318 00055 * DTSBR318 00056 * DTSBR318 00057 ***** DTSBR318 00058 EJECT DTSBR318 00059 ENVIRONMENT DIVISION. DTSBR318 00060 DTSBR318 00061 CONFIGURATION SECTION. DTSBR318 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR318 00063 DTSBR318 00064 INPUT-OUTPUT SECTION. DTSBR318 00065 SKIP1 DTSBR318 00066 FILE-CONTROL. DTSBR318 00067 SELECT PRT-FILE1 ASSIGN TO RPT318R1. DTSBR318 00068 SELECT PRT-FILE2 ASSIGN TO RPT318R2. DTSBR318 00069 SKIP3 DTSBR318 00070 DATA DIVISION. DTSBR318 00071 DTSBR318 00072 FILE SECTION. DTSBR318 00073 DTSBR318 00074 FD PRT-FILE1 DTSBR318 00075 RECORDING MODE IS F. DTSBR318 00076 01 REPORT-LISTING1 PIC X(133). DTSBR318 00077 DTSBR318 00078 FD PRT-FILE2 DTSBR318 00079 RECORDING MODE IS F. DTSBR318 00080 01 REPORT-LISTING2 PIC X(133). DTSBR318 00081 DTSBR318 00082 WORKING-STORAGE SECTION. DTSBR318 000825 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR318 04/05/04'. DTSBR318 00083 SKIP3 DTSBR318 00084 01 WRK-AREA. DTSBR318 00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +318.DTSBR318 00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR318 00087 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR318 00088 DTSBR318 00089 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR318 00090 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR318 00091 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR318 00092 05 WS-LINE-CNT3 PIC S9(02) COMP-3 VALUE 60. DTSBR318 00093 05 WS-LINE-CNT4 PIC S9(02) COMP-3 VALUE +0. DTSBR318 00094 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR318 00095 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBR318 00096 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR318 00097 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR318 00098 05 WS-FOOT-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR318 00099 05 WS-FOOT-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR318 00100 05 WS-FOOT-ONE-AMT PIC S9(07)V99 COMP-3 DTSBR318 00101 VALUE +0. DTSBR318 00102 05 WS-FOOT-TWO-AMT PIC S9(09)V99 COMP-3 DTSBR318 00103 VALUE +0. DTSBR318 00104 DTSBR318 00105 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR318 00106 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR318 00107 DTSBR318 00108 DTSBR318 00109 05 WS-RPT-NAME1 PIC X(22) VALUE DTSBR318 00110 'EMPLOYERS WITHOUT DPC '. DTSBR318 00111 DTSBR318 00112 05 WS-RPT-NAME2 PIC X(22) VALUE DTSBR318 00113 'EMPLOYERS WITH DPC '. DTSBR318 00114 DTSBR318 00115 05 WS-RPT-NAME3 PIC X(22) VALUE DTSBR318 00116 'PAYMENT REVERSALS '. DTSBR318 00117 DTSBR318 00118 05 WS-RPT-TRACE-NO PIC X(18) VALUE DTSBR318 00119 ' TRACE NUMBER '. DTSBR318 00120 DTSBR318 00121 05 WS-RPT-APPLIC-DOC-NO PIC X(18) VALUE DTSBR318 00122 ' ORIG DOC NO '. DTSBR318 00123 DTSBR318 00124 05 WS-FLD-REP-ID-HOLD PIC X(02) VALUE SPACES. DTSBR318 00125 05 WS-FLD-REP-ID-PREV PIC X(02) VALUE SPACES. DTSBR318 00126 05 WS-YRQ-UNPACK PIC 9(05) VALUE ZEROS. DTSBR318 00127 05 WS-YRQ PIC X(04) VALUE SPACES. DTSBR318 00128 05 WS-YRQ-EDIT REDEFINES WS-YRQ DTSBR318 00129 PIC 99/9. DTSBR318 00130 EJECT DTSBR318 00131 01 L001-LINK-AREA. DTSBR318 00132 ++INCLUDE DTSIL001 DTSBR318 00133 EJECT DTSBR318 00134 01 L062-LINK-AREA. DTSBR318 00135 ++INCLUDE DTSIL062 DTSBR318 00136 EJECT DTSBR318 00137 01 L071-LINK-AREA. DTSBR318 00138 ++INCLUDE DTSIL071 DTSBR318 00139 EJECT DTSBR318 00140 01 PAGE-HEADING1. DTSBR318 00141 05 HEADER1-LINE-1. DTSBR318 00142 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00143 10 FILLER PIC X(05) DTSBR318 00144 VALUE '318R1'. DTSBR318 00145 10 FILLER PIC X(34) VALUE SPACES. DTSBR318 00146 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR318 00147 10 FILLER PIC X(28) VALUE SPACES. DTSBR318 00148 10 FILLER PIC X(05) DTSBR318 00149 VALUE 'DATE:'. DTSBR318 00150 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00151 10 HDR1-SYS-DATE PIC X(08). DTSBR318 00152 05 HEADER1-LINE-2. DTSBR318 00153 10 FILLER PIC X(40) VALUE SPACES. DTSBR318 00154 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR318 00155 10 FILLER PIC X(28) VALUE SPACES. DTSBR318 00156 10 FILLER PIC X(05) DTSBR318 00157 VALUE 'TIME:'. DTSBR318 00158 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00159 10 HDR1-SYS-TIME PIC X(08). DTSBR318 00160 05 HEADER1-LINE-3. DTSBR318 00161 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00162 10 FILLER PIC X(28) DTSBR318 00163 VALUE 'ROUTE TO: ENFORCEMENT UNIT '. DTSBR318 00164 10 FILLER PIC X(18) VALUE SPACES. DTSBR318 00165 10 FILLER PIC X(40) DTSBR318 00166 VALUE 'FIELD REPRESENTATIVE EFT PAYMENT LIST '. DTSBR318 00167 10 FILLER PIC X(31) VALUE SPACES. DTSBR318 00168 10 FILLER PIC X(05) DTSBR318 00169 VALUE 'PAGE:'. DTSBR318 00170 10 FILLER PIC X(03) VALUE SPACES. DTSBR318 00171 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR318 00172 05 HEADER1-LINE-4. DTSBR318 00173 10 FILLER PIC X(55) VALUE SPACE. DTSBR318 00174 10 RPT-NAME PIC X(22) VALUE SPACE. DTSBR318 00175 10 FILLER PIC X(33) VALUE SPACE. DTSBR318 00176 05 HEADER1-LINE-5 PIC X(133) VALUE SPACES. DTSBR318 00177 05 HEADER1-LINE-6. DTSBR318 00178 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00179 10 FILLER PIC X(14) DTSBR318 00180 VALUE 'PROCESS DATE: '. DTSBR318 00181 10 HDR1-RUN-DATE PIC X(08). DTSBR318 00182 10 FILLER PIC X(110) VALUE SPACES. DTSBR318 00183 05 HEADER1-LINE-7 PIC X(133) VALUE SPACES. DTSBR318 00184 05 HEADER1-LINE-8 PIC X(133) VALUE SPACES. DTSBR318 00185 05 HEADER1-LINE-9. DTSBR318 00186 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00187 10 FILLER PIC X(11) DTSBR318 00188 VALUE 'FLD REP : '. DTSBR318 00189 10 HDR1-FLD-REP-NAME PIC X(32). DTSBR318 00190 05 HEADER1-LINE-10. DTSBR318 00191 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00192 10 FILLER PIC X(11) DTSBR318 00193 VALUE 'FLD CODE: '. DTSBR318 00194 10 HDR1-FLD-REP-ID PIC X(02). DTSBR318 00195 05 HEADER1-LINE-11 PIC X(133) VALUE SPACES. DTSBR318 00196 05 HEADER1-LINE-12 PIC X(133) VALUE SPACES. DTSBR318 00197 05 HEADER1-LINE-13 PIC X(133) VALUE SPACES. DTSBR318 00198 05 HEADER1-LINE-14. DTSBR318 00199 10 FILLER PIC X(19) VALUE SPACES. DTSBR318 00200 10 FILLER PIC X(34) DTSBR318 00201 VALUE 'ACCOUNT NUMBER DOCUMENT NUMBER'. DTSBR318 00202 10 FILLER PIC X(10) VALUE SPACES. DTSBR318 00203 10 FILLER PIC X(20) DTSBR318 00204 VALUE 'AMOUNT '. DTSBR318 00205 10 FILLER PIC X(02) VALUE SPACES. DTSBR318 00206 10 HDR14-NAME PIC X(18) DTSBR318 00207 VALUE 'TRACE NUMBER '. DTSBR318 00208 10 FILLER PIC X(08) VALUE SPACES. DTSBR318 00209 DTSBR318 00210 01 REPORT1-DETAIL. DTSBR318 00211 05 DTL1-LINE-2. DTSBR318 00212 10 FILLER PIC X(23) VALUE SPACES. DTSBR318 00213 10 WS-EMP-NO PIC 999B999. DTSBR318 00214 10 FILLER PIC X(11) VALUE SPACES. DTSBR318 00215 10 WS-BATCH-NO PIC 9(05). DTSBR318 00216 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00217 10 WS-ITEM-NO PIC 9(03). DTSBR318 00218 10 FILLER PIC X(06) VALUE SPACES. DTSBR318 00219 10 WS-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR318 00220 10 FILLER PIC X(13) VALUE SPACES. DTSBR318 00221 10 WS-TRACE-NO PIC ZZZZZZZZZZZ9. DTSBR318 00222 10 WS-APPLIC-DOC-NO REDEFINES WS-TRACE-NO. DTSBR318 00223 15 FILLER PIC X(03). DTSBR318 00224 15 WS-APPLIC-BATCH-NO PIC X(05). DTSBR318 00225 15 WS-SPACE PIC X. DTSBR318 00226 15 WS-APPLIC-ITEM-NO PIC X(03). DTSBR318 00227 DTSBR318 00228 01 CONTROL-FOOTING. DTSBR318 00229 05 CTF-LINE-5. DTSBR318 00230 10 FILLER PIC X(11) VALUE SPACES. DTSBR318 00231 10 FILLER PIC X(15) DTSBR318 00232 VALUE 'TOTAL AMOUNT: '. DTSBR318 00233 10 WS-CTF-AMT PIC $$$,$$$,$$9.99-. DTSBR318 00234 05 CTF-LINE-6 PIC X(133) VALUE SPACES. DTSBR318 00235 05 CTF-LINE-7. DTSBR318 00236 10 FILLER PIC X(11) VALUE SPACES. DTSBR318 00237 10 FILLER PIC X(15) DTSBR318 00238 VALUE ' ITEM TOTAL: '. DTSBR318 00239 10 WS-CTF-CNT PIC ZZ,ZZ9. DTSBR318 00240 EJECT DTSBR318 00241 01 PAGE-HEADING2. DTSBR318 00242 05 HEADER2-LINE-1. DTSBR318 00243 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00244 10 FILLER PIC X(05) DTSBR318 00245 VALUE '318R2'. DTSBR318 00246 10 FILLER PIC X(34) VALUE SPACE. DTSBR318 00247 10 HDR2-AGY-NAME-LINE1 PIC X(50). DTSBR318 00248 10 FILLER PIC X(28) VALUE SPACE. DTSBR318 00249 10 FILLER PIC X(05) DTSBR318 00250 VALUE 'DATE:'. DTSBR318 00251 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00252 10 HDR2-SYS-DATE PIC X(08). DTSBR318 00253 05 HEADER2-LINE-2. DTSBR318 00254 10 FILLER PIC X(40) VALUE SPACE. DTSBR318 00255 10 HDR2-AGY-NAME-LINE2 PIC X(50). DTSBR318 00256 10 FILLER PIC X(28) VALUE SPACE. DTSBR318 00257 10 FILLER PIC X(05) DTSBR318 00258 VALUE 'TIME:'. DTSBR318 00259 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00260 10 HDR2-SYS-TIME PIC X(08). DTSBR318 00261 05 HEADER2-LINE-3. DTSBR318 00262 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00263 10 FILLER PIC X(28) DTSBR318 00264 VALUE 'ROUTE TO: ENFORCEMENT UNIT '. DTSBR318 00265 10 FILLER PIC X(89) VALUE SPACES. DTSBR318 00266 10 FILLER PIC X(05) DTSBR318 00267 VALUE 'PAGE:'. DTSBR318 00268 10 FILLER PIC X(03) VALUE SPACES. DTSBR318 00269 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DTSBR318 00270 05 HEADER2-LINE-4. DTSBR318 00271 10 FILLER PIC X(49) VALUE SPACES. DTSBR318 00272 10 FILLER PIC X(32) DTSBR318 00273 VALUE 'FIELD REPRESENTATIVE EFT PAYMENT'. DTSBR318 00274 05 HEADER2-LINE-5. DTSBR318 00275 10 FILLER PIC X(61) VALUE SPACES. DTSBR318 00276 10 FILLER PIC X(10) DTSBR318 00277 VALUE 'SUMMARY '. DTSBR318 00278 05 HEADER2-LINE-6 PIC X(133) VALUE SPACES. DTSBR318 00279 05 HEADER2-LINE-7. DTSBR318 00280 10 FILLER PIC X(01) VALUE SPACE. DTSBR318 00281 10 FILLER PIC X(14) DTSBR318 00282 VALUE 'PROCESS DATE: '. DTSBR318 00283 10 HDR2-RUN-DATE PIC X(08). DTSBR318 00284 10 FILLER PIC X(110) VALUE SPACE. DTSBR318 00285 05 HEADER2-LINE-8 PIC X(133) VALUE SPACES. DTSBR318 00286 05 HEADER2-LINE-9 PIC X(133) VALUE SPACES. DTSBR318 00287 05 HEADER2-LINE-10. DTSBR318 00288 10 FILLER PIC X(37) VALUE SPACES. DTSBR318 00289 10 FILLER PIC X(29) DTSBR318 00290 VALUE 'FIELD CODE FIELD REP NAME'. DTSBR318 00291 10 FILLER PIC X(28) VALUE SPACES. DTSBR318 00292 10 FILLER PIC X(06) DTSBR318 00293 VALUE 'AMOUNT'. DTSBR318 00294 SKIP2 DTSBR318 00295 01 REPORT2-DETAIL. DTSBR318 00296 05 DTL2-LINE-2. DTSBR318 00297 10 FILLER PIC X(42) VALUE SPACES. DTSBR318 00298 10 WS-DTL2-FLD-REP-ID PIC X(02). DTSBR318 00299 10 FILLER PIC X(08) VALUE SPACES. DTSBR318 00300 10 HDR2-FLD-REP-NAME PIC X(32). DTSBR318 00301 10 FILLER PIC X(04) VALUE SPACES. DTSBR318 00302 10 WS-DTL2-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR318 00303 SKIP2 DTSBR318 00304 01 CONTROL-FOOTING-FINAL. DTSBR318 00305 05 CFF-LINE-5. DTSBR318 00306 10 FILLER PIC X(11) VALUE SPACES. DTSBR318 00307 10 FILLER PIC X(15) DTSBR318 00308 VALUE 'TOTAL AMOUNT: '. DTSBR318 00309 10 WS-CFF-AMT PIC $$$,$$$,$$9.99-. DTSBR318 00310 05 CFF-LINE-6 PIC X(133) VALUE SPACES. DTSBR318 00311 05 CFF-LINE-7. DTSBR318 00312 10 FILLER PIC X(11) VALUE SPACES. DTSBR318 00313 10 FILLER PIC X(15) DTSBR318 00314 VALUE ' ITEM TOTAL: '. DTSBR318 00315 10 WS-CFF-CNT PIC ZZ,ZZ9. DTSBR318 00316 EJECT DTSBR318 00317 LINKAGE SECTION. DTSBR318 00318 SKIP3 DTSBR318 00319 01 LRCM-LINK-AREA. DTSBR318 00320 ++INCLUDE DTSILRCM DTSBR318 00321 EJECT DTSBR318 00322 01 R318-REC. DTSBR318 00323 ++INCLUDE DTSIR318 DTSBR318 00324 EJECT DTSBR318 00325 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR318 00326 R318-REC. DTSBR318 00327 DTSBR318 00328 IF FIRST-TIME-IND = 'Y' DTSBR318 00329 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR318 00330 MOVE 'N' TO FIRST-TIME-IND. DTSBR318 00331 SKIP1 DTSBR318 00332 IF LRCM-EOR-88 DTSBR318 00333 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR318 00334 ELSE DTSBR318 00335 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR318 00336 SKIP2 DTSBR318 00337 GOBACK. DTSBR318 00338 EJECT DTSBR318 00339 I1000-INITIATE. DTSBR318 00340 SKIP1 DTSBR318 00341 DTSBR318 00342 OPEN OUTPUT PRT-FILE1 PRT-FILE2. DTSBR318 00343 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR318 00344 MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE. DTSBR318 00345 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR318 00346 MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME. DTSBR318 00347 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR318 00348 MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1. DTSBR318 00349 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR318 00350 MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2. DTSBR318 00351 MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2. DTSBR318 00352 DTSBR318 00353 PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT. DTSBR318 00354 DTSBR318 00355 MOVE R318-RUN-DATE TO L001-FED-8-DATE-9. DTSBR318 00356 SET L001-FROM-FED-8 TO TRUE. DTSBR318 00357 PERFORM S001-DATE THRU S001-EXIT. DTSBR318 00358 MOVE L001-SLASH-DATE TO HDR1-RUN-DATE HDR2-RUN-DATE. DTSBR318 00359 SKIP2 DTSBR318 00360 I1000-EXIT. DTSBR318 00361 EXIT. DTSBR318 00362 EJECT DTSBR318 00363 P1000-PROCESS. DTSBR318 00364 SKIP1 DTSBR318 00365 IF R318-FIELD-REP-ID = WS-FLD-REP-ID-HOLD DTSBR318 00366 NEXT SENTENCE DTSBR318 00367 ELSE DTSBR318 00368 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR318 00369 MOVE +60 TO WS-LINE-CNT2 DTSBR318 00370 MOVE +0 TO WS-PAGE-CNT DTSBR318 00371 MOVE WS-FOOT-ONE-AMT TO WS-DTL2-AMT DTSBR318 00372 MOVE WS-FLD-REP-ID-HOLD TO WS-DTL2-FLD-REP-ID DTSBR318 00373 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR318 00374 WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 2 DTSBR318 00375 MOVE +0 TO WS-FOOT-ONE-AMT DTSBR318 00376 ADD +2 TO WS-LINE-CNT4 DTSBR318 00377 PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT. DTSBR318 00378 DTSBR318 00379 MOVE R318-FIELD-REP-ID TO HDR1-FLD-REP-ID. DTSBR318 00380 MOVE R318-EMP-NO TO WS-EMP-NO. DTSBR318 00381 MOVE R318-BATCH-NO TO WS-BATCH-NO. DTSBR318 00382 MOVE R318-ITEM-NO TO WS-ITEM-NO. DTSBR318 00383 MOVE R318-REMIT-AMT TO WS-AMT. DTSBR318 00384 ADD R318-REMIT-AMT TO WS-FOOT-ONE-AMT. DTSBR318 00385 ADD R318-REMIT-AMT TO WS-FOOT-TWO-AMT. DTSBR318 00386 DTSBR318 00387 IF R318-RPT-TYPE-REG-88 DTSBR318 00388 MOVE R318-TRACE-NO TO WS-TRACE-NO DTSBR318 00389 ELSE DTSBR318 00390 IF R318-RPT-TYPE-DPC-88 DTSBR318 00391 MOVE R318-TRACE-NO TO WS-TRACE-NO DTSBR318 00392 ELSE DTSBR318 00393 IF R318-RPT-TYPE-REV-88 DTSBR318 00394 MOVE R318-APPLIC-BATCH-NO TO WS-APPLIC-BATCH-NO DTSBR318 00395 MOVE R318-APPLIC-ITEM-NO TO WS-APPLIC-ITEM-NO DTSBR318 00396 MOVE SPACE TO WS-SPACE DTSBR318 00397 ELSE DTSBR318 00398 NEXT SENTENCE DTSBR318 00399 END-IF DTSBR318 00400 END-IF DTSBR318 00401 END-IF. DTSBR318 00402 DTSBR318 00403 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR318 00404 WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2. DTSBR318 00405 ADD +2 TO WS-LINE-CNT2. DTSBR318 00406 ADD +1 TO WS-FOOT-NUMBER-TWO. DTSBR318 00407 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR318 00408 DTSBR318 00409 P1000-EXIT. DTSBR318 00410 EXIT. DTSBR318 00411 EJECT DTSBR318 00412 P2000-FLD-REP-LOOKUP. DTSBR318 00413 SKIP1 DTSBR318 00414 MOVE R318-FIELD-REP-ID TO WS-FLD-REP-ID-HOLD DTSBR318 00415 L062-FLD-REP-ID. DTSBR318 00416 PERFORM S062-FLD-REP-INFO THRU S062-EXIT. DTSBR318 00417 DISPLAY ' L062-NAME ' L062-NAME DTSBR318 00418 IF L062-VALID DTSBR318 00419 MOVE L062-NAME TO L071-NAM DTSBR318 00420 SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSBR318 00421 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR318 00422 MOVE L071-NAM TO HDR1-FLD-REP-NAME HDR2-FLD-REP-NAME DTSBR318 00423 ELSE DTSBR318 00424 MOVE L062-NAME TO HDR1-FLD-REP-NAME HDR2-FLD-REP-NAME. DTSBR318 00425 SKIP2 DTSBR318 00426 P2000-EXIT. DTSBR318 00427 EXIT. DTSBR318 00428 EJECT DTSBR318 00429 DTSBR318 00430 P3000-PRINT-HEADER. DTSBR318 00431 DTSBR318 00432 IF R318-RPT-TYPE-REG-88 DTSBR318 00433 MOVE WS-RPT-NAME1 TO RPT-NAME DTSBR318 00434 MOVE WS-RPT-TRACE-NO TO HDR14-NAME DTSBR318 00435 ELSE DTSBR318 00436 IF R318-RPT-TYPE-DPC-88 DTSBR318 00437 MOVE WS-RPT-NAME2 TO RPT-NAME DTSBR318 00438 MOVE WS-RPT-TRACE-NO TO HDR14-NAME DTSBR318 00439 ELSE DTSBR318 00440 IF R318-RPT-TYPE-REV-88 DTSBR318 00441 MOVE WS-RPT-NAME3 TO RPT-NAME DTSBR318 00442 MOVE WS-RPT-APPLIC-DOC-NO TO HDR14-NAME DTSBR318 00443 ELSE DTSBR318 00444 MOVE SPACES TO RPT-NAME DTSBR318 00445 END-IF DTSBR318 00446 END-IF DTSBR318 00447 END-IF. DTSBR318 00448 DTSBR318 00449 IF WS-LINE-CNT GREATER 58 OR DTSBR318 00450 WS-LINE-CNT2 GREATER 58 DTSBR318 00451 MOVE +0 TO WS-LINE-CNT DTSBR318 00452 MOVE +0 TO WS-LINE-CNT2 DTSBR318 00453 ADD +1 TO WS-PAGE-CNT DTSBR318 00454 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR318 00455 WRITE REPORT-LISTING1 FROM HEADER1-LINE-1 DTSBR318 00456 AFTER TOP-OF-PAGE DTSBR318 00457 WRITE REPORT-LISTING1 FROM HEADER1-LINE-2 AFTER 1 DTSBR318 00458 WRITE REPORT-LISTING1 FROM HEADER1-LINE-3 AFTER 1 DTSBR318 00459 WRITE REPORT-LISTING1 FROM HEADER1-LINE-4 AFTER 1 DTSBR318 00460 WRITE REPORT-LISTING1 FROM HEADER1-LINE-5 AFTER 1 DTSBR318 00461 WRITE REPORT-LISTING1 FROM HEADER1-LINE-6 AFTER 1 DTSBR318 00462 WRITE REPORT-LISTING1 FROM HEADER1-LINE-7 AFTER 1 DTSBR318 00463 WRITE REPORT-LISTING1 FROM HEADER1-LINE-8 AFTER 1 DTSBR318 00464 WRITE REPORT-LISTING1 FROM HEADER1-LINE-9 AFTER 1 DTSBR318 00465 WRITE REPORT-LISTING1 FROM HEADER1-LINE-10 AFTER 1 DTSBR318 00466 WRITE REPORT-LISTING1 FROM HEADER1-LINE-11 AFTER 1 DTSBR318 00467 WRITE REPORT-LISTING1 FROM HEADER1-LINE-12 AFTER 1 DTSBR318 00468 WRITE REPORT-LISTING1 FROM HEADER1-LINE-13 AFTER 1 DTSBR318 00469 WRITE REPORT-LISTING1 FROM HEADER1-LINE-14 AFTER 1 DTSBR318 00470 ADD +14 TO WS-LINE-CNT2. DTSBR318 00471 DTSBR318 00472 P3000-EXIT. DTSBR318 00473 EXIT. DTSBR318 00474 DTSBR318 00475 P4000-PRINT-HEADER. DTSBR318 00476 DTSBR318 00477 IF WS-LINE-CNT3 GREATER 58 OR DTSBR318 00478 WS-LINE-CNT4 GREATER 58 DTSBR318 00479 MOVE +0 TO WS-LINE-CNT3 DTSBR318 00480 MOVE +0 TO WS-LINE-CNT4 DTSBR318 00481 ADD +1 TO WS-PAGE-CNT2 DTSBR318 00482 MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT DTSBR318 00483 WRITE REPORT-LISTING2 FROM HEADER2-LINE-1 DTSBR318 00484 AFTER TOP-OF-PAGE DTSBR318 00485 WRITE REPORT-LISTING2 FROM HEADER2-LINE-2 AFTER 1 DTSBR318 00486 WRITE REPORT-LISTING2 FROM HEADER2-LINE-3 AFTER 1 DTSBR318 00487 WRITE REPORT-LISTING2 FROM HEADER2-LINE-4 AFTER 1 DTSBR318 00488 WRITE REPORT-LISTING2 FROM HEADER2-LINE-5 AFTER 1 DTSBR318 00489 WRITE REPORT-LISTING2 FROM HEADER2-LINE-6 AFTER 1 DTSBR318 00490 WRITE REPORT-LISTING2 FROM HEADER2-LINE-7 AFTER 1 DTSBR318 00491 WRITE REPORT-LISTING2 FROM HEADER2-LINE-8 AFTER 1 DTSBR318 00492 WRITE REPORT-LISTING2 FROM HEADER2-LINE-9 AFTER 1 DTSBR318 00493 WRITE REPORT-LISTING2 FROM HEADER2-LINE-10 AFTER 1. DTSBR318 00494 DTSBR318 00495 P4000-EXIT. DTSBR318 00496 EXIT. DTSBR318 00497 DTSBR318 00498 P5000-PRINT-FOOTER. DTSBR318 00499 IF WS-LINE-CNT2 > 52 DTSBR318 00500 ADD +8 TO WS-LINE-CNT2 DTSBR318 00501 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR318 00502 END-IF. DTSBR318 00503 DTSBR318 00504 MOVE WS-FOOT-ONE-AMT TO WS-CTF-AMT. DTSBR318 00505 MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-CNT. DTSBR318 00506 WRITE REPORT-LISTING1 FROM CTF-LINE-5 AFTER 5. DTSBR318 00507 WRITE REPORT-LISTING1 FROM CTF-LINE-6 AFTER 1. DTSBR318 00508 WRITE REPORT-LISTING1 FROM CTF-LINE-7 AFTER 1. DTSBR318 00509 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR318 00510 MOVE +60 TO WS-LINE-CNT2. DTSBR318 00511 DTSBR318 00512 MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE. DTSBR318 00513 IF WRK-ODD-PAGE-88 DTSBR318 00514 WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE DTSBR318 00515 AFTER TOP-OF-PAGE DTSBR318 00516 WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE AFTER 58 DTSBR318 00517 ADD +60 TO WS-LINE-CNT2 DTSBR318 00518 MOVE +0 TO WS-PAGE-CNT DTSBR318 00519 END-IF. DTSBR318 00520 DTSBR318 00521 P5000-EXIT. DTSBR318 00522 EXIT. DTSBR318 00523 DTSBR318 00524 T1000-TERMINATE. DTSBR318 00525 DTSBR318 00526 IF WS-LINE-CNT2 > 52 DTSBR318 00527 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR318 00528 END-IF. DTSBR318 00529 DTSBR318 00530 MOVE WS-FLD-REP-ID-HOLD TO WS-DTL2-FLD-REP-ID DTSBR318 00531 MOVE WS-FOOT-ONE-AMT TO WS-CTF-AMT DTSBR318 00532 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR318 00533 DTSBR318 00534 IF WS-LINE-CNT4 > 52 DTSBR318 00535 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR318 00536 END-IF. DTSBR318 00537 DTSBR318 00538 MOVE WS-FOOT-ONE-AMT TO WS-DTL2-AMT DTSBR318 00539 MOVE WS-FLD-REP-ID-HOLD TO WS-DTL2-FLD-REP-ID DTSBR318 00540 WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 2 DTSBR318 00541 DTSBR318 00542 MOVE WS-FOOT-TWO-AMT TO WS-CFF-AMT. DTSBR318 00543 MOVE WS-FOOT-NUMBER-TWO TO WS-CFF-CNT. DTSBR318 00544 WRITE REPORT-LISTING2 FROM CFF-LINE-5 AFTER 5. DTSBR318 00545 WRITE REPORT-LISTING2 FROM CFF-LINE-6 AFTER 1. DTSBR318 00546 WRITE REPORT-LISTING2 FROM CFF-LINE-7 AFTER 1. DTSBR318 00547 CLOSE PRT-FILE1 PRT-FILE2. DTSBR318 00548 SKIP2 DTSBR318 00549 T1000-EXIT. DTSBR318 00550 EXIT. DTSBR318 00551 EJECT DTSBR318 00552 S001-DATE. DTSBR318 00553 SKIP1 DTSBR318 00554 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR318 00555 SKIP2 DTSBR318 00556 S001-EXIT. DTSBR318 00557 EXIT. DTSBR318 00558 SKIP3 DTSBR318 00559 S062-FLD-REP-INFO. DTSBR318 00560 SKIP1 DTSBR318 00561 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR318 00562 SKIP2 DTSBR318 00563 S062-EXIT. DTSBR318 00564 EXIT. DTSBR318 00565 SKIP3 DTSBR318 00566 S071-DESLASH-NAME. DTSBR318 00567 SKIP1 DTSBR318 00568 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR318 00569 SKIP2 DTSBR318 00570 S071-EXIT. DTSBR318 00571 EXIT. DTSBR318 00572 SKIP3 DTSBR318 00573 S999-ABEND. DTSBR318 00574 SKIP1 DTSBR318 00575 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR318 00576 SKIP2 DTSBR318 00577 S999-EXIT. DTSBR318 00578 EXIT. DTSBR318 00579 DTSBR318