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