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
