DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
753
Batch/DTSBR309.cob
Normal file
753
Batch/DTSBR309.cob
Normal file
@ -0,0 +1,753 @@
|
||||
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
|
||||
Reference in New Issue
Block a user