00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR306. DTSBR306 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV018 00004 DATE-WRITTEN. NOVEMBER 1994. DTSBR306 00005 *DATE-MODIFIED. JANUARY 1999. DTSBR306 00006 DATE-COMPILED. DTSBR306 00007 SKIP3 DTSBR306 00008 ***** DTSBR306 00009 * DTSBR306 00010 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR306 00011 * DTSBD510 WHICH UPDATES DTSIR306 DTSBR306 00012 * DTSBR306 READS DTSIR306 RECORDS DTSBR306 00013 * WHICH CREATES THE SUMMARY REPORT. DTSBR306 00014 * DTSBR306 00015 * FUNCTION: ACCOUNTING SUMMARY REPORT. DTSBR306 00016 * DTSBR306 00017 * DTSBR306 00018 * MODIFICATION HISTORY: DTSBR306 00019 * DTSBR306 00020 * 11-07-94 INITIAL DEVELOPMENT DTSBR306 00021 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR306 00022 * DTSBR306 00023 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR306 00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR306 00025 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR306 00026 * DTSBR306 00027 * DTSBR306 00028 * DESCRIPTION: DTSBR306 00029 * DTSBR306 00030 * THIS MODULE SUMMARIZES THE DISPOSITION OF ALL ACCOUNTS DTSBR306 00031 * (UI TAX, AFT, SUR TAX, FLA TAX, PENALTY, INTEREST, DTSBR306 00032 * JEOPARDY PENALTY AND CREDIT) WITHIN THE TAX SYSTEM FOR DTSBR306 00033 * ALL EMPLOYERS MEETING ONE OR MORE SETS OF SELECTION DTSBR306 00034 * CRITERIA. DTSBR306 00035 * DTSBR306 00036 * DTSBR306 00037 * RECORDS READ: DTSBR306 00038 * DTSBR306 00039 * NONE. DTSBR306 00040 * DTSBR306 00041 * DTSBR306 00042 * PRINTED OUTPUTS: DTSBR306 00043 * DTSBR306 00044 * 306R1 ACCOUNTING SUMMARY DTSBR306 00045 * DTSBR306 00046 * DTSBR306 00047 * RECORDS WRITTEN: DTSBR306 00048 * DTSBR306 00049 * NONE. DTSBR306 00050 * DTSBR306 00051 * DTSBR306 00052 * MODULES CALLED: DTSBR306 00053 * DTSBR306 00054 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR306 00055 * DTSBU032 ACCOUNTING CODES EDIT/DESCRIPTION MODULE DTSBR306 00056 * DTSBR306 00057 * DTSBR306 00058 ***** DTSBR306 00059 EJECT DTSBR306 00060 ENVIRONMENT DIVISION. DTSBR306 00061 SKIP2 DTSBR306 00062 CONFIGURATION SECTION. DTSBR306 00063 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR306 00064 DTSBR306 00065 INPUT-OUTPUT SECTION. DTSBR306 00066 DTSBR306 00067 FILE-CONTROL. DTSBR306 00068 SELECT PRT-FILE ASSIGN TO RPT306R1. DTSBR306 00069 DTSBR306 00070 DATA DIVISION. DTSBR306 00071 DTSBR306 00072 FILE SECTION. DTSBR306 00073 DTSBR306 00074 FD PRT-FILE DTSBR306 00075 RECORDING MODE IS F. DTSBR306 00076 01 PRT-RECORD PIC X(133). DTSBR306 00077 DTSBR306 00078 WORKING-STORAGE SECTION. DTSBR306 000785 77 PAN-VALET PICTURE X(24) VALUE '018DTSBR306 01/29/01'. DTSBR306 00079 SKIP3 DTSBR306 00080 01 WRK-AREA. DTSBR306 00081 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +306.DTSBR306 00082 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR306 00083 05 WS-PARM-ID-HOLD PIC S9(04) COMP VALUE +0. DTSBR306 00084 DTSBR306 00085 05 WS-BLANK-LINE PIC X(133) VALUE SPACES. DTSBR306 00086 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR306 00087 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR306 00088 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR306 00089 DTSBR306 00090 05 WS-SUB PIC S9(04) COMP VALUE +0. DTSBR306 00091 05 WS-TABLE-SIZE PIC S9(04) COMP DTSBR306 00092 VALUE +8. DTSBR306 00093 05 WS-ACCT-DSCR-TABLE OCCURS 8 TIMES. DTSBR306 00094 10 WS-ACCT-IND PIC X(02) VALUE SPACE. DTSBR306 00095 10 WS-ACCT-SHORT-DSCR PIC X(10) VALUE SPACE. DTSBR306 00096 SKIP1 DTSBR306 00097 SKIP1 DTSBR306 00098 05 WS-START-YRQ PIC X(04) VALUE SPACE. DTSBR306 00099 05 WS-START-YRQ-EDIT REDEFINES WS-START-YRQ DTSBR306 00100 PIC 99/9. DTSBR306 00101 05 WS-END-YRQ PIC X(04) VALUE SPACE. DTSBR306 00102 05 WS-END-YRQ-EDIT REDEFINES WS-END-YRQ DTSBR306 00103 PIC 99/9. DTSBR306 00104 DTSBR306 00105 05 WS-DETAIL-AMTS. DTSBR306 00106 10 WS-CHARGED-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00107 10 WS-PAID-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00108 10 WS-WAIVED-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00109 10 WS-WRITTEN-OFF-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00110 10 WS-TOLER-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00111 10 WS-BALANCE-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00112 10 WS-ALL-TOLER-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00113 10 WS-ALL-BALANCE-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00114 05 WS-FOOT-TABLE. DTSBR306 00115 10 WS-FOOT-CHARGED-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00116 10 WS-FOOT-PAID-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00117 10 WS-FOOT-WAIVED-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00118 10 WS-FOOT-WRITTEN-OFF-AMT PIC S9(11)V99 COMP-3 DTSBR306 00119 VALUE +0. DTSBR306 00120 10 WS-FOOT-TOLER-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00121 10 WS-FOOT-BALANCE-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBR306 00122 EJECT DTSBR306 00123 01 L001-LINK-AREA. DTSBR306 00124 ++INCLUDE DTSIL001 DTSBR306 00125 EJECT DTSBR306 00126 01 L032-LINK-AREA. DTSBR306 00127 ++INCLUDE DTSIL032 DTSBR306 00128 EJECT DTSBR306 00129 01 PAGE-HEADING. DTSBR306 00130 05 HEADER-1. DTSBR306 00131 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00132 10 FILLER PIC X(05) DTSBR306 00133 VALUE '306R1'. DTSBR306 00134 10 FILLER PIC X(34) VALUE SPACES. DTSBR306 00135 10 WS-AGY-NAME-LINE1 PIC X(50). DTSBR306 00136 10 FILLER PIC X(28) VALUE SPACES. DTSBR306 00137 10 FILLER PIC X(05) DTSBR306 00138 VALUE 'DATE:'. DTSBR306 00139 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00140 10 WS-SYS-DATE PIC X(08). DTSBR306 00141 05 HEADER-2. DTSBR306 00142 10 FILLER PIC X(40) VALUE SPACES. DTSBR306 00143 10 WS-AGY-NAME-LINE2 PIC X(50) VALUE SPACE. DTSBR306 00144 10 FILLER PIC X(28) VALUE SPACES. DTSBR306 00145 10 FILLER PIC X(05) DTSBR306 00146 VALUE 'TIME:'. DTSBR306 00147 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00148 10 WS-SYS-TIME PIC X(08) VALUE SPACE. DTSBR306 00149 05 HEADER-3. DTSBR306 00150 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00151 10 FILLER PIC X(25) DTSBR306 00152 VALUE 'ROUTE TO: ACCOUNTING'. DTSBR306 00153 10 FILLER PIC X(30) VALUE SPACES. DTSBR306 00154 10 FILLER PIC X(18) DTSBR306 00155 VALUE 'ACCOUNTING SUMMARY'. DTSBR306 00156 10 FILLER PIC X(44) VALUE SPACES. DTSBR306 00157 10 FILLER PIC X(05) DTSBR306 00158 VALUE 'PAGE:'. DTSBR306 00159 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00160 10 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR306 00161 05 HEADER-4 PIC X(133) VALUE SPACES. DTSBR306 00162 **** DTSBR306 00163 05 HEADER-6. DTSBR306 00164 10 FILLER PIC X(12) VALUE SPACES. DTSBR306 00165 10 FILLER PIC X(16) DTSBR306 00166 VALUE 'EMPLOYER TYPE: '. DTSBR306 00167 10 WS-EMPLOYER-TYPE-DSCR PIC X(15) VALUE SPACE. DTSBR306 00168 05 HEADER-7. DTSBR306 00169 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00170 10 FILLER PIC X(27) DTSBR306 00171 VALUE ' DEPOSIT DATE START/END: '. DTSBR306 00172 10 WS-START-DEPOSIT-DATE PIC X(08) VALUE SPACE. DTSBR306 00173 10 FILLER PIC X(02) VALUE SPACES. DTSBR306 00174 10 WS-END-DEPOSIT-DATE PIC X(08) VALUE SPACE. DTSBR306 00175 05 HEADER-8. DTSBR306 00176 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00177 10 FILLER PIC X(27) DTSBR306 00178 VALUE ' PROCESS DATE START/END: '. DTSBR306 00179 10 WS-START-PROCESS-DATE PIC X(08). DTSBR306 00180 10 FILLER PIC X(02) VALUE SPACES. DTSBR306 00181 10 WS-END-PROCESS-DATE PIC X(08) VALUE SPACE. DTSBR306 00182 05 HEADER-9. DTSBR306 00183 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00184 10 FILLER PIC X(27) DTSBR306 00185 VALUE ' YRQ START/END: '. DTSBR306 00186 10 FILLER PIC X(04) VALUE SPACES. DTSBR306 00187 10 WS-DTL-START-YRQ PIC X(04) VALUE SPACE. DTSBR306 00188 10 FILLER PIC X(06) VALUE SPACES. DTSBR306 00189 10 WS-DTL-END-YRQ PIC X(04) VALUE SPACE. DTSBR306 00190 05 HEADER-10. DTSBR306 00191 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00192 10 FILLER PIC X(27) DTSBR306 00193 VALUE ' BATCH NUMBER START/END: '. DTSBR306 00194 10 FILLER PIC X(04) VALUE SPACES. DTSBR306 00195 10 WS-BATCH-START PIC X(05) VALUE SPACE. DTSBR306 00196 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00197 10 WS-BATCH-END PIC X(05) VALUE SPACE. DTSBR306 00198 05 HEADER-11. DTSBR306 00199 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00200 10 FILLER PIC X(27) DTSBR306 00201 VALUE ' RESPONSIBLE ACTIVITY: '. DTSBR306 00202 10 FILLER PIC X(04) VALUE SPACES. DTSBR306 00203 10 WS-RESPONSIBLE-ACTIVITY PIC X(03) VALUE SPACE. DTSBR306 00204 05 HEADER-12. DTSBR306 00205 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00206 10 FILLER PIC X(27) DTSBR306 00207 VALUE ' TRANSACTION TYPE: '. DTSBR306 00208 10 WS-TRAN-TYPE-1 PIC X(02) VALUE SPACE. DTSBR306 00209 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00210 10 WS-TRAN-TYPE-2 PIC X(02) VALUE SPACE. DTSBR306 00211 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00212 10 WS-TRAN-TYPE-3 PIC X(02) VALUE SPACE. DTSBR306 00213 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00214 10 WS-TRAN-TYPE-4 PIC X(02) VALUE SPACE. DTSBR306 00215 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00216 10 WS-TRAN-TYPE-5 PIC X(02) VALUE SPACE. DTSBR306 00217 05 HEADER-13. DTSBR306 00218 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00219 10 FILLER PIC X(07) DTSBR306 00220 VALUE 'ACCOUNT'. DTSBR306 00221 10 FILLER PIC X(125) VALUE SPACES. DTSBR306 00222 05 HEADER-14. DTSBR306 00223 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00224 10 FILLER PIC X(07) DTSBR306 00225 VALUE 'SUMMARY'. DTSBR306 00226 10 FILLER PIC X(07) VALUE SPACES. DTSBR306 00227 10 FILLER PIC X(01) DTSBR306 00228 VALUE 'D'. DTSBR306 00229 10 FILLER PIC X(12) VALUE SPACES. DTSBR306 00230 10 FILLER PIC X(07) DTSBR306 00231 VALUE 'CHARGED'. DTSBR306 00232 10 FILLER PIC X(15) VALUE SPACES. DTSBR306 00233 10 FILLER PIC X(04) DTSBR306 00234 VALUE 'PAID'. DTSBR306 00235 10 FILLER PIC X(13) VALUE SPACES. DTSBR306 00236 10 FILLER PIC X(06) DTSBR306 00237 VALUE 'WAIVED'. DTSBR306 00238 10 FILLER PIC X(08) VALUE SPACES. DTSBR306 00239 10 FILLER PIC X(11) DTSBR306 00240 VALUE 'WRITTEN OFF'. DTSBR306 00241 10 FILLER PIC X(10) VALUE SPACES. DTSBR306 00242 10 FILLER PIC X(09) DTSBR306 00243 VALUE 'TOLERANCE'. DTSBR306 00244 10 FILLER PIC X(12) VALUE SPACES. DTSBR306 00245 10 FILLER PIC X(07) DTSBR306 00246 VALUE 'BALANCE'. DTSBR306 00247 05 HEADER-15. DTSBR306 00248 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00249 10 FILLER PIC X(10) DTSBR306 00250 VALUE ALL '-'. DTSBR306 00251 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00252 10 FILLER PIC X(02) DTSBR306 00253 VALUE ALL '-'. DTSBR306 00254 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00255 10 FILLER PIC X(14) DTSBR306 00256 VALUE ALL '-'. DTSBR306 00257 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00258 10 FILLER PIC X(14) DTSBR306 00259 VALUE ALL '-'. DTSBR306 00260 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00261 10 FILLER PIC X(14) DTSBR306 00262 VALUE ALL '-'. DTSBR306 00263 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00264 10 FILLER PIC X(14) DTSBR306 00265 VALUE ALL '-'. DTSBR306 00266 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00267 10 FILLER PIC X(14) DTSBR306 00268 VALUE ALL '-'. DTSBR306 00269 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00270 10 FILLER PIC X(14) DTSBR306 00271 VALUE ALL '-'. DTSBR306 00272 SKIP2 DTSBR306 00273 01 DETAIL-LINE. DTSBR306 00274 05 DTL-LINE-2. DTSBR306 00275 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00276 10 WS-DTL-ACCT-SHORT-DSCR PIC X(10). DTSBR306 00277 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00278 10 WS-DTL-ACCT-IND PIC X(02) VALUE SPACE. DTSBR306 00279 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00280 10 WS-DTL-CHARGED-AMT PIC -----,---,--9.99. DTSBR306 00281 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00282 10 WS-DTL-PAID-AMT PIC -----,---,--9.99. DTSBR306 00283 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00284 10 WS-DTL-WAIVED-AMT PIC -----,---,--9.99. DTSBR306 00285 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00286 10 WS-DTL-WRITTEN-OFF-AMT PIC -----,---,--9.99. DTSBR306 00287 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00288 10 WS-DTL-TOLER-AMT PIC -----,---,--9.99. DTSBR306 00289 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00290 10 WS-DTL-BALANCE-AMT PIC -----,---,--9.99. DTSBR306 00291 SKIP2 DTSBR306 00292 01 CONTROL-FOOTING. DTSBR306 00293 05 CTF-LINE-1. DTSBR306 00294 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00295 10 FILLER PIC X(10) DTSBR306 00296 VALUE ALL '-'. DTSBR306 00297 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00298 10 FILLER PIC X(02) DTSBR306 00299 VALUE ALL '-'. DTSBR306 00300 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00301 10 FILLER PIC X(14) DTSBR306 00302 VALUE ALL '-'. DTSBR306 00303 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00304 10 FILLER PIC X(14) DTSBR306 00305 VALUE ALL '-'. DTSBR306 00306 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00307 10 FILLER PIC X(14) DTSBR306 00308 VALUE ALL '-'. DTSBR306 00309 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00310 10 FILLER PIC X(14) DTSBR306 00311 VALUE ALL '-'. DTSBR306 00312 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00313 10 FILLER PIC X(14) DTSBR306 00314 VALUE ALL '-'. DTSBR306 00315 10 FILLER PIC X(05) VALUE SPACES. DTSBR306 00316 10 FILLER PIC X(14) DTSBR306 00317 VALUE ALL '-'. DTSBR306 00318 DTSBR306 00319 05 CTF-LINE-3. DTSBR306 00320 10 FILLER PIC X(01) VALUE SPACE. DTSBR306 00321 10 FILLER PIC X(12) DTSBR306 00322 VALUE 'TOTAL CHANGE'. DTSBR306 00323 10 FILLER PIC X(06) VALUE SPACES. DTSBR306 00324 10 WS-CTF-CHARGED-AMT PIC -----,---,--9.99. DTSBR306 00325 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00326 10 WS-CTF-PAID-AMT PIC -----,---,--9.99. DTSBR306 00327 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00328 10 WS-CTF-WAIVED-AMT PIC -----,---,--9.99. DTSBR306 00329 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00330 10 WS-CTF-WRITTEN-OFF-AMT PIC -----,---,--9.99. DTSBR306 00331 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00332 10 WS-CTF-TOLER-AMT PIC -----,---,--9.99. DTSBR306 00333 10 FILLER PIC X(03) VALUE SPACES. DTSBR306 00334 10 WS-CTF-BALANCE-AMT PIC -----,---,--9.99. DTSBR306 00335 DTSBR306 00336 EJECT DTSBR306 00337 LINKAGE SECTION. DTSBR306 00338 SKIP3 DTSBR306 00339 01 LRCM-LINK-AREA. DTSBR306 00340 ++INCLUDE DTSILRCM DTSBR306 00341 EJECT DTSBR306 00342 01 R306-REC. DTSBR306 00343 ++INCLUDE DTSIR306 DTSBR306 00344 EJECT DTSBR306 00345 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR306 00346 R306-REC. DTSBR306 00347 SKIP2 DTSBR306 00348 IF FIRST-TIME-IND = 'Y' DTSBR306 00349 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR306 00350 MOVE 'N' TO FIRST-TIME-IND. DTSBR306 00351 SKIP1 DTSBR306 00352 IF LRCM-EOR-88 DTSBR306 00353 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR306 00354 ELSE DTSBR306 00355 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR306 00356 SKIP2 DTSBR306 00357 GOBACK. DTSBR306 00358 EJECT DTSBR306 00359 I1000-INITIATE. DTSBR306 00360 SKIP1 DTSBR306 00361 OPEN OUTPUT PRT-FILE. DTSBR306 00362 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR306 00363 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR306 00364 MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1. DTSBR306 00365 MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2. DTSBR306 00366 MOVE SPACES TO PRT-RECORD. DTSBR306 00367 DTSBR306 00368 MOVE ZEROES TO WS-PARM-ID-HOLD. DTSBR306 00369 PERFORM DTSBR306 00370 VARYING WS-SUB FROM 1 BY 1 DTSBR306 00371 UNTIL WS-SUB > WS-TABLE-SIZE DTSBR306 00372 MOVE SPACES TO WS-ACCT-SHORT-DSCR (WS-SUB) DTSBR306 00373 END-PERFORM. DTSBR306 00374 SKIP2 DTSBR306 00375 I1000-EXIT. DTSBR306 00376 EXIT. DTSBR306 00377 EJECT DTSBR306 00378 P1000-PROCESS. DTSBR306 00379 SKIP1 DTSBR306 00380 IF R306-PARM-ID NOT = WS-PARM-ID-HOLD DTSBR306 00381 MOVE R306-PARM-ID TO WS-PARM-ID-HOLD DTSBR306 00382 EVALUATE TRUE DTSBR306 00383 WHEN R306-CLASS-ALL-88 DTSBR306 00384 MOVE 'ALL' TO WS-EMPLOYER-TYPE-DSCR DTSBR306 00385 WHEN R306-CLASS-RATED-88 DTSBR306 00386 MOVE 'RATED ' TO WS-EMPLOYER-TYPE-DSCR DTSBR306 00387 WHEN R306-CLASS-SELF-INS-88 DTSBR306 00388 MOVE 'SELF INSURED' TO WS-EMPLOYER-TYPE-DSCR DTSBR306 00389 ** WHEN R306-CLASS-UNK-88 DTSBR306 00390 ** MOVE 'UNKNOWN ' TO WS-EMPLOYER-TYPE-DSCR DTSBR306 00391 END-EVALUATE DTSBR306 00392 PERFORM P2000-DATES-AND-QTRS THRU P2000-EXIT. DTSBR306 00393 SKIP1 DTSBR306 00394 IF R306-ACCT-SUB > WS-TABLE-SIZE DTSBR306 00395 PERFORM S999-ABEND THRU S999-EXIT. DTSBR306 00396 MOVE R306-ACCT-SUB TO WS-SUB. DTSBR306 00397 SKIP1 DTSBR306 00398 IF WS-ACCT-SHORT-DSCR (R306-ACCT-SUB) = SPACES DTSBR306 00399 MOVE R306-ACCT-IND TO L032-CD-2 WS-ACCT-IND (WS-SUB) DTSBR306 00400 SET L032-MJRN-ACCT-ROW TO TRUE DTSBR306 00401 PERFORM S032-ACCT-DESCRIPTION THRU S032-EXIT DTSBR306 00402 MOVE L032-SHORT-DSCR DTSBR306 00403 TO WS-ACCT-SHORT-DSCR (WS-SUB). DTSBR306 00404 DTSBR306 00405 ADD R306-CHARGED-AMT TO WS-FOOT-CHARGED-AMT. DTSBR306 00406 ADD R306-PAID-AMT TO WS-FOOT-PAID-AMT. DTSBR306 00407 ADD R306-WAIVED-AMT TO WS-FOOT-WAIVED-AMT. DTSBR306 00408 ADD R306-WRITTEN-OFF-AMT TO WS-FOOT-WRITTEN-OFF-AMT. DTSBR306 00409 ADD R306-TOLER-AMT TO WS-FOOT-TOLER-AMT. DTSBR306 00410 ADD R306-BALANCE-AMT TO WS-FOOT-BALANCE-AMT. DTSBR306 00411 DTSBR306 00412 MOVE WS-ACCT-SHORT-DSCR (WS-SUB) TO WS-DTL-ACCT-SHORT-DSCR. DTSBR306 00413 MOVE WS-ACCT-IND (WS-SUB) TO WS-DTL-ACCT-IND. DTSBR306 00414 MOVE WS-START-YRQ TO WS-DTL-START-YRQ. DTSBR306 00415 MOVE WS-END-YRQ TO WS-DTL-END-YRQ. DTSBR306 00416 MOVE R306-TRAN-TYPE (1) TO WS-TRAN-TYPE-1. DTSBR306 00417 MOVE R306-TRAN-TYPE (2) TO WS-TRAN-TYPE-2. DTSBR306 00418 MOVE R306-TRAN-TYPE (3) TO WS-TRAN-TYPE-3. DTSBR306 00419 MOVE R306-TRAN-TYPE (4) TO WS-TRAN-TYPE-4. DTSBR306 00420 MOVE R306-TRAN-TYPE (5) TO WS-TRAN-TYPE-5. DTSBR306 00421 MOVE R306-CHARGED-AMT TO WS-DTL-CHARGED-AMT. DTSBR306 00422 MOVE R306-PAID-AMT TO WS-DTL-PAID-AMT. DTSBR306 00423 MOVE R306-WAIVED-AMT TO WS-DTL-WAIVED-AMT. DTSBR306 00424 MOVE R306-WRITTEN-OFF-AMT TO WS-DTL-WRITTEN-OFF-AMT. DTSBR306 00425 MOVE R306-TOLER-AMT TO WS-DTL-TOLER-AMT. DTSBR306 00426 MOVE R306-BALANCE-AMT TO WS-DTL-BALANCE-AMT. DTSBR306 00427 DTSBR306 00428 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR306 00429 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR306 00430 ADD +2 TO WS-LINE-CNT2. DTSBR306 00431 DTSBR306 00432 IF R306-ACCT-SUB = +7 DTSBR306 00433 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR306 00434 END-IF. DTSBR306 00435 DTSBR306 00436 P1000-EXIT. DTSBR306 00437 EXIT. DTSBR306 00438 EJECT DTSBR306 00439 P2000-DATES-AND-QTRS. DTSBR306 00440 SKIP1 DTSBR306 00441 IF R306-START-DEPOSIT-DATE = ZEROES DTSBR306 00442 MOVE SPACES TO WS-START-DEPOSIT-DATE DTSBR306 00443 ELSE DTSBR306 00444 MOVE R306-START-DEPOSIT-DATE TO L001-FED-8-DATE-9 DTSBR306 00445 SET L001-FROM-FED-8 TO TRUE DTSBR306 00446 PERFORM S001-DATE THRU S001-EXIT DTSBR306 00447 MOVE L001-SLASH-DATE TO WS-START-DEPOSIT-DATE. DTSBR306 00448 SKIP1 DTSBR306 00449 IF R306-END-DEPOSIT-DATE = 999999999 DTSBR306 00450 MOVE SPACES TO WS-END-DEPOSIT-DATE DTSBR306 00451 ELSE DTSBR306 00452 MOVE R306-END-DEPOSIT-DATE TO L001-FED-8-DATE-9 DTSBR306 00453 SET L001-FROM-FED-8 TO TRUE DTSBR306 00454 PERFORM S001-DATE THRU S001-EXIT DTSBR306 00455 MOVE L001-SLASH-DATE TO WS-END-DEPOSIT-DATE. DTSBR306 00456 SKIP1 DTSBR306 00457 MOVE R306-START-PROCESS-DATE TO L001-FED-8-DATE-9. DTSBR306 00458 SET L001-FROM-FED-8 TO TRUE. DTSBR306 00459 PERFORM S001-DATE THRU S001-EXIT. DTSBR306 00460 MOVE L001-SLASH-DATE TO WS-START-PROCESS-DATE. DTSBR306 00461 SKIP1 DTSBR306 00462 MOVE R306-END-PROCESS-DATE TO L001-FED-8-DATE-9. DTSBR306 00463 SET L001-FROM-FED-8 TO TRUE. DTSBR306 00464 PERFORM S001-DATE THRU S001-EXIT. DTSBR306 00465 MOVE L001-SLASH-DATE TO WS-END-PROCESS-DATE. DTSBR306 00466 SKIP1 DTSBR306 00467 IF R306-START-YRQ = ZEROES DTSBR306 00468 MOVE SPACES TO WS-START-YRQ DTSBR306 00469 ELSE DTSBR306 00470 MOVE R306-START-YRQ TO WS-START-YRQ-EDIT. DTSBR306 00471 SKIP1 DTSBR306 00472 IF R306-END-YRQ = 99999 DTSBR306 00473 MOVE SPACES TO WS-END-YRQ DTSBR306 00474 ELSE DTSBR306 00475 MOVE R306-END-YRQ TO WS-END-YRQ-EDIT. DTSBR306 00476 SKIP2 DTSBR306 00477 P2000-EXIT. DTSBR306 00478 EXIT. DTSBR306 00479 EJECT DTSBR306 00480 DTSBR306 00481 P3000-PRINT-HEADER. DTSBR306 00482 IF WS-LINE-CNT GREATER 58 OR DTSBR306 00483 WS-LINE-CNT2 GREATER 58 DTSBR306 00484 MOVE +0 TO WS-LINE-CNT DTSBR306 00485 MOVE +0 TO WS-LINE-CNT2 DTSBR306 00486 ADD +1 TO WS-PAGE-CNT DTSBR306 00487 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT DTSBR306 00488 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR306 00489 WRITE PRT-RECORD FROM HEADER-2 AFTER 1 DTSBR306 00490 WRITE PRT-RECORD FROM HEADER-3 AFTER 1 DTSBR306 00491 WRITE PRT-RECORD FROM HEADER-4 AFTER 1 DTSBR306 00492 **** DTSBR306 00493 WRITE PRT-RECORD FROM HEADER-6 AFTER 1 DTSBR306 00494 WRITE PRT-RECORD FROM HEADER-7 AFTER 1 DTSBR306 00495 WRITE PRT-RECORD FROM HEADER-8 AFTER 1 DTSBR306 00496 WRITE PRT-RECORD FROM HEADER-9 AFTER 1 DTSBR306 00497 WRITE PRT-RECORD FROM HEADER-10 AFTER 1 DTSBR306 00498 WRITE PRT-RECORD FROM HEADER-11 AFTER 1 DTSBR306 00499 WRITE PRT-RECORD FROM HEADER-12 AFTER 1 DTSBR306 00500 WRITE PRT-RECORD FROM HEADER-13 AFTER 1 DTSBR306 00501 WRITE PRT-RECORD FROM HEADER-14 AFTER 1 DTSBR306 00502 WRITE PRT-RECORD FROM HEADER-15 AFTER 1 DTSBR306 00503 ADD +14 TO WS-LINE-CNT2. DTSBR306 00504 P3000-EXIT. DTSBR306 00505 EXIT. DTSBR306 00506 DTSBR306 00507 P4000-PRINT-FOOTER. DTSBR306 00508 IF WS-LINE-CNT2 > 52 DTSBR306 00509 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR306 00510 END-IF. DTSBR306 00511 DTSBR306 00512 MOVE WS-FOOT-CHARGED-AMT TO WS-CTF-CHARGED-AMT. DTSBR306 00513 MOVE WS-FOOT-PAID-AMT TO WS-CTF-PAID-AMT. DTSBR306 00514 MOVE WS-FOOT-WAIVED-AMT TO WS-CTF-WAIVED-AMT. DTSBR306 00515 MOVE WS-FOOT-WRITTEN-OFF-AMT TO WS-CTF-WRITTEN-OFF-AMT. DTSBR306 00516 MOVE WS-FOOT-TOLER-AMT TO WS-CTF-TOLER-AMT. DTSBR306 00517 MOVE WS-FOOT-BALANCE-AMT TO WS-CTF-BALANCE-AMT. DTSBR306 00518 DTSBR306 00519 WRITE PRT-RECORD FROM CTF-LINE-1 AFTER 1. DTSBR306 00520 WRITE PRT-RECORD FROM CTF-LINE-3 AFTER 2. DTSBR306 00521 DTSBR306 00522 ADD +60 TO WS-LINE-CNT2. DTSBR306 00523 MOVE +0 TO WS-FOOT-CHARGED-AMT. DTSBR306 00524 MOVE +0 TO WS-FOOT-PAID-AMT. DTSBR306 00525 MOVE +0 TO WS-FOOT-WAIVED-AMT. DTSBR306 00526 MOVE +0 TO WS-FOOT-WRITTEN-OFF-AMT. DTSBR306 00527 MOVE +0 TO WS-FOOT-TOLER-AMT. DTSBR306 00528 MOVE +0 TO WS-FOOT-BALANCE-AMT. DTSBR306 00529 DTSBR306 00530 P4000-EXIT. DTSBR306 00531 EXIT. DTSBR306 00532 DTSBR306 00533 T1000-TERMINATE. DTSBR306 00534 DTSBR306 00535 CLOSE PRT-FILE. DTSBR306 00536 DTSBR306 00537 T1000-EXIT. DTSBR306 00538 EXIT. DTSBR306 00539 EJECT DTSBR306 00540 S001-DATE. DTSBR306 00541 SKIP1 DTSBR306 00542 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR306 00543 SKIP2 DTSBR306 00544 S001-EXIT. DTSBR306 00545 EXIT. DTSBR306 00546 SKIP3 DTSBR306 00547 S032-ACCT-DESCRIPTION. DTSBR306 00548 SKIP1 DTSBR306 00549 CALL 'DTSBU032' USING L032-LINK-AREA. DTSBR306 00550 SKIP2 DTSBR306 00551 S032-EXIT. DTSBR306 00552 EXIT. DTSBR306 00553 SKIP3 DTSBR306 00554 S999-ABEND. DTSBR306 00555 SKIP1 DTSBR306 00556 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR306 00557 SKIP2 DTSBR306 00558 S999-EXIT. DTSBR306 00559 EXIT. DTSBR306 00560 DTSBR306