00001  IDENTIFICATION DIVISION.                                         07/21/16
00002  PROGRAM-ID.             DTSBR115.                                DTSBR115
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV020
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBR115
00005  DATE-COMPILED.                                                   DTSBR115
00006      SKIP3                                                        DTSBR115
00007 *****                                                             DTSBR115
00008 *                                                                 DTSBR115
00009 *    FUNCTION:  WELCOME LETTER.                                   DTSBR115
00010 *                                                                 DTSBR115
00011 *                                                                 DTSBR115
00012 *    MODIFICATION HISTORY:                                        DTSBR115
00013 *                                                                 DTSBR115
00014 * 08-21-94 INITIAL DEVELOPMENT                                    DTSBR115
00015 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR115
00016 *                                                                 DTSBR115
00017 * 01-31-95 CHANGED PRINT LINES FOR ADDRESS AND THE PRINT LINE     DTSBR115
00018 *          AND COLUMN FOR THE DATE (L002-LONG-TEXT-AREA) FOR      DTSBR115
00019 *          BETTER PLACEMENT ON LETTERHEAD MAILED IN WINDOW        DTSBR115
00020 *          ENVELOPES.                                             DTSBR115
00021 *          REFERENCE RFP #RAP                    PROGRAMMER: MJA  DTSBR115
00022 *                                                                 DTSBR115
00023 * 03-03-95 CHANGED LINE LIMIT FROM 62 TO 60 LINES.                DTSBR115
00024 *          REFERENCE RFP # RAP                   PROGRAMMER: MJA  DTSBR115
00025 *                                                                 DTSBR115
00026 * 04-02-95 MOVED REPORT LINES DOWN TO ACCOMODATE AGENCY BLUE      DTSBR115
00027 *          LETTERHEAD AND MOVED LEFT MARGIN TWO CHARACTERS TO THE DTSBR115
00028 *          LEFT.                                                  DTSBR115
00029 *          REFERENCE RFP # TPR 15                PROGRAMMER: MJA  DTSBR115
00030 *                                                                 DTSBR115
00031 * 03-24-97 REWORDED TO INCLUDE DEPT. OF REVENUE                   DTSBR115
00032 *          REFERENCE RFP # CHR97001              PROGRAMMER: SFW  DTSBR115
00033 *                                                                 DTSBR115
00034 * 11-07-97 MODIFICATIONS TO REFLECT THE TRANSFER OF UI TAX        DTSBR115
00035 *          FUNCTIONS FROM DLI TO DOR.                             DTSBR115
00036 *          REFERENCE RFP # TCL 208               PROGRAMMER: EHH  DTSBR115
00037 *                                                                 DTSBR115
00038 * 08-14-99 MODIFICATIONS TO REFLECT DUTAS LAZER PRINT REQUIREMENTSDTSBR115
00039 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR115
00040 *                                                                 DTSBR115
00041 *                                                                 DTSBR115
00042 * 06-28-16 MODIFICATIONS TO UI TAX CHIEF                          DTSBR115
00043 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR115
00044 *                                                                 DTSBR115
00045 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR115
00046 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR115
00047 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR115
00048 *                                                                 DTSBR115
00049 *                                                                 DTSBR115
00050 *    DESCRIPTION:                                                 DTSBR115
00051 *                                                                 DTSBR115
00052 *        THIS MODULE PRINTS A WELCOME LETTER TO NEW EMPLOYERS     DTSBR115
00053 *        WHOSE TAX ADDRESS (1) IS A MONTANA ADDRESS.              DTSBR115
00054 *                                                                 DTSBR115
00055 *                                                                 DTSBR115
00056 *    RECORDS READ:                                                DTSBR115
00057 *                                                                 DTSBR115
00058 *        NONE.                                                    DTSBR115
00059 *                                                                 DTSBR115
00060 *                                                                 DTSBR115
00061 *    PRINTED OUTPUTS:                                             DTSBR115
00062 *                                                                 DTSBR115
00063 *        115R1  WELCOME LETTER                                    DTSBR115
00064 *                                                                 DTSBR115
00065 *                                                                 DTSBR115
00066 *    RECORDS WRITTEN:                                             DTSBR115
00067 *                                                                 DTSBR115
00068 *        NONE.                                                    DTSBR115
00069 *                                                                 DTSBR115
00070 *                                                                 DTSBR115
00071 *    MODULES CALLED:                                              DTSBR115
00072 *                                                                 DTSBR115
00073 *        DTSBU002 DATE ALPHA CONVERSION MODULE                    DTSBR115
00074 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR115
00075 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR115
00076 *        DTSBU090 PARAGRAPH FORMATTING MODULE                     DTSBR115
00077 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR115
00078 *                                                                 DTSBR115
00079 *                                                                 DTSBR115
00080 *****                                                             DTSBR115
00081      EJECT                                                        DTSBR115
00082  ENVIRONMENT DIVISION.                                            DTSBR115
00083                                                                   DTSBR115
00084  CONFIGURATION SECTION.                                           DTSBR115
00085  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR115
00086                                                                   DTSBR115
00087  INPUT-OUTPUT SECTION.                                            DTSBR115
00088                                                                   DTSBR115
00089  FILE-CONTROL.                                                    DTSBR115
00090      SELECT PRT-FILE ASSIGN TO RPT115R1.                          DTSBR115
00091                                                                   DTSBR115
00092  DATA DIVISION.                                                   DTSBR115
00093                                                                   DTSBR115
00094  FILE SECTION.                                                    DTSBR115
00095                                                                   DTSBR115
00096  FD  PRT-FILE                                                     DTSBR115
00097      RECORDING MODE IS F                                          DTSBR115
00098      BLOCK CONTAINS 0 RECORDS                                     DTSBR115
00099      LABEL RECORDS ARE OMITTED.                                   DTSBR115
00100  01  XEROX-REPORT.                                                DTSBR115
00101      05  FILLER                      PIC X(1).                    DTSBR115
00102      05  XEROX-RPT                   PIC X(132).                  DTSBR115
00103      EJECT                                                        DTSBR115
00104  WORKING-STORAGE SECTION.                                         DTSBR115
001045 77  PAN-VALET PICTURE X(24) VALUE '020DTSBR115  07/21/16'.       DTSBR115
00105  77  PAN-VALET PICTURE X(24) VALUE '002DTSBR115  06/28/16'.       DTSBR115
00106  77  PAN-VALET PICTURE X(24) VALUE '018DTSBR115  07/30/13'.       DTSBR115
00107  77  PAN-VALET PICTURE X(24) VALUE '008DTSBR115  05/23/13'.       DTSBR115
00108  77  PAN-VALET PICTURE X(24) VALUE '016DTSBR115  01/11/05'.       DTSBR115
00109                                                                   DTSBR115
00110  01  WRK-AREA.                                                    DTSBR115
00111      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +115.DTSBR115
00112      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR115
00113                                                                   DTSBR115
00114      05  WS-FORMATTED-VOICE-INIT.                                 DTSBR115
00115          10  WS-VOICE-PREFIX         PIC  X(03).                  DTSBR115
00116          10  FILLER                  PIC  X(01)  VALUE '-'.       DTSBR115
00117          10  WS-VOICE-SUFFIX         PIC  X(04).                  DTSBR115
00118      05  WS-FORMATTED-VOICE REDEFINES WS-FORMATTED-VOICE-INIT     DTSBR115
00119                                      PIC  X(08).                  DTSBR115
00120      05  WS-OPR-VOICE.                                            DTSBR115
00121          10  WS-OPR-VOICE-AREA-CODE  PIC X(03)  VALUE SPACES.     DTSBR115
00122          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR115
00123          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR115
00124          10  WS-OPR-VOICE-EXT        PIC X(05)  VALUE SPACES.     DTSBR115
00125                                                                   DTSBR115
00126  01  VSCA-LINE.                                                   DTSBR115
00127      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR115
00128                                                                   DTSBR115
00129      SKIP1                                                        DTSBR115
00130  ++INCLUDE DTSIZ10D                                               DTSBR115
00131      EJECT                                                        DTSBR115
00132  01  L002-LINK-AREA.                                              DTSBR115
00133  ++INCLUDE DTSIL002                                               DTSBR115
00134      EJECT                                                        DTSBR115
00135  01  L062-LINK-AREA.                                              DTSBR115
00136  ++INCLUDE DTSIL062                                               DTSBR115
00137      EJECT                                                        DTSBR115
00138  01  L071-LINK-AREA.                                              DTSBR115
00139  ++INCLUDE DTSIL071                                               DTSBR115
00140      EJECT                                                        DTSBR115
00141  01  L090-LINK-AREA.                                              DTSBR115
00142  ++INCLUDE DTSIL090                                               DTSBR115
00143      EJECT                                                        DTSBR115
00144  01  L119-LINK-AREA.                                              DTSBR115
00145  ++INCLUDE DTSIL119                                               DTSBR115
00146      EJECT                                                        DTSBR115
00147  ++INCLUDE DTSXLRQI                                               DTSBR115
00148      SKIP3                                                        DTSBR115
00149  01  LETTER-HEADING.                                              DTSBR115
00150      05  LTH-LINE-12.                                             DTSBR115
00151          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00152          10  WS-LONG-TEXT-AREA       PIC  X(18) VALUE SPACES.     DTSBR115
00153          10  FILLER                  PIC  X(80) VALUE SPACES.     DTSBR115
00154      05  LTH-LINE-15.                                             DTSBR115
00155          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00156          10  WS-FMT-LINE-1           PIC  X(40) VALUE SPACES.     DTSBR115
00157      05  LTH-LINE-16.                                             DTSBR115
00158          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00159          10  WS-FMT-LINE-2           PIC  X(40) VALUE SPACES.     DTSBR115
00160      05  LTH-LINE-17.                                             DTSBR115
00161          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00162          10  WS-FMT-LINE-3           PIC  X(40) VALUE SPACES.     DTSBR115
00163      05  LTH-LINE-18.                                             DTSBR115
00164          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00165          10  WS-FMT-LINE-4           PIC  X(40) VALUE SPACES.     DTSBR115
00166      05  LTH-LINE-19.                                             DTSBR115
00167          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00168          10  WS-FMT-LINE-5           PIC  X(40) VALUE SPACES.     DTSBR115
00169      05  LTH-LINE-21.                                             DTSBR115
00170          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR115
00171          10  FILLER                  PIC  X(12)                   DTSBR115
00172                 VALUE 'ACCOUNT NO. '.                             DTSBR115
00173          10  WS-EMP-NO               PIC  999B999.                DTSBR115
00174      SKIP2                                                        DTSBR115
00175  ++INCLUDE DTSIZ115                                               DTSBR115
00176      EJECT                                                        DTSBR115
00177  LINKAGE SECTION.                                                 DTSBR115
00178      SKIP3                                                        DTSBR115
00179  01  LRCM-LINK-AREA.                                              DTSBR115
00180  ++INCLUDE DTSILRCM                                               DTSBR115
00181      EJECT                                                        DTSBR115
00182  01  R115-REC.                                                    DTSBR115
00183  ++INCLUDE DTSIR115                                               DTSBR115
00184      EJECT                                                        DTSBR115
00185  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR115
00186                           R115-REC.                               DTSBR115
00187                                                                   DTSBR115
00188      IF FIRST-TIME-IND = 'Y'                                      DTSBR115
00189          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR115
00190          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR115
00191                                                                   DTSBR115
00192      IF LRCM-EOR-88                                               DTSBR115
00193          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR115
00194      ELSE                                                         DTSBR115
00195          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR115
00196                                                                   DTSBR115
00197      GOBACK.                                                      DTSBR115
00198      EJECT                                                        DTSBR115
00199  I1000-INITIATE.                                                  DTSBR115
00200                                                                   DTSBR115
00201      OPEN OUTPUT PRT-FILE.                                        DTSBR115
00202                                                                   DTSBR115
00203      MOVE 'RPT115R1' TO REPORT-NUMBER.                            DTSBR115
00204      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE1                 DTSBR115
00205          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR115
00206      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE2.                DTSBR115
00207      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 15.    DTSBR115
00208      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE1.                DTSBR115
00209      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE2.                DTSBR115
00210      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE3.                DTSBR115
00211      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE4.                DTSBR115
00212      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE5.                DTSBR115
00213                                                                   DTSBR115
00214      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR115
00215      SET L119-REQ-NO-UNIT-88 TO TRUE.                             DTSBR115
00216      PERFORM S119-AGENCY-FACTS THRU S119-EXIT.                    DTSBR115
00217                                                                   DTSBR115
00218  I1000-EXIT.                                                      DTSBR115
00219      EXIT.                                                        DTSBR115
00220      EJECT                                                        DTSBR115
00221  P1000-PROCESS.                                                   DTSBR115
00222                                                                   DTSBR115
00223      MOVE R115-FLD-REP-ID TO L062-FLD-REP-ID.                     DTSBR115
00224      IF L062-FIELD-DESK-88                                        DTSBR115
00225          SET L062-DEFAULT-FLD-REP-88 TO TRUE.                     DTSBR115
00226      PERFORM S062-FLD-REP-INFO THRU S062-EXIT.                    DTSBR115
00227      IF L062-NOT-VALID                                            DTSBR115
00228          SET L062-DEFAULT-FLD-REP-88 TO TRUE                      DTSBR115
00229          PERFORM S062-FLD-REP-INFO THRU S062-EXIT.                DTSBR115
00230      IF L062-NOT-VALID                                            DTSBR115
00231          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR115
00232      MOVE L062-NAME TO L071-NAM.                                  DTSBR115
00233      MOVE 2 TO L071-NAME-FORMAT.                                  DTSBR115
00234      PERFORM S071-DESLASH-NAME THRU S071-EXIT.                    DTSBR115
00235                                                                   DTSBR115
00236      MOVE WS-WORD-GROUP0         TO L090-PHRASE-TABLE (1).        DTSBR115
00237      MOVE L071-NAM               TO L090-PHRASE-TABLE (2).        DTSBR115
00238      MOVE WS-WORD-GROUP1         TO L090-PHRASE-TABLE (3).        DTSBR115
00239      MOVE SPACES                 TO L090-PHRASE-TABLE (4).        DTSBR115
00240      STRING                                                       DTSBR115
00241        '('                        DELIMITED BY SIZE               DTSBR115
00242        L062-VOICE-1-AREA-CD       DELIMITED BY SIZE               DTSBR115
00243        ') '                       DELIMITED BY SIZE               DTSBR115
00244        L062-VOICE-1-PREFIX        DELIMITED BY SIZE               DTSBR115
00245        '-'                        DELIMITED BY SIZE               DTSBR115
00246        L062-VOICE-1-SUFFIX        DELIMITED BY SIZE               DTSBR115
00247       INTO                                                        DTSBR115
00248        L090-PHRASE-TABLE (4).                                     DTSBR115
00249      MOVE WS-WORD-GROUP2         TO L090-PHRASE-TABLE (5).        DTSBR115
00250      MOVE WS-WORD-GROUP3         TO L090-PHRASE-TABLE (6).        DTSBR115
00251      MOVE +6  TO L090-PHRASE-CNT.                                 DTSBR115
00252      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR115
00253      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR115
00254      SKIP1                                                        DTSBR115
00255      MOVE R115-MAIL-DATE TO L002-DATE.                            DTSBR115
00256      SET L002-MIXED-CASE TO TRUE.                                 DTSBR115
00257      PERFORM S002-DATE-ALPHA THRU S002-EXIT.                      DTSBR115
00258      SKIP1                                                        DTSBR115
00259      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR115
00260      PERFORM P3000-PRINT-DETAIL-START THRU P3000-EXIT             DTSBR115
00261      PERFORM                                                      DTSBR115
00262         VARYING L090-PARAGRAPH-IDX FROM +2 BY +1                  DTSBR115
00263         UNTIL L090-PARAGRAPH-IDX > L090-PARAGRAPH-LINE-CNT        DTSBR115
00264          IF L090-PARAGRAPH-LINE-DUPE-88 (L090-PARAGRAPH-IDX)      DTSBR115
00265              NEXT SENTENCE                                        DTSBR115
00266          ELSE                                                     DTSBR115
00267              PERFORM P5000-PRINT-DETAIL-LINE THRU P5000-EXIT      DTSBR115
00268          END-IF                                                   DTSBR115
00269      END-PERFORM.                                                 DTSBR115
00270      PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT.                  DTSBR115
00271                                                                   DTSBR115
00272  P1000-EXIT.                                                      DTSBR115
00273      EXIT.                                                        DTSBR115
00274      EJECT                                                        DTSBR115
00275                                                                   DTSBR115
00276  P2000-PRINT-HEADER.                                              DTSBR115
00277      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR115
00278      MOVE R115-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR115
00279      MOVE R115-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR115
00280      MOVE R115-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR115
00281      MOVE R115-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR115
00282      MOVE R115-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR115
00283      MOVE R115-EMP-NO       TO WS-EMP-NO.                         DTSBR115
00284      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR115
00285      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6  LINE.   DTSBR115
00286      WRITE XEROX-REPORT FROM LTH-LINE-12 AFTER ADVANCING 5 LINE.  DTSBR115
00287      WRITE XEROX-REPORT FROM LTH-LINE-15 AFTER ADVANCING 1 LINE.  DTSBR115
00288      WRITE XEROX-REPORT FROM LTH-LINE-16 AFTER ADVANCING 1 LINE.  DTSBR115
00289      WRITE XEROX-REPORT FROM LTH-LINE-17 AFTER ADVANCING 1 LINE.  DTSBR115
00290      WRITE XEROX-REPORT FROM LTH-LINE-18 AFTER ADVANCING 1 LINE.  DTSBR115
00291      WRITE XEROX-REPORT FROM LTH-LINE-19 AFTER ADVANCING 1 LINE.  DTSBR115
00292      WRITE XEROX-REPORT FROM LTH-LINE-21 AFTER ADVANCING 2 LINE.  DTSBR115
00293                                                                   DTSBR115
00294  P2000-EXIT.                                                      DTSBR115
00295      EXIT.                                                        DTSBR115
00296                                                                   DTSBR115
00297  P3000-PRINT-DETAIL-START.                                        DTSBR115
00298      MOVE L090-PARAGRAPH-LINE (1) TO WS-PARAGRAPH-LINE-1.         DTSBR115
00299      WRITE XEROX-REPORT FROM LDS-LINE-1 AFTER ADVANCING 1 LINE.   DTSBR115
00300      WRITE XEROX-REPORT FROM LDS-LINE-2 AFTER ADVANCING 1 LINE.   DTSBR115
00301      WRITE XEROX-REPORT FROM LDS-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR115
00302      WRITE XEROX-REPORT FROM LDS-LINE-4 AFTER ADVANCING 1 LINE.   DTSBR115
00303      WRITE XEROX-REPORT FROM LDS-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR115
00304      WRITE XEROX-REPORT FROM LDS-LINE-6 AFTER ADVANCING 1 LINE.   DTSBR115
00305      WRITE XEROX-REPORT FROM LDS-LINE-61 AFTER ADVANCING 1 LINE.  DTSBR115
00306      WRITE XEROX-REPORT FROM LDS-LINE-62 AFTER ADVANCING 1 LINE.  DTSBR115
00307      WRITE XEROX-REPORT FROM LDS-LINE-63 AFTER ADVANCING 1 LINE.  DTSBR115
00308      WRITE XEROX-REPORT FROM LDS-LINE-7A AFTER ADVANCING 1 LINE.  DTSBR115
00309      WRITE XEROX-REPORT FROM LDS-LINE-7 AFTER ADVANCING 1 LINE.   DTSBR115
00310      WRITE XEROX-REPORT FROM LDS-LINE-8 AFTER ADVANCING 1 LINE.   DTSBR115
00311 *    WRITE XEROX-REPORT FROM LDS-LINE-9 AFTER ADVANCING 1 LINE.   DTSBR115
00312                                                                   DTSBR115
00313  P3000-EXIT.                                                      DTSBR115
00314      EXIT.                                                        DTSBR115
00315                                                                   DTSBR115
00316  P5000-PRINT-DETAIL-LINE.                                         DTSBR115
00317       MOVE L090-PARAGRAPH-LINE (L090-PARAGRAPH-IDX) TO            DTSBR115
00318              WS-PARAGRAPH-LINE-IDX.                               DTSBR115
00319       WRITE XEROX-REPORT FROM LDL-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR115
00320                                                                   DTSBR115
00321  P5000-EXIT.                                                      DTSBR115
00322       EXIT.                                                       DTSBR115
00323                                                                   DTSBR115
00324                                                                   DTSBR115
00325  P6000-PRINT-FOOTER.                                              DTSBR115
00326 *    MOVE L119-UC-OFFICE-VOICE   TO WS-OPR-VOICE.                 DTSBR115
00327 *    MOVE WS-OPR-VOICE-AREA-CODE TO WS-VOICE-AREA-CD.             DTSBR115
00328 *    MOVE WS-OPR-VOICE-1         TO WS-VOICE-ONE.                 DTSBR115
00329 *    MOVE WS-OPR-VOICE-2         TO WS-VOICE-TWO.                 DTSBR115
00330      MOVE L119-UC-OFFICE-CHIEF-NAME    TO                         DTSBR115
00331           WS-L119-UC-OFFICE-CHIEF-NAME.                           DTSBR115
00332      MOVE L119-UC-OFFICE-CHIEF-TITLE   TO                         DTSBR115
00333           WS-L119-UC-OFFICE-CHIEF-TITLE.                          DTSBR115
00334      MOVE L119-UC-OFFICE-NAME          TO                         DTSBR115
00335           WS-L119-UC-OFFICE-NAME.                                 DTSBR115
00336      WRITE XEROX-REPORT FROM LTF-LINE-1 AFTER ADVANCING 1 LINE.   DTSBR115
00337      WRITE XEROX-REPORT FROM LTF-LINE-2 AFTER ADVANCING 1 LINE.   DTSBR115
00338      WRITE XEROX-REPORT FROM LTF-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR115
00339      WRITE XEROX-REPORT FROM LTF-LINE-4 AFTER ADVANCING 1 LINE.   DTSBR115
00340      WRITE XEROX-REPORT FROM LTF-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR115
00341      WRITE XEROX-REPORT FROM LTF-LINE-6 AFTER ADVANCING 1 LINE.   DTSBR115
00342      WRITE XEROX-REPORT FROM LTF-LINE-7 AFTER ADVANCING 1 LINE.   DTSBR115
00343      WRITE XEROX-REPORT FROM LTF-LINE-8 AFTER ADVANCING 1 LINE.   DTSBR115
00344                                                                   DTSBR115
00345  P6000-EXIT.                                                      DTSBR115
00346      EXIT.                                                        DTSBR115
00347                                                                   DTSBR115
00348  T1000-TERMINATE.                                                 DTSBR115
00349                                                                   DTSBR115
00350      CLOSE PRT-FILE.                                              DTSBR115
00351                                                                   DTSBR115
00352  T1000-EXIT.                                                      DTSBR115
00353      EXIT.                                                        DTSBR115
00354      EJECT                                                        DTSBR115
00355  S002-DATE-ALPHA.                                                 DTSBR115
00356                                                                   DTSBR115
00357      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR115
00358                                                                   DTSBR115
00359  S002-EXIT.                                                       DTSBR115
00360      EXIT.                                                        DTSBR115
00361                                                                   DTSBR115
00362  S062-FLD-REP-INFO.                                               DTSBR115
00363      SKIP1                                                        DTSBR115
00364      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR115
00365                                                                   DTSBR115
00366  S062-EXIT.                                                       DTSBR115
00367      EXIT.                                                        DTSBR115
00368                                                                   DTSBR115
00369  S071-DESLASH-NAME.                                               DTSBR115
00370                                                                   DTSBR115
00371      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR115
00372                                                                   DTSBR115
00373  S071-EXIT.                                                       DTSBR115
00374      EXIT.                                                        DTSBR115
00375                                                                   DTSBR115
00376  S090-PARAGRAPH-FORMAT.                                           DTSBR115
00377                                                                   DTSBR115
00378      MOVE +0 TO L090-INDENT.                                      DTSBR115
00379      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR115
00380                                                                   DTSBR115
00381      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR115
00382                                                                   DTSBR115
00383  S090-EXIT.                                                       DTSBR115
00384      EXIT.                                                        DTSBR115
00385                                                                   DTSBR115
00386  S119-AGENCY-FACTS.                                               DTSBR115
00387                                                                   DTSBR115
00388      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR115
00389                                                                   DTSBR115
00390  S119-EXIT.                                                       DTSBR115
00391      EXIT.                                                        DTSBR115
00392                                                                   DTSBR115
00393  S999-ABEND.                                                      DTSBR115
00394      SKIP1                                                        DTSBR115
00395      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR115
00396      SKIP2                                                        DTSBR115
00397  S999-EXIT.                                                       DTSBR115
00398      EXIT.                                                        DTSBR115
00399                                                                   DTSBR115
