1237 lines
98 KiB
COBOL
1237 lines
98 KiB
COBOL
00001 IDENTIFICATION DIVISION. 02/10/21
|
|
00002 PROGRAM-ID. DTSBR320. DTSBR320
|
|
00003 AUTHOR. TRW S&ITG. LV033
|
|
00004 DATE-WRITTEN. MARCH 1999 DTSBR320
|
|
00005 DATE-COMPILED. DTSBR320
|
|
00006 SKIP3 DTSBR320
|
|
00007 ***** DTSBR320
|
|
00008 * CALLING SEQUENCE: DTSBR320
|
|
00009 * DTSBR320
|
|
00010 * DTSBR320 READS DTSIR320 RECORDS. DTSBR320
|
|
00011 * DTSBR320
|
|
00012 * FUNCTION: penalty assessment/ missing report notices DTSBR320
|
|
00013 * DTSBR320
|
|
00014 * DTSBR320
|
|
00015 * MODIFICATION HISTORY: DTSBR320
|
|
00016 * DTSBR320
|
|
00017 * 07-16-13 new program. print penalty assessment letter DTSBR320
|
|
00018 * for rated and self insured filers DTSBR320
|
|
00019 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320
|
|
00020 * DTSBR320
|
|
00021 * DTSBR320
|
|
00022 * 12-22-13 modified program to print missing report letter for DTSBR320
|
|
00023 * all employers who have not filed their quarterly DTSBR320
|
|
00024 * report also a penalty is charged. DTSBR320
|
|
00025 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320
|
|
00026 * DTSBR320
|
|
00027 * DTSBR320
|
|
00028 * 07-22-14 modified program to print missing report and penalty DTSBR320
|
|
00029 * report listings for trms DTSBR320
|
|
00030 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320
|
|
00031 * DTSBR320
|
|
00032 * DTSBR320
|
|
00033 * 05-23-15 modified program to notify employer credit was applied DTSBR320
|
|
00034 * to pay late penalty DTSBR320
|
|
00035 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320
|
|
00036 * DTSBR320
|
|
00037 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR320
|
|
00038 * XXXXXXXXXXXX. DTSBR320
|
|
00039 * REFERENCE XXXXXXXXX PROGRAMMER: XXX DTSBR320
|
|
00040 * DTSBR320
|
|
00041 * DESCRIPTION: DTSBR320
|
|
00042 * DTSBR320
|
|
00043 * THIS MODULE PRINTS penalty charge and missing report DTSBR320
|
|
00044 * notices. DTSBR320
|
|
00045 * DTSBR320
|
|
00046 * DTSBR320
|
|
00047 * RECORDS READ: DTSBR320
|
|
00048 * DTSBR320
|
|
00049 * NONE. DTSBR320
|
|
00050 * DTSBR320
|
|
00051 * DTSBR320
|
|
00052 * PRINTED OUTPUTS: DTSBR320
|
|
00053 * DTSBR320
|
|
00054 * 320R1 penalty charge letter DTSBR320
|
|
00055 * 320r2 missing report letter DTSBR320
|
|
00056 * DTSBR320
|
|
00057 * RECORDS WRITTEN: DTSBR320
|
|
00058 * DTSBR320
|
|
00059 * NONE. DTSBR320
|
|
00060 * DTSBR320
|
|
00061 * DTSBR320
|
|
00062 * MODULES CALLED: DTSBR320
|
|
00063 * DTSBR320
|
|
00064 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR320
|
|
00065 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR320
|
|
00066 * DTSBR320
|
|
00067 ***** DTSBR320
|
|
00068 EJECT DTSBR320
|
|
00069 ENVIRONMENT DIVISION. DTSBR320
|
|
00070 SKIP2 DTSBR320
|
|
00071 CONFIGURATION SECTION. DTSBR320
|
|
00072 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR320
|
|
00073 SKIP1 DTSBR320
|
|
00074 INPUT-OUTPUT SECTION. DTSBR320
|
|
00075 SKIP1 DTSBR320
|
|
00076 FILE-CONTROL. DTSBR320
|
|
00077 SELECT PRT-FILE ASSIGN TO RPT320r3. DTSBR320
|
|
00078 SELECT PRT-FILE2 ASSIGN TO RPT320R4. DTSBR320
|
|
00079 SELECT pen-FILE ASSIGN TO RPT320R1. DTSBR320
|
|
00080 SELECT mis-FILE ASSIGN TO RPT320R2. DTSBR320
|
|
00081 DTSBR320
|
|
00082 SELECT EMP-RPT-FILE ASSIGN TO DTSBX212. DTSBR320
|
|
00083 SKIP3 DTSBR320
|
|
00084 DATA DIVISION. DTSBR320
|
|
00085 SKIP3 DTSBR320
|
|
00086 FILE SECTION. DTSBR320
|
|
00087 SKIP2 DTSBR320
|
|
00088 FD PRT-FILE DTSBR320
|
|
00089 RECORDING MODE IS F DTSBR320
|
|
00090 BLOCK CONTAINS 0 RECORDS DTSBR320
|
|
00091 LABEL RECORDS ARE OMITTED. DTSBR320
|
|
00092 01 XEROX-REPORT. DTSBR320
|
|
00093 05 FILLER PIC X(1). DTSBR320
|
|
00094 05 XEROX-RPT PIC X(132). DTSBR320
|
|
00095 EJECT DTSBR320
|
|
00096 DTSBR320
|
|
00097 FD PRT-FILE2 DTSBR320
|
|
00098 RECORDING MODE IS F DTSBR320
|
|
00099 BLOCK CONTAINS 0 RECORDS DTSBR320
|
|
00100 LABEL RECORDS ARE OMITTED. DTSBR320
|
|
00101 01 XEROX-REPORT2. DTSBR320
|
|
00102 05 FILLER PIC X(1). DTSBR320
|
|
00103 05 XEROX-RPT2 PIC X(132). DTSBR320
|
|
00104 EJECT DTSBR320
|
|
00105 DTSBR320
|
|
00106 FD pen-FILE DTSBR320
|
|
00107 RECORDING MODE IS F DTSBR320
|
|
00108 BLOCK CONTAINS 0 RECORDS DTSBR320
|
|
00109 LABEL RECORDS ARE OMITTED. DTSBR320
|
|
00110 01 pen-REPORT. DTSBR320
|
|
00111 05 FILLER PIC X(1). DTSBR320
|
|
00112 05 pen-RPT PIC X(132). DTSBR320
|
|
00113 EJECT DTSBR320
|
|
00114 DTSBR320
|
|
00115 DTSBR320
|
|
00116 FD mis-FILE DTSBR320
|
|
00117 RECORDING MODE IS F DTSBR320
|
|
00118 BLOCK CONTAINS 0 RECORDS DTSBR320
|
|
00119 LABEL RECORDS ARE OMITTED. DTSBR320
|
|
00120 01 mis-REPORT. DTSBR320
|
|
00121 05 FILLER PIC X(1). DTSBR320
|
|
00122 05 mis-RPT PIC X(132). DTSBR320
|
|
00123 EJECT DTSBR320
|
|
00124 DTSBR320
|
|
00125 DTSBR320
|
|
00126 FD EMP-RPT-FILE DTSBR320
|
|
00127 RECORDING MODE IS F DTSBR320
|
|
00128 BLOCK CONTAINS 0 RECORDS DTSBR320
|
|
00129 LABEL RECORDS ARE OMITTED. DTSBR320
|
|
00130 DTSBR320
|
|
00131 01 EMP-RPT-REC PIC X(106). DTSBR320
|
|
00132 DTSBR320
|
|
00133 DTSBR320
|
|
00134 DTSBR320
|
|
00135 WORKING-STORAGE SECTION. DTSBR320
|
|
001355 77 PAN-VALET PICTURE X(24) VALUE '033DTSBR320 02/10/21'. DTSBR320
|
|
00136 77 PAN-VALET PICTURE X(24) VALUE '005DTSBR320 11/23/15'. DTSBR320
|
|
00137 77 PAN-VALET PICTURE X(24) VALUE '047DTSBR320 11/13/15'. DTSBR320
|
|
00138 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR320 05/28/14'. DTSBR320
|
|
00139 77 PAN-VALET PICTURE X(24) VALUE '031DTSBR320 05/16/14'. DTSBR320
|
|
00140 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR320 08/09/13'. DTSBR320
|
|
00141 77 PAN-VALET PICTURE X(24) VALUE '017DTSBR320 08/05/13'. DTSBR320
|
|
00142 SKIP3 DTSBR320
|
|
00143 01 WRK-AREA. DTSBR320
|
|
00144 05 Ws-start-pos PIC S9(04) COMP. DTSBR320
|
|
00145 05 WRK-ABEND-Code PIC S9(04) COMP VALUE +320.DTSBR320
|
|
00146 05 WS-YRQ-UNPACK PIC 9(5) VALUE 0. DTSBR320
|
|
00147 05 WS-pen-line-cnt PIC 9(5) VALUE 55. DTSBR320
|
|
00148 05 WS-mis-line-cnt PIC 9(5) VALUE 55. DTSBR320
|
|
00149 05 WS-pen-page-cnt PIC 9(5) VALUE 0. DTSBR320
|
|
00150 05 WS-mis-page-cnt PIC 9(5) VALUE 0. DTSBR320
|
|
00151 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR320
|
|
00152 05 WS-REC PIC X(132) VALUE SPACES. DTSBR320
|
|
00153 05 WS-UC-SHORT-MONTHS. DTSBR320
|
|
00154 10 WS-UC-SHORT-MONTH-1 PIC X(03). DTSBR320
|
|
00155 10 WS-UC-SHORT-MONTH-2 PIC X(03). DTSBR320
|
|
00156 10 WS-UC-SHORT-MONTH-3 PIC X(03). DTSBR320
|
|
00157 05 WS-SHORT-YEAR PIC X(02). DTSBR320
|
|
00158 DTSBR320
|
|
00159 05 WS-LONG-YEAR PIC X(04). DTSBR320
|
|
00160 05 ABEND-MSG PIC X(60). DTSBR320
|
|
00161 DTSBR320
|
|
00162 05 ws-credit-used PIC X(01). DTSBR320
|
|
00163 88 ws-credit-used-no-88 VALUE '0'. DTSBR320
|
|
00164 88 ws-credit-used-yes-88 VALUE '1'. DTSBR320
|
|
00165 DTSBR320
|
|
00166 SKIP3 DTSBR320
|
|
00167 01 VSCA-LINE. DTSBR320
|
|
00168 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR320
|
|
00169 01 WS-TAX-DUE PIC S9(09)V9(02) COMP-3 DTSBR320
|
|
00170 VALUE +0. DTSBR320
|
|
00171 01 TOT-pen-cnt PIC 9(05) VALUE 0. DTSBR320
|
|
00172 01 TOT-mis-cnt PIC 9(05) VALUE 0. DTSBR320
|
|
00173 01 ws-pen-rec-cnt PIC 9(05) VALUE 0. DTSBR320
|
|
00174 01 ws-mis-rec-cnt PIC 9(05) VALUE 0. DTSBR320
|
|
00175 01 TOL-CNT PIC 9(05) VALUE 0. DTSBR320
|
|
00176 01 CREDIT-CNT PIC 9(05) VALUE 0. DTSBR320
|
|
00177 01 WRK-MQTR-BAL PIC S9(09)V9(02) COMP-3 DTSBR320
|
|
00178 VALUE +0. DTSBR320
|
|
00179 01 WRK-paid-amt PIC S9(09)V9(02) COMP-3 DTSBR320
|
|
00180 VALUE +0. DTSBR320
|
|
00181 01 WRK-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR320
|
|
00182 01 WRK-AREAS. DTSBR320
|
|
00183 05 WRK-R320-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBR320
|
|
00184 05 WRK-R320-YRQX REDEFINES WRK-R320-YRQ. DTSBR320
|
|
00185 10 WRK-R320-YR PIC 9(4). DTSBR320
|
|
00186 10 WRK-R320-QTR PIC 9(1). DTSBR320
|
|
00187 SKIP1 DTSBR320
|
|
00188 01 wrk-tables. DTSBR320
|
|
00189 05 TF-SUB PIC S9(07) COMP-3. DTSBR320
|
|
00190 05 TF-MAX PIC S9(07) COMP-3 DTSBR320
|
|
00191 VALUE +999999. DTSBR320
|
|
00192 05 TRANS-FILE-RPTS OCCURS 999999 TIMES. DTSBR320
|
|
00193 10 TRANS-FILE-RPT-IND PIC X(01). DTSBR320
|
|
00194 88 TF-RPT-FOUND-YES-88 VALUE 'Y'. DTSBR320
|
|
00195 88 TF-RPT-FOUND-NO-88 VALUE 'N'. DTSBR320
|
|
00196 10 TRANS-BYPASSED-IND PIC X(01). DTSBR320
|
|
00197 88 TF-BYPASSED-YES-88 VALUE 'Y'. DTSBR320
|
|
00198 88 TF-BYPASSED-NO-88 VALUE 'N'. DTSBR320
|
|
00199 DTSBR320
|
|
00200 01 L001-LINK-AREA. DTSBR320
|
|
00201 ++INCLUDE DTSIL001 DTSBR320
|
|
00202 EJECT DTSBR320
|
|
00203 01 L002-LINK-AREA. DTSBR320
|
|
00204 ++INCLUDE DTSIL002 DTSBR320
|
|
00205 EJECT DTSBR320
|
|
00206 01 L004-LINK-AREA. DTSBR320
|
|
00207 ++INCLUDE DTSIL004 DTSBR320
|
|
00208 EJECT DTSBR320
|
|
00209 01 MIXED-CASE-LITERALS. DTSBR320
|
|
00210 ++INCLUDE DTSIZ30D DTSBR320
|
|
00211 01 L008-LINK-AREA. DTSBR320
|
|
00212 ++INCLUDE DTSIL008 DTSBR320
|
|
00213 EJECT DTSBR320
|
|
00214 01 L056-LINK-AREA. DTSBR320
|
|
00215 ++INCLUDE DTSIL056 DTSBR320
|
|
00216 EJECT DTSBR320
|
|
00217 01 L090-LINK-AREA. DTSBR320
|
|
00218 ++INCLUDE DTSIL090 DTSBR320
|
|
00219 EJECT DTSBR320
|
|
00220 01 L119-LINK-AREA. DTSBR320
|
|
00221 ++INCLUDE DTSIL119 DTSBR320
|
|
00222 EJECT DTSBR320
|
|
00223 ++INCLUDE DTSIZ30C DTSBR320
|
|
00224 SKIP3 DTSBR320
|
|
00225 ++INCLUDE DTSXL32A DTSBR320
|
|
00226 SKIP3 DTSBR320
|
|
00227 ++INCLUDE DTSXL320 DTSBR320
|
|
00228 SKIP3 DTSBR320
|
|
00229 01 W-EMP-RPT-REC. DTSBR320
|
|
00230 ++INCLUDE DTSIX212 DTSBR320
|
|
00231 DTSBR320
|
|
00232 EJECT DTSBR320
|
|
00233 01 LETTER-HEADING. DTSBR320
|
|
00234 05 LTH-LINE-1. DTSBR320
|
|
00235 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00236 10 WS-FMT-LINE-1 PIC X(40). DTSBR320
|
|
00237 10 FILLER PIC X(27) VALUE SPACES. DTSBR320
|
|
00238 10 WS-mail-date PIC X(10). DTSBR320
|
|
00239 05 LTH-LINE-2. DTSBR320
|
|
00240 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00241 10 WS-FMT-LINE-2 PIC X(40). DTSBR320
|
|
00242 05 LTH-LINE-3. DTSBR320
|
|
00243 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00244 10 WS-FMT-LINE-3 PIC X(40). DTSBR320
|
|
00245 10 FILLER PIC X(27) VALUE SPACES. DTSBR320
|
|
00246 10 WS-EMP-NO PIC 999B999. DTSBR320
|
|
00247 05 LTH-LINE-4. DTSBR320
|
|
00248 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00249 10 WS-FMT-LINE-4 PIC X(40). DTSBR320
|
|
00250 05 LTH-LINE-5. DTSBR320
|
|
00251 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00252 10 WS-FMT-LINE-5 PIC X(40). DTSBR320
|
|
00253 10 FILLER PIC X(27) VALUE SPACES. DTSBR320
|
|
00254 10 WS-payment-DATE PIC X(10). DTSBR320
|
|
00255 05 RPT-LINE-1. DTSBR320
|
|
00256 10 FILLER PIC X(04) VALUE SPACES. DTSBR320
|
|
00257 10 WS-YRQ PIC X(06). DTSBR320
|
|
00258 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00259 10 WS-RPA-TAX-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320
|
|
00260 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00261 10 WS-paid-amt PIC zzZ,ZZZ,ZZ9.99. DTSBR320
|
|
00262 10 FILLER PIC X(01) VALUE SPACES. DTSBR320
|
|
00263 10 WS-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320
|
|
00264 10 FILLER PIC X(01) VALUE SPACES. DTSBR320
|
|
00265 10 WS-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320
|
|
00266 10 FILLER PIC X(03) VALUE SPACES. DTSBR320
|
|
00267 10 WS-TOTAL-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320
|
|
00268 SKIP2 DTSBR320
|
|
00269 DTSBR320
|
|
00270 05 pen-LINE-1. DTSBR320
|
|
00271 10 FILLER PIC X(04) VALUE SPACES. DTSBR320
|
|
00272 10 pen-emp-no PIC 999b999. DTSBR320
|
|
00273 10 FILLER PIC X(01) VALUE SPACES. CL**3
|
|
00274 10 pen-emp-type PIC X(01) VALUE SPACES. CL**3
|
|
00275 10 FILLER PIC X(02) VALUE SPACES. CL**3
|
|
00276 10 pen-emp-name PIC X(30). DTSBR320
|
|
00277 10 FILLER PIC X(04) VALUE SPACES. DTSBR320
|
|
00278 10 pen-YRQ PIC X(06). DTSBR320
|
|
00279 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00280 10 pen-TAX-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320
|
|
00281 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00282 10 pen-paid-amt PIC zzZ,ZZZ,ZZ9.99. DTSBR320
|
|
00283 10 FILLER PIC X(01) VALUE SPACES. DTSBR320
|
|
00284 10 pen-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320
|
|
00285 10 FILLER PIC X(01) VALUE SPACES. DTSBR320
|
|
00286 10 pen-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320
|
|
00287 10 FILLER PIC X(03) VALUE SPACES. DTSBR320
|
|
00288 10 pen-TOTAL-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320
|
|
00289 05 mis-LINE-1. DTSBR320
|
|
00290 10 FILLER PIC X(04) VALUE SPACES. DTSBR320
|
|
00291 10 mis-emp-no PIC 999b999. DTSBR320
|
|
00292 10 FILLER PIC X(01) VALUE SPACES. CL**3
|
|
00293 10 mis-emp-type PIC X(01) VALUE SPACES. CL**3
|
|
00294 10 FILLER PIC X(02) VALUE SPACES. CL**3
|
|
00295 10 mis-emp-name PIC X(36). DTSBR320
|
|
00296 10 FILLER PIC X(04) VALUE SPACES. DTSBR320
|
|
00297 10 mis-rpt-DUE PIC x(10) value spaces. DTSBR320
|
|
00298 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00299 10 mis-PEN-CHg-amt PIC Z,ZZZ,ZZ9.99. DTSBR320
|
|
00300 EJECT DTSBR320
|
|
00301 01 PAGE-HEADING. DTSBR320
|
|
00302 05 HDR1-LINE-1. DTSBR320
|
|
00303 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00304 10 FILLER PIC X(49) DTSBR320
|
|
00305 VALUE '320R1'. DTSBR320
|
|
00306 10 filler PIC X(60) DTSBR320
|
|
00307 VALUE 'DISTRICT OF COLUMBIA'. DTSBR320
|
|
00308 10 FILLER PIC X(05) DTSBR320
|
|
00309 VALUE 'DATE:'. DTSBR320
|
|
00310 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00311 10 HDR1-SYS-DATE PIC X(08). DTSBR320
|
|
00312 05 HDR1-LINE-2. DTSBR320
|
|
00313 10 FILLER PIC X(54) VALUE SPACES. DTSBR320
|
|
00314 10 FILLER PIC X(56) VALUE DTSBR320
|
|
00315 'TAX DIVISION'. DTSBR320
|
|
00316 10 FILLER PIC X(05) DTSBR320
|
|
00317 VALUE 'TIME:'. DTSBR320
|
|
00318 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00319 10 HDR1-SYS-TIME PIC X(08). DTSBR320
|
|
00320 05 HDR1-LINE-3. DTSBR320
|
|
00321 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00322 10 FILLER PIC X(27) DTSBR320
|
|
00323 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR320
|
|
00324 10 FILLER PIC X(90) VALUE SPACES. DTSBR320
|
|
00325 10 FILLER PIC X(05) DTSBR320
|
|
00326 VALUE 'PAGE:'. DTSBR320
|
|
00327 10 FILLER PIC X(03) VALUE SPACES. DTSBR320
|
|
00328 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR320
|
|
00329 05 HDR1-LINE-4p. DTSBR320
|
|
00330 10 FILLER PIC X(47) VALUE SPACES. DTSBR320
|
|
00331 10 FILLER PIC X(43) DTSBR320
|
|
00332 VALUE 'penalty assessment report '. DTSBR320
|
|
00333 05 HDR1-LINE-4m. DTSBR320
|
|
00334 10 FILLER PIC X(44) VALUE SPACES. DTSBR320
|
|
00335 10 FILLER PIC X(43) DTSBR320
|
|
00336 VALUE ' missing reports listing '. DTSBR320
|
|
00337 * 05 HDR1-LINE-5 PIC X(133) VALUE SPACES. DTSBR320
|
|
00338 05 HDR1-LINE-6. DTSBR320
|
|
00339 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00340 10 FILLER PIC X(12) DTSBR320
|
|
00341 VALUE 'SUBJECT YRQ:'. DTSBR320
|
|
00342 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00343 10 WRK-SUBJECT-SLASH-QTR PIC X(06). DTSBR320
|
|
00344 05 HDR1-LINE-7 PIC X(133) VALUE SPACES. DTSBR320
|
|
00345 * 05 HDR1-LINE-8. DTSBR320
|
|
00346 * 10 FILLER PIC X(09) VALUE SPACES. DTSBR320
|
|
00347 * 10 FILLER PIC X(08) DTSBR320
|
|
00348 * VALUE 'SUBJ YRQ'. DTSBR320
|
|
00349 * 10 FILLER PIC X(48) VALUE SPACES. DTSBR320
|
|
00350 * 10 FILLER PIC X(07) DTSBR320
|
|
00351 * VALUE 'SENT TO'. DTSBR320
|
|
00352 05 HDR1-LINE-9m. DTSBR320
|
|
00353 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00354 10 FILLER PIC X(06) DTSBR320
|
|
00355 VALUE 'EMP NO'. DTSBR320
|
|
00356 10 FILLER PIC X(06) VALUE SPACE. DTSBR320
|
|
00357 10 FILLER PIC X(07) DTSBR320
|
|
00358 VALUE 'name '. DTSBR320
|
|
00359 10 FILLER PIC X(36) VALUE SPACE. DTSBR320
|
|
00360 10 FILLER PIC X(10) DTSBR320
|
|
00361 VALUE 'due date'. DTSBR320
|
|
00362 10 FILLER PIC X(15) DTSBR320
|
|
00363 VALUE 'penalty amt'. DTSBR320
|
|
00364 DTSBR320
|
|
00365 05 HDR1-LINE-9p. DTSBR320
|
|
00366 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00367 10 FILLER PIC X(06) DTSBR320
|
|
00368 VALUE 'EMP NO'. DTSBR320
|
|
00369 10 FILLER PIC X(06) VALUE SPACE. DTSBR320
|
|
00370 10 FILLER PIC X(07) DTSBR320
|
|
00371 VALUE 'name '. DTSBR320
|
|
00372 10 FILLER PIC X(42) VALUE SPACE. DTSBR320
|
|
00373 10 FILLER PIC X(08) DTSBR320
|
|
00374 VALUE 'tax due'. DTSBR320
|
|
00375 10 FILLER PIC X(06) VALUE SPACE. DTSBR320
|
|
00376 10 FILLER PIC X(14) DTSBR320
|
|
00377 VALUE 'tax paid '. DTSBR320
|
|
00378 10 FILLER PIC X(15) DTSBR320
|
|
00379 VALUE 'penalty '. DTSBR320
|
|
00380 10 FILLER PIC X(12) DTSBR320
|
|
00381 VALUE 'interest '. DTSBR320
|
|
00382 10 FILLER PIC X(12) DTSBR320
|
|
00383 VALUE 'total due '. DTSBR320
|
|
00384 01 missing-FOOTING-FINAL. DTSBR320
|
|
00385 05 mis-LINE-3. DTSBR320
|
|
00386 10 FILLER PIC X(15) VALUE SPACES. DTSBR320
|
|
00387 10 mis-REC-CNT PIC ZZ,ZZ9. DTSBR320
|
|
00388 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00389 10 FILLER PIC X(40) DTSBR320
|
|
00390 VALUE 'EMPLOYERS WITH MISSING reports '. DTSBR320
|
|
00391 01 penalty-FOOTING-FINAL. DTSBR320
|
|
00392 05 pen-LINE-3. DTSBR320
|
|
00393 10 FILLER PIC X(15) VALUE SPACES. DTSBR320
|
|
00394 10 pen-REC-CNT PIC ZZ,ZZ9. DTSBR320
|
|
00395 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00396 10 FILLER PIC X(40) DTSBR320
|
|
00397 VALUE 'EMPLOYERS received penalty for non/full '. DTSBR320
|
|
00398 10 FILLER PIC X(11) DTSBR320
|
|
00399 VALUE 'payment '. DTSBR320
|
|
00400 EJECT DTSBR320
|
|
00401 05 cred-LINE. DTSBR320
|
|
00402 10 FILLER PIC X(10) VALUE SPACES. DTSBR320
|
|
00403 10 FILLER PIC X(01) VALUE SPACE. DTSBR320
|
|
00404 10 FILLER PIC X(39) DTSBR320
|
|
00405 VALUE '**** Your available credit was applied '. DTSBR320
|
|
00406 10 FILLER PIC X(39) DTSBR320
|
|
00407 VALUE 'to the TOTAL AMOUNT DUE **** '. DTSBR320
|
|
00408 EJECT DTSBR320
|
|
00409 01 L101-LINK-AREA. DTSBR320
|
|
00410 ++INCLUDE DTSIL101 DTSBR320
|
|
00411 01 MQTR-REC. DTSBR320
|
|
00412 ++INCLUDE DTSIMQTR DTSBR320
|
|
00413 EJECT DTSBR320
|
|
00414 *RW1 DTSBR320
|
|
00415 DTSBR320
|
|
00416 01 L910-LINK-AREA. DTSBR320
|
|
00417 ++INCLUDE DTSIL910 DTSBR320
|
|
00418 DTSBR320
|
|
00419 01 MSKL-REC. DTSBR320
|
|
00420 ++INCLUDE DTSIMSKL DTSBR320
|
|
00421 DTSBR320
|
|
00422 01 CONVERT-BARCODE-LINE. DTSBR320
|
|
00423 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR320
|
|
00424 DTSBR320
|
|
00425 01 WS-BARC-LINE. DTSBR320
|
|
00426 05 FILLER PIC X(40) VALUE SPACES. DTSBR320
|
|
00427 05 CONVERTED-BARCODE PIC X(50). DTSBR320
|
|
00428 05 FILLER PIC X(30) VALUE SPACES. DTSBR320
|
|
00429 DTSBR320
|
|
00430 01 BARI-LINK-AREA. DTSBR320
|
|
00431 ++INCLUDE BARIL599 DTSBR320
|
|
00432 SKIP3 DTSBR320
|
|
00433 *RW2 DTSBR320
|
|
00434 LINKAGE SECTION. DTSBR320
|
|
00435 SKIP3 DTSBR320
|
|
00436 01 LRCM-LINK-AREA. DTSBR320
|
|
00437 ++INCLUDE DTSILRCM DTSBR320
|
|
00438 01 R320-REC. DTSBR320
|
|
00439 ++INCLUDE DTSIR320 DTSBR320
|
|
00440 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR320
|
|
00441 R320-REC. DTSBR320
|
|
00442 SKIP2 DTSBR320
|
|
00443 IF FIRST-TIME-IND = 'Y' DTSBR320
|
|
00444 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR320
|
|
00445 MOVE 'N' TO FIRST-TIME-IND. DTSBR320
|
|
00446 SKIP1 DTSBR320
|
|
00447 IF LRCM-EOR-88 DTSBR320
|
|
00448 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR320
|
|
00449 ELSE DTSBR320
|
|
00450 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR320
|
|
00451 SKIP2 DTSBR320
|
|
00452 GOBACK. DTSBR320
|
|
00453 EJECT DTSBR320
|
|
00454 I1000-INITIATE. DTSBR320
|
|
00455 DTSBR320
|
|
00456 OPEN OUTPUT PRT-FILE prt-file2 DTSBR320
|
|
00457 pen-FILE mis-file. DTSBR320
|
|
00458 DTSBR320
|
|
00459 OPEN INPUT EMP-RPT-FILE. DTSBR320
|
|
00460 DTSBR320
|
|
00461 perform I4000-TRANS-ICESA thru i4000-exit. DTSBR320
|
|
00462 DTSBR320
|
|
00463 MOVE SPACES TO XEROX-REPORT xerox-report2. DTSBR320
|
|
00464 DTSBR320
|
|
00465 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR320
|
|
00466 AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
00467 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR320
|
|
00468 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR320
|
|
00469 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14. DTSBR320
|
|
00470 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15. DTSBR320
|
|
00471 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR320
|
|
00472 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR320
|
|
00473 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR320
|
|
00474 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR320
|
|
00475 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR320
|
|
00476 DTSBR320
|
|
00477 WRITE XEROX-REPORT2 FROM VSCA-LINE DTSBR320
|
|
00478 AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
00479 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 11. DTSBR320
|
|
00480 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE13 DTSBR320
|
|
00481 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE14. DTSBR320
|
|
00482 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE15. DTSBR320
|
|
00483 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE16. DTSBR320
|
|
00484 * WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR320
|
|
00485 DTSBR320
|
|
00486 MOVE LOW-VALUES TO MQTR-KEY-AREA. CL*17
|
|
00487 SET MQTR-QTR-88 TO TRUE. CL*17
|
|
00488 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. CL*17
|
|
00489 * PERFORM S910-OPEN THRU S910-EXIT. CL*18
|
|
00490 DTSBR320
|
|
00491 SKIP2 DTSBR320
|
|
00492 I1000-EXIT. DTSBR320
|
|
00493 EXIT. DTSBR320
|
|
00494 EJECT DTSBR320
|
|
00495 I4000-TRANS-ICESA. DTSBR320
|
|
00496 READ EMP-RPT-FILE INTO W-EMP-RPT-REC AT END DTSBR320
|
|
00497 GO TO I4000-EXIT. DTSBR320
|
|
00498 MOVE X212-EMP-NBR TO WRK-EMP-NO DTSBR320
|
|
00499 * MOVE X212-QTR TO WRK-ICESA-YRQ DTSBR320
|
|
00500 * MOVE '2014/4' TO WRK-ICESA-YRQ DTSBR320
|
|
00501 * MOVE WRK-ICESA-CCYY TO WRK-RPT-CCYY DTSBR320
|
|
00502 * MOVE WRK-ICESA-QTR TO WRK-RPT-QTR DTSBR320
|
|
00503 DTSBR320
|
|
00504 * MOVE WRK-RPT-WS TO WRK-RPT-YRQ. DTSBR320
|
|
00505 DTSBR320
|
|
00506 * IF WRK-RPT-YRQ = WRK-PARM-SUBJECT-YRQ DTSBR320
|
|
00507 SET TF-RPT-FOUND-YES-88 (WRK-EMP-NO) TO TRUE. DTSBR320
|
|
00508 * ADD +1 TO WRK-TF-TABLE-CNT DTSBR320
|
|
00509 DISPLAY 'emp-loaded in table: ' WRK-EMP-NO. DTSBR320
|
|
00510 DTSBR320
|
|
00511 GO TO I4000-TRANS-ICESA. DTSBR320
|
|
00512 I4000-EXIT. DTSBR320
|
|
00513 EXIT. DTSBR320
|
|
00514 P1000-PROCESS. DTSBR320
|
|
00515 DISPLAY 'r320 emp : ' r320-EMP-NO. DTSBR320
|
|
00516 MOVE r320-EMP-NO TO WRK-EMP-NO DTSBR320
|
|
00517 IF TF-RPT-FOUND-YES-88 (WRK-EMP-NO) DTSBR320
|
|
00518 SET TF-BYPASSED-YES-88 (WRK-EMP-NO) TO TRUE DTSBR320
|
|
00519 DISPLAY 'TBL EMP BYPASSED: ' wrk-EMP-NO DTSBR320
|
|
00520 * ADD +1 TO WRK-BYPASS-CNT DTSBR320
|
|
00521 GO TO P1000-EXIT. DTSBR320
|
|
00522 DTSBR320
|
|
00523 if R320-GENERATE-MISS-RPT-LTR-88 DTSBR320
|
|
00524 perform p8000-generate-missing-letter thru p8000-exit DTSBR320
|
|
00525 go to p1000-exit. DTSBR320
|
|
00526 DTSBR320
|
|
00527 * if R320-si-filing-88 DTSBR320
|
|
00528 * display ' si skipped ' r320-emp-no DTSBR320
|
|
00529 * go to p1000-exit. DTSBR320
|
|
00530 DTSBR320
|
|
00531 set ws-credit-used-no-88 to true. DTSBR320
|
|
00532 MOVE ZERO TO WRK-MQTR-BAL DTSBR320
|
|
00533 ws-paid-amt DTSBR320
|
|
00534 wrk-paid-amt DTSBR320
|
|
00535 WS-TAX-DUE. DTSBR320
|
|
00536 ADD 1 TO TOT-PEN-CNT. DTSBR320
|
|
00537 DTSBR320
|
|
00538 MOVE R320-EMP-NO TO ws-emp-no. DTSBR320
|
|
00539 DTSBR320
|
|
00540 MOVE R320-YRQ TO L004-QTR-5-9. DTSBR320
|
|
00541 DTSBR320
|
|
00542 SET L004-FROM-5 TO TRUE. DTSBR320
|
|
00543 PERFORM S004-FROM-QTR THRU S004-EXIT. DTSBR320
|
|
00544 move l004-slash-5-qtr to ws-yrq. DTSBR320
|
|
00545 DTSBR320
|
|
00546 * DISPLAY ' YRQ ' L004-QTR-5-9. DTSBR320
|
|
00547 PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. DTSBR320
|
|
00548 DTSBR320
|
|
00549 MOVE R320-MAIL-DATE TO L001-FED-8-DATE-9. CL*30
|
|
00550 * MOVE 20190820 TO L001-FED-8-DATE-9. CL*30
|
|
00551 SET L001-FROM-FED-8 TO TRUE. DTSBR320
|
|
00552 PERFORM S001-DATE THRU S001-EXIT. DTSBR320
|
|
00553 MOVE L001-SLASH-8-DATE TO WS-mail-DATE. DTSBR320
|
|
00554 DTSBR320
|
|
00555 MOVE R320-tax-due-DATE TO L001-FED-8-DATE-9. DTSBR320
|
|
00556 SET L001-FROM-FED-8 TO TRUE. DTSBR320
|
|
00557 PERFORM S001-DATE THRU S001-EXIT. DTSBR320
|
|
00558 MOVE L001-SLASH-8-DATE TO WS-payment-DATE. DTSBR320
|
|
00559 DTSBR320
|
|
00560 * ADD R320-SUR-TAX-CHARGED-AMT TO WS-TAX-DUE DTSBR320
|
|
00561 move R320-UI-TAX-CHARGED-AMT TO WS-TAX-DUE. DTSBR320
|
|
00562 DTSBR320
|
|
00563 * IF R320-UI-TAX-CHARGED-AMT < 15.00 DTSBR320
|
|
00564 * DISPLAY 'tolr ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320
|
|
00565 * ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR320
|
|
00566 * ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE DTSBR320
|
|
00567 * ADD 1 TO TOL-CNT. DTSBR320
|
|
00568 DTSBR320
|
|
00569 DTSBR320
|
|
00570 IF WRK-MQTR-BAL = 0 DTSBR320
|
|
00571 set ws-credit-used-yes-88 to true DTSBR320
|
|
00572 display 'credit applied balance due = 0 ' mqtr-emp-no DTSBR320
|
|
00573 ADD 1 TO CREDIT-CNT. DTSBR320
|
|
00574 DTSBR320
|
|
00575 * if wrk-paid-amt < r320-ui-tax-charged-amt DTSBR320
|
|
00576 * next sentence DTSBR320
|
|
00577 * else DTSBR320
|
|
00578 * DISPLAY 'npen ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320
|
|
00579 * ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR320
|
|
00580 * ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE DTSBR320
|
|
00581 * go to P1000-EXIT. DTSBR320
|
|
00582 DTSBR320
|
|
00583 if mqtr-emp-no = 011425 CL**9
|
|
00584 display 'paid ' wrk-paid-amt. CL**9
|
|
00585 CL**9
|
|
00586 MOVE WS-TAX-DUE TO WS-RPA-TAX-DUE. DTSBR320
|
|
00587 move wrk-paid-amt to ws-paid-amt. DTSBR320
|
|
00588 MOVE R320-PEN-CHARGED-AMT TO WS-PEN-CHARGED-AMT. DTSBR320
|
|
00589 MOVE R320-INT-CHARGED-AMT TO WS-INT-CHARGED-AMT. DTSBR320
|
|
00590 add R320-INT-CHARGED-AMT TO WS-TAX-DUE DTSBR320
|
|
00591 add R320-pen-CHARGED-AMT TO WS-TAX-DUE DTSBR320
|
|
00592 subtract wrk-paid-amt from ws-tax-due. DTSBR320
|
|
00593 MOVE WS-TAX-DUE TO WS-TOTAL-DUE. DTSBR320
|
|
00594 IF WRK-MQTR-BAL = 0 DTSBR320
|
|
00595 MOVE 0.00 TO WS-TOTAL-DUE. DTSBR320
|
|
00596 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR320
|
|
00597 PERFORM P4000-PRINT-DATA THRU P4000-EXIT. DTSBR320
|
|
00598 PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT. DTSBR320
|
|
00599 DISPLAY 'pen ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320
|
|
00600 ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR320
|
|
00601 ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE. DTSBR320
|
|
00602 perform P9200-PRINT-pen-rpt thru p9200-exit. DTSBR320
|
|
00603 SKIP1 DTSBR320
|
|
00604 P1000-EXIT. DTSBR320
|
|
00605 EXIT. DTSBR320
|
|
00606 DTSBR320
|
|
00607 P1100-CHECK-BALANCE-DUE. DTSBR320
|
|
00608 DTSBR320
|
|
00609 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBR320
|
|
00610 MOVE R320-EMP-NO TO MQTR-EMP-NO. DTSBR320
|
|
00611 SET MQTR-QTR-88 TO TRUE. DTSBR320
|
|
00612 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBR320
|
|
00613 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR320
|
|
00614 PERFORM S910-read THRU S910-EXIT. CL*17
|
|
00615 DTSBR320
|
|
00616 IF L910-OK-88 DTSBR320
|
|
00617 MOVE MSKL-REC TO MQTR-REC DTSBR320
|
|
00618 * MOVE 4 TO mqtr-acct-cnt DTSBR320
|
|
00619 PERFORM DTSBR320
|
|
00620 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBR320
|
|
00621 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBR320
|
|
00622 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBR320
|
|
00623 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00624 TO WRK-MQTR-BAL DTSBR320
|
|
00625 * display 'ui amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00626 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00627 TO WRK-paid-amt DTSBR320
|
|
00628 * display 'ui paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00629 END-IF DTSBR320
|
|
00630 DTSBR320
|
|
00631 if mqtr-emp-no = 011425 CL*16
|
|
00632 display 'ui pd amt ' wrk-paid-AMT CL*19
|
|
00633 END-IF CL*16
|
|
00634 CL*16
|
|
00635 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBR320
|
|
00636 if r320-rated-filing-88 CL*21
|
|
00637 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00638 TO WRK-MQTR-BAL DTSBR320
|
|
00639 * display 'si amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320
|
|
00640 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00641 TO WRK-paid-amt DTSBR320
|
|
00642 * display 'si paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00643 end-if CL*21
|
|
00644 end-if DTSBR320
|
|
00645 DTSBR320
|
|
00646 if mqtr-emp-no = 011425 CL*11
|
|
00647 display '** emp- ' mqtr-emp-no ' ' CL*19
|
|
00648 ' su amt ' MQTR-paid-AMT (MQTR-ACCT-IDX) CL*19
|
|
00649 ' pd amt ' wrk-paid-AMT CL*19
|
|
00650 END-IF CL*13
|
|
00651 CL*11
|
|
00652 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBR320
|
|
00653 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00654 TO WRK-MQTR-BAL DTSBR320
|
|
00655 * display 'int amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320
|
|
00656 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00657 TO WRK-paid-amt DTSBR320
|
|
00658 * display 'int paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00659 END-IF DTSBR320
|
|
00660 DTSBR320
|
|
00661 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBR320
|
|
00662 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00663 TO WRK-MQTR-BAL DTSBR320
|
|
00664 * display 'pen amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320
|
|
00665 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00666 TO WRK-paid-amt DTSBR320
|
|
00667 * display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320
|
|
00668 END-IF DTSBR320
|
|
00669 END-PERFORM DTSBR320
|
|
00670 END-IF. DTSBR320
|
|
00671 P1100-EXIT. DTSBR320
|
|
00672 EXIT. DTSBR320
|
|
00673 DTSBR320
|
|
00674 P2000-PRINT-HEADER. DTSBR320
|
|
00675 DTSBR320
|
|
00676 MOVE R320-EMP-NO TO BARC-EMP-NO. DTSBR320
|
|
00677 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR320
|
|
00678 DTSBR320
|
|
00679 IF L599-SETB-FONT1 DTSBR320
|
|
00680 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME DTSBR320
|
|
00681 ELSE DTSBR320
|
|
00682 IF L599-SETB-FONT2 DTSBR320
|
|
00683 MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME DTSBR320
|
|
00684 ELSE DTSBR320
|
|
00685 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME. DTSBR320
|
|
00686 DTSBR320
|
|
00687 move 'JDE=T320R1,' to cntl1-jde. DTSBR320
|
|
00688 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR320
|
|
00689 AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
00690 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR320
|
|
00691 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR320
|
|
00692 DTSBR320
|
|
00693 MOVE R320-FMT-LINE (1) TO WS-FMT-LINE-1. DTSBR320
|
|
00694 MOVE R320-FMT-LINE (2) TO WS-FMT-LINE-2. DTSBR320
|
|
00695 MOVE R320-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR320
|
|
00696 MOVE R320-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR320
|
|
00697 MOVE R320-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR320
|
|
00698 MOVE R320-EMP-NO TO WS-EMP-NO. DTSBR320
|
|
00699 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR320
|
|
00700 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR320
|
|
00701 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR320
|
|
00702 WRITE XEROX-REPORT FROM LTH-LINE-1 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00703 WRITE XEROX-REPORT FROM LTH-LINE-2 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00704 WRITE XEROX-REPORT FROM LTH-LINE-3 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00705 WRITE XEROX-REPORT FROM LTH-LINE-4 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00706 WRITE XEROX-REPORT FROM LTH-LINE-5 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00707 DTSBR320
|
|
00708 P2000-EXIT. DTSBR320
|
|
00709 EXIT. DTSBR320
|
|
00710 DTSBR320
|
|
00711 P4000-PRINT-DATA. DTSBR320
|
|
00712 if ws-credit-used-yes-88 DTSBR320
|
|
00713 * WRITE XEROX-REPORT FROM cred-line AFTER ADVANCING 5 LINE CL*22
|
|
00714 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE CL*33
|
|
00715 else DTSBR320
|
|
00716 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE. CL*33
|
|
00717 DTSBR320
|
|
00718 P4000-EXIT. DTSBR320
|
|
00719 EXIT. DTSBR320
|
|
00720 DTSBR320
|
|
00721 DTSBR320
|
|
00722 P6000-SELF-MAILER-RTN. DTSBR320
|
|
00723 MOVE R320-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR320
|
|
00724 MOVE R320-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR320
|
|
00725 MOVE R320-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR320
|
|
00726 MOVE R320-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR320
|
|
00727 MOVE R320-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR320
|
|
00728 PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT. DTSBR320
|
|
00729 P6000-EXIT. DTSBR320
|
|
00730 EXIT. DTSBR320
|
|
00731 DTSBR320
|
|
00732 P7000-PRINT-VSCA-ADDR. DTSBR320
|
|
00733 *RW1 DTSBR320
|
|
00734 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR320
|
|
00735 DTSBR320
|
|
00736 MOVE SPACES TO WS-REC. DTSBR320
|
|
00737 WRITE XEROX-REPORT FROM WS-REC DTSBR320
|
|
00738 AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
00739 DTSBR320
|
|
00740 WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR320
|
|
00741 DTSBR320
|
|
00742 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR320
|
|
00743 * AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
00744 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR320
|
|
00745 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR320
|
|
00746 *RW2 DTSBR320
|
|
00747 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-15 DTSBR320
|
|
00748 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00749 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-16 DTSBR320
|
|
00750 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00751 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR320
|
|
00752 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00753 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR320
|
|
00754 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00755 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR320
|
|
00756 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00757 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR320
|
|
00758 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00759 DTSBR320
|
|
00760 P7000-EXIT. DTSBR320
|
|
00761 EXIT. DTSBR320
|
|
00762 DTSBR320
|
|
00763 P8000-generate-missing-letter. DTSBR320
|
|
00764 ADD 1 TO TOT-MIS-CNT. DTSBR320
|
|
00765 MOVE R320-MAIL-DATE TO L002-DATE. CL*31
|
|
00766 * MOVE 20190820 TO L002-DATE. CL*32
|
|
00767 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320
|
|
00768 DTSBR320
|
|
00769 COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR320
|
|
00770 DTSBR320
|
|
00771 ADD +1 TO WS-START-POS. DTSBR320
|
|
00772 DTSBR320
|
|
00773 IF (WS-START-POS > +0) DTSBR320
|
|
00774 AND DTSBR320
|
|
00775 (WS-START-POS < +18) DTSBR320
|
|
00776 MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR320
|
|
00777 MOVE L002-LONG-TEXT-AREA DTSBR320
|
|
00778 TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR320
|
|
00779 ELSE DTSBR320
|
|
00780 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR320
|
|
00781 DTSBR320
|
|
00782 * MOVE R417-TOTAL-RATE TO L056-RATE. DTSBR320
|
|
00783 * PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR320
|
|
00784 * MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR320
|
|
00785 DTSBR320
|
|
00786 MOVE R320-YRQ TO L008-YRQ. DTSBR320
|
|
00787 PERFORM S008-UPPER-CASE THRU S008-EXIT. DTSBR320
|
|
00788 MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS. DTSBR320
|
|
00789 DTSBR320
|
|
00790 PERFORM S008-MIXED-CASE THRU S008-EXIT. DTSBR320
|
|
00791 MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3. DTSBR320
|
|
00792 DTSBR320
|
|
00793 MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR. DTSBR320
|
|
00794 DTSBR320
|
|
00795 MOVE L008-YEAR TO WS-LONG-YEAR DTL-LONG-YEAR3. DTSBR320
|
|
00796 DTSBR320
|
|
00797 SET L004-FROM-5 TO TRUE. DTSBR320
|
|
00798 MOVE R320-YRQ TO WS-YRQ-UNPACK. DTSBR320
|
|
00799 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR320
|
|
00800 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR320
|
|
00801 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR320
|
|
00802 DTSBR320
|
|
00803 * MOVE l002-date TO L001-FED-8-DATE-9. DTSBR320
|
|
00804 MOVE R320-tax-DUE-DATE TO L001-FED-8-DATE-9. DTSBR320
|
|
00805 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR320
|
|
00806 MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE. DTSBR320
|
|
00807 DTSBR320
|
|
00808 MOVE L004-QTR-default-due-DATE TO L002-DATE. DTSBR320
|
|
00809 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320
|
|
00810 * MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR320
|
|
00811 DTSBR320
|
|
00812 PERFORM P9500-PRINT-HEADER THRU P9500-EXIT. DTSBR320
|
|
00813 DTSBR320
|
|
00814 MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR320
|
|
00815 MOVE +3 TO L090-PHRASE-CNT. DTSBR320
|
|
00816 MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1). DTSBR320
|
|
00817 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR320
|
|
00818 * MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2). DTSBR320
|
|
00819 * MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320
|
|
00820 MOVE SPACES TO L090-PHRASE (2). DTSBR320
|
|
00821 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR320
|
|
00822 '.' DELIMITED BY SIZE DTSBR320
|
|
00823 INTO L090-PHRASE (2). DTSBR320
|
|
00824 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320
|
|
00825 MOVE MC-LIT-IS-NOW-DEL TO L090-PHRASE (3). DTSBR320
|
|
00826 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR320
|
|
00827 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR320
|
|
00828 * DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT DTSBR320
|
|
00829 IF (L090-UNSUCCESSFUL-88) DTSBR320
|
|
00830 OR DTSBR320
|
|
00831 (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR320
|
|
00832 MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR320
|
|
00833 PERFORM S999-ABEND THRU S999-EXIT. DTSBR320
|
|
00834 MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1. DTSBR320
|
|
00835 DTSBR320
|
|
00836 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR320
|
|
00837 * MOVE +3 TO L090-PHRASE-CNT. DTSBR320
|
|
00838 * MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1). DTSBR320
|
|
00839 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR320
|
|
00840 * SET L004-FROM-5 TO TRUE. DTSBR320
|
|
00841 * MOVE R320-YRQ TO WS-YRQ-UNPACK. DTSBR320
|
|
00842 * MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR320
|
|
00843 * PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR320
|
|
00844 * MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR320
|
|
00845 * DTSBR320
|
|
00846 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320
|
|
00847 * MOVE SPACES TO L090-PHRASE (2). DTSBR320
|
|
00848 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR320
|
|
00849 * ',' DELIMITED BY SIZE DTSBR320
|
|
00850 * INTO L090-PHRASE (2). DTSBR320
|
|
00851 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320
|
|
00852 * MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3). DTSBR320
|
|
00853 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR320
|
|
00854 * PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR320
|
|
00855 * DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT DTSBR320
|
|
00856 * DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR320
|
|
00857 * IF (L090-UNSUCCESSFUL-88) DTSBR320
|
|
00858 * OR DTSBR320
|
|
00859 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR320
|
|
00860 * MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG DTSBR320
|
|
00861 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR320
|
|
00862 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3. DTSBR320
|
|
00863 * DTSBR320
|
|
00864 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR320
|
|
00865 * MOVE +3 TO L090-PHRASE-CNT. DTSBR320
|
|
00866 * MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1). DTSBR320
|
|
00867 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR320
|
|
00868 * DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE. DTSBR320
|
|
00869 * MOVE R417-RETURN-BY-DATE TO L002-DATE. DTSBR320
|
|
00870 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320
|
|
00871 * MOVE SPACES TO L090-PHRASE (2). DTSBR320
|
|
00872 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR320
|
|
00873 * ',' DELIMITED BY SIZE DTSBR320
|
|
00874 * INTO L090-PHRASE (2). DTSBR320
|
|
00875 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320
|
|
00876 * MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3). DTSBR320
|
|
00877 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR320
|
|
00878 * PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR320
|
|
00879 * DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT DTSBR320
|
|
00880 * DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR320
|
|
00881 * IF (L090-UNSUCCESSFUL-88) DTSBR320
|
|
00882 * OR DTSBR320
|
|
00883 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR320
|
|
00884 * MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG DTSBR320
|
|
00885 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR320
|
|
00886 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4. DTSBR320
|
|
00887 DTSBR320
|
|
00888 PERFORM P9000-PRINT-DETAIL-1 THRU P9000-EXIT. DTSBR320
|
|
00889 PERFORM P9100-PRINT-miss-rpt THRU P9100-EXIT. DTSBR320
|
|
00890 DTSBR320
|
|
00891 * MOVE +0 TO DETAIL-2-LINE-CNT. DTSBR320
|
|
00892 DTSBR320
|
|
00893 PERFORM P9700-SELF-MAILER-RTN THRU P9700-EXIT. DTSBR320
|
|
00894 P8000-EXIT. DTSBR320
|
|
00895 EXIT. DTSBR320
|
|
00896 P9000-PRINT-DETAIL-1. DTSBR320
|
|
00897 MOVE hdr-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1. DTSBR320
|
|
00898 MOVE hdr-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2. DTSBR320
|
|
00899 MOVE hdr-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3. DTSBR320
|
|
00900 MOVE hdr-LONG-YEAR TO DTL-LONG-YEAR. DTSBR320
|
|
00901 WRITE XEROX-REPORT2 FROM DTL-LINE-2 AFTER ADVANCING 2 LINE. DTSBR320
|
|
00902 WRITE XEROX-REPORT2 FROM DTL-LINE-3 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00903 * WRITE XEROX-REPORT2 FROM DTL-LINE-4 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00904 WRITE XEROX-REPORT2 FROM DTL-LINE-5 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00905 WRITE XEROX-REPORT2 FROM DTL-LINE-5A AFTER ADVANCING 1 LINE. DTSBR320
|
|
00906 WRITE XEROX-REPORT2 FROM DTL-LINE-6 AFTER ADVANCING 2 LINE. DTSBR320
|
|
00907 WRITE XEROX-REPORT2 FROM DTL-LINE-6A AFTER ADVANCING 1 LINE. DTSBR320
|
|
00908 * WRITE XEROX-REPORT2 FROM DTL-LINE-7 AFTER ADVANCING 2 LINE. DTSBR320
|
|
00909 * WRITE XEROX-REPORT2 FROM DTL-LINE-7A AFTER ADVANCING 1 LINE. DTSBR320
|
|
00910 WRITE XEROX-REPORT2 FROM DTL-LINE-8 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00911 WRITE XEROX-REPORT2 FROM DTL-LINE-8A AFTER ADVANCING 1 LINE. DTSBR320
|
|
00912 WRITE XEROX-REPORT2 FROM DTL-LINE-8b AFTER ADVANCING 1 LINE. DTSBR320
|
|
00913 WRITE XEROX-REPORT2 FROM DTL-LINE-9 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00914 WRITE XEROX-REPORT2 FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00915 WRITE XEROX-REPORT2 FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR320
|
|
00916 DTSBR320
|
|
00917 P9000-EXIT. DTSBR320
|
|
00918 EXIT. DTSBR320
|
|
00919 P9100-PRINT-miss-rpt. DTSBR320
|
|
00920 if ws-mis-line-cnt > 54 DTSBR320
|
|
00921 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE DTSBR320
|
|
00922 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME DTSBR320
|
|
00923 add 1 to ws-mis-page-cnt DTSBR320
|
|
00924 move l004-slash-5-qtr to wRK-SUBJECT-SLASH-QTR DTSBR320
|
|
00925 move ws-mis-page-cnt to hdr1-page-cnt DTSBR320
|
|
00926 write mis-report from hdr1-line-1 after advancing DTSBR320
|
|
00927 TOP-OF-PAGE DTSBR320
|
|
00928 write mis-report from hdr1-line-2 after advancing 1 DTSBR320
|
|
00929 write mis-report from hdr1-line-3 after advancing 1 DTSBR320
|
|
00930 write mis-report from hdr1-line-4m after advancing 1 DTSBR320
|
|
00931 * write mis-report from hdr1-line-5 after advancing 1 DTSBR320
|
|
00932 write mis-report from hdr1-line-6 after advancing 1 DTSBR320
|
|
00933 write mis-report from hdr1-line-7 after advancing 1 DTSBR320
|
|
00934 * write mis-report from hdr1-line-8 after advancing 1 DTSBR320
|
|
00935 write mis-report from hdr1-line-9m after advancing 1 DTSBR320
|
|
00936 move 9 to ws-mis-line-cnt. DTSBR320
|
|
00937 DTSBR320
|
|
00938 DTSBR320
|
|
00939 if R320-FMT-LINE (1) > spaces DTSBR320
|
|
00940 move r320-fmt-line(1) to mis-emp-name DTSBR320
|
|
00941 else DTSBR320
|
|
00942 if R320-FMT-LINE (2) > spaces DTSBR320
|
|
00943 MOVE R320-FMT-LINE (2) TO mis-emp-name DTSBR320
|
|
00944 else DTSBR320
|
|
00945 if R320-FMT-LINE (3) > spaces DTSBR320
|
|
00946 MOVE R320-FMT-LINE (3) TO mis-emp-name DTSBR320
|
|
00947 else DTSBR320
|
|
00948 if R320-FMT-LINE (4) > spaces DTSBR320
|
|
00949 MOVE R320-FMT-LINE (4) TO mis-emp-name DTSBR320
|
|
00950 else DTSBR320
|
|
00951 MOVE spaces TO mis-emp-name. DTSBR320
|
|
00952 DTSBR320
|
|
00953 MOVE R320-EMP-NO TO mis-EMP-NO. DTSBR320
|
|
00954 if R320-EMP-type = 'Q' CL**6
|
|
00955 MOVE 'R' TO mis-EMP-type CL**4
|
|
00956 else CL**4
|
|
00957 MOVE 'S' TO mis-EMP-type. CL**4
|
|
00958 MOVE WS-SLASH-DUE-DATE to mis-rpt-due. DTSBR320
|
|
00959 move 100.00 to mis-pen-chg-amt DTSBR320
|
|
00960 DTSBR320
|
|
00961 write mis-report from mis-line-1 after advancing 1 DTSBR320
|
|
00962 add 1 to ws-mis-line-cnt. DTSBR320
|
|
00963 add 1 to ws-mis-rec-cnt. DTSBR320
|
|
00964 P9100-EXIT. DTSBR320
|
|
00965 EXIT. DTSBR320
|
|
00966 P9200-PRINT-pen-rpt. DTSBR320
|
|
00967 if ws-pen-line-cnt > 54 DTSBR320
|
|
00968 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE DTSBR320
|
|
00969 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME DTSBR320
|
|
00970 move l004-slash-5-qtr to wRK-SUBJECT-SLASH-QTR DTSBR320
|
|
00971 add 1 to ws-pen-page-cnt DTSBR320
|
|
00972 move ws-pen-page-cnt to hdr1-page-cnt DTSBR320
|
|
00973 write pen-report from hdr1-line-1 after advancing DTSBR320
|
|
00974 TOP-OF-PAGE DTSBR320
|
|
00975 write pen-report from hdr1-line-2 after advancing 1 DTSBR320
|
|
00976 write pen-report from hdr1-line-3 after advancing 1 DTSBR320
|
|
00977 write pen-report from hdr1-line-4p after advancing 1 DTSBR320
|
|
00978 * write pen-report from hdr1-line-5 after advancing 1 DTSBR320
|
|
00979 write pen-report from hdr1-line-6 after advancing 1 DTSBR320
|
|
00980 write pen-report from hdr1-line-7 after advancing 1 DTSBR320
|
|
00981 * write pen-report from hdr1-line-8 after advancing 1 DTSBR320
|
|
00982 write pen-report from hdr1-line-9p after advancing 1 DTSBR320
|
|
00983 move 9 to ws-pen-line-cnt. DTSBR320
|
|
00984 DTSBR320
|
|
00985 DTSBR320
|
|
00986 if R320-FMT-LINE (1) > spaces DTSBR320
|
|
00987 move r320-fmt-line(1) to pen-emp-name DTSBR320
|
|
00988 else DTSBR320
|
|
00989 if R320-FMT-LINE (2) > spaces DTSBR320
|
|
00990 MOVE R320-FMT-LINE (2) TO pen-emp-name DTSBR320
|
|
00991 else DTSBR320
|
|
00992 if R320-FMT-LINE (3) > spaces DTSBR320
|
|
00993 MOVE R320-FMT-LINE (3) TO pen-emp-name DTSBR320
|
|
00994 else DTSBR320
|
|
00995 if R320-FMT-LINE (4) > spaces DTSBR320
|
|
00996 MOVE R320-FMT-LINE (4) TO pen-emp-name DTSBR320
|
|
00997 else DTSBR320
|
|
00998 MOVE spaces TO pen-emp-name. DTSBR320
|
|
00999 DTSBR320
|
|
01000 MOVE R320-EMP-NO TO PEN-EMP-NO. CL**5
|
|
01001 if R320-EMP-type = 'Q' CL**4
|
|
01002 MOVE 'R' TO PEN-EMP-type CL**4
|
|
01003 else CL**4
|
|
01004 MOVE 'S' TO PEN-EMP-type. CL**4
|
|
01005 MOVE WS-rpa-TAX-DUE TO pen-TAX-DUE. DTSBR320
|
|
01006 move ws-paid-amt to pen-paid-amt. DTSBR320
|
|
01007 move R320-int-CHARGED-AMT TO pen-int-charged-amt DTSBR320
|
|
01008 move R320-pen-CHARGED-AMT TO pen-pen-charged-amt DTSBR320
|
|
01009 MOVE WS-TAX-DUE TO pen-TOTAL-DUE. DTSBR320
|
|
01010 write pen-report from pen-line-1 after advancing 1 CL*29
|
|
01011 add 1 to ws-pen-rec-cnt. DTSBR320
|
|
01012 add 1 to ws-pen-line-cnt. DTSBR320
|
|
01013 P9200-EXIT. DTSBR320
|
|
01014 EXIT. DTSBR320
|
|
01015 P9500-PRINT-HEADER. DTSBR320
|
|
01016 MOVE R320-EMP-NO TO BARC-EMP-NO. DTSBR320
|
|
01017 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR320
|
|
01018 DTSBR320
|
|
01019 IF L599-SETB-FONT1 DTSBR320
|
|
01020 MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME DTSBR320
|
|
01021 ELSE DTSBR320
|
|
01022 IF L599-SETB-FONT2 DTSBR320
|
|
01023 MOVE 'MODIFY=TAXSM2,' TO CNTL2-CME DTSBR320
|
|
01024 ELSE DTSBR320
|
|
01025 MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME. DTSBR320
|
|
01026 DTSBR320
|
|
01027 MOVE 'MODIFY=CME418,' TO CNTL2-CME. DTSBR320
|
|
01028 WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE18 DTSBR320
|
|
01029 AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
01030 * WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE19. DTSBR320
|
|
01031 WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE20. DTSBR320
|
|
01032 MOVE R320-FMT-LINE (1) TO HDR-FMT-LINE-1. DTSBR320
|
|
01033 MOVE R320-FMT-LINE (2) TO HDR-FMT-LINE-2. DTSBR320
|
|
01034 MOVE R320-FMT-LINE (3) TO HDR-FMT-LINE-3. DTSBR320
|
|
01035 MOVE R320-FMT-LINE (4) TO HDR-FMT-LINE-4. DTSBR320
|
|
01036 MOVE R320-FMT-LINE (5) TO HDR-FMT-LINE-5. DTSBR320
|
|
01037 MOVE R320-EMP-NO TO HDR-EMP-NO. DTSBR320
|
|
01038 MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1. DTSBR320
|
|
01039 MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2. DTSBR320
|
|
01040 MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3. DTSBR320
|
|
01041 MOVE WS-LONG-YEAR TO HDR-LONG-YEAR. DTSBR320
|
|
01042 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR320
|
|
01043 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 8 LINE. DTSBR320
|
|
01044 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE. DTSBR320
|
|
01045 WRITE XEROX-REPORT2 FROM HDR-LINE-10 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01046 WRITE XEROX-REPORT2 FROM HDR-LINE-11 AFTER ADVANCING 2 LINE. DTSBR320
|
|
01047 WRITE XEROX-REPORT2 FROM HDR-LINE-12 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01048 WRITE XEROX-REPORT2 FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01049 WRITE XEROX-REPORT2 FROM HDR-LINE-14 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01050 WRITE XEROX-REPORT2 FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01051 DTSBR320
|
|
01052 P9500-EXIT. DTSBR320
|
|
01053 EXIT. DTSBR320
|
|
01054 P9700-SELF-MAILER-RTN. DTSBR320
|
|
01055 MOVE R320-FMT-LINE (1) TO C2-ADDR-FMT-LINE-1. DTSBR320
|
|
01056 MOVE R320-FMT-LINE (2) TO C2-ADDR-FMT-LINE-2. DTSBR320
|
|
01057 MOVE R320-FMT-LINE (3) TO C2-ADDR-FMT-LINE-3. DTSBR320
|
|
01058 MOVE R320-FMT-LINE (4) TO C2-ADDR-FMT-LINE-4. DTSBR320
|
|
01059 MOVE R320-FMT-LINE (5) TO C2-ADDR-FMT-LINE-5. DTSBR320
|
|
01060 DTSBR320
|
|
01061 PERFORM P9900-PRINT-VSCA-ADDR THRU P9900-EXIT. DTSBR320
|
|
01062 DTSBR320
|
|
01063 P9700-EXIT. DTSBR320
|
|
01064 EXIT. DTSBR320
|
|
01065 P9900-PRINT-VSCA-ADDR. DTSBR320
|
|
01066 DTSBR320
|
|
01067 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR320
|
|
01068 DTSBR320
|
|
01069 MOVE SPACES TO WS-REC. DTSBR320
|
|
01070 WRITE XEROX-REPORT2 FROM WS-REC DTSBR320
|
|
01071 AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
01072 DTSBR320
|
|
01073 * WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR320
|
|
01074 DTSBR320
|
|
01075 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR320
|
|
01076 * AFTER ADVANCING TOP-OF-PAGE. DTSBR320
|
|
01077 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 16 LINE. DTSBR320
|
|
01078 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR320
|
|
01079 *RW2 DTSBR320
|
|
01080 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-17 DTSBR320
|
|
01081 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01082 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-18 DTSBR320
|
|
01083 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01084 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-19 DTSBR320
|
|
01085 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01086 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-20 DTSBR320
|
|
01087 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01088 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-21 DTSBR320
|
|
01089 AFTER ADVANCING 1 LINE. DTSBR320
|
|
01090 DTSBR320
|
|
01091 P9900-EXIT. DTSBR320
|
|
01092 EXIT. DTSBR320
|
|
01093 DTSBR320
|
|
01094 T1000-tERMINATE. DTSBR320
|
|
01095 move ws-pen-rec-cnt to pen-rec-cnt DTSBR320
|
|
01096 write pen-report from penalty-FOOTING-FINAL after 2. DTSBR320
|
|
01097 move ws-mis-rec-cnt to mis-rec-cnt DTSBR320
|
|
01098 write mis-report from missing-FOOTING-FINAL after 2. DTSBR320
|
|
01099 DISPLAY ' TOTAL NO OF penalty assessed ' TOT-PEN-CNT. DTSBR320
|
|
01100 DISPLAY ' ' DTSBR320
|
|
01101 DISPLAY ' NUMBER OF FILERS TAX TOLERATED ' TOL-CNT. DTSBR320
|
|
01102 DISPLAY ' ' DTSBR320
|
|
01103 DISPLAY ' NUMBER OF FILERS CREDIT APPLID ' CREDIT-CNT. DTSBR320
|
|
01104 DISPLAY ' ' DTSBR320
|
|
01105 DISPLAY ' NUMBER OF FILERS bal due = 0 ' credit-cnt. DTSBR320
|
|
01106 DISPLAY ' ' DTSBR320
|
|
01107 DTSBR320
|
|
01108 DISPLAY ' TOTAL NO OF MISSING REPORTS ' TOT-MIS-CNT. DTSBR320
|
|
01109 DISPLAY ' ' DTSBR320
|
|
01110 SKIP1 DTSBR320
|
|
01111 CLOSE PRT-FILE PRT-FILE2 DTSBR320
|
|
01112 pen-FILE mis-FILE. DTSBR320
|
|
01113 CLOSE EMP-RPT-FILE. DTSBR320
|
|
01114 DTSBR320
|
|
01115 T1000-EXIT. DTSBR320
|
|
01116 EXIT. DTSBR320
|
|
01117 EJECT DTSBR320
|
|
01118 S001-FROM-FED-8. DTSBR320
|
|
01119 SET L001-FROM-FED-8 TO TRUE. DTSBR320
|
|
01120 GO TO S001-DATE. DTSBR320
|
|
01121 DTSBR320
|
|
01122 S001-DATE. DTSBR320
|
|
01123 SKIP1 DTSBR320
|
|
01124 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR320
|
|
01125 SKIP2 DTSBR320
|
|
01126 S001-EXIT. DTSBR320
|
|
01127 EXIT. DTSBR320
|
|
01128 SKIP3 DTSBR320
|
|
01129 S002-UPPER-CASE. DTSBR320
|
|
01130 SET L002-UPPER-CASE TO TRUE. DTSBR320
|
|
01131 GO TO S002-DATE-ALPHA. DTSBR320
|
|
01132 DTSBR320
|
|
01133 S002-MIXED-CASE. DTSBR320
|
|
01134 SET L002-MIXED-CASE TO TRUE. DTSBR320
|
|
01135 GO TO S002-DATE-ALPHA. DTSBR320
|
|
01136 DTSBR320
|
|
01137 S002-DATE-ALPHA. DTSBR320
|
|
01138 SKIP1 DTSBR320
|
|
01139 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR320
|
|
01140 SKIP2 DTSBR320
|
|
01141 S002-EXIT. DTSBR320
|
|
01142 EXIT. DTSBR320
|
|
01143 SKIP3 DTSBR320
|
|
01144 S004-FROM-5. DTSBR320
|
|
01145 SET L004-FROM-5 TO TRUE. DTSBR320
|
|
01146 GO TO S004-FROM-QTR. DTSBR320
|
|
01147 DTSBR320
|
|
01148 S004-FROM-QTR. DTSBR320
|
|
01149 SKIP1 DTSBR320
|
|
01150 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR320
|
|
01151 SKIP2 DTSBR320
|
|
01152 S004-EXIT. DTSBR320
|
|
01153 EXIT. DTSBR320
|
|
01154 SKIP3 DTSBR320
|
|
01155 S008-UPPER-CASE. DTSBR320
|
|
01156 SET L008-UPPER-CASE TO TRUE. DTSBR320
|
|
01157 GO TO S008-QUARTER-ALPHA. DTSBR320
|
|
01158 DTSBR320
|
|
01159 S008-MIXED-CASE. DTSBR320
|
|
01160 SET L008-MIXED-CASE TO TRUE. DTSBR320
|
|
01161 GO TO S008-QUARTER-ALPHA. DTSBR320
|
|
01162 DTSBR320
|
|
01163 S008-QUARTER-ALPHA. DTSBR320
|
|
01164 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR320
|
|
01165 S008-EXIT. DTSBR320
|
|
01166 EXIT. DTSBR320
|
|
01167 SKIP3 DTSBR320
|
|
01168 S101-pER-MONTH-NO. DTSBR320
|
|
01169 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBR320
|
|
01170 GO TO S101-INT-COMP. DTSBR320
|
|
01171 S101-INT-COMP. DTSBR320
|
|
01172 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBR320
|
|
01173 S101-EXIT. DTSBR320
|
|
01174 EXIT. DTSBR320
|
|
01175 SKIP3 DTSBR320
|
|
01176 S090-PARAGRAPH-FORMAT. DTSBR320
|
|
01177 MOVE +0 TO L090-INDENT. DTSBR320
|
|
01178 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR320
|
|
01179 DTSBR320
|
|
01180 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR320
|
|
01181 S090-EXIT. DTSBR320
|
|
01182 EXIT. DTSBR320
|
|
01183 SKIP3 DTSBR320
|
|
01184 S119-REQ-CAPS. DTSBR320
|
|
01185 SET L119-REQ-CAPS-88 TO TRUE. DTSBR320
|
|
01186 GO TO S119-AGENCY-FACTS. DTSBR320
|
|
01187 S119-REQ-MIXED. DTSBR320
|
|
01188 SET L119-REQ-MIXED-88 TO TRUE. DTSBR320
|
|
01189 GO TO S119-AGENCY-FACTS. DTSBR320
|
|
01190 DTSBR320
|
|
01191 S119-AGENCY-FACTS. DTSBR320
|
|
01192 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR320
|
|
01193 S119-EXIT. DTSBR320
|
|
01194 EXIT. DTSBR320
|
|
01195 SKIP3 DTSBR320
|
|
01196 DTSBR320
|
|
01197 S599-BARCODE. DTSBR320
|
|
01198 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR320
|
|
01199 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR320
|
|
01200 MOVE 'TAX' TO L599-SYSTEM. DTSBR320
|
|
01201 DTSBR320
|
|
01202 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR320
|
|
01203 DTSBR320
|
|
01204 IF L599-NOT-CONVERTED DTSBR320
|
|
01205 PERFORM S999-ABEND THRU S999-EXIT. DTSBR320
|
|
01206 S599-EXIT. DTSBR320
|
|
01207 EXIT. DTSBR320
|
|
01208 SKIP3 DTSBR320
|
|
01209 S910-OPEN. CL*17
|
|
01210 SET L910-OPEN-88 TO TRUE. CL*17
|
|
01211 GO TO S910-MSTR-IO. DTSBR320
|
|
01212 DTSBR320
|
|
01213 S910-READ. DTSBR320
|
|
01214 SET L910-READ-88 TO TRUE. DTSBR320
|
|
01215 GO TO S910-MSTR-IO. DTSBR320
|
|
01216 DTSBR320
|
|
01217 S910-CLOSE. DTSBR320
|
|
01218 SET L910-CLOSE-88 TO TRUE. DTSBR320
|
|
01219 GO TO S910-MSTR-IO. DTSBR320
|
|
01220 DTSBR320
|
|
01221 S910-MSTR-IO. DTSBR320
|
|
01222 CALL 'DTSBU910' USING L910-LINK-AREA DTSBR320
|
|
01223 MSKL-REC. DTSBR320
|
|
01224 DTSBR320
|
|
01225 S910-EXIT. DTSBR320
|
|
01226 EXIT. DTSBR320
|
|
01227 SKIP2 DTSBR320
|
|
01228 S999-ABEND. DTSBR320
|
|
01229 DISPLAY '**** dtsBR320 ABENDING ' DTSBR320
|
|
01230 DTSBR320
|
|
01231 CALL 'DTSBU999' USING WRK-ABEND-CODE. DTSBR320
|
|
01232 DTSBR320
|
|
01233 S999-EXIT. DTSBR320
|
|
01234 EXIT. DTSBR320
|
|
01235 DTSBR320
|