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