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