00001  IDENTIFICATION DIVISION.                                         04/05/04
00002  PROGRAM-ID.             DTSBR135.                                DTSBR135
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV001
00004  DATE-WRITTEN.           JUNE 2003.                               DTSBR135
00005  DATE-COMPILED.                                                   DTSBR135
00006      SKIP3                                                        DTSBR135
00007 *****                                                             DTSBR135
00008 *    CALLING SEQUENCE:  DTSBD311 WRITES DTSIR135 RECORDS          DTSBR135
00009 *                       DTSBD800 CALLS DTSBR135 WHICH             DTSBR135
00010 *                       PRODUCES EFT LETTER AND APPLICATION.      DTSBR135
00011 *                                                                 DTSBR135
00012 *                                                                 DTSBR135
00013 *    FUNCTION:  PRINT EFT SOLICITATION LETTER AND APPLICATION     DTSBR135
00014 *                                                                 DTSBR135
00015 *                                                                 DTSBR135
00016 *    MODIFICATION HISTORY:                                        DTSBR135
00017 *                                                                 DTSBR135
00018 * 09-17-94 INITIAL DEVELOPMENT. COPIED FROM DTSBR902              DTSBR135
00019 *          REFERENCE DC DEVELOPMENT       AUTHOR OF CHANGE - ZL1  DTSBR135
00020 *                                                                 DTSBR135
00021 *                                                                 DTSBR135
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR135
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR135
00024 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR135
00025 *                                                                 DTSBR135
00026 *                                                                 DTSBR135
00027 *    DESCRIPTION:                                                 DTSBR135
00028 *                                                                 DTSBR135
00029 *        THIS MODULE PRINTS THE ELECTRONIC FUNDS TRANSFER         DTSBR135
00030 *        APPLICATION FORM AND SOLICITATION LETTER WHEN EMPLOYER   DTSBR135
00031 *        BECOMES LIABLE.                                          DTSBR135
00032 *                                                                 DTSBR135
00033 *    RECORDS READ:                                                DTSBR135
00034 *                                                                 DTSBR135
00035 *        NONE.                                                    DTSBR135
00036 *                                                                 DTSBR135
00037 *                                                                 DTSBR135
00038 *    PRINTED OUTPUTS:                                             DTSBR135
00039 *                                                                 DTSBR135
00040 *        135R1  EFT LETTER AND APPLICATION FORM                   DTSBR135
00041 *                                                                 DTSBR135
00042 *                                                                 DTSBR135
00043 *    RECORDS WRITTEN:                                             DTSBR135
00044 *                                                                 DTSBR135
00045 *        NONE.                                                    DTSBR135
00046 *                                                                 DTSBR135
00047 *                                                                 DTSBR135
00048 *    MODULES CALLED:                                              DTSBR135
00049 *                                                                 DTSBR135
00050 *        DTSBU004 DATE EDIT/CONVERSION MODULE                     DTSBR135
00051 *        DTSBU009 TRANSLATE TO UPPER CASE MODULE                  DTSBR135
00052 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR135
00053 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR135
00054 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR135
00055 *                                                                 DTSBR135
00056 *                                                                 DTSBR135
00057 *****                                                             DTSBR135
00058      EJECT                                                        DTSBR135
00059  ENVIRONMENT DIVISION.                                            DTSBR135
00060                                                                   DTSBR135
00061  CONFIGURATION SECTION.                                           DTSBR135
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR135
00063                                                                   DTSBR135
00064  INPUT-OUTPUT SECTION.                                            DTSBR135
00065                                                                   DTSBR135
00066  FILE-CONTROL.                                                    DTSBR135
00067      SELECT PRT-FILE1 ASSIGN TO RPT135R1.                         DTSBR135
00068                                                                   DTSBR135
00069  DATA DIVISION.                                                   DTSBR135
00070                                                                   DTSBR135
00071  FILE SECTION.                                                    DTSBR135
00072                                                                   DTSBR135
00073  FD  PRT-FILE1                                                    DTSBR135
00074      RECORDING MODE IS F.                                         DTSBR135
00075  01  T135R1                              PIC  X(133).             DTSBR135
00076                                                                   DTSBR135
00077  WORKING-STORAGE SECTION.                                         DTSBR135
000775 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR135  04/05/04'.       DTSBR135
00078                                                                   DTSBR135
00079  01  WRK-AREA.                                                    DTSBR135
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +135.DTSBR135
00081      05  FIRST-TIME-IND                  PIC  X(01)  VALUE 'Y'.   DTSBR135
00082      05  WS-DAILY-OP-ID-HOLD             PIC  X(08)  VALUE SPACES.DTSBR135
00083      05  WS-BLANK-LINE                   PIC  X(133) VALUE SPACES.DTSBR135
00084      05  WS-YRQ-UNPACK                   PIC  9(05)  VALUE ZEROS. DTSBR135
00085      05  WS-EMP-CLASS                    PIC  X(01).              DTSBR135
00086          88  WS-RATED-88                      VALUE 'R'.          DTSBR135
00087          88  WS-SELF-INS-88                   VALUE 'S'.          DTSBR135
00088                                                                   DTSBR135
00089      05  WS-BREAK-LINE1                  PIC  X(40) VALUE         DTSBR135
00090                 '*********************************     '.         DTSBR135
00091      05  WS-BREAK-LINE2                  PIC  X(40) VALUE         DTSBR135
00092                 '* ROUTE FOLLOWING FORMS TO:     *       '.       DTSBR135
00093      05  WS-OPR-NAME                     PIC  X(40) VALUE SPACES. DTSBR135
00094      05  WS-OPR-UNIT-NAME                PIC  X(40) VALUE SPACES. DTSBR135
00095                                                                   DTSBR135
00096      EJECT                                                        DTSBR135
00097  ++INCLUDE DTSXL135                                               DTSBR135
00098      EJECT                                                        DTSBR135
00099  01  L001-LINK-AREA.                                              DTSBR135
00100  ++INCLUDE DTSIL001                                               DTSBR135
00101      EJECT                                                        DTSBR135
00102  01  L002-LINK-AREA.                                              DTSBR135
00103  ++INCLUDE DTSIL002                                               DTSBR135
00104      EJECT                                                        DTSBR135
00105  01  L004-LINK-AREA.                                              DTSBR135
00106  ++INCLUDE DTSIL004                                               DTSBR135
00107      EJECT                                                        DTSBR135
00108  01  L008-LINK-AREA.                                              DTSBR135
00109  ++INCLUDE DTSIL008                                               DTSBR135
00110      EJECT                                                        DTSBR135
00111  01  L009-LINK-AREA.                                              DTSBR135
00112  ++INCLUDE DTSIL009                                               DTSBR135
00113      EJECT                                                        DTSBR135
00114  01  L071-LINK-AREA.                                              DTSBR135
00115  ++INCLUDE DTSIL071                                               DTSBR135
00116      EJECT                                                        DTSBR135
00117  01  L082-LINK-AREA.                                              DTSBR135
00118  ++INCLUDE DTSIL082                                               DTSBR135
00119      EJECT                                                        DTSBR135
00120 *01  L109-LINK-AREA.                                              DTSBR135
00121 **+INCLUDE DTSIL109                                               DTSBR135
00122 **   EJECT                                                        DTSBR135
00123  01  L119-LINK-AREA.                                              DTSBR135
00124  ++INCLUDE DTSIL119                                               DTSBR135
00125      EJECT                                                        DTSBR135
00126  01  ROUTE-INFO-AREA.                                             DTSBR135
00127      05  RTE-LINE-1.                                              DTSBR135
00128          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR135
00129          10  FILLER                  PIC  X(33)                   DTSBR135
00130                 VALUE '************ DTSP135  ***********'.        DTSBR135
00131      05  RTE-LINE-2.                                              DTSBR135
00132          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR135
00133          10  FILLER                  PIC  X(13)                   DTSBR135
00134                 VALUE '************ '.                            DTSBR135
00135          10  RTE-SYS-DATE            PIC  X(08)  VALUE SPACES.    DTSBR135
00136          10  FILLER                  PIC  X(13)                   DTSBR135
00137                 VALUE ' *********** '.                            DTSBR135
00138      05  RTE-LINE-3.                                              DTSBR135
00139          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR135
00140          10  FILLER                  PIC  X(33)                   DTSBR135
00141                 VALUE '************ DTSP135  ***********'.        DTSBR135
00142                                                                   DTSBR135
00143  01  EFTF-APPL.                                                   DTSBR135
00144      05  EFTF-LINE-2.                                             DTSBR135
00145          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR135
00146          10  EFTF-EMP-NO             PIC  999B999.                DTSBR135
00147          10  FILLER                  PIC  X(17)  VALUE SPACES.    DTSBR135
00148          10  EFTF-EMP-NAME           PIC  X(40)  VALUE SPACES.    DTSBR135
00149      05  EFTF-LINE-3.                                             DTSBR135
00150          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR135
00151          10  EFTF-EMP-FEIN           PIC  99B9999999.             DTSBR135
00152          10  FILLER                  PIC  X(14) VALUE SPACES.     DTSBR135
00153          10  EFTF-EMP-ADDR1          PIC  X(40)  VALUE SPACES.    DTSBR135
00154          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00155      05  EFTF-LINE-4.                                             DTSBR135
00156          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00157          10  EFTF-EMP-ADDR2          PIC  X(40)  VALUE SPACES.    DTSBR135
00158          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00159      05  EFTF-LINE-5.                                             DTSBR135
00160          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00161          10  EFTF-EMP-ADDR5          PIC  X(40)  VALUE SPACES.    DTSBR135
00162          10  FILLER                  PIC  X(05) VALUE SPACES.     DTSBR135
00163          10  EFTF-EMP-ZIP            PIC  X(10)  VALUE SPACES.    DTSBR135
00164                                                                   DTSBR135
00165  01  EFTL-LETT.                                                   DTSBR135
00166      05  EFTL-LINE-1.                                             DTSBR135
00167          10  FILLER                  PIC  X(70)  VALUE SPACES.    DTSBR135
00168          10  EFTL-DATE               PIC  X(10)  VALUE SPACES.    DTSBR135
00169      05  EFTL-LINE-2.                                             DTSBR135
00170          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00171          10  EFTL-EMP-ADDR1          PIC  X(40)  VALUE SPACES.    DTSBR135
00172          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00173      05  EFTL-LINE-3.                                             DTSBR135
00174          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00175          10  EFTL-EMP-ADDR2          PIC  X(40)  VALUE SPACES.    DTSBR135
00176          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00177      05  EFTL-LINE-4.                                             DTSBR135
00178          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00179          10  EFTL-EMP-ADDR3          PIC  X(40)  VALUE SPACES.    DTSBR135
00180          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00181      05  EFTL-LINE-5.                                             DTSBR135
00182          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00183          10  EFTL-EMP-ADDR4          PIC  X(40)  VALUE SPACES.    DTSBR135
00184          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00185      05  EFTL-LINE-6.                                             DTSBR135
00186          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR135
00187          10  EFTL-EMP-ADDR5          PIC  X(40)  VALUE SPACES.    DTSBR135
00188          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR135
00189      05  EFTL-LINE-7.                                             DTSBR135
00190          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR135
00191          10  EFTL-EMP-NO2            PIC  999B999.                DTSBR135
00192          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR135
00193                                                                   DTSBR135
00194                                                                   DTSBR135
00195                                                                   DTSBR135
00196      EJECT                                                        DTSBR135
00197  LINKAGE SECTION.                                                 DTSBR135
00198                                                                   DTSBR135
00199  01  LRCM-LINK-AREA.                                              DTSBR135
00200  ++INCLUDE DTSILRCM                                               DTSBR135
00201      EJECT                                                        DTSBR135
00202  01  R135-REC.                                                    DTSBR135
00203  ++INCLUDE DTSIR135                                               DTSBR135
00204      EJECT                                                        DTSBR135
00205  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR135
00206                           R135-REC.                               DTSBR135
00207      IF FIRST-TIME-IND = 'Y'                                      DTSBR135
00208          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR135
00209          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR135
00210                                                                   DTSBR135
00211      IF LRCM-EOR-88                                               DTSBR135
00212          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR135
00213      ELSE                                                         DTSBR135
00214          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR135
00215                                                                   DTSBR135
00216      GOBACK.                                                      DTSBR135
00217      EJECT                                                        DTSBR135
00218  I1000-INITIATE.                                                  DTSBR135
00219                                                                   DTSBR135
00220      OPEN OUTPUT PRT-FILE1.                                       DTSBR135
00221      MOVE SPACES        TO T135R1.                                DTSBR135
00222      MOVE SPACES        TO WS-DAILY-OP-ID-HOLD.                   DTSBR135
00223      MOVE LRCM-SYS-DATE TO RTE-SYS-DATE.                          DTSBR135
00224      WRITE T135R1 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.           DTSBR135
00225      WRITE T135R1 FROM RTE-LINE-1 AFTER 10.                       DTSBR135
00226      WRITE T135R1 FROM RTE-LINE-2 AFTER 1.                        DTSBR135
00227      WRITE T135R1 FROM RTE-LINE-3 AFTER 1.                        DTSBR135
00228                                                                   DTSBR135
00229  I1000-EXIT.                                                      DTSBR135
00230      EXIT.                                                        DTSBR135
00231                                                                   DTSBR135
00232  P1000-PROCESS.                                                   DTSBR135
00233                                                                   DTSBR135
00234          PERFORM P4000-BREAK-USERID    THRU P4000-EXIT            DTSBR135
00235          IF R135-RPT-EFT-LETT-88                                  DTSBR135
00236             PERFORM P3000-EFT-LETTER      THRU P3000-EXIT         DTSBR135
00237          ELSE                                                     DTSBR135
00238             PERFORM P3100-EFT-APPL-FORM   THRU P3100-EXIT.        DTSBR135
00239                                                                   DTSBR135
00240  P1000-EXIT.                                                      DTSBR135
00241      EXIT.                                                        DTSBR135
00242      EJECT                                                        DTSBR135
00243  P3000-EFT-LETTER.                                                DTSBR135
00244                                                                   DTSBR135
00245      MOVE LRCM-SYS-8-DATE      TO EFTL-DATE.                      DTSBR135
00246      MOVE R135-EMP-NO          TO EFTL-EMP-NO2.                   DTSBR135
00247                                                                   DTSBR135
00248      MOVE R135-FMT-LINE (1) TO EFTL-EMP-ADDR1.                    DTSBR135
00249      MOVE R135-FMT-LINE (2) TO EFTL-EMP-ADDR2.                    DTSBR135
00250      MOVE R135-FMT-LINE (3) TO EFTL-EMP-ADDR3.                    DTSBR135
00251      MOVE R135-FMT-LINE (4) TO EFTL-EMP-ADDR4.                    DTSBR135
00252      MOVE R135-FMT-LINE (5) TO EFTL-EMP-ADDR5.                    DTSBR135
00253                                                                   DTSBR135
00254      PERFORM P4030-GENERATE-LETT-REPORT THRU P4030-EXIT.          DTSBR135
00255                                                                   DTSBR135
00256  P3000-EXIT.                                                      DTSBR135
00257      EXIT.                                                        DTSBR135
00258  P3100-EFT-APPL-FORM.                                             DTSBR135
00259                                                                   DTSBR135
00260      MOVE R135-EMP-NO          TO EFTF-EMP-NO                     DTSBR135
00261      MOVE R135-EMP-FEIN        TO EFTF-EMP-FEIN.                  DTSBR135
00262                                                                   DTSBR135
00263      MOVE R135-FMT-LINE (1) TO EFTF-EMP-NAME.                     DTSBR135
00264      MOVE R135-FMT-LINE (2) TO EFTF-EMP-ADDR1.                    DTSBR135
00265      MOVE R135-FMT-LINE (3) TO EFTF-EMP-ADDR2.                    DTSBR135
00266      MOVE R135-FMT-LINE (4) TO EFTF-EMP-ADDR5.                    DTSBR135
00267      MOVE R135-FMT-LINE (5) TO EFTF-EMP-ZIP.                      DTSBR135
00268                                                                   DTSBR135
00269      PERFORM P4040-GENERATE-APPL-REPORT THRU P4040-EXIT.          DTSBR135
00270                                                                   DTSBR135
00271  P3100-EXIT.                                                      DTSBR135
00272      EXIT.                                                        DTSBR135
00273                                                                   DTSBR135
00274  P4000-BREAK-USERID.                                              DTSBR135
00275                                                                   DTSBR135
00276        IF R135-OP-ID NOT =  WS-DAILY-OP-ID-HOLD                   DTSBR135
00277           MOVE R135-OP-ID   TO WS-DAILY-OP-ID-HOLD                DTSBR135
00278           PERFORM P4020-OPID-BREAK           THRU P4020-EXIT      DTSBR135
00279           PERFORM P4030-GENERATE-LETT-REPORT THRU P4030-EXIT      DTSBR135
00280        END-IF.                                                    DTSBR135
00281                                                                   DTSBR135
00282  P4000-EXIT.                                                      DTSBR135
00283      EXIT.                                                        DTSBR135
00284      EJECT                                                        DTSBR135
00285  P4020-OPID-BREAK.                                                DTSBR135
00286                                                                   DTSBR135
00287      MOVE R135-OP-ID         TO L082-OP-ID                        DTSBR135
00288                                                                   DTSBR135
00289      PERFORM S082-OP-ID-INFO THRU S082-EXIT                       DTSBR135
00290      MOVE L082-NAME          TO L071-NAM                          DTSBR135
00291      MOVE 2                  TO L071-NAME-FORMAT                  DTSBR135
00292      PERFORM S071-DESLASH-NAME THRU S071-EXIT                     DTSBR135
00293      MOVE L071-NAM           TO L009-DATA                         DTSBR135
00294                                                                   DTSBR135
00295      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR135
00296      MOVE L009-DATA          TO WS-OPR-NAME                       DTSBR135
00297      MOVE L082-UNIT-NAME     TO L009-DATA                         DTSBR135
00298                                                                   DTSBR135
00299      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR135
00300      MOVE L009-DATA TO WS-OPR-UNIT-NAME.                          DTSBR135
00301                                                                   DTSBR135
00302      MOVE SPACES            TO EFTL-LINE-1                        DTSBR135
00303                                EFTL-LINE-2                        DTSBR135
00304                                EFTL-LINE-3                        DTSBR135
00305                                EFTL-LINE-4                        DTSBR135
00306                                EFTL-LINE-5                        DTSBR135
00307                                EFTL-LINE-6                        DTSBR135
00308                                EFTL-LINE-7.                       DTSBR135
00309      MOVE WS-BREAK-LINE1    TO EFTL-EMP-ADDR1.                    DTSBR135
00310      MOVE WS-BREAK-LINE2    TO EFTL-EMP-ADDR2.                    DTSBR135
00311      MOVE WS-OPR-NAME       TO EFTL-EMP-ADDR3.                    DTSBR135
00312      MOVE WS-OPR-UNIT-NAME  TO EFTL-EMP-ADDR4.                    DTSBR135
00313      MOVE WS-BREAK-LINE1    TO EFTL-EMP-ADDR5.                    DTSBR135
00314                                                                   DTSBR135
00315  P4020-EXIT.                                                      DTSBR135
00316      EXIT.                                                        DTSBR135
00317  P4030-GENERATE-LETT-REPORT.                                      DTSBR135
00318                                                                   DTSBR135
00319      WRITE T135R1 FROM XEROX-CNTL-LINE AFTER TOP-OF-PAGE.         DTSBR135
00320      WRITE T135R1 FROM EFTL-LINE-1       AFTER ADVANCING 7 LINE.  DTSBR135
00321      WRITE T135R1 FROM EFTL-LINE-2       AFTER ADVANCING 2 LINE.  DTSBR135
00322      WRITE T135R1 FROM EFTL-LINE-3       AFTER ADVANCING 1 LINE.  DTSBR135
00323      WRITE T135R1 FROM EFTL-LINE-4       AFTER ADVANCING 1 LINE.  DTSBR135
00324      WRITE T135R1 FROM EFTL-LINE-5       AFTER ADVANCING 1 LINE.  DTSBR135
00325      WRITE T135R1 FROM EFTL-LINE-6       AFTER ADVANCING 1 LINE.  DTSBR135
00326      WRITE T135R1 FROM EFTL-LINE-7       AFTER ADVANCING 3 LINE.  DTSBR135
00327                                                                   DTSBR135
00328  P4030-EXIT.                                                      DTSBR135
00329      EXIT.                                                        DTSBR135
00330  P4040-GENERATE-APPL-REPORT.                                      DTSBR135
00331                                                                   DTSBR135
00332      WRITE T135R1 FROM XEROX-CNTL-LINE2 AFTER TOP-OF-PAGE.        DTSBR135
00333      WRITE T135R1 FROM EFTF-LINE-2       AFTER ADVANCING 11 LINE. DTSBR135
00334      WRITE T135R1 FROM EFTF-LINE-3       AFTER ADVANCING 2 LINE.  DTSBR135
00335      WRITE T135R1 FROM EFTF-LINE-4       AFTER ADVANCING 2 LINE.  DTSBR135
00336      WRITE T135R1 FROM EFTF-LINE-5       AFTER ADVANCING 2 LINE.  DTSBR135
00337                                                                   DTSBR135
00338  P4040-EXIT.                                                      DTSBR135
00339      EXIT.                                                        DTSBR135
00340                                                                   DTSBR135
00341  T1000-TERMINATE.                                                 DTSBR135
00342                                                                   DTSBR135
00343      CLOSE PRT-FILE1.                                             DTSBR135
00344                                                                   DTSBR135
00345  T1000-EXIT.                                                      DTSBR135
00346      EXIT.                                                        DTSBR135
00347                                                                   DTSBR135
00348  S001-DATE.                                                       DTSBR135
00349                                                                   DTSBR135
00350      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR135
00351                                                                   DTSBR135
00352  S001-EXIT.                                                       DTSBR135
00353      EXIT.                                                        DTSBR135
00354                                                                   DTSBR135
00355  S002-DATE.                                                       DTSBR135
00356                                                                   DTSBR135
00357      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR135
00358                                                                   DTSBR135
00359  S002-EXIT.                                                       DTSBR135
00360      EXIT.                                                        DTSBR135
00361                                                                   DTSBR135
00362  S004-DATE.                                                       DTSBR135
00363                                                                   DTSBR135
00364      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR135
00365                                                                   DTSBR135
00366  S004-EXIT.                                                       DTSBR135
00367      EXIT.                                                        DTSBR135
00368                                                                   DTSBR135
00369  S008-YRQ-ALPHA.                                                  DTSBR135
00370                                                                   DTSBR135
00371      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR135
00372                                                                   DTSBR135
00373  S008-EXIT.                                                       DTSBR135
00374      EXIT.                                                        DTSBR135
00375                                                                   DTSBR135
00376  S009-UPPER-CASE-TRANSLATE.                                       DTSBR135
00377                                                                   DTSBR135
00378      CALL 'DTSBU009' USING L009-LINK-AREA.                        DTSBR135
00379                                                                   DTSBR135
00380  S009-EXIT.                                                       DTSBR135
00381      EXIT.                                                        DTSBR135
00382                                                                   DTSBR135
00383                                                                   DTSBR135
00384  S071-DESLASH-NAME.                                               DTSBR135
00385                                                                   DTSBR135
00386      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR135
00387                                                                   DTSBR135
00388  S071-EXIT.                                                       DTSBR135
00389      EXIT.                                                        DTSBR135
00390                                                                   DTSBR135
00391  S082-OP-ID-INFO.                                                 DTSBR135
00392                                                                   DTSBR135
00393      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR135
00394                                                                   DTSBR135
00395  S082-EXIT.                                                       DTSBR135
00396      EXIT.                                                        DTSBR135
00397                                                                   DTSBR135
00398 *S109-SUR-RATE.                                                   DTSBR135
00399 *                                                                 DTSBR135
00400 *    CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBR135
00401 *                                                                 DTSBR135
00402 *S109-EXIT.                                                       DTSBR135
00403      EXIT.                                                        DTSBR135
00404                                                                   DTSBR135
00405  S119-AGENCY-FACTS.                                               DTSBR135
00406                                                                   DTSBR135
00407      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR135
00408                                                                   DTSBR135
00409  S119-EXIT.                                                       DTSBR135
00410      EXIT.                                                        DTSBR135
00411                                                                   DTSBR135
00412                                                                   DTSBR135
00413 *S999-ABEND.                                                      DTSBR135
00414 *                                                                 DTSBR135
00415 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR135
00416 *                                                                 DTSBR135
00417 *S999-EXIT.                                                       DTSBR135
00418 *    EXIT.                                                        DTSBR135
00419                                                                   DTSBR135
