00001  IDENTIFICATION DIVISION.                                         12/23/19
00002  PROGRAM-ID.             DTSBR117.                                DTSBR117
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV036
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBR117
00005  DATE-COMPILED.                                                   DTSBR117
00006      SKIP3                                                        DTSBR117
00007 ******                                                            DTSBR117
00008 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR117
00009 *                       DTSBD313 WHICH UPDATES DTSIR117           DTSBR117
00010 *                       DTSBR117 READS DTSIR117 RECORDS.          DTSBR117
00011 *                                                                 DTSBR117
00012 *    FUNCTION:  INACTIVATION LETTERS.                             DTSBR117
00013 *                                                                 DTSBR117
00014 *                                                                 DTSBR117
00015 *    MODIFICATION HISTORY:                                        DTSBR117
00016 *                                                                 DTSBR117
00017 * 08-03-94 INITIAL DEVELOPMENT                                    DTSBR117
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR117
00019 *                                                                 DTSBR117
00020 * 01-31-95 CHANGED PRINT LINES FOR ADDRESS AND THE PRINT LINE     DTSBR117
00021 *          AND COLUMN FOR THE DATE (L002-LONG-TEXT-AREA) FOR      DTSBR117
00022 *          BETTER PLACEMENT ON LETTERHEAD MAILED IN WINDOW        DTSBR117
00023 *          ENVELOPES.                                             DTSBR117
00024 *          REFERENCE RFP # RAP                   PROGRAMMER: MJA  DTSBR117
00025 *                                                                 DTSBR117
00026 * 03-03-95 CHANGED LINE LIMIT FROM 62 TO 60 LINES.                DTSBR117
00027 *          REFERENCE RFP # RAP                   PROGRAMMER: MJA  DTSBR117
00028 *                                                                 DTSBR117
00029 * 04-02-95 MOVED REPORT LINES DOWN TO ACCOMODATE AGENCY BLUE      DTSBR117
00030 *          LETTERHEAD AND MOVED LEFT MARGIN TWO CHARACTERS TO THE DTSBR117
00031 *          LEFT.                                                  DTSBR117
00032 *          REFERENCE RFP # TPR 15                PROGRAMMER: MJA  DTSBR117
00033 *                                                                 DTSBR117
00034 * 09/23/02 MODIFIED IZ FOR GENERIC WAGE AND COUNTRIBUTION REPORT. DTSBR117
00035 *          CHANGE DEMAND LETTER FROM W CLASS TO I CLASS.          DTSBR117
00036 *          ADDED R2 FILE FOR DEMAND LETTER                        DTSBR117
00037 *          REFERENCE RFP # HOUSEHOLD             PROGRAMMER: ZL1  DTSBR117
00038 *                                                                 DTSBR117
00039 * 06/25/08 MODIFIED TO INCLUDED AGENCY-FACTS MODULE LINKAGE       DTSBR117
00040 *          DTSIL119 TO OBTAIN THE TAX DIVISION CHIEF NAME &       DTSBR117
00041 *          TITLE FOR THE EIGHT QUARTERS ZEROS WAGES REPORTS.      DTSBR117
00042 *          REFERENCE RFP # RAP                   PROGRAMMER: RW1  DTSBR117
00043 *                                                                 DTSBR117
00044 * 12/20/19 revisied copybook to produce new admin out and            CL*36
00045 *          closure notices.                                          CL*36
00046 *          REFERENCE RFP # adminout              PROGRAMMER: zl1     CL*36
00047 *                                                                    CL*36
00048 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR117
00049 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR117
00050 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR117
00051 *                                                                 DTSBR117
00052 *                                                                 DTSBR117
00053 *    DESCRIPTION:                                                 DTSBR117
00054 *                                                                 DTSBR117
00055 *        THIS MODULE GENERATES LETTERS TO EMPLOYERS WHO HAVE BEEN DTSBR117
00056 *        INACTIVATED AT THE END OF A QUARTER.                     DTSBR117
00057 *                                                                 DTSBR117
00058 *                                                                 DTSBR117
00059 *    RECORDS READ:                                                DTSBR117
00060 *                                                                 DTSBR117
00061 *        NONE.                                                    DTSBR117
00062 *                                                                 DTSBR117
00063 *                                                                 DTSBR117
00064 *    PRINTED OUTPUTS:                                             DTSBR117
00065 *                                                                 DTSBR117
00066 *        117R1  INACTIVATION LETTERS:                             DTSBR117
00067 *                   GENERIC                                       DTSBR117
00068 *        117R2      DEMAND  (I CLASS)                             DTSBR117
00069 *                                                                 DTSBR117
00070 *                                                                 DTSBR117
00071 *    RECORDS WRITTEN:                                             DTSBR117
00072 *                                                                 DTSBR117
00073 *        NONE.                                                    DTSBR117
00074 *                                                                 DTSBR117
00075 *                                                                 DTSBR117
00076 *    MODULES CALLED:                                              DTSBR117
00077 *                                                                 DTSBR117
00078 *        DTSBU002  DATE ALPHA CONVERSION MODULE                   DTSBR117
00079 *        DTSBU071  NAME EDIT/CONVERSION MODULE                    DTSBR117
00080 *        DTSBU082  OPERATOR ID EDIT/LOOKUP MODULE                 DTSBR117
00081 *                                                                 DTSBR117
00082 *                                                                 DTSBR117
00083 ******                                                            DTSBR117
00084      EJECT                                                        DTSBR117
00085  ENVIRONMENT DIVISION.                                            DTSBR117
00086      SKIP2                                                        DTSBR117
00087  CONFIGURATION SECTION.                                           DTSBR117
00088  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR117
00089      SKIP1                                                        DTSBR117
00090  INPUT-OUTPUT SECTION.                                            DTSBR117
00091      SKIP1                                                        DTSBR117
00092  FILE-CONTROL.                                                    DTSBR117
00093      SELECT PRT-FILW  ASSIGN TO RPT117R1.                         DTSBR117
00094      SELECT PRT-FILI  ASSIGN TO RPT117R2.                         DTSBR117
00095      SKIP3                                                        DTSBR117
00096  DATA DIVISION.                                                   DTSBR117
00097      SKIP3                                                        DTSBR117
00098  FILE SECTION.                                                    DTSBR117
00099      SKIP2                                                        DTSBR117
00100  FD  PRT-FILW                                                     DTSBR117
00101      RECORDING MODE IS F                                          DTSBR117
00102      BLOCK CONTAINS 0 RECORDS                                     DTSBR117
00103      LABEL RECORDS ARE OMITTED.                                   DTSBR117
00104  01  XEROX-REPORTW.                                               DTSBR117
00105      05  FILLER                      PIC X(1).                    DTSBR117
00106      05  XEROX-RPT-W                 PIC X(132).                  DTSBR117
00107                                                                   DTSBR117
00108  FD  PRT-FILI                                                     DTSBR117
00109      RECORDING MODE IS F                                          DTSBR117
00110      BLOCK CONTAINS 0 RECORDS                                     DTSBR117
00111      LABEL RECORDS ARE OMITTED.                                   DTSBR117
00112  01  XEROX-REPORTI.                                               DTSBR117
00113      05  FILLER                      PIC X(1).                    DTSBR117
00114      05  XEROX-RPT-I                 PIC X(132).                  DTSBR117
00115                                                                   DTSBR117
00116      EJECT                                                        DTSBR117
00117  WORKING-STORAGE SECTION.                                         DTSBR117
001175 77  PAN-VALET PICTURE X(24) VALUE '036DTSBR117  12/23/19'.       DTSBR117
00118      SKIP3                                                        DTSBR117
00119  01  WRK-AREA.                                                    DTSBR117
00120      05  SOL-INACT-DATE              PIC  9(08)  VALUE ZEROS.        CL*31
00121      05  SOL-inact-datez redefines SOL-inact-date.                   CL*34
00122          10  SOL-ina-year            PIC  9(04).                     CL*34
00123          10  SOL-ina-mm              PIC  9(02).                     CL*34
00124          10  SOL-ina-dd              PIC  9(02).                     CL*34
00125      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +117.   CL*30
00126      05  ABEND-MSG                   PIC  X(50)  VALUE SPACE.     DTSBR117
00127      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR117
00128      05  WS-OPR-NAME                 PIC  X(32)  VALUE SPACE.     DTSBR117
00129      05  WS-OPR-UNIT-NAME            PIC  X(50)  VALUE SPACE.     DTSBR117
00130                                                                   DTSBR117
00131      05  WS-OPR-VOICE.                                            DTSBR117
00132          10  WS-OPR-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR117
00133          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR117
00134          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR117
00135          10  WS-OPR-VOICE-EXT        PIC X(04)  VALUE SPACES.     DTSBR117
00136 *RW1                                                              DTSBR117
00137      05  WS-TAX-DIV-CHIEF-NAME       PIC  X(40)  VALUE SPACE.     DTSBR117
00138      05  WS-TAX-TEL.                                              DTSBR117
00139          10  WS-TAX-AREA-CD          PIC  X(03).                  DTSBR117
00140          10  WS-TAX-PREFIX           PIC  X(03).                  DTSBR117
00141          10  WS-TAX-SUFFIX           PIC  X(04).                  DTSBR117
00142          10  WS-TAX-EXTENSION        PIC  X(04).                  DTSBR117
00143                                                                   DTSBR117
00144      05  DISP-TAX-TEL.                                            DTSBR117
00145          10  DISP-TAX-TEL-FILLER-1   PIC  X(01).                  DTSBR117
00146          10  DISP-TAX-TEL-AREA-CD    PIC  X(03).                  DTSBR117
00147          10  DISP-TAX-TEL-FILLER-2   PIC  X(02).                  DTSBR117
00148          10  DISP-TAX-TEL-PREFIX     PIC  X(03).                  DTSBR117
00149          10  DISP-TAX-TEL-FILLER-3   PIC  X(01).                  DTSBR117
00150          10  DISP-TAX-TEL-SUFFIX     PIC  X(04).                  DTSBR117
00151 *RW2                                                              DTSBR117
00152      05  wrk-inact-date              pic  9(8)  value zeros.         CL*18
00153      05  wrk-inact-datez redefines wrk-inact-date.                   CL*15
00154          10  wrk-ina-year            PIC  9(04).                     CL*15
00155          10  wrk-ina-mm              PIC  9(02).                     CL*15
00156          10  wrk-ina-dd              PIC  9(02).                     CL*15
00157      05  wrk-inact-rpt-date.                                         CL*19
00158          10  wrk-ina-rptmm           PIC  9(02).                     CL*19
00159          10  filler                  pic  x(01)  value '/'.          CL*19
00160          10  wrk-ina-rptdd           PIC  9(02).                     CL*19
00161          10  filler                  pic  x(01)  value '/'.          CL*19
00162          10  wrk-ina-rptyr           PIC  9(04).                     CL*19
00163  01  VSCA-LINE.                                                   DTSBR117
00164      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR117
00165                                                                   DTSBR117
00166      EJECT                                                        DTSBR117
00167  01  L002-LINK-AREA.                                              DTSBR117
00168  ++INCLUDE DTSIL002                                               DTSBR117
00169      EJECT                                                        DTSBR117
00170  01  L910-LINK-AREA.                                                 CL*30
00171  ++INCLUDE DTSIL910                                                  CL*30
00172      EJECT                                                           CL*30
00173  01  L004-LINK-AREA.                                                 CL*13
00174  ++INCLUDE DTSIL004                                                  CL*13
00175      EJECT                                                           CL*13
00176  01  L071-LINK-AREA.                                              DTSBR117
00177  ++INCLUDE DTSIL071                                               DTSBR117
00178      EJECT                                                        DTSBR117
00179  01  MSOL-REC.                                                       CL*31
00180  ++INCLUDE DTSIMSOL                                                  CL*30
00181      EJECT                                                           CL*30
00182  01  MSKL-REC.                                                       CL*31
00183  ++INCLUDE DTSIMSKL                                                  CL*30
00184      EJECT                                                           CL*30
00185  01  L082-LINK-AREA.                                              DTSBR117
00186  ++INCLUDE DTSIL082                                                  CL*30
00187      EJECT                                                        DTSBR117
00188  ++INCLUDE DTSXL117                                               DTSBR117
00189      SKIP3                                                        DTSBR117
00190  01  LETTER-HEADING.                                              DTSBR117
00191      05  LTH-TITLE.                                               DTSBR117
00192          10  FILLER                  PIC  X(29) VALUE SPACES.     DTSBR117
00193          10  FILLER                  PIC  X(30) VALUE             DTSBR117
00194              'Closure of Account Notice     '.                       CL*25
00195          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR117
00196      05  ADM-TITLE.                                                  CL*13
00197          10  FILLER                  PIC  X(20) VALUE SPACES.        CL*13
00198          10  FILLER                  PIC  X(45) VALUE                CL*13
00199              'ADMINISTRATIVE INACTIVATION OF ACCOUNT NOTICE'.        CL*13
00200          10  FILLER                  PIC  X(25) VALUE SPACES.        CL*13
00201      05  LTH-LINE-16.                                             DTSBR117
00202          10  FILLER                  PIC  X(02) VALUE SPACES.        CL**5
00203          10  WS-LONG-TEXT-AREA       PIC  X(18).                  DTSBR117
00204      05  LTH-LINE-19.                                             DTSBR117
00205          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR117
00206          10  WS-FMT-LINE-1           PIC  X(40).                  DTSBR117
00207      05  LTH-LINE-20.                                             DTSBR117
00208          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR117
00209          10  WS-FMT-LINE-2           PIC  X(40).                  DTSBR117
00210      05  LTH-LINE-21.                                             DTSBR117
00211          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR117
00212          10  WS-FMT-LINE-3           PIC  X(40).                  DTSBR117
00213      05  LTH-LINE-22.                                             DTSBR117
00214          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR117
00215          10  WS-FMT-LINE-4           PIC  X(40).                  DTSBR117
00216      05  LTH-LINE-23.                                             DTSBR117
00217          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR117
00218          10 WS-FMT-LINE-5            PIC  X(40).                  DTSBR117
00219      05  LTH-LINE-29.                                             DTSBR117
00220          10  FILLER                  PIC  X(02) VALUE SPACES.     DTSBR117
00221          10  FILLER                  PIC  X(15)                      CL*13
00222                 VALUE 'DC UI Acct #:  '.                             CL*13
00223          10  WS-EMP-NO               PIC  999B999.                DTSBR117
00224      05  LTH-LINE-30.                                                CL*14
00225          10  FILLER                  PIC  X(02) VALUE SPACES.        CL*13
00226          10  FILLER                  PIC  X(30)                      CL*13
00227                 VALUE 'Inactivation Effective Date: '.               CL*13
00228          10  WS-ina-date             PIC  x(10).                     CL*13
00229      SKIP2                                                        DTSBR117
00230 * ANNUAL FILERS                                                      CL**3
00231  ++INCLUDE DTSIW119                                                  CL*26
00232                                                                      CL**3
00233 * QUARTERLY FILERS                                                   CL**3
00234 *++INCLUDE DTSIZ117                                                  CL**3
00235      EJECT                                                        DTSBR117
00236  01  L119-LINK-AREA.                                              DTSBR117
00237  ++INCLUDE DTSIL119                                               DTSBR117
00238      EJECT                                                        DTSBR117
00239 *RW1                                                              DTSBR117
00240  01  CONVERT-BARCODE-LINE.                                        DTSBR117
00241      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR117
00242                                                                   DTSBR117
00243  01  WS-BARC-LINE.                                                DTSBR117
00244      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR117
00245      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR117
00246      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR117
00247                                                                   DTSBR117
00248  01  BARI-LINK-AREA.                                              DTSBR117
00249  ++INCLUDE BARIL599                                               DTSBR117
00250      SKIP3                                                        DTSBR117
00251 *RW2                                                              DTSBR117
00252  LINKAGE SECTION.                                                 DTSBR117
00253      SKIP3                                                        DTSBR117
00254  01  LRCM-LINK-AREA.                                              DTSBR117
00255  ++INCLUDE DTSILRCM                                               DTSBR117
00256      EJECT                                                        DTSBR117
00257  01  R117-REC.                                                    DTSBR117
00258  ++INCLUDE DTSIR117                                               DTSBR117
00259      EJECT                                                        DTSBR117
00260  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR117
00261                           R117-REC.                               DTSBR117
00262      SKIP2                                                        DTSBR117
00263      IF FIRST-TIME-IND = 'Y'                                      DTSBR117
00264          PERFORM I1000-INITIATE                                   DTSBR117
00265             THRU I1000-EXIT                                       DTSBR117
00266          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR117
00267      SKIP1                                                        DTSBR117
00268      IF LRCM-EOR-88                                               DTSBR117
00269          PERFORM T1000-TERMINATE                                  DTSBR117
00270             THRU T1000-EXIT                                       DTSBR117
00271      ELSE                                                         DTSBR117
00272          PERFORM P1000-PROCESS                                    DTSBR117
00273             THRU P1000-EXIT.                                      DTSBR117
00274      SKIP2                                                        DTSBR117
00275      GOBACK.                                                      DTSBR117
00276      EJECT                                                        DTSBR117
00277  I1000-INITIATE.                                                  DTSBR117
00278                                                                   DTSBR117
00279      OPEN OUTPUT PRT-FILI PRT-FILW.                               DTSBR117
00280      MOVE SPACES TO XEROX-REPORTW                                 DTSBR117
00281                     XEROX-REPORTI.                                DTSBR117
00282                                                                   DTSBR117
00283      WRITE XEROX-REPORTI    FROM VSCA-LINE                        DTSBR117
00284          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR117
00285      WRITE XEROX-REPORTI    FROM VSCA-LINE AFTER ADVANCING 8.     DTSBR117
00286      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE10                DTSBR117
00287      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE11.               DTSBR117
00288      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE12.               DTSBR117
00289      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE13.               DTSBR117
00290      WRITE XEROX-REPORTI    FROM ROUTE-INFO-LINE14.               DTSBR117
00291      WRITE XEROX-REPORTI    FROM XEROX-CNTL-CLASSI.               DTSBR117
00292                                                                   DTSBR117
00293 *RW1                                                              DTSBR117
00294 *    WRITE XEROX-REPORTW    FROM XEROX-CNTL-CLASSW                DTSBR117
00295 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR117
00296 *    WRITE XEROX-REPORTW    FROM VSCA-LINE                        DTSBR117
00297 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR117
00298 *RW2                                                              DTSBR117
00299 *RW1                                                              DTSBR117
00300      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR117
00301      PERFORM S119-REQ-CAPS THRU S119-EXIT.                        DTSBR117
00302      MOVE L119-TAX-DIV-VOICE TO WS-TAX-TEL.                       DTSBR117
00303      MOVE L119-TAX-DIV-CHIEF-NAME TO WS-TAX-DIV-CHIEF-NAME.       DTSBR117
00304                                                                   DTSBR117
00305      MOVE '(' TO DISP-TAX-TEL-FILLER-1.                           DTSBR117
00306      MOVE WS-TAX-AREA-CD TO DISP-TAX-TEL-AREA-CD.                 DTSBR117
00307      MOVE ') ' TO DISP-TAX-TEL-FILLER-2.                          DTSBR117
00308      MOVE WS-TAX-PREFIX TO DISP-TAX-TEL-PREFIX.                   DTSBR117
00309      MOVE '-' TO DISP-TAX-TEL-FILLER-3.                           DTSBR117
00310      MOVE WS-TAX-SUFFIX TO DISP-TAX-TEL-SUFFIX.                   DTSBR117
00311 *    MOVE DISP-TAX-TEL  TO DTL4A-DISP-UNIT-TEL.                   DTSBR117
00312 *    DISPLAY 'TAX TELEPHONE IS: ' DISP-TAX-TEL.                   DTSBR117
00313 *RW2                                                              DTSBR117
00314 *      PERFORM S910-OPEN-READ THRU S910-EXIT.                        CL*32
00315  I1000-EXIT.                                                      DTSBR117
00316      EXIT.                                                        DTSBR117
00317      EJECT                                                        DTSBR117
00318  P1000-PROCESS.                                                   DTSBR117
00319      MOVE R117-OP-ID TO L082-OP-ID.                               DTSBR117
00320                                                                   DTSBR117
00321      PERFORM S082-OP-ID-INFO                                      DTSBR117
00322         THRU S082-EXIT.                                           DTSBR117
00323                                                                   DTSBR117
00324      IF L082-NOT-VALID-OP                                         DTSBR117
00325      OR L082-INTERNAL-88                                          DTSBR117
00326          MOVE SPACES             TO WS-OPR-NAME                   DTSBR117
00327          MOVE LRCM-DEFAULT-NAME  TO WS-OPR-UNIT-NAME              DTSBR117
00328          MOVE LRCM-DEFAULT-VOICE TO WS-OPR-VOICE                  DTSBR117
00329      ELSE                                                         DTSBR117
00330          MOVE L082-VOICE-1       TO WS-OPR-VOICE                  DTSBR117
00331          MOVE L082-UNIT-NAME     TO WS-OPR-UNIT-NAME              DTSBR117
00332          MOVE L082-NAME          TO L071-NAM                      DTSBR117
00333          MOVE 2                  TO L071-NAME-FORMAT              DTSBR117
00334          PERFORM S071-DESLASH-NAME                                DTSBR117
00335             THRU S071-EXIT                                        DTSBR117
00336          MOVE L071-NAM           TO WS-OPR-NAME.                  DTSBR117
00337                                                                   DTSBR117
00338      MOVE R117-MAIL-DATE         TO L002-DATE.                    DTSBR117
00339      SET L002-MIXED-CASE         TO TRUE.                         DTSBR117
00340                                                                   DTSBR117
00341      PERFORM S002-DATE-ALPHA                                      DTSBR117
00342         THRU S002-EXIT.                                           DTSBR117
00343                                                                   DTSBR117
00344      IF R117-GENERIC-88                                           DTSBR117
00345          PERFORM P1300-COUNT-MSOL THRU P1300-EXIT                    CL*31
00346          PERFORM P3000-PRINT-HEADER    THRU P3000-EXIT            DTSBR117
00347          PERFORM P4000-PRINT-GENERIC   THRU P4000-EXIT            DTSBR117
00348 *        PERFORM P7000-PRINT-FOOTER    THRU P7000-EXIT               CL*25
00349          PERFORM P8000-PRINT-FOOTER2        THRU P8000-EXIT          CL*25
00350          PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT            DTSBR117
00351      ELSE                                                         DTSBR117
00352          IF R117-DEMAND-88                                        DTSBR117
00353              PERFORM P3500-DEMAND-HEADER THRU P3500-EXIT          DTSBR117
00354              PERFORM P5000-DEMAND-LETTER THRU P5000-EXIT          DTSBR117
00355              PERFORM P7500-DEMAND-FOOTER THRU P7500-EXIT          DTSBR117
00356          ELSE                                                     DTSBR117
00357              IF R117-8ZEROWAGE-88                                 DTSBR117
00358                 PERFORM P3100-PRINT-HEADER         THRU P3100-EXIT   CL*13
00359                 PERFORM P6000-PRINT-EIGHT-QTR-NONE THRU P6000-EXITDTSBR117
00360                 PERFORM P8000-PRINT-FOOTER2        THRU P8000-EXITDTSBR117
00361                 PERFORM P2000-SELF-MAILER-RTN      THRU P2000-EXITDTSBR117
00362              ELSE                                                 DTSBR117
00363                  MOVE                                             DTSBR117
00364                    'INVALID LETTER TYPE ENCOUNTERED IN DTSBR117'  DTSBR117
00365                     TO ABEND-MSG                                  DTSBR117
00366                  PERFORM S999-ABEND                               DTSBR117
00367                     THRU S999-EXIT.                               DTSBR117
00368  P1000-EXIT.                                                      DTSBR117
00369      EXIT.                                                        DTSBR117
00370      EJECT                                                        DTSBR117
00371  P1300-COUNT-MSOL.                                                   CL*30
00372      MOVE ZERO TO SOL-INACT-DATE.                                    CL*31
00373 *                 WRK-INACT-YRQ                                      CL*30
00374 *                 WRK-YRQ                                            CL*30
00375 *                 WRK-LAST-YRQ.                                      CL*30
00376      MOVE LOW-VALUES TO MSKL-KEY-AREA.                               CL*30
00377                                                                      CL*30
00378      MOVE R117-EMP-NO TO MSKL-EMP-NO.                                CL*30
00379                                                                      CL*30
00380      SET MSKL-SOL-88 TO TRUE.                                        CL*30
00381                                                                      CL*30
00382      PERFORM S910-START-BROWSE THRU S910-EXIT.                       CL*30
00383      PERFORM P1320-CHECK-MSOL THRU P1320-EXIT                        CL*30
00384         UNTIL L910-NO-REC-88.                                        CL*30
00385                                                                      CL*30
00386      IF L910-NO-REC-88                                               CL*30
00387         GO TO P1300-EXIT.                                            CL*30
00388                                                                      CL*30
00389  P1300-EXIT.                                                         CL*30
00390      EXIT.                                                           CL*30
00391  P1320-CHECK-MSOL.                                                   CL*30
00392      MOVE MSKL-REC TO MSOL-REC.                                      CL*30
00393      IF MSOL-INACT-INACTIVE-88                                       CL*35
00394         MOVE MSOL-INACT-DATE     TO SOL-INACT-DATE                   CL*31
00395         DISPLAY 'INA DATE ' SOL-INACT-DATE                           CL*31
00396         SET L910-NO-REC-88 TO TRUE                                   CL*30
00397         GO TO P1320-EXIT                                             CL*30
00398      END-IF.                                                         CL*30
00399      PERFORM S910-READ-NEXT THRU S910-EXIT.                          CL*30
00400                                                                      CL*30
00401  P1320-EXIT.                                                         CL*30
00402      EXIT.                                                           CL*30
00403                                                                      CL*30
00404                                                                   DTSBR117
00405  P2000-SELF-MAILER-RTN.                                           DTSBR117
00406      MOVE R117-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.                DTSBR117
00407      MOVE R117-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.                DTSBR117
00408      MOVE R117-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.                DTSBR117
00409      MOVE R117-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.                DTSBR117
00410      MOVE R117-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.                DTSBR117
00411      PERFORM P9000-PRINT-VSCA-ADDR THRU P9000-EXIT.               DTSBR117
00412  P2000-EXIT.                                                      DTSBR117
00413      EXIT.                                                        DTSBR117
00414      EJECT                                                        DTSBR117
00415                                                                   DTSBR117
00416  P3000-PRINT-HEADER.                                              DTSBR117
00417      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR117
00418      MOVE R117-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR117
00419      MOVE R117-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR117
00420      MOVE R117-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR117
00421      MOVE R117-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR117
00422      MOVE R117-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR117
00423      MOVE R117-EMP-NO TO ws-emp-no gen-EMP-NO  BARC-EMP-NO.          CL*29
00424 *RW1                                                              DTSBR117
00425        MOVE  SOL-ina-year TO WRK-INA-YEAR                            CL*34
00426        MOVE  SOL-ina-mm   TO WRK-INA-MM                              CL*34
00427        MOVE  SOL-ina-dd   TO WRK-INA-DD                              CL*34
00428        move wrk-ina-year to wrk-ina-rptyr                            CL*27
00429        move wrk-ina-dd   to wrk-ina-rptdd                            CL*27
00430        move wrk-ina-mm   to wrk-ina-rptmm                            CL*27
00431        move wrk-inact-rpt-date to ws-ina-date.                       CL*28
00432      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR117
00433                                                                   DTSBR117
00434 *    IF L599-SETB-FONT1                                              CL**4
00435 *       MOVE 'MODIFY=TAXSM1,' TO WEROX-CME                           CL**4
00436 *    ELSE                                                            CL**4
00437 *    IF L599-SETB-FONT2                                              CL**4
00438 *       MOVE 'MODIFY=TAXSM2,' TO WEROX-CME                           CL**4
00439 *    ELSE                                                            CL**4
00440 *       MOVE 'MODIFY=TAXSM1,' TO WEROX-CME.                          CL**4
00441                                                                   DTSBR117
00442      WRITE XEROX-REPORTW    FROM XEROX-CNTL-CLASSW                DTSBR117
00443             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR117
00444                                                                   DTSBR117
00445 *    WRITE XEROX-REPORTW FROM VSCA-LINE                           DTSBR117
00446 *                        AFTER ADVANCING TOP-OF-PAGE.             DTSBR117
00447 *    WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 6 LINE.   DTSBR117
00448      WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 10 LINE.     CL*22
00449 *RW2                                                              DTSBR117
00450      WRITE XEROX-REPORTW FROM LTH-TITLE   AFTER ADVANCING 2 LINE.    CL*22
00451      WRITE XEROX-REPORTW FROM LTH-LINE-16 AFTER ADVANCING 2 LINE. DTSBR117
00452      WRITE XEROX-REPORTW FROM LTH-LINE-19 AFTER ADVANCING 1 LINE. DTSBR117
00453      WRITE XEROX-REPORTW FROM LTH-LINE-20 AFTER ADVANCING 1 LINE. DTSBR117
00454      WRITE XEROX-REPORTW FROM LTH-LINE-21 AFTER ADVANCING 1 LINE. DTSBR117
00455      WRITE XEROX-REPORTW FROM LTH-LINE-22 AFTER ADVANCING 1 LINE. DTSBR117
00456      WRITE XEROX-REPORTW FROM LTH-LINE-23 AFTER ADVANCING 1 LINE. DTSBR117
00457      WRITE XEROX-REPORTW FROM LTH-LINE-29 AFTER ADVANCING 2 LINE. DTSBR117
00458      WRITE XEROX-REPORTW FROM LTH-LINE-30 AFTER ADVANCING 2 LINE.    CL*27
00459                                                                   DTSBR117
00460  P3000-EXIT.                                                      DTSBR117
00461      EXIT.                                                        DTSBR117
00462  P3100-PRINT-HEADER.                                                 CL*13
00463      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.                  CL*13
00464      MOVE R117-FMT-LINE (1) TO WS-FMT-LINE-1.                        CL*13
00465      MOVE R117-FMT-LINE (2) TO WS-FMT-LINE-2.                        CL*13
00466      MOVE R117-FMT-LINE (3) TO WS-FMT-LINE-3.                        CL*13
00467      MOVE R117-FMT-LINE (4) TO WS-FMT-LINE-4.                        CL*13
00468      MOVE R117-FMT-LINE (5) TO WS-FMT-LINE-5.                        CL*13
00469      MOVE R117-EMP-NO       TO WS-EMP-NO  BARC-EMP-NO.               CL*13
00470 *RW1                                                                 CL*13
00471        move r117-inact-date  to  wrk-inact-date.                     CL*19
00472        display 'inact date: '  wrk-ina-mm '/'                        CL*19
00473                 wrk-ina-dd '/'                                       CL*19
00474                 wrk-ina-year.                                        CL*19
00475        move wrk-ina-year to wrk-ina-rptyr                            CL*19
00476        move wrk-ina-dd   to wrk-ina-rptdd                            CL*19
00477        move wrk-ina-mm   to wrk-ina-rptmm                            CL*19
00478        move wrk-inact-rpt-date to eqn-eff-date ws-ina-date.          CL*19
00479      PERFORM S599-BARCODE   THRU S599-EXIT.                          CL*13
00480                                                                      CL*13
00481 *    IF L599-SETB-FONT1                                              CL*13
00482 *       MOVE 'MODIFY=TAXSM1,' TO WEROX-CME                           CL*13
00483 *    ELSE                                                            CL*13
00484 *    IF L599-SETB-FONT2                                              CL*13
00485 *       MOVE 'MODIFY=TAXSM2,' TO WEROX-CME                           CL*13
00486 *    ELSE                                                            CL*13
00487 *       MOVE 'MODIFY=TAXSM1,' TO WEROX-CME.                          CL*13
00488                                                                      CL*13
00489      WRITE XEROX-REPORTW    FROM XEROX-CNTL-CLASSW                   CL*13
00490             AFTER ADVANCING TOP-OF-PAGE.                             CL*13
00491                                                                      CL*13
00492 *    WRITE XEROX-REPORTW FROM VSCA-LINE                              CL*13
00493 *                        AFTER ADVANCING TOP-OF-PAGE.                CL*13
00494 *    WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 6 LINE.      CL*13
00495      WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 10 LINE.     CL*22
00496 *RW2                                                                 CL*13
00497      WRITE XEROX-REPORTW FROM ADM-TITLE   AFTER ADVANCING 2 LINE.    CL*22
00498      WRITE XEROX-REPORTW FROM LTH-LINE-16 AFTER ADVANCING 2 LINE.    CL*13
00499      WRITE XEROX-REPORTW FROM LTH-LINE-19 AFTER ADVANCING 1 LINE.    CL*13
00500      WRITE XEROX-REPORTW FROM LTH-LINE-20 AFTER ADVANCING 1 LINE.    CL*13
00501      WRITE XEROX-REPORTW FROM LTH-LINE-21 AFTER ADVANCING 1 LINE.    CL*13
00502      WRITE XEROX-REPORTW FROM LTH-LINE-22 AFTER ADVANCING 1 LINE.    CL*13
00503      WRITE XEROX-REPORTW FROM LTH-LINE-23 AFTER ADVANCING 1 LINE.    CL*13
00504      WRITE XEROX-REPORTW FROM LTH-LINE-29 AFTER ADVANCING 2 LINE.    CL*13
00505      WRITE XEROX-REPORTW FROM LTH-LINE-30 AFTER ADVANCING 2 LINE.    CL*20
00506                                                                      CL*13
00507  P3100-EXIT.                                                         CL*13
00508      EXIT.                                                           CL*13
00509                                                                   DTSBR117
00510  P3500-DEMAND-HEADER.                                             DTSBR117
00511      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR117
00512      MOVE R117-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR117
00513      MOVE R117-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR117
00514      MOVE R117-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR117
00515      MOVE R117-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR117
00516      MOVE R117-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR117
00517      MOVE R117-EMP-NO       TO WS-EMP-NO.                         DTSBR117
00518      WRITE XEROX-REPORTI FROM VSCA-LINE                           DTSBR117
00519                          AFTER ADVANCING TOP-OF-PAGE.             DTSBR117
00520      WRITE XEROX-REPORTI FROM VSCA-LINE AFTER ADVANCING  6 LINE.  DTSBR117
00521      WRITE XEROX-REPORTI FROM LTH-LINE-16 AFTER ADVANCING 1 LINE. DTSBR117
00522      WRITE XEROX-REPORTI FROM LTH-LINE-19 AFTER ADVANCING 1 LINE. DTSBR117
00523      WRITE XEROX-REPORTI FROM LTH-LINE-20 AFTER ADVANCING 1 LINE. DTSBR117
00524      WRITE XEROX-REPORTI FROM LTH-LINE-21 AFTER ADVANCING 1 LINE. DTSBR117
00525      WRITE XEROX-REPORTI FROM LTH-LINE-22 AFTER ADVANCING 1 LINE. DTSBR117
00526      WRITE XEROX-REPORTI FROM LTH-LINE-23 AFTER ADVANCING 1 LINE. DTSBR117
00527      WRITE XEROX-REPORTI FROM LTH-LINE-29 AFTER ADVANCING 2 LINE. DTSBR117
00528                                                                   DTSBR117
00529  P3500-EXIT.                                                      DTSBR117
00530      EXIT.                                                        DTSBR117
00531                                                                   DTSBR117
00532  P4000-PRINT-GENERIC.                                             DTSBR117
00533                                                                   DTSBR117
00534      WRITE XEROX-REPORTW FROM gen-LINE-1 AFTER ADVANCING 1 LINE.     CL*25
00535      WRITE XEROX-REPORTW FROM gen-LINE-2 AFTER ADVANCING 1 LINE.     CL*25
00536      WRITE XEROX-REPORTW FROM gen-LINE-3 AFTER ADVANCING 1 LINE.     CL*25
00537      WRITE XEROX-REPORTW FROM gen-LINE-4 AFTER ADVANCING 1 LINE.     CL*25
00538      WRITE XEROX-REPORTW FROM gen-LINE-5  AFTER ADVANCING 1 LINE.    CL*25
00539      WRITE XEROX-REPORTW FROM gen-LINE-6  AFTER ADVANCING 1 LINE.    CL*25
00540      WRITE XEROX-REPORTW FROM gen-LINE-7  AFTER ADVANCING 1 LINE.    CL*25
00541      WRITE XEROX-REPORTW FROM gen-LINE-8  AFTER ADVANCING 1 LINE.    CL*25
00542      WRITE XEROX-REPORTW FROM gen-LINE-9  AFTER ADVANCING 1 LINE.    CL*25
00543      WRITE XEROX-REPORTW FROM gen-LINE-10 AFTER ADVANCING 1 LINE.    CL*25
00544      WRITE XEROX-REPORTW FROM gen-LINE-11 AFTER ADVANCING 1 LINE.    CL*25
00545      WRITE XEROX-REPORTW FROM gen-LINE-12 AFTER ADVANCING 1 LINE.    CL*25
00546      WRITE XEROX-REPORTW FROM gen-LINE-13 AFTER ADVANCING 1 LINE.    CL*25
00547      WRITE XEROX-REPORTW FROM gen-LINE-14 AFTER ADVANCING 1 LINE.    CL*25
00548      WRITE XEROX-REPORTW FROM gen-LINE-15 AFTER ADVANCING 1 LINE.    CL*25
00549      WRITE XEROX-REPORTW FROM gen-LINE-16 AFTER ADVANCING 1 LINE.    CL*25
00550      WRITE XEROX-REPORTW FROM gen-LINE-17 AFTER ADVANCING 1 LINE.    CL*25
00551      WRITE XEROX-REPORTW FROM gen-LINE-18 AFTER ADVANCING 1 LINE.    CL*25
00552      WRITE XEROX-REPORTW FROM gen-LINE-19 AFTER ADVANCING 1 LINE.    CL*25
00553      WRITE XEROX-REPORTW FROM EQN-LINE-11 AFTER ADVANCING 1 LINE.    CL*25
00554      WRITE XEROX-REPORTW FROM EQN-LINE-12 AFTER ADVANCING 1 LINE.    CL*25
00555 *    WRITE XEROX-REPORTW FROM EQN-LINE-14 AFTER ADVANCING 1 LINE.    CL*25
00556 *    WRITE XEROX-REPORTW FROM EQN-LINE-141 AFTER ADVANCING 1 LINE.   CL*25
00557                                                                      CL*25
00558  P4000-EXIT.                                                      DTSBR117
00559      EXIT.                                                        DTSBR117
00560                                                                   DTSBR117
00561  P5000-DEMAND-LETTER.                                             DTSBR117
00562      WRITE XEROX-REPORTI FROM DML-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR117
00563      WRITE XEROX-REPORTI FROM DML-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR117
00564      WRITE XEROX-REPORTI FROM DML-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR117
00565      WRITE XEROX-REPORTI FROM DML-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR117
00566      WRITE XEROX-REPORTI FROM DML-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR117
00567      WRITE XEROX-REPORTI FROM DML-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR117
00568      WRITE XEROX-REPORTI FROM DML-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR117
00569      WRITE XEROX-REPORTI FROM DML-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR117
00570      WRITE XEROX-REPORTI FROM DML-LINE-10 AFTER ADVANCING 1 LINE. DTSBR117
00571                                                                   DTSBR117
00572  P5000-EXIT.                                                      DTSBR117
00573      EXIT.                                                        DTSBR117
00574                                                                   DTSBR117
00575  P6000-PRINT-EIGHT-QTR-NONE.                                      DTSBR117
00576      WRITE XEROX-REPORTW FROM EQN-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR117
00577      WRITE XEROX-REPORTW FROM EQN-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR117
00578      WRITE XEROX-REPORTW FROM EQN-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR117
00579      WRITE XEROX-REPORTW FROM EQN-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR117
00580      WRITE XEROX-REPORTW FROM EQN-LINE-41 AFTER ADVANCING 1 LINE.    CL**3
00581      WRITE XEROX-REPORTW FROM EQN-LINE-42 AFTER ADVANCING 1 LINE.    CL*21
00582      WRITE XEROX-REPORTW FROM EQN-LINE-43 AFTER ADVANCING 1 LINE.    CL**6
00583      WRITE XEROX-REPORTW FROM EQN-LINE-44 AFTER ADVANCING 1 LINE.    CL**6
00584      WRITE XEROX-REPORTW FROM EQN-LINE-45 AFTER ADVANCING 1 LINE.    CL**6
00585      WRITE XEROX-REPORTW FROM EQN-LINE-46 AFTER ADVANCING 1 LINE.    CL*24
00586      WRITE XEROX-REPORTW FROM EQN-LINE-47 AFTER ADVANCING 1 LINE.    CL*13
00587      WRITE XEROX-REPORTW FROM EQN-LINE-48 AFTER ADVANCING 1 LINE.    CL*13
00588      WRITE XEROX-REPORTW FROM EQN-LINE-49 AFTER ADVANCING 1 LINE.    CL*13
00589      WRITE XEROX-REPORTW FROM EQN-LINE-50 AFTER ADVANCING 1 LINE.    CL*13
00590      WRITE XEROX-REPORTW FROM EQN-LINE-51 AFTER ADVANCING 1 LINE.    CL*13
00591      WRITE XEROX-REPORTW FROM EQN-LINE-52 AFTER ADVANCING 1 LINE.    CL*13
00592      WRITE XEROX-REPORTW FROM EQN-LINE-53 AFTER ADVANCING 1 LINE.    CL*13
00593 *    WRITE XEROX-REPORTW FROM EQN-LINE-6 AFTER ADVANCING 1 LINE.     CL**2
00594 *    WRITE XEROX-REPORTW FROM EQN-LINE-7 AFTER ADVANCING 1 LINE.     CL**2
00595 *    WRITE XEROX-REPORTW FROM EQN-LINE-8 AFTER ADVANCING 1 LINE.     CL**2
00596 *    WRITE XEROX-REPORTW FROM EQN-LINE-9 AFTER ADVANCING 1 LINE.     CL**2
00597 *    WRITE XEROX-REPORTW FROM EQN-LINE-10 AFTER ADVANCING 1 LINE.    CL**2
00598      WRITE XEROX-REPORTW FROM EQN-LINE-11 AFTER ADVANCING 1 LINE. DTSBR117
00599      WRITE XEROX-REPORTW FROM EQN-LINE-12 AFTER ADVANCING 1 LINE. DTSBR117
00600      WRITE XEROX-REPORTW FROM EQN-LINE-14 AFTER ADVANCING 1 LINE. DTSBR117
00601      WRITE XEROX-REPORTW FROM EQN-LINE-141 AFTER ADVANCING 1 LINE.   CL**3
00602                                                                   DTSBR117
00603  P6000-EXIT.                                                      DTSBR117
00604      EXIT.                                                        DTSBR117
00605                                                                   DTSBR117
00606  P7000-PRINT-FOOTER.                                              DTSBR117
00607      MOVE WS-OPR-VOICE-1      TO WS-OPR-VOICE-ONE.                DTSBR117
00608      MOVE WS-OPR-VOICE-2      TO WS-OPR-VOICE-TWO.                DTSBR117
00609 *    MOVE WS-OPR-NAME         TO WS-OPR-NAME-FOOTER.                 CL*14
00610      WRITE XEROX-REPORTW FROM LTF-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR117
00611      WRITE XEROX-REPORTW FROM LTF-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR117
00612      WRITE XEROX-REPORTW FROM LTF-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR117
00613      WRITE XEROX-REPORTW FROM LTF-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR117
00614      WRITE XEROX-REPORTW FROM LTF-LINE-8 AFTER ADVANCING 1 LINE.  DTSBR117
00615      WRITE XEROX-REPORTW FROM LTF-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR117
00616                                                                   DTSBR117
00617  P7000-EXIT.                                                      DTSBR117
00618      EXIT.                                                        DTSBR117
00619                                                                   DTSBR117
00620  P7500-DEMAND-FOOTER.                                             DTSBR117
00621      MOVE WS-OPR-VOICE-1      TO WS-OPR-VOICE-ONE.                DTSBR117
00622      MOVE WS-OPR-VOICE-2      TO WS-OPR-VOICE-TWO.                DTSBR117
00623 *    MOVE WS-OPR-NAME         TO WS-OPR-NAME-FOOTER.                 CL*14
00624      WRITE XEROX-REPORTI FROM LTF-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR117
00625      WRITE XEROX-REPORTI FROM LTF-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR117
00626      WRITE XEROX-REPORTI FROM LTF-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR117
00627      WRITE XEROX-REPORTI FROM LTF-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR117
00628      WRITE XEROX-REPORTI FROM LTF-LINE-8 AFTER ADVANCING 1 LINE.  DTSBR117
00629      WRITE XEROX-REPORTI FROM LTF-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR117
00630                                                                   DTSBR117
00631  P7500-EXIT.                                                      DTSBR117
00632      EXIT.                                                        DTSBR117
00633                                                                   DTSBR117
00634  P8000-PRINT-FOOTER2.                                             DTSBR117
00635 *    MOVE WS-TAX-PREFIX       TO WS-OPR-VOICE-ONE2.                  CL*12
00636 *    MOVE WS-TAX-SUFFIX       TO WS-OPR-VOICE-TWO2.                  CL*12
00637 *    MOVE WS-TAX-DIV-CHIEF-NAME  TO WS-OPR-NAME-FOOTER2.             CL*12
00638      WRITE XEROX-REPORTW FROM LF2-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR117
00639      WRITE XEROX-REPORTW FROM LF2-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR117
00640      WRITE XEROX-REPORTW FROM LF2-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR117
00641      WRITE XEROX-REPORTW FROM LF2-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR117
00642      WRITE XEROX-REPORTW FROM LF2-LINE-8 AFTER ADVANCING 1 LINE.  DTSBR117
00643      WRITE XEROX-REPORTW FROM LF2-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR117
00644      WRITE XEROX-REPORTW FROM LF2-LINE-10 AFTER ADVANCING 1 LINE.    CL*12
00645      WRITE XEROX-REPORTW FROM LF2-LINE-11 AFTER ADVANCING 1 LINE.    CL*12
00646                                                                   DTSBR117
00647  P8000-EXIT.                                                      DTSBR117
00648      EXIT.                                                        DTSBR117
00649                                                                   DTSBR117
00650  P9000-PRINT-VSCA-ADDR.                                           DTSBR117
00651 *RW1                                                              DTSBR117
00652      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR117
00653      WRITE XEROX-REPORTW FROM VSCA-LINE                           DTSBR117
00654                       AFTER ADVANCING TOP-OF-PAGE.                DTSBR117
00655      WRITE XEROX-REPORTW FROM WS-BARC-LINE AFTER 04.              DTSBR117
00656      WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 2 LINE.   DTSBR117
00657                                                                   DTSBR117
00658 *    WRITE XEROX-REPORTW    FROM VSCA-LINE                        DTSBR117
00659 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR117
00660 **   WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 07 LINE.  DTSBR117
00661      WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 9 LINE.      CL*11
00662 *RW2                                                              DTSBR117
00663      WRITE XEROX-REPORTW FROM VSCA-ADDR-LINE-17                   DTSBR117
00664              AFTER ADVANCING 1 LINE.                              DTSBR117
00665      WRITE XEROX-REPORTW FROM VSCA-ADDR-LINE-18                   DTSBR117
00666              AFTER ADVANCING 1 LINE.                              DTSBR117
00667      WRITE XEROX-REPORTW FROM VSCA-ADDR-LINE-19                   DTSBR117
00668              AFTER ADVANCING 1 LINE.                              DTSBR117
00669      WRITE XEROX-REPORTW FROM VSCA-ADDR-LINE-20                   DTSBR117
00670              AFTER ADVANCING 1 LINE.                              DTSBR117
00671      WRITE XEROX-REPORTW FROM VSCA-ADDR-LINE-21                   DTSBR117
00672              AFTER ADVANCING 1 LINE.                              DTSBR117
00673                                                                   DTSBR117
00674  P9000-EXIT.                                                      DTSBR117
00675      EXIT.                                                        DTSBR117
00676                                                                   DTSBR117
00677  T1000-TERMINATE.                                                 DTSBR117
00678      SKIP1                                                        DTSBR117
00679      CLOSE PRT-FILI                                               DTSBR117
00680            PRT-FILW.                                              DTSBR117
00681 *    PERFORM S910-CLOSE THRU S910-EXIT.                              CL*33
00682      SKIP2                                                        DTSBR117
00683  T1000-EXIT.                                                      DTSBR117
00684      EXIT.                                                        DTSBR117
00685      EJECT                                                        DTSBR117
00686  S002-DATE-ALPHA.                                                 DTSBR117
00687      SKIP1                                                        DTSBR117
00688      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR117
00689      SKIP2                                                        DTSBR117
00690  S002-EXIT.                                                       DTSBR117
00691      EXIT.                                                        DTSBR117
00692  S004-DATE-ALPHA.                                                    CL*13
00693      SKIP1                                                           CL*13
00694      CALL 'DTSBU004' USING L004-LINK-AREA.                           CL*13
00695      SKIP2                                                           CL*13
00696  S004-EXIT.                                                          CL*13
00697      EXIT.                                                           CL*13
00698      SKIP3                                                        DTSBR117
00699  S071-DESLASH-NAME.                                               DTSBR117
00700      SKIP1                                                        DTSBR117
00701      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR117
00702      SKIP2                                                        DTSBR117
00703  S071-EXIT.                                                       DTSBR117
00704      EXIT.                                                        DTSBR117
00705      SKIP3                                                        DTSBR117
00706  S082-OP-ID-INFO.                                                 DTSBR117
00707      SKIP1                                                        DTSBR117
00708      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR117
00709      SKIP2                                                        DTSBR117
00710  S082-EXIT.                                                       DTSBR117
00711      EXIT.                                                        DTSBR117
00712      SKIP3                                                        DTSBR117
00713  S119-REQ-CAPS.                                                   DTSBR117
00714      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR117
00715      GO TO S119-AGENCY-FACTS.                                     DTSBR117
00716      SKIP3                                                        DTSBR117
00717 *S119-REQ-MIXED.                                                  DTSBR117
00718 *    SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR117
00719 *    GO TO S119-AGENCY-FACTS.                                     DTSBR117
00720 *    SKIP3                                                        DTSBR117
00721  S119-AGENCY-FACTS.                                               DTSBR117
00722      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR117
00723  S119-EXIT.                                                       DTSBR117
00724      EXIT.                                                           CL*30
00725  S910-OPEN-READ.                                                     CL*30
00726      SET L910-OPEN-READ-88 TO TRUE.                                  CL*30
00727      GO TO S910-MSTR-IO.                                             CL*30
00728                                                                      CL*30
00729  S910-OPEN-UPDATE-NO-AIX.                                            CL*30
00730      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                         CL*30
00731      GO TO S910-MSTR-IO.                                             CL*30
00732                                                                      CL*30
00733  S910-READ.                                                          CL*30
00734      SET L910-READ-88 TO TRUE.                                       CL*30
00735      GO TO S910-MSTR-IO.                                             CL*30
00736                                                                      CL*30
00737  S910-START-BROWSE.                                                  CL*30
00738      SET L910-START-BROWSE-88 TO TRUE.                               CL*30
00739      GO TO S910-MSTR-IO.                                             CL*30
00740  S910-READ-NEXT.                                                     CL*30
00741      SET L910-READ-NEXT-88 TO TRUE.                                  CL*30
00742      GO TO S910-MSTR-IO.                                             CL*30
00743                                                                      CL*30
00744  S910-COUNT.                                                         CL*30
00745      SET L910-COUNT-88 TO TRUE.                                      CL*30
00746      GO TO S910-MSTR-IO.                                             CL*30
00747                                                                      CL*30
00748  S910-REWRITE.                                                       CL*30
00749      SET L910-REWRITE-88 TO TRUE.                                    CL*30
00750      GO TO S910-MSTR-IO.                                             CL*30
00751                                                                      CL*30
00752  S910-DELETE.                                                        CL*30
00753      SET L910-DELETE-88 TO TRUE.                                     CL*30
00754      GO TO S910-MSTR-IO.                                             CL*30
00755  S910-CLOSE.                                                         CL*30
00756      SET L910-CLOSE-88     TO TRUE.                                  CL*30
00757      GO TO S910-MSTR-IO.                                             CL*30
00758                                                                      CL*30
00759  S910-MSTR-IO.                                                       CL*30
00760      CALL 'DTSBU910' USING L910-LINK-AREA                            CL*30
00761                            MSKL-REC.                                 CL*30
00762  S910-EXIT.                                                          CL*30
00763      EXIT.                                                           CL*30
00764      SKIP3                                                           CL*30
00765                                                                      CL*30
00766      SKIP3                                                        DTSBR117
00767  S599-BARCODE.                                                    DTSBR117
00768      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR117
00769      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR117
00770      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR117
00771                                                                   DTSBR117
00772      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR117
00773                                                                   DTSBR117
00774      IF L599-NOT-CONVERTED                                        DTSBR117
00775       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR117
00776  S599-EXIT.                                                       DTSBR117
00777      EXIT.                                                        DTSBR117
00778      SKIP3                                                        DTSBR117
00779  S999-ABEND.                                                      DTSBR117
00780      SKIP1                                                        DTSBR117
00781      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR117
00782      SKIP2                                                        DTSBR117
00783  S999-EXIT.                                                       DTSBR117
00784      EXIT.                                                        DTSBR117
00785                                                                   DTSBR117
