00001 IDENTIFICATION DIVISION. 07/25/02 00002 PROGRAM-ID. DTSBR791. DTSBR791 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV007 00004 UPDATED BY TRW/BDM OCT. 1998. DTSBR791 00005 DATE-WRITTEN. JANUARY 1995. DTSBR791 00006 DATE-COMPILED. DTSBR791 00007 DTSBR791 00008 ***** DTSBR791 00009 * DTSBR791 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR791 00011 * DTSBE791 WHICH WRITES DTSIR791 DTSBR791 00012 * DTSBR791 READS DTSIR791 RECORDS. DTSBR791 00013 * DTSBR791 00014 * FUNCTION: DUTAS OPERATOR ID LIST. DTSBR791 00015 * DTSBR791 00016 * DTSBR791 00017 * MODIFICATION HISTORY: DTSBR791 00018 * DTSBR791 00019 * 01-22-95 INITIAL DEVELOPMENT DTSBR791 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR791 00021 * DTSBR791 00022 * 03-15-95 REARRANGE SORT ORDER, ADD CONTROL BREAKS AND TOTALS. DTSBR791 00023 * REFERENCE RFP #CR052 AUTHOR OF CHANGE - RHC DTSBR791 00024 * DTSBR791 00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR791 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR791 00027 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR791 00028 * DTSBR791 00029 * DTSBR791 00030 * DESCRIPTION: DTSBR791 00031 * DTSBR791 00032 * THIS MODULE LISTS DTS CICS OPERATOR ID'S AND THE SCREENS DTSBR791 00033 * THEY HAVE ACCESS TO. DTSBR791 00034 * DTSBR791 00035 * DTSBR791 00036 * RECORDS READ: DTSBR791 00037 * DTSBR791 00038 * NONE. DTSBR791 00039 * DTSBR791 00040 * DTSBR791 00041 * PRINTED OUTPUTS: DTSBR791 00042 * DTSBR791 00043 * 791R1 OPERATOR ID LIST DTSBR791 00044 * DTSBR791 00045 * DTSBR791 00046 * RECORDS WRITTEN: DTSBR791 00047 * DTSBR791 00048 * NONE. DTSBR791 00049 * DTSBR791 00050 * DTSBR791 00051 * MODULES CALLED: DTSBR791 00052 * DTSBR791 00053 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR791 00054 * DTSBR791 00055 * DTSBR791 00056 ***** DTSBR791 00057 DTSBR791 00058 ENVIRONMENT DIVISION. DTSBR791 00059 DTSBR791 00060 CONFIGURATION SECTION. DTSBR791 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR791 00062 DTSBR791 00063 INPUT-OUTPUT SECTION. DTSBR791 00064 DTSBR791 00065 FILE-CONTROL. DTSBR791 00066 SELECT PRT-FILE ASSIGN TO RPT791R1. DTSBR791 00067 DTSBR791 00068 DATA DIVISION. DTSBR791 00069 DTSBR791 00070 FILE SECTION. DTSBR791 00071 DTSBR791 00072 FD PRT-FILE DTSBR791 00073 RECORDING MODE IS F. DTSBR791 00074 01 PRT-RECORD PIC X(133). DTSBR791 00075 DTSBR791 00076 WORKING-STORAGE SECTION. DTSBR791 000765 77 PAN-VALET PICTURE X(24) VALUE '007DTSBR791 07/25/02'. DTSBR791 00077 DTSBR791 00078 01 WRK-AREA. DTSBR791 00079 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +791.DTSBR791 00080 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR791 00081 DTSBR791 00082 05 WS-RPT-OP-ID-CNT1 PIC S9(05) COMP-3 VALUE +0. DTSBR791 00083 05 WS-RPT-OP-ID-CNT2 PIC S9(05) COMP-3 VALUE +0. DTSBR791 00084 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR791 00085 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR791 00086 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR791 00087 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR791 00088 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR791 00089 05 WS-UNIT-NAME PIC X(30) VALUE SPACES. DTSBR791 00090 05 WS-OP-ID PIC X(08) VALUE SPACES. DTSBR791 00091 05 WS-NAM PIC X(32) VALUE SPACES. DTSBR791 00092 05 BLANK-LINE PIC X(133) VALUE SPACES. DTSBR791 00093 DTSBR791 00094 05 WS-BUREAU PIC X(30). DTSBR791 00095 DTSBR791 00096 05 WS-OFFSET PIC S9(03) COMP-3. DTSBR791 00097 05 WS-LINE-OFFSET PIC S9(03) COMP-3. DTSBR791 00098 05 WS-LINE-OFFSET-LIMIT PIC S9(03) COMP-3. DTSBR791 00099 DTSBR791 00100 05 WS-ACCESS-TABLE-CNT PIC S9(04) COMP. DTSBR791 00101 05 WS-ACCESS-TABLE. DTSBR791 00102 10 FILLER OCCURS 123 TIMES. DTSBR791 00103 15 WS-SCR-ID-ACCESS PIC X(04). DTSBR791 00104 15 FILLER REDEFINES WS-SCR-ID-ACCESS. DTSBR791 00105 20 WS-SCR-ID PIC X(02). DTSBR791 00106 20 WS-SCR-ID-9 REDEFINES WS-SCR-ID DTSBR791 00107 PIC 9(02). DTSBR791 00108 20 WS-SLASH PIC X(01). DTSBR791 00109 20 WS-SCR-ACCESS-IND PIC X(01). DTSBR791 00110 EJECT DTSBR791 00111 01 L071-LINK-AREA. DTSBR791 00112 ++INCLUDE DTSIL071 DTSBR791 00113 EJECT DTSBR791 00114 DTSBR791 00115 01 PAGE-HEADING. DTSBR791 00116 05 HDR-LINE-1. DTSBR791 00117 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00118 10 FILLER PIC X(05) DTSBR791 00119 VALUE '791R1'. DTSBR791 00120 10 FILLER PIC X(35) VALUE SPACES. DTSBR791 00121 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR791 00122 * SOURCE LRCM-AGY-NAME-LINE1. DTSBR791 00123 10 FILLER PIC X(28) VALUE SPACES. DTSBR791 00124 10 FILLER PIC X(05) DTSBR791 00125 VALUE 'DATE:'. DTSBR791 00126 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00127 10 HDR-SYS-DATE PIC X(08). DTSBR791 00128 * SOURCE LRCM-SYS-DATE. DTSBR791 00129 DTSBR791 00130 05 HDR-LINE-2. DTSBR791 00131 10 FILLER PIC X(41) VALUE SPACES. DTSBR791 00132 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR791 00133 * SOURCE LRCM-AGY-NAME-LINE2. DTSBR791 00134 10 FILLER PIC X(28) VALUE SPACES. DTSBR791 00135 10 FILLER PIC X(05) DTSBR791 00136 VALUE 'TIME:'. DTSBR791 00137 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00138 10 HDR-SYS-TIME PIC X(08). DTSBR791 00139 * SOURCE LRCM-SYS-TIME. DTSBR791 00140 DTSBR791 00141 05 HDR-LINE-3. DTSBR791 00142 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00143 10 FILLER PIC X(35) DTSBR791 00144 VALUE 'ROUTE TO: CHIEF, TAX DIVISION '. DTSBR791 00145 10 FILLER PIC X(83) VALUE SPACES. DTSBR791 00146 10 FILLER PIC X(05) DTSBR791 00147 VALUE 'PAGE:'. DTSBR791 00148 10 FILLER PIC X(03) VALUE SPACES. DTSBR791 00149 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR791 00150 * SOURCE PAGE-COUNTER. DTSBR791 00151 DTSBR791 00152 05 HDR-LINE-4. DTSBR791 00153 10 FILLER PIC X(12) VALUE SPACES. DTSBR791 00154 10 FILLER PIC X(30) DTSBR791 00155 VALUE ' '. DTSBR791 00156 10 FILLER PIC X(14) VALUE SPACES. DTSBR791 00157 10 FILLER PIC X(22) DTSBR791 00158 VALUE 'CICS DUTAS TRANSACTION'. DTSBR791 00159 DTSBR791 00160 05 HDR-LINE-5. DTSBR791 00161 10 FILLER PIC X(56) VALUE SPACES. DTSBR791 00162 10 FILLER PIC X(20) DTSBR791 00163 VALUE ' OPERATOR ID LIST '. DTSBR791 00164 DTSBR791 00165 05 HDR-LINE-6. DTSBR791 00166 10 FILLER PIC X(03) VALUE SPACES. DTSBR791 00167 10 FILLER PIC X(07) DTSBR791 00168 VALUE 'BUREAU:'. DTSBR791 00169 10 FILLER PIC X(02) VALUE SPACES. DTSBR791 00170 10 HDR-BUREAU PIC X(30). DTSBR791 00171 * SOURCE WS-BUREAU. DTSBR791 00172 DTSBR791 00173 05 HDR-LINE-7 PIC X(133) VALUE SPACES. DTSBR791 00174 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR791 00175 05 HDR-LINE-9. DTSBR791 00176 10 FILLER PIC X(03) VALUE SPACES. DTSBR791 00177 10 FILLER PIC X(15) DTSBR791 00178 VALUE 'OPERATOR''S UNIT'. DTSBR791 00179 10 FILLER PIC X(16) VALUE SPACES. DTSBR791 00180 10 FILLER PIC X(04) DTSBR791 00181 VALUE 'OPID'. DTSBR791 00182 10 FILLER PIC X(07) VALUE SPACES. DTSBR791 00183 10 FILLER PIC X(15) DTSBR791 00184 VALUE 'OPERATOR''S NAME'. DTSBR791 00185 10 FILLER PIC X(25) VALUE SPACES. DTSBR791 00186 10 FILLER PIC X(25) DTSBR791 00187 VALUE 'OPERATOR''S AUTHORIZATIONS'. DTSBR791 00188 DTSBR791 00189 05 HDR-LINE-10 PIC X(133) VALUE SPACES. DTSBR791 00190 DTSBR791 00191 01 DETAIL-LINE. DTSBR791 00192 05 DTL-LINE-1. DTSBR791 00193 * 05 LINE PLUS 1. DTSBR791 00194 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00195 10 DTL-UNIT-NAME PIC X(30). DTSBR791 00196 * SOURCE FOPR-UNIT-NAME PRESENT AFTER DTSBR791 00197 * FOPR-UNIT-NAME OR PAGE. DTSBR791 00198 10 FILLER PIC X(02) VALUE SPACES. DTSBR791 00199 10 DTL-OP-ID PIC X(08). DTSBR791 00200 * SOURCE FOPR-OP-ID GROUP INDICATE. DTSBR791 00201 10 FILLER PIC X(02) VALUE SPACES. DTSBR791 00202 10 DTL-NAM PIC X(32). DTSBR791 00203 * SOURCE L071-NAM GROUP INDICATE. DTSBR791 00204 10 FILLER PIC X(02) VALUE SPACES. DTSBR791 00205 10 DTL-SCR-ID-AC-1 PIC X(04). DTSBR791 00206 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 1). DTSBR791 00207 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00208 10 DTL-SCR-ID-AC-2 PIC X(04). DTSBR791 00209 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 2). DTSBR791 00210 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00211 10 DTL-SCR-ID-AC-3 PIC X(04). DTSBR791 00212 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 3). DTSBR791 00213 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00214 10 DTL-SCR-ID-AC-4 PIC X(04). DTSBR791 00215 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 4). DTSBR791 00216 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00217 10 DTL-SCR-ID-AC-5 PIC X(04). DTSBR791 00218 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 5). DTSBR791 00219 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00220 10 DTL-SCR-ID-AC-6 PIC X(04). DTSBR791 00221 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 6). DTSBR791 00222 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00223 10 DTL-SCR-ID-AC-7 PIC X(04). DTSBR791 00224 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 7). DTSBR791 00225 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00226 10 DTL-SCR-ID-AC-8 PIC X(04). DTSBR791 00227 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 8). DTSBR791 00228 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00229 10 DTL-SCR-ID-AC-9 PIC X(04). DTSBR791 00230 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 9). DTSBR791 00231 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00232 10 DTL-SCR-ID-AC-10 PIC X(04). DTSBR791 00233 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 10). DTSBR791 00234 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00235 10 DTL-SCR-ID-AC-11 PIC X(04). DTSBR791 00236 * SOURCE WS-SCR-ID-ACCESS (WS-OFFSET + 11). DTSBR791 00237 DTSBR791 00238 01 CONTROL-FOOTING. DTSBR791 00239 05 CFB-LINE-3. DTSBR791 00240 10 FILLER PIC X(37) VALUE SPACES. DTSBR791 00241 10 CFB-RPT-OP-ID-CNT1 PIC Z,ZZ9. DTSBR791 00242 * SOURCE COUNT RPT-OP-ID. DTSBR791 00243 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00244 10 FILLER PIC X(19) DTSBR791 00245 VALUE 'OPERATORS IN BUREAU'. DTSBR791 00246 DTSBR791 00247 01 CONTROL-FOOTING-FINAL. DTSBR791 00248 05 CFF-LINE-2. DTSBR791 00249 10 FILLER PIC X(37) VALUE SPACES. DTSBR791 00250 10 CFF-RPT-OP-ID-CNT2 PIC Z,ZZ9. DTSBR791 00251 * SOURCE COUNT RPT-OP-ID. DTSBR791 00252 10 FILLER PIC X(01) VALUE SPACE. DTSBR791 00253 10 FILLER PIC X(31) DTSBR791 00254 VALUE 'OPERATORS LISTED FOR THE REPORT'. DTSBR791 00255 EJECT DTSBR791 00256 LINKAGE SECTION. DTSBR791 00257 DTSBR791 00258 01 LRCM-LINK-AREA. DTSBR791 00259 ++INCLUDE DTSILRCM DTSBR791 00260 EJECT DTSBR791 00261 01 R791-REC. DTSBR791 00262 ++INCLUDE DTSIR791 DTSBR791 00263 DTSBR791 00264 ++INCLUDE DTSIFOPR DTSBR791 00265 EJECT DTSBR791 00266 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR791 00267 R791-REC. DTSBR791 00268 DTSBR791 00269 IF FIRST-TIME-IND = 'Y' DTSBR791 00270 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR791 00271 MOVE 'N' TO FIRST-TIME-IND. DTSBR791 00272 DTSBR791 00273 IF LRCM-EOR-88 DTSBR791 00274 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR791 00275 ELSE DTSBR791 00276 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR791 00277 DTSBR791 00278 GOBACK. DTSBR791 00279 EJECT DTSBR791 00280 I1000-INITIATE. DTSBR791 00281 DTSBR791 00282 OPEN OUTPUT PRT-FILE. DTSBR791 00283 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR791 00284 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR791 00285 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR791 00286 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR791 00287 MOVE SPACES TO PRT-RECORD. DTSBR791 00288 DTSBR791 00289 I1000-EXIT. DTSBR791 00290 EXIT. DTSBR791 00291 DTSBR791 00292 P1000-PROCESS. DTSBR791 00293 DTSBR791 00294 IF FOPR-BUREAU-NAME NOT = WS-BUREAU DTSBR791 00295 MOVE FOPR-BUREAU-NAME TO WS-BUREAU DTSBR791 00296 * DTSBR791 00297 IF WS-NUMBER-ONE = +0 DTSBR791 00298 MOVE +99 TO WS-NUMBER-ONE DTSBR791 00299 ELSE DTSBR791 00300 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR791 00301 MOVE +60 TO WS-LINE-CNT2 DTSBR791 00302 END-IF. DTSBR791 00303 * DTSBR791 00304 DTSBR791 00305 MOVE FOPR-NAME TO L071-NAM. DTSBR791 00306 MOVE 2 TO L071-NAME-FORMAT. DTSBR791 00307 PERFORM S071-DESLASH-NAME THRU S071-EXIT. DTSBR791 00308 DTSBR791 00309 MOVE SPACES TO WS-ACCESS-TABLE. DTSBR791 00310 DTSBR791 00311 MOVE +0 TO WS-ACCESS-TABLE-CNT. DTSBR791 00312 PERFORM DTSBR791 00313 VARYING FOPR-NUM-IDX FROM +1 BY +1 DTSBR791 00314 UNTIL FOPR-NUM-IDX > +99 DTSBR791 00315 IF FOPR-SCR-NUM-I-U-ACCESS-88 (FOPR-NUM-IDX) DTSBR791 00316 ADD +1 TO WS-ACCESS-TABLE-CNT DTSBR791 00317 SET WS-SCR-ID-9 (WS-ACCESS-TABLE-CNT) DTSBR791 00318 TO FOPR-NUM-IDX DTSBR791 00319 MOVE '/' TO WS-SLASH (WS-ACCESS-TABLE-CNT) DTSBR791 00320 MOVE FOPR-SCR-NUM-ACCESS-IND (FOPR-NUM-IDX) DTSBR791 00321 TO WS-SCR-ACCESS-IND (WS-ACCESS-TABLE-CNT) DTSBR791 00322 END-IF DTSBR791 00323 END-PERFORM. DTSBR791 00324 DTSBR791 00325 PERFORM DTSBR791 00326 VARYING FOPR-NONUM-IDX FROM +1 BY +1 DTSBR791 00327 UNTIL FOPR-NONUM-IDX > FOPR-SCR-NONUM-CNT DTSBR791 00328 IF FOPR-SCR-NONUM-I-U-ACCESS-88 (FOPR-NONUM-IDX) DTSBR791 00329 ADD +1 TO WS-ACCESS-TABLE-CNT DTSBR791 00330 MOVE FOPR-SCR-NONUM-ID (FOPR-NONUM-IDX) DTSBR791 00331 TO WS-SCR-ID (WS-ACCESS-TABLE-CNT) DTSBR791 00332 MOVE '/' TO WS-SLASH (WS-ACCESS-TABLE-CNT) DTSBR791 00333 MOVE FOPR-SCR-NONUM-ACCESS-IND (FOPR-NONUM-IDX) DTSBR791 00334 TO WS-SCR-ACCESS-IND (WS-ACCESS-TABLE-CNT) DTSBR791 00335 END-IF DTSBR791 00336 END-PERFORM. DTSBR791 00337 DTSBR791 00338 COMPUTE WS-LINE-OFFSET-LIMIT = DTSBR791 00339 ((WS-ACCESS-TABLE-CNT - 1) / 11). DTSBR791 00340 DTSBR791 00341 PERFORM DTSBR791 00342 VARYING WS-LINE-OFFSET FROM +0 BY +1 DTSBR791 00343 UNTIL WS-LINE-OFFSET > WS-LINE-OFFSET-LIMIT DTSBR791 00344 COMPUTE WS-OFFSET = WS-LINE-OFFSET * 11 DTSBR791 00345 DTSBR791 00346 MOVE FOPR-BUREAU-NAME TO HDR-BUREAU DTSBR791 00347 DTSBR791 00348 IF FOPR-UNIT-NAME = WS-UNIT-NAME DTSBR791 00349 MOVE SPACES TO DTL-UNIT-NAME DTSBR791 00350 ELSE DTSBR791 00351 MOVE FOPR-UNIT-NAME TO DTL-UNIT-NAME WS-UNIT-NAME DTSBR791 00352 END-IF DTSBR791 00353 IF FOPR-OP-ID = WS-OP-ID DTSBR791 00354 MOVE SPACES TO DTL-OP-ID DTSBR791 00355 ELSE DTSBR791 00356 MOVE FOPR-OP-ID TO DTL-OP-ID WS-OP-ID DTSBR791 00357 END-IF DTSBR791 00358 IF L071-NAM = WS-NAM DTSBR791 00359 MOVE SPACES TO DTL-NAM DTSBR791 00360 ELSE DTSBR791 00361 MOVE L071-NAM TO DTL-NAM WS-NAM DTSBR791 00362 END-IF DTSBR791 00363 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 1) TO DTL-SCR-ID-AC-1 DTSBR791 00364 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 2) TO DTL-SCR-ID-AC-2 DTSBR791 00365 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 3) TO DTL-SCR-ID-AC-3 DTSBR791 00366 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 4) TO DTL-SCR-ID-AC-4 DTSBR791 00367 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 5) TO DTL-SCR-ID-AC-5 DTSBR791 00368 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 6) TO DTL-SCR-ID-AC-6 DTSBR791 00369 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 7) TO DTL-SCR-ID-AC-7 DTSBR791 00370 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 8) TO DTL-SCR-ID-AC-8 DTSBR791 00371 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 9) TO DTL-SCR-ID-AC-9 DTSBR791 00372 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 10) TO DTSBR791 00373 DTL-SCR-ID-AC-10 DTSBR791 00374 MOVE WS-SCR-ID-ACCESS (WS-OFFSET + 11) TO DTSBR791 00375 DTL-SCR-ID-AC-11 DTSBR791 00376 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR791 00377 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1 DTSBR791 00378 ADD +1 TO WS-LINE-CNT2 DTSBR791 00379 DTSBR791 00380 * GENERATE DETAIL-LINE DTSBR791 00381 END-PERFORM. DTSBR791 00382 DTSBR791 00383 WRITE PRT-RECORD FROM BLANK-LINE AFTER 1. DTSBR791 00384 ADD +1 TO WS-LINE-CNT2. DTSBR791 00385 ADD +1 TO WS-RPT-OP-ID-CNT1. DTSBR791 00386 ADD +1 TO WS-RPT-OP-ID-CNT2. DTSBR791 00387 DTSBR791 00388 P1000-EXIT. DTSBR791 00389 EXIT. DTSBR791 00390 DTSBR791 00391 P2000-PRINT-HEADER. DTSBR791 00392 IF WS-LINE-CNT GREATER 58 OR DTSBR791 00393 WS-LINE-CNT2 GREATER 58 DTSBR791 00394 MOVE +0 TO WS-LINE-CNT DTSBR791 00395 MOVE +0 TO WS-LINE-CNT2 DTSBR791 00396 ADD +1 TO WS-PAGE-CNT DTSBR791 00397 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR791 00398 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR791 00399 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR791 00400 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR791 00401 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR791 00402 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR791 00403 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR791 00404 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR791 00405 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR791 00406 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR791 00407 WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1 DTSBR791 00408 ADD +10 TO WS-LINE-CNT2. DTSBR791 00409 P2000-EXIT. DTSBR791 00410 EXIT. DTSBR791 00411 DTSBR791 00412 P4000-PRINT-FOOTER. DTSBR791 00413 IF WS-LINE-CNT2 > 52 DTSBR791 00414 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR791 00415 END-IF. DTSBR791 00416 DTSBR791 00417 MOVE FOPR-UNIT-NAME TO DTL-UNIT-NAME. DTSBR791 00418 MOVE FOPR-OP-ID TO DTL-OP-ID. DTSBR791 00419 MOVE L071-NAM TO DTL-NAM. DTSBR791 00420 MOVE WS-RPT-OP-ID-CNT1 TO CFB-RPT-OP-ID-CNT1. DTSBR791 00421 WRITE PRT-RECORD FROM CFB-LINE-3 AFTER 3. DTSBR791 00422 MOVE +0 TO WS-RPT-OP-ID-CNT1. DTSBR791 00423 DTSBR791 00424 P4000-EXIT. DTSBR791 00425 EXIT. DTSBR791 00426 DTSBR791 00427 T1000-TERMINATE. DTSBR791 00428 DTSBR791 00429 IF WS-LINE-CNT2 > 52 DTSBR791 00430 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR791 00431 END-IF. DTSBR791 00432 DTSBR791 00433 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT. DTSBR791 00434 MOVE WS-RPT-OP-ID-CNT2 TO CFF-RPT-OP-ID-CNT2. DTSBR791 00435 WRITE PRT-RECORD FROM CFF-LINE-2 AFTER 2. DTSBR791 00436 MOVE +0 TO WS-RPT-OP-ID-CNT2. DTSBR791 00437 DTSBR791 00438 CLOSE PRT-FILE. DTSBR791 00439 DTSBR791 00440 T1000-EXIT. DTSBR791 00441 EXIT. DTSBR791 00442 EJECT DTSBR791 00443 S071-DESLASH-NAME. DTSBR791 00444 DTSBR791 00445 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR791 00446 DTSBR791 00447 S071-EXIT. DTSBR791 00448 EXIT. DTSBR791 00449 DTSBR791 00450 *S999-ABEND. DTSBR791 00451 * DTSBR791 00452 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR791 00453 * DTSBR791 00454 *S999-EXIT. DTSBR791 00455 * EXIT. DTSBR791 00456 DTSBR791