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