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