00001  IDENTIFICATION DIVISION.                                         08/06/19
00002  PROGRAM-ID. DTSBR503.                                            DTSBR503
00003  AUTHOR.       BDM.                                                  LV019
00004                                                                   DTSBR503
00005 *****                                                             DTSBR503
00006 *                                                                 DTSBR503
00007 *                                                                 DTSBR503
00008 *    CALLING SEQUENCE:  DTSBD750 WRITES DTSIR503 RECORDS          DTSBR503
00009 *                       DTSBR503 READS  DTSIR503 RECORDS          DTSBR503
00010 *                       TO PRODUCE THE RATE NOTICE FORMS          DTSBR503
00011 *                                                                 DTSBR503
00012 *                                                                 DTSBR503
00013 *    FUNCTION:  RATE NOTICES.                                     DTSBR503
00014 *                                                                 DTSBR503
00015 *                                                                 DTSBR503
00016 *    MODIFICATION HISTORY:                                        DTSBR503
00017 *                                                                 DTSBR503
00018 * 04-29-99 THIS PROGRAM WAS CLONED FROM THE D.C TAX PROGRAM       DTSBR503
00019 *          TAX1003Y IN TAX.APPL.PANSLIB THEN IT WAS MODIFIED      DTSBR503
00020 *          TO READ FROM THE DUTAS DATABASE STRUCTURE.             DTSBR503
00021 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR503
00022 *                                                                 DTSBR503
00023 * 12-11-06 MODIFIED TO PRINT TAX RATE TABLE.                      DTSBR503
00024 *          REFERENCE                      AUTHOR OF CHANGE - ZL1. DTSBR503
00025 *                                                                 DTSBR503
00026 * 04-16-08 MODIFIED TO INCLUDE MINUS SIGN ON COMPENSATION.        DTSBR503
00027 *          REFERENCE                      AUTHOR OF CHANGE - ZL1. DTSBR503
00028 *                                                                 DTSBR503
00029 *                                                                    CL*12
00030 * 07-11-19 MODIFIED TO CREATE RATE FILE FOR ESSP.                    CL*12
00031 *          REFERENCE                      AUTHOR OF CHANGE - ZL1.    CL*12
00032 *                                                                    CL*12
00033 *                                                                    CL**6
00034 * XX-XX-XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR503
00035 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR503
00036 *                                                                 DTSBR503
00037 *            REFERENCE RFP #****          AUTHOR OF CHANGE - XXX  DTSBR503
00038 *****                                                             DTSBR503
00039  ENVIRONMENT DIVISION.                                            DTSBR503
00040  CONFIGURATION SECTION.                                           DTSBR503
00041  SPECIAL-NAMES.                                                   DTSBR503
00042      C01 IS TOP-OF-PAGE.                                          DTSBR503
00043  INPUT-OUTPUT SECTION.                                            DTSBR503
00044  FILE-CONTROL.                                                    DTSBR503
00045      SELECT PRT-FILE1 ASSIGN TO RPT503R1.                         DTSBR503
00046      SELECT PRT-FILE2 ASSIGN TO RPT503R2.                         DTSBR503
00047      SELECT PRT-FILE3 ASSIGN TO RPT503R3.                            CL**5
00048  DATA DIVISION.                                                   DTSBR503
00049  FILE SECTION.                                                    DTSBR503
00050                                                                   DTSBR503
00051  FD  PRT-FILE1                                                    DTSBR503
00052      RECORDING MODE IS F                                          DTSBR503
00053      LABEL RECORDS ARE OMITTED.                                   DTSBR503
00054                                                                   DTSBR503
00055  01  PRT-R632-REC   PIC X(133).                                   DTSBR503
00056                                                                   DTSBR503
00057  FD  PRT-FILE2                                                    DTSBR503
00058      RECORDING MODE IS F                                          DTSBR503
00059      LABEL RECORDS ARE OMITTED.                                   DTSBR503
00060                                                                   DTSBR503
00061  01  PRT-R632A-REC  PIC X(133).                                   DTSBR503
00062                                                                   DTSBR503
00063  FD  PRT-FILE3                                                       CL**4
00064      RECORDING MODE IS F                                             CL**4
00065      LABEL RECORDS ARE OMITTED.                                      CL**4
00066                                                                      CL**4
00067  01  PRT-X108-REC   PIC X(24).                                       CL**6
00068                                                                      CL**6
00069  WORKING-STORAGE SECTION.                                         DTSBR503
000695 77  PAN-VALET PICTURE X(24) VALUE '019DTSBR503  08/06/19'.       DTSBR503
00070  77  PAN-VALET PICTURE X(24) VALUE '212DTSBR503  12/13/13'.       DTSBR503
00071  77  PAN-VALET PICTURE X(24) VALUE '002DTSBR503  12/13/13'.       DTSBR503
00072  77  PAN-VALET PICTURE X(24) VALUE '210DTSBR503  07/22/12'.       DTSBR503
00073                                                                   DTSBR503
00074  01  VSCA-ADDRESS-LINE.                                           DTSBR503
00075      03 VSCA-DATA.                                                DTSBR503
00076         05  PRT1                     PIC X(132)  VALUE SPACES.    DTSBR503
00077      03 FILLER                       PIC X       VALUE '1'.       DTSBR503
00078                                                                   DTSBR503
00079  01  VSCA-LINE                       PIC X(133)  VALUE SPACES.    DTSBR503
00080  01  WS-REC                          PIC X(132)  VALUE SPACES.    DTSBR503
00081  01  BLANK-LINE                      PIC X(133)  VALUE SPACES.    DTSBR503
00082  01  WRK-DATE                        PIC 9(08)  VALUE ZEROS.      DTSBR503
00083  01  WRK-DATE-Z REDEFINES WRK-DATE.                               DTSBR503
00084      05 WRK-YR                       PIC 9(04).                   DTSBR503
00085      05 WRK-MM                       PIC 9(02).                   DTSBR503
00086      05 WRK-DA                       PIC 9(02).                   DTSBR503
00087  01  WRK-AREA.                                                    DTSBR503
00088      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR503
00089      05  WS-503R2-RECORDS            PIC  X(01)  VALUE 'Y'.       DTSBR503
00090          88 WS-503R2-RECORDS-88      VALUE 'Y'.                   DTSBR503
00091                                                                   DTSBR503
00092      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +503.DTSBR503
00093      05  ABEND-MSG                   PIC  X(60).                  DTSBR503
00094                                                                   DTSBR503
00095  01  WS-TEMPS.                                                    DTSBR503
00096      05  WT-RATIO                    PIC S99V9(05).               DTSBR503
00097      05  WTC-RATE                    PIC S9V9999.                 DTSBR503
00098                                                                   DTSBR503
00099  01  632-DATE-LINE.                                               DTSBR503
00100       03 FILLER                      PIC X(86) VALUE SPACES.      DTSBR503
00101       03 DATE-632.                                                DTSBR503
00102          05 DATE-632-MM              PIC 99.                      DTSBR503
00103          05 FILLER                   PIC X  VALUE '/'.            DTSBR503
00104          05 DATE-632-DA              PIC 99.                      DTSBR503
00105          05 FILLER                   PIC X  VALUE '/'.            DTSBR503
00106          05 DATE-632-YY              PIC 9999.                    DTSBR503
00107                                                                   DTSBR503
00108  01  632A-DATE-LINE.                                              DTSBR503
00109       03 FILLER                      PIC X(86) VALUE SPACES.      DTSBR503
00110       03 DATE-632A.                                               DTSBR503
00111          05 DATE-632-MMA             PIC 99.                      DTSBR503
00112          05 FILLER                   PIC X  VALUE '/'.            DTSBR503
00113          05 DATE-632-DAA             PIC 99.                      DTSBR503
00114          05 FILLER                   PIC X  VALUE '/'.            DTSBR503
00115          05 DATE-632-YYA             PIC 9999.                    DTSBR503
00116                                                                   DTSBR503
00117  01  632-DETAIL-LINE1.                                            DTSBR503
00118       03 FILLER                      PIC X.                       DTSBR503
00119       03 FILLER                      PIC X(06) VALUE SPACES.      DTSBR503
00120       03 ACCOUNT                     PIC 999B999.                 DTSBR503
00121       03 FILLER                      PIC X(09) VALUE SPACES.      DTSBR503
00122       03 RATE1                       PIC X(07).                   DTSBR503
00123       03 FILLER                      PIC X(21) VALUE SPACES.      DTSBR503
00124       03 ONLY-YR                     PIC X(4).                    DTSBR503
00125       03 FILLER                      PIC X(08) VALUE SPACES.      DTSBR503
00126       03 COMPDTE                     PIC 99/99/9999.              DTSBR503
00127       03 FILLER                      PIC X(1) VALUE SPACES.       DTSBR503
00128       03 AAPAY                       PIC $$$,$$$,$$9.99.          DTSBR503
00129       03 FILLER                      PIC X(05) VALUE SPACES.      DTSBR503
00130       03 RESRATIO                    PIC X(05).                   DTSBR503
00131       03 PER-CENT                    PIC X(01) VALUE '%'.         DTSBR503
00132                                                                   DTSBR503
00133  01  632-DETAIL-LINE2.                                            DTSBR503
00134       03 FILLER                      PIC X(01) VALUE SPACES.      DTSBR503
00135       03 PREVIOUS                    PIC $$$$,$$$,$$9.99-.        DTSBR503
00136       03 FILLER                      PIC X(5) VALUE SPACES.       DTSBR503
00137       03 TRUST                       PIC $$,$$$,$$9.99.           DTSBR503
00138       03 FILLER                      PIC X(06) VALUE SPACES.      DTSBR503
00139       03 CONTRIBUTION                PIC $$$,$$$,$$9.99-.         DTSBR503
00140       03 FILLER                      PIC X(07) VALUE SPACES.      DTSBR503
00141       03 BENEFITS                    PIC $$$$,$$$,$$9.99-.        DTSBR503
00142       03 FILLER                      PIC X(06) VALUE SPACES.      DTSBR503
00143       03 CURRENT-RESV                PIC $$$$,$$$,$$9.99-.        DTSBR503
00144                                                                   DTSBR503
00145  01  632-DETAIL-LINE3.                                            DTSBR503
00146       03 FILLER                      PIC X(94) VALUE SPACES.      DTSBR503
00147       03 RPT-TABLE                   PIC X(5) VALUE SPACES.       DTSBR503
00148       03 FILLER                      PIC X(35) VALUE SPACES.      DTSBR503
00149                                                                   DTSBR503
00150  01  632A-DETAIL-LINE1.                                           DTSBR503
00151       03 FILLER                      PIC X.                       DTSBR503
00152       03 FILLER                      PIC X(06) VALUE SPACES.      DTSBR503
00153       03 UNACCT                      PIC 999B999.                 DTSBR503
00154       03 FILLER                      PIC X(15) VALUE SPACES.      DTSBR503
00155       03 RATE                        PIC X(07).                   DTSBR503
00156       03 FILLER                      PIC X(33) VALUE SPACES.      DTSBR503
00157       03 UNONLY                      PIC X(4).                    DTSBR503
00158       03 FILLER                      PIC X(14) VALUE SPACES.      DTSBR503
00159       03 UNCOMPDTE                   PIC 99/99/9999.              DTSBR503
00160                                                                   DTSBR503
00161  01  632A-DETAIL-LINE2.                                           DTSBR503
00162       03 FILLER                      PIC X(2) VALUE SPACES.       DTSBR503
00163       03 UNPREV                      PIC $$$,$$$,$$9.99-.         DTSBR503
00164       03 FILLER                      PIC X(5) VALUE SPACES.       DTSBR503
00165       03 UNTRUST                     PIC $$$,$$$,$$9.99.          DTSBR503
00166       03 FILLER                      PIC X(6) VALUE SPACES.       DTSBR503
00167       03 UNCONT                      PIC $$$,$$$,$$9.99-.         DTSBR503
00168       03 FILLER                      PIC X(6) VALUE SPACES.       DTSBR503
00169       03 BCHARGED                    PIC $$$,$$$,$$9.99-.         DTSBR503
00170       03 FILLER                      PIC X(5) VALUE SPACES.       DTSBR503
00171       03 UNCURR                      PIC $$$,$$$,$$9.99-.         DTSBR503
00172                                                                   DTSBR503
00173  01  X108-REC.                                                       CL*12
00174  ++INCLUDE DTSIX108                                                  CL*12
00175      EJECT                                                        DTSBR503
00176  01  L001-LINK-AREA.                                              DTSBR503
00177  ++INCLUDE DTSIL001                                               DTSBR503
00178      EJECT                                                        DTSBR503
00179  01  L009-LINK-AREA.                                                 CL**3
00180  ++INCLUDE DTSIL009                                                  CL**3
00181      EJECT                                                           CL**3
00182  01  L056-LINK-AREA.                                              DTSBR503
00183  ++INCLUDE DTSIL056                                               DTSBR503
00184      EJECT                                                        DTSBR503
00185                                                                   DTSBR503
00186  01  L057-LINK-AREA.                                              DTSBR503
00187  ++INCLUDE DTSIL057                                               DTSBR503
00188      EJECT                                                        DTSBR503
00189                                                                   DTSBR503
00190  ++INCLUDE DTSXL503                                               DTSBR503
00191      EJECT                                                        DTSBR503
00192 *RW1                                                              DTSBR503
00193  01  CONVERT-BARCODE-LINE.                                        DTSBR503
00194      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR503
00195                                                                   DTSBR503
00196  01  WS-BARC-LINE.                                                DTSBR503
00197      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR503
00198      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR503
00199      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR503
00200                                                                   DTSBR503
00201  01  BARI-LINK-AREA.                                              DTSBR503
00202  ++INCLUDE BARIL599                                               DTSBR503
00203      EJECT                                                        DTSBR503
00204 *RW2                                                              DTSBR503
00205  LINKAGE SECTION.                                                 DTSBR503
00206      SKIP3                                                        DTSBR503
00207  01  LRCM-LINK-AREA.                                              DTSBR503
00208  ++INCLUDE DTSILRCM                                               DTSBR503
00209      EJECT                                                        DTSBR503
00210  01  R503-REC.                                                    DTSBR503
00211  ++INCLUDE DTSIR503                                               DTSBR503
00212      EJECT                                                        DTSBR503
00213  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR503
00214                           R503-REC.                               DTSBR503
00215                                                                   DTSBR503
00216      IF FIRST-TIME-IND = 'Y'                                      DTSBR503
00217          PERFORM I1000-INITIATE   THRU I1000-EXIT                 DTSBR503
00218          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR503
00219                                                                   DTSBR503
00220      IF LRCM-EOR-88                                               DTSBR503
00221          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR503
00222      ELSE                                                         DTSBR503
00223          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR503
00224      GOBACK.                                                      DTSBR503
00225                                                                   DTSBR503
00226      EXIT.                                                        DTSBR503
00227      EJECT                                                        DTSBR503
00228                                                                   DTSBR503
00229                                                                   DTSBR503
00230  I1000-INITIATE.                                                  DTSBR503
00231      OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3.                      CL*13
00232                                                                   DTSBR503
00233      MOVE R503-NOTICE-DATE TO WRK-DATE.                           DTSBR503
00234      MOVE WRK-DA TO DATE-632-DAA DATE-632-DA                      DTSBR503
00235      MOVE WRK-MM TO DATE-632-MMA DATE-632-MM                      DTSBR503
00236      MOVE WRK-YR TO DATE-632-YYA DATE-632-YY.                     DTSBR503
00237                                                                   DTSBR503
00238 *    MOVE 13     TO DATE-632-DAA DATE-632-DA                         CL**2
00239 *    MOVE 12     TO DATE-632-MMA DATE-632-MM                         CL**2
00240 *    MOVE 2013   TO DATE-632-YYA DATE-632-YY.                        CL**2
00241                                                                   DTSBR503
00242      WRITE PRT-R632-REC   FROM  BLANK-LINE                        DTSBR503
00243            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR503
00244                                                                   DTSBR503
00245      WRITE PRT-R632-REC   FROM  LINE-13 AFTER                     DTSBR503
00246            ADVANCING 15 LINES.                                    DTSBR503
00247      WRITE PRT-R632-REC   FROM  LINE-14 AFTER 1.                  DTSBR503
00248      WRITE PRT-R632-REC   FROM  LINE-15.                          DTSBR503
00249      WRITE PRT-R632-REC   FROM  LINE-16.                          DTSBR503
00250      WRITE PRT-R632-REC   FROM  LINE-17.                          DTSBR503
00251                                                                   DTSBR503
00252      WRITE PRT-R632-REC   FROM  BLANK-LINE                        DTSBR503
00253            AFTER ADVANCING PAGE.                                  DTSBR503
00254                                                                   DTSBR503
00255      WRITE PRT-R632A-REC  FROM  BLANK-LINE                        DTSBR503
00256            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR503
00257                                                                   DTSBR503
00258      WRITE PRT-R632A-REC  FROM  LINE-13 AFTER                     DTSBR503
00259            ADVANCING 15 LINES.                                    DTSBR503
00260      WRITE PRT-R632A-REC  FROM  LINE-14 AFTER 1.                  DTSBR503
00261      WRITE PRT-R632A-REC  FROM  LINE-15.                          DTSBR503
00262      WRITE PRT-R632A-REC  FROM  LINE-16.                          DTSBR503
00263      WRITE PRT-R632A-REC  FROM  LINE-17.                          DTSBR503
00264                                                                   DTSBR503
00265      WRITE PRT-R632A-REC  FROM  BLANK-LINE                        DTSBR503
00266            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR503
00267  I1000-EXIT.                                                      DTSBR503
00268      EXIT.                                                        DTSBR503
00269  P1000-PROCESS.                                                   DTSBR503
00270      SKIP1                                                        DTSBR503
00271      MOVE R503-CURRENT-RESERVE-THRU-DATE TO L001-FED-8-DATE-9.    DTSBR503
00272      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR503
00273      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR503
00274                                                                   DTSBR503
00275      MOVE R503-UI-RATE      TO L056-RATE.                         DTSBR503
00276      SET L056-DISP1-LEFT-PCT-88 TO TRUE.                          DTSBR503
00277      PERFORM S056-RATE-DISPLAY THRU S056-EXIT.                    DTSBR503
00278                                                                   DTSBR503
00279                                                                   DTSBR503
00280      MOVE R503-RESERVE-RATIO TO L057-RATIO.                       DTSBR503
00281      PERFORM S057-DISP-RATIO   THRU S057-EXIT.                    DTSBR503
00282 *RW1                                                              DTSBR503
00283      MOVE R503-EMP-NO       TO BARC-EMP-NO.                       DTSBR503
00284      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR503
00285                                                                   DTSBR503
00286      IF L599-SETB-FONT1                                           DTSBR503
00287         MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME              DTSBR503
00288      ELSE                                                         DTSBR503
00289      IF L599-SETB-FONT2                                           DTSBR503
00290         MOVE 'MODIFY=TAXSM2,' TO X1-CA-CME XA-CA-CME              DTSBR503
00291      ELSE                                                         DTSBR503
00292         MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME.             DTSBR503
00293                                                                      CL**3
00294      IF R503-FMT-LINE(1) > SPACES                                    CL**3
00295         MOVE R503-FMT-LINE(1)     TO L009-DATA                       CL**3
00296         PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT                  CL**3
00297         MOVE L009-DATA        TO FMT-ADDR-LINE1                      CL**3
00298      ELSE                                                            CL**3
00299         MOVE SPACES           TO FMT-ADDR-LINE1.                     CL**3
00300                                                                      CL**3
00301      IF R503-FMT-LINE(2) > SPACES                                    CL**3
00302         MOVE R503-FMT-LINE(2)     TO L009-DATA                       CL**3
00303         PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT                  CL**3
00304         MOVE L009-DATA        TO FMT-ADDR-LINE2                      CL**3
00305      ELSE                                                            CL**3
00306         MOVE SPACES           TO FMT-ADDR-LINE2.                     CL**3
00307                                                                      CL**3
00308      IF R503-FMT-LINE(3) > SPACES                                    CL**3
00309         MOVE R503-FMT-LINE(3)     TO L009-DATA                       CL**3
00310         PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT                  CL**3
00311         MOVE L009-DATA        TO FMT-ADDR-LINE3                      CL**3
00312      ELSE                                                            CL**3
00313         MOVE SPACES           TO FMT-ADDR-LINE3.                     CL**3
00314                                                                      CL**3
00315                                                                   DTSBR503
00316      IF R503-FMT-LINE(4) > SPACES                                    CL**3
00317         MOVE R503-FMT-LINE(4)     TO L009-DATA                       CL**3
00318         PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT                  CL**3
00319         MOVE L009-DATA        TO FMT-ADDR-LINE4                      CL**3
00320      ELSE                                                            CL**3
00321         MOVE SPACES           TO FMT-ADDR-LINE4.                     CL**3
00322                                                                      CL**3
00323      IF R503-FMT-LINE(5) > SPACES                                    CL**3
00324         MOVE R503-FMT-LINE(5)     TO L009-DATA                       CL**3
00325         PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT                  CL**3
00326         MOVE L009-DATA        TO FMT-ADDR-LINE5                      CL**3
00327      ELSE                                                            CL**3
00328         MOVE SPACES           TO FMT-ADDR-LINE5.                     CL**3
00329                                                                      CL**3
00330      IF R503-CLASSIFIED-88                                        DTSBR503
00331         WRITE PRT-R632-REC   FROM  XF-CA-CNTL-L632                DTSBR503
00332               AFTER ADVANCING TOP-OF-PAGE                         DTSBR503
00333         WRITE PRT-R632-REC FROM X2-CA-CNTL-LINE AFTER 1           DTSBR503
00334         WRITE PRT-R632-REC FROM X3-CA-CNTL-LINE AFTER 1           DTSBR503
00335         PERFORM P1100-R632 THRU P1100-EXIT                        DTSBR503
00336      ELSE                                                         DTSBR503
00337      IF R503-NONCLASSIFIED-88                                     DTSBR503
00338         IF WS-503R2-RECORDS-88                                    DTSBR503
00339            MOVE 'N' TO WS-503R2-RECORDS                           DTSBR503
00340            WRITE PRT-R632A-REC  FROM  XF-CA-CNTL-L632A            DTSBR503
00341                 AFTER ADVANCING PAGE                              DTSBR503
00342            WRITE PRT-R632A-REC  FROM  X2-CA-CNTL-LINE             DTSBR503
00343            WRITE PRT-R632A-REC  FROM  X3-CA-CNTL-LINE             DTSBR503
00344            PERFORM P1200-R632A THRU P1200-EXIT                    DTSBR503
00345         ELSE                                                      DTSBR503
00346           WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE                DTSBR503
00347                 AFTER ADVANCING PAGE                              DTSBR503
00348           WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE AFTER 1        DTSBR503
00349           PERFORM P1200-R632A THRU P1200-EXIT                     DTSBR503
00350         END-IF                                                    DTSBR503
00351      ELSE                                                         DTSBR503
00352        DISPLAY ' INVALID RECORD TYPE ' R503-REC-TYPE              DTSBR503
00353        DISPLAY ' INVALID EMPLOYER    ' R503-EMP-NO.               DTSBR503
00354                                                                      CL*12
00355      PERFORM P1300-ESSP-RATE THRU P1300-EXIT.                        CL*12
00356                                                                      CL*12
00357  P1000-EXIT.                                                      DTSBR503
00358      EXIT.                                                        DTSBR503
00359      EJECT                                                        DTSBR503
00360                                                                   DTSBR503
00361  P1100-R632.                                                      DTSBR503
00362         WRITE PRT-R632-REC FROM 632-DATE-LINE AFTER 11.           DTSBR503
00363         MOVE R503-EMP-NO                    TO ACCOUNT.           DTSBR503
00364         MOVE L056-DISP-RATE                 TO RATE1.             DTSBR503
00365         MOVE R503-RATE-YEAR                 TO ONLY-YR.           DTSBR503
00366         MOVE L001-CAL-8-DATE-9              TO COMPDTE.           DTSBR503
00367         MOVE R503-AVG-TAX-WAGE              TO AAPAY.             DTSBR503
00368         MOVE L057-DISP-RATIO                TO RESRATIO.          DTSBR503
00369         MOVE R503-RATE-TABLE                TO RPT-TABLE.         DTSBR503
00370         INSPECT RPT-TABLE REPLACING FIRST ' ' BY '.'.             DTSBR503
00371         WRITE PRT-R632-REC FROM 632-DETAIL-LINE1 AFTER 5.         DTSBR503
00372                                                                   DTSBR503
00373         MOVE R503-PRIOR-RESERVE-AMT         TO PREVIOUS.          DTSBR503
00374         MOVE R503-TRUST-FUND-INTEREST-AMT   TO TRUST.             DTSBR503
00375         MOVE R503-UI-TAX-PAID-AMT           TO CONTRIBUTION.      DTSBR503
00376         MOVE R503-BENEFITS-CHARGED-AMT      TO BENEFITS           DTSBR503
00377         MOVE R503-CURRENT-RESERVE-AMT       TO CURRENT-RESV       DTSBR503
00378         WRITE PRT-R632-REC FROM 632-DETAIL-LINE2 AFTER 7.         DTSBR503
00379         WRITE PRT-R632-REC FROM 632-DETAIL-LINE3 AFTER 48.        DTSBR503
00380 *RW1                                                              DTSBR503
00381      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR503
00382                                                                   DTSBR503
00383      MOVE SPACES             TO WS-REC.                           DTSBR503
00384      WRITE PRT-R632-REC FROM WS-REC                               DTSBR503
00385           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR503
00386                                                                   DTSBR503
00387      WRITE PRT-R632-REC FROM WS-BARC-LINE AFTER 04.               DTSBR503
00388                                                                   DTSBR503
00389 *       WRITE PRT-R632-REC FROM BLANK-LINE                        DTSBR503
00390 *          AFTER ADVANCING TOP-OF-PAGE.                           DTSBR503
00391 *       WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING      DTSBR503
00392 *             24 LINES.                                           DTSBR503
00393         WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING      DTSBR503
00394               20 LINES.                                           DTSBR503
00395 *RW2                                                              DTSBR503
00396         WRITE PRT-R632-REC FROM LINE-ADDR-18 AFTER 1.             DTSBR503
00397         WRITE PRT-R632-REC FROM LINE-ADDR-19 AFTER 1.             DTSBR503
00398         WRITE PRT-R632-REC FROM LINE-ADDR-20 AFTER 1.             DTSBR503
00399         WRITE PRT-R632-REC FROM LINE-ADDR-21 AFTER 1.             DTSBR503
00400                                                                   DTSBR503
00401  P1100-EXIT.                                                      DTSBR503
00402      EXIT.                                                        DTSBR503
00403      EJECT                                                        DTSBR503
00404                                                                   DTSBR503
00405  P1200-R632A.                                                     DTSBR503
00406         WRITE PRT-R632A-REC FROM 632A-DATE-LINE AFTER 12.         DTSBR503
00407         MOVE R503-EMP-NO                    TO UNACCT.            DTSBR503
00408         MOVE L056-DISP-RATE                 TO RATE.              DTSBR503
00409         MOVE R503-RATE-YEAR                 TO UNONLY.            DTSBR503
00410         MOVE L001-CAL-8-DATE-9              TO UNCOMPDTE.         DTSBR503
00411         WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE1 AFTER 5.       DTSBR503
00412                                                                   DTSBR503
00413         MOVE R503-PRIOR-RESERVE-AMT         TO UNPREV.            DTSBR503
00414         MOVE R503-TRUST-FUND-INTEREST-AMT   TO UNTRUST.           DTSBR503
00415         MOVE R503-UI-TAX-PAID-AMT           TO UNCONT.            DTSBR503
00416         MOVE R503-BENEFITS-CHARGED-AMT      TO BCHARGED.          DTSBR503
00417         MOVE R503-CURRENT-RESERVE-AMT       TO UNCURR.            DTSBR503
00418         WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE2 AFTER 6.       DTSBR503
00419 *RW1                                                              DTSBR503
00420      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR503
00421                                                                   DTSBR503
00422      MOVE SPACES              TO WS-REC.                          DTSBR503
00423      WRITE PRT-R632A-REC FROM WS-REC                              DTSBR503
00424           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR503
00425                                                                   DTSBR503
00426      WRITE PRT-R632A-REC FROM WS-BARC-LINE AFTER 04.              DTSBR503
00427                                                                   DTSBR503
00428 *       WRITE PRT-R632A-REC FROM BLANK-LINE                       DTSBR503
00429 *          AFTER ADVANCING TOP-OF-PAGE.                           DTSBR503
00430 *       WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING     DTSBR503
00431 *             24 LINES.                                           DTSBR503
00432         WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING     DTSBR503
00433               20 LINES.                                           DTSBR503
00434 *RW2                                                              DTSBR503
00435         WRITE PRT-R632A-REC FROM LINE-ADDR-18 AFTER 1.            DTSBR503
00436         WRITE PRT-R632A-REC FROM LINE-ADDR-19 AFTER 1.            DTSBR503
00437         WRITE PRT-R632A-REC FROM LINE-ADDR-20 AFTER 1.            DTSBR503
00438         WRITE PRT-R632A-REC FROM LINE-ADDR-21 AFTER 1.            DTSBR503
00439                                                                   DTSBR503
00440                                                                   DTSBR503
00441  P1200-EXIT.                                                      DTSBR503
00442      EXIT.                                                        DTSBR503
00443  P1300-ESSP-RATE.                                                    CL*12
00444         MOVE R503-EMP-NO                    TO X108-EMP-NO.          CL*12
00445         MOVE R503-UI-RATE      TO L056-RATE.                         CL*18
00446         SET L056-DISP1-LEFT-88 TO TRUE.                              CL*18
00447        PERFORM S056-RATE-DISPLAY THRU S056-EXIT.                     CL*18
00448                                                                      CL*18
00449         MOVE L056-DISP-RATE               TO X108-RATE-X.            CL*19
00450         MOVE R503-RATE-YEAR                 TO X108-RATE-YR.         CL*12
00451         WRITE PRT-X108-REC  FROM X108-REC.                           CL*12
00452                                                                      CL*12
00453  P1300-EXIT.                                                         CL*12
00454      EXIT.                                                           CL*12
00455      EJECT                                                        DTSBR503
00456  S001-DATE.                                                       DTSBR503
00457                                                                   DTSBR503
00458      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR503
00459                                                                   DTSBR503
00460  S001-EXIT.                                                       DTSBR503
00461      EXIT.                                                        DTSBR503
00462      SKIP3                                                        DTSBR503
00463   S009-CONVERT-TO-CAPS.                                              CL**3
00464                                                                      CL**3
00465       CALL 'DTSBU009' USING L009-LINK-AREA.                          CL**3
00466                                                                      CL**3
00467   S009-EXIT.                                                         CL**3
00468       EXIT.                                                          CL**3
00469                                                                   DTSBR503
00470  S056-RATE-DISPLAY.                                               DTSBR503
00471      SKIP1                                                        DTSBR503
00472      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR503
00473      SKIP2                                                        DTSBR503
00474  S056-EXIT.                                                       DTSBR503
00475      EXIT.                                                        DTSBR503
00476      SKIP3                                                        DTSBR503
00477  S057-DISP-RATIO.                                                 DTSBR503
00478      SKIP1                                                        DTSBR503
00479      CALL 'DTSBU057' USING L057-LINK-AREA.                        DTSBR503
00480      SKIP2                                                        DTSBR503
00481  S057-EXIT.                                                       DTSBR503
00482      EXIT.                                                        DTSBR503
00483      SKIP3                                                        DTSBR503
00484  S599-BARCODE.                                                    DTSBR503
00485      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR503
00486      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR503
00487      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR503
00488                                                                   DTSBR503
00489      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR503
00490                                                                   DTSBR503
00491      IF L599-NOT-CONVERTED                                        DTSBR503
00492         MOVE 'BAR CODES CONVERTED FAILED' TO ABEND-MSG            DTSBR503
00493         PERFORM S999-ABEND  THRU S999-EXIT.                       DTSBR503
00494                                                                   DTSBR503
00495  S599-EXIT.                                                       DTSBR503
00496      EXIT.                                                        DTSBR503
00497      SKIP3                                                        DTSBR503
00498  T1000-TERMINATE.                                                 DTSBR503
00499      CLOSE PRT-FILE1  PRT-FILE2 PRT-FILE3.                           CL*12
00500                                                                   DTSBR503
00501  T1000-EXIT.                                                      DTSBR503
00502      EXIT.                                                        DTSBR503
00503      SKIP3                                                        DTSBR503
00504  S999-ABEND.                                                      DTSBR503
00505      DISPLAY '***'.                                               DTSBR503
00506      DISPLAY '***  '                                              DTSBR503
00507              ABEND-MSG.                                           DTSBR503
00508      DISPLAY '***'.                                               DTSBR503
00509                                                                   DTSBR503
00510      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR503
00511  S999-EXIT.                                                       DTSBR503
00512      EXIT.                                                        DTSBR503
00513                                                                   DTSBR503
