754 lines
60 KiB
COBOL
754 lines
60 KiB
COBOL
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
|