00001 IDENTIFICATION DIVISION. 08/16/21 00002 PROGRAM-ID. DTSBR309. DTSBR309 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV008 00004 DATE-WRITTEN. NOVEMBER 1994. DTSBR309 00005 DATE-COMPILED. DTSBR309 00006 SKIP3 DTSBR309 00007 ***** DTSBR309 00008 * TESTING COMPILE -Z CL**2 00009 * CALLING SEQUENCE: DTSBE309 CREATES DTSIR309 RECORDS. DTSBR309 00010 * DTSBD800 CALLS DTSBR309 WHICH PRODUCES DTSBR309 00011 * THE STATEMENT OF ACCOUNT. DTSBR309 00012 * DTSBR309 00013 * FUNCTION: STATEMENT OF ACCOUNT -- CREDIT MEMO. DTSBR309 00014 * DTSBR309 00015 * DTSBR309 00016 * MODIFICATION HISTORY: DTSBR309 00017 * DTSBR309 00018 * 11-12-94 INITIAL DEVELOPMENT DTSBR309 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR309 00020 * DTSBR309 00021 * 11-06-97 MODIFICATIONS TO REFLECT THE TRANSFER OF UI TAX DTSBR309 00022 * FUNCTIONS FROM DLI TO DOR. DTSBR309 00023 * REFERENCE RFP #TCL 208 AUTHOR OF CHANGE - EHH DTSBR309 00024 * DTSBR309 00025 * 02-28-01 ADDED R309-FEIN TO THE CREDIT DTSBR309 00026 * REFERENCE RFP AUTHOR OF CHANGE - ZL1 DTSBR309 00027 * DTSBR309 00028 * 05-09-08 CHANGED THE SELF MAILER RPT309R1 OLD FORM TO A NEW DTSBR309 00029 * FORM WITH BARCODE. RPT309R2 REPORT REMAIN UNCHANGED. DTSBR309 00030 * REFERENCE RFP AUTHOR OF CHANGE - RW1 DTSBR309 00031 * DTSBR309 00032 * 08-05-08 ADDED CODE TO PRINT THE LAST THREE CHARACTERS OF DTSBR309 00033 * OPID FIELD. DTSBR309 00034 * REFERENCE RFP AUTHOR OF CHANGE - ZL1 DTSBR309 00035 * DTSBR309 00036 * 02-10-20 MODIFIED PRINT LINES FOR CREDIT AUTOMATION TASK DTSBR309 00037 * DTSBR309 00038 * REFERENCE DELL KACE 7654 AUTHOR OF CHANGE - ZL1 DTSBR309 00039 * DTSBR309 00040 * DTSBR309 00041 * DESCRIPTION: DTSBR309 00042 * DTSBR309 00043 * THIS MODULE PRINTS A STATEMENT OF ACCOUNT TO EMPLOYERS DTSBR309 00044 * WHO HAVE A CREDIT BALANCE, NO OPEN APPEAL, AND NO DTSBR309 00045 * PURSUED REPORTS. DTSBR309 00046 * DTSBR309 00047 * DTSBR309 00048 * RECORDS READ: DTSBR309 00049 * DTSBR309 00050 * NONE. DTSBR309 00051 * DTSBR309 00052 * DTSBR309 00053 * PRINTED OUTPUTS: DTSBR309 00054 * DTSBR309 00055 * 309R1 STATEMENT OF ACCOUNT (UC-223) - MAILROOM COPY DTSBR309 00056 * 309R2 STATEMENT OF ACCOUNT (UC-223) - CONTRIBUTIONS COPYDTSBR309 00057 * DTSBR309 00058 * RECORDS WRITTEN: DTSBR309 00059 * DTSBR309 00060 * NONE. DTSBR309 00061 * DTSBR309 00062 * DTSBR309 00063 * MODULES CALLED: DTSBR309 00064 * DTSBR309 00065 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR309 00066 * DTSBU090 PARAGRAPH FORMATTING MODULE DTSBR309 00067 * DTSBU119 AGENCY FACTS MODULE DTSBR309 00068 * DTSBR309 00069 * DTSBR309 00070 ***** DTSBR309 00071 EJECT DTSBR309 00072 ENVIRONMENT DIVISION. DTSBR309 00073 DTSBR309 00074 CONFIGURATION SECTION. DTSBR309 00075 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR309 00076 DTSBR309 00077 INPUT-OUTPUT SECTION. DTSBR309 00078 SKIP1 DTSBR309 00079 FILE-CONTROL. DTSBR309 00080 SELECT MAILROOM-PRT-FILE ASSIGN TO RPT309R1. DTSBR309 00081 SELECT BUREAU-PRT-FILE ASSIGN TO RPT309R2. DTSBR309 00082 SKIP3 DTSBR309 00083 DATA DIVISION. DTSBR309 00084 SKIP3 DTSBR309 00085 FILE SECTION. DTSBR309 00086 SKIP2 DTSBR309 00087 FD MAILROOM-PRT-FILE DTSBR309 00088 RECORDING MODE IS F DTSBR309 00089 BLOCK CONTAINS 0 RECORDS DTSBR309 00090 LABEL RECORDS ARE OMITTED. DTSBR309 00091 01 XEROX-REPORT1. DTSBR309 00092 05 FILLER PIC X(1). DTSBR309 00093 05 XEROX-RPT1 PIC X(132). DTSBR309 00094 DTSBR309 00095 FD BUREAU-PRT-FILE DTSBR309 00096 RECORDING MODE IS F DTSBR309 00097 BLOCK CONTAINS 0 RECORDS DTSBR309 00098 LABEL RECORDS ARE OMITTED. DTSBR309 00099 01 XEROX-REPORT2. DTSBR309 00100 05 FILLER PIC X(1). DTSBR309 00101 05 XEROX-RPT2 PIC X(132). DTSBR309 00102 DTSBR309 00103 WORKING-STORAGE SECTION. DTSBR309 001035 77 PAN-VALET PICTURE X(24) VALUE '008DTSBR309 08/16/21'. DTSBR309 00104 77 PAN-VALET PICTURE X(24) VALUE '133DTSBR309 03/02/20'. DTSBR309 00105 77 PAN-VALET PICTURE X(24) VALUE '004DTSBR309 03/02/20'. DTSBR309 00106 77 PAN-VALET PICTURE X(24) VALUE '131DTSBR309 03/02/11'. DTSBR309 00107 DTSBR309 00108 01 WRK-AREA. DTSBR309 00109 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +309.DTSBR309 00110 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR309 00111 05 WS-STMT-DATE PIC X(10). DTSBR309 00112 05 WS-LAST-ACCT-UPDATE-DATE PIC X(10). DTSBR309 00113 05 WS-CTR PIC S9(04) COMP. DTSBR309 00114 05 LINE-CNT PIC S9(04) VALUE +0. DTSBR309 00115 05 WS-AMT PIC X(14). DTSBR309 00116 05 WS-AMT-EDIT REDEFINES WS-AMT DTSBR309 00117 PIC ZZZ,ZZZ,ZZ9.99. DTSBR309 00118 05 WS-AGENCY-FACTS. DTSBR309 00119 10 WS-AGY-NAMEB1B2-CAPS-STRING DTSBR309 00120 PIC X(82). DTSBR309 00121 10 WS-PROGRAM-NAME-CAPS PIC X(50). DTSBR309 00122 10 WS-PROGRAM-VOICE PIC X(15). DTSBR309 00123 10 WS-PROGRAM-FAX PIC X(15). DTSBR309 00124 DTSBR309 00125 05 WS-OPR-VOICE. DTSBR309 00126 10 WS-OPR-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR309 00127 10 WS-OPR-VOICE-1 PIC X(03) VALUE SPACES. DTSBR309 00128 10 WS-OPR-VOICE-2 PIC X(04) VALUE SPACES. DTSBR309 00129 10 WS-OPR-VOICE-EXT PIC X(05) VALUE SPACES. DTSBR309 00130 DTSBR309 00131 05 WS-OPR-FAX. DTSBR309 00132 10 WS-OPR-FAX-AREA PIC X(03) VALUE SPACES. DTSBR309 00133 10 WS-OPR-FAX-1 PIC X(03) VALUE SPACES. DTSBR309 00134 10 WS-OPR-FAX-2 PIC X(04) VALUE SPACES. DTSBR309 00135 10 WS-OPR-FAX-EXT PIC X(05) VALUE SPACES. DTSBR309 00136 DTSBR309 00137 05 WS-OPID. DTSBR309 00138 10 WS-OPID-A PIC X(04) VALUE SPACES. DTSBR309 00139 10 WS-OPID-B PIC X(03) VALUE SPACES. DTSBR309 00140 DTSBR309 00141 05 WS-BAT-ITEM. DTSBR309 00142 10 FILLER PIC X(72) VALUE SPACES. DTSBR309 00143 10 WS-BATCH-NO1 PIC 9(05) VALUE ZEROS. DTSBR309 00144 10 FILLER PIC X(01) VALUE '-'. DTSBR309 00145 10 WS-ITEM-NO1 PIC 9(03) VALUE ZEROS. DTSBR309 00146 DTSBR309 00147 05 WS-ACCT-BAT-ITEM. DTSBR309 00148 10 FILLER PIC X(46) VALUE SPACES. DTSBR309 00149 10 WS-EMP-NO2 PIC 9(06) VALUE ZEROS. DTSBR309 00150 10 WS-BATCH-NO2 PIC 9(05) VALUE ZEROS. DTSBR309 00151 10 WS-ITEM-NO2 PIC 9(03) VALUE ZEROS. DTSBR309 00152 DTSBR309 00153 05 WS-PROGRAM-NAME-STRING PIC X(51). DTSBR309 00154 DTSBR309 00155 05 WS-REC PIC X(132) VALUE SPACES. DTSBR309 00156 DTSBR309 00157 01 VSCA-LINE. DTSBR309 00158 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR309 00159 DTSBR309 00160 01 ROUTE-MRP-LINE13. DTSBR309 00161 05 FILLER PIC X VALUE SPACES. DTSBR309 00162 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00163 05 FILLER PIC X(40) VALUE ALL '*'. DTSBR309 00164 DTSBR309 00165 01 ROUTE-MRP-LINE14. DTSBR309 00166 05 FILLER PIC X VALUE SPACES. DTSBR309 00167 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00168 05 FILLER PIC X(40) VALUE DTSBR309 00169 '* ROUTE FOLLOWING FORMS TO: *'. DTSBR309 00170 05 FILLER PIC X(12) VALUE SPACES. DTSBR309 00171 DTSBR309 00172 01 ROUTE-MRP-LINE15. DTSBR309 00173 05 FILLER PIC X VALUE SPACES. DTSBR309 00174 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00175 05 FILLER PIC X(40) VALUE DTSBR309 00176 '* MAIL ROOM *'. DTSBR309 00177 DTSBR309 00178 01 ROUTE-MRP-LINE16. DTSBR309 00179 05 FILLER PIC X VALUE SPACES. DTSBR309 00180 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00181 05 FILLER PIC X(40) VALUE DTSBR309 00182 '* OFFICE OF SUPPORT SERVICES *'. DTSBR309 00183 DTSBR309 00184 01 ROUTE-MRP-LINE17. DTSBR309 00185 05 FILLER PIC X VALUE SPACES. DTSBR309 00186 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00187 05 FILLER PIC X(40) VALUE ALL '*'. DTSBR309 00188 ** DTSBR309 00189 01 ROUTE-BRP-LINE13. DTSBR309 00190 05 FILLER PIC X VALUE SPACES. DTSBR309 00191 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00192 05 FILLER PIC X(40) VALUE ALL '*'. DTSBR309 00193 DTSBR309 00194 01 ROUTE-BRP-LINE14. DTSBR309 00195 05 FILLER PIC X VALUE SPACES. DTSBR309 00196 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00197 05 FILLER PIC X(40) VALUE DTSBR309 00198 '* ROUTE FOLLOWING FORMS TO: *'. DTSBR309 00199 05 FILLER PIC X(12) VALUE SPACES. DTSBR309 00200 DTSBR309 00201 01 ROUTE-BRP-LINE15. DTSBR309 00202 05 FILLER PIC X VALUE SPACES. DTSBR309 00203 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00204 05 FILLER PIC X(40) VALUE DTSBR309 00205 '* TAX ACCOUNTING SECTION *'. DTSBR309 00206 DTSBR309 00207 01 ROUTE-BRP-LINE16. DTSBR309 00208 05 FILLER PIC X VALUE SPACES. DTSBR309 00209 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00210 05 FILLER PIC X(40) VALUE DTSBR309 00211 '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSBR309 00212 DTSBR309 00213 01 ROUTE-BRP-LINE17. DTSBR309 00214 05 FILLER PIC X VALUE SPACES. DTSBR309 00215 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00216 05 FILLER PIC X(40) VALUE ALL '*'. DTSBR309 00217 ** DTSBR309 00218 01 WRK-STATEMENT-HEADING. DTSBR309 00219 05 WRK-LINE-13 PIC X(133) VALUE SPACES. DTSBR309 00220 DTSBR309 00221 05 WRK-LINE-14. DTSBR309 00222 10 FILLER PIC X(26) VALUE SPACES. DTSBR309 00223 10 WRK-FMT-LINE-1 PIC X(40). DTSBR309 00224 10 FILLER PIC X(67) VALUE SPACES. DTSBR309 00225 DTSBR309 00226 05 WRK-LINE-15. DTSBR309 00227 10 FILLER PIC X(26) VALUE SPACES. DTSBR309 00228 10 WRK-FMT-LINE-2 PIC X(40). DTSBR309 00229 10 FILLER PIC X(67) VALUE SPACES. DTSBR309 00230 DTSBR309 00231 05 WRK-LINE-16. DTSBR309 00232 10 FILLER PIC X(26) VALUE SPACES. DTSBR309 00233 10 WRK-FMT-LINE-3 PIC X(40). DTSBR309 00234 10 FILLER PIC X(67) VALUE SPACES. DTSBR309 00235 DTSBR309 00236 05 WRK-LINE-17. DTSBR309 00237 10 FILLER PIC X(26) VALUE SPACES. DTSBR309 00238 10 WRK-FMT-LINE-4 PIC X(40). DTSBR309 00239 10 FILLER PIC X(67) VALUE SPACES. DTSBR309 00240 DTSBR309 00241 05 WRK-LINE-18. DTSBR309 00242 10 FILLER PIC X(26) VALUE SPACES. DTSBR309 00243 10 WRK-FMT-LINE-5 PIC X(40). DTSBR309 00244 10 FILLER PIC X(67) VALUE SPACES. DTSBR309 00245 ** DTSBR309 00246 01 WS-ACCT-INFO. DTSBR309 00247 05 FILLER PIC X(07) VALUE SPACES. DTSBR309 00248 05 WS-EMP-NO PIC 999B999. DTSBR309 00249 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00250 05 FILLER PIC X(08) VALUE SPACES. DTSBR309 00251 05 WS-BATCH-NO PIC 9(05) VALUE ZEROS. DTSBR309 00252 05 FILLER PIC X(01) VALUE '-'. DTSBR309 00253 05 WS-ITEM-NO PIC 9(03) VALUE ZEROS. DTSBR309 00254 05 FILLER PIC X(08) VALUE SPACES. DTSBR309 00255 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00256 05 WS-STATEMENT-DATE PIC X(10). DTSBR309 00257 05 FILLER PIC X(06) VALUE SPACES. DTSBR309 00258 05 WS-CREDIT-AMT PIC $$$,$$$,$$9.99. DTSBR309 00259 05 FILLER PIC X(11) VALUE SPACES. DTSBR309 00260 DTSBR309 00261 01 WRK-STATEMENT-FOOTING. DTSBR309 00262 05 WRK-LINE-36. DTSBR309 00263 10 FILLER PIC X(72) VALUE SPACES. DTSBR309 00264 10 WRK-LAST-ACCT-UPD-DATE PIC X(10). DTSBR309 00265 10 FILLER PIC X(01) DTSBR309 00266 VALUE '.'. DTSBR309 00267 ** DTSBR309 00268 01 VSCA-ADDR-LINE-17. DTSBR309 00269 05 FILLER PIC X VALUE SPACES. DTSBR309 00270 05 FILLER PIC X(37) VALUE SPACES. DTSBR309 00271 05 WS-ADDR-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSBR309 00272 DTSBR309 00273 01 VSCA-ADDR-LINE-18. DTSBR309 00274 05 FILLER PIC X VALUE SPACES. DTSBR309 00275 05 FILLER PIC X(37) VALUE SPACES. DTSBR309 00276 05 WS-ADDR-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSBR309 00277 DTSBR309 00278 01 VSCA-ADDR-LINE-19. DTSBR309 00279 05 FILLER PIC X VALUE SPACES. DTSBR309 00280 05 FILLER PIC X(37) VALUE SPACES. DTSBR309 00281 05 WS-ADDR-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSBR309 00282 DTSBR309 00283 01 VSCA-ADDR-LINE-20. DTSBR309 00284 05 FILLER PIC X VALUE SPACES. DTSBR309 00285 05 FILLER PIC X(37) VALUE SPACES. DTSBR309 00286 05 WS-ADDR-FMT-LINE-4 PIC X(40) VALUE SPACES. DTSBR309 00287 DTSBR309 00288 01 VSCA-ADDR-LINE-21. DTSBR309 00289 05 FILLER PIC X VALUE SPACES. DTSBR309 00290 05 FILLER PIC X(37) VALUE SPACES. DTSBR309 00291 05 WS-ADDR-FMT-LINE-5 PIC X(40) VALUE SPACES. DTSBR309 00292 ** DTSBR309 00293 01 XEROX-CNTL-LINE18. DTSBR309 00294 * 05 FILLER PIC X VALUE SPACES. DTSBR309 00295 05 CNTL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSBR309 00296 05 CNTL1-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSBR309 00297 05 CNTL1-JDE PIC X(11) VALUE 'JDE=T309R1,'. DTSBR309 00298 05 CNTL1-CME PIC X(14) VALUE 'MODIFY=TAX309,'. DTSBR309 00299 05 CNTL1-END PIC X(01) VALUE ';'. DTSBR309 00300 05 FILLER PIC X(32) VALUE SPACES. DTSBR309 00301 DTSBR309 00302 ** CL**3 00303 01 XEROX-CNTL-LISI18. CL**3 00304 * 05 FILLER PIC X VALUE SPACES. CL**3 00305 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL**5 00306 05 CNTL2-JDL PIC X(09) VALUE 'JDL=XMOM,'. CL**5 00307 05 CNTL2-JDE PIC X(11) VALUE 'JDE=T421R1,'. CL**6 00308 05 CNTL2-CME PIC X(14) VALUE 'MODIFY=TAX309,'. CL**5 00309 05 CNTL2-END PIC X(01) VALUE ';'. CL**5 00310 05 FILLER PIC X(32) VALUE SPACES. CL**3 00311 CL**3 00312 01 XEROX-CNTL-LINE19. DTSBR309 00313 * 05 FILLER PIC X VALUE SPACES. DTSBR309 00314 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSBR309 00315 05 CNTL2-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSBR309 00316 05 CNTL2-FONTS PIC X(36) DTSBR309 00317 VALUE 'FONTS=(P07TDB,P07TDB,C128ZP,C128PX),'. DTSBR309 00318 05 CNTL2-END PIC X(01) VALUE ';'. DTSBR309 00319 05 FILLER PIC X(31) VALUE SPACES. DTSBR309 00320 DTSBR309 00321 DTSBR309 00322 01 XEROX-CNTL-LINE21. DTSBR309 00323 * 05 FILLER PIC X VALUE SPACES. DTSBR309 00324 05 CNTL4-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSBR309 00325 05 CNTL4-DATA PIC X(12) VALUE 'DATA=(0,85),'. DTSBR309 00326 05 CNTL4-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSBR309 00327 05 CNTL4-BEGIB PIC X(18) VALUE DTSBR309 00328 'BEGIN=(0.10,0.51),'. DTSBR309 00329 * 05 XEROX-TOF PIC X(07) VALUE 'TOF=01,'. DTSBR309 00330 * 05 XEROX-BOF PIC X(07) VALUE 'BOF=60,'. DTSBR309 00331 05 XEROX-END PIC X(04) VALUE 'END;'. DTSBR309 00332 05 FILLER PIC X(21) VALUE SPACES. DTSBR309 00333 DTSBR309 00334 01 PRINT-OPID. DTSBR309 00335 * 05 FILLER PIC X(11) VALUE SPACES. DTSBR309 00336 05 OPID-FIRST4 PIC X(04) VALUE SPACES. DTSBR309 00337 DTSBR309 00338 *RW1 DTSBR309 00339 01 CONVERT-BARCODE-LINE1. DTSBR309 00340 05 BARC-EMP-NO1 PIC 9(06) VALUE ZEROS. DTSBR309 00341 05 BARC-BATCH-NO PIC 9(05) VALUE ZEROS. DTSBR309 00342 05 BARC-ITEM-NO PIC 9(03) VALUE ZEROS. DTSBR309 00343 DTSBR309 00344 01 CONVERT-BARCODE-LINE. DTSBR309 00345 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR309 00346 DTSBR309 00347 01 WS-BARC-LINE1. DTSBR309 00348 * 05 FILLER PIC X(47) VALUE SPACES. DTSBR309 00349 05 FILLER PIC X(46) VALUE SPACES. DTSBR309 00350 05 CONVERTED-BARCODE1 PIC X(50). DTSBR309 00351 05 FILLER PIC X(23) VALUE SPACES. DTSBR309 00352 DTSBR309 00353 01 WS-BARC-LINE. DTSBR309 00354 05 FILLER PIC X(40) VALUE SPACES. DTSBR309 00355 05 CONVERTED-BARCODE PIC X(50). DTSBR309 00356 05 FILLER PIC X(30) VALUE SPACES. DTSBR309 00357 DTSBR309 00358 01 BARI-LINK-AREA. DTSBR309 00359 ++INCLUDE BARIL599 DTSBR309 00360 SKIP3 DTSBR309 00361 *RW2 DTSBR309 00362 01 L001-LINK-AREA. DTSBR309 00363 ++INCLUDE DTSIL001 DTSBR309 00364 EJECT DTSBR309 00365 01 L090-LINK-AREA. DTSBR309 00366 ++INCLUDE DTSIL090 DTSBR309 00367 EJECT DTSBR309 00368 01 L119-LINK-AREA. DTSBR309 00369 ++INCLUDE DTSIL119 DTSBR309 00370 EJECT DTSBR309 00371 ++INCLUDE DTSXL30B DTSBR309 00372 EJECT DTSBR309 00373 DTSBR309 00374 LINKAGE SECTION. DTSBR309 00375 SKIP3 DTSBR309 00376 01 LRCM-LINK-AREA. DTSBR309 00377 ++INCLUDE DTSILRCM DTSBR309 00378 EJECT DTSBR309 00379 01 R309-REC. DTSBR309 00380 ++INCLUDE DTSIR309 DTSBR309 00381 EJECT DTSBR309 00382 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR309 00383 R309-REC. DTSBR309 00384 SKIP2 DTSBR309 00385 IF FIRST-TIME-IND = 'Y' DTSBR309 00386 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR309 00387 MOVE 'N' TO FIRST-TIME-IND. DTSBR309 00388 SKIP1 DTSBR309 00389 IF LRCM-EOR-88 DTSBR309 00390 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR309 00391 ELSE DTSBR309 00392 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR309 00393 SKIP2 DTSBR309 00394 GOBACK. DTSBR309 00395 EJECT DTSBR309 00396 I1000-INITIATE. DTSBR309 00397 SKIP1 DTSBR309 00398 OPEN OUTPUT MAILROOM-PRT-FILE BUREAU-PRT-FILE. DTSBR309 00399 DTSBR309 00400 MOVE SPACES TO XEROX-REPORT1 XEROX-REPORT2. DTSBR309 00401 DTSBR309 00402 WRITE XEROX-REPORT1 FROM VSCA-LINE DTSBR309 00403 AFTER ADVANCING TOP-OF-PAGE. DTSBR309 00404 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 12. DTSBR309 00405 WRITE XEROX-REPORT1 FROM ROUTE-MRP-LINE13 DTSBR309 00406 WRITE XEROX-REPORT1 FROM ROUTE-MRP-LINE14. DTSBR309 00407 WRITE XEROX-REPORT1 FROM ROUTE-MRP-LINE15. DTSBR309 00408 WRITE XEROX-REPORT1 FROM ROUTE-MRP-LINE16. DTSBR309 00409 WRITE XEROX-REPORT1 FROM ROUTE-MRP-LINE17. DTSBR309 00410 * WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE18 DTSBR309 00411 * WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE19. DTSBR309 00412 * WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE20. DTSBR309 00413 * WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE21. DTSBR309 00414 DTSBR309 00415 WRITE XEROX-REPORT2 FROM VSCA-LINE DTSBR309 00416 AFTER ADVANCING TOP-OF-PAGE. DTSBR309 00417 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 12. DTSBR309 00418 WRITE XEROX-REPORT2 FROM ROUTE-BRP-LINE13 DTSBR309 00419 WRITE XEROX-REPORT2 FROM ROUTE-BRP-LINE14. DTSBR309 00420 WRITE XEROX-REPORT2 FROM ROUTE-BRP-LINE15. DTSBR309 00421 WRITE XEROX-REPORT2 FROM ROUTE-BRP-LINE16. DTSBR309 00422 WRITE XEROX-REPORT2 FROM ROUTE-BRP-LINE17. DTSBR309 00423 DTSBR309 00424 SET L119-REQ-CAPS-88 TO TRUE. DTSBR309 00425 SET L119-REQ-NO-UNIT-88 TO TRUE. DTSBR309 00426 PERFORM S119-AGENCY-FACTS THRU S119-EXIT. DTSBR309 00427 MOVE SPACES TO WS-AGY-NAMEB1B2-CAPS-STRING. DTSBR309 00428 STRING L119-AGY-NAMEB1 DELIMITED BY ' ' DTSBR309 00429 ', ' DELIMITED BY SIZE DTSBR309 00430 L119-AGY-NAMEB2 DELIMITED BY ' ' DTSBR309 00431 INTO DTSBR309 00432 WS-AGY-NAMEB1B2-CAPS-STRING. DTSBR309 00433 MOVE L119-UC-OFFICE-NAME TO WS-PROGRAM-NAME-CAPS. DTSBR309 00434 MOVE L119-AGY-MAIL2 TO WS-AGY-MAIL2-CAPS. DTSBR309 00435 MOVE L119-UC-OFFICE-VOICE TO WS-PROGRAM-VOICE. DTSBR309 00436 MOVE L119-UC-OFFICE-FAX TO WS-PROGRAM-FAX. DTSBR309 00437 MOVE L119-AGY-MAIL1 TO WS-MAIL1-PHYS1-STRING. DTSBR309 00438 MOVE SPACES TO WS-PROGRAM-NAME-STRING. DTSBR309 00439 STRING L119-UC-OFFICE-NAME DELIMITED BY ' ' DTSBR309 00440 '.' DELIMITED BY SIZE DTSBR309 00441 INTO DTSBR309 00442 WS-PROGRAM-NAME-STRING. DTSBR309 00443 SKIP2 DTSBR309 00444 I1000-EXIT. DTSBR309 00445 EXIT. DTSBR309 00446 EJECT DTSBR309 00447 P1000-PROCESS. DTSBR309 00448 SKIP1 DTSBR309 00449 MOVE R309-STMT-DATE TO L001-FED-8-DATE-9. DTSBR309 00450 SET L001-FROM-FED-8 TO TRUE. DTSBR309 00451 PERFORM S001-DATE THRU S001-EXIT. DTSBR309 00452 MOVE L001-SLASH-8-DATE TO WS-STMT-DATE. DTSBR309 00453 SKIP1 DTSBR309 00454 MOVE R309-LAST-ACCT-UPDATE-DATE TO L001-FED-8-DATE-9. DTSBR309 00455 SET L001-FROM-FED-8 TO TRUE. DTSBR309 00456 PERFORM S001-DATE THRU S001-EXIT. DTSBR309 00457 MOVE L001-SLASH-8-DATE TO WS-LAST-ACCT-UPDATE-DATE. DTSBR309 00458 DTSBR309 00459 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR309 00460 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT. DTSBR309 00461 DTSBR309 00462 MOVE 'YOUR ACCOUNT HAS A CREDIT BALANCE OF $' DTSBR309 00463 TO L090-PHRASE-TABLE (1). DTSBR309 00464 DTSBR309 00465 MOVE R309-TOT-CREDIT-AMT TO WS-AMT-EDIT. DTSBR309 00466 MOVE +0 TO WS-CTR. DTSBR309 00467 INSPECT WS-AMT TALLYING WS-CTR FOR LEADING SPACES. DTSBR309 00468 MOVE WS-AMT (WS-CTR + 1:) TO L090-PHRASE-TABLE (2). DTSBR309 00469 DTSBR309 00470 MOVE '. YOU EITHER NEED TO DEDUCT THIS AMOUNT' DTSBR309 00471 TO L090-PHRASE-TABLE (3). DTSBR309 00472 MOVE 'FROM YOUR NEXT UNEMPLOYMENT INSURANCE' DTSBR309 00473 TO L090-PHRASE-TABLE (4). DTSBR309 00474 MOVE 'EMPLOYER''S QUARTERLY WAGE REPORT' DTSBR309 00475 TO L090-PHRASE-TABLE (5). DTSBR309 00476 MOVE 'OR REQUEST A REFUND. TO REQUEST A REFUND,' DTSBR309 00477 TO L090-PHRASE-TABLE (6). DTSBR309 00478 MOVE 'SIGN BELOW AND RETURN THIS FORM TO THE' DTSBR309 00479 TO L090-PHRASE-TABLE (7). DTSBR309 00480 MOVE 'DISTRICT''S UNEMPLOYMENT INSURANCE DIVISION.' DTSBR309 00481 TO L090-PHRASE-TABLE (8). DTSBR309 00482 DTSBR309 00483 MOVE +8 TO L090-PHRASE-CNT. DTSBR309 00484 MOVE +77 TO L090-DESIRED-LINE-LIMIT. DTSBR309 00485 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR309 00486 DTSBR309 00487 PERFORM P7000-PRINT-FOOTING-LINE THRU P7000-EXIT. DTSBR309 00488 PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT. DTSBR309 00489 DTSBR309 00490 PERFORM P9000-PRINT-FOOTING-LINE THRU P9000-EXIT. DTSBR309 00491 DTSBR309 00492 P1000-EXIT. DTSBR309 00493 EXIT. DTSBR309 00494 DTSBR309 00495 P2000-SELF-MAILER-RTN. DTSBR309 00496 MOVE R309-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR309 00497 MOVE R309-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR309 00498 MOVE R309-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR309 00499 MOVE R309-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR309 00500 MOVE R309-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR309 00501 PERFORM P8000-PRINT-VSCA-ADDR THRU P8000-EXIT. DTSBR309 00502 P2000-EXIT. DTSBR309 00503 EXIT. DTSBR309 00504 DTSBR309 00505 P3000-PRINT-HEADER. DTSBR309 00506 DTSBR309 00507 MOVE R309-EMP-NO TO BARC-EMP-NO BARC-EMP-NO1. DTSBR309 00508 MOVE R309-BATCH-NO TO BARC-BATCH-NO. DTSBR309 00509 MOVE R309-ITEM-NO TO BARC-ITEM-NO. DTSBR309 00510 MOVE CONVERT-BARCODE-LINE1 TO L599-INPUT-DATA. DTSBR309 00511 MOVE LENGTH OF CONVERT-BARCODE-LINE1 TO L599-REC-LENGTH. DTSBR309 00512 MOVE 'TAX' TO L599-SYSTEM. DTSBR309 00513 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR309 00514 DTSBR309 00515 MOVE 'MODIFY=TAX309,' TO CNTL1-CME. DTSBR309 00516 MOVE 0 TO LINE-CNT. DTSBR309 00517 IF R309-EMP-TYPE = 'S' CL**4 00518 WRITE XEROX-REPORT1 FROM XEROX-CNTL-LISI18 CL**4 00519 AFTER ADVANCING TOP-OF-PAGE CL**4 00520 ELSE CL**4 00521 WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE18 CL**4 00522 AFTER ADVANCING TOP-OF-PAGE. CL**4 00523 WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE19. DTSBR309 00524 WRITE XEROX-REPORT1 FROM XEROX-CNTL-LINE21. DTSBR309 00525 DTSBR309 00526 ADD 2 TO LINE-CNT. DTSBR309 00527 MOVE R309-FMT-LINE (1) TO WRK-FMT-LINE-1. DTSBR309 00528 MOVE R309-FMT-LINE (2) TO WRK-FMT-LINE-2. DTSBR309 00529 MOVE R309-FMT-LINE (3) TO WRK-FMT-LINE-3. DTSBR309 00530 MOVE R309-FMT-LINE (4) TO WRK-FMT-LINE-4. DTSBR309 00531 MOVE R309-FMT-LINE (5) TO WRK-FMT-LINE-5. DTSBR309 00532 MOVE R309-EMP-NO TO WS-EMP-NO WS-EMP-NO2. DTSBR309 00533 * MOVE R309-FEIN TO WS-EMP-FEIN. DTSBR309 00534 MOVE R309-BATCH-NO TO WS-BATCH-NO WS-BATCH-NO1 DTSBR309 00535 WS-BATCH-NO2. DTSBR309 00536 MOVE R309-ITEM-NO TO WS-ITEM-NO WS-ITEM-NO1 DTSBR309 00537 WS-ITEM-NO2. DTSBR309 00538 MOVE WS-STMT-DATE TO WS-STATEMENT-DATE. DTSBR309 00539 MOVE R309-TOT-CREDIT-AMT TO WS-CREDIT-AMT. DTSBR309 00540 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR309 00541 WRITE XEROX-REPORT1 FROM WS-ACCT-INFO AFTER ADVANCING 1 LINE.DTSBR309 00542 DTSBR309 00543 ADD 9 TO LINE-CNT. DTSBR309 00544 WRITE XEROX-REPORT1 FROM WRK-LINE-13 AFTER ADVANCING 2 LINE. DTSBR309 00545 WRITE XEROX-REPORT1 FROM WRK-LINE-14 AFTER ADVANCING 1 LINE. DTSBR309 00546 WRITE XEROX-REPORT1 FROM WRK-LINE-15 AFTER ADVANCING 1 LINE. DTSBR309 00547 WRITE XEROX-REPORT1 FROM WRK-LINE-16 AFTER ADVANCING 1 LINE. DTSBR309 00548 WRITE XEROX-REPORT1 FROM WRK-LINE-17 AFTER ADVANCING 1 LINE. DTSBR309 00549 WRITE XEROX-REPORT1 FROM WRK-LINE-18 AFTER ADVANCING 1 LINE. DTSBR309 00550 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 1 LINE. DTSBR309 00551 MOVE R309-OPID TO WS-OPID. DTSBR309 00552 MOVE WS-OPID-A TO OPID-FIRST4. DTSBR309 00553 WRITE XEROX-REPORT1 FROM PRINT-OPID BEFORE ADVANCING 1 LINE.DTSBR309 00554 WRITE XEROX-REPORT1 FROM WRK-LINE-36 AFTER ADVANCING 1 LINE. CL**8 00555 DTSBR309 00556 ADD 12 TO LINE-CNT. DTSBR309 00557 P3000-EXIT. DTSBR309 00558 EXIT. DTSBR309 00559 DTSBR309 00560 P4000-PRINT-HEADER. DTSBR309 00561 MOVE WS-PROGRAM-VOICE TO WS-OPR-VOICE. DTSBR309 00562 MOVE WS-PROGRAM-FAX TO WS-OPR-FAX. DTSBR309 00563 MOVE WS-OPR-VOICE-1 TO BSH-OPR-VOICE-1 BSF-OPR-VOICE-1. DTSBR309 00564 MOVE WS-OPR-VOICE-2 TO BSH-OPR-VOICE-2 BSF-OPR-VOICE-2. DTSBR309 00565 MOVE WS-OPR-FAX-1 TO BSH-OPR-FAX-1 BSF-OPR-FAX-1. DTSBR309 00566 MOVE WS-OPR-FAX-2 TO BSH-OPR-FAX-2 BSF-OPR-FAX-2. DTSBR309 00567 MOVE R309-FMT-LINE (1) TO BSH-FMT-LINE-1. DTSBR309 00568 MOVE R309-FMT-LINE (2) TO BSH-FMT-LINE-2. DTSBR309 00569 MOVE R309-FMT-LINE (3) TO BSH-FMT-LINE-3. DTSBR309 00570 MOVE R309-FMT-LINE (4) TO BSH-FMT-LINE-4. DTSBR309 00571 MOVE R309-FMT-LINE (5) TO BSH-FMT-LINE-5. DTSBR309 00572 MOVE R309-EMP-NO TO BSH-EMP-NO. DTSBR309 00573 MOVE R309-FEIN TO BSH-EMP-FEIN. DTSBR309 00574 MOVE WS-STMT-DATE TO BSH-STMT-DATE. DTSBR309 00575 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER DTSBR309 00576 ADVANCING TOP-OF-PAGE. DTSBR309 00577 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR309 00578 WRITE XEROX-REPORT2 FROM BSH-LINE-8 AFTER ADVANCING 1 LINE. DTSBR309 00579 WRITE XEROX-REPORT2 FROM BSH-LINE-9 AFTER ADVANCING 1 LINE. DTSBR309 00580 WRITE XEROX-REPORT2 FROM BSH-LINE-10 AFTER ADVANCING 1 LINE. DTSBR309 00581 WRITE XEROX-REPORT2 FROM BSH-LINE-11 AFTER ADVANCING 1 LINE. DTSBR309 00582 WRITE XEROX-REPORT2 FROM BSH-LINE-12 AFTER ADVANCING 1 LINE. DTSBR309 00583 WRITE XEROX-REPORT2 FROM BSH-LINE-13 AFTER ADVANCING 1 LINE. DTSBR309 00584 WRITE XEROX-REPORT2 FROM BSH-LINE-14 AFTER ADVANCING 1 LINE. DTSBR309 00585 WRITE XEROX-REPORT2 FROM BSH-LINE-15 AFTER ADVANCING 1 LINE. DTSBR309 00586 WRITE XEROX-REPORT2 FROM BSH-LINE-16 AFTER ADVANCING 1 LINE. DTSBR309 00587 WRITE XEROX-REPORT2 FROM BSH-LINE-17 AFTER ADVANCING 1 LINE. DTSBR309 00588 WRITE XEROX-REPORT2 FROM BSH-LINE-18 AFTER ADVANCING 1 LINE. DTSBR309 00589 WRITE XEROX-REPORT2 FROM BSH-LINE-19 AFTER ADVANCING 1 LINE. DTSBR309 00590 WRITE XEROX-REPORT2 FROM BSH-LINE-20 AFTER ADVANCING 1 LINE. DTSBR309 00591 WRITE XEROX-REPORT2 FROM BSH-LINE-21 AFTER ADVANCING 1 LINE. DTSBR309 00592 WRITE XEROX-REPORT2 FROM BSH-LINE-22 AFTER ADVANCING 1 LINE. DTSBR309 00593 DTSBR309 00594 P4000-EXIT. DTSBR309 00595 EXIT. DTSBR309 00596 DTSBR309 00597 P7000-PRINT-FOOTING-LINE. DTSBR309 00598 DTSBR309 00599 MOVE WS-LAST-ACCT-UPDATE-DATE TO WRK-LAST-ACCT-UPD-DATE. DTSBR309 00600 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE1. DTSBR309 00601 DTSBR309 00602 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 09 LINE. DTSBR309 00603 * WRITE XEROX-REPORT1 FROM WS-BARC-LINE1 AFTER DTSBR309 00604 * ADVANCING 1 LINE. DTSBR309 00605 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR309 00606 WRITE XEROX-REPORT1 FROM WS-ACCT-INFO AFTER ADVANCING 2 LINE.DTSBR309 00607 INITIALIZE WS-ACCT-INFO. DTSBR309 00608 DTSBR309 00609 P7000-EXIT. DTSBR309 00610 EXIT. DTSBR309 00611 DTSBR309 00612 P8000-PRINT-VSCA-ADDR. DTSBR309 00613 *PUT ACCT, BAT, & ITEM THERE DTSBR309 00614 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR309 00615 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR309 00616 * DTSBR309 00617 MOVE 'TAX' TO L599-SYSTEM. DTSBR309 00618 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR309 00619 DTSBR309 00620 IF L599-SETB-FONT1 DTSBR309 00621 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME DTSBR309 00622 ELSE DTSBR309 00623 IF L599-SETB-FONT2 DTSBR309 00624 MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME DTSBR309 00625 ELSE DTSBR309 00626 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME. DTSBR309 00627 DTSBR309 00628 *RW1 DTSBR309 00629 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR309 00630 DTSBR309 00631 MOVE SPACES TO WS-REC. DTSBR309 00632 DTSBR309 00633 WRITE XEROX-REPORT1 FROM WS-REC DTSBR309 00634 AFTER ADVANCING TOP-OF-PAGE. DTSBR309 00635 DTSBR309 00636 WRITE XEROX-REPORT1 FROM WS-BARC-LINE AFTER 04. DTSBR309 00637 DTSBR309 00638 *2 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 09 LINE. DTSBR309 00639 WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 07 LINE. DTSBR309 00640 *RW2 DTSBR309 00641 WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-17 DTSBR309 00642 AFTER ADVANCING 1 LINE. DTSBR309 00643 WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-18 DTSBR309 00644 AFTER ADVANCING 1 LINE. DTSBR309 00645 WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-19 DTSBR309 00646 AFTER ADVANCING 1 LINE. DTSBR309 00647 WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-20 DTSBR309 00648 AFTER ADVANCING 1 LINE. DTSBR309 00649 WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-21 DTSBR309 00650 AFTER ADVANCING 1 LINE. DTSBR309 00651 DTSBR309 00652 P8000-EXIT. DTSBR309 00653 EXIT. DTSBR309 00654 DTSBR309 00655 P9000-PRINT-FOOTING-LINE. DTSBR309 00656 DTSBR309 00657 MOVE L090-PARAGRAPH-LINE (1) TO BSF-PARA-LINE-1. DTSBR309 00658 MOVE L090-PARAGRAPH-LINE (2) TO BSF-PARA-LINE-2. DTSBR309 00659 MOVE L090-PARAGRAPH-LINE (3) TO BSF-PARA-LINE-3. DTSBR309 00660 MOVE L090-PARAGRAPH-LINE (4) TO BSF-PARA-LINE-4. DTSBR309 00661 MOVE WS-LAST-ACCT-UPDATE-DATE TO BSF-LAST-ACCT-UPD-DATE. DTSBR309 00662 DTSBR309 00663 WRITE XEROX-REPORT2 FROM BSF-LINE-24 AFTER ADVANCING 1 LINE. DTSBR309 00664 WRITE XEROX-REPORT2 FROM BSF-LINE-25 AFTER ADVANCING 1 LINE. DTSBR309 00665 WRITE XEROX-REPORT2 FROM BSF-LINE-26 AFTER ADVANCING 1 LINE. DTSBR309 00666 WRITE XEROX-REPORT2 FROM BSF-LINE-27 AFTER ADVANCING 1 LINE. DTSBR309 00667 WRITE XEROX-REPORT2 FROM BSF-LINE-28 AFTER ADVANCING 1 LINE. DTSBR309 00668 WRITE XEROX-REPORT2 FROM BSF-LINE-29 AFTER ADVANCING 1 LINE. DTSBR309 00669 WRITE XEROX-REPORT2 FROM BSF-LINE-30 AFTER ADVANCING 1 LINE. DTSBR309 00670 WRITE XEROX-REPORT2 FROM BSF-LINE-31 AFTER ADVANCING 1 LINE. DTSBR309 00671 WRITE XEROX-REPORT2 FROM BSF-LINE-32 AFTER ADVANCING 1 LINE. DTSBR309 00672 WRITE XEROX-REPORT2 FROM BSF-LINE-33 AFTER ADVANCING 1 LINE. DTSBR309 00673 WRITE XEROX-REPORT2 FROM BSF-LINE-34 AFTER ADVANCING 1 LINE. DTSBR309 00674 WRITE XEROX-REPORT2 FROM BSF-LINE-35 AFTER ADVANCING 1 LINE. DTSBR309 00675 WRITE XEROX-REPORT2 FROM BSF-LINE-36 AFTER ADVANCING 1 LINE. DTSBR309 00676 WRITE XEROX-REPORT2 FROM BSF-LINE-37 AFTER ADVANCING 1 LINE. DTSBR309 00677 WRITE XEROX-REPORT2 FROM BSF-LINE-38 AFTER ADVANCING 1 LINE. DTSBR309 00678 WRITE XEROX-REPORT2 FROM BSF-LINE-39 AFTER ADVANCING 1 LINE. DTSBR309 00679 WRITE XEROX-REPORT2 FROM BSF-LINE-40 AFTER ADVANCING 1 LINE. DTSBR309 00680 WRITE XEROX-REPORT2 FROM BSF-LINE-41 AFTER ADVANCING 1 LINE. DTSBR309 00681 WRITE XEROX-REPORT2 FROM BSF-LINE-42 AFTER ADVANCING 1 LINE. DTSBR309 00682 WRITE XEROX-REPORT2 FROM BSF-LINE-43 AFTER ADVANCING 1 LINE. DTSBR309 00683 WRITE XEROX-REPORT2 FROM BSF-LINE-44 AFTER ADVANCING 1 LINE. DTSBR309 00684 WRITE XEROX-REPORT2 FROM BSF-LINE-45 AFTER ADVANCING 1 LINE. DTSBR309 00685 WRITE XEROX-REPORT2 FROM BSF-LINE-46 AFTER ADVANCING 1 LINE. DTSBR309 00686 WRITE XEROX-REPORT2 FROM BSF-LINE-47 AFTER ADVANCING 1 LINE. DTSBR309 00687 WRITE XEROX-REPORT2 FROM BSF-LINE-48 AFTER ADVANCING 1 LINE. DTSBR309 00688 WRITE XEROX-REPORT2 FROM BSF-LINE-49 AFTER ADVANCING 1 LINE. DTSBR309 00689 WRITE XEROX-REPORT2 FROM BSF-LINE-50 AFTER ADVANCING 1 LINE. DTSBR309 00690 WRITE XEROX-REPORT2 FROM BSF-LINE-51 AFTER ADVANCING 1 LINE. DTSBR309 00691 WRITE XEROX-REPORT2 FROM BSF-LINE-52 AFTER ADVANCING 1 LINE. DTSBR309 00692 WRITE XEROX-REPORT2 FROM BSF-LINE-53 AFTER ADVANCING 1 LINE. DTSBR309 00693 WRITE XEROX-REPORT2 FROM BSF-LINE-54 AFTER ADVANCING 1 LINE. DTSBR309 00694 WRITE XEROX-REPORT2 FROM BSF-LINE-55 AFTER ADVANCING 1 LINE. DTSBR309 00695 WRITE XEROX-REPORT2 FROM BSF-LINE-56 AFTER ADVANCING 1 LINE. DTSBR309 00696 WRITE XEROX-REPORT2 FROM BSF-LINE-57 AFTER ADVANCING 1 LINE. DTSBR309 00697 WRITE XEROX-REPORT2 FROM BSF-LINE-58 AFTER ADVANCING 1 LINE. DTSBR309 00698 WRITE XEROX-REPORT2 FROM BSF-LINE-59 AFTER ADVANCING 1 LINE. DTSBR309 00699 DTSBR309 00700 P9000-EXIT. DTSBR309 00701 EXIT. DTSBR309 00702 DTSBR309 00703 T1000-TERMINATE. DTSBR309 00704 DTSBR309 00705 CLOSE MAILROOM-PRT-FILE DTSBR309 00706 BUREAU-PRT-FILE. DTSBR309 00707 SKIP2 DTSBR309 00708 T1000-EXIT. DTSBR309 00709 EXIT. DTSBR309 00710 EJECT DTSBR309 00711 S001-DATE. DTSBR309 00712 SKIP1 DTSBR309 00713 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR309 00714 SKIP2 DTSBR309 00715 S001-EXIT. DTSBR309 00716 EXIT. DTSBR309 00717 SKIP3 DTSBR309 00718 S090-PARAGRAPH-FORMAT. DTSBR309 00719 SKIP1 DTSBR309 00720 MOVE +0 TO L090-INDENT. DTSBR309 00721 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR309 00722 DTSBR309 00723 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR309 00724 SKIP2 DTSBR309 00725 S090-EXIT. DTSBR309 00726 EXIT. DTSBR309 00727 SKIP3 DTSBR309 00728 S119-AGENCY-FACTS. DTSBR309 00729 SKIP1 DTSBR309 00730 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR309 00731 SKIP2 DTSBR309 00732 S119-EXIT. DTSBR309 00733 EXIT. DTSBR309 00734 SKIP3 DTSBR309 00735 S599-BARCODE. DTSBR309 00736 *RW MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR309 00737 * MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR309 00738 *RW MOVE 'TAX' TO L599-SYSTEM. DTSBR309 00739 DTSBR309 00740 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR309 00741 DTSBR309 00742 IF L599-NOT-CONVERTED DTSBR309 00743 PERFORM S999-ABEND THRU S999-EXIT. DTSBR309 00744 S599-EXIT. DTSBR309 00745 EXIT. DTSBR309 00746 SKIP3 DTSBR309 00747 S999-ABEND. DTSBR309 00748 SKIP1 DTSBR309 00749 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR309 00750 SKIP2 DTSBR309 00751 S999-EXIT. DTSBR309 00752 EXIT. DTSBR309