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
