00001 IDENTIFICATION DIVISION. 01/14/08 00002 PROGRAM-ID. DTSBR737. DTSBR737 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV013 00004 DATE-WRITTEN. APRIL 1995. DTSBR737 00005 DATE-COMPILED. DTSBR737 00006 SKIP3 DTSBR737 00007 ***** DTSBR737 00008 * DTSBR737 00009 * CALLING SEQUENCE: DTSBD520 EXTRACTS VSAM WAGE FILE. CL*13 00010 * DTSBD530 WHICH UPDATES DTSIR737 DTSBR737 00011 * DTSBR737 READS DTSIR737 RECORDS. DTSBR737 00012 * DTSBR737 00013 * FUNCTION: WAGE FILE / TAX FILE COMPARISON - EXCEPTIONS. DTSBR737 00014 * DTSBR737 00015 * DTSBR737 00016 * MODIFICATION HISTORY: DTSBR737 00017 * DTSBR737 00018 * 04-12-95 INITIAL DEVELOPMENT DTSBR737 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR737 00020 * DTSBR737 00021 * 03-02-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. DTSBR737 00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR737 00023 * DTSBR737 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR737 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR737 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR737 00027 * DTSBR737 00028 * DTSBR737 00029 * DESCRIPTION: DTSBR737 00030 * DTSBR737 00031 * THIS MODULE LISTS EMPLOYERS WITH DISCREPANCIES BETWEEN DTSBR737 00032 * THE TAX FILE AND THE WAGE FILE IN TAXABLE OR TOTAL WAGE DTSBR737 00033 * AMOUNTS. DTSBR737 00034 * DTSBR737 00035 * DTSBR737 00036 * RECORDS READ: DTSBR737 00037 * DTSBR737 00038 * NONE. DTSBR737 00039 * DTSBR737 00040 * DTSBR737 00041 * PRINTED OUTPUTS: DTSBR737 00042 * DTSBR737 00043 * 737R1 WAGE FILE / TAX FILE COMPARISON - EXCEPTION LIST DTSBR737 00044 * DTSBR737 00045 * DTSBR737 00046 * RECORDS WRITTEN: DTSBR737 00047 * DTSBR737 00048 * NONE DTSBR737 00049 * DTSBR737 00050 * DTSBR737 00051 * MODULES CALLED: DTSBR737 00052 * DTSBR737 00053 * DTSBU056 RATE DISPLAY MODULE DTSBR737 00054 * DTSBR737 00055 * DTSBR737 00056 ***** DTSBR737 00057 EJECT DTSBR737 00058 ENVIRONMENT DIVISION. DTSBR737 00059 DTSBR737 00060 CONFIGURATION SECTION. DTSBR737 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR737 00062 DTSBR737 00063 INPUT-OUTPUT SECTION. DTSBR737 00064 DTSBR737 00065 FILE-CONTROL. DTSBR737 00066 SELECT PRT-FILE ASSIGN TO RPT737R1. DTSBR737 00067 DTSBR737 00068 DATA DIVISION. DTSBR737 00069 DTSBR737 00070 FILE SECTION. DTSBR737 00071 DTSBR737 00072 FD PRT-FILE DTSBR737 00073 RECORDING MODE IS F. DTSBR737 00074 01 PRT-RECORD PIC X(133). DTSBR737 00075 DTSBR737 00076 EJECT DTSBR737 00077 WORKING-STORAGE SECTION. DTSBR737 000775 77 PAN-VALET PICTURE X(24) VALUE '013DTSBR737 01/14/08'. DTSBR737 00078 DTSBR737 00079 01 WRK-AREA. DTSBR737 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +737.DTSBR737 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR737 00082 05 WS-SUB PIC S9(04) COMP. DTSBR737 00083 05 WS-CITY-ST-ZIP PIC X(40). DTSBR737 00084 05 WS-YRQ OCCURS 4 TIMES PIC 9(05). DTSBR737 00085 05 WS-RATE-DISPLAY OCCURS 4 TIMES DTSBR737 00086 PIC X(07). DTSBR737 00087 DTSBR737 00088 05 WS-TOL-GROUP-IND-HOLD PIC X(01) VALUE SPACE. DTSBR737 00089 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR737 00090 05 WS-FOOT-REC-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR737 00091 05 WS-SUM-REC-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR737 00092 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR737 00093 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR737 00094 05 WS-PAGE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR737 00095 DTSBR737 00096 EJECT DTSBR737 00097 01 L056-LINK-AREA. DTSBR737 00098 ++INCLUDE DTSIL056 DTSBR737 00099 EJECT DTSBR737 00100 01 PAGE-HEADING. DTSBR737 00101 05 HDR-LINE-1. DTSBR737 00102 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00103 10 FILLER PIC X(05) DTSBR737 00104 VALUE '737R1'. DTSBR737 00105 10 FILLER PIC X(34) VALUE SPACES. DTSBR737 00106 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR737 00107 10 FILLER PIC X(28) VALUE SPACES. DTSBR737 00108 10 FILLER PIC X(05) DTSBR737 00109 VALUE 'DATE:'. DTSBR737 00110 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00111 10 HDR-SYS-DATE PIC X(08). DTSBR737 00112 05 HDR-LINE-2. DTSBR737 00113 10 FILLER PIC X(40) VALUE SPACES. DTSBR737 00114 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR737 00115 10 FILLER PIC X(28) VALUE SPACES. DTSBR737 00116 10 FILLER PIC X(05) DTSBR737 00117 VALUE 'TIME:'. DTSBR737 00118 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00119 10 HDR-SYS-TIME PIC X(08). DTSBR737 00120 05 HDR-LINE-3. DTSBR737 00121 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00122 10 FILLER PIC X(40) DTSBR737 00123 VALUE 'ROUTE TO: CHIEF, TAX DIVISION '. DTSBR737 00124 10 FILLER PIC X(77) VALUE SPACES. DTSBR737 00125 10 FILLER PIC X(05) DTSBR737 00126 VALUE 'PAGE:'. DTSBR737 00127 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00128 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR737 00129 05 HDR-LINE-4 PIC X(133) VALUE SPACES. DTSBR737 00130 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR737 00131 05 HDR-LINE-6. DTSBR737 00132 10 FILLER PIC X(26) VALUE SPACES. DTSBR737 00133 10 FILLER PIC X(40) DTSBR737 00134 VALUE 'WAGE FILE / TAX FILE COMPARISON - EXCEPT'. DTSBR737 00135 10 FILLER PIC X(21) DTSBR737 00136 VALUE 'ION LIST (DIFFERENCE '. DTSBR737 00137 10 HDR-TOL-MIN-AMT PIC $$$,$$9. DTSBR737 00138 10 FILLER PIC X(06) DTSBR737 00139 VALUE ' THRU '. DTSBR737 00140 10 HDR-TOL-MAX-AMT PIC $$$,$$9. DTSBR737 00141 10 HDR-TOL-MAX-AMT-X REDEFINES HDR-TOL-MAX-AMT DTSBR737 00142 PIC X(07). DTSBR737 00143 10 FILLER PIC X(01) DTSBR737 00144 VALUE ')'. DTSBR737 00145 05 HDR-LINE-7 PIC X(133) VALUE SPACES. DTSBR737 00146 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR737 00147 05 HDR-LINE-9. DTSBR737 00148 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00149 10 FILLER PIC X(32) DTSBR737 00150 VALUE 'EMP NO PRIMARY NAME / ADDRESS'. DTSBR737 00151 10 FILLER PIC X(40) VALUE SPACES. DTSBR737 00152 10 HDR-YRQ-1 PIC 99/9. DTSBR737 00153 10 FILLER PIC X(13) VALUE SPACES. DTSBR737 00154 10 HDR-YRQ-2 PIC 99/9. DTSBR737 00155 10 FILLER PIC X(13) VALUE SPACES. DTSBR737 00156 10 HDR-YRQ-3 PIC 99/9. DTSBR737 00157 10 FILLER PIC X(13) VALUE SPACES. DTSBR737 00158 10 HDR-YRQ-4 PIC 99/9. DTSBR737 00159 DTSBR737 00160 01 DETAIL-LINE. DTSBR737 00161 05 DTL-LINE-3. DTSBR737 00162 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00163 10 DTL-EMP-NO PIC 999B999. DTSBR737 00164 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00165 10 DTL-PRIMARY-NAME PIC X(40). DTSBR737 00166 10 FILLER PIC X(03) VALUE SPACE. DTSBR737 00167 10 FILLER PIC X(09) DTSBR737 00168 VALUE 'TOT (TAX)'. DTSBR737 00169 10 FILLER PIC X(02) VALUE SPACE. DTSBR737 00170 10 DTL-TOT-FROM-DTS-1 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00171 10 DTL-TOT-DIFF-IND-1 PIC X(02). DTSBR737 00172 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00173 10 DTL-TOT-FROM-DTS-2 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00174 10 DTL-TOT-DIFF-IND-2 PIC X(02). DTSBR737 00175 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00176 10 DTL-TOT-FROM-DTS-3 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00177 10 DTL-TOT-DIFF-IND-3 PIC X(02). DTSBR737 00178 10 FILLER PIC X(01) VALUE SPACE. DTSBR737 00179 10 DTL-TOT-FROM-DTS-4 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00180 10 DTL-TOT-DIFF-IND-4 PIC X(02). DTSBR737 00181 05 DTL-LINE-4. DTSBR737 00182 10 FILLER PIC X(09) VALUE SPACES. DTSBR737 00183 10 DTL-LINE-4-ADDR PIC X(40). DTSBR737 00184 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00185 10 FILLER PIC X(09) DTSBR737 00186 VALUE ' (WGE)'. DTSBR737 00187 10 FILLER PIC X(02) VALUE SPACES. DTSBR737 00188 10 DTL-TOT-FROM-WAGE-1 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00189 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00190 10 DTL-TOT-FROM-WAGE-2 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00191 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00192 10 DTL-TOT-FROM-WAGE-3 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00193 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00194 10 DTL-TOT-FROM-WAGE-4 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00195 05 DTL-LINE-5. DTSBR737 00196 10 FILLER PIC X(09) VALUE SPACES. DTSBR737 00197 10 DTL-LINE-5-ADDR PIC X(40). DTSBR737 00198 05 DTL-LINE-6. DTSBR737 00199 10 FILLER PIC X(09) VALUE SPACES. DTSBR737 00200 10 DTL-LINE-6-ADDR PIC X(40). DTSBR737 00201 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00202 10 FILLER PIC X(09) DTSBR737 00203 VALUE 'TAX (TAX)'. DTSBR737 00204 10 FILLER PIC X(02) VALUE SPACES. DTSBR737 00205 10 DTL-TAX-FROM-DTS-1 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00206 10 DTL-TAX-DIFF-IND-1 PIC X(02). DTSBR737 00207 10 FILLER PIC X(01) VALUE SPACES. DTSBR737 00208 10 DTL-TAX-FROM-DTS-2 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00209 10 DTL-TAX-DIFF-IND-2 PIC X(02). DTSBR737 00210 10 FILLER PIC X(01) VALUE SPACES. DTSBR737 00211 10 DTL-TAX-FROM-DTS-3 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00212 10 DTL-TAX-DIFF-IND-3 PIC X(02). DTSBR737 00213 10 FILLER PIC X(01) VALUE SPACES. DTSBR737 00214 10 DTL-TAX-FROM-DTS-4 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00215 10 DTL-TAX-DIFF-IND-4 PIC X(02). DTSBR737 00216 05 DTL-LINE-7. DTSBR737 00217 10 FILLER PIC X(52) VALUE SPACES. DTSBR737 00218 10 FILLER PIC X(09) DTSBR737 00219 VALUE ' (WGE)'. DTSBR737 00220 10 FILLER PIC X(02) VALUE SPACES. DTSBR737 00221 10 DTL-TAX-FROM-WAGE-1 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00222 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00223 10 DTL-TAX-FROM-WAGE-2 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00224 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00225 10 DTL-TAX-FROM-WAGE-3 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00226 10 FILLER PIC X(03) VALUE SPACES. DTSBR737 00227 10 DTL-TAX-FROM-WAGE-4 PIC ZZZ,ZZZ,ZZ9.99. DTSBR737 00228 05 DTL-LINE-8 PIC X(133) VALUE SPACES. DTSBR737 00229 05 DTL-LINE-9. DTSBR737 00230 10 FILLER PIC X(52) VALUE SPACES. DTSBR737 00231 10 FILLER PIC X(09) DTSBR737 00232 VALUE 'BATCH '. DTSBR737 00233 10 FILLER PIC X(11) VALUE SPACES. DTSBR737 00234 10 DTL-BATCH-NO-1 PIC 9(05). DTSBR737 00235 10 FILLER PIC X(12) VALUE SPACES. DTSBR737 00236 10 DTL-BATCH-NO-2 PIC 9(05). DTSBR737 00237 10 FILLER PIC X(12) VALUE SPACES. DTSBR737 00238 10 DTL-BATCH-NO-3 PIC 9(05). DTSBR737 00239 10 FILLER PIC X(12) VALUE SPACES. DTSBR737 00240 10 DTL-BATCH-NO-4 PIC 9(05). DTSBR737 00241 05 DTL-LINE-10. DTSBR737 00242 10 FILLER PIC X(52) VALUE SPACES. DTSBR737 00243 10 FILLER PIC X(09) DTSBR737 00244 VALUE 'UI RATE '. DTSBR737 00245 10 FILLER PIC X(09) VALUE SPACES. DTSBR737 00246 10 DTL-RATE-DISPLAY-1 PIC X(07). DTSBR737 00247 10 FILLER PIC X(10) VALUE SPACES. DTSBR737 00248 10 DTL-RATE-DISPLAY-2 PIC X(07). DTSBR737 00249 10 FILLER PIC X(10) VALUE SPACES. DTSBR737 00250 10 DTL-RATE-DISPLAY-3 PIC X(07). DTSBR737 00251 10 FILLER PIC X(10) VALUE SPACES. DTSBR737 00252 10 DTL-RATE-DISPLAY-4 PIC X(07). DTSBR737 00253 DTSBR737 00254 01 CONTROL-FOOTING. DTSBR737 00255 05 CTF-LINE-4. DTSBR737 00256 10 FILLER PIC X(50) VALUE SPACES. DTSBR737 00257 10 CTF-FOOT-REC-CNT PIC ZZZ,ZZ9. DTSBR737 00258 10 FILLER PIC X(01) VALUE SPACES. DTSBR737 00259 10 FILLER PIC X(18) DTSBR737 00260 VALUE 'EXCEPTION ACCOUNTS'. DTSBR737 00261 SKIP2 DTSBR737 00262 01 CONTROL-FOOTING-FINAL. DTSBR737 00263 05 CFF-LINE-5. DTSBR737 00264 10 FILLER PIC X(50) VALUE SPACES. DTSBR737 00265 10 CFF-SUM-REC-CNT PIC ZZZ,ZZ9. DTSBR737 00266 10 FILLER PIC X(01) VALUE SPACES. DTSBR737 00267 10 FILLER PIC X(24) DTSBR737 00268 VALUE 'TOTAL EXCEPTION ACCOUNTS'. DTSBR737 00269 EJECT DTSBR737 00270 LINKAGE SECTION. DTSBR737 00271 DTSBR737 00272 01 LRCM-LINK-AREA. DTSBR737 00273 ++INCLUDE DTSILRCM DTSBR737 00274 EJECT DTSBR737 00275 01 R737-REC. DTSBR737 00276 ++INCLUDE DTSIR737 DTSBR737 00277 EJECT DTSBR737 00278 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR737 00279 R737-REC. DTSBR737 00280 DTSBR737 00281 IF FIRST-TIME-IND = 'Y' DTSBR737 00282 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR737 00283 MOVE 'N' TO FIRST-TIME-IND. DTSBR737 00284 SKIP1 DTSBR737 00285 IF LRCM-EOR-88 DTSBR737 00286 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR737 00287 ELSE DTSBR737 00288 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR737 00289 DTSBR737 00290 GOBACK. DTSBR737 00291 EJECT DTSBR737 00292 I1000-INITIATE. DTSBR737 00293 DTSBR737 00294 OPEN OUTPUT PRT-FILE. DTSBR737 00295 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR737 00296 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR737 00297 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR737 00298 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR737 00299 MOVE SPACES TO PRT-RECORD. DTSBR737 00300 DTSBR737 00301 I1000-EXIT. DTSBR737 00302 EXIT. DTSBR737 00303 DTSBR737 00304 P1000-PROCESS. DTSBR737 00305 DTSBR737 00306 MOVE SPACES TO WS-CITY-ST-ZIP. DTSBR737 00307 STRING R737-CITY DELIMITED BY ' ' DTSBR737 00308 ', ' DELIMITED BY SIZE DTSBR737 00309 R737-ST DELIMITED BY SIZE DTSBR737 00310 ' ' DELIMITED BY SIZE DTSBR737 00311 R737-ZIP DELIMITED BY SIZE DTSBR737 00312 INTO DTSBR737 00313 WS-CITY-ST-ZIP. DTSBR737 00314 DTSBR737 00315 PERFORM DTSBR737 00316 VARYING WS-SUB FROM +1 BY +1 DTSBR737 00317 UNTIL WS-SUB > R737-YRQ-CNT DTSBR737 00318 MOVE R737-YRQ (WS-SUB) TO WS-YRQ (WS-SUB) DTSBR737 00319 MOVE R737-UI-RATE (WS-SUB) TO L056-RATE DTSBR737 00320 SET L056-DISP1-RIGHT-88 TO TRUE DTSBR737 00321 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR737 00322 MOVE L056-DISP-RATE TO WS-RATE-DISPLAY (WS-SUB) DTSBR737 00323 END-PERFORM. DTSBR737 00324 DTSBR737 00325 IF R737-TOL-GROUP-IND NOT = WS-TOL-GROUP-IND-HOLD DTSBR737 00326 MOVE R737-TOL-GROUP-IND TO WS-TOL-GROUP-IND-HOLD DTSBR737 00327 DTSBR737 00328 IF WS-NUMBER-ONE = +0 DTSBR737 00329 MOVE +99 TO WS-NUMBER-ONE DTSBR737 00330 ELSE DTSBR737 00331 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR737 00332 MOVE +60 TO WS-LINE-CNT2 DTSBR737 00333 END-IF. DTSBR737 00334 MOVE R737-TOL-MIN-AMT TO HDR-TOL-MIN-AMT. DTSBR737 00335 IF NOT R737-TOL-MAX-BLANK-88 DTSBR737 00336 MOVE R737-TOL-MAX-AMT TO HDR-TOL-MAX-AMT DTSBR737 00337 ELSE MOVE SPACES TO HDR-TOL-MAX-AMT-X. DTSBR737 00338 IF R737-YRQ-CNT > +0 DTSBR737 00339 MOVE WS-YRQ (1) (3:3) TO HDR-YRQ-1. DTSBR737 00340 IF R737-YRQ-CNT > +1 DTSBR737 00341 MOVE WS-YRQ (2) (3:3) TO HDR-YRQ-2. DTSBR737 00342 IF R737-YRQ-CNT > +2 DTSBR737 00343 MOVE WS-YRQ (3) (3:3) TO HDR-YRQ-3. DTSBR737 00344 IF R737-YRQ-CNT > +3 DTSBR737 00345 MOVE WS-YRQ (4) (3:3) TO HDR-YRQ-4. DTSBR737 00346 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR737 00347 PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT. DTSBR737 00348 ADD +1 TO WS-FOOT-REC-CNT. DTSBR737 00349 ADD +1 TO WS-SUM-REC-CNT. DTSBR737 00350 DTSBR737 00351 P1000-EXIT. DTSBR737 00352 EXIT. DTSBR737 00353 DTSBR737 00354 P2000-PRINT-HEADER. DTSBR737 00355 IF WS-LINE-CNT GREATER 53 OR DTSBR737 00356 WS-LINE-CNT2 GREATER 53 DTSBR737 00357 MOVE +0 TO WS-LINE-CNT DTSBR737 00358 MOVE +0 TO WS-LINE-CNT2 DTSBR737 00359 ADD +1 TO WS-PAGE-CNT DTSBR737 00360 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR737 00361 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR737 00362 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR737 00363 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR737 00364 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR737 00365 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR737 00366 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR737 00367 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR737 00368 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR737 00369 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR737 00370 ADD +9 TO WS-LINE-CNT2. DTSBR737 00371 P2000-EXIT. DTSBR737 00372 EXIT. DTSBR737 00373 DTSBR737 00374 P3000-PRINT-DETAIL. DTSBR737 00375 IF WS-LINE-CNT2 > 53 DTSBR737 00376 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR737 00377 END-IF. DTSBR737 00378 DTSBR737 00379 MOVE R737-EMP-NO TO DTL-EMP-NO. DTSBR737 00380 MOVE R737-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR737 00381 IF R737-YRQ-CNT > +0 DTSBR737 00382 MOVE R737-TOT-FROM-DTS (1) TO DTL-TOT-FROM-DTS-1 DTSBR737 00383 MOVE R737-TOT-DIFFERENCE-IND (1) TO DTL-TOT-DIFF-IND-1. DTSBR737 00384 IF R737-YRQ-CNT > +1 DTSBR737 00385 MOVE R737-TOT-FROM-DTS (2) TO DTL-TOT-FROM-DTS-2 DTSBR737 00386 MOVE R737-TOT-DIFFERENCE-IND (2) TO DTL-TOT-DIFF-IND-2. DTSBR737 00387 IF R737-YRQ-CNT > +2 DTSBR737 00388 MOVE R737-TOT-FROM-DTS (3) TO DTL-TOT-FROM-DTS-3 DTSBR737 00389 MOVE R737-TOT-DIFFERENCE-IND (3) TO DTL-TOT-DIFF-IND-3. DTSBR737 00390 IF R737-YRQ-CNT > +3 DTSBR737 00391 MOVE R737-TOT-FROM-DTS (4) TO DTL-TOT-FROM-DTS-4 DTSBR737 00392 MOVE R737-TOT-DIFFERENCE-IND (4) TO DTL-TOT-DIFF-IND-1. DTSBR737 00393 WRITE PRT-RECORD FROM DTL-LINE-3 AFTER 2. DTSBR737 00394 ADD +2 TO WS-LINE-CNT2. DTSBR737 00395 DTSBR737 00396 IF R737-ATTN-LINE NOT = SPACES DTSBR737 00397 MOVE R737-ATTN-LINE TO DTL-LINE-4-ADDR DTSBR737 00398 ELSE IF (R737-ATTN-LINE = SPACES) AND (R737-DELIV-LINE-1 DTSBR737 00399 NOT = SPACES) DTSBR737 00400 MOVE R737-DELIV-LINE-1 TO DTL-LINE-4-ADDR DTSBR737 00401 ELSE IF (R737-ATTN-LINE = SPACES) AND (R737-DELIV-LINE-1DTSBR737 00402 = SPACES) DTSBR737 00403 MOVE WS-CITY-ST-ZIP TO DTL-LINE-4-ADDR. DTSBR737 00404 IF R737-YRQ-CNT > +0 DTSBR737 00405 MOVE R737-TOT-FROM-WAGE (1) TO DTL-TOT-FROM-WAGE-1. DTSBR737 00406 IF R737-YRQ-CNT > +1 DTSBR737 00407 MOVE R737-TOT-FROM-WAGE (2) TO DTL-TOT-FROM-WAGE-2. DTSBR737 00408 IF R737-YRQ-CNT > +2 DTSBR737 00409 MOVE R737-TOT-FROM-WAGE (3) TO DTL-TOT-FROM-WAGE-3. DTSBR737 00410 IF R737-YRQ-CNT > +3 DTSBR737 00411 MOVE R737-TOT-FROM-WAGE (4) TO DTL-TOT-FROM-WAGE-4. DTSBR737 00412 WRITE PRT-RECORD FROM DTL-LINE-4 AFTER 1. DTSBR737 00413 MOVE SPACES TO DTL-LINE-4-ADDR. DTSBR737 00414 ADD +1 TO WS-LINE-CNT2. DTSBR737 00415 DTSBR737 00416 IF (R737-ATTN-LINE NOT = SPACES) AND (R737-DELIV-LINE-1 DTSBR737 00417 NOT = SPACES) DTSBR737 00418 MOVE R737-DELIV-LINE-1 TO DTL-LINE-5-ADDR DTSBR737 00419 ELSE DTSBR737 00420 IF ((R737-ATTN-LINE = SPACES) AND (R737-DELIV-LINE-1 DTSBR737 00421 NOT = SPACES)) OR DTSBR737 00422 ((R737-ATTN-LINE NOT = SPACES) AND (R737-DELIV-LINE-1 DTSBR737 00423 = SPACES)) DTSBR737 00424 MOVE WS-CITY-ST-ZIP TO DTL-LINE-5-ADDR. DTSBR737 00425 WRITE PRT-RECORD FROM DTL-LINE-5 AFTER 1. DTSBR737 00426 MOVE SPACES TO DTL-LINE-5-ADDR. DTSBR737 00427 ADD +1 TO WS-LINE-CNT2. DTSBR737 00428 DTSBR737 00429 IF (R737-ATTN-LINE NOT = SPACES) AND (R737-DELIV-LINE-1 DTSBR737 00430 NOT = SPACES) DTSBR737 00431 MOVE WS-CITY-ST-ZIP TO DTL-LINE-6-ADDR. DTSBR737 00432 IF R737-YRQ-CNT > +0 DTSBR737 00433 MOVE R737-TAX-FROM-DTS (1) TO DTL-TAX-FROM-DTS-1 DTSBR737 00434 MOVE R737-TAX-DIFFERENCE-IND (1) TO DTL-TAX-DIFF-IND-1. DTSBR737 00435 IF R737-YRQ-CNT > +1 DTSBR737 00436 MOVE R737-TAX-FROM-DTS (2) TO DTL-TAX-FROM-DTS-2 DTSBR737 00437 MOVE R737-TAX-DIFFERENCE-IND (2) TO DTL-TAX-DIFF-IND-2. DTSBR737 00438 IF R737-YRQ-CNT > +2 DTSBR737 00439 MOVE R737-TAX-FROM-DTS (3) TO DTL-TAX-FROM-DTS-3 DTSBR737 00440 MOVE R737-TAX-DIFFERENCE-IND (3) TO DTL-TAX-DIFF-IND-3. DTSBR737 00441 IF R737-YRQ-CNT > +3 DTSBR737 00442 MOVE R737-TAX-FROM-DTS (4) TO DTL-TAX-FROM-DTS-4 DTSBR737 00443 MOVE R737-TAX-DIFFERENCE-IND (4) TO DTL-TAX-DIFF-IND-4. DTSBR737 00444 WRITE PRT-RECORD FROM DTL-LINE-6 AFTER 1. DTSBR737 00445 MOVE SPACES TO DTL-LINE-6-ADDR. DTSBR737 00446 ADD +1 TO WS-LINE-CNT2. DTSBR737 00447 DTSBR737 00448 IF R737-YRQ-CNT > +0 DTSBR737 00449 MOVE R737-TAX-FROM-WAGE (1) TO DTL-TAX-FROM-WAGE-1. DTSBR737 00450 IF R737-YRQ-CNT > +1 DTSBR737 00451 MOVE R737-TAX-FROM-WAGE (2) TO DTL-TAX-FROM-WAGE-2. DTSBR737 00452 IF R737-YRQ-CNT > +2 DTSBR737 00453 MOVE R737-TAX-FROM-WAGE (3) TO DTL-TAX-FROM-WAGE-3. DTSBR737 00454 IF R737-YRQ-CNT > +3 DTSBR737 00455 MOVE R737-TAX-FROM-WAGE (4) TO DTL-TAX-FROM-WAGE-4. DTSBR737 00456 WRITE PRT-RECORD FROM DTL-LINE-7 AFTER 1. DTSBR737 00457 ADD +1 TO WS-LINE-CNT2. DTSBR737 00458 DTSBR737 00459 WRITE PRT-RECORD FROM DTL-LINE-8 AFTER 1. DTSBR737 00460 ADD +1 TO WS-LINE-CNT2. DTSBR737 00461 DTSBR737 00462 IF (R737-YRQ-CNT > +0) AND (R737-BATCH-NO (1) > +0) DTSBR737 00463 MOVE R737-BATCH-NO (1) TO DTL-BATCH-NO-1. DTSBR737 00464 IF (R737-YRQ-CNT > +1) AND (R737-BATCH-NO (2) > +0) DTSBR737 00465 MOVE R737-BATCH-NO (2) TO DTL-BATCH-NO-2. DTSBR737 00466 IF (R737-YRQ-CNT > +2) AND (R737-BATCH-NO (3) > +0) DTSBR737 00467 MOVE R737-BATCH-NO (3) TO DTL-BATCH-NO-3. DTSBR737 00468 IF (R737-YRQ-CNT > +3) AND (R737-BATCH-NO (4) > +0) DTSBR737 00469 MOVE R737-BATCH-NO (4) TO DTL-BATCH-NO-4. DTSBR737 00470 WRITE PRT-RECORD FROM DTL-LINE-9 AFTER 1. DTSBR737 00471 ADD +1 TO WS-LINE-CNT2. DTSBR737 00472 DTSBR737 00473 IF R737-YRQ-CNT > +0 DTSBR737 00474 MOVE WS-RATE-DISPLAY (1) TO DTL-RATE-DISPLAY-1. DTSBR737 00475 IF R737-YRQ-CNT > +1 DTSBR737 00476 MOVE WS-RATE-DISPLAY (2) TO DTL-RATE-DISPLAY-2. DTSBR737 00477 IF R737-YRQ-CNT > +2 DTSBR737 00478 MOVE WS-RATE-DISPLAY (3) TO DTL-RATE-DISPLAY-3. DTSBR737 00479 IF R737-YRQ-CNT > +3 DTSBR737 00480 MOVE WS-RATE-DISPLAY (4) TO DTL-RATE-DISPLAY-4. DTSBR737 00481 WRITE PRT-RECORD FROM DTL-LINE-10 AFTER 1. DTSBR737 00482 ADD +1 TO WS-LINE-CNT2. DTSBR737 00483 DTSBR737 00484 P3000-EXIT. DTSBR737 00485 EXIT. DTSBR737 00486 DTSBR737 00487 P4000-PRINT-FOOTER. DTSBR737 00488 DTSBR737 00489 IF WS-LINE-CNT2 > 53 DTSBR737 00490 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR737 00491 END-IF. DTSBR737 00492 DTSBR737 00493 MOVE WS-FOOT-REC-CNT TO CTF-FOOT-REC-CNT. DTSBR737 00494 WRITE PRT-RECORD FROM CTF-LINE-4 AFTER 4. DTSBR737 00495 MOVE +0 TO WS-FOOT-REC-CNT. DTSBR737 00496 DTSBR737 00497 P4000-EXIT. DTSBR737 00498 EXIT. DTSBR737 00499 DTSBR737 00500 T1000-TERMINATE. DTSBR737 00501 DTSBR737 00502 IF WS-LINE-CNT2 > 53 DTSBR737 00503 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR737 00504 END-IF. DTSBR737 00505 DTSBR737 00506 MOVE WS-FOOT-REC-CNT TO CTF-FOOT-REC-CNT. DTSBR737 00507 WRITE PRT-RECORD FROM CTF-LINE-4 AFTER 3. DTSBR737 00508 MOVE +0 TO WS-FOOT-REC-CNT. DTSBR737 00509 DTSBR737 00510 IF WS-LINE-CNT2 > 53 DTSBR737 00511 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR737 00512 END-IF. DTSBR737 00513 DTSBR737 00514 MOVE WS-SUM-REC-CNT TO CFF-SUM-REC-CNT. DTSBR737 00515 WRITE PRT-RECORD FROM CFF-LINE-5 AFTER 5. DTSBR737 00516 DTSBR737 00517 CLOSE PRT-FILE. DTSBR737 00518 DTSBR737 00519 T1000-EXIT. DTSBR737 00520 EXIT. DTSBR737 00521 DTSBR737 00522 S056-RATE-DISPLAY. DTSBR737 00523 SKIP1 DTSBR737 00524 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR737 00525 DTSBR737 00526 S056-EXIT. DTSBR737 00527 EXIT. DTSBR737 00528 DTSBR737 00529 *S999-ABEND. DTSBR737 00530 * SKIP1 DTSBR737 00531 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR737 00532 * SKIP2 DTSBR737 00533 *S999-EXIT. DTSBR737 00534 * EXIT. DTSBR737 00535 DTSBR737