00001  IDENTIFICATION DIVISION.                                         12/13/02
00002  PROGRAM-ID.             DTSBR980.                                DTSBR980
00003  AUTHOR.                 DC DEPT OF UI PROGRAMMING SECTION           LV071
00004  DATE-WRITTEN.           MARCH 2000.                              DTSBR980
00005  DATE-COMPILED.                                                   DTSBR980
00006                                                                   DTSBR980
00007 *****                                                             DTSBR980
00008 *    CALLING SEQUENCE:  DTSBD800 GENERATES REPORT COUNTS          DTSBR980
00009 *                 CALLS DTSBR980 FOR A FORMATTED REPORT.          DTSBR980
00010 *                                                                 DTSBR980
00011 *    FUNCTION:  GENERATE SUMMARY CONTROL REPORT FOR PRINTING.     DTSBR980
00012 *                                                                 DTSBR980
00013 *    MODIFICATION HISTORY:                                        DTSBR980
00014 *                                                                 DTSBR980
00015 * 01-28-02 ADDED VIEWDIRECT DESIGNATION                           DTSBR980
00016 *                                                   CHANGE - JHP  DTSBR980
00017 *                                                                 DTSBR980
00018 * 08-14-00 X'FER FROM REPORT WRITER TO COBOL II                   DTSBR980
00019 *                                                   CHANGE - JHP  DTSBR980
00020 *                                                                 DTSBR980
00021 * 03-07-00 INITIAL DEVELOPMENT FOR DOES                           DTSBR980
00022 *          NEEDED FOR OPS BY CLIENT STAFF           CHANGE - JHP  DTSBR980
00023 *                                                                 DTSBR980
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR980
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR980
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR980
00027 *                                                                 DTSBR980
00028 *    DESCRIPTION:                                                 DTSBR980
00029 *                                                                 DTSBR980
00030 *        THIS MODULE PRINTS A FORMATTED REPORT SHOWING THE        DTSBR980
00031 *        NUMBER OF ITEMS FOR EACH REPORT PRODUCED BY DTSBD800.    DTSBR980
00032 *                                                                 DTSBR980
00033 *    RECORDS READ:                                                DTSBR980
00034 *                                                                 DTSBR980
00035 *        NONE.                                                    DTSBR980
00036 *        ALL INPUT IS PASSED WITH DTSIL980                        DTSBR980
00037 *                  AND DEFINED IN DTSIR980                        DTSBR980
00038 *                                                                 DTSBR980
00039 *    PRINTED OUTPUTS:                                             DTSBR980
00040 *                                                                 DTSBR980
00041 *        980R1  PRINT SUMMARY REPORT.                             DTSBR980
00042 *                                                                 DTSBR980
00043 *    RECORDS WRITTEN:                                             DTSBR980
00044 *                                                                 DTSBR980
00045 *        NONE.                                                    DTSBR980
00046 *                                                                 DTSBR980
00047 *    MODULES CALLED:                                              DTSBR980
00048 *                                                                 DTSBR980
00049 *        NONE                                                     DTSBR980
00050 *                                                                 DTSBR980
00051 *****                                                             DTSBR980
00052      EJECT                                                        DTSBR980
00053  ENVIRONMENT DIVISION.                                            DTSBR980
00054                                                                   DTSBR980
00055  INPUT-OUTPUT SECTION.                                            DTSBR980
00056                                                                   DTSBR980
00057  FILE-CONTROL.                                                    DTSBR980
00058      SELECT PRT-FILE ASSIGN TO RPT980R1.                          DTSBR980
00059                                                                   DTSBR980
00060  DATA DIVISION.                                                   DTSBR980
00061                                                                   DTSBR980
00062  FILE SECTION.                                                    DTSBR980
00063                                                                   DTSBR980
00064  FD  PRT-FILE                                                     DTSBR980
00065      LABEL RECORDS ARE OMITTED                                    DTSBR980
00066      RECORDING MODE IS F.                                         DTSBR980
00067  01  PRINT-RECORD                   PIC X(133).                   DTSBR980
00068      EJECT                                                        DTSBR980
00069  WORKING-STORAGE SECTION.                                         DTSBR980
000695 77  PAN-VALET PICTURE X(24) VALUE '071DTSBR980  12/13/02'.       DTSBR980
00070                                                                   DTSBR980
00071  01  WRK-AREA.                                                    DTSBR980
00072      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +980.DTSBR980
00073      05  WRK-FIRST-TIME-IND          PIC  X(01)  VALUE 'Y'.       DTSBR980
00074      05  WRK-ROUTE-LOCATION-1        PIC  X(25)                   DTSBR980
00075          VALUE 'UI TAX - DP OPS SUPPORT  '.                       DTSBR980
00076      05  WRK-ROUTE-LOCATION-2        PIC  X(25)                   DTSBR980
00077          VALUE SPACES.                                            DTSBR980
00078      05  WRK-NDX-1                   PIC S9(04)  COMP.            DTSBR980
00079      05  WRK-PAGE-CNT                PIC S9(04)  COMP VALUE 1.    DTSBR980
00080      05  WRK-HDR-CNT                 PIC S9(04)  COMP VALUE 7.    DTSBR980
00081      05  WRK-LINE-CNT                PIC S9(04)  COMP VALUE 0.    DTSBR980
00082                                                                   DTSBR980
00083  01  WRK-TBL-AREA.                                                DTSBR980
00084       05  WRK-TBL-CLASS-1.                                        DTSBR980
00085           10  WRK-TBL-CLS-0 PIC X(15) VALUE 'AC.EI. OP.QW.ZX'.    DTSBR980
00086           10  WRK-TBL-CLS-A PIC X(15) VALUE 'A .  .   .  .  '.    DTSBR980
00087           10  WRK-TBL-CLS-C PIC X(15) VALUE ' C.  .   .  .  '.    DTSBR980
00088           10  WRK-TBL-CLS-E PIC X(15) VALUE '  .E .   .  .  '.    DTSBR980
00089           10  WRK-TBL-CLS-I PIC X(15) VALUE '  . I.   .  .  '.    DTSBR980
00090 ***       10  WRK-TBL-CLS-J PIC X(15) VALUE '  .  .J  .  .  '.    DTSBR980
00091           10  WRK-TBL-CLS-O PIC X(15) VALUE '  .  . O .  .  '.    DTSBR980
00092           10  WRK-TBL-CLS-P PIC X(15) VALUE '  .  .  P.  .  '.    DTSBR980
00093           10  WRK-TBL-CLS-Q PIC X(15) VALUE '  .  .   .Q .  '.    DTSBR980
00094           10  WRK-TBL-CLS-W PIC X(15) VALUE '  .  .   . W.  '.    DTSBR980
00095           10  WRK-TBL-CLS-Z PIC X(15) VALUE '  .  .   .  .Z '.    DTSBR980
00096           10  WRK-TBL-CLS-X PIC X(15) VALUE '  .  .   .  . X'.    DTSBR980
00097           10  WRK-TBL-CLS-SP1                                     DTSBR980
00098                             PIC X(15) VALUE '  .  .   . W.Z '.    DTSBR980
00099           10  WRK-TBL-CLS-SP2                                     DTSBR980
00100                             PIC X(15) VALUE '  .E .   .  .Z '.    DTSBR980
00101           10  WRK-TBL-CLS-SP3                                     DTSBR980
00102                             PIC X(15) VALUE '  . I.   . W.  '.    DTSBR980
00103           10  WRK-TBL-CLS-SP4                                     DTSBR980
00104                             PIC X(15) VALUE '  .  . O .  . X'.    DTSBR980
00105  01  WRK-PRT-AREA.                                                DTSBR980
00106       05  WRK-PRT-HDR-01.                                         DTSBR980
00107           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00108           10  FILLER        PIC X(05) VALUE '980R1'.              DTSBR980
00109           10  FILLER        PIC X(35) VALUE SPACE.                DTSBR980
00110           10  WRK-PRT-AGNCY-NAMELINE-1                            DTSBR980
00111                             PIC X(50) VALUE SPACE.                DTSBR980
00112           10  FILLER        PIC X(28) VALUE SPACE.                DTSBR980
00113           10  FILLER        PIC X(06) VALUE 'DATE: '.             DTSBR980
00114           10  WRK-PRT-SYS-DATE                                    DTSBR980
00115                             PIC X(08) VALUE SPACE.                DTSBR980
00116       05  WRK-PRT-HDR-02.                                         DTSBR980
00117           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00118           10  FILLER        PIC X(40) VALUE SPACE.                DTSBR980
00119           10  WRK-PRT-AGNCY-NAMELINE-2                            DTSBR980
00120                             PIC X(50) VALUE SPACE.                DTSBR980
00121           10  FILLER        PIC X(28) VALUE SPACE.                DTSBR980
00122           10  FILLER        PIC X(06) VALUE 'TIME: '.             DTSBR980
00123           10  WRK-PRT-SYS-TIME                                    DTSBR980
00124                             PIC X(08) VALUE SPACE.                DTSBR980
00125       05  WRK-PRT-HDR-03.                                         DTSBR980
00126           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00127           10  FILLER        PIC X(10) VALUE 'ROUTE TO: '.         DTSBR980
00128           10  WRK-PRT-RTE-LOCATION-1                              DTSBR980
00129                             PIC X(25) VALUE SPACE.                DTSBR980
00130           10  FILLER        PIC X(83) VALUE SPACE.                DTSBR980
00131           10  FILLER        PIC X(06) VALUE 'PAGE: '.             DTSBR980
00132           10  WRK-PRT-PAGE  PIC BBZZ,ZZ9.                         DTSBR980
00133       05  WRK-PRT-HDR-04.                                         DTSBR980
00134           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00135           10  FILLER        PIC X(10) VALUE SPACE.                DTSBR980
00136           10  WRK-PRT-RTE-LOCATION-2                              DTSBR980
00137                             PIC X(25) VALUE SPACE.                DTSBR980
00138           10  FILLER        PIC X(16) VALUE SPACE.                DTSBR980
00139           10  FILLER        PIC X(27)                             DTSBR980
00140                 VALUE '   CONTROL REPORT SUMMARY  '.              DTSBR980
00141           10  FILLER        PIC X(54) VALUE SPACE.                DTSBR980
00142       05  WRK-PRT-HDR-05.                                         DTSBR980
00143           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00144           10  FILLER        PIC X(40)                             DTSBR980
00145                 VALUE '         PRINT-CLASS     QUANTITY       '. DTSBR980
00146           10  FILLER        PIC X(58) VALUE SPACE.                DTSBR980
00147           10  FILLER        PIC X(12)                             DTSBR980
00148                 VALUE ' VIEWDIRECT '.                             DTSBR980
00149           10  FILLER        PIC X(22) VALUE SPACE.                DTSBR980
00150       05  WRK-PRT-HDR-06.                                         DTSBR980
00151           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00152           10  FILLER        PIC X(07) VALUE SPACE.                DTSBR980
00153           10  WRK-PRT-TBL-CLS-O                                   DTSBR980
00154                             PIC X(15) VALUE SPACE.                DTSBR980
00155           10  FILLER        PIC X(78) VALUE SPACE.                DTSBR980
00156           10  FILLER        PIC X(12)                             DTSBR980
00157                 VALUE ' DESIGNATOR '.                             DTSBR980
00158           10  FILLER        PIC X(20) VALUE SPACE.                DTSBR980
00159                                                                   DTSBR980
00160       05  WRK-PRT-DETAIL-01.                                      DTSBR980
00161           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00162           10  FILLER        PIC X(03) VALUE 'RPT'.                DTSBR980
00163           10  WRK-PRT-NDX   PIC 9(03).                            DTSBR980
00164           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00165           10  WRK-PRT-CLASS                                       DTSBR980
00166                             PIC X(15) VALUE SPACE.                DTSBR980
00167           10  FILLER        PIC X(02) VALUE SPACE.                DTSBR980
00168           10  WRK-PRT-L980-REC-CNT                                DTSBR980
00169                             PIC Z,ZZZ,ZZZ.                        DTSBR980
00170           10  FILLER        PIC X(01) VALUE SPACE.                DTSBR980
00171           10  WRK-PRT-TBL-DESC                                    DTSBR980
00172                             PIC X(60) VALUE SPACE.                DTSBR980
00173           10  FILLER        PIC X(03) VALUE SPACE.                DTSBR980
00174           10  WRK-PRT-TBL-VDNAME                                  DTSBR980
00175                             PIC X(20) VALUE SPACE.                DTSBR980
00176       05  WRK-PRT-BLANK-LINE.                                     DTSBR980
00177           10  FILLER        PIC X(70) VALUE SPACE.                DTSBR980
00178           10  FILLER        PIC X(63) VALUE SPACE.                DTSBR980
00179                                                                   DTSBR980
00180  ++INCLUDE DTSIR980                                               DTSBR980
00181      EJECT                                                        DTSBR980
00182                                                                   DTSBR980
00183  LINKAGE SECTION.                                                 DTSBR980
00184                                                                   DTSBR980
00185  01  LRCM-LINK-AREA.                                              DTSBR980
00186  ++INCLUDE DTSILRCM                                               DTSBR980
00187                                                                   DTSBR980
00188  01  L980-LINK-AREA.                                              DTSBR980
00189  ++INCLUDE DTSIL980                                               DTSBR980
00190      EJECT                                                        DTSBR980
00191  PROCEDURE DIVISION USING LRCM-LINK-AREA,                         DTSBR980
00192                           L980-LINK-AREA.                         DTSBR980
00193                                                                   DTSBR980
00194      IF WRK-FIRST-TIME-IND = 'Y'                                  DTSBR980
00195          PERFORM I1000-INITIATE                                   DTSBR980
00196             THRU I1000-EXIT                                       DTSBR980
00197          MOVE 'N' TO WRK-FIRST-TIME-IND.                          DTSBR980
00198                                                                   DTSBR980
00199      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSBR980
00200                                                                   DTSBR980
00201      PERFORM T1000-TERMINATE THRU T1000-EXIT.                     DTSBR980
00202                                                                   DTSBR980
00203      GOBACK.                                                      DTSBR980
00204      EJECT                                                        DTSBR980
00205  I1000-INITIATE.                                                  DTSBR980
00206                                                                   DTSBR980
00207      OPEN OUTPUT PRT-FILE.                                        DTSBR980
00208                                                                   DTSBR980
00209      PERFORM I1010-HEADERS THRU I1010-EXIT.                       DTSBR980
00210                                                                   DTSBR980
00211  I1000-EXIT.                                                      DTSBR980
00212      EXIT.                                                        DTSBR980
00213                                                                   DTSBR980
00214  I1010-HEADERS.                                                   DTSBR980
00215                                                                   DTSBR980
00216      MOVE LRCM-AGY-NAME-LINE1 TO WRK-PRT-AGNCY-NAMELINE-1.        DTSBR980
00217      MOVE LRCM-SYS-DATE       TO WRK-PRT-SYS-DATE.                DTSBR980
00218      MOVE SPACE               TO PRINT-RECORD.                    DTSBR980
00219      WRITE PRINT-RECORD FROM WRK-PRT-HDR-01                       DTSBR980
00220          AFTER ADVANCING PAGE.                                    DTSBR980
00221                                                                   DTSBR980
00222      MOVE LRCM-AGY-NAME-LINE2 TO WRK-PRT-AGNCY-NAMELINE-2.        DTSBR980
00223      MOVE LRCM-SYS-TIME       TO WRK-PRT-SYS-TIME.                DTSBR980
00224      MOVE SPACE               TO PRINT-RECORD.                    DTSBR980
00225      WRITE PRINT-RECORD FROM WRK-PRT-HDR-02                       DTSBR980
00226          AFTER ADVANCING 1 LINE.                                  DTSBR980
00227                                                                   DTSBR980
00228      MOVE WRK-ROUTE-LOCATION-1 TO WRK-PRT-RTE-LOCATION-1.         DTSBR980
00229      MOVE WRK-PAGE-CNT         TO WRK-PRT-PAGE.                   DTSBR980
00230      MOVE SPACE                TO PRINT-RECORD.                   DTSBR980
00231      WRITE PRINT-RECORD FROM WRK-PRT-HDR-03                       DTSBR980
00232          AFTER ADVANCING 1 LINE.                                  DTSBR980
00233                                                                   DTSBR980
00234      MOVE WRK-ROUTE-LOCATION-2 TO WRK-PRT-RTE-LOCATION-2.         DTSBR980
00235      MOVE SPACE                TO PRINT-RECORD.                   DTSBR980
00236      WRITE PRINT-RECORD FROM WRK-PRT-HDR-04                       DTSBR980
00237          AFTER ADVANCING 1 LINE.                                  DTSBR980
00238      WRITE PRINT-RECORD FROM WRK-PRT-HDR-05                       DTSBR980
00239          AFTER ADVANCING 1 LINE.                                  DTSBR980
00240                                                                   DTSBR980
00241      MOVE WRK-TBL-CLS-0       TO WRK-PRT-TBL-CLS-O.               DTSBR980
00242      MOVE SPACE               TO PRINT-RECORD.                    DTSBR980
00243      WRITE PRINT-RECORD FROM WRK-PRT-HDR-06                       DTSBR980
00244          AFTER ADVANCING 1 LINE.                                  DTSBR980
00245      WRITE PRINT-RECORD FROM WRK-PRT-BLANK-LINE                   DTSBR980
00246          AFTER ADVANCING 1 LINE.                                  DTSBR980
00247                                                                   DTSBR980
00248      MOVE WRK-HDR-CNT         TO WRK-LINE-CNT.                    DTSBR980
00249  I1010-EXIT.                                                      DTSBR980
00250      EXIT.                                                        DTSBR980
00251      EJECT                                                        DTSBR980
00252  P1000-PROCESS.                                                   DTSBR980
00253 **                                           CREATE THIS REPORT   DTSBR980
00254      MOVE  1  TO  L980-REC-CNT (980).                             DTSBR980
00255 **                                                                DTSBR980
00256 **      THE FOLLOWING RECORD COUNTS HAVE NO MEANING               DTSBR980
00257 **            FOR THE USERS & (ERGO) FOR THE 980 REPORT.          DTSBR980
00258 **                                                                DTSBR980
00259      IF L980-REC-CNT (302) > ZERO                                 DTSBR980
00260          MOVE  1  TO  L980-REC-CNT (302).                         DTSBR980
00261      IF L980-REC-CNT (305) > ZERO                                 DTSBR980
00262          MOVE  1  TO  L980-REC-CNT (305).                         DTSBR980
00263      IF L980-REC-CNT (306) > ZERO                                 DTSBR980
00264          MOVE  1  TO  L980-REC-CNT (306).                         DTSBR980
00265      IF L980-REC-CNT (416) > ZERO                                 DTSBR980
00266          MOVE  1  TO  L980-REC-CNT (416).                         DTSBR980
00267      IF L980-REC-CNT (426) > ZERO                                 DTSBR980
00268          MOVE  1  TO  L980-REC-CNT (426).                         DTSBR980
00269      IF L980-REC-CNT (440) > ZERO                                 DTSBR980
00270          MOVE  1  TO  L980-REC-CNT (440).                         DTSBR980
00271      IF L980-REC-CNT (602) > ZERO                                 DTSBR980
00272          MOVE  1  TO  L980-REC-CNT (602).                         DTSBR980
00273 **                                          THE 3 WEEKLY RPTS     DTSBR980
00274      IF L980-REC-CNT (122) > ZERO                                 DTSBR980
00275          MOVE  3  TO  L980-REC-CNT (122).                         DTSBR980
00276 **                                       THE 991 REPORTS (LMI/TPS)DTSBR980
00277      EVALUATE TRUE                                                DTSBR980
00278          WHEN L980-REC-CNT (713) > ZERO                           DTSBR980
00279            ADD L980-REC-CNT (713) TO  L980-REC-CNT (991)          DTSBR980
00280          WHEN L980-REC-CNT (715) > ZERO                           DTSBR980
00281            ADD L980-REC-CNT (715) TO  L980-REC-CNT (991)          DTSBR980
00282          WHEN L980-REC-CNT (716) > ZERO                           DTSBR980
00283            ADD L980-REC-CNT (716) TO  L980-REC-CNT (991)          DTSBR980
00284          WHEN L980-REC-CNT (717) > ZERO                           DTSBR980
00285            ADD L980-REC-CNT (717) TO  L980-REC-CNT (991)          DTSBR980
00286          WHEN L980-REC-CNT (718) > ZERO                           DTSBR980
00287            ADD L980-REC-CNT (718) TO  L980-REC-CNT (991)          DTSBR980
00288          WHEN L980-REC-CNT (719) > ZERO                           DTSBR980
00289            ADD L980-REC-CNT (719) TO  L980-REC-CNT (991)          DTSBR980
00290          WHEN L980-REC-CNT (720) > ZERO                           DTSBR980
00291            ADD L980-REC-CNT (720) TO  L980-REC-CNT (991)          DTSBR980
00292          WHEN L980-REC-CNT (721) > ZERO                           DTSBR980
00293            ADD L980-REC-CNT (721) TO  L980-REC-CNT (991)          DTSBR980
00294          WHEN L980-REC-CNT (722) > ZERO                           DTSBR980
00295            ADD L980-REC-CNT (722) TO  L980-REC-CNT (991)          DTSBR980
00296          WHEN L980-REC-CNT (723) > ZERO                           DTSBR980
00297            ADD L980-REC-CNT (723) TO  L980-REC-CNT (991)          DTSBR980
00298          WHEN L980-REC-CNT (727) > ZERO                           DTSBR980
00299            ADD L980-REC-CNT (727) TO  L980-REC-CNT (991)          DTSBR980
00300      END-EVALUATE.                                                DTSBR980
00301 **                                                DO THE REPORTS  DTSBR980
00302      PERFORM P1100-PRINT-TBL-RPT THRU P1100-EXIT                  DTSBR980
00303          VARYING WRK-NDX-1 FROM 1 BY 1                            DTSBR980
00304              UNTIL WRK-NDX-1 > 999.                               DTSBR980
00305                                                                   DTSBR980
00306  P1000-EXIT.                                                      DTSBR980
00307      EXIT.                                                        DTSBR980
00308                                                                   DTSBR980
00309  P1100-PRINT-TBL-RPT.                                             DTSBR980
00310                                                                   DTSBR980
00311      IF L980-REC-CNT (WRK-NDX-1) NOT = ZERO                       DTSBR980
00312          PERFORM P1110-DETAIL-LINE THRU P1110-EXIT.               DTSBR980
00313                                                                   DTSBR980
00314  P1100-EXIT.                                                      DTSBR980
00315      EXIT.                                                        DTSBR980
00316                                                                   DTSBR980
00317  P1110-DETAIL-LINE.                                               DTSBR980
00318                                                                   DTSBR980
00319      MOVE WRK-NDX-1 TO WRK-DTL-NDX, WRK-PRT-NDX.                  DTSBR980
00320                                                                   DTSBR980
00321      EVALUATE TRUE                                                DTSBR980
00322          WHEN WRK-PRT-CLS-A                                       DTSBR980
00323              MOVE WRK-TBL-CLS-A TO WRK-PRT-CLASS                  DTSBR980
00324          WHEN WRK-PRT-CLS-C                                       DTSBR980
00325              MOVE WRK-TBL-CLS-C TO WRK-PRT-CLASS                  DTSBR980
00326          WHEN WRK-PRT-CLS-E                                       DTSBR980
00327              MOVE WRK-TBL-CLS-E TO WRK-PRT-CLASS                  DTSBR980
00328          WHEN WRK-PRT-CLS-I                                       DTSBR980
00329              MOVE WRK-TBL-CLS-I TO WRK-PRT-CLASS                  DTSBR980
00330 ****     WHEN WRK-PRT-CLS-J                                       DTSBR980
00331 ****         MOVE WRK-TBL-CLS-J TO WRK-PRT-CLASS                  DTSBR980
00332          WHEN WRK-PRT-CLS-O                                       DTSBR980
00333              MOVE WRK-TBL-CLS-O TO WRK-PRT-CLASS                  DTSBR980
00334          WHEN WRK-PRT-CLS-P                                       DTSBR980
00335              MOVE WRK-TBL-CLS-P TO WRK-PRT-CLASS                  DTSBR980
00336          WHEN WRK-PRT-CLS-Q                                       DTSBR980
00337              MOVE WRK-TBL-CLS-Q TO WRK-PRT-CLASS                  DTSBR980
00338          WHEN WRK-PRT-CLS-W                                       DTSBR980
00339              MOVE WRK-TBL-CLS-W TO WRK-PRT-CLASS                  DTSBR980
00340          WHEN WRK-PRT-CLS-Z                                       DTSBR980
00341              MOVE WRK-TBL-CLS-Z TO WRK-PRT-CLASS                  DTSBR980
00342          WHEN WRK-PRT-CLS-X                                       DTSBR980
00343              MOVE WRK-TBL-CLS-X TO WRK-PRT-CLASS                  DTSBR980
00344          WHEN WRK-PRT-CLS-SP1                                     DTSBR980
00345              MOVE WRK-TBL-CLS-SP1 TO WRK-PRT-CLASS                DTSBR980
00346          WHEN WRK-PRT-CLS-SP2                                     DTSBR980
00347              MOVE WRK-TBL-CLS-SP2 TO WRK-PRT-CLASS                DTSBR980
00348          WHEN WRK-PRT-CLS-SP3                                     DTSBR980
00349              MOVE WRK-TBL-CLS-SP3 TO WRK-PRT-CLASS                DTSBR980
00350          WHEN WRK-PRT-CLS-SP4                                     DTSBR980
00351              MOVE WRK-TBL-CLS-SP4 TO WRK-PRT-CLASS                DTSBR980
00352          WHEN OTHER                                               DTSBR980
00353              MOVE WRK-TBL-CLS-0 TO WRK-PRT-CLASS                  DTSBR980
00354      END-EVALUATE.                                                DTSBR980
00355                                                                   DTSBR980
00356      MOVE L980-REC-CNT   (WRK-NDX-1)                              DTSBR980
00357                              TO WRK-PRT-L980-REC-CNT.             DTSBR980
00358      MOVE WRK-TBL-DESC   (WRK-NDX-1)                              DTSBR980
00359                              TO WRK-PRT-TBL-DESC.                 DTSBR980
00360      MOVE WRK-TBL-VDNAME (WRK-NDX-1)                              DTSBR980
00361                              TO WRK-PRT-TBL-VDNAME.               DTSBR980
00362      MOVE SPACE              TO PRINT-RECORD.                     DTSBR980
00363      WRITE PRINT-RECORD FROM WRK-PRT-DETAIL-01                    DTSBR980
00364          AFTER ADVANCING 1 LINE.                                  DTSBR980
00365                                                                   DTSBR980
00366      ADD       1             TO WRK-LINE-CNT.                     DTSBR980
00367      IF WRK-LINE-CNT > 53                                         DTSBR980
00368          ADD       1         TO WRK-PAGE-CNT                      DTSBR980
00369          PERFORM I1010-HEADERS THRU I1010-EXIT.                   DTSBR980
00370                                                                   DTSBR980
00371  P1110-EXIT.                                                      DTSBR980
00372      EXIT.                                                        DTSBR980
00373      EJECT                                                        DTSBR980
00374  T1000-TERMINATE.                                                 DTSBR980
00375                                                                   DTSBR980
00376      CLOSE PRT-FILE.                                              DTSBR980
00377                                                                   DTSBR980
00378  T1000-EXIT.                                                      DTSBR980
00379      EXIT.                                                        DTSBR980
00380                                                                   DTSBR980
00381 ** S999-ABEND.                                                    DTSBR980
00382                                                                   DTSBR980
00383 **     CALL 'DTSBU999' USING WRK-ABEND-CD.                        DTSBR980
00384                                                                   DTSBR980
00385 ** S999-EXIT.                                                     DTSBR980
00386 **     EXIT.                                                      DTSBR980
