00001 IDENTIFICATION DIVISION. 02/13/25 00002 PROGRAM-ID. DTSBX403. DTSBX403 00003 AUTHOR. SC. LV081 00004 DATE-WRITTEN. JAN 2025. CL*49 00005 *DATE-MODIFIED. DTSBX403 00006 DATE-COMPILED. DTSBX403 00007 DTSBX403 00008 ***** DTSBX403 00009 * FUNCTION: EXTRACT R403 RECORDS CL*13 00010 * DTSBX403 00011 * MODIFICATION HISTORY: DTSBX403 00012 * DTSBX403 00013 * 01-09-2025 INITIAL DEVELOPMENT. CL*13 00014 * AUTHOR OF CHANGE - SC CL*13 00015 * DTSBX403 00016 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX403 00017 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX403 00018 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBX403 00019 * RECORDS READ: DTSBX403 00020 * DTSBX403 00021 * EXTRACT R403 RECORDS FROM THE VARIABLE PACKED FILE AND CL*13 00022 * CONVERT TO UNPACKED FIXED FILE. CL*13 00023 * CL*13 00024 * MODULES CALLED: DTSBX403 00025 * DTSBX403 00026 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBX403 00027 * DTSBU005 DATE EDIT/CONVERSION MODULE DTSBX403 00028 * DTSBU941 VARIABLE LENGTH RECORD READ DTSBX403 00029 * DTSBX403 00030 ***** DTSBX403 00031 DTSBX403 00032 ENVIRONMENT DIVISION. DTSBX403 00033 DTSBX403 00034 CONFIGURATION SECTION. DTSBX403 00035 DTSBX403 00036 INPUT-OUTPUT SECTION. DTSBX403 00037 DTSBX403 00038 FILE-CONTROL. DTSBX403 00039 SELECT DTS-LN-OUT1 ASSIGN TO DTSLN403 CL*28 00040 FILE STATUS IS DTSLN-OUT1-STATUS. CL*34 00041 DTSBX403 00042 SELECT DTS-LN-OUT2 ASSIGN TO DTSLN405 CL*28 00043 FILE STATUS IS DTSLN-OUT2-STATUS. CL*34 00044 CL*28 00045 DATA DIVISION. DTSBX403 00046 DTSBX403 00047 FILE SECTION. DTSBX403 00048 DTSBX403 00049 FD DTS-LN-OUT1 CL*28 00050 RECORDING MODE IS F DTSBX403 00051 BLOCK CONTAINS 0 RECORDS DTSBX403 00052 LABEL RECORDS ARE OMITTED. DTSBX403 00053 DTSBX403 00054 *01 LEIN-OUTREC1 PIC X(1640). CL*70 00055 *01 LEIN-OUTREC1 PIC X(1721). CL*75 00056 01 LEIN-OUTREC1 PIC X(1732). CL*75 00057 DTSBX403 00058 FD DTS-LN-OUT2 CL*28 00059 RECORDING MODE IS F CL*28 00060 BLOCK CONTAINS 0 RECORDS CL*28 00061 LABEL RECORDS ARE OMITTED. CL*28 00062 CL*28 00063 *01 LEIN-OUTREC2 PIC X(312). CL*75 00064 01 LEIN-OUTREC2 PIC X(323). CL*75 00065 CL*28 00066 WORKING-STORAGE SECTION. DTSBX403 000665 77 PAN-VALET PICTURE X(24) VALUE '081DTSBX403 02/13/25'. DTSBX403 00067 77 PAN-VALET PICTURE X(24) VALUE '017DTSBS403 05/08/09'. CL*15 00068 01 WRK-AREA. DTSBX403 00069 05 FILE-STATUS PIC 9(02) VALUE ZEROS. DTSBX403 00070 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBS403'. CL*15 00071 DTSBX403 00072 05 WRK-ERROR-IND PIC X(01) VALUE 'N'. DTSBX403 00073 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX403 00074 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX403 00075 DTSBX403 00076 05 DTSLN-OUT1-STATUS PIC X(02). CL*32 00077 88 LEIN-OUT1-OK-88 VALUE '00'. CL*32 00078 CL*15 00079 05 DTSLN-OUT2-STATUS PIC X(02). CL*32 00080 88 LEIN-OUT2-OK-88 VALUE '00'. CL*32 00081 CL*32 00082 05 W-LEIN-403-IN-CNT PIC S9(07) COMP-3 VALUE +0. CL*18 00083 05 W-LEIN-405-IN-CNT PIC S9(07) COMP-3 VALUE +0. CL*24 00084 05 W-LEIN-403-OUT-CNT PIC S9(07) COMP-3 VALUE +0. CL*18 00085 05 W-LEIN-405-OUT-CNT PIC S9(07) COMP-3 VALUE +0. CL*29 00086 CL*18 00087 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +310.DTSBX403 00088 05 WRK-PRIOR-RUN-DATE PIC S9(09) COMP-3. DTSBX403 00089 05 WRK-CURR-RUN-DATE PIC S9(09) COMP-3. DTSBX403 00090 05 WRK-X215-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX403 00091 05 WRK-X220-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX403 00092 05 WRK-DEPOSIT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX403 00093 DTSBX403 00094 05 WRK-906-OPID PIC X(08). DTSBX403 00095 05 WRK-906-EMP PIC S9(07) COMP-3. DTSBX403 00096 05 WRK-906-SCREEN PIC X(02). DTSBX403 00097 05 WRK-906-DATE PIC S9(09) COMP-3. DTSBX403 00098 05 WRK-906-TIME PIC S9(07) COMP-3. DTSBX403 00099 DTSBX403 00100 05 DISP-REMIT PIC --,---,---,--9.99. DTSBX403 00101 05 DISP-WRK-READ-CNT PIC ZZ,ZZZ,ZZ9. DTSBX403 00102 05 DISP-WRK-WRITE-CNT PIC ZZ,ZZZ,ZZ9. DTSBX403 00103 DTSBX403 00104 05 WORK-HOLD-DATE PIC X(10) VALUE SPACE. CL*72 00105 CL*72 00106 05 WRK-INACT-SLASH-DT. CL*72 00107 15 WRK-INACT-MM PIC X(02) VALUE SPACE. CL*72 00108 15 FILLER PIC X(01) VALUE '/'. CL*72 00109 15 WRK-INACT-DD PIC X(02) VALUE SPACE. CL*72 00110 15 FILLER PIC X(01) VALUE '/'. CL*72 00111 15 WRK-INACT-YYYY PIC X(04) VALUE SPACE. CL*72 00112 CL*72 00113 01 L062-LINK-AREA. DTSBX403 00114 ++INCLUDE DTSIL062 DTSBX403 00115 DTSBX403 00116 01 L001-LINK-AREA. DTSBX403 00117 ++INCLUDE DTSIL001 DTSBX403 00118 DTSBX403 00119 01 L005-LINK-AREA. DTSBX403 00120 ++INCLUDE DTSIL005 DTSBX403 00121 DTSBX403 00122 01 L910-LINK-AREA. DTSBX403 00123 ++INCLUDE DTSIL910 DTSBX403 00124 DTSBX403 00125 01 MSKL-REC. DTSBX403 00126 ++INCLUDE DTSIMSKL DTSBX403 00127 DTSBX403 00128 01 MHDR-REC. DTSBX403 00129 ++INCLUDE DTSIMHDR DTSBX403 00130 DTSBX403 00131 01 MPRF-REC. DTSBX403 00132 ++INCLUDE DTSIMPRF DTSBX403 00133 DTSBX403 00134 01 MFAS-REC. DTSBX403 00135 ++INCLUDE DTSIMFAS DTSBX403 00136 DTSBX403 00137 01 MEVL-REC. DTSBX403 00138 ++INCLUDE DTSIMEVL DTSBX403 00139 DTSBX403 00140 01 MRPT-REC. DTSBX403 00141 ++INCLUDE DTSIMRPT DTSBX403 00142 DTSBX403 00143 01 L941-LINK-AREA. DTSBX403 00144 ++INCLUDE DTSIL941 DTSBX403 00145 DTSBX403 00146 01 RSK3-REC. DTSBX403 00147 ++INCLUDE DTSIRSK3 DTSBX403 00148 DTSBX403 00149 01 R403-REC. CL*16 00150 ++INCLUDE DTSIR403 CL*16 00151 DTSBX403 00152 01 W403-REC. CL*16 00153 ++INCLUDE DTSIW403 CL*16 00154 DTSBX403 00155 01 R405-REC. CL*28 00156 ++INCLUDE DTSIR405 CL*28 00157 CL*28 00158 01 W405-REC. CL*28 00159 ++INCLUDE DTSIW405 CL*28 00160 CL*28 00161 PROCEDURE DIVISION. DTSBX403 00162 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX403 00163 IF WRK-ERROR-NO-88 DTSBX403 00164 PERFORM P0000-PROCESS THRU P0000-EXIT CL*72 00165 PERFORM T0000-TERMINATE THRU T0000-EXIT CL*72 00166 END-IF. DTSBX403 00167 DTSBX403 00168 GOBACK. DTSBX403 00169 DTSBX403 00170 I0000-INITIATE. DTSBX403 00171 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. CL*72 00172 PERFORM I3000-GET-MHDR THRU I3000-EXIT. CL*72 00173 PERFORM I3500-MOVE-CURRDT THRU I3500-EXIT. CL*72 00174 DTSBX403 00175 I0000-EXIT. DTSBX403 00176 EXIT. DTSBX403 00177 DTSBX403 00178 I2000-OPEN-FILES. DTSBX403 00179 CL*16 00180 OPEN OUTPUT DTS-LN-OUT1. CL*28 00181 IF LEIN-OUT1-OK-88 CL*28 00182 NEXT SENTENCE DTSBX403 00183 ELSE DTSBX403 00184 SET WRK-ERROR-YES-88 TO TRUE DTSBX403 00185 DISPLAY 'CANNOT OPEN LEIN 403 FILE ' DTSLN-OUT1-STATUS CL*28 00186 GO TO I2000-EXIT DTSBX403 00187 END-IF. DTSBX403 00188 DTSBX403 00189 OPEN OUTPUT DTS-LN-OUT2. CL*28 00190 IF LEIN-OUT2-OK-88 CL*28 00191 NEXT SENTENCE CL*28 00192 ELSE CL*28 00193 SET WRK-ERROR-YES-88 TO TRUE CL*28 00194 DISPLAY 'CANNOT OPEN LEIN 405 FILE ' DTSLN-OUT2-STATUS CL*64 00195 GO TO I2000-EXIT CL*28 00196 END-IF. CL*28 00197 CL*28 00198 DTSBX403 00199 MOVE 'N' TO L910-TRACE-IND DTSBX403 00200 L941-TRACE-IND. DTSBX403 00201 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBX403 00202 L941-MOD-NAME. DTSBX403 00203 DTSBX403 00204 PERFORM S910-OPEN-READ THRU S910-EXIT. CL*79 00205 PERFORM S941-OPEN THRU S941-EXIT. DTSBX403 00206 DTSBX403 00207 I2000-EXIT. DTSBX403 00208 EXIT. DTSBX403 00209 DTSBX403 00210 I3000-GET-MHDR. CL*72 00211 MOVE LOW-VALUES TO MSKL-REC. CL*72 00212 MOVE +0 TO MSKL-EMP-NO. CL*72 00213 SET MSKL-HDR-88 TO TRUE. CL*72 00214 CL*72 00215 PERFORM S910-READ THRU S910-EXIT. CL*72 00216 IF L910-NO-REC-88 CL*72 00217 DISPLAY 'DTSBS403: MHDR RECORD IS MISSING' CL*72 00218 SET WRK-ERROR-YES-88 TO TRUE CL*77 00219 GO TO I3000-EXIT CL*72 00220 ELSE CL*72 00221 MOVE MSKL-REC TO MHDR-REC CL*72 00222 * MOVE MHDR-CURR-RUN-DATE TO WORK-HOLD-DATE CL*80 00223 MOVE MHDR-PRIOR-RUN-DATE TO WORK-HOLD-DATE CL*80 00224 DISPLAY 'MHDR-CURR-RUN-DATE' MHDR-CURR-RUN-DATE CL*72 00225 END-IF. CL*72 00226 CL*72 00227 I3000-EXIT. CL*72 00228 EXIT. CL*72 00229 CL*72 00230 I3500-MOVE-CURRDT. CL*72 00231 CL*72 00232 MOVE WORK-HOLD-DATE(2:4) TO WRK-INACT-YYYY CL*73 00233 MOVE WORK-HOLD-DATE(6:2) TO WRK-INACT-MM CL*73 00234 MOVE WORK-HOLD-DATE(8:2) TO WRK-INACT-DD CL*73 00235 MOVE WRK-INACT-SLASH-DT TO W403-CURR-DATE CL*73 00236 W405-CURR-DATE. CL*76 00237 CL*72 00238 I3500-EXIT. CL*72 00239 EXIT. CL*72 00240 CL*72 00241 P0000-PROCESS. DTSBX403 00242 PERFORM P1000-FROM-RPTS THRU P1000-EXIT. DTSBX403 00243 DTSBX403 00244 P0000-EXIT. DTSBX403 00245 EXIT. DTSBX403 00246 DTSBX403 00247 P1000-FROM-RPTS. DTSBX403 00248 PERFORM S941-READ-NEXT THRU S941-EXIT. DTSBX403 00249 DTSBX403 00250 PERFORM UNTIL L941-NO-REC-88 DTSBX403 00251 EVALUATE RSK3-REC-TYPE DTSBX403 00252 WHEN '403' CL*16 00253 ADD +1 TO W-LEIN-403-IN-CNT CL*19 00254 MOVE RSK3-REC TO R403-REC CL*16 00255 PERFORM P1100-PROCESS-R403 THRU P1100-EXIT CL*16 00256 DTSBX403 00257 WHEN '405' CL*18 00258 ADD +1 TO W-LEIN-405-IN-CNT CL*22 00259 MOVE RSK3-REC TO R405-REC CL*28 00260 PERFORM P1200-PROCESS-R405 THRU P1200-EXIT CL*28 00261 END-EVALUATE DTSBX403 00262 PERFORM S941-READ-NEXT THRU S941-EXIT DTSBX403 00263 END-PERFORM. DTSBX403 00264 DTSBX403 00265 P1000-EXIT. DTSBX403 00266 EXIT. DTSBX403 00267 DTSBX403 00268 P1100-PROCESS-R403. CL*18 00269 DTSBX403 00270 MOVE R403-LENGTH TO W403-LENGTH CL*39 00271 MOVE R403-REC-TYPE TO W403-REC-TYPE CL*39 00272 MOVE R403-OP-ID TO W403-OP-ID CL*39 00273 MOVE R403-EMP-NO TO W403-EMP-NO CL*39 00274 MOVE R403-CERTIFICATE-NO CL*38 00275 TO W403-CERTIFICATE-NO CL*39 00276 MOVE R403-CERTIFICATE-DATE TO L001-FED-8-DATE-9. CL*55 00277 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*55 00278 MOVE L001-SLASH-8-DATE TO W403-CERTIFICATE-DATE. CL*55 00279 CL*55 00280 MOVE R403-EMP-STATUS TO W403-EMP-STATUS CL*39 00281 CL*55 00282 MOVE R403-STMT-DATE TO L001-FED-8-DATE-9. CL*55 00283 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*55 00284 MOVE L001-SLASH-8-DATE TO W403-STMT-DATE. CL*55 00285 CL*55 00286 MOVE R403-PRIMARY-NAME TO W403-PRIMARY-NAME CL*39 00287 MOVE R403-FMT-LINE(01) TO W403-FMT-LINE1 CL*61 00288 MOVE R403-FMT-LINE(02) TO W403-FMT-LINE2 CL*61 00289 MOVE R403-FMT-LINE(03) TO W403-FMT-LINE3 CL*61 00290 MOVE R403-FMT-LINE(04) TO W403-FMT-LINE4 CL*61 00291 MOVE R403-FMT-LINE(05) TO W403-FMT-LINE5 CL*61 00292 MOVE R403-ZIP TO W403-ZIP CL*39 00293 MOVE R403-ADVANCED-BARCODE CL*38 00294 TO W403-ADVANCED-BARCODE CL*39 00295 CL*55 00296 MOVE R403-FORM-COMP-DATE TO L001-FED-8-DATE-9. CL*55 00297 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*55 00298 MOVE L001-SLASH-8-DATE TO W403-FORM-COMP-DATE. CL*55 00299 CL*55 00300 MOVE R403-FORM-QTR-CNT TO W403-FORM-QTR-CNT CL*39 00301 CL*38 00302 MOVE R403-LETTER-LICENSE-IND CL*67 00303 TO W403-LETTER-LICENSE-IND CL*67 00304 MOVE R403-LETTER-TOTAL-AMT CL*67 00305 TO W403-LETTER-TOTAL-AMT CL*67 00306 CL*67 00307 MOVE R403-FORM-QTR(01) CL*38 00308 TO W403-FORM-QTR1 CL*57 00309 MOVE R403-FORM-TAX-BALANCE-AMT(01) CL*38 00310 TO W403-FORM-TAX-BALANCE-AMT1 CL*57 00311 MOVE R403-FORM-INT-BALANCE-AMT(01) CL*38 00312 TO W403-FORM-INT-BALANCE-AMT1 CL*57 00313 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(01) CL*38 00314 TO W403-FORM-LP-NP-MP-BLNCE-AMT1 CL*62 00315 MOVE R403-FORM-LEGAL-IND(01) CL*38 00316 TO W403-FORM-LEGAL-IND1 CL*57 00317 MOVE R403-FORM-ESTIMATED-IND(01) CL*38 00318 TO W403-FORM-ESTIMATED-IND1 CL*57 00319 MOVE R403-FORM-UNUSED-IND(01) CL*38 00320 TO W403-FORM-UNUSED-IND1 CL*57 00321 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(01) CL*38 00322 TO W403-FORM-SUR-TAX-BLNCE-AMT1 CL*62 00323 CL*38 00324 MOVE R403-FORM-QTR(02) CL*42 00325 TO W403-FORM-QTR2 CL*57 00326 MOVE R403-FORM-TAX-BALANCE-AMT(02) CL*42 00327 TO W403-FORM-TAX-BALANCE-AMT2 CL*57 00328 MOVE R403-FORM-INT-BALANCE-AMT(02) CL*42 00329 TO W403-FORM-INT-BALANCE-AMT2 CL*57 00330 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(02) CL*42 00331 TO W403-FORM-LP-NP-MP-BLNCE-AMT2 CL*62 00332 MOVE R403-FORM-LEGAL-IND(02) CL*42 00333 TO W403-FORM-LEGAL-IND2 CL*57 00334 MOVE R403-FORM-ESTIMATED-IND(02) CL*42 00335 TO W403-FORM-ESTIMATED-IND2 CL*57 00336 MOVE R403-FORM-UNUSED-IND(02) CL*42 00337 TO W403-FORM-UNUSED-IND2 CL*57 00338 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(02) CL*42 00339 TO W403-FORM-SUR-TAX-BLNCE-AMT2 CL*62 00340 CL*42 00341 MOVE R403-FORM-QTR(03) CL*42 00342 TO W403-FORM-QTR3 CL*57 00343 MOVE R403-FORM-TAX-BALANCE-AMT(03) CL*42 00344 TO W403-FORM-TAX-BALANCE-AMT3 CL*57 00345 MOVE R403-FORM-INT-BALANCE-AMT(03) CL*42 00346 TO W403-FORM-INT-BALANCE-AMT3 CL*57 00347 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(03) CL*42 00348 TO W403-FORM-LP-NP-MP-BLNCE-AMT3 CL*62 00349 MOVE R403-FORM-LEGAL-IND(03) CL*42 00350 TO W403-FORM-LEGAL-IND3 CL*57 00351 MOVE R403-FORM-ESTIMATED-IND(03) CL*42 00352 TO W403-FORM-ESTIMATED-IND3 CL*57 00353 MOVE R403-FORM-UNUSED-IND(03) CL*42 00354 TO W403-FORM-UNUSED-IND3 CL*57 00355 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(03) CL*42 00356 TO W403-FORM-SUR-TAX-BLNCE-AMT3 CL*62 00357 CL*42 00358 MOVE R403-FORM-QTR(04) CL*42 00359 TO W403-FORM-QTR4 CL*57 00360 MOVE R403-FORM-TAX-BALANCE-AMT(04) CL*42 00361 TO W403-FORM-TAX-BALANCE-AMT4 CL*57 00362 MOVE R403-FORM-INT-BALANCE-AMT(04) CL*42 00363 TO W403-FORM-INT-BALANCE-AMT4 CL*57 00364 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(04) CL*42 00365 TO W403-FORM-LP-NP-MP-BLNCE-AMT4 CL*62 00366 MOVE R403-FORM-LEGAL-IND(04) CL*42 00367 TO W403-FORM-LEGAL-IND4 CL*57 00368 MOVE R403-FORM-ESTIMATED-IND(04) CL*42 00369 TO W403-FORM-ESTIMATED-IND4 CL*57 00370 MOVE R403-FORM-UNUSED-IND(04) CL*42 00371 TO W403-FORM-UNUSED-IND4 CL*57 00372 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(04) CL*42 00373 TO W403-FORM-SUR-TAX-BLNCE-AMT4 CL*62 00374 CL*42 00375 MOVE R403-FORM-QTR(05) CL*42 00376 TO W403-FORM-QTR5 CL*57 00377 MOVE R403-FORM-TAX-BALANCE-AMT(05) CL*42 00378 TO W403-FORM-TAX-BALANCE-AMT5 CL*57 00379 MOVE R403-FORM-INT-BALANCE-AMT(05) CL*42 00380 TO W403-FORM-INT-BALANCE-AMT5 CL*57 00381 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(05) CL*42 00382 TO W403-FORM-LP-NP-MP-BLNCE-AMT5 CL*62 00383 MOVE R403-FORM-LEGAL-IND(05) CL*42 00384 TO W403-FORM-LEGAL-IND5 CL*57 00385 MOVE R403-FORM-ESTIMATED-IND(05) CL*42 00386 TO W403-FORM-ESTIMATED-IND5 CL*57 00387 MOVE R403-FORM-UNUSED-IND(05) CL*42 00388 TO W403-FORM-UNUSED-IND5 CL*57 00389 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(05) CL*42 00390 TO W403-FORM-SUR-TAX-BLNCE-AMT5 CL*62 00391 CL*42 00392 MOVE R403-FORM-QTR(06) CL*42 00393 TO W403-FORM-QTR6 CL*57 00394 MOVE R403-FORM-TAX-BALANCE-AMT(06) CL*42 00395 TO W403-FORM-TAX-BALANCE-AMT6 CL*57 00396 MOVE R403-FORM-INT-BALANCE-AMT(06) CL*42 00397 TO W403-FORM-INT-BALANCE-AMT6 CL*57 00398 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(06) CL*42 00399 TO W403-FORM-LP-NP-MP-BLNCE-AMT6 CL*62 00400 MOVE R403-FORM-LEGAL-IND(06) CL*42 00401 TO W403-FORM-LEGAL-IND6 CL*57 00402 MOVE R403-FORM-ESTIMATED-IND(06) CL*42 00403 TO W403-FORM-ESTIMATED-IND6 CL*57 00404 MOVE R403-FORM-UNUSED-IND(06) CL*42 00405 TO W403-FORM-UNUSED-IND6 CL*57 00406 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(06) CL*42 00407 TO W403-FORM-SUR-TAX-BLNCE-AMT6 CL*62 00408 CL*42 00409 MOVE R403-FORM-QTR(07) CL*42 00410 TO W403-FORM-QTR7 CL*57 00411 MOVE R403-FORM-TAX-BALANCE-AMT(07) CL*42 00412 TO W403-FORM-TAX-BALANCE-AMT7 CL*57 00413 MOVE R403-FORM-INT-BALANCE-AMT(07) CL*42 00414 TO W403-FORM-INT-BALANCE-AMT7 CL*57 00415 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(07) CL*42 00416 TO W403-FORM-LP-NP-MP-BLNCE-AMT7 CL*62 00417 MOVE R403-FORM-LEGAL-IND(07) CL*42 00418 TO W403-FORM-LEGAL-IND7 CL*57 00419 MOVE R403-FORM-ESTIMATED-IND(07) CL*42 00420 TO W403-FORM-ESTIMATED-IND7 CL*57 00421 MOVE R403-FORM-UNUSED-IND(07) CL*42 00422 TO W403-FORM-UNUSED-IND7 CL*57 00423 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(07) CL*42 00424 TO W403-FORM-SUR-TAX-BLNCE-AMT7 CL*62 00425 CL*42 00426 MOVE R403-FORM-QTR(08) CL*42 00427 TO W403-FORM-QTR8 CL*57 00428 MOVE R403-FORM-TAX-BALANCE-AMT(08) CL*42 00429 TO W403-FORM-TAX-BALANCE-AMT8 CL*57 00430 MOVE R403-FORM-INT-BALANCE-AMT(08) CL*42 00431 TO W403-FORM-INT-BALANCE-AMT8 CL*57 00432 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(08) CL*42 00433 TO W403-FORM-LP-NP-MP-BLNCE-AMT8 CL*62 00434 MOVE R403-FORM-LEGAL-IND(08) CL*42 00435 TO W403-FORM-LEGAL-IND8 CL*57 00436 MOVE R403-FORM-ESTIMATED-IND(08) CL*42 00437 TO W403-FORM-ESTIMATED-IND8 CL*57 00438 MOVE R403-FORM-UNUSED-IND(08) CL*42 00439 TO W403-FORM-UNUSED-IND8 CL*57 00440 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(08) CL*63 00441 TO W403-FORM-SUR-TAX-BLNCE-AMT8 CL*62 00442 CL*42 00443 MOVE R403-FORM-QTR(09) CL*42 00444 TO W403-FORM-QTR9 CL*57 00445 MOVE R403-FORM-TAX-BALANCE-AMT(09) CL*42 00446 TO W403-FORM-TAX-BALANCE-AMT9 CL*57 00447 MOVE R403-FORM-INT-BALANCE-AMT(09) CL*42 00448 TO W403-FORM-INT-BALANCE-AMT9 CL*57 00449 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(09) CL*42 00450 TO W403-FORM-LP-NP-MP-BLNCE-AMT9 CL*62 00451 MOVE R403-FORM-LEGAL-IND(09) CL*42 00452 TO W403-FORM-LEGAL-IND9 CL*57 00453 MOVE R403-FORM-ESTIMATED-IND(09) CL*42 00454 TO W403-FORM-ESTIMATED-IND9 CL*57 00455 MOVE R403-FORM-UNUSED-IND(09) CL*42 00456 TO W403-FORM-UNUSED-IND9 CL*57 00457 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(09) CL*42 00458 TO W403-FORM-SUR-TAX-BLNCE-AMT9 CL*62 00459 CL*42 00460 MOVE R403-FORM-QTR(10) CL*42 00461 TO W403-FORM-QTR10 CL*57 00462 MOVE R403-FORM-TAX-BALANCE-AMT(10) CL*42 00463 TO W403-FORM-TAX-BALANCE-AMT10 CL*57 00464 MOVE R403-FORM-INT-BALANCE-AMT(10) CL*42 00465 TO W403-FORM-INT-BALANCE-AMT10 CL*57 00466 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(10) CL*42 00467 TO W403-FORM-LP-NP-MP-BLNCE-AMT10 CL*62 00468 MOVE R403-FORM-LEGAL-IND(10) CL*42 00469 TO W403-FORM-LEGAL-IND10 CL*57 00470 MOVE R403-FORM-ESTIMATED-IND(10) CL*42 00471 TO W403-FORM-ESTIMATED-IND10 CL*57 00472 MOVE R403-FORM-UNUSED-IND(10) CL*42 00473 TO W403-FORM-UNUSED-IND10 CL*57 00474 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(10) CL*42 00475 TO W403-FORM-SUR-TAX-BLNCE-AMT10 CL*62 00476 CL*42 00477 MOVE R403-FORM-QTR(11) CL*42 00478 TO W403-FORM-QTR11 CL*57 00479 MOVE R403-FORM-TAX-BALANCE-AMT(11) CL*42 00480 TO W403-FORM-TAX-BALANCE-AMT11 CL*57 00481 MOVE R403-FORM-INT-BALANCE-AMT(11) CL*42 00482 TO W403-FORM-INT-BALANCE-AMT11 CL*57 00483 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(11) CL*42 00484 TO W403-FORM-LP-NP-MP-BLNCE-AMT11 CL*62 00485 MOVE R403-FORM-LEGAL-IND(11) CL*42 00486 TO W403-FORM-LEGAL-IND11 CL*57 00487 MOVE R403-FORM-ESTIMATED-IND(11) CL*42 00488 TO W403-FORM-ESTIMATED-IND11 CL*58 00489 MOVE R403-FORM-UNUSED-IND(11) CL*42 00490 TO W403-FORM-UNUSED-IND11 CL*58 00491 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(11) CL*42 00492 TO W403-FORM-SUR-TAX-BLNCE-AMT11 CL*62 00493 CL*42 00494 MOVE R403-FORM-QTR(12) CL*42 00495 TO W403-FORM-QTR12 CL*59 00496 MOVE R403-FORM-TAX-BALANCE-AMT(12) CL*42 00497 TO W403-FORM-TAX-BALANCE-AMT12 CL*59 00498 MOVE R403-FORM-INT-BALANCE-AMT(12) CL*42 00499 TO W403-FORM-INT-BALANCE-AMT12 CL*59 00500 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(12) CL*42 00501 TO W403-FORM-LP-NP-MP-BLNCE-AMT12 CL*62 00502 MOVE R403-FORM-LEGAL-IND(12) CL*42 00503 TO W403-FORM-LEGAL-IND12 CL*59 00504 MOVE R403-FORM-ESTIMATED-IND(12) CL*42 00505 TO W403-FORM-ESTIMATED-IND12 CL*59 00506 MOVE R403-FORM-UNUSED-IND(12) CL*42 00507 TO W403-FORM-UNUSED-IND12 CL*59 00508 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(12) CL*42 00509 TO W403-FORM-SUR-TAX-BLNCE-AMT12 CL*62 00510 CL*42 00511 MOVE R403-FORM-QTR(13) CL*43 00512 TO W403-FORM-QTR13 CL*59 00513 MOVE R403-FORM-TAX-BALANCE-AMT(13) CL*43 00514 TO W403-FORM-TAX-BALANCE-AMT13 CL*59 00515 MOVE R403-FORM-INT-BALANCE-AMT(13) CL*43 00516 TO W403-FORM-INT-BALANCE-AMT13 CL*59 00517 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(13) CL*43 00518 TO W403-FORM-LP-NP-MP-BLNCE-AMT13 CL*62 00519 MOVE R403-FORM-LEGAL-IND(13) CL*43 00520 TO W403-FORM-LEGAL-IND13 CL*59 00521 MOVE R403-FORM-ESTIMATED-IND(13) CL*43 00522 TO W403-FORM-ESTIMATED-IND13 CL*59 00523 MOVE R403-FORM-UNUSED-IND(13) CL*43 00524 TO W403-FORM-UNUSED-IND13 CL*59 00525 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(13) CL*43 00526 TO W403-FORM-SUR-TAX-BLNCE-AMT13 CL*62 00527 CL*42 00528 MOVE R403-FORM-QTR(14) CL*43 00529 TO W403-FORM-QTR14 CL*59 00530 MOVE R403-FORM-TAX-BALANCE-AMT(14) CL*43 00531 TO W403-FORM-TAX-BALANCE-AMT14 CL*59 00532 MOVE R403-FORM-INT-BALANCE-AMT(14) CL*43 00533 TO W403-FORM-INT-BALANCE-AMT14 CL*59 00534 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(14) CL*43 00535 TO W403-FORM-LP-NP-MP-BLNCE-AMT14 CL*62 00536 MOVE R403-FORM-LEGAL-IND(14) CL*43 00537 TO W403-FORM-LEGAL-IND14 CL*59 00538 MOVE R403-FORM-ESTIMATED-IND(14) CL*43 00539 TO W403-FORM-ESTIMATED-IND14 CL*59 00540 MOVE R403-FORM-UNUSED-IND(14) CL*43 00541 TO W403-FORM-UNUSED-IND14 CL*59 00542 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(14) CL*43 00543 TO W403-FORM-SUR-TAX-BLNCE-AMT14 CL*62 00544 CL*43 00545 MOVE R403-FORM-QTR(15) CL*43 00546 TO W403-FORM-QTR15 CL*59 00547 MOVE R403-FORM-TAX-BALANCE-AMT(15) CL*43 00548 TO W403-FORM-TAX-BALANCE-AMT15 CL*59 00549 MOVE R403-FORM-INT-BALANCE-AMT(15) CL*43 00550 TO W403-FORM-INT-BALANCE-AMT15 CL*59 00551 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(15) CL*43 00552 TO W403-FORM-LP-NP-MP-BLNCE-AMT15 CL*62 00553 MOVE R403-FORM-LEGAL-IND(15) CL*43 00554 TO W403-FORM-LEGAL-IND15 CL*59 00555 MOVE R403-FORM-ESTIMATED-IND(15) CL*43 00556 TO W403-FORM-ESTIMATED-IND15 CL*59 00557 MOVE R403-FORM-UNUSED-IND(15) CL*43 00558 TO W403-FORM-UNUSED-IND15 CL*59 00559 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(15) CL*43 00560 TO W403-FORM-SUR-TAX-BLNCE-AMT15 CL*62 00561 CL*43 00562 MOVE R403-FORM-QTR(16) CL*43 00563 TO W403-FORM-QTR16 CL*59 00564 MOVE R403-FORM-TAX-BALANCE-AMT(16) CL*43 00565 TO W403-FORM-TAX-BALANCE-AMT16 CL*59 00566 MOVE R403-FORM-INT-BALANCE-AMT(16) CL*43 00567 TO W403-FORM-INT-BALANCE-AMT16 CL*59 00568 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(16) CL*43 00569 TO W403-FORM-LP-NP-MP-BLNCE-AMT16 CL*62 00570 MOVE R403-FORM-LEGAL-IND(16) CL*43 00571 TO W403-FORM-LEGAL-IND16 CL*59 00572 MOVE R403-FORM-ESTIMATED-IND(16) CL*43 00573 TO W403-FORM-ESTIMATED-IND16 CL*59 00574 MOVE R403-FORM-UNUSED-IND(16) CL*43 00575 TO W403-FORM-UNUSED-IND16 CL*59 00576 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(16) CL*43 00577 TO W403-FORM-SUR-TAX-BLNCE-AMT16 CL*62 00578 CL*43 00579 MOVE R403-FORM-QTR(17) CL*43 00580 TO W403-FORM-QTR17 CL*59 00581 MOVE R403-FORM-TAX-BALANCE-AMT(17) CL*43 00582 TO W403-FORM-TAX-BALANCE-AMT17 CL*59 00583 MOVE R403-FORM-INT-BALANCE-AMT(17) CL*43 00584 TO W403-FORM-INT-BALANCE-AMT17 CL*59 00585 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(17) CL*43 00586 TO W403-FORM-LP-NP-MP-BLNCE-AMT17 CL*62 00587 MOVE R403-FORM-LEGAL-IND(17) CL*43 00588 TO W403-FORM-LEGAL-IND17 CL*59 00589 MOVE R403-FORM-ESTIMATED-IND(17) CL*59 00590 TO W403-FORM-ESTIMATED-IND17 CL*59 00591 MOVE R403-FORM-UNUSED-IND(17) CL*43 00592 TO W403-FORM-UNUSED-IND17 CL*59 00593 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(17) CL*43 00594 TO W403-FORM-SUR-TAX-BLNCE-AMT17 CL*62 00595 CL*43 00596 MOVE R403-FORM-QTR(18) CL*43 00597 TO W403-FORM-QTR18 CL*59 00598 MOVE R403-FORM-TAX-BALANCE-AMT(18) CL*43 00599 TO W403-FORM-TAX-BALANCE-AMT18 CL*59 00600 MOVE R403-FORM-INT-BALANCE-AMT(18) CL*43 00601 TO W403-FORM-INT-BALANCE-AMT18 CL*59 00602 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(18) CL*43 00603 TO W403-FORM-LP-NP-MP-BLNCE-AMT18 CL*62 00604 MOVE R403-FORM-LEGAL-IND(18) CL*43 00605 TO W403-FORM-LEGAL-IND18 CL*59 00606 MOVE R403-FORM-ESTIMATED-IND(18) CL*43 00607 TO W403-FORM-ESTIMATED-IND18 CL*59 00608 MOVE R403-FORM-UNUSED-IND(18) CL*43 00609 TO W403-FORM-UNUSED-IND18 CL*59 00610 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(18) CL*43 00611 TO W403-FORM-SUR-TAX-BLNCE-AMT18 CL*62 00612 CL*43 00613 MOVE R403-FORM-QTR(19) CL*43 00614 TO W403-FORM-QTR19 CL*59 00615 MOVE R403-FORM-TAX-BALANCE-AMT(19) CL*43 00616 TO W403-FORM-TAX-BALANCE-AMT19 CL*59 00617 MOVE R403-FORM-INT-BALANCE-AMT(19) CL*43 00618 TO W403-FORM-INT-BALANCE-AMT19 CL*59 00619 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(19) CL*43 00620 TO W403-FORM-LP-NP-MP-BLNCE-AMT19 CL*62 00621 MOVE R403-FORM-LEGAL-IND(19) CL*43 00622 TO W403-FORM-LEGAL-IND19 CL*59 00623 MOVE R403-FORM-ESTIMATED-IND(19) CL*43 00624 TO W403-FORM-ESTIMATED-IND19 CL*59 00625 MOVE R403-FORM-UNUSED-IND(19) CL*43 00626 TO W403-FORM-UNUSED-IND19 CL*59 00627 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(19) CL*43 00628 TO W403-FORM-SUR-TAX-BLNCE-AMT19 CL*62 00629 CL*43 00630 MOVE R403-FORM-QTR(20) CL*43 00631 TO W403-FORM-QTR20 CL*59 00632 MOVE R403-FORM-TAX-BALANCE-AMT(20) CL*43 00633 TO W403-FORM-TAX-BALANCE-AMT20 CL*59 00634 MOVE R403-FORM-INT-BALANCE-AMT(20) CL*43 00635 TO W403-FORM-INT-BALANCE-AMT20 CL*59 00636 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(20) CL*43 00637 TO W403-FORM-LP-NP-MP-BLNCE-AMT20 CL*62 00638 MOVE R403-FORM-LEGAL-IND(20) CL*43 00639 TO W403-FORM-LEGAL-IND20 CL*59 00640 MOVE R403-FORM-ESTIMATED-IND(20) CL*43 00641 TO W403-FORM-ESTIMATED-IND20 CL*59 00642 MOVE R403-FORM-UNUSED-IND(20) CL*43 00643 TO W403-FORM-UNUSED-IND20 CL*59 00644 MOVE R403-FORM-SUR-TAX-BALANCE-AMT(20) CL*43 00645 TO W403-FORM-SUR-TAX-BLNCE-AMT20 CL*62 00646 CL*43 00647 CL*38 00648 WRITE LEIN-OUTREC1 FROM W403-REC. CL*29 00649 ADD +1 TO W-LEIN-403-OUT-CNT. CL*29 00650 DTSBX403 00651 P1100-EXIT. DTSBX403 00652 EXIT. DTSBX403 00653 DTSBX403 00654 P1200-PROCESS-R405. CL*28 00655 CL*28 00656 MOVE R405-LENGTH TO W405-LENGTH. CL*29 00657 CL*28 00658 MOVE R405-REC-TYPE TO W405-REC-TYPE. CL*35 00659 MOVE R405-OP-ID TO W405-OP-ID. CL*35 00660 MOVE R405-EMP-NO TO W405-EMP-NO. CL*35 00661 CL*35 00662 MOVE R405-PRIMARY-NAME TO W405-PRIMARY-NAME. CL*36 00663 ** MOVE R405-STMT-DATE TO W405-STMT-DATE. CL*49 00664 MOVE R405-STMT-DATE TO L001-FED-8-DATE-9. CL*49 00665 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*49 00666 MOVE L001-SLASH-8-DATE TO W405-STMT-DATE. CL*49 00667 CL*49 00668 MOVE R405-CERTIFICATE-NO TO W405-CERTIFICATE-NO. CL*36 00669 MOVE R405-REC-DEEDS-NO TO W405-REC-DEEDS-NO. CL*36 00670 ** MOVE R405-CERTIFICATE-DATE TO W405-CERTIFICATE-DATE. CL*49 00671 MOVE R405-CERTIFICATE-DATE TO L001-FED-8-DATE-9. CL*49 00672 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL*49 00673 MOVE L001-SLASH-8-DATE TO W405-CERTIFICATE-DATE. CL*49 00674 CL*49 00675 CL*36 00676 MOVE R405-FMT-LINE(01) TO W405-FMT-LINE1. CL*51 00677 MOVE R405-FMT-LINE(02) TO W405-FMT-LINE2. CL*51 00678 MOVE R405-FMT-LINE(03) TO W405-FMT-LINE3. CL*51 00679 MOVE R405-FMT-LINE(04) TO W405-FMT-LINE4. CL*51 00680 MOVE R405-FMT-LINE(05) TO W405-FMT-LINE5. CL*51 00681 CL*28 00682 WRITE LEIN-OUTREC2 FROM W405-REC. CL*29 00683 ADD +1 TO W-LEIN-405-OUT-CNT. CL*29 00684 CL*28 00685 P1200-EXIT. CL*29 00686 EXIT. CL*28 00687 CL*28 00688 S001-FROM-FED-8. DTSBX403 00689 SET L001-FROM-FED-8 TO TRUE. DTSBX403 00690 GO TO S001-DATE. DTSBX403 00691 DTSBX403 00692 S001-DATE. DTSBX403 00693 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX403 00694 S001-EXIT. DTSBX403 00695 EXIT. DTSBX403 00696 DTSBX403 00697 S005-DATE. DTSBX403 00698 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX403 00699 S005-EXIT. DTSBX403 00700 EXIT. DTSBX403 00701 DTSBX403 00702 S062-LOOKUP-FLD-REP. DTSBX403 00703 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX403 00704 S062-EXIT. DTSBX403 00705 EXIT. DTSBX403 00706 DTSBX403 00707 S910-OPEN-READ. DTSBX403 00708 SET L910-OPEN-READ-88 TO TRUE. DTSBX403 00709 GO TO S910-MSTR-IO. DTSBX403 00710 DTSBX403 00711 S910-READ. DTSBX403 00712 SET L910-READ-88 TO TRUE. DTSBX403 00713 GO TO S910-MSTR-IO. DTSBX403 00714 DTSBX403 00715 S910-START-BROWSE. DTSBX403 00716 SET L910-START-BROWSE-88 TO TRUE. DTSBX403 00717 GO TO S910-MSTR-IO. DTSBX403 00718 DTSBX403 00719 S910-READ-NEXT. DTSBX403 00720 SET L910-READ-NEXT-88 TO TRUE. DTSBX403 00721 GO TO S910-MSTR-IO. DTSBX403 00722 DTSBX403 00723 S910-CLOSE. DTSBX403 00724 SET L910-CLOSE-88 TO TRUE. DTSBX403 00725 GO TO S910-MSTR-IO. DTSBX403 00726 DTSBX403 00727 S910-MSTR-IO. DTSBX403 00728 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX403 00729 MSKL-REC. DTSBX403 00730 S910-EXIT. DTSBX403 00731 EXIT. DTSBX403 00732 DTSBX403 00733 S941-OPEN. DTSBX403 00734 SET L941-OPEN-READ-88 TO TRUE. DTSBX403 00735 GO TO S941-I. DTSBX403 00736 DTSBX403 00737 S941-READ-NEXT. DTSBX403 00738 SET L941-READ-NEXT-88 TO TRUE. DTSBX403 00739 GO TO S941-I. DTSBX403 00740 DTSBX403 00741 S941-CLOSE. DTSBX403 00742 SET L941-CLOSE-88 TO TRUE. DTSBX403 00743 GO TO S941-I. DTSBX403 00744 DTSBX403 00745 S941-I. DTSBX403 00746 CALL 'DTSBU941' USING L941-LINK-AREA, DTSBX403 00747 RSK3-REC. DTSBX403 00748 S941-EXIT. DTSBX403 00749 EXIT. DTSBX403 00750 DTSBX403 00751 S999-ABEND. DTSBX403 00752 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX403 00753 SKIP2 DTSBX403 00754 S999-EXIT. DTSBX403 00755 EXIT. DTSBX403 00756 DTSBX403 00757 T0000-TERMINATE. DTSBX403 00758 DTSBX403 00759 DISPLAY ' '. DTSBX403 00760 DISPLAY 'TOTAL R403 RECORDS READ = ' W-LEIN-403-IN-CNT. CL*24 00761 DTSBX403 00762 DISPLAY 'TOTAL R405 RECORDS READ = ' W-LEIN-405-IN-CNT. CL*24 00763 DTSBX403 00764 DISPLAY 'TOTAL R403 RECORDS WRITTEN ' W-LEIN-403-OUT-CNT. CL*29 00765 DTSBX403 00766 DISPLAY 'TOTAL R405 RECORDS WRITTEN ' W-LEIN-405-OUT-CNT CL*29 00767 PERFORM S910-CLOSE THRU S910-EXIT. CL*79 00768 PERFORM S941-CLOSE THRU S941-EXIT. DTSBX403 00769 CL*18 00770 CLOSE DTS-LN-OUT1 CL*30 00771 DTS-LN-OUT2. CL*30 00772 CL*30 00773 CL*18 00774 T0000-EXIT. DTSBX403 00775 EXIT. DTSBX403 00776 DTSBX403