00001  IDENTIFICATION DIVISION.                                         04/11/13
00002  PROGRAM-ID.             DTSBR405.                                DTSBR405
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD                   LV080
00004                          MODIFIED BY TRW S&ITG.                   DTSBR405
00005  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR405
00006  DATE-COMPILED.                                                   DTSBR405
00007                                                                   DTSBR405
00008 *****                                                             DTSBR405
00009 *                                                                 DTSBR405
00010 *    CALLING SEQUENCE:  DTSBE405 CREATES DTSIR405 RECORDS.        DTSBR405
00011 *                       DTSBD800 CALLS DTSBR405                   DTSBR405
00012 *                                WHICH PRODUCES THE EXTRACT.      DTSBR405
00013 *                                                                 DTSBR405
00014 *    FUNCTION:  LIEN RELEASE CANDIDATES LIST.                     DTSBR405
00015 *                                                                 DTSBR405
00016 *                                                                 DTSBR405
00017 *                                                                 DTSBR405
00018 *    MODIFICATION HISTORY:                                        DTSBR405
00019 *                                                                 DTSBR405
00020 * 07-28-08 recompile for cobybook dtsiz405 change                 DTSBR405
00021 *          REFERENCE RFP                  AUTHOR OF CHANGE - zl1  DTSBR405
00022 *                                                                 DTSBR405
00023 * 06-04-02 ADDED RECORDER OF DEEDS NO. TO REPORT                  DTSBR405
00024 *          REFERENCE RFP                  AUTHOR OF CHANGE - JHP  DTSBR405
00025 *                                                                 DTSBR405
00026 * 12-15-94 INITIAL DEVELOPMENT                                    DTSBR405
00027 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - EHH  DTSBR405
00028 *                                                                 DTSBR405
00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR405
00030 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR405
00031 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR405
00032 *                                                                 DTSBR405
00033 *                                                                 DTSBR405
00034 *    DESCRIPTION:                                                 DTSBR405
00035 *                                                                 DTSBR405
00036 *        THIS MODULE PRODUCES THE LIEN RELEASE CANDIDATES LIST.   DTSBR405
00037 *                                                                 DTSBR405
00038 *                                                                 DTSBR405
00039 *    RECORDS READ:                                                DTSBR405
00040 *                                                                 DTSBR405
00041 *        NONE.                                                    DTSBR405
00042 *                                                                 DTSBR405
00043 *                                                                 DTSBR405
00044 *    PRINTED OUTPUTS:                                             DTSBR405
00045 *                                                                 DTSBR405
00046 *        405R1  LIEN RELEASE CANDIDATES LIST.                     DTSBR405
00047 *        405R1  LIEN RELEASE CANDIDATES CERTIFICATE.              DTSBR405
00048 *                                                                 DTSBR405
00049 *                                                                 DTSBR405
00050 *    RECORDS WRITTEN:                                             DTSBR405
00051 *                                                                 DTSBR405
00052 *        NONE.                                                    DTSBR405
00053 *                                                                 DTSBR405
00054 *                                                                 DTSBR405
00055 *    MODULES CALLED:                                              DTSBR405
00056 *                                                                 DTSBR405
00057 *        DTSBU001  DATE EDIT/CONVERT.                             DTSBR405
00058 *                                                                 DTSBR405
00059 *                                                                 DTSBR405
00060 *****                                                             DTSBR405
00061      EJECT                                                        DTSBR405
00062  ENVIRONMENT DIVISION.                                            DTSBR405
00063                                                                   DTSBR405
00064  CONFIGURATION SECTION.                                           DTSBR405
00065  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR405
00066                                                                   DTSBR405
00067  INPUT-OUTPUT SECTION.                                            DTSBR405
00068                                                                   DTSBR405
00069  FILE-CONTROL.                                                    DTSBR405
00070      SELECT PRT-FILE1  ASSIGN TO RPT405R1.                        DTSBR405
00071      SELECT PRT-FILE2  ASSIGN TO RPT405R2.                        DTSBR405
00072                                                                   DTSBR405
00073  DATA DIVISION.                                                   DTSBR405
00074                                                                   DTSBR405
00075  FILE SECTION.                                                    DTSBR405
00076                                                                   DTSBR405
00077  FD  PRT-FILE1                                                    DTSBR405
00078      RECORDING MODE IS F.                                         DTSBR405
00079  01  PRT-RECORD              PIC X(133).                          DTSBR405
00080                                                                   DTSBR405
00081  FD  PRT-FILE2                                                    DTSBR405
00082      RECORDING MODE IS F                                          DTSBR405
00083      BLOCK CONTAINS 0 RECORDS                                     DTSBR405
00084      LABEL RECORDS ARE OMITTED.                                   DTSBR405
00085  01  XEROX-REPORT.                                                DTSBR405
00086      05  FILLER                      PIC X(1).                    DTSBR405
00087      05  XEROX-RPT                   PIC X(132).                  DTSBR405
00088                                                                   DTSBR405
00089      EJECT                                                        DTSBR405
00090  WORKING-STORAGE SECTION.                                         DTSBR405
000905 77  PAN-VALET PICTURE X(24) VALUE '080DTSBR405  04/11/13'.       DTSBR405
00091  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR405  04/03/13'.       DTSBR405
00092  77  PAN-VALET PICTURE X(24) VALUE '008DTSBR405  06/13/12'.       DTSBR405
00093                                                                   DTSBR405
00094  01  WRK-AREA.                                                    DTSBR405
00095      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +405.DTSBR405
00096      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR405
00097      05  WRK-TODAYS-DATE.                                         DTSBR405
00098          10  WRK-TODAY-MONTH         PIC  9(02) VALUE ZERO.       DTSBR405
00099          10  FILLER                  PIC  X VALUE SPACE.          DTSBR405
00100          10  WRK-TODAY-DAY           PIC  9(02) VALUE ZERO.       DTSBR405
00101          10  FILLER REDEFINES WRK-TODAY-DAY.                      DTSBR405
00102              15  WRK-DAY-1           PIC  9.                      DTSBR405
00103              15  WRK-DAY-2           PIC  9.                      DTSBR405
00104          10  FILLER                  PIC  X VALUE SPACE.          DTSBR405
00105          10  WRK-TODAY-YEAR          PIC  9(04) VALUE ZERO.       DTSBR405
00106      05  WRK-MONTH-YEAR              PIC  X(16) VALUE SPACE.      DTSBR405
00107      05  WRK-DAY-SFX                 PIC  X(02) VALUE SPACE.      DTSBR405
00108                                                                   DTSBR405
00109      05  WS-REC-DEEDS-NO.                                         DTSBR405
00110          10  WS-FIRST3-DIGITS        PIC  X(03)  VALUE SPACES.    DTSBR405
00111          10  WS-LAST7-DIGITS         PIC  X(07)  VALUE SPACES.    DTSBR405
00112      05  WS-FOOT-NUMBER-ONE          PIC S9(03)  COMP-3 VALUE +0. DTSBR405
00113      05  WS-FOOT-NUMBER-TWO          PIC S9(03)  COMP-3 VALUE +0. DTSBR405
00114      05  WS-SUM-NUMBER-ONE           PIC S9(03)  COMP-3 VALUE +0. DTSBR405
00115      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR405
00116      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR405
00117      05  WS-PAGE-CNT                 PIC S9(03)  COMP-3 VALUE +0. DTSBR405
00118      05  WS-OP-ID-HOLD               PIC  X(08) VALUE SPACES.     DTSBR405
00119      05  WS-OPR-NAME-CAPS            PIC  X(32) VALUE SPACES.     DTSBR405
00120      05  WS-OPR-UNIT-NAME-CAPS       PIC  X(50) VALUE SPACES.     DTSBR405
00121      05  WS-OPR-NAME-MIXED           PIC  X(32) VALUE SPACES.     DTSBR405
00122      05  WS-OPR-UNIT-NAME-MIXED      PIC  X(50) VALUE SPACES.     DTSBR405
00123                                                                   DTSBR405
00124      05  WS-OPR-VOICE.                                            DTSBR405
00125          10  WS-OPR-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR405
00126          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR405
00127          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR405
00128          10  WS-OPR-VOICE-EXT        PIC X(04)  VALUE SPACES.     DTSBR405
00129                                                                   DTSBR405
00130  ++INCLUDE DTSIC405                                               DTSBR405
00131      05  WRK-FILING-DATE             PIC  X(10) VALUE SPACE.      DTSBR405
00132      EJECT                                                        DTSBR405
00133  01  L119-LINK-AREA.                                              DTSBR405
00134  ++INCLUDE DTSIL119                                               DTSBR405
00135      EJECT                                                        DTSBR405
00136  01  L001-LINK-AREA.                                              DTSBR405
00137  ++INCLUDE DTSIL001                                               DTSBR405
00138      EJECT                                                        DTSBR405
00139  01  L009-LINK-AREA.                                              DTSBR405
00140  ++INCLUDE DTSIL009                                               DTSBR405
00141      EJECT                                                        DTSBR405
00142  01  L071-LINK-AREA.                                              DTSBR405
00143  ++INCLUDE DTSIL071                                               DTSBR405
00144      EJECT                                                        DTSBR405
00145  01  L082-LINK-AREA.                                              DTSBR405
00146  ++INCLUDE DTSIL082                                               DTSBR405
00147      EJECT                                                        DTSBR405
00148  ++INCLUDE DTSXL405                                               DTSBR405
00149                                                                   DTSBR405
00150  01  PAGE-HEADING1.                                               DTSBR405
00151      05  HDR1-LINE-1.                                             DTSBR405
00152          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00153          10  FILLER                  PIC  X(05)                   DTSBR405
00154                 VALUE '405R1'.                                    DTSBR405
00155          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR405
00156          10  HDR1-AGY-NAME-LINE1     PIC  X(50) VALUE SPACE.      DTSBR405
00157          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR405
00158          10  FILLER                  PIC  X(05)                   DTSBR405
00159                 VALUE 'DATE:'.                                    DTSBR405
00160          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00161          10  HDR1-SYS-DATE           PIC  X(08) VALUE SPACE.      DTSBR405
00162      05  HDR1-LINE-2.                                             DTSBR405
00163          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR405
00164          10  HDR1-AGY-NAME-LINE2     PIC  X(50) VALUE SPACE.      DTSBR405
00165          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR405
00166          10  FILLER                  PIC  X(05)                   DTSBR405
00167                 VALUE 'TIME:'.                                    DTSBR405
00168          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR405
00169          10  HDR1-SYS-TIME           PIC  X(08) VALUE SPACE.      DTSBR405
00170      05  HDR1-LINE-3.                                             DTSBR405
00171          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00172          10  FILLER                  PIC  X(35)                   DTSBR405
00173                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT        '.      DTSBR405
00174          10  FILLER                  PIC  X(83)  VALUE SPACES.    DTSBR405
00175          10  FILLER                  PIC  X(05)                   DTSBR405
00176                 VALUE 'PAGE:'.                                    DTSBR405
00177          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR405
00178          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR405
00179      05  HDR1-LINE-4.                                             DTSBR405
00180          10  FILLER                  PIC  X(53)  VALUE SPACES.    DTSBR405
00181          10  FILLER                  PIC  X(27)                   DTSBR405
00182                 VALUE '     LIEN RELEASE LIST     '.              DTSBR405
00183      05  HDR1-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR405
00184      05  HDR1-LINE-6                 PIC  X(133) VALUE SPACES.    DTSBR405
00185      05  HDR1-LINE-7.                                             DTSBR405
00186          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR405
00187          10  FILLER                  PIC  X(06)                   DTSBR405
00188                 VALUE 'EMP NO'.                                   DTSBR405
00189          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR405
00190          10  FILLER                  PIC  X(13)                   DTSBR405
00191                 VALUE 'PRIMARY NAME '.                            DTSBR405
00192          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR405
00193          10  FILLER                  PIC  X(11)                   DTSBR405
00194                 VALUE 'OUC NO.    '.                              DTSBR405
00195          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR405
00196          10  FILLER                  PIC  X(11)                   DTSBR405
00197                 VALUE 'RECORDER # '.                              DTSBR405
00198          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR405
00199          10  FILLER                  PIC  X(11)                   DTSBR405
00200                 VALUE 'LIEN DATE'.                                DTSBR405
00201                                                                   DTSBR405
00202  01  DETAIL-LINE1.                                                DTSBR405
00203      05  DTL1-LINE-2.                                             DTSBR405
00204          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR405
00205          10  DTL1-EMP-NO             PIC  999B999.                DTSBR405
00206          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR405
00207          10  DTL1-PRIMARY-NAME       PIC  X(40)  VALUE SPACE.     DTSBR405
00208          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR405
00209          10  DTL1-CERT-NO            PIC  X(10).                  DTSBR405
00210          10  DTL1-CERT-NO-9 REDEFINES DTL1-CERT-NO.               DTSBR405
00211              15  DTL1-CERT-NO-6      PIC  99B9999.                DTSBR405
00212              15  DTL1-REST-3         PIC  X(03).                  DTSBR405
00213          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR405
00214          10  DTL1-DEED-NO            PIC  X(10).                  DTSBR405
00215          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR405
00216          10  DTL1-SLASH-DATE         PIC  X(10)  VALUE SPACE.     DTSBR405
00217                                                                   DTSBR405
00218  01  CONTROL-FOOTING-FINAL.                                       DTSBR405
00219      05  CFF-LINE-3.                                              DTSBR405
00220          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR405
00221          10  CFF-NUMBER-ONE          PIC  ZZ,ZZ9.                 DTSBR405
00222          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00223          10  FILLER                  PIC  X(12)                   DTSBR405
00224                 VALUE 'LIENS LISTED'.                             DTSBR405
00225      EJECT                                                        DTSBR405
00226                                                                   DTSBR405
00227  01  PAGE-HEADING2.                                               DTSBR405
00228      05  HDR2-LINE-9.                                             DTSBR405
00229          10  FILLER                  PIC  X(30)  VALUE SPACES.    DTSBR405
00230          10  FILLER                  PIC  X(24)                   DTSBR405
00231                 VALUE 'RECORDER OF DEEDS OF THE'.                 DTSBR405
00232      05  HDR2-LINE-10.                                            DTSBR405
00233          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR405
00234          10  FILLER                  PIC  X(20)                   DTSBR405
00235                 VALUE 'DISTRICT OF COLUMBIA'.                     DTSBR405
00236      05  HDR2-LINE-11                PIC  X(133) VALUE SPACES.    DTSBR405
00237      05  HDR2-LINE-12                PIC  X(133) VALUE SPACES.    DTSBR405
00238      05  HDR2-LINE-13                PIC  X(133) VALUE SPACES.    DTSBR405
00239      05  HDR2-LINE-14.                                            DTSBR405
00240          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00241          10  FILLER                  PIC  X(20)                   DTSBR405
00242                 VALUE 'District of Columbia'.                     DTSBR405
00243          10  FILLER                  PIC  X(22)  VALUE SPACES.    DTSBR405
00244          10  FILLER                  PIC  X(01)                   DTSBR405
00245                 VALUE ')'.                                        DTSBR405
00246      05  HDR2-LINE-15.                                            DTSBR405
00247          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00248          10  FILLER                  PIC  X(34)                   DTSBR405
00249                 VALUE 'Department of Employment Services'.        DTSBR405
00250          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR405
00251          10  FILLER                  PIC  X(01)                   DTSBR405
00252                 VALUE ')'.                                        DTSBR405
00253      05  HDR2-LINE-16.                                            DTSBR405
00254          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00255          10  FILLER                  PIC  X(35)                   DTSBR405
00256                 VALUE 'Office of Unemployment Compensation'.      DTSBR405
00257          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR405
00258          10  FILLER                  PIC  X(01)                   DTSBR405
00259                 VALUE ')'.                                        DTSBR405
00260      05  HDR2-LINE-17.                                            DTSBR405
00261          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00262          10  HDR2-MAIL1-PHYS1-STRING PIC  X(40).                  DTSBR405
00263          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00264          10  FILLER                  PIC  X(01)                   DTSBR405
00265                 VALUE ')'.                                        DTSBR405
00266      05  HDR2-LINE-18.                                            DTSBR405
00267          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00268          10  HDR2-AGY-MAIL2-NO-CAPS  PIC  X(40) VALUE SPACE.      DTSBR405
00269          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00270          10  FILLER                  PIC  X(01)                   DTSBR405
00271                 VALUE ')'.                                        DTSBR405
00272          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00273          10  FILLER                  PIC  X(22)                   DTSBR405
00274                 VALUE 'EMPLOYER ACCOUNT NO:  '.                   DTSBR405
00275          10  HDR2-EMP-NO             PIC  999B999.                DTSBR405
00276      05  HDR2-LINE-19.                                            DTSBR405
00277          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR405
00278          10  FILLER                  PIC  X(01)                   DTSBR405
00279                 VALUE ')'.                                        DTSBR405
00280      05  HDR2-LINE-20.                                            DTSBR405
00281          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR405
00282          10  FILLER                  PIC  X(01)                   DTSBR405
00283                 VALUE ')'.                                        DTSBR405
00284          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00285          10  FILLER                  PIC  X(22)                   DTSBR405
00286                 VALUE 'OUC CERTIFICATE NO:   '.                   DTSBR405
00287          10  HDR2-CERT-NO            PIC  X(10).                  DTSBR405
00288          10  HDR2-CERT-NO-9 REDEFINES HDR2-CERT-NO.               DTSBR405
00289              15  HDR2-CERT-NO-6      PIC  99b9999.                DTSBR405
00290              15  HDR2-REST-3         PIC  X(03).                  DTSBR405
00291      05  HDR2-LINE-21.                                            DTSBR405
00292          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR405
00293          10  FILLER                  PIC  X(01)                   DTSBR405
00294                 VALUE ')'.                                        DTSBR405
00295      05  HDR2-LINE-22.                                            DTSBR405
00296          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR405
00297          10  FILLER                  PIC  X(01)                   DTSBR405
00298                 VALUE ')'.                                        DTSBR405
00299          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00300          10  FILLER                  PIC  X(22)                   DTSBR405
00301                 VALUE 'RECORDER OF DEEDS NO: '.                   DTSBR405
00302          10  HDR2-DEED-NO            PIC  X(10).                  DTSBR405
00303      05  HDR2-LINE-23.                                            DTSBR405
00304          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR405
00305          10  FILLER                  PIC  X(01)                   DTSBR405
00306                 VALUE ')'.                                        DTSBR405
00307      05  HDR2-LINE-24.                                            DTSBR405
00308          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00309          10  HDR2-PRIMARY-NAME       PIC  X(40) VALUE SPACE.      DTSBR405
00310          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00311          10  FILLER                  PIC  X(01)                   DTSBR405
00312                 VALUE ')'.                                        DTSBR405
00313      05  HDR2-LINE-25.                                            DTSBR405
00314          10  FILLER                  PIC  X(43)  VALUE SPACES.    DTSBR405
00315          10  FILLER                  PIC  X(01)                   DTSBR405
00316                 VALUE ')'.                                        DTSBR405
00317      05  HDR2-LINE-26.                                            DTSBR405
00318          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00319          10  FILLER                  PIC  X(08)                   DTSBR405
00320                 VALUE 'ADDRESS:'.                                 DTSBR405
00321          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR405
00322          10  FILLER                  PIC  X(01)                   DTSBR405
00323                 VALUE ')'.                                        DTSBR405
00324      05  HDR2-LINE-27.                                            DTSBR405
00325          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00326          10  HDR2-FMT-LINE-1         PIC  X(40) VALUE SPACE.      DTSBR405
00327          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00328          10  FILLER                  PIC  X(01)                   DTSBR405
00329                 VALUE ')'.                                        DTSBR405
00330      05  HDR2-LINE-28.                                            DTSBR405
00331          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00332          10  HDR2-FMT-LINE-2         PIC  X(40) VALUE SPACE.      DTSBR405
00333          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00334          10  fILLER                  PIC  X(01)                   DTSBR405
00335                 VALUE ')'.                                        DTSBR405
00336      05  HDR2-LINE-29.                                            DTSBR405
00337          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00338          10  HDR2-FMT-LINE-3         PIC  X(40) VALUE SPACE.      DTSBR405
00339          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00340          10  FILLER                  PIC  X(01)                   DTSBR405
00341                 VALUE ')'.                                        DTSBR405
00342      05  HDR2-LINE-30.                                            DTSBR405
00343          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00344          10  HDR2-FMT-LINE-4         PIC  X(40) VALUE SPACE.      DTSBR405
00345          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00346          10  FILLER                  PIC  X(01)                   DTSBR405
00347                 VALUE ')'.                                        DTSBR405
00348      05  HDR2-LINE-31.                                            DTSBR405
00349          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR405
00350          10  HDR2-FMT-LINE-5         PIC  X(40) VALUE SPACE.      DTSBR405
00351          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR405
00352          10  FILLER                  PIC  X(01)                   DTSBR405
00353                 VALUE ')'.                                        DTSBR405
00354      05  HDR2-LINE-32                PIC  X(133) VALUE SPACES.    DTSBR405
00355      05  HDR2-LINE-33                PIC  X(133) VALUE SPACES.    DTSBR405
00356      05  HDR2-LINE-34.                                            DTSBR405
00357          10  FILLER                  PIC  X(21)  VALUE SPACES.    DTSBR405
00358          10  FILLER                  PIC  X(30)                   DTSBR405
00359                 VALUE 'CERTIFICATE OF RELEASE OF LIEN'.           DTSBR405
00360      05  HDR2-LINE-35                PIC  X(133) VALUE SPACES.    DTSBR405
00361      05  HDR2-LINE-36                PIC  X(133) VALUE SPACES.    DTSBR405
00362                                                                   DTSBR405
00363  ++INCLUDE DTSIZ405                                               DTSBR405
00364      EJECT                                                        DTSBR405
00365  LINKAGE SECTION.                                                 DTSBR405
00366                                                                   DTSBR405
00367  01  LRCM-LINK-AREA.                                              DTSBR405
00368  ++INCLUDE DTSILRCM                                               DTSBR405
00369      EJECT                                                        DTSBR405
00370  01  R405-REC.                                                    DTSBR405
00371  ++INCLUDE DTSIR405                                               DTSBR405
00372      EJECT                                                        DTSBR405
00373  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR405
00374                           R405-REC.                               DTSBR405
00375                                                                   DTSBR405
00376      IF FIRST-TIME-IND = 'Y'                                      DTSBR405
00377          PERFORM I1000-INITIATE                                   DTSBR405
00378             THRU I1000-EXIT                                       DTSBR405
00379          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR405
00380                                                                   DTSBR405
00381      IF LRCM-EOR-88                                               DTSBR405
00382          PERFORM T1000-TERMINATE                                  DTSBR405
00383             THRU T1000-EXIT                                       DTSBR405
00384      ELSE                                                         DTSBR405
00385          PERFORM P1000-PROCESS                                    DTSBR405
00386             THRU P1000-EXIT.                                      DTSBR405
00387                                                                   DTSBR405
00388      GOBACK.                                                      DTSBR405
00389      EJECT                                                        DTSBR405
00390  I1000-INITIATE.                                                  DTSBR405
00391                                                                   DTSBR405
00392      OPEN OUTPUT PRT-FILE1.                                       DTSBR405
00393      OPEN OUTPUT PRT-FILE2.                                       DTSBR405
00394                                                                   DTSBR405
00395      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR405
00396      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR405
00397      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR405
00398      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR405
00399      MOVE SPACES TO PRT-RECORD.                                   DTSBR405
00400                                                                   DTSBR405
00401      MOVE SPACES TO XEROX-REPORT.                                 DTSBR405
00402 *    MOVE 'XXXXXXXX' TO REPORT-NUMBER.                            DTSBR405
00403                                                                   DTSBR405
00404      WRITE XEROX-REPORT     FROM BLANK-LINE                       DTSBR405
00405          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR405
00406      WRITE XEROX-REPORT     FROM XEROX-XMOM-CNTL1 AFTER 1.        DTSBR405
00407      WRITE XEROX-REPORT     FROM XEROX-XMOM-CNTL2 AFTER 1.        DTSBR405
00408      WRITE XEROX-REPORT     FROM BLANK-LINE AFTER ADVANCING 8.    DTSBR405
00409      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE13 AFTER 1.       DTSBR405
00410      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE14 AFTER 1.       DTSBR405
00411      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE15 AFTEr 1.       DTSBR405
00412      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE16 AFTER 1.       DTSBR405
00413      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17 AFTER 1.       DTSBR405
00414                                                                   DTSBR405
00415      SET L119-REQ-MIXED-88   TO TRUE.                             DTSBR405
00416      SET L119-REQ-NO-UNIT-88 TO TRUE.                             DTSBR405
00417                                                                   DTSBR405
00418      PERFORM S119-AGENCY-FACTS                                    DTSBR405
00419         THRU S119-EXIT.                                           DTSBR405
00420                                                                   DTSBR405
00421      MOVE L119-AGY-MAIL2 TO WS-AGY-MAIL2-NO-CAPS                  DTSBR405
00422                             HDR2-AGY-MAIL2-NO-CAPS.               DTSBR405
00423      MOVE L119-AGY-MAIL1 TO WS-MAIL1-PHYS1-STRING                 DTSBR405
00424                             HDR2-MAIL1-PHYS1-STRING.              DTSBR405
00425  I1000-EXIT.                                                      DTSBR405
00426      EXIT.                                                        DTSBR405
00427      EJECT                                                        DTSBR405
00428  P1000-PROCESS.                                                   DTSBR405
00429                                                                   DTSBR405
00430      MOVE LRCM-SYS-8-DATE TO WRK-TODAYS-DATE.                     DTSBR405
00431                                                                   DTSBR405
00432      IF WRK-DAY-2 = 1 AND WRK-DAY-1 NOT = 1                       DTSBR405
00433          MOVE WRK-ST TO WRK-DAY-SFX                               DTSBR405
00434      ELSE                                                         DTSBR405
00435          IF WRK-DAY-2 = 2 AND WRK-DAY-1 NOT = 1                   DTSBR405
00436              MOVE WRK-ND TO WRK-DAY-SFX                           DTSBR405
00437          ELSE                                                     DTSBR405
00438              IF WRK-DAY-2 = 3 AND WRK-DAY-1 NOT = 1               DTSBR405
00439                  MOVE WRK-RD TO WRK-DAY-SFX                       DTSBR405
00440              ELSE                                                 DTSBR405
00441                  MOVE WRK-TH TO WRK-DAY-SFX.                      DTSBR405
00442      MOVE SPACES TO WRK-MONTH-YEAR.                               DTSBR405
00443      STRING WRK-MONTH-NAME (WRK-TODAY-MONTH) DELIMITED BY SPACE   DTSBR405
00444             ', '                             DELIMITED BY SIZE    DTSBR405
00445             WRK-TODAY-YEAR                   DELIMITED BY SIZE    DTSBR405
00446             '.'                              DELIMITED BY SIZE    DTSBR405
00447        INTO WRK-MONTH-YEAR.                                       DTSBR405
00448 *    MOVE R405-STMT-DATE        TO L001-FED-8-DATE-9.             DTSBR405
00449      MOVE R405-CERTIFICATE-DATE TO L001-FED-8-DATE-9.             DTSBR405
00450                                                                   DTSBR405
00451      PERFORM S001-FROM-FED-8                                      DTSBR405
00452         THRU S001-EXIT.                                           DTSBR405
00453                                                                   DTSBR405
00454      MOVE L001-SLASH-8-DATE TO WS-SLASH-DATE DTL1-SLASH-DATE.     DTSBR405
00455                                                                   DTSBR405
00456      MOVE R405-REC-DEEDS-NO   TO WS-REC-DEEDS-NO.                 DTSBR405
00457 *    IF WS-FIRST3-DIGITS = 'CNV'                                  DTSBR405
00458 *       MOVE R405-CERTIFICATE-NO TO wS-CERT-NO-C DTL1-CERT-NO-6   DTSBR405
00459 *                                   HDR2-CERT-NO-6                DTSBR405
00460 *       MOVE SPACES              TO DTL1-REST-3                   DTSBR405
00461 *       MOVE SPACES              TO HDR2-REST-3                   DTSBR405
00462 *    ELSE                                                         DTSBR405
00463         MOVE R405-CERTIFICATE-NO TO WS-CERT-NO-R DTL1-CERT-NO     DTSBR405
00464                                     HDR2-CERT-NO.                 DTSBR405
00465 *    END-IF.                                                      DTSBR405
00466                                                                   DTSBR405
00467 ***  MOVE R405-REC-DEEDS-NO   TO WS-CERT-NO-R                     DTSBR405
00468      MOVE R405-REC-DEEDS-NO   TO DTL1-DEED-NO                     DTSBR405
00469                                  HDR2-DEED-NO.                    DTSBR405
00470                                                                   DTSBR405
00471      MOVE R405-PRIMARY-NAME   TO HDR2-PRIMARY-NAME                DTSBR405
00472                                  DTL1-PRIMARY-NAME.               DTSBR405
00473      MOVE R405-FMT-LINE (1)   TO HDR2-FMT-LINE-1.                 DTSBR405
00474      MOVE R405-FMT-LINE (2)   TO HDR2-FMT-LINE-2.                 DTSBR405
00475      MOVE R405-FMT-LINE (3)   TO HDR2-FMT-LINE-3.                 DTSBR405
00476      MOVE R405-FMT-LINE (4)   TO HDR2-FMT-LINE-4.                 DTSBR405
00477      MOVE R405-FMT-LINE (5)   TO HDR2-FMT-LINE-5.                 DTSBR405
00478 *                                                                 DTSBR405
00479      MOVE R405-EMP-NO           TO DTL1-EMP-NO                    DTSBR405
00480                                    HDR2-EMP-NO.                   DTSBR405
00481      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR405
00482      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR405
00483      WRITE PRT-RECORD FROM DTL1-LINE-2  AFTER 2.                  DTSBR405
00484      ADD +2    TO WS-LINE-CNT2.                                   DTSBR405
00485      ADD +1    TO WS-SUM-NUMBER-ONE.                              DTSBR405
00486 *                                                                 DTSBR405
00487      PERFORM P4000-LOOKUP-OPID  THRU P4000-EXIT.                  DTSBR405
00488      PERFORM P3000-PRINT-XEROX  THRU P3000-EXIT.                  DTSBR405
00489                                                                   DTSBR405
00490  P1000-EXIT.                                                      DTSBR405
00491      EXIT.                                                        DTSBR405
00492                                                                   DTSBR405
00493  P2000-PRINT-HEADER.                                              DTSBR405
00494      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR405
00495           WS-LINE-CNT2 GREATER 58                                 DTSBR405
00496         MOVE +0          TO WS-LINE-CNT                           DTSBR405
00497         MOVE +0          TO WS-LINE-CNT2                          DTSBR405
00498         ADD  +1          TO WS-PAGE-CNT                           DTSBR405
00499         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR405
00500         WRITE PRT-RECORD FROM HDR1-LINE-1 AFTER TOP-OF-PAGE       DTSBR405
00501         WRITE PRT-RECORD FROM HDR1-LINE-2 AFTER 1                 DTSBR405
00502         WRITE PRT-RECORD FROM HDR1-LINE-3 AFTER 1                 DTSBR405
00503         WRITE PRT-RECORD FROM HDR1-LINE-4 AFTER 1                 DTSBR405
00504         WRITE PRT-RECORD FROM HDR1-LINE-5 AFTER 1                 DTSBR405
00505         WRITE PRT-RECORD FROM HDR1-LINE-6 AFTER 1                 DTSBR405
00506         WRITE PRT-RECORD FROM HDR1-LINE-7 AFTER 1                 DTSBR405
00507         ADD +7    TO WS-LINE-CNT2.                                DTSBR405
00508  P2000-EXIT.                                                      DTSBR405
00509      EXIT.                                                        DTSBR405
00510                                                                   DTSBR405
00511  P3000-PRINT-XEROX.                                               DTSBR405
00512                                                                   DTSBR405
00513      WRITE XEROX-REPORT FROM BLANK-LINE AFTER TOP-OF-PAGE.        DTSBR405
00514      WRITE XEROX-REPORT FROM HDR2-LINE-9 AFTER 8.                 DTSBR405
00515      WRITE XEROX-REPORT FROM HDR2-LINE-10 AFTER 1.                DTSBR405
00516      WRITE XEROX-REPORT FROM HDR2-LINE-11 AFTER 1.                DTSBR405
00517      WRITE XEROX-REPORT FROM HDR2-LINE-12 AFTER 1.                DTSBR405
00518      WRITE XEROX-REPORT FROM HDR2-LINE-13 AFTER 1.                DTSBR405
00519      WRITE XEROX-REPORT FROM HDR2-LINE-14 AFTER 1.                DTSBR405
00520      WRITE XEROX-REPORT FROM HDR2-LINE-15 AFTER 1.                DTSBR405
00521      WRITE XEROX-REPORT FROM HDR2-LINE-16 AFTER 1.                DTSBR405
00522      WRITE XEROX-REPORT FROM HDR2-LINE-17 AFTER 1.                DTSBR405
00523      WRITE XEROX-REPORT FROM HDR2-LINE-18 AFTER 1.                DTSBR405
00524      WRITE XEROX-REPORT FROM HDR2-LINE-19 AFTER 1.                DTSBR405
00525      WRITE XEROX-REPORT FROM HDR2-LINE-20 AFTER 1.                DTSBR405
00526      WRITE XEROX-REPORT FROM HDR2-LINE-21 AFTER 1.                DTSBR405
00527      WRITE XEROX-REPORT FROM HDR2-LINE-22 AFTER 1.                DTSBR405
00528      WRITE XEROX-REPORT FROM HDR2-LINE-23 AFTER 1.                DTSBR405
00529      WRITE XEROX-REPORT FROM HDR2-LINE-24 AFTER 1.                DTSBR405
00530      WRITE XEROX-REPORT FROM HDR2-LINE-25 AFTER 1.                DTSBR405
00531      WRITE XEROX-REPORT FROM HDR2-LINE-26 AFTER 1.                DTSBR405
00532      WRITE XEROX-REPORT FROM HDR2-LINE-27 AFTER 1.                DTSBR405
00533      WRITE XEROX-REPORT FROM HDR2-LINE-28 AFTER 1.                DTSBR405
00534      WRITE XEROX-REPORT FROM HDR2-LINE-29 AFTER 1.                DTSBR405
00535      WRITE XEROX-REPORT FROM HDR2-LINE-30 AFTER 1.                DTSBR405
00536      WRITE XEROX-REPORT FROM HDR2-LINE-31 AFTER 1.                DTSBR405
00537      WRITE XEROX-REPORT FROM HDR2-LINE-32 AFTER 1.                DTSBR405
00538      WRITE XEROX-REPORT FROM HDR2-LINE-33 AFTER 1.                DTSBR405
00539      WRITE XEROX-REPORT FROM HDR2-LINE-34 AFTER 1.                DTSBR405
00540      WRITE XEROX-REPORT FROM HDR2-LINE-35 AFTER 1.                DTSBR405
00541      WRITE XEROX-REPORT FROM HDR2-LINE-36 AFTER 1.                DTSBR405
00542      WRITE XEROX-REPORT FROM DTL-LINE-2 AFTER 1.                  DTSBR405
00543      WRITE XEROX-REPORT FROM DTL-LINE-2B AFTER 1.                 DTSBR405
00544      WRITE XEROX-REPORT FROM DTL-LINE-3 AFTER 1.                  DTSBR405
00545      WRITE XEROX-REPORT FROM DTL-LINE-4 AFTER 1.                  DTSBR405
00546      WRITE XEROX-REPORT FROM DTL-LINE-5 AFTER 1.                  DTSBR405
00547      WRITE XEROX-REPORT FROM DTL-LINE-6 AFTER 1.                  DTSBR405
00548      WRITE XEROX-REPORT FROM DTL-LINE-7 AFTER 1.                  DTSBR405
00549 *    IF WS-FIRST3-DIGITS = 'CNV'                                  DTSBR405
00550 *       WRITE XEROX-REPORT FROM DTL-LINE-8-A AFTER 1              DTSBR405
00551 *    ELSE                                                         DTSBR405
00552 *       WRITE XEROX-REPORT FROM DTL-LINE-8 AFTER 1.               DTSBR405
00553      WRITE XEROX-REPORT FROM DTL-LINE-9 AFTER 1.                  DTSBR405
00554      WRITE XEROX-REPORT FROM DTL-LINE-10 AFTER 1.                 DTSBR405
00555                                                                   DTSBR405
00556      IF WRK-TODAY-DAY > 9                                         DTSBR405
00557          MOVE WRK-TODAY-DAY  TO WRK-TODAY-DAY-LINE-12             DTSBR405
00558          MOVE WRK-DAY-SFX    TO WRK-DAY-SFX-LINE-12               DTSBR405
00559          MOVE WRK-MONTH-YEAR TO WRK-MONTH-YEAR-LINE-12            DTSBR405
00560          WRITE XEROX-REPORT FROM DTL-LINE-12 AFTER 1              DTSBR405
00561      ELSE                                                         DTSBR405
00562          MOVE WRK-TODAY-DAY  TO WRK-TODAY-DAY-LINE-11             DTSBR405
00563          MOVE WRK-DAY-SFX    TO WRK-DAY-SFX-LINE-11               DTSBR405
00564          MOVE WRK-MONTH-YEAR TO WRK-MONTH-YEAR-LINE-11            DTSBR405
00565          WRITE XEROX-REPORT FROM DTL-LINE-11 AFTER 1.             DTSBR405
00566                                                                   DTSBR405
00567      WRITE XEROX-REPORT FROM DTL-LINE-13 AFTER 1.                 DTSBR405
00568      WRITE XEROX-REPORT FROM DTL-LINE-14 AFTER 1.                 DTSBR405
00569      WRITE XEROX-REPORT FROM DTL-LINE-15 AFTER 1.                 DTSBR405
00570      WRITE XEROX-REPORT FROM DTL-LINE-16 AFTER 1.                 DTSBR405
00571      WRITE XEROX-REPORT FROM DTL-LINE-16-1 AFTER 1.               DTSBR405
00572      WRITE XEROX-REPORT FROM DTL-LINE-17 AFTER 1.                 DTSBR405
00573      WRITE XEROX-REPORT FROM DTL-LINE-18 AFTER 1.                 DTSBR405
00574      WRITE XEROX-REPORT FROM DTL-LINE-19 AFTER 1.                 DTSBR405
00575      WRITE XEROX-REPORT FROM DTL-LINE-20 AFTER 1.                 DTSBR405
00576      WRITE XEROX-REPORT FROM DTL-LINE-21 AFTER 1.                 DTSBR405
00577      WRITE XEROX-REPORT FROM DTL-LINE-22 AFTER 1.                 DTSBR405
00578 *    WRITE XEROX-REPORT FROM DTL-LINE-23 AFTER 1.                 DTSBR405
00579      WRITE XEROX-REPORT FROM DTL-LINE-24 AFTER 1.                 DTSBR405
00580      WRITE XEROX-REPORT FROM DTL-LINE-25 AFTER 1.                 DTSBR405
00581      WRITE XEROX-REPORT FROM DTL-LINE-26 AFTER 1.                 DTSBR405
00582 *    ADD +13   TO WS-LINE-CNT2.                                   DTSBR405
00583                                                                   DTSBR405
00584  P3000-EXIT.                                                      DTSBR405
00585      EXIT.                                                        DTSBR405
00586  P4000-LOOKUP-OPID.                                               DTSBR405
00587      MOVE R405-OP-ID TO L082-OP-ID.                               DTSBR405
00588      PERFORM S082-OP-ID-INFO THRU S082-EXIT.                      DTSBR405
00589      IF L082-NOT-VALID-OP OR L082-INTERNAL-88                     DTSBR405
00590          MOVE SPACES             TO WS-OPR-NAME-MIXED             DTSBR405
00591                                     WS-OPR-NAME-CAPS              DTSBR405
00592          MOVE LRCM-DEFAULT-NAME  TO WS-OPR-NAME-CAPS              DTSBR405
00593          MOVE LRCM-DEFAULT-VOICE TO WS-OPR-VOICE                  DTSBR405
00594      ELSE                                                         DTSBR405
00595          MOVE L082-UNIT-NAME    TO WS-OPR-UNIT-NAME-MIXED         DTSBR405
00596          MOVE L082-VOICE-1      TO WS-OPR-VOICE                   DTSBR405
00597          MOVE L082-NAME         TO L071-NAM                       DTSBR405
00598          MOVE 2                 TO L071-NAME-FORMAT               DTSBR405
00599          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR405
00600          MOVE L071-NAM          TO WS-OPR-NAME-MIXED              DTSBR405
00601          MOVE WS-OPR-NAME-MIXED TO L009-DATA                      DTSBR405
00602          PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT              DTSBR405
00603          MOVE L009-DATA         TO WS-OPR-NAME-CAPS.              DTSBR405
00604                                                                   DTSBR405
00605          MOVE WS-OPR-VOICE-AREA TO WS-FLD-VOICE-AREA.             DTSBR405
00606          MOVE WS-OPR-VOICE-1    TO WS-FLD-VOICE-1.                DTSBR405
00607          MOVE WS-OPR-VOICE-2    TO WS-FLD-VOICE-2.                DTSBR405
00608          MOVE WS-OPR-NAME-CAPS  TO WS-FLD-REP-NAME.               DTSBR405
00609                                                                   DTSBR405
00610  P4000-EXIT. EXIT.                                                DTSBR405
00611      EJECT                                                        DTSBR405
00612                                                                   DTSBR405
00613                                                                   DTSBR405
00614  T1000-TERMINATE.                                                 DTSBR405
00615                                                                   DTSBR405
00616      IF WS-LINE-CNT2 > 52                                         DTSBR405
00617         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR405
00618      END-IF.                                                      DTSBR405
00619                                                                   DTSBR405
00620      MOVE WS-FOOT-NUMBER-ONE TO CFF-NUMBER-ONE.                   DTSBR405
00621      WRITE PRT-RECORD FROM CFF-LINE-3 AFTER 3.                    DTSBR405
00622                                                                   DTSBR405
00623      CLOSE PRT-FILE1.                                             DTSBR405
00624      CLOSE PRT-FILE2.                                             DTSBR405
00625                                                                   DTSBR405
00626  T1000-EXIT.                                                      DTSBR405
00627      EXIT.                                                        DTSBR405
00628      EJECT                                                        DTSBR405
00629  S001-FROM-FED-8.                                                 DTSBR405
00630      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR405
00631                                                                   DTSBR405
00632      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR405
00633  S001-EXIT.                                                       DTSBR405
00634      EXIT.                                                        DTSBR405
00635                                                                   DTSBR405
00636  S009-CONVERT-TO-CAPS.                                            DTSBR405
00637                                                                   DTSBR405
00638      CALL 'DTSBU009' USING L009-LINK-AREA.                        DTSBR405
00639  S009-EXIT.                                                       DTSBR405
00640      EXIT.                                                        DTSBR405
00641                                                                   DTSBR405
00642  S071-DESLASH-NAME.                                               DTSBR405
00643                                                                   DTSBR405
00644      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR405
00645                                                                   DTSBR405
00646  S071-EXIT.                                                       DTSBR405
00647      EXIT.                                                        DTSBR405
00648                                                                   DTSBR405
00649  S082-OP-ID-INFO.                                                 DTSBR405
00650                                                                   DTSBR405
00651      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR405
00652                                                                   DTSBR405
00653  S082-EXIT.                                                       DTSBR405
00654      EXIT.                                                        DTSBR405
00655                                                                   DTSBR405
00656                                                                   DTSBR405
00657  S119-AGENCY-FACTS.                                               DTSBR405
00658                                                                   DTSBR405
00659      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR405
00660                                                                   DTSBR405
00661  S119-EXIT.                                                       DTSBR405
00662      EXIT.                                                        DTSBR405
00663                                                                   DTSBR405
00664 *S999-ABEND.                                                      DTSBR405
00665 *                                                                 DTSBR405
00666 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR405
00667 *                                                                 DTSBR405
00668 *S999-EXIT.                                                       DTSBR405
00669 *    EXIT.                                                        DTSBR405
