00001  IDENTIFICATION DIVISION.                                         04/07/10
00002  PROGRAM-ID.             DTSBR433.                                DTSBR433
00003  AUTHOR.                 ngi.                                        LV003
00004  DATE-WRITTEN.           May 2009.                                DTSBR433
00005  DATE-COMPILED.                                                   DTSBR433
00006      SKIP3                                                        DTSBR433
00007 *****                                                             DTSBR433
00008 *    CALLING SEQUENCE:                                            DTSBR433
00009 *                                                                 DTSBR433
00010 *                       DTSBR433 READS DTSIR433 RECORDS.          DTSBR433
00011 *                                                                 DTSBR433
00012 *    FUNCTION:  self insured second delinquest notice             DTSBR433
00013 *                                                                 DTSBR433
00014 *                                                                 DTSBR433
00015 *    MODIFICATION HISTORY:                                        DTSBR433
00016 *                                                                 DTSBR433
00017 * 05-21-09 created program to print self insured delinquent       DTSBR433
00018 *          notice.                                                DTSBR433
00019 *          REFERENCE XXXXXXXXX                   PROGRAMMER: zl1  DTSBR433
00020 *                                                                 DTSBR433
00021 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR433
00022 *          XXXXXXXXXXXX.                                          DTSBR433
00023 *          REFERENCE XXXXXXXXX                   PROGRAMMER: XXX  DTSBR433
00024 *                                                                 DTSBR433
00025 *    DESCRIPTION:                                                 DTSBR433
00026 *                                                                 DTSBR433
00027 *        THIS MODULE PRINTS self insured delinquent notice        DTSBR433
00028 *                                                                 DTSBR433
00029 *                                                                 DTSBR433
00030 *    RECORDS READ:                                                DTSBR433
00031 *                                                                 DTSBR433
00032 *        NONE.                                                    DTSBR433
00033 *                                                                 DTSBR433
00034 *                                                                 DTSBR433
00035 *    PRINTED OUTPUTS:                                             DTSBR433
00036 *                                                                 DTSBR433
00037 *        433R1  self insured second notice                        DTSBR433
00038 * 433r2  management report for view direct                        DTSBR433
00039 *                                                                 DTSBR433
00040 *    RECORDS WRITTEN:                                             DTSBR433
00041 *                                                                 DTSBR433
00042 *        NONE.                                                    DTSBR433
00043 *                                                                 DTSBR433
00044 *                                                                 DTSBR433
00045 *    MODULES CALLED:                                              DTSBR433
00046 *                                                                 DTSBR433
00047 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR433
00048 *        DTSBU002 DATE ALPHA CONVERSION MODULE.                   DTSBR433
00049 *                                                                 DTSBR433
00050 *****                                                             DTSBR433
00051      EJECT                                                        DTSBR433
00052  ENVIRONMENT DIVISION.                                            DTSBR433
00053      SKIP2                                                        DTSBR433
00054  CONFIGURATION SECTION.                                           DTSBR433
00055  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR433
00056      SKIP1                                                        DTSBR433
00057  INPUT-OUTPUT SECTION.                                            DTSBR433
00058      SKIP1                                                        DTSBR433
00059  FILE-CONTROL.                                                    DTSBR433
00060      SELECT PRT-FILE1 ASSIGN TO RPT433R1.                         DTSBR433
00061      SELECT PRT-FILE2 ASSIGN TO RPT433R2.                         DTSBR433
00062      SKIP3                                                        DTSBR433
00063  DATA DIVISION.                                                   DTSBR433
00064      SKIP3                                                        DTSBR433
00065  FILE SECTION.                                                    DTSBR433
00066      SKIP2                                                        DTSBR433
00067  FD  PRT-FILE1                                                    DTSBR433
00068      RECORDING MODE IS F                                          DTSBR433
00069      BLOCK CONTAINS 0 RECORDS                                     DTSBR433
00070      LABEL RECORDS ARE OMITTED.                                   DTSBR433
00071  01  XEROX-REPORT.                                                DTSBR433
00072      05  FILLER                      PIC X(1).                    DTSBR433
00073      05  XEROX-RPT                   PIC X(132).                  DTSBR433
00074      EJECT                                                        DTSBR433
00075  FD  PRT-FILE2                                                    DTSBR433
00076      RECORDING MODE IS F                                          DTSBR433
00077      BLOCK CONTAINS 0 RECORDS                                     DTSBR433
00078      LABEL RECORDS ARE OMITTED.                                   DTSBR433
00079  01  vd-REPORT.                                                   DTSBR433
00080      05  vd-RPT                   PIC X(132).                     DTSBR433
00081                                                                   DTSBR433
00082                                                                   DTSBR433
00083  WORKING-STORAGE SECTION.                                         DTSBR433
000835 77  PAN-VALET PICTURE X(24) VALUE '003DTSBR433  04/07/10'.       DTSBR433
00084      SKIP3                                                        DTSBR433
00085  01  WRK-AREA.                                                    DTSBR433
00086      05  ws-PAGE-NO                  PIC S9(04)  COMP  VALUE +0.  DTSBR433
00087      05  ws-line-cnt                 PIC S9(04)  COMP  VALUE +66. DTSBR433
00088      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +316.DTSBR433
00089      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR433
00090      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR433
00091      SKIP3                                                        DTSBR433
00092  01  VSCA-LINE.                                                   DTSBR433
00093      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR433
00094  01  WRK-EMP-NO                      PIC  9(06) VALUE ZEROS.      DTSBR433
00095  01  ws-stub-balance-amt           PIC s9(09)v9(02) value 0.      DTSBR433
00096      SKIP1                                                        DTSBR433
00097  01  L001-LINK-AREA.                                              DTSBR433
00098  ++INCLUDE DTSIL001                                               DTSBR433
00099      EJECT                                                        DTSBR433
00100  01  L002-LINK-AREA.                                              DTSBR433
00101  ++INCLUDE DTSIL002                                               DTSBR433
00102      EJECT                                                        DTSBR433
00103  01  L004-LINK-AREA.                                              DTSBR433
00104  ++INCLUDE DTSIL004                                               DTSBR433
00105      EJECT                                                        DTSBR433
00106  ++INCLUDE DTSXL433                                               DTSBR433
00107      SKIP3                                                        DTSBR433
00108  01  BILL-LINE6.                                                  DTSBR433
00109       05  STUB-LINE.                                              DTSBR433
00110           10  FILLER                  PIC  X(04)  VALUE SPACES.   DTSBR433
00111           10  STUB-EMP-NO             PIC  999B999.               DTSBR433
00112           10  FILLER                  PIC  X(03)  VALUE SPACES.   DTSBR433
00113           10  STUB-EMP-FEIN           PIC  99B9999999.            DTSBR433
00114           10  FILLER                  PIC  X(04)  VALUE SPACES.   DTSBR433
00115           10  STUB-STMT-DATE          PIC  X(10).                 DTSBR433
00116           10  FILLER                  PIC  X(06)  VALUE SPACES.   DTSBR433
00117           10  STUB-COMP-DATE          PIC  X(10).                 DTSBR433
00118           10  FILLER                  PIC  X(07)  VALUE SPACES.   DTSBR433
00119           10  STUB-AMT                PIC  $,$$$,$$$.$$.          DTSBR433
00120       05  ADDR01.                                                 DTSBR433
00121           10  FILLER                  PIC  X(01)  VALUE SPACE.    DTSBR433
00122           10  FILLER                  PIC  X(27)  VALUE SPACES.   DTSBR433
00123           10  STUB-ADDR-LINE1         PIC  X(40).                 DTSBR433
00124           10  FILLER                  PIC  X(23)  value spaces.   DTSBR433
00125       05  ADDR02.                                                 DTSBR433
00126            10  FILLER                  PIC  X(01)  VALUE SPACE.   DTSBR433
00127            10  FILLER                  PIC  X(27)  VALUE SPACES.  DTSBR433
00128            10  STUB-ADDR-LINE2         PIC  X(40).                DTSBR433
00129            10  FILLER                  PIC  X(23)  value spaces.  DTSBR433
00130       05  ADDR03.                                                 DTSBR433
00131            10  FILLER                  PIC  X(01)  VALUE SPACE.   DTSBR433
00132            10  FILLER                  PIC  X(27)  VALUE SPACES.  DTSBR433
00133            10  STUB-ADDR-LINE3         PIC  X(40).                DTSBR433
00134            10  FILLER                  PIC  X(23)  value spaces.  DTSBR433
00135       05  ADDR04.                                                 DTSBR433
00136            10  FILLER                  PIC  X(01)  VALUE SPACE.   DTSBR433
00137            10  FILLER                  PIC  X(27)  VALUE SPACES.  DTSBR433
00138            10  STUB-ADDR-LINE4         PIC  X(40).                DTSBR433
00139            10  FILLER                  PIC  X(32)  VALUE SPACES.  DTSBR433
00140       05  ADDR05.                                                 DTSBR433
00141            10  FILLER                  PIC  X(01)  VALUE SPACE.   DTSBR433
00142            10  FILLER                  PIC  X(27)  VALUE SPACES.  DTSBR433
00143            10  STUB-ADDR-LINE5         PIC  X(40).                DTSBR433
00144            10  FILLER                  PIC  X(32)  VALUE SPACES.  DTSBR433
00145       05  STMT-LINE1.                                             DTSBR433
00146           10  FILLER                  PIC  X(03)  VALUE SPACES.   DTSBR433
00147           10  STMT-EMP-NO             PIC  999B999.               DTSBR433
00148           10  FILLER                  PIC  X(03)  VALUE SPACES.   DTSBR433
00149           10  STMT-NAME-CHEck         PIC  X(04).                 DTSBR433
00150           10  FILLER                  PIC  X(04)  VALUE SPACES.   DTSBR433
00151           10  STMT-EMP-FEIN           PIC  99B9999999.            DTSBR433
00152           10  FILLER                  PIC  X(03)  VALUE SPACES.   DTSBR433
00153           10  STMT-STMT-DATE          PIC  X(10).                 DTSBR433
00154           10  FILLER                  PIC  X(04)  VALUE SPACES.   DTSBR433
00155           10  STMT-COMP-DATE          PIC  X(10).                 DTSBR433
00156           10  FILLER                  PIC  X(06)  VALUE SPACES.   DTSBR433
00157       05  STMT-QTR-DETAIL.                                        DTSBR433
00158           10  FILLER                  PIC  X(03)  VALUE SPACE.    DTSBR433
00159           10  QTR-DET-YR.                                         DTSBR433
00160               15  QTR-DET-YR1         PIC  X(06).                 DTSBR433
00161               15  QTR-DET-YR2         PIC  X(03).                 DTSBR433
00162           10  FILLER                  PIC  X(02).                 DTSBR433
00163           10  DET-CONTRIB-AMT         PIC  zZ,ZZZ,ZZZ.ZZ.         DTSBR433
00164           10  FILLER                  PIC  X(02).                 DTSBR433
00165           10  DET-sur-AMT             PIC  ZZZ,ZZZ.ZZ.            DTSBR433
00166           10  FILLER                  PIC  X(04).                 DTSBR433
00167           10  DET-INTEREST-AMT        PIC  ZZZ,ZZZ.ZZ.            DTSBR433
00168           10  FILLER                  PIC  X(03).                 DTSBR433
00169           10  DET-PENALTY-AMT         PIC  ZZZ,ZZZ.ZZ.            DTSBR433
00170           10  FILLER                  PIC  X(10).                 DTSBR433
00171           10  DET-balance-AMT         PIC  Z,ZZZ,ZZZ.ZZ.          DTSBR433
00172           10  FILLER                  PIC  X(02).                 DTSBR433
00173       05  STMT-TOTAL-LINE.                                        DTSBR433
00174            10  FILLER                  PIC  X(74)  VALUE SPACE.   DTSBR433
00175            10  TOTAL-BALANCE-AMT       PIC  $$$,$$$,$$$.$$.       DTSBR433
00176            10  FILLER                  PIC  X(02)  VALUE SPACES.  DTSBR433
00177  01  RPT-LINE-1.                                                  DTSBR433
00178          10  FILLER                  PIC X(04) VALUE SPACE.       DTSBR433
00179          10  WS-EMP-NO               PIC  999B999.                DTSBR433
00180          10  FILLER                  PIC X(04) VALUE SPACE.       DTSBR433
00181          10  WS-EMP-NAME             PIC X(40).                   DTSBR433
00182          10  FILLER                  PIC  X(05) VALUE SPACE.      DTSBR433
00183          10  WS-TAX-DUE              PIC  Z,ZZZ,ZZ9.99.           DTSBR433
00184          10  WS-sur-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR433
00185          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR433
00186          10  WS-PEN-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR433
00187          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR433
00188          10  WS-INT-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR433
00189          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR433
00190          10  WS-TOTAL-DUE            PIC  Z,ZZZ,ZZ9.99.           DTSBR433
00191      SKIP2                                                        DTSBR433
00192  01  RPT-DETAIL-HEADER-AREA.                                      DTSBR433
00193      05  RPT-DETAIL-HDR1.                                         DTSBR433
00194          10 FILLER                   PIC X VALUE SPACE.           DTSBR433
00195          10 FILLER                   PIC X(08)                    DTSBR433
00196             VALUE 'DTSBR433'.                                     DTSBR433
00197          10 FILLER                   PIC X(40)  VALUE SPACES.     DTSBR433
00198          10 FILLER                   PIC X(33)                    DTSBR433
00199             VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES'.            DTSBR433
00200          10 FILLER                   PIC X(33)  VALUE SPACES.     DTSBR433
00201          10 FILLER                   PIC X(09)                    DTSBR433
00202             VALUE 'PAGE NO.:'.                                    DTSBR433
00203          10 RPT-DTL-PAGE-NO          PIC ZZZ99.                   DTSBR433
00204      05  RPT-DETAIL-HDR2.                                         DTSBR433
00205          10 FILLER                 PIC X(01)  VALUE SPACES.       DTSBR433
00206          10 FILLER                 PIC X(09)  VALUE 'QUARTER: '.  DTSBR433
00207          10  WS-YRQ                PIC  X(06).                    DTSBR433
00208          10 FILLER                 PIC X(30)  VALUE SPACES.       DTSBR433
00209          10 H2-RPT-TYPE            PIC X(40)  VALUE               DTSBR433
00210              'SECOND NOTICE FOR REIMBURSABLE EMPLOYERS'.          DTSBR433
00211          10 FILLER                 PIC X(22)  VALUE SPACES.       DTSBR433
00212          10 FILLER                 PIC X(13)                      DTSBR433
00213             VALUE '   RUN DATE: '.                                DTSBR433
00214          10 hdr1-date                PIC X(10).                   DTSBR433
00215      05  RPT-DETAIL-HDR3.                                         DTSBR433
00216          10 FILLER                 PIC X(04)  VALUE SPACES.       DTSBR433
00217          10 FILLER                 PIC X(09)  VALUE 'emp no   '.  DTSBR433
00218          10 FILLER                 PIC X(02)  VALUE SPACES.       DTSBR433
00219          10 FILLER                 PIC X(09)  VALUE 'emp name '.  DTSBR433
00220          10 FILLER                 PIC X(41)  VALUE SPACES.       DTSBR433
00221          10 FILLER                 PIC X(09)  VALUE 'tax due  '.  DTSBR433
00222          10 FILLER                 PIC X(03)  VALUE spaces.       DTSBR433
00223          10 FILLER                 PIC X(09)  VALUE 'sur tax  '.  DTSBR433
00224          10 FILLER                 PIC X(04)  VALUE spaces.       DTSBR433
00225          10 FILLER                 PIC X(09)  VALUE ' interest'.  DTSBR433
00226          10 FILLER                 PIC X(08)  VALUE SPACES.       DTSBR433
00227          10 FILLER                 PIC X(07) VALUE 'penalty'.     DTSBR433
00228          10 FILLER                 PIC X(08)  VALUE SPACES.       DTSBR433
00229          10 FILLER                 PIC X(07) VALUE 'balance'.     DTSBR433
00230  01  L101-LINK-AREA.                                              DTSBR433
00231  ++INCLUDE DTSIL101                                               DTSBR433
00232  01  L005-LINK-AREA.                                              DTSBR433
00233  ++INCLUDE DTSIL005                                               DTSBR433
00234  01  MQTR-REC.                                                    DTSBR433
00235  ++INCLUDE DTSIMQTR                                               DTSBR433
00236      EJECT                                                        DTSBR433
00237 *RW1                                                              DTSBR433
00238  01  CONVERT-BARCODE-LINE.                                        DTSBR433
00239      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR433
00240                                                                   DTSBR433
00241  01  WS-BARC-LINE.                                                DTSBR433
00242      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR433
00243      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR433
00244      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR433
00245                                                                   DTSBR433
00246  01  BARI-LINK-AREA.                                              DTSBR433
00247  ++INCLUDE BARIL599                                               DTSBR433
00248      SKIP3                                                        DTSBR433
00249 *RW2                                                              DTSBR433
00250  LINKAGE SECTION.                                                 DTSBR433
00251      SKIP3                                                        DTSBR433
00252  01  LRCM-LINK-AREA.                                              DTSBR433
00253  ++INCLUDE DTSILRCM                                               DTSBR433
00254  01  R433-REC.                                                    DTSBR433
00255  ++INCLUDE DTSIR433                                               DTSBR433
00256  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR433
00257                           R433-REC.                               DTSBR433
00258      SKIP2                                                        DTSBR433
00259      IF FIRST-TIME-IND = 'Y'                                      DTSBR433
00260          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR433
00261          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR433
00262      SKIP1                                                        DTSBR433
00263      IF LRCM-EOR-88                                               DTSBR433
00264          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR433
00265      ELSE                                                         DTSBR433
00266          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR433
00267      SKIP2                                                        DTSBR433
00268      GOBACK.                                                      DTSBR433
00269      EJECT                                                        DTSBR433
00270  I1000-INITIATE.                                                  DTSBR433
00271                                                                   DTSBR433
00272      OPEN OUTPUT PRT-FILE1 prt-file2.                             DTSBR433
00273      MOVE SPACES TO XEROX-REPORT.                                 DTSBR433
00274                                                                   DTSBR433
00275       PERFORM S005-FROM-SYS   THRU S005-EXIT.                     DTSBR433
00276       MOVE L005-SLASH-DATE  TO HDR1-DATE.                         DTSBR433
00277                                                                   DTSBR433
00278  I1000-EXIT.                                                      DTSBR433
00279      EXIT.                                                        DTSBR433
00280      EJECT                                                        DTSBR433
00281  P1000-PROCESS.                                                   DTSBR433
00282                                                                   DTSBR433
00283        MOVE R433-EMP-NO        TO STUB-EMP-NO                     DTSBR433
00284                                   STMT-EMP-NO                     DTSBR433
00285                                   ws-emp-no.                      DTSBR433
00286        MOVE R433-FEIN          TO STUB-EMP-FEIN                   DTSBR433
00287                                   STMT-EMP-FEIN.                  DTSBR433
00288        move r433-ui-tax        TO DET-CONTRIB-AMT                 DTSBR433
00289                                   ws-tax-due.                     DTSBR433
00290        move r433-sur-tax        TO DET-sur-AMT                    DTSBR433
00291                                   ws-sur-charged-amt.             DTSBR433
00292        move r433-INTEREST      TO DET-INTEREST-AMT                DTSBR433
00293                                   ws-int-charged-amt.             DTSBR433
00294        move r433-PENALTY       TO DET-PENALTY-AMT                 DTSBR433
00295                                   ws-pen-charged-amt.             DTSBR433
00296        compute ws-STUB-BALANCE-AMT = r433-ui-tax +                DTSBR433
00297          r433-sur-tax +  r433-interest + r433-penalty.            DTSBR433
00298                                                                   DTSBR433
00299        MOVE WS-STUB-BALANCE-AMT   TO STUB-AMT                     DTSBR433
00300                                      total-balance-amt            DTSBR433
00301                                      DET-balance-amt              DTSBR433
00302                                      ws-total-due.                DTSBR433
00303        SET L001-FROM-FED-8 TO TRUE.                               DTSBR433
00304        MOVE R433-STMT-DATE     TO L001-FED-8-DATE-9.              DTSBR433
00305        PERFORM S001-FROM-FED-8 THRU S001-EXIT.                    DTSBR433
00306        MOVE L001-SLASH-8-DATE  TO STUB-STMT-DATE                  DTSBR433
00307                                   STMT-STMT-DATE.                 DTSBR433
00308                                                                   DTSBR433
00309      MOVE R433-qtr       TO L004-QTR-5-9.                         DTSBR433
00310      SET L004-FROM-5 TO TRUE.                                     DTSBR433
00311      PERFORM S004-FROM-QTR THRU S004-EXIT.                        DTSBR433
00312      MOVE L004-SLASH-5-QTR  TO WS-YRQ qtr-det-yr.                 DTSBR433
00313                                                                   DTSBR433
00314      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR433
00315      MOVE R433-COMP-DATE     TO L001-FED-8-DATE-9.                DTSBR433
00316      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR433
00317                                                                   DTSBR433
00318      IF L001-INVALID-DATE                                         DTSBR433
00319          MOVE SPACES            TO STUB-COMP-DATE                 DTSBR433
00320                                    STMT-COMP-DATE                 DTSBR433
00321      ELSE                                                         DTSBR433
00322          MOVE L001-SLASH-8-DATE TO STUB-COMP-DATE                 DTSBR433
00323                                    STMT-COMP-DATE.                DTSBR433
00324                                                                   DTSBR433
00325      MOVE R433-FMT-LINE (1)     TO STUB-ADDR-LINE1                DTSBR433
00326                                    MAIL-ADDR-LINE1                DTSBR433
00327                                    WS-EMP-NAME                    DTSBR433
00328                                    stmt-name-check.               DTSBR433
00329      MOVE R433-FMT-LINE (2)     TO STUB-ADDR-LINE2                DTSBR433
00330                                    MAIL-ADDR-LINE2.               DTSBR433
00331      MOVE R433-FMT-LINE (3)     TO STUB-ADDR-LINE3                DTSBR433
00332                                    MAIL-ADDR-LINE3.               DTSBR433
00333      MOVE R433-FMT-LINE (4)     TO STUB-ADDR-LINE4                DTSBR433
00334                                    MAIL-ADDR-LINE4.               DTSBR433
00335      MOVE R433-FMT-LINE (5)     TO STUB-ADDR-LINE5                DTSBR433
00336                                    MAIL-ADDR-LINE5.               DTSBR433
00337      MOVE r433-ui-tax          to WS-TAX-DUE.                     DTSBR433
00338      MOVE R433-interest        TO WS-PEN-CHARGED-AMT.             DTSBR433
00339      MOVE R433-penalty         TO WS-INT-CHARGED-AMT.             DTSBR433
00340                                                                   DTSBR433
00341      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR433
00342      PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT.               DTSBR433
00343      PERFORM P4000-PRINT-rpt  THRU P4000-EXIT.                    DTSBR433
00344      SKIP1                                                        DTSBR433
00345  P1000-EXIT.                                                      DTSBR433
00346      EXIT.                                                        DTSBR433
00347                                                                   DTSBR433
00348                                                                   DTSBR433
00349  P2000-PRINT-HEADER.                                              DTSBR433
00350                                                                   DTSBR433
00351      MOVE R433-EMP-NO       TO BARC-EMP-NO.                       DTSBR433
00352      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR433
00353                                                                   DTSBR433
00354      IF L599-SETB-FONT1                                           DTSBR433
00355         MOVE 'MODIFY=TAXSM1,' TO xerox-CME                        DTSBR433
00356      ELSE                                                         DTSBR433
00357      IF L599-SETB-FONT2                                           DTSBR433
00358         MOVE 'MODIFY=TAXSM2,' TO xerox-CME                        DTSBR433
00359      ELSE                                                         DTSBR433
00360         MOVE 'MODIFY=TAXSM1,' TO xerox-CME.                       DTSBR433
00361                                                                   DTSBR433
00362      move  XEROX-8x11-line  to ws-rec.                            DTSBR433
00363      WRITE XEROX-REPORT     FROM ws-rec                           DTSBR433
00364             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR433
00365      move  XEROX-CNTL-LINE2 to ws-rec                             DTSBR433
00366      WRITE XEROX-REPORT     FROM ws-rec                           DTSBR433
00367             AFTER ADVANCING 1.                                    DTSBR433
00368                                                                   DTSBR433
00369      MOVE SPACES TO WS-REC                                        DTSBR433
00370      WRITE xerox-report FROM WS-REC AFTER ADVANCING 09 LINES      DTSBR433
00371      MOVE   STUB-LINE   TO WS-REC                                 DTSBR433
00372      WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES       DTSBR433
00373      MOVE   ADDR01 TO WS-REC                                      DTSBR433
00374      WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES       DTSBR433
00375      MOVE   ADDR02 TO WS-REC                                      DTSBR433
00376      WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES       DTSBR433
00377      MOVE   ADDR03 TO WS-REC                                      DTSBR433
00378      WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES       DTSBR433
00379      MOVE   ADDR04 TO WS-REC                                      DTSBR433
00380      WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES       DTSBR433
00381      MOVE   ADDR05 TO WS-REC                                      DTSBR433
00382      WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES       DTSBR433
00383      MOVE STMT-LINE1 TO WS-REC                                    DTSBR433
00384      WRITE xerox-report FROM WS-REC AFTER ADVANCING 4 LINES       DTSBR433
00385      MOVE STMT-qtr-detail TO WS-REC                               DTSBR433
00386      WRITE xerox-report FROM WS-REC AFTER ADVANCING 9 LINES       DTSBR433
00387      MOVE STMT-total-line TO WS-REC                               DTSBR433
00388      WRITE xerox-report FROM WS-REC AFTER ADVANCING 3 LINES       DTSBR433
00389      MOVE spaces     TO WS-REC                                    DTSBR433
00390      WRITE xerox-report FROM WS-REC AFTER ADVANCING 3 LINES.      DTSBR433
00391                                                                   DTSBR433
00392  P2000-EXIT.                                                      DTSBR433
00393      EXIT.                                                        DTSBR433
00394                                                                   DTSBR433
00395  P4000-PRINT-rpt.                                                 DTSBR433
00396      if ws-line-cnt > 60                                          DTSBR433
00397         ADD 1 TO WS-PAGE-NO                                       DTSBR433
00398         MOVE WS-PAGE-NO TO RPT-DTL-PAGE-NO                        DTSBR433
00399         write vd-report from rpt-detail-hdr1                      DTSBR433
00400          AFTER ADVANCING TOP-OF-PAGE                              DTSBR433
00401         write vd-report from rpt-detail-hdr2                      DTSBR433
00402          AFTER ADVANCING 1                                        DTSBR433
00403         write vd-report from rpt-detail-hdr3                      DTSBR433
00404          AFTER ADVANCING 1                                        DTSBR433
00405         MOVE spaces     TO WS-REC                                 DTSBR433
00406         write vd-report from ws-rec                               DTSBR433
00407          AFTER ADVANCING 1                                        DTSBR433
00408         move 6 to ws-line-cnt.                                    DTSBR433
00409         write vd-report from rpt-line-1                           DTSBR433
00410          AFTER ADVANCING 1.                                       DTSBR433
00411         add  1 to ws-line-cnt.                                    DTSBR433
00412  P4000-EXIT.                                                      DTSBR433
00413      EXIT.                                                        DTSBR433
00414                                                                   DTSBR433
00415                                                                   DTSBR433
00416  P6000-SELF-MAILER-RTN.                                           DTSBR433
00417      PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT.               DTSBR433
00418  P6000-EXIT.                                                      DTSBR433
00419      EXIT.                                                        DTSBR433
00420                                                                   DTSBR433
00421  P7000-PRINT-VSCA-ADDR.                                           DTSBR433
00422 *RW1                                                              DTSBR433
00423      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR433
00424                                                                   DTSBR433
00425       MOVE SPACES             TO WS-REC.                          DTSBR433
00426       WRITE XEROX-REPORT FROM WS-REC                              DTSBR433
00427           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR433
00428                                                                   DTSBR433
00429      WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04.               DTSBR433
00430                                                                   DTSBR433
00431      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING  9 LINE.   DTSBR433
00432 *RW2                                                              DTSBR433
00433      WRITE XEROX-REPORT FROM line-addr-17                         DTSBR433
00434              AFTER ADVANCING 1 LINE.                              DTSBR433
00435      WRITE XEROX-REPORT FROM line-addr-18                         DTSBR433
00436              AFTER ADVANCING 1 LINE.                              DTSBR433
00437      WRITE XEROX-REPORT FROM line-addr-19                         DTSBR433
00438              AFTER ADVANCING 1 LINE.                              DTSBR433
00439      WRITE XEROX-REPORT FROM line-addr-20                         DTSBR433
00440              AFTER ADVANCING 1 LINE.                              DTSBR433
00441      WRITE XEROX-REPORT FROM line-addr-21                         DTSBR433
00442              AFTER ADVANCING 1 LINE.                              DTSBR433
00443                                                                   DTSBR433
00444  P7000-EXIT.                                                      DTSBR433
00445      EXIT.                                                        DTSBR433
00446                                                                   DTSBR433
00447  T1000-TERMINATE.                                                 DTSBR433
00448      SKIP1                                                        DTSBR433
00449      CLOSE PRT-FILE1 prt-file2.                                   DTSBR433
00450      SKIP2                                                        DTSBR433
00451  T1000-EXIT.                                                      DTSBR433
00452      EXIT.                                                        DTSBR433
00453      EJECT                                                        DTSBR433
00454  S001-from-fed-8.                                                 DTSBR433
00455      set l001-from-fed-8  to true.                                DTSBR433
00456      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR433
00457      SKIP2                                                        DTSBR433
00458  S001-EXIT.                                                       DTSBR433
00459  S005-from-sys.                                                   DTSBR433
00460      SKIP1                                                        DTSBR433
00461      set l005-from-sys to true.                                   DTSBR433
00462      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBR433
00463      SKIP2                                                        DTSBR433
00464  S005-EXIT.                                                       DTSBR433
00465      EXIT.                                                        DTSBR433
00466      SKIP3                                                        DTSBR433
00467  S002-DATE-ALPHA.                                                 DTSBR433
00468      SKIP1                                                        DTSBR433
00469      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR433
00470      SKIP2                                                        DTSBR433
00471  S002-EXIT.                                                       DTSBR433
00472      EXIT.                                                        DTSBR433
00473      SKIP3                                                        DTSBR433
00474  S004-FROM-QTR.                                                   DTSBR433
00475      SKIP1                                                        DTSBR433
00476      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR433
00477      SKIP2                                                        DTSBR433
00478  S004-EXIT.                                                       DTSBR433
00479  S101-PER-MONTH-NO.                                               DTSBR433
00480      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBR433
00481      GO TO S101-INT-COMP.                                         DTSBR433
00482  S101-INT-COMP.                                                   DTSBR433
00483      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBR433
00484  S101-EXIT.                                                       DTSBR433
00485      EXIT.                                                        DTSBR433
00486      SKIP3                                                        DTSBR433
00487  S599-BARCODE.                                                    DTSBR433
00488      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR433
00489      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR433
00490      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR433
00491                                                                   DTSBR433
00492      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR433
00493                                                                   DTSBR433
00494      IF L599-NOT-CONVERTED                                        DTSBR433
00495       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR433
00496  S599-EXIT.                                                       DTSBR433
00497      EXIT.                                                        DTSBR433
00498      SKIP3                                                        DTSBR433
00499  S999-ABEND.                                                      DTSBR433
00500      SKIP1                                                        DTSBR433
00501      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR433
00502      SKIP2                                                        DTSBR433
00503  S999-EXIT.                                                       DTSBR433
00504      EXIT.                                                        DTSBR433
00505                                                                   DTSBR433
