00001 IDENTIFICATION DIVISION. 11/16/00 00002 PROGRAM-ID. DTSBR404. DTSBR404 00003 AUTHOR. TRICOASTAL CONSULTING LTD LV039 00004 MODIFIED BY TRW S&ITG. DTSBR404 00005 DATE-WRITTEN. DECEMBER 1994. DTSBR404 00006 DATE-COMPILED. DTSBR404 00007 SKIP3 DTSBR404 00008 ***** DTSBR404 00009 * DTSBR404 00010 * CALLING SEQUENCE: DTSBD321 CREATES DTSIR404 RECORDS. DTSBR404 00011 * DTSBD800 CALLS DTSBR404 DTSBR404 00012 * WHICH PRODUCES THE LIST. DTSBR404 00013 * DTSBR404 00014 * FUNCTION: LIEN PACKAGES PRINTED CONTROL REPORT DTSBR404 00015 * DTSBR404 00016 * DTSBR404 00017 * MODIFICATION HISTORY: DTSBR404 00018 * DTSBR404 00019 * 02-16-99 INITIAL DEVELOPMENT DTSBR404 00020 * REFERENCE RFP # AUTHOR OF CHANGE - DVS DTSBR404 00021 * DTSBR404 00022 * 10-20-00 MODIFIED PROGRAM TO REPLACE LICENSE LETTER COLUMN WITH DTSBR404 00023 * OUC CERTIFICATE NUMBER. DTSBR404 00024 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 DTSBR404 00025 * DTSBR404 00026 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR404 00027 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR404 00028 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR404 00029 * DTSBR404 00030 * DTSBR404 00031 * DESCRIPTION: DTSBR404 00032 * DTSBR404 00033 * THIS MODULE PRODUCES THE LIEN PACKAGES CONTROL LIST. DTSBR404 00034 * DTSBR404 00035 * DTSBR404 00036 * RECORDS READ: DTSBR404 00037 * DTSBR404 00038 * NONE. DTSBR404 00039 * DTSBR404 00040 * DTSBR404 00041 * PRINTED OUTPUTS: DTSBR404 00042 * DTSBR404 00043 * 404R1 LIEN PACKAGES PRINTED CONTROL REPORT DTSBR404 00044 * DTSBR404 00045 * DTSBR404 00046 * RECORDS WRITTEN: DTSBR404 00047 * DTSBR404 00048 * NONE. DTSBR404 00049 * DTSBR404 00050 * DTSBR404 00051 * MODULES CALLED: DTSBR404 00052 * DTSBR404 00053 * DTSBU001 DATE CONVERT. DTSBR404 00054 * DTSBU004 QUARTER CONVERT. DTSBR404 00055 * DTSBR404 00056 * DTSBR404 00057 ***** DTSBR404 00058 EJECT DTSBR404 00059 ENVIRONMENT DIVISION. DTSBR404 00060 DTSBR404 00061 CONFIGURATION SECTION. DTSBR404 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR404 00063 DTSBR404 00064 INPUT-OUTPUT SECTION. DTSBR404 00065 FILE-CONTROL. DTSBR404 00066 SELECT PRT-FILE ASSIGN TO RPT404R1. DTSBR404 00067 SKIP3 DTSBR404 00068 DATA DIVISION. DTSBR404 00069 FILE SECTION. DTSBR404 00070 DTSBR404 00071 FD PRT-FILE DTSBR404 00072 RECORDING MODE IS F. DTSBR404 00073 01 PRT-RECORD PIC X(133). DTSBR404 00074 DTSBR404 00075 WORKING-STORAGE SECTION. DTSBR404 000755 77 PAN-VALET PICTURE X(24) VALUE '039DTSBR404 11/16/00'. DTSBR404 00076 SKIP3 DTSBR404 00077 01 WRK-AREA. DTSBR404 00078 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +404.DTSBR404 00079 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR404 00080 05 FIRST-PAGE-IND PIC X(01) VALUE 'Y'. DTSBR404 00081 DTSBR404 00082 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR404 00083 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR404 00084 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR404 00085 05 WS-PKG-SUM-CNTR PIC S9(02) COMP-3 VALUE +0. DTSBR404 00086 DTSBR404 00087 05 WS-LIEN-NO PIC 9(10) VALUE 0. DTSBR404 00088 05 WS-EMP-NO PIC 9(06) VALUE 0. DTSBR404 00089 05 WS-STMT-DUE-AMT PIC 9(09)V99. DTSBR404 00090 DTSBR404 00091 05 WRK-YRQ-CNT PIC S9(04) COMP. DTSBR404 00092 05 WRK-YRQ-AREA. DTSBR404 00093 10 WRK-YRQ OCCURS 20 PIC X(06). DTSBR404 00094 EJECT DTSBR404 00095 01 L001-LINK-AREA. DTSBR404 00096 ++INCLUDE DTSIL001 DTSBR404 00097 SKIP3 DTSBR404 00098 01 L004-LINK-AREA. DTSBR404 00099 ++INCLUDE DTSIL004 DTSBR404 00100 EJECT DTSBR404 00101 01 PAGE-HEADING. DTSBR404 00102 05 HEADER-1. DTSBR404 00103 10 FILLER PIC X(01) VALUE SPACE. DTSBR404 00104 10 FILLER PIC X(05) DTSBR404 00105 VALUE '404R1'. DTSBR404 00106 10 FILLER PIC X(35) VALUE SPACES.DTSBR404 00107 10 WS-AGY-NAME-LINE1 PIC X(50). DTSBR404 00108 10 FILLER PIC X(27) VALUE SPACES.DTSBR404 00109 10 FILLER PIC X(05) DTSBR404 00110 VALUE 'DATE:'. DTSBR404 00111 10 FILLER PIC X(01) VALUE SPACE. DTSBR404 00112 10 WS-SYS-DATE PIC X(08). DTSBR404 00113 05 HEADER-2. DTSBR404 00114 10 FILLER PIC X(41) VALUE SPACES.DTSBR404 00115 10 WS-AGY-NAME-LINE2 PIC X(50). DTSBR404 00116 10 FILLER PIC X(27) VALUE SPACES.DTSBR404 00117 10 FILLER PIC X(05) DTSBR404 00118 VALUE 'TIME:'. DTSBR404 00119 10 FILLER PIC X(01) VALUE SPACE. DTSBR404 00120 10 WS-SYS-TIME PIC X(08). DTSBR404 00121 05 HEADER-3. DTSBR404 00122 10 FILLER PIC X(01) VALUE SPACE. DTSBR404 00123 10 FILLER PIC X(35) DTSBR404 00124 VALUE 'ROUTE TO: ENFORCEMENT UNIT '. DTSBR404 00125 10 FILLER PIC X(82) VALUE SPACES.DTSBR404 00126 10 FILLER PIC X(05) DTSBR404 00127 VALUE 'PAGE:'. DTSBR404 00128 10 FILLER PIC X(03) VALUE SPACES.DTSBR404 00129 10 HDR3-PAGE PIC ZZ,ZZ9. DTSBR404 00130 05 HEADER-4. DTSBR404 00131 10 FILLER PIC X(47) VALUE SPACES.DTSBR404 00132 10 FILLER PIC X(36) DTSBR404 00133 VALUE 'LIEN PACKAGES PRINTED CONTROL REPORT'. DTSBR404 00134 05 HEADER-5 PIC X(133) VALUE SPACES.DTSBR404 00135 05 HEADER-6 PIC X(133) VALUE SPACES.DTSBR404 00136 05 HEADER-7. DTSBR404 00137 10 FILLER PIC X(95) VALUE SPACES.DTSBR404 00138 10 FILLER PIC X(09) DTSBR404 00139 VALUE ' LIEN'. DTSBR404 00140 10 FILLER PIC X(10) VALUE SPACES.DTSBR404 00141 10 FILLER PIC X(06) DTSBR404 00142 VALUE ' LIEN'. DTSBR404 00143 05 HEADER-8. DTSBR404 00144 10 FILLER PIC X(02) VALUE SPACES.DTSBR404 00145 10 FILLER PIC X(06) DTSBR404 00146 VALUE 'EMP NO'. DTSBR404 00147 10 FILLER PIC X(06) VALUE SPACES.DTSBR404 00148 10 FILLER PIC X(13) DTSBR404 00149 VALUE 'PRIMARY NAME'. DTSBR404 00150 10 FILLER PIC X(34) VALUE SPACES.DTSBR404 00151 10 FILLER PIC X(30) DTSBR404 00152 VALUE '------ QUARTERS COVERED ------'. DTSBR404 00153 10 FILLER PIC X(05) VALUE SPACES.DTSBR404 00154 10 FILLER PIC X(07) DTSBR404 00155 VALUE ' NO '. DTSBR404 00156 10 FILLER PIC X(11) VALUE SPACES.DTSBR404 00157 10 FILLER PIC X(06) DTSBR404 00158 VALUE 'AMOUNT'. DTSBR404 00159 01 DETAIL-LINE. DTSBR404 00160 SKIP3 DTSBR404 00161 05 DTL-LINE-1 PIC X(133) VALUE SPACES.DTSBR404 00162 05 DTL-LINE-2. DTSBR404 00163 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00164 10 WS-PRINT-EMP-NO PIC 999B999. DTSBR404 00165 10 FILLER PIC X(05) VALUE SPACES. DTSBR404 00166 10 WS-PRIMARY-NAME PIC X(40). DTSBR404 00167 10 FILLER PIC X(07) VALUE SPACES. DTSBR404 00168 10 WRK-YRQ-1 PIC X(06). DTSBR404 00169 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00170 10 WRK-YRQ-2 PIC X(06). DTSBR404 00171 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00172 10 WRK-YRQ-3 PIC X(06). DTSBR404 00173 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00174 10 WRK-YRQ-4 PIC X(06). DTSBR404 00175 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00176 10 DTL-LIEN-NO PIC ZZZZZZZZZ9. DTSBR404 00177 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00178 10 FILLER PIC X(04) VALUE SPACES. DTSBR404 00179 10 WS-PRINT-STMT-DUE-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR404 00180 05 DTL-LINE-3. DTSBR404 00181 10 FILLER PIC X(14) VALUE SPACES. DTSBR404 00182 10 WS-FMT-LINE-3 PIC X(40). DTSBR404 00183 10 FILLER PIC X(07) VALUE SPACES. DTSBR404 00184 10 WRK-YRQ-5 PIC X(06). DTSBR404 00185 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00186 10 WRK-YRQ-6 PIC X(06). DTSBR404 00187 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00188 10 WRK-YRQ-7 PIC X(06). DTSBR404 00189 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00190 10 WRK-YRQ-8 PIC X(06). DTSBR404 00191 05 DTL-LINE-4. DTSBR404 00192 10 FILLER PIC X(14) VALUE SPACES. DTSBR404 00193 10 WS-FMT-LINE-4 PIC X(40). DTSBR404 00194 10 FILLER PIC X(07) VALUE SPACES. DTSBR404 00195 10 WRK-YRQ-9 PIC X(06). DTSBR404 00196 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00197 10 WRK-YRQ-10 PIC X(06). DTSBR404 00198 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00199 10 WRK-YRQ-11 PIC X(06). DTSBR404 00200 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00201 10 WRK-YRQ-12 PIC X(06). DTSBR404 00202 05 DTL-LINE-5. DTSBR404 00203 10 FILLER PIC X(14) VALUE SPACES. DTSBR404 00204 10 WS-FMT-LINE-5 PIC X(40). DTSBR404 00205 10 FILLER PIC X(07) VALUE SPACES. DTSBR404 00206 10 WRK-YRQ-13 PIC X(06). DTSBR404 00207 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00208 10 WRK-YRQ-14 PIC X(06). DTSBR404 00209 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00210 10 WRK-YRQ-15 PIC X(06). DTSBR404 00211 10 FILLER PIC X(02) VALUE SPACES. DTSBR404 00212 10 WRK-YRQ-16 PIC X(06). DTSBR404 00213 05 DTL-LINE-6. DTSBR404 00214 10 FILLER PIC X(65) VALUE SPACES. DTSBR404 00215 10 WRK-YRQ-17 PIC X(06). DTSBR404 00216 10 WRK-YRQ-18 PIC X(06). DTSBR404 00217 10 WRK-YRQ-19 PIC X(06). DTSBR404 00218 10 WRK-YRQ-20 PIC X(06). DTSBR404 00219 SKIP3 DTSBR404 00220 DTSBR404 00221 01 CONTROL-FOOTING. DTSBR404 00222 05 CNF-LINE-1 PIC X(133) VALUE SPACES.DTSBR404 00223 05 CNF-LINE-2 PIC X(133) VALUE SPACES.DTSBR404 00224 05 CNF-LINE-3. DTSBR404 00225 10 FILLER PIC X(36) VALUE SPACES. DTSBR404 00226 10 PRINT-SUM-CNTR PIC ZZ,ZZ9. DTSBR404 00227 10 FILLER PIC X(01) VALUE SPACE. DTSBR404 00228 10 FILLER PIC X(21) DTSBR404 00229 VALUE 'LIEN PACKAGES PRINTED'. DTSBR404 00230 SKIP3 DTSBR404 00231 EJECT DTSBR404 00232 LINKAGE SECTION. DTSBR404 00233 SKIP3 DTSBR404 00234 01 LRCM-LINK-AREA. DTSBR404 00235 ++INCLUDE DTSILRCM DTSBR404 00236 EJECT DTSBR404 00237 01 R404-REC. DTSBR404 00238 ++INCLUDE DTSIR404 DTSBR404 00239 EJECT DTSBR404 00240 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR404 00241 R404-REC. DTSBR404 00242 DTSBR404 00243 IF FIRST-TIME-IND = 'Y' DTSBR404 00244 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR404 00245 MOVE 'N' TO FIRST-TIME-IND. DTSBR404 00246 DTSBR404 00247 IF LRCM-EOR-88 DTSBR404 00248 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR404 00249 ELSE DTSBR404 00250 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR404 00251 SKIP3 DTSBR404 00252 GOBACK. DTSBR404 00253 EJECT DTSBR404 00254 I1000-INITIATE. DTSBR404 00255 DTSBR404 00256 OPEN OUTPUT PRT-FILE. DTSBR404 00257 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR404 00258 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR404 00259 MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1. DTSBR404 00260 MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2. DTSBR404 00261 MOVE SPACES TO PRT-RECORD. DTSBR404 00262 DTSBR404 00263 I1000-EXIT. DTSBR404 00264 EXIT. DTSBR404 00265 EJECT DTSBR404 00266 P1000-PROCESS. DTSBR404 00267 DTSBR404 00268 IF R404-EMP-NO NOT = WS-EMP-NO DTSBR404 00269 ADD +1 TO WS-PKG-SUM-CNTR. DTSBR404 00270 MOVE R404-CERTIFICATE-NO TO WS-LIEN-NO. DTSBR404 00271 MOVE WS-LIEN-NO TO DTL-LIEN-NO. DTSBR404 00272 MOVE R404-EMP-NO TO WS-EMP-NO. DTSBR404 00273 MOVE WS-EMP-NO TO WS-PRINT-EMP-NO. DTSBR404 00274 MOVE R404-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR404 00275 MOVE R404-STMT-DUE-AMT TO WS-STMT-DUE-AMT. DTSBR404 00276 MOVE WS-STMT-DUE-AMT TO WS-PRINT-STMT-DUE-AMT. DTSBR404 00277 MOVE R404-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR404 00278 MOVE R404-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR404 00279 MOVE R404-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR404 00280 DTSBR404 00281 MOVE SPACE TO WRK-YRQ-AREA. DTSBR404 00282 DTSBR404 00283 PERFORM VARYING WRK-YRQ-CNT FROM 1 BY 1 DTSBR404 00284 UNTIL WRK-YRQ-CNT > R404-COV-CNT DTSBR404 00285 IF R404-COVERED-YRQ (WRK-YRQ-CNT) > 0 DTSBR404 00286 PERFORM P1100-PICKUP-YRQ THRU P1100-EXIT DTSBR404 00287 END-IF DTSBR404 00288 END-PERFORM. DTSBR404 00289 DTSBR404 00290 * GENERATE DETAIL-LINE. DTSBR404 00291 DTSBR404 00292 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR404 00293 PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT. DTSBR404 00294 DTSBR404 00295 P1000-EXIT. DTSBR404 00296 EXIT. DTSBR404 00297 EJECT DTSBR404 00298 DTSBR404 00299 P1100-PICKUP-YRQ. DTSBR404 00300 IF R404-COVERED-YRQ (WRK-YRQ-CNT) = LRCM-PICKUP-YRQ DTSBR404 00301 MOVE 'PU ' TO WRK-YRQ (WRK-YRQ-CNT) DTSBR404 00302 ELSE DTSBR404 00303 MOVE R404-COVERED-YRQ (WRK-YRQ-CNT) TO L004-QTR-5-9 DTSBR404 00304 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR404 00305 MOVE L004-SLASH-5-QTR TO WRK-YRQ (WRK-YRQ-CNT) DTSBR404 00306 END-IF. DTSBR404 00307 P1100-EXIT. DTSBR404 00308 EXIT. DTSBR404 00309 EJECT DTSBR404 00310 DTSBR404 00311 P2000-PRINT-HEADER. DTSBR404 00312 IF WS-LINE-CNT GREATER 58 OR DTSBR404 00313 WS-LINE-CNT2 GREATER 58 DTSBR404 00314 MOVE +0 TO WS-LINE-CNT DTSBR404 00315 MOVE +0 TO WS-LINE-CNT2 DTSBR404 00316 ADD +1 TO WS-PAGE-CNT DTSBR404 00317 MOVE WS-PAGE-CNT TO HDR3-PAGE DTSBR404 00318 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR404 00319 WRITE PRT-RECORD FROM HEADER-2 AFTER 1 DTSBR404 00320 WRITE PRT-RECORD FROM HEADER-3 AFTER 1 DTSBR404 00321 WRITE PRT-RECORD FROM HEADER-4 AFTER 1 DTSBR404 00322 WRITE PRT-RECORD FROM HEADER-5 AFTER 1 DTSBR404 00323 WRITE PRT-RECORD FROM HEADER-6 AFTER 1 DTSBR404 00324 WRITE PRT-RECORD FROM HEADER-7 AFTER 1 DTSBR404 00325 WRITE PRT-RECORD FROM HEADER-8 AFTER 1 DTSBR404 00326 ADD +8 TO WS-LINE-CNT2. DTSBR404 00327 P2000-EXIT. DTSBR404 00328 EXIT. DTSBR404 00329 DTSBR404 00330 P3000-PRINT-DETAIL. DTSBR404 00331 DTSBR404 00332 MOVE WRK-YRQ (1) TO WRK-YRQ-1. DTSBR404 00333 MOVE WRK-YRQ (2) TO WRK-YRQ-2. DTSBR404 00334 MOVE WRK-YRQ (3) TO WRK-YRQ-3. DTSBR404 00335 MOVE WRK-YRQ (4) TO WRK-YRQ-4. DTSBR404 00336 MOVE WRK-YRQ (5) TO WRK-YRQ-5. DTSBR404 00337 MOVE WRK-YRQ (6) TO WRK-YRQ-6. DTSBR404 00338 MOVE WRK-YRQ (7) TO WRK-YRQ-7. DTSBR404 00339 MOVE WRK-YRQ (8) TO WRK-YRQ-8. DTSBR404 00340 MOVE WRK-YRQ (9) TO WRK-YRQ-9. DTSBR404 00341 MOVE WRK-YRQ (10) TO WRK-YRQ-10. DTSBR404 00342 MOVE WRK-YRQ (11) TO WRK-YRQ-11. DTSBR404 00343 MOVE WRK-YRQ (12) TO WRK-YRQ-12. DTSBR404 00344 MOVE WRK-YRQ (13) TO WRK-YRQ-13. DTSBR404 00345 MOVE WRK-YRQ (14) TO WRK-YRQ-14. DTSBR404 00346 MOVE WRK-YRQ (15) TO WRK-YRQ-15. DTSBR404 00347 MOVE WRK-YRQ (16) TO WRK-YRQ-16. DTSBR404 00348 DTSBR404 00349 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1. DTSBR404 00350 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 1. DTSBR404 00351 WRITE PRT-RECORD FROM DTL-LINE-3 AFTER 1. DTSBR404 00352 WRITE PRT-RECORD FROM DTL-LINE-4 AFTER 1. DTSBR404 00353 WRITE PRT-RECORD FROM DTL-LINE-5 AFTER 1. DTSBR404 00354 ADD +5 TO WS-LINE-CNT2. DTSBR404 00355 IF R404-COV-CNT > 16 DTSBR404 00356 MOVE WRK-YRQ (17) TO WRK-YRQ-17 DTSBR404 00357 MOVE WRK-YRQ (18) TO WRK-YRQ-18 DTSBR404 00358 MOVE WRK-YRQ (19) TO WRK-YRQ-19 DTSBR404 00359 MOVE WRK-YRQ (20) TO WRK-YRQ-20 DTSBR404 00360 WRITE PRT-RECORD FROM DTL-LINE-6 AFTER 1 DTSBR404 00361 ADD +1 TO WS-LINE-CNT2. DTSBR404 00362 P3000-EXIT. DTSBR404 00363 EXIT. DTSBR404 00364 DTSBR404 00365 T1000-TERMINATE. DTSBR404 00366 DTSBR404 00367 IF WS-LINE-CNT2 > 52 DTSBR404 00368 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR404 00369 END-IF. DTSBR404 00370 MOVE WS-PKG-SUM-CNTR TO PRINT-SUM-CNTR. DTSBR404 00371 WRITE PRT-RECORD FROM CNF-LINE-1 AFTER 1. DTSBR404 00372 WRITE PRT-RECORD FROM CNF-LINE-2 AFTER 1. DTSBR404 00373 WRITE PRT-RECORD FROM CNF-LINE-3 AFTER 1. DTSBR404 00374 CLOSE PRT-FILE. DTSBR404 00375 DTSBR404 00376 T1000-EXIT. DTSBR404 00377 EXIT. DTSBR404 00378 EJECT DTSBR404 00379 S001-FROM-FED-8. DTSBR404 00380 DTSBR404 00381 SET L001-FROM-FED-8 TO TRUE. DTSBR404 00382 DTSBR404 00383 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR404 00384 DTSBR404 00385 S001-EXIT. DTSBR404 00386 EXIT. DTSBR404 00387 SKIP3 DTSBR404 00388 S004-FROM-5. DTSBR404 00389 DTSBR404 00390 SET L004-FROM-5 TO TRUE. DTSBR404 00391 DTSBR404 00392 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR404 00393 DTSBR404 00394 S004-EXIT. DTSBR404 00395 EXIT. DTSBR404 00396 SKIP3 DTSBR404 00397 *S999-ABEND. DTSBR404 00398 * DTSBR404 00399 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR404 00400 * DTSBR404 00401 *S999-EXIT. DTSBR404 00402 * EXIT. DTSBR404 00403 DTSBR404