00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR123. DTSBR123 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION. LV017 00004 UPDATED BY TRW/BDM OCT 1998. DTSBR123 00005 DATE-WRITTEN. AUGUST 1998. DTSBR123 00006 DATE-COMPILED. DTSBR123 00007 DTSBR123 00008 ***** DTSBR123 00009 * DTSBR123 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR123 00011 * DTSBE123 WHICH WRITES DTSIR123 DTSBR123 00012 * DTSBR123 READS DTSIR122 RECORDS. DTSBR123 00013 * DTSBR123 00014 * SELECTED CYCLE A STATUS CODES. DTSBR123 00015 * DTSBR123 00016 * DTSBR123 00017 * MODIFICATION HISTORY: DTSBR123 00018 * DTSBR123 00019 * 11-08-94 INITIAL DEVELOPMENT DTSBR123 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR123 00021 * DTSBR123 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR123 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR123 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR123 00025 * DTSBR123 00026 * DTSBR123 00027 * DESCRIPTION: DTSBR123 00028 * DTSBR123 00029 * THIS MODULE PRODUCES A PERIODIC LIST OF ALL EMPLOYERS DTSBR123 00030 * WITH CYCLE A STATUS CODES OF 04, 05, 09 AND 11. DTSBR123 00031 * DTSBR123 00032 * DTSBR123 00033 * RECORDS READ: DTSBR123 00034 * DTSBR123 00035 * NONE. DTSBR123 00036 * DTSBR123 00037 * DTSBR123 00038 * PRINTED OUTPUTS: DTSBR123 00039 * DTSBR123 00040 * 123R1 POTENTIAL EMPLOYERS WITH SELECTED CYCLE A STATUS DTSBR123 00041 * CODES DTSBR123 00042 * DTSBR123 00043 * DTSBR123 00044 * RECORDS WRITTEN: DTSBR123 00045 * DTSBR123 00046 * NONE. DTSBR123 00047 * DTSBR123 00048 * DTSBR123 00049 * MODULES CALLED: DTSBR123 00050 * DTSBR123 00051 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR123 00052 * DTSBU031 REGISTRATION CODES EDIT/DESCRIPTION MODULE DTSBR123 00053 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR123 00054 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR123 00055 * DTSBR123 00056 * DTSBR123 00057 ***** DTSBR123 00058 EJECT DTSBR123 00059 ENVIRONMENT DIVISION. DTSBR123 00060 DTSBR123 00061 CONFIGURATION SECTION. DTSBR123 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR123 00063 DTSBR123 00064 INPUT-OUTPUT SECTION. DTSBR123 00065 DTSBR123 00066 FILE-CONTROL. DTSBR123 00067 SELECT PRT-FILE ASSIGN TO RPT123R1. DTSBR123 00068 DTSBR123 00069 DATA DIVISION. DTSBR123 00070 DTSBR123 00071 FILE SECTION. DTSBR123 00072 DTSBR123 00073 FD PRT-FILE DTSBR123 00074 RECORDING MODE IS F. DTSBR123 00075 01 PRT-RECORD PIC X(133). DTSBR123 00076 DTSBR123 00077 WORKING-STORAGE SECTION. DTSBR123 000775 77 PAN-VALET PICTURE X(24) VALUE '017DTSBR123 01/29/01'. DTSBR123 00078 DTSBR123 00079 01 WRK-AREA. DTSBR123 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +123.DTSBR123 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR123 00082 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR123 00083 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR123 00084 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACES. DTSBR123 00085 05 WS-OP-ID-NAME-PREV PIC X(32) VALUE SPACES. DTSBR123 00086 05 WS-STATUS-CD-HOLD PIC X(02) VALUE SPACES. DTSBR123 00087 05 WS-STATUS-CODE-SHORT-DSCR PIC X(10) VALUE SPACES. DTSBR123 00088 DTSBR123 00089 05 WS-FOOT-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR123 00090 05 WS-FOOT-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR123 00091 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR123 00092 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR123 00093 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR123 00094 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR123 00095 DTSBR123 00096 05 WS-STATUS-CODE9-FORMAT-DSCR. DTSBR123 00097 10 FILLER PIC X(02) VALUE SPACES. DTSBR123 00098 10 WS-STATUS-CODE9-DSCR PIC X(06) VALUE SPACES. DTSBR123 00099 10 FILLER PIC X(02) VALUE SPACES. DTSBR123 00100 EJECT DTSBR123 00101 01 L001-LINK-AREA. DTSBR123 00102 ++INCLUDE DTSIL001 DTSBR123 00103 EJECT DTSBR123 00104 01 L031-LINK-AREA. DTSBR123 00105 ++INCLUDE DTSIL031 DTSBR123 00106 EJECT DTSBR123 00107 01 L071-LINK-AREA. DTSBR123 00108 ++INCLUDE DTSIL071 DTSBR123 00109 EJECT DTSBR123 00110 01 L082-LINK-AREA. DTSBR123 00111 ++INCLUDE DTSIL082 DTSBR123 00112 EJECT DTSBR123 00113 DTSBR123 00114 01 HEADER-1. DTSBR123 00115 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00116 05 FILLER PIC X(05) VALUE DTSBR123 00117 '123R1'. DTSBR123 00118 05 FILLER PIC X(35) VALUE SPACES. DTSBR123 00119 05 WS-AGY-NAME-LINE1 PIC X(50). DTSBR123 00120 05 FILLER PIC X(28) VALUE SPACES. DTSBR123 00121 05 FILLER PIC X(05) VALUE DTSBR123 00122 'DATE:'. DTSBR123 00123 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00124 05 WS-SYS-DATE PIC X(08). DTSBR123 00125 01 HEADER-2. DTSBR123 00126 05 FILLER PIC X(41) VALUE SPACES. DTSBR123 00127 05 WS-AGY-NAME-LINE2 PIC X(50). DTSBR123 00128 05 FILLER PIC X(28) VALUE SPACES. DTSBR123 00129 05 FILLER PIC X(05) VALUE DTSBR123 00130 'TIME:'. DTSBR123 00131 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00132 05 WS-SYS-TIME PIC X(08). DTSBR123 00133 01 HEADER-3. DTSBR123 00134 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00135 05 FILLER PIC X(33) VALUE DTSBR123 00136 'ROUTE TO: REGISTRATION AND RATES'. DTSBR123 00137 05 FILLER PIC X(05) VALUE SPACES. DTSBR123 00138 05 FILLER PIC X(40) VALUE DTSBR123 00139 'POTENTIAL EMPLOYERS WITH SELECTED CYCLE '. DTSBR123 00140 05 FILLER PIC X(14) DTSBR123 00141 VALUE 'A STATUS CODES'. DTSBR123 00142 05 FILLER PIC X(26) VALUE SPACES. DTSBR123 00143 05 FILLER PIC X(05) VALUE DTSBR123 00144 'PAGE:'. DTSBR123 00145 05 FILLER PIC X(03) VALUE SPACES. DTSBR123 00146 05 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR123 00147 01 HEADER-4 PIC X(133) VALUE SPACES. DTSBR123 00148 01 HEADER-5. DTSBR123 00149 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00150 05 FILLER PIC X(11) VALUE DTSBR123 00151 'RESP OPID: '. DTSBR123 00152 05 WS-RESPONSIBLE-OP-ID PIC X(08). DTSBR123 00153 05 FILLER PIC X(03) VALUE SPACE. DTSBR123 00154 05 WS-OP-ID-NAME PIC X(32). DTSBR123 00155 01 HEADER-6 PIC X(133) VALUE SPACES. DTSBR123 00156 01 HEADER-7 PIC X(133) VALUE SPACES. DTSBR123 00157 01 HEADER-8. DTSBR123 00158 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00159 05 FILLER PIC X(21) VALUE DTSBR123 00160 'CYCLE A STATUS CODE: '. DTSBR123 00161 05 WS-STATUS-CD PIC X(02). DTSBR123 00162 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00163 05 WS-STATUS-CODE-SHORT-DSCR-8 PIC X(10). DTSBR123 00164 01 HEADER-9. DTSBR123 00165 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00166 05 WS-STATUS-CODE-SHORT-DSCR-9 PIC X(10). DTSBR123 00167 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00168 05 FILLER PIC X(15) VALUE DTSBR123 00169 'DATE PRIOR TO: '. DTSBR123 00170 05 WS-CUTOFF-DATE PIC X(08). DTSBR123 00171 01 HEADER-10 PIC X(133) VALUE SPACES. DTSBR123 00172 01 HEADER-11 PIC X(133) VALUE SPACES. DTSBR123 00173 01 HEADER-12. DTSBR123 00174 05 FILLER PIC X(70) VALUE SPACES. DTSBR123 00175 05 WS-PRINT-STATUS-CODE9-DSCR PIC X(10). DTSBR123 00176 05 FILLER PIC X(07) VALUE SPACES. DTSBR123 00177 05 FILLER PIC X(09) VALUE DTSBR123 00178 'FIELD REP'. DTSBR123 00179 01 HEADER-13. DTSBR123 00180 05 FILLER PIC X(09) VALUE SPACES. DTSBR123 00181 05 FILLER PIC X(06) VALUE DTSBR123 00182 'EMP NO'. DTSBR123 00183 05 FILLER PIC X(06) VALUE SPACES. DTSBR123 00184 05 FILLER PIC X(13) VALUE DTSBR123 00185 'PRIMARY NAME '. DTSBR123 00186 05 FILLER PIC X(39) VALUE SPACES. DTSBR123 00187 05 FILLER PIC X(04) VALUE DTSBR123 00188 'DATE'. DTSBR123 00189 05 FILLER PIC X(12) VALUE SPACES. DTSBR123 00190 05 FILLER PIC X(04) VALUE DTSBR123 00191 'CODE'. DTSBR123 00192 DTSBR123 00193 01 DETAIL-LINE-2. DTSBR123 00194 05 FILLER PIC X(08) VALUE SPACES. DTSBR123 00195 05 WS-EMP-NO PIC 999B999. DTSBR123 00196 05 FILLER PIC X(06) VALUE SPACES. DTSBR123 00197 05 WS-PRIMARY-NAME PIC X(40). DTSBR123 00198 05 FILLER PIC X(09) VALUE SPACES. DTSBR123 00199 05 WS-CHNG-DATE PIC X(08). DTSBR123 00200 05 FILLER PIC X(12) VALUE SPACES. DTSBR123 00201 05 WS-FLD-REP-ID PIC X(02). DTSBR123 00202 DTSBR123 00203 01 FOOTER-STA-CD-LINE-3. DTSBR123 00204 05 FILLER PIC X(35) VALUE SPACES. DTSBR123 00205 05 WS-RSP-STA-CD-CNT PIC ZZ,ZZ9. DTSBR123 00206 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00207 05 FILLER PIC X(40) VALUE DTSBR123 00208 'EMPLOYERS FOR RESPONSIBLE OPID/STATUS CO'. DTSBR123 00209 05 FILLER PIC X(02) VALUE DTSBR123 00210 'DE'. DTSBR123 00211 DTSBR123 00212 01 FOOTER-RSP-CD-LINE-3. DTSBR123 00213 05 FILLER PIC X(35) VALUE SPACES. DTSBR123 00214 05 WS-RSP-CD-CNT PIC ZZ,ZZ9. DTSBR123 00215 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00216 05 FILLER PIC X(30) VALUE DTSBR123 00217 'EMPLOYERS FOR RESPONSIBLE OPID'. DTSBR123 00218 DTSBR123 00219 01 SUM-LINE-3. DTSBR123 00220 05 FILLER PIC X(35) VALUE SPACES. DTSBR123 00221 05 SUM-NUMBER-ONE PIC ZZ,ZZ9. DTSBR123 00222 05 FILLER PIC X(01) VALUE SPACE. DTSBR123 00223 05 FILLER PIC X(30) VALUE DTSBR123 00224 'EMPLOYERS LISTED ON REPORT '. DTSBR123 00225 EJECT DTSBR123 00226 LINKAGE SECTION. DTSBR123 00227 DTSBR123 00228 01 LRCM-LINK-AREA. DTSBR123 00229 ++INCLUDE DTSILRCM DTSBR123 00230 EJECT DTSBR123 00231 01 R123-REC. DTSBR123 00232 ++INCLUDE DTSIR123 DTSBR123 00233 EJECT DTSBR123 00234 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR123 00235 R123-REC. DTSBR123 00236 DTSBR123 00237 IF FIRST-TIME-IND = 'Y' DTSBR123 00238 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR123 00239 MOVE 'N' TO FIRST-TIME-IND. DTSBR123 00240 DTSBR123 00241 IF LRCM-EOR-88 DTSBR123 00242 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR123 00243 ELSE DTSBR123 00244 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR123 00245 DTSBR123 00246 GOBACK. DTSBR123 00247 EJECT DTSBR123 00248 I1000-INITIATE. DTSBR123 00249 DTSBR123 00250 OPEN OUTPUT PRT-FILE. DTSBR123 00251 MOVE SPACES TO WS-OP-ID-HOLD WS-STATUS-CD-HOLD. DTSBR123 00252 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR123 00253 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR123 00254 MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1. DTSBR123 00255 MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2. DTSBR123 00256 MOVE SPACES TO PRT-RECORD. DTSBR123 00257 DTSBR123 00258 I1000-EXIT. DTSBR123 00259 EXIT. DTSBR123 00260 EJECT DTSBR123 00261 P1000-PROCESS. DTSBR123 00262 DTSBR123 00263 IF R123-RESPONSIBLE-OP-ID NOT = WS-OP-ID-HOLD DTSBR123 00264 MOVE R123-RESPONSIBLE-OP-ID TO WS-OP-ID-HOLD DTSBR123 00265 L082-OP-ID DTSBR123 00266 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR123 00267 MOVE L082-NAME TO L071-NAM DTSBR123 00268 SET L071-FROM-LAST-NAME-FIRST TO TRUE DTSBR123 00269 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR123 00270 MOVE L071-NAM TO WS-OP-ID-NAME DTSBR123 00271 * DTSBR123 00272 IF WS-NUMBER-ONE = +0 AND WS-NUMBER-TWO = +0 DTSBR123 00273 MOVE +99 TO WS-NUMBER-ONE WS-NUMBER-TWO DTSBR123 00274 ELSE DTSBR123 00275 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR123 00276 MOVE +60 TO WS-LINE-CNT2 DTSBR123 00277 END-IF. DTSBR123 00278 * DTSBR123 00279 IF R123-STATUS-CD NOT = WS-STATUS-CD-HOLD DTSBR123 00280 MOVE R123-STATUS-CD TO WS-STATUS-CD-HOLD DTSBR123 00281 L031-CD-2 WS-STATUS-CD DTSBR123 00282 SET L031-MERA-STATUS-CD TO TRUE DTSBR123 00283 PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT DTSBR123 00284 MOVE L031-SHORT-DSCR TO WS-STATUS-CODE-SHORT-DSCR DTSBR123 00285 MOVE WS-STATUS-CODE-SHORT-DSCR TO WS-STATUS-CODE9-DSCR DTSBR123 00286 WS-STATUS-CODE-SHORT-DSCR-8 DTSBR123 00287 WS-STATUS-CODE-SHORT-DSCR-9 DTSBR123 00288 MOVE WS-STATUS-CODE9-FORMAT-DSCR TO DTSBR123 00289 WS-PRINT-STATUS-CODE9-DSCR DTSBR123 00290 MOVE R123-STATUS-CUTOFF-DATE TO L001-FED-8-DATE-9 DTSBR123 00291 SET L001-FROM-FED-8 TO TRUE DTSBR123 00292 PERFORM S001-DATE THRU S001-EXIT DTSBR123 00293 MOVE L001-SLASH-DATE TO WS-CUTOFF-DATE DTSBR123 00294 * DTSBR123 00295 IF WS-FOOT-NUMBER-ONE NOT = +0 DTSBR123 00296 PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT DTSBR123 00297 MOVE +60 TO WS-LINE-CNT2 DTSBR123 00298 END-IF. DTSBR123 00299 * DTSBR123 00300 MOVE R123-STATUS-CHNG-DATE TO L001-FED-8-DATE-9. DTSBR123 00301 SET L001-FROM-FED-8 TO TRUE. DTSBR123 00302 PERFORM S001-DATE THRU S001-EXIT. DTSBR123 00303 MOVE L001-SLASH-DATE TO WS-CHNG-DATE. DTSBR123 00304 * DTSBR123 00305 ADD +1 TO WS-FOOT-NUMBER-TWO. DTSBR123 00306 ADD +1 TO WS-FOOT-NUMBER-ONE. DTSBR123 00307 MOVE R123-RESPONSIBLE-OP-ID TO WS-RESPONSIBLE-OP-ID. DTSBR123 00308 MOVE R123-EMP-NO TO WS-EMP-NO. DTSBR123 00309 MOVE R123-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR123 00310 MOVE R123-FLD-REP-ID TO WS-FLD-REP-ID. DTSBR123 00311 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR123 00312 WRITE PRT-RECORD FROM DETAIL-LINE-2 AFTER 2. DTSBR123 00313 ADD +2 TO WS-LINE-CNT2. DTSBR123 00314 ADD +1 TO WS-SUM-NUMBER-ONE. DTSBR123 00315 DTSBR123 00316 P1000-EXIT. DTSBR123 00317 EXIT. DTSBR123 00318 EJECT DTSBR123 00319 DTSBR123 00320 P2000-PRINT-HEADER. DTSBR123 00321 IF WS-LINE-CNT GREATER 58 OR DTSBR123 00322 WS-LINE-CNT2 GREATER 58 DTSBR123 00323 MOVE +0 TO WS-LINE-CNT DTSBR123 00324 MOVE +0 TO WS-LINE-CNT2 DTSBR123 00325 ADD +1 TO WS-PAGE-CNT DTSBR123 00326 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT DTSBR123 00327 MOVE WS-OP-ID-NAME TO WS-OP-ID-NAME-PREV DTSBR123 00328 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR123 00329 WRITE PRT-RECORD FROM HEADER-2 AFTER 1 DTSBR123 00330 WRITE PRT-RECORD FROM HEADER-3 AFTER 1 DTSBR123 00331 WRITE PRT-RECORD FROM HEADER-4 AFTER 1 DTSBR123 00332 WRITE PRT-RECORD FROM HEADER-5 AFTER 1 DTSBR123 00333 WRITE PRT-RECORD FROM HEADER-6 AFTER 1 DTSBR123 00334 WRITE PRT-RECORD FROM HEADER-7 AFTER 1 DTSBR123 00335 WRITE PRT-RECORD FROM HEADER-8 AFTER 1 DTSBR123 00336 WRITE PRT-RECORD FROM HEADER-9 AFTER 1 DTSBR123 00337 WRITE PRT-RECORD FROM HEADER-10 AFTER 1 DTSBR123 00338 WRITE PRT-RECORD FROM HEADER-11 AFTER 1 DTSBR123 00339 WRITE PRT-RECORD FROM HEADER-12 AFTER 1 DTSBR123 00340 WRITE PRT-RECORD FROM HEADER-13 AFTER 1 DTSBR123 00341 ADD +13 TO WS-LINE-CNT2. DTSBR123 00342 P2000-EXIT. DTSBR123 00343 EXIT. DTSBR123 00344 DTSBR123 00345 P3000-PRINT-FOOTER. DTSBR123 00346 IF WS-LINE-CNT2 > 52 DTSBR123 00347 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR123 00348 END-IF. DTSBR123 00349 DTSBR123 00350 MOVE WS-FOOT-NUMBER-ONE TO WS-RSP-STA-CD-CNT. DTSBR123 00351 WRITE PRT-RECORD FROM FOOTER-STA-CD-LINE-3 AFTER 3. DTSBR123 00352 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR123 00353 DTSBR123 00354 P3000-EXIT. DTSBR123 00355 EXIT. DTSBR123 00356 DTSBR123 00357 P4000-PRINT-FOOTER. DTSBR123 00358 IF WS-LINE-CNT2 > 52 DTSBR123 00359 MOVE WS-OP-ID-NAME-PREV TO WS-OP-ID-NAME DTSBR123 00360 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR123 00361 MOVE L071-NAM TO WS-OP-ID-NAME DTSBR123 00362 END-IF. DTSBR123 00363 DTSBR123 00364 MOVE WS-FOOT-NUMBER-ONE TO WS-RSP-STA-CD-CNT DTSBR123 00365 WRITE PRT-RECORD FROM FOOTER-STA-CD-LINE-3 AFTER 3. DTSBR123 00366 MOVE WS-FOOT-NUMBER-TWO TO WS-RSP-CD-CNT DTSBR123 00367 WRITE PRT-RECORD FROM FOOTER-RSP-CD-LINE-3 AFTER 3. DTSBR123 00368 MOVE +0 TO WS-FOOT-NUMBER-TWO. DTSBR123 00369 MOVE +0 TO WS-FOOT-NUMBER-ONE. DTSBR123 00370 DTSBR123 00371 P4000-EXIT. DTSBR123 00372 EXIT. DTSBR123 00373 DTSBR123 00374 T1000-TERMINATE. DTSBR123 00375 DTSBR123 00376 IF WS-LINE-CNT2 > 52 DTSBR123 00377 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR123 00378 END-IF. DTSBR123 00379 DTSBR123 00380 MOVE WS-FOOT-NUMBER-ONE TO WS-RSP-STA-CD-CNT. DTSBR123 00381 MOVE WS-FOOT-NUMBER-TWO TO WS-RSP-CD-CNT. DTSBR123 00382 WRITE PRT-RECORD FROM FOOTER-STA-CD-LINE-3 AFTER 3. DTSBR123 00383 WRITE PRT-RECORD FROM FOOTER-RSP-CD-LINE-3 AFTER 3. DTSBR123 00384 DTSBR123 00385 MOVE WS-SUM-NUMBER-ONE TO SUM-NUMBER-ONE. DTSBR123 00386 WRITE PRT-RECORD FROM SUM-LINE-3 AFTER 3. DTSBR123 00387 DTSBR123 00388 CLOSE PRT-FILE. DTSBR123 00389 DTSBR123 00390 T1000-EXIT. DTSBR123 00391 EXIT. DTSBR123 00392 EJECT DTSBR123 00393 S001-DATE. DTSBR123 00394 DTSBR123 00395 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR123 00396 DTSBR123 00397 S001-EXIT. DTSBR123 00398 EXIT. DTSBR123 00399 DTSBR123 00400 S031-CODES-DESCRIPTION. DTSBR123 00401 DTSBR123 00402 CALL 'DTSBU031' USING L031-LINK-AREA. DTSBR123 00403 DTSBR123 00404 S031-EXIT. DTSBR123 00405 EXIT. DTSBR123 00406 DTSBR123 00407 S071-DESLASH-NAME. DTSBR123 00408 DTSBR123 00409 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR123 00410 DTSBR123 00411 S071-EXIT. DTSBR123 00412 EXIT. DTSBR123 00413 DTSBR123 00414 S082-OP-ID-INFO. DTSBR123 00415 DTSBR123 00416 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR123 00417 DTSBR123 00418 S082-EXIT. DTSBR123 00419 EXIT. DTSBR123 00420 DTSBR123 00421 S999-ABEND. DTSBR123 00422 DTSBR123 00423 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR123 00424 DTSBR123 00425 S999-EXIT. DTSBR123 00426 EXIT. DTSBR123 00427 DTSBR123