00001  IDENTIFICATION DIVISION.                                         08/16/21
00002  PROGRAM-ID.             DTSBR309.                                DTSBR309
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV008
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR309
00005  DATE-COMPILED.                                                   DTSBR309
00006      SKIP3                                                        DTSBR309
00007 *****                                                             DTSBR309
00008 * TESTING COMPILE -Z                                                 CL**2
00009 *    CALLING SEQUENCE:  DTSBE309 CREATES DTSIR309 RECORDS.        DTSBR309
00010 *                       DTSBD800 CALLS DTSBR309 WHICH PRODUCES    DTSBR309
00011 *                                THE STATEMENT OF ACCOUNT.        DTSBR309
00012 *                                                                 DTSBR309
00013 *    FUNCTION:  STATEMENT OF ACCOUNT -- CREDIT MEMO.              DTSBR309
00014 *                                                                 DTSBR309
00015 *                                                                 DTSBR309
00016 *    MODIFICATION HISTORY:                                        DTSBR309
00017 *                                                                 DTSBR309
00018 * 11-12-94 INITIAL DEVELOPMENT                                    DTSBR309
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR309
00020 *                                                                 DTSBR309
00021 * 11-06-97 MODIFICATIONS TO REFLECT THE TRANSFER OF UI TAX        DTSBR309
00022 *          FUNCTIONS FROM DLI TO DOR.                             DTSBR309
00023 *          REFERENCE RFP #TCL 208         AUTHOR OF CHANGE - EHH  DTSBR309
00024 *                                                                 DTSBR309
00025 * 02-28-01 ADDED R309-FEIN TO THE CREDIT                          DTSBR309
00026 *          REFERENCE RFP                  AUTHOR OF CHANGE - ZL1  DTSBR309
00027 *                                                                 DTSBR309
00028 * 05-09-08 CHANGED THE SELF MAILER RPT309R1 OLD FORM TO A NEW     DTSBR309
00029 *          FORM WITH BARCODE. RPT309R2 REPORT REMAIN UNCHANGED.   DTSBR309
00030 *          REFERENCE RFP                  AUTHOR OF CHANGE - RW1  DTSBR309
00031 *                                                                 DTSBR309
00032 * 08-05-08 ADDED CODE TO PRINT THE LAST THREE CHARACTERS OF       DTSBR309
00033 *          OPID FIELD.                                            DTSBR309
00034 *          REFERENCE RFP                  AUTHOR OF CHANGE - ZL1  DTSBR309
00035 *                                                                 DTSBR309
00036 * 02-10-20 MODIFIED PRINT LINES FOR CREDIT AUTOMATION TASK        DTSBR309
00037 *                                                                 DTSBR309
00038 *          REFERENCE DELL KACE 7654       AUTHOR OF CHANGE - ZL1  DTSBR309
00039 *                                                                 DTSBR309
00040 *                                                                 DTSBR309
00041 *    DESCRIPTION:                                                 DTSBR309
00042 *                                                                 DTSBR309
00043 *        THIS MODULE PRINTS A STATEMENT OF ACCOUNT TO EMPLOYERS   DTSBR309
00044 *        WHO HAVE A CREDIT BALANCE, NO OPEN APPEAL, AND NO        DTSBR309
00045 *        PURSUED REPORTS.                                         DTSBR309
00046 *                                                                 DTSBR309
00047 *                                                                 DTSBR309
00048 *    RECORDS READ:                                                DTSBR309
00049 *                                                                 DTSBR309
00050 *        NONE.                                                    DTSBR309
00051 *                                                                 DTSBR309
00052 *                                                                 DTSBR309
00053 *    PRINTED OUTPUTS:                                             DTSBR309
00054 *                                                                 DTSBR309
00055 *        309R1  STATEMENT OF ACCOUNT (UC-223) - MAILROOM COPY     DTSBR309
00056 *        309R2  STATEMENT OF ACCOUNT (UC-223) - CONTRIBUTIONS COPYDTSBR309
00057 *                                                                 DTSBR309
00058 *    RECORDS WRITTEN:                                             DTSBR309
00059 *                                                                 DTSBR309
00060 *        NONE.                                                    DTSBR309
00061 *                                                                 DTSBR309
00062 *                                                                 DTSBR309
00063 *    MODULES CALLED:                                              DTSBR309
00064 *                                                                 DTSBR309
00065 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR309
00066 *        DTSBU090 PARAGRAPH FORMATTING MODULE                     DTSBR309
00067 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR309
00068 *                                                                 DTSBR309
00069 *                                                                 DTSBR309
00070 *****                                                             DTSBR309
00071      EJECT                                                        DTSBR309
00072  ENVIRONMENT DIVISION.                                            DTSBR309
00073                                                                   DTSBR309
00074  CONFIGURATION SECTION.                                           DTSBR309
00075  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR309
00076                                                                   DTSBR309
00077  INPUT-OUTPUT SECTION.                                            DTSBR309
00078      SKIP1                                                        DTSBR309
00079  FILE-CONTROL.                                                    DTSBR309
00080      SELECT MAILROOM-PRT-FILE ASSIGN TO RPT309R1.                 DTSBR309
00081      SELECT BUREAU-PRT-FILE   ASSIGN TO RPT309R2.                 DTSBR309
00082      SKIP3                                                        DTSBR309
00083  DATA DIVISION.                                                   DTSBR309
00084      SKIP3                                                        DTSBR309
00085  FILE SECTION.                                                    DTSBR309
00086      SKIP2                                                        DTSBR309
00087  FD  MAILROOM-PRT-FILE                                            DTSBR309
00088      RECORDING MODE IS F                                          DTSBR309
00089      BLOCK CONTAINS 0 RECORDS                                     DTSBR309
00090      LABEL RECORDS ARE OMITTED.                                   DTSBR309
00091  01  XEROX-REPORT1.                                               DTSBR309
00092      05  FILLER                      PIC  X(1).                   DTSBR309
00093      05  XEROX-RPT1                  PIC  X(132).                 DTSBR309
00094                                                                   DTSBR309
00095  FD  BUREAU-PRT-FILE                                              DTSBR309
00096      RECORDING MODE IS F                                          DTSBR309
00097      BLOCK CONTAINS 0 RECORDS                                     DTSBR309
00098      LABEL RECORDS ARE OMITTED.                                   DTSBR309
00099  01  XEROX-REPORT2.                                               DTSBR309
00100      05  FILLER                      PIC  X(1).                   DTSBR309
00101      05  XEROX-RPT2                  PIC  X(132).                 DTSBR309
00102                                                                   DTSBR309
00103  WORKING-STORAGE SECTION.                                         DTSBR309
001035 77  PAN-VALET PICTURE X(24) VALUE '008DTSBR309  08/16/21'.       DTSBR309
00104  77  PAN-VALET PICTURE X(24) VALUE '133DTSBR309  03/02/20'.       DTSBR309
00105  77  PAN-VALET PICTURE X(24) VALUE '004DTSBR309  03/02/20'.       DTSBR309
00106  77  PAN-VALET PICTURE X(24) VALUE '131DTSBR309  03/02/11'.       DTSBR309
00107                                                                   DTSBR309
00108  01  WRK-AREA.                                                    DTSBR309
00109      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +309.DTSBR309
00110      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR309
00111      05  WS-STMT-DATE                PIC  X(10).                  DTSBR309
00112      05  WS-LAST-ACCT-UPDATE-DATE    PIC  X(10).                  DTSBR309
00113      05  WS-CTR                      PIC S9(04)  COMP.            DTSBR309
00114      05  LINE-CNT                    PIC S9(04)  VALUE +0.        DTSBR309
00115      05  WS-AMT                      PIC  X(14).                  DTSBR309
00116      05  WS-AMT-EDIT REDEFINES WS-AMT                             DTSBR309
00117                                      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR309
00118      05  WS-AGENCY-FACTS.                                         DTSBR309
00119          10  WS-AGY-NAMEB1B2-CAPS-STRING                          DTSBR309
00120                                      PIC  X(82).                  DTSBR309
00121          10  WS-PROGRAM-NAME-CAPS    PIC  X(50).                  DTSBR309
00122          10  WS-PROGRAM-VOICE        PIC  X(15).                  DTSBR309
00123          10  WS-PROGRAM-FAX          PIC  X(15).                  DTSBR309
00124                                                                   DTSBR309
00125      05  WS-OPR-VOICE.                                            DTSBR309
00126          10  WS-OPR-VOICE-AREA       PIC  X(03)  VALUE SPACES.    DTSBR309
00127          10  WS-OPR-VOICE-1          PIC  X(03)  VALUE SPACES.    DTSBR309
00128          10  WS-OPR-VOICE-2          PIC  X(04)  VALUE SPACES.    DTSBR309
00129          10  WS-OPR-VOICE-EXT        PIC  X(05)  VALUE SPACES.    DTSBR309
00130                                                                   DTSBR309
00131      05  WS-OPR-FAX.                                              DTSBR309
00132          10  WS-OPR-FAX-AREA         PIC  X(03)  VALUE SPACES.    DTSBR309
00133          10  WS-OPR-FAX-1            PIC  X(03)  VALUE SPACES.    DTSBR309
00134          10  WS-OPR-FAX-2            PIC  X(04)  VALUE SPACES.    DTSBR309
00135          10  WS-OPR-FAX-EXT          PIC  X(05)  VALUE SPACES.    DTSBR309
00136                                                                   DTSBR309
00137      05  WS-OPID.                                                 DTSBR309
00138          10  WS-OPID-A               PIC  X(04)  VALUE SPACES.    DTSBR309
00139          10  WS-OPID-B               PIC  X(03)  VALUE SPACES.    DTSBR309
00140                                                                   DTSBR309
00141      05  WS-BAT-ITEM.                                             DTSBR309
00142          10  FILLER                  PIC  X(72)  VALUE SPACES.    DTSBR309
00143          10  WS-BATCH-NO1            PIC  9(05)  VALUE ZEROS.     DTSBR309
00144          10  FILLER                  PIC  X(01)  VALUE '-'.       DTSBR309
00145          10  WS-ITEM-NO1             PIC  9(03)  VALUE ZEROS.     DTSBR309
00146                                                                   DTSBR309
00147      05  WS-ACCT-BAT-ITEM.                                        DTSBR309
00148          10  FILLER                  PIC  X(46)  VALUE SPACES.    DTSBR309
00149          10  WS-EMP-NO2              PIC  9(06)  VALUE ZEROS.     DTSBR309
00150          10  WS-BATCH-NO2            PIC  9(05)  VALUE ZEROS.     DTSBR309
00151          10  WS-ITEM-NO2             PIC  9(03)  VALUE ZEROS.     DTSBR309
00152                                                                   DTSBR309
00153      05  WS-PROGRAM-NAME-STRING      PIC  X(51).                  DTSBR309
00154                                                                   DTSBR309
00155      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR309
00156                                                                   DTSBR309
00157  01  VSCA-LINE.                                                   DTSBR309
00158      05  VSCA-DATA                   PIC  X(133) VALUE SPACES.    DTSBR309
00159                                                                   DTSBR309
00160  01  ROUTE-MRP-LINE13.                                            DTSBR309
00161      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00162      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00163      05  FILLER                      PIC X(40) VALUE ALL '*'.     DTSBR309
00164                                                                   DTSBR309
00165  01  ROUTE-MRP-LINE14.                                            DTSBR309
00166      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00167      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00168      05  FILLER                      PIC X(40) VALUE              DTSBR309
00169                       '*      ROUTE FOLLOWING FORMS TO:       *'. DTSBR309
00170      05  FILLER                      PIC X(12) VALUE SPACES.      DTSBR309
00171                                                                   DTSBR309
00172  01  ROUTE-MRP-LINE15.                                            DTSBR309
00173      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00174      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00175      05  FILLER                      PIC X(40) VALUE              DTSBR309
00176                       '*              MAIL ROOM               *'. DTSBR309
00177                                                                   DTSBR309
00178  01  ROUTE-MRP-LINE16.                                            DTSBR309
00179      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00180      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00181      05  FILLER                      PIC X(40) VALUE              DTSBR309
00182                       '*      OFFICE OF SUPPORT SERVICES      *'. DTSBR309
00183                                                                   DTSBR309
00184  01  ROUTE-MRP-LINE17.                                            DTSBR309
00185      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00186      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00187      05  FILLER                      PIC X(40) VALUE ALL '*'.     DTSBR309
00188 **                                                                DTSBR309
00189  01  ROUTE-BRP-LINE13.                                            DTSBR309
00190      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00191      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00192      05  FILLER                      PIC X(40) VALUE ALL '*'.     DTSBR309
00193                                                                   DTSBR309
00194  01  ROUTE-BRP-LINE14.                                            DTSBR309
00195      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00196      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00197      05  FILLER                      PIC X(40) VALUE              DTSBR309
00198                       '*      ROUTE FOLLOWING FORMS TO:       *'. DTSBR309
00199      05  FILLER                      PIC X(12) VALUE SPACES.      DTSBR309
00200                                                                   DTSBR309
00201  01  ROUTE-BRP-LINE15.                                            DTSBR309
00202      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00203      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00204      05  FILLER                      PIC X(40) VALUE              DTSBR309
00205                       '*       TAX ACCOUNTING SECTION         *'. DTSBR309
00206                                                                   DTSBR309
00207  01  ROUTE-BRP-LINE16.                                            DTSBR309
00208      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00209      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00210      05  FILLER                      PIC X(40) VALUE              DTSBR309
00211                       '*  DEPARTMENT OF EMPLOYMENT SERVICES   *'. DTSBR309
00212                                                                   DTSBR309
00213  01  ROUTE-BRP-LINE17.                                            DTSBR309
00214      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00215      05  FILLER                      PIC X(06) VALUE SPACES.      DTSBR309
00216      05  FILLER                      PIC X(40) VALUE ALL '*'.     DTSBR309
00217 **                                                                DTSBR309
00218  01  WRK-STATEMENT-HEADING.                                       DTSBR309
00219      05  WRK-LINE-13                 PIC  X(133) VALUE SPACES.    DTSBR309
00220                                                                   DTSBR309
00221      05  WRK-LINE-14.                                             DTSBR309
00222          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR309
00223          10  WRK-FMT-LINE-1          PIC  X(40).                  DTSBR309
00224          10  FILLER                  PIC  X(67)  VALUE SPACES.    DTSBR309
00225                                                                   DTSBR309
00226      05  WRK-LINE-15.                                             DTSBR309
00227          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR309
00228          10  WRK-FMT-LINE-2          PIC  X(40).                  DTSBR309
00229          10  FILLER                  PIC  X(67)  VALUE SPACES.    DTSBR309
00230                                                                   DTSBR309
00231      05  WRK-LINE-16.                                             DTSBR309
00232          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR309
00233          10  WRK-FMT-LINE-3          PIC  X(40).                  DTSBR309
00234          10  FILLER                  PIC  X(67)  VALUE SPACES.    DTSBR309
00235                                                                   DTSBR309
00236      05  WRK-LINE-17.                                             DTSBR309
00237          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR309
00238          10  WRK-FMT-LINE-4          PIC  X(40).                  DTSBR309
00239          10  FILLER                  PIC  X(67)  VALUE SPACES.    DTSBR309
00240                                                                   DTSBR309
00241      05  WRK-LINE-18.                                             DTSBR309
00242          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR309
00243          10  WRK-FMT-LINE-5          PIC  X(40).                  DTSBR309
00244          10  FILLER                  PIC  X(67)  VALUE SPACES.    DTSBR309
00245 **                                                                DTSBR309
00246  01  WS-ACCT-INFO.                                                DTSBR309
00247      05  FILLER                      PIC  X(07)  VALUE SPACES.    DTSBR309
00248      05  WS-EMP-NO                   PIC  999B999.                DTSBR309
00249      05  FILLER                      PIC  X(06)  VALUE SPACES.    DTSBR309
00250      05  FILLER                      PIC  X(08)  VALUE SPACES.    DTSBR309
00251      05  WS-BATCH-NO                 PIC  9(05)  VALUE ZEROS.     DTSBR309
00252      05  FILLER                      PIC  X(01)  VALUE '-'.       DTSBR309
00253      05  WS-ITEM-NO                  PIC  9(03)  VALUE ZEROS.     DTSBR309
00254      05  FILLER                      PIC  X(08)  VALUE SPACES.    DTSBR309
00255      05  FILLER                      PIC  X(06)  VALUE SPACES.    DTSBR309
00256      05  WS-STATEMENT-DATE           PIC  X(10).                  DTSBR309
00257      05  FILLER                      PIC  X(06)  VALUE SPACES.    DTSBR309
00258      05  WS-CREDIT-AMT               PIC  $$$,$$$,$$9.99.         DTSBR309
00259      05  FILLER                      PIC  X(11)  VALUE SPACES.    DTSBR309
00260                                                                   DTSBR309
00261  01  WRK-STATEMENT-FOOTING.                                       DTSBR309
00262      05  WRK-LINE-36.                                             DTSBR309
00263           10  FILLER                 PIC  X(72)  VALUE SPACES.    DTSBR309
00264           10  WRK-LAST-ACCT-UPD-DATE PIC  X(10).                  DTSBR309
00265           10  FILLER                 PIC  X(01)                   DTSBR309
00266                 VALUE '.'.                                        DTSBR309
00267 **                                                                DTSBR309
00268  01  VSCA-ADDR-LINE-17.                                           DTSBR309
00269      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00270      05  FILLER                      PIC X(37) VALUE SPACES.      DTSBR309
00271      05  WS-ADDR-FMT-LINE-1          PIC X(40) VALUE SPACES.      DTSBR309
00272                                                                   DTSBR309
00273  01  VSCA-ADDR-LINE-18.                                           DTSBR309
00274      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00275      05  FILLER                      PIC X(37) VALUE SPACES.      DTSBR309
00276      05  WS-ADDR-FMT-LINE-2          PIC X(40) VALUE SPACES.      DTSBR309
00277                                                                   DTSBR309
00278  01  VSCA-ADDR-LINE-19.                                           DTSBR309
00279      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00280      05  FILLER                      PIC X(37) VALUE SPACES.      DTSBR309
00281      05  WS-ADDR-FMT-LINE-3          PIC X(40) VALUE SPACES.      DTSBR309
00282                                                                   DTSBR309
00283  01  VSCA-ADDR-LINE-20.                                           DTSBR309
00284      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00285      05  FILLER                      PIC X(37) VALUE SPACES.      DTSBR309
00286      05  WS-ADDR-FMT-LINE-4          PIC X(40) VALUE SPACES.      DTSBR309
00287                                                                   DTSBR309
00288  01  VSCA-ADDR-LINE-21.                                           DTSBR309
00289      05  FILLER                      PIC X     VALUE SPACES.      DTSBR309
00290      05  FILLER                      PIC X(37) VALUE SPACES.      DTSBR309
00291      05  WS-ADDR-FMT-LINE-5          PIC X(40) VALUE SPACES.      DTSBR309
00292 **                                                                DTSBR309
00293  01  XEROX-CNTL-LINE18.                                           DTSBR309
00294 *    05  FILLER              PIC X     VALUE SPACES.              DTSBR309
00295      05  CNTL1-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      DTSBR309
00296      05  CNTL1-JDL           PIC X(09) VALUE 'JDL=XMOM,'.         DTSBR309
00297      05  CNTL1-JDE           PIC X(11) VALUE 'JDE=T309R1,'.       DTSBR309
00298      05  CNTL1-CME           PIC X(14) VALUE 'MODIFY=TAX309,'.    DTSBR309
00299      05  CNTL1-END           PIC X(01) VALUE ';'.                 DTSBR309
00300      05  FILLER              PIC X(32) VALUE SPACES.              DTSBR309
00301                                                                   DTSBR309
00302 **                                                                   CL**3
00303  01  XEROX-CNTL-LISI18.                                              CL**3
00304 *    05  FILLER              PIC X     VALUE SPACES.                 CL**3
00305      05  CNTL2-DJDE          PIC X(12) VALUE '$X9700$DJDE '.         CL**5
00306      05  CNTL2-JDL           PIC X(09) VALUE 'JDL=XMOM,'.            CL**5
00307      05  CNTL2-JDE           PIC X(11) VALUE 'JDE=T421R1,'.          CL**6
00308      05  CNTL2-CME           PIC X(14) VALUE 'MODIFY=TAX309,'.       CL**5
00309      05  CNTL2-END           PIC X(01) VALUE ';'.                    CL**5
00310      05  FILLER              PIC X(32) VALUE SPACES.                 CL**3
00311                                                                      CL**3
00312  01  XEROX-CNTL-LINE19.                                           DTSBR309
00313 *    05  FILLER              PIC X     VALUE SPACES.              DTSBR309
00314      05  CNTL2-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      DTSBR309
00315      05  CNTL2-DUPLEX        PIC X(11) VALUE 'DUPLEX=YES,'.       DTSBR309
00316      05  CNTL2-FONTS   PIC  X(36)                                 DTSBR309
00317                   VALUE 'FONTS=(P07TDB,P07TDB,C128ZP,C128PX),'.   DTSBR309
00318      05  CNTL2-END           PIC X(01) VALUE ';'.                 DTSBR309
00319      05  FILLER              PIC X(31) VALUE SPACES.              DTSBR309
00320                                                                   DTSBR309
00321                                                                   DTSBR309
00322  01  XEROX-CNTL-LINE21.                                           DTSBR309
00323 *    05  FILLER              PIC X     VALUE SPACES.              DTSBR309
00324      05  CNTL4-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      DTSBR309
00325      05  CNTL4-DATA          PIC X(12) VALUE 'DATA=(0,85),'.      DTSBR309
00326      05  CNTL4-ASSIGN        PIC X(13) VALUE 'ASSIGN=(1,1),'.     DTSBR309
00327      05  CNTL4-BEGIB         PIC X(18) VALUE                      DTSBR309
00328                                  'BEGIN=(0.10,0.51),'.            DTSBR309
00329 *    05  XEROX-TOF           PIC X(07) VALUE 'TOF=01,'.           DTSBR309
00330 *    05  XEROX-BOF           PIC X(07) VALUE 'BOF=60,'.           DTSBR309
00331      05  XEROX-END           PIC X(04) VALUE 'END;'.              DTSBR309
00332      05  FILLER              PIC X(21) VALUE SPACES.              DTSBR309
00333                                                                   DTSBR309
00334  01  PRINT-OPID.                                                  DTSBR309
00335 *    05  FILLER              PIC X(11) VALUE SPACES.              DTSBR309
00336      05  OPID-FIRST4         PIC X(04) VALUE SPACES.              DTSBR309
00337                                                                   DTSBR309
00338 *RW1                                                              DTSBR309
00339  01  CONVERT-BARCODE-LINE1.                                       DTSBR309
00340      05  BARC-EMP-NO1        PIC  9(06)  VALUE ZEROS.             DTSBR309
00341      05  BARC-BATCH-NO       PIC  9(05)  VALUE ZEROS.             DTSBR309
00342      05  BARC-ITEM-NO        PIC  9(03)  VALUE ZEROS.             DTSBR309
00343                                                                   DTSBR309
00344  01  CONVERT-BARCODE-LINE.                                        DTSBR309
00345      05  BARC-EMP-NO         PIC  9(06)  VALUE ZEROS.             DTSBR309
00346                                                                   DTSBR309
00347  01  WS-BARC-LINE1.                                               DTSBR309
00348 *    05  FILLER              PIC  X(47)  VALUE SPACES.            DTSBR309
00349      05  FILLER              PIC  X(46)  VALUE SPACES.            DTSBR309
00350      05  CONVERTED-BARCODE1  PIC  X(50).                          DTSBR309
00351      05  FILLER              PIC  X(23)  VALUE SPACES.            DTSBR309
00352                                                                   DTSBR309
00353  01  WS-BARC-LINE.                                                DTSBR309
00354      05  FILLER              PIC  X(40)  VALUE SPACES.            DTSBR309
00355      05  CONVERTED-BARCODE   PIC  X(50).                          DTSBR309
00356      05  FILLER              PIC  X(30)  VALUE SPACES.            DTSBR309
00357                                                                   DTSBR309
00358  01  BARI-LINK-AREA.                                              DTSBR309
00359  ++INCLUDE BARIL599                                               DTSBR309
00360      SKIP3                                                        DTSBR309
00361 *RW2                                                              DTSBR309
00362  01  L001-LINK-AREA.                                              DTSBR309
00363  ++INCLUDE DTSIL001                                               DTSBR309
00364      EJECT                                                        DTSBR309
00365  01  L090-LINK-AREA.                                              DTSBR309
00366  ++INCLUDE DTSIL090                                               DTSBR309
00367      EJECT                                                        DTSBR309
00368  01  L119-LINK-AREA.                                              DTSBR309
00369  ++INCLUDE DTSIL119                                               DTSBR309
00370      EJECT                                                        DTSBR309
00371  ++INCLUDE DTSXL30B                                               DTSBR309
00372      EJECT                                                        DTSBR309
00373                                                                   DTSBR309
00374  LINKAGE SECTION.                                                 DTSBR309
00375      SKIP3                                                        DTSBR309
00376  01  LRCM-LINK-AREA.                                              DTSBR309
00377  ++INCLUDE DTSILRCM                                               DTSBR309
00378      EJECT                                                        DTSBR309
00379  01  R309-REC.                                                    DTSBR309
00380  ++INCLUDE DTSIR309                                               DTSBR309
00381      EJECT                                                        DTSBR309
00382  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR309
00383                           R309-REC.                               DTSBR309
00384      SKIP2                                                        DTSBR309
00385      IF FIRST-TIME-IND = 'Y'                                      DTSBR309
00386          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR309
00387          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR309
00388      SKIP1                                                        DTSBR309
00389      IF LRCM-EOR-88                                               DTSBR309
00390          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR309
00391      ELSE                                                         DTSBR309
00392          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR309
00393      SKIP2                                                        DTSBR309
00394      GOBACK.                                                      DTSBR309
00395      EJECT                                                        DTSBR309
00396  I1000-INITIATE.                                                  DTSBR309
00397      SKIP1                                                        DTSBR309
00398      OPEN OUTPUT MAILROOM-PRT-FILE BUREAU-PRT-FILE.               DTSBR309
00399                                                                   DTSBR309
00400      MOVE SPACES TO XEROX-REPORT1  XEROX-REPORT2.                 DTSBR309
00401                                                                   DTSBR309
00402      WRITE XEROX-REPORT1    FROM VSCA-LINE                        DTSBR309
00403          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR309
00404      WRITE XEROX-REPORT1    FROM VSCA-LINE AFTER ADVANCING 12.    DTSBR309
00405      WRITE XEROX-REPORT1    FROM ROUTE-MRP-LINE13                 DTSBR309
00406      WRITE XEROX-REPORT1    FROM ROUTE-MRP-LINE14.                DTSBR309
00407      WRITE XEROX-REPORT1    FROM ROUTE-MRP-LINE15.                DTSBR309
00408      WRITE XEROX-REPORT1    FROM ROUTE-MRP-LINE16.                DTSBR309
00409      WRITE XEROX-REPORT1    FROM ROUTE-MRP-LINE17.                DTSBR309
00410 *    WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE18                DTSBR309
00411 *    WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE19.               DTSBR309
00412 *    WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE20.               DTSBR309
00413 *    WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE21.               DTSBR309
00414                                                                   DTSBR309
00415      WRITE XEROX-REPORT2    FROM VSCA-LINE                        DTSBR309
00416          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR309
00417      WRITE XEROX-REPORT2    FROM VSCA-LINE AFTER ADVANCING 12.    DTSBR309
00418      WRITE XEROX-REPORT2    FROM ROUTE-BRP-LINE13                 DTSBR309
00419      WRITE XEROX-REPORT2    FROM ROUTE-BRP-LINE14.                DTSBR309
00420      WRITE XEROX-REPORT2    FROM ROUTE-BRP-LINE15.                DTSBR309
00421      WRITE XEROX-REPORT2    FROM ROUTE-BRP-LINE16.                DTSBR309
00422      WRITE XEROX-REPORT2    FROM ROUTE-BRP-LINE17.                DTSBR309
00423                                                                   DTSBR309
00424      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR309
00425      SET L119-REQ-NO-UNIT-88 TO TRUE.                             DTSBR309
00426      PERFORM S119-AGENCY-FACTS THRU S119-EXIT.                    DTSBR309
00427      MOVE SPACES TO WS-AGY-NAMEB1B2-CAPS-STRING.                  DTSBR309
00428      STRING L119-AGY-NAMEB1 DELIMITED BY '   '                    DTSBR309
00429             ', ' DELIMITED BY SIZE                                DTSBR309
00430             L119-AGY-NAMEB2 DELIMITED BY '   '                    DTSBR309
00431         INTO                                                      DTSBR309
00432             WS-AGY-NAMEB1B2-CAPS-STRING.                          DTSBR309
00433      MOVE L119-UC-OFFICE-NAME       TO WS-PROGRAM-NAME-CAPS.      DTSBR309
00434      MOVE L119-AGY-MAIL2            TO WS-AGY-MAIL2-CAPS.         DTSBR309
00435      MOVE L119-UC-OFFICE-VOICE      TO WS-PROGRAM-VOICE.          DTSBR309
00436      MOVE L119-UC-OFFICE-FAX        TO WS-PROGRAM-FAX.            DTSBR309
00437      MOVE L119-AGY-MAIL1 TO WS-MAIL1-PHYS1-STRING.                DTSBR309
00438      MOVE SPACES TO WS-PROGRAM-NAME-STRING.                       DTSBR309
00439      STRING L119-UC-OFFICE-NAME   DELIMITED BY '   '              DTSBR309
00440             '.' DELIMITED BY SIZE                                 DTSBR309
00441         INTO                                                      DTSBR309
00442             WS-PROGRAM-NAME-STRING.                               DTSBR309
00443      SKIP2                                                        DTSBR309
00444  I1000-EXIT.                                                      DTSBR309
00445      EXIT.                                                        DTSBR309
00446      EJECT                                                        DTSBR309
00447  P1000-PROCESS.                                                   DTSBR309
00448      SKIP1                                                        DTSBR309
00449      MOVE R309-STMT-DATE TO L001-FED-8-DATE-9.                    DTSBR309
00450      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR309
00451      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR309
00452      MOVE L001-SLASH-8-DATE TO WS-STMT-DATE.                      DTSBR309
00453      SKIP1                                                        DTSBR309
00454      MOVE R309-LAST-ACCT-UPDATE-DATE TO L001-FED-8-DATE-9.        DTSBR309
00455      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR309
00456      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR309
00457      MOVE L001-SLASH-8-DATE TO WS-LAST-ACCT-UPDATE-DATE.          DTSBR309
00458                                                                   DTSBR309
00459      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR309
00460      PERFORM P4000-PRINT-HEADER THRU P4000-EXIT.                  DTSBR309
00461                                                                   DTSBR309
00462      MOVE 'YOUR ACCOUNT HAS A CREDIT BALANCE OF $'                DTSBR309
00463         TO L090-PHRASE-TABLE (1).                                 DTSBR309
00464                                                                   DTSBR309
00465      MOVE R309-TOT-CREDIT-AMT TO WS-AMT-EDIT.                     DTSBR309
00466      MOVE +0 TO WS-CTR.                                           DTSBR309
00467      INSPECT WS-AMT TALLYING WS-CTR FOR LEADING SPACES.           DTSBR309
00468      MOVE WS-AMT (WS-CTR + 1:) TO L090-PHRASE-TABLE (2).          DTSBR309
00469                                                                   DTSBR309
00470      MOVE '.  YOU EITHER NEED TO DEDUCT THIS AMOUNT'              DTSBR309
00471         TO L090-PHRASE-TABLE (3).                                 DTSBR309
00472      MOVE 'FROM YOUR NEXT UNEMPLOYMENT INSURANCE'                 DTSBR309
00473         TO L090-PHRASE-TABLE (4).                                 DTSBR309
00474      MOVE 'EMPLOYER''S QUARTERLY WAGE REPORT'                     DTSBR309
00475         TO L090-PHRASE-TABLE (5).                                 DTSBR309
00476      MOVE 'OR REQUEST A REFUND.  TO REQUEST A REFUND,'            DTSBR309
00477         TO L090-PHRASE-TABLE (6).                                 DTSBR309
00478      MOVE 'SIGN BELOW AND RETURN THIS FORM TO THE'                DTSBR309
00479         TO L090-PHRASE-TABLE (7).                                 DTSBR309
00480      MOVE 'DISTRICT''S UNEMPLOYMENT INSURANCE DIVISION.'          DTSBR309
00481         TO L090-PHRASE-TABLE (8).                                 DTSBR309
00482                                                                   DTSBR309
00483      MOVE +8 TO L090-PHRASE-CNT.                                  DTSBR309
00484      MOVE +77 TO L090-DESIRED-LINE-LIMIT.                         DTSBR309
00485      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR309
00486                                                                   DTSBR309
00487      PERFORM P7000-PRINT-FOOTING-LINE THRU P7000-EXIT.            DTSBR309
00488      PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT.               DTSBR309
00489                                                                   DTSBR309
00490      PERFORM P9000-PRINT-FOOTING-LINE THRU P9000-EXIT.            DTSBR309
00491                                                                   DTSBR309
00492  P1000-EXIT.                                                      DTSBR309
00493      EXIT.                                                        DTSBR309
00494                                                                   DTSBR309
00495  P2000-SELF-MAILER-RTN.                                           DTSBR309
00496       MOVE R309-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.               DTSBR309
00497       MOVE R309-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.               DTSBR309
00498       MOVE R309-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.               DTSBR309
00499       MOVE R309-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.               DTSBR309
00500       MOVE R309-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.               DTSBR309
00501       PERFORM P8000-PRINT-VSCA-ADDR THRU P8000-EXIT.              DTSBR309
00502  P2000-EXIT.                                                      DTSBR309
00503      EXIT.                                                        DTSBR309
00504                                                                   DTSBR309
00505  P3000-PRINT-HEADER.                                              DTSBR309
00506                                                                   DTSBR309
00507      MOVE R309-EMP-NO       TO BARC-EMP-NO BARC-EMP-NO1.          DTSBR309
00508      MOVE R309-BATCH-NO     TO BARC-BATCH-NO.                     DTSBR309
00509      MOVE R309-ITEM-NO      TO BARC-ITEM-NO.                      DTSBR309
00510      MOVE CONVERT-BARCODE-LINE1           TO L599-INPUT-DATA.     DTSBR309
00511      MOVE LENGTH OF CONVERT-BARCODE-LINE1 TO L599-REC-LENGTH.     DTSBR309
00512      MOVE 'TAX'                           TO L599-SYSTEM.         DTSBR309
00513      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR309
00514                                                                   DTSBR309
00515      MOVE 'MODIFY=TAX309,' TO CNTL1-CME.                          DTSBR309
00516      MOVE 0 TO LINE-CNT.                                          DTSBR309
00517      IF   R309-EMP-TYPE = 'S'                                        CL**4
00518      WRITE XEROX-REPORT1    FROM XEROX-CNTL-LISI18                   CL**4
00519             AFTER ADVANCING TOP-OF-PAGE                              CL**4
00520      ELSE                                                            CL**4
00521      WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE18                   CL**4
00522             AFTER ADVANCING TOP-OF-PAGE.                             CL**4
00523      WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE19.               DTSBR309
00524      WRITE XEROX-REPORT1    FROM XEROX-CNTL-LINE21.               DTSBR309
00525                                                                   DTSBR309
00526      ADD  2 TO LINE-CNT.                                          DTSBR309
00527      MOVE R309-FMT-LINE (1) TO WRK-FMT-LINE-1.                    DTSBR309
00528      MOVE R309-FMT-LINE (2) TO WRK-FMT-LINE-2.                    DTSBR309
00529      MOVE R309-FMT-LINE (3) TO WRK-FMT-LINE-3.                    DTSBR309
00530      MOVE R309-FMT-LINE (4) TO WRK-FMT-LINE-4.                    DTSBR309
00531      MOVE R309-FMT-LINE (5) TO WRK-FMT-LINE-5.                    DTSBR309
00532      MOVE R309-EMP-NO       TO WS-EMP-NO WS-EMP-NO2.              DTSBR309
00533 *    MOVE R309-FEIN         TO WS-EMP-FEIN.                       DTSBR309
00534      MOVE R309-BATCH-NO     TO WS-BATCH-NO WS-BATCH-NO1           DTSBR309
00535                                WS-BATCH-NO2.                      DTSBR309
00536      MOVE R309-ITEM-NO      TO WS-ITEM-NO WS-ITEM-NO1             DTSBR309
00537                                WS-ITEM-NO2.                       DTSBR309
00538      MOVE WS-STMT-DATE      TO WS-STATEMENT-DATE.                 DTSBR309
00539      MOVE R309-TOT-CREDIT-AMT TO WS-CREDIT-AMT.                   DTSBR309
00540      WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING  9 LINE.  DTSBR309
00541      WRITE XEROX-REPORT1 FROM WS-ACCT-INFO AFTER ADVANCING 1 LINE.DTSBR309
00542                                                                   DTSBR309
00543      ADD  9 TO LINE-CNT.                                          DTSBR309
00544      WRITE XEROX-REPORT1 FROM WRK-LINE-13 AFTER ADVANCING 2 LINE. DTSBR309
00545      WRITE XEROX-REPORT1 FROM WRK-LINE-14 AFTER ADVANCING 1 LINE. DTSBR309
00546      WRITE XEROX-REPORT1 FROM WRK-LINE-15 AFTER ADVANCING 1 LINE. DTSBR309
00547      WRITE XEROX-REPORT1 FROM WRK-LINE-16 AFTER ADVANCING 1 LINE. DTSBR309
00548      WRITE XEROX-REPORT1 FROM WRK-LINE-17 AFTER ADVANCING 1 LINE. DTSBR309
00549      WRITE XEROX-REPORT1 FROM WRK-LINE-18 AFTER ADVANCING 1 LINE. DTSBR309
00550      WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 1 LINE.   DTSBR309
00551      MOVE R309-OPID      TO WS-OPID.                              DTSBR309
00552      MOVE  WS-OPID-A     TO OPID-FIRST4.                          DTSBR309
00553      WRITE XEROX-REPORT1 FROM PRINT-OPID  BEFORE ADVANCING 1 LINE.DTSBR309
00554      WRITE XEROX-REPORT1 FROM WRK-LINE-36 AFTER ADVANCING 1 LINE.    CL**8
00555                                                                   DTSBR309
00556      ADD 12 TO LINE-CNT.                                          DTSBR309
00557  P3000-EXIT.                                                      DTSBR309
00558      EXIT.                                                        DTSBR309
00559                                                                   DTSBR309
00560  P4000-PRINT-HEADER.                                              DTSBR309
00561      MOVE WS-PROGRAM-VOICE         TO WS-OPR-VOICE.               DTSBR309
00562      MOVE WS-PROGRAM-FAX           TO WS-OPR-FAX.                 DTSBR309
00563      MOVE WS-OPR-VOICE-1 TO BSH-OPR-VOICE-1 BSF-OPR-VOICE-1.      DTSBR309
00564      MOVE WS-OPR-VOICE-2 TO BSH-OPR-VOICE-2 BSF-OPR-VOICE-2.      DTSBR309
00565      MOVE WS-OPR-FAX-1   TO BSH-OPR-FAX-1 BSF-OPR-FAX-1.          DTSBR309
00566      MOVE WS-OPR-FAX-2   TO BSH-OPR-FAX-2 BSF-OPR-FAX-2.          DTSBR309
00567      MOVE R309-FMT-LINE (1) TO BSH-FMT-LINE-1.                    DTSBR309
00568      MOVE R309-FMT-LINE (2) TO BSH-FMT-LINE-2.                    DTSBR309
00569      MOVE R309-FMT-LINE (3) TO BSH-FMT-LINE-3.                    DTSBR309
00570      MOVE R309-FMT-LINE (4) TO BSH-FMT-LINE-4.                    DTSBR309
00571      MOVE R309-FMT-LINE (5) TO BSH-FMT-LINE-5.                    DTSBR309
00572      MOVE R309-EMP-NO       TO BSH-EMP-NO.                        DTSBR309
00573      MOVE R309-FEIN         TO BSH-EMP-FEIN.                      DTSBR309
00574      MOVE WS-STMT-DATE      TO BSH-STMT-DATE.                     DTSBR309
00575      WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER                     DTSBR309
00576              ADVANCING TOP-OF-PAGE.                               DTSBR309
00577      WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 6 LINE.   DTSBR309
00578      WRITE XEROX-REPORT2 FROM BSH-LINE-8  AFTER ADVANCING 1 LINE. DTSBR309
00579      WRITE XEROX-REPORT2 FROM BSH-LINE-9  AFTER ADVANCING 1 LINE. DTSBR309
00580      WRITE XEROX-REPORT2 FROM BSH-LINE-10 AFTER ADVANCING 1 LINE. DTSBR309
00581      WRITE XEROX-REPORT2 FROM BSH-LINE-11 AFTER ADVANCING 1 LINE. DTSBR309
00582      WRITE XEROX-REPORT2 FROM BSH-LINE-12 AFTER ADVANCING 1 LINE. DTSBR309
00583      WRITE XEROX-REPORT2 FROM BSH-LINE-13 AFTER ADVANCING 1 LINE. DTSBR309
00584      WRITE XEROX-REPORT2 FROM BSH-LINE-14 AFTER ADVANCING 1 LINE. DTSBR309
00585      WRITE XEROX-REPORT2 FROM BSH-LINE-15 AFTER ADVANCING 1 LINE. DTSBR309
00586      WRITE XEROX-REPORT2 FROM BSH-LINE-16 AFTER ADVANCING 1 LINE. DTSBR309
00587      WRITE XEROX-REPORT2 FROM BSH-LINE-17 AFTER ADVANCING 1 LINE. DTSBR309
00588      WRITE XEROX-REPORT2 FROM BSH-LINE-18 AFTER ADVANCING 1 LINE. DTSBR309
00589      WRITE XEROX-REPORT2 FROM BSH-LINE-19 AFTER ADVANCING 1 LINE. DTSBR309
00590      WRITE XEROX-REPORT2 FROM BSH-LINE-20 AFTER ADVANCING 1 LINE. DTSBR309
00591      WRITE XEROX-REPORT2 FROM BSH-LINE-21 AFTER ADVANCING 1 LINE. DTSBR309
00592      WRITE XEROX-REPORT2 FROM BSH-LINE-22 AFTER ADVANCING 1 LINE. DTSBR309
00593                                                                   DTSBR309
00594  P4000-EXIT.                                                      DTSBR309
00595      EXIT.                                                        DTSBR309
00596                                                                   DTSBR309
00597  P7000-PRINT-FOOTING-LINE.                                        DTSBR309
00598                                                                   DTSBR309
00599      MOVE WS-LAST-ACCT-UPDATE-DATE TO WRK-LAST-ACCT-UPD-DATE.     DTSBR309
00600      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE1.              DTSBR309
00601                                                                   DTSBR309
00602      WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING  09 LINE. DTSBR309
00603 *    WRITE XEROX-REPORT1 FROM WS-BARC-LINE1 AFTER                 DTSBR309
00604 *                             ADVANCING  1 LINE.                  DTSBR309
00605      WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING   6 LINE. DTSBR309
00606      WRITE XEROX-REPORT1 FROM WS-ACCT-INFO AFTER ADVANCING 2 LINE.DTSBR309
00607      INITIALIZE WS-ACCT-INFO.                                     DTSBR309
00608                                                                   DTSBR309
00609  P7000-EXIT.                                                      DTSBR309
00610      EXIT.                                                        DTSBR309
00611                                                                   DTSBR309
00612  P8000-PRINT-VSCA-ADDR.                                           DTSBR309
00613 *PUT ACCT, BAT, & ITEM THERE                                      DTSBR309
00614      MOVE CONVERT-BARCODE-LINE            TO L599-INPUT-DATA.     DTSBR309
00615      MOVE LENGTH OF CONVERT-BARCODE-LINE  TO L599-REC-LENGTH.     DTSBR309
00616 *                                                                 DTSBR309
00617      MOVE 'TAX'                           TO L599-SYSTEM.         DTSBR309
00618      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR309
00619                                                                   DTSBR309
00620      IF L599-SETB-FONT1                                           DTSBR309
00621         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME                        DTSBR309
00622      ELSE                                                         DTSBR309
00623      IF L599-SETB-FONT2                                           DTSBR309
00624         MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME                        DTSBR309
00625      ELSE                                                         DTSBR309
00626         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME.                       DTSBR309
00627                                                                   DTSBR309
00628 *RW1                                                              DTSBR309
00629      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR309
00630                                                                   DTSBR309
00631       MOVE SPACES             TO WS-REC.                          DTSBR309
00632                                                                   DTSBR309
00633      WRITE XEROX-REPORT1    FROM WS-REC                           DTSBR309
00634             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR309
00635                                                                   DTSBR309
00636      WRITE XEROX-REPORT1 FROM WS-BARC-LINE AFTER 04.              DTSBR309
00637                                                                   DTSBR309
00638 *2   WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 09 LINE.  DTSBR309
00639      WRITE XEROX-REPORT1 FROM VSCA-LINE AFTER ADVANCING 07 LINE.  DTSBR309
00640 *RW2                                                              DTSBR309
00641      WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-17                   DTSBR309
00642              AFTER ADVANCING 1 LINE.                              DTSBR309
00643      WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-18                   DTSBR309
00644              AFTER ADVANCING 1 LINE.                              DTSBR309
00645      WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-19                   DTSBR309
00646              AFTER ADVANCING 1 LINE.                              DTSBR309
00647      WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-20                   DTSBR309
00648              AFTER ADVANCING 1 LINE.                              DTSBR309
00649      WRITE XEROX-REPORT1 FROM VSCA-ADDR-LINE-21                   DTSBR309
00650              AFTER ADVANCING 1 LINE.                              DTSBR309
00651                                                                   DTSBR309
00652  P8000-EXIT.                                                      DTSBR309
00653      EXIT.                                                        DTSBR309
00654                                                                   DTSBR309
00655  P9000-PRINT-FOOTING-LINE.                                        DTSBR309
00656                                                                   DTSBR309
00657      MOVE L090-PARAGRAPH-LINE (1) TO BSF-PARA-LINE-1.             DTSBR309
00658      MOVE L090-PARAGRAPH-LINE (2) TO BSF-PARA-LINE-2.             DTSBR309
00659      MOVE L090-PARAGRAPH-LINE (3) TO BSF-PARA-LINE-3.             DTSBR309
00660      MOVE L090-PARAGRAPH-LINE (4) TO BSF-PARA-LINE-4.             DTSBR309
00661      MOVE WS-LAST-ACCT-UPDATE-DATE TO BSF-LAST-ACCT-UPD-DATE.     DTSBR309
00662                                                                   DTSBR309
00663      WRITE XEROX-REPORT2 FROM BSF-LINE-24 AFTER ADVANCING 1 LINE. DTSBR309
00664      WRITE XEROX-REPORT2 FROM BSF-LINE-25 AFTER ADVANCING 1 LINE. DTSBR309
00665      WRITE XEROX-REPORT2 FROM BSF-LINE-26 AFTER ADVANCING 1 LINE. DTSBR309
00666      WRITE XEROX-REPORT2 FROM BSF-LINE-27 AFTER ADVANCING 1 LINE. DTSBR309
00667      WRITE XEROX-REPORT2 FROM BSF-LINE-28 AFTER ADVANCING 1 LINE. DTSBR309
00668      WRITE XEROX-REPORT2 FROM BSF-LINE-29 AFTER ADVANCING 1 LINE. DTSBR309
00669      WRITE XEROX-REPORT2 FROM BSF-LINE-30 AFTER ADVANCING 1 LINE. DTSBR309
00670      WRITE XEROX-REPORT2 FROM BSF-LINE-31 AFTER ADVANCING 1 LINE. DTSBR309
00671      WRITE XEROX-REPORT2 FROM BSF-LINE-32 AFTER ADVANCING 1 LINE. DTSBR309
00672      WRITE XEROX-REPORT2 FROM BSF-LINE-33 AFTER ADVANCING 1 LINE. DTSBR309
00673      WRITE XEROX-REPORT2 FROM BSF-LINE-34 AFTER ADVANCING 1 LINE. DTSBR309
00674      WRITE XEROX-REPORT2 FROM BSF-LINE-35 AFTER ADVANCING 1 LINE. DTSBR309
00675      WRITE XEROX-REPORT2 FROM BSF-LINE-36 AFTER ADVANCING 1 LINE. DTSBR309
00676      WRITE XEROX-REPORT2 FROM BSF-LINE-37 AFTER ADVANCING 1 LINE. DTSBR309
00677      WRITE XEROX-REPORT2 FROM BSF-LINE-38 AFTER ADVANCING 1 LINE. DTSBR309
00678      WRITE XEROX-REPORT2 FROM BSF-LINE-39 AFTER ADVANCING 1 LINE. DTSBR309
00679      WRITE XEROX-REPORT2 FROM BSF-LINE-40 AFTER ADVANCING 1 LINE. DTSBR309
00680      WRITE XEROX-REPORT2 FROM BSF-LINE-41 AFTER ADVANCING 1 LINE. DTSBR309
00681      WRITE XEROX-REPORT2 FROM BSF-LINE-42 AFTER ADVANCING 1 LINE. DTSBR309
00682      WRITE XEROX-REPORT2 FROM BSF-LINE-43 AFTER ADVANCING 1 LINE. DTSBR309
00683      WRITE XEROX-REPORT2 FROM BSF-LINE-44 AFTER ADVANCING 1 LINE. DTSBR309
00684      WRITE XEROX-REPORT2 FROM BSF-LINE-45 AFTER ADVANCING 1 LINE. DTSBR309
00685      WRITE XEROX-REPORT2 FROM BSF-LINE-46 AFTER ADVANCING 1 LINE. DTSBR309
00686      WRITE XEROX-REPORT2 FROM BSF-LINE-47 AFTER ADVANCING 1 LINE. DTSBR309
00687      WRITE XEROX-REPORT2 FROM BSF-LINE-48 AFTER ADVANCING 1 LINE. DTSBR309
00688      WRITE XEROX-REPORT2 FROM BSF-LINE-49 AFTER ADVANCING 1 LINE. DTSBR309
00689      WRITE XEROX-REPORT2 FROM BSF-LINE-50 AFTER ADVANCING 1 LINE. DTSBR309
00690      WRITE XEROX-REPORT2 FROM BSF-LINE-51 AFTER ADVANCING 1 LINE. DTSBR309
00691      WRITE XEROX-REPORT2 FROM BSF-LINE-52 AFTER ADVANCING 1 LINE. DTSBR309
00692      WRITE XEROX-REPORT2 FROM BSF-LINE-53 AFTER ADVANCING 1 LINE. DTSBR309
00693      WRITE XEROX-REPORT2 FROM BSF-LINE-54 AFTER ADVANCING 1 LINE. DTSBR309
00694      WRITE XEROX-REPORT2 FROM BSF-LINE-55 AFTER ADVANCING 1 LINE. DTSBR309
00695      WRITE XEROX-REPORT2 FROM BSF-LINE-56 AFTER ADVANCING 1 LINE. DTSBR309
00696      WRITE XEROX-REPORT2 FROM BSF-LINE-57 AFTER ADVANCING 1 LINE. DTSBR309
00697      WRITE XEROX-REPORT2 FROM BSF-LINE-58 AFTER ADVANCING 1 LINE. DTSBR309
00698      WRITE XEROX-REPORT2 FROM BSF-LINE-59 AFTER ADVANCING 1 LINE. DTSBR309
00699                                                                   DTSBR309
00700  P9000-EXIT.                                                      DTSBR309
00701      EXIT.                                                        DTSBR309
00702                                                                   DTSBR309
00703  T1000-TERMINATE.                                                 DTSBR309
00704                                                                   DTSBR309
00705      CLOSE  MAILROOM-PRT-FILE                                     DTSBR309
00706             BUREAU-PRT-FILE.                                      DTSBR309
00707      SKIP2                                                        DTSBR309
00708  T1000-EXIT.                                                      DTSBR309
00709      EXIT.                                                        DTSBR309
00710      EJECT                                                        DTSBR309
00711  S001-DATE.                                                       DTSBR309
00712      SKIP1                                                        DTSBR309
00713      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR309
00714      SKIP2                                                        DTSBR309
00715  S001-EXIT.                                                       DTSBR309
00716      EXIT.                                                        DTSBR309
00717      SKIP3                                                        DTSBR309
00718  S090-PARAGRAPH-FORMAT.                                           DTSBR309
00719      SKIP1                                                        DTSBR309
00720      MOVE +0 TO L090-INDENT.                                      DTSBR309
00721      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR309
00722                                                                   DTSBR309
00723      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR309
00724      SKIP2                                                        DTSBR309
00725  S090-EXIT.                                                       DTSBR309
00726      EXIT.                                                        DTSBR309
00727      SKIP3                                                        DTSBR309
00728  S119-AGENCY-FACTS.                                               DTSBR309
00729      SKIP1                                                        DTSBR309
00730      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR309
00731      SKIP2                                                        DTSBR309
00732  S119-EXIT.                                                       DTSBR309
00733      EXIT.                                                        DTSBR309
00734      SKIP3                                                        DTSBR309
00735  S599-BARCODE.                                                    DTSBR309
00736 *RW  MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR309
00737 *    MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR309
00738 *RW  MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR309
00739                                                                   DTSBR309
00740      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR309
00741                                                                   DTSBR309
00742      IF L599-NOT-CONVERTED                                        DTSBR309
00743       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR309
00744  S599-EXIT.                                                       DTSBR309
00745      EXIT.                                                        DTSBR309
00746      SKIP3                                                        DTSBR309
00747  S999-ABEND.                                                      DTSBR309
00748      SKIP1                                                        DTSBR309
00749      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR309
00750      SKIP2                                                        DTSBR309
00751  S999-EXIT.                                                       DTSBR309
00752      EXIT.                                                        DTSBR309
