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