00001  IDENTIFICATION DIVISION.                                         05/16/02
00002  PROGRAM-ID.             DTSBR908.                                DTSBR908
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV018
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR908
00005  DATE-COMPILED.                                                   DTSBR908
00006                                                                   DTSBR908
00007 *****                                                             DTSBR908
00008 *                                                                 DTSBR908
00009 *    CALLING SEQUENCE:  DTSBE351 WRITES DTSIR908 RECORDS          DTSBR908
00010 *                       DTSBD800 CALLS DTSBR908 WHICH             DTSBR908
00011 *                       PRODUCES THE UC30 TOTALS REPORT           DTSBR908
00012 *                                                                 DTSBR908
00013 *    FUNCTION:  UC30 COUNTS REPORT.                               DTSBR908
00014 *                                                                 DTSBR908
00015 *                                                                 DTSBR908
00016 *    MODIFICATION HISTORY:                                        DTSBR908
00017 *                                                                 DTSBR908
00018 * 11-25-94 INITIAL DEVELOPMENT                                    DTSBR908
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR908
00020 *                                                                 DTSBR908
00021 * 12-02-96 ADDED UI-5E COUNTS TO THE REPORT FOR ELECTRONIC        DTSBR908
00022 *          FILERS (ALSO KNOWN AS 'ELF').  ALSO COMMENTED OUT      DTSBR908
00023 *          THE RW CONTROL STATEMENT SINCE COMPILER DIDN'T LIKE IT.DTSBR908
00024 *          REFERENCE RFP #WARP II                PROGRAMMER: MJA  DTSBR908
00025 *                                                                 DTSBR908
00026 * 03-30-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.     DTSBR908
00027 *          REFERENCE RFP #****                   PROGRAMMER: DVS  DTSBR908
00028 *                                                                 DTSBR908
00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR908
00030 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR908
00031 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR908
00032 *                                                                 DTSBR908
00033 *                                                                 DTSBR908
00034 *    DESCRIPTION:                                                 DTSBR908
00035 *                                                                 DTSBR908
00036 *        THIS MODULE LISTS THE TOTAL NUMBER OF EMPLOYERS FOR      DTSBR908
00037 *        WHICH UC30 FORMS WERE GENERATED IN THE QUARTERLY MASS    DTSBR908
00038 *        MAILING AND THE TOTAL NUMBER OF FORMS GENERATED BROKEN   DTSBR908
00039 *        DOWN BY EMPLOYER CLASS.                                  DTSBR908
00040 *                                                                 DTSBR908
00041 *                                                                 DTSBR908
00042 *    RECORDS READ:                                                DTSBR908
00043 *                                                                 DTSBR908
00044 *        NONE.                                                    DTSBR908
00045 *                                                                 DTSBR908
00046 *                                                                 DTSBR908
00047 *    PRINTED OUTPUTS:                                             DTSBR908
00048 *                                                                 DTSBR908
00049 *        908R1  UC30 TOTALS REPORT                                DTSBR908
00050 *                                                                 DTSBR908
00051 *                                                                 DTSBR908
00052 *    RECORDS WRITTEN:                                             DTSBR908
00053 *                                                                 DTSBR908
00054 *        NONE.                                                    DTSBR908
00055 *                                                                 DTSBR908
00056 *                                                                 DTSBR908
00057 *    MODULES CALLED:                                              DTSBR908
00058 *                                                                 DTSBR908
00059 *        NONE                                                     DTSBR908
00060 *                                                                 DTSBR908
00061 *                                                                 DTSBR908
00062 *****                                                             DTSBR908
00063      EJECT                                                        DTSBR908
00064  ENVIRONMENT DIVISION.                                            DTSBR908
00065                                                                   DTSBR908
00066  CONFIGURATION SECTION.                                           DTSBR908
00067  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR908
00068                                                                   DTSBR908
00069  INPUT-OUTPUT SECTION.                                            DTSBR908
00070                                                                   DTSBR908
00071  FILE-CONTROL.                                                    DTSBR908
00072      SELECT PRT-FILE ASSIGN TO RPT908R1.                          DTSBR908
00073                                                                   DTSBR908
00074  DATA DIVISION.                                                   DTSBR908
00075                                                                   DTSBR908
00076  FILE SECTION.                                                    DTSBR908
00077                                                                   DTSBR908
00078  FD  PRT-FILE                                                     DTSBR908
00079      RECORDING MODE IS F.                                         DTSBR908
00080  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR908
00081                                                                   DTSBR908
00082  WORKING-STORAGE SECTION.                                         DTSBR908
000825 77  PAN-VALET PICTURE X(24) VALUE '018DTSBR908  05/16/02'.       DTSBR908
00083                                                                   DTSBR908
00084  01  WRK-AREA.                                                    DTSBR908
00085      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +908.DTSBR908
00086      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR908
00087      05  WS-YRQ                      PIC  9(05).                  DTSBR908
00088      05  WS-LAST-EMP-NO              PIC S9(07)  COMP-3.          DTSBR908
00089      05  WS-RATED-EMP-COUNT          PIC S9(07)  COMP-3.          DTSBR908
00090      05  WS-SELF-INS-EMP-COUNT       PIC S9(07)  COMP-3.          DTSBR908
00091      05  WS-TOT-EMP-COUNT            PIC S9(07)  COMP-3.          DTSBR908
00092      05  WS-RATED-UC30-COUNT         PIC S9(07)  COMP-3.          DTSBR908
00093      05  WS-SELF-INS-UC30-COUNT      PIC S9(07)  COMP-3.          DTSBR908
00094      05  WS-TOT-UC30-COUNT           PIC S9(07)  COMP-3.          DTSBR908
00095                                                                   DTSBR908
00096      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR908
00097      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR908
00098      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR908
00099                                                                   DTSBR908
00100      05  WS-RATED-EMP-5E-COUNT       PIC S9(07)  COMP-3.          DTSBR908
00101      05  WS-SELF-INS-EMP-5E-COUNT    PIC S9(07)  COMP-3.          DTSBR908
00102      05  WS-TOT-EMP-5E-COUNT         PIC S9(07)  COMP-3.          DTSBR908
00103      05  WS-RATED-UC30E-COUNT        PIC S9(07)  COMP-3.          DTSBR908
00104      05  WS-SELF-INS-UC30E-COUNT     PIC S9(07)  COMP-3.          DTSBR908
00105      05  WS-TOT-UC30E-COUNT          PIC S9(07)  COMP-3.          DTSBR908
00106                                                                   DTSBR908
00107      05  WS-RPT-TOT-EMP-COUNT        PIC S9(07)  COMP-3.          DTSBR908
00108      05  WS-RPT-TOT-FORMS-COUNT      PIC S9(07)  COMP-3.          DTSBR908
00109                                                                   DTSBR908
00110  01  PAGE-HEADING.                                                DTSBR908
00111      05  HDR1-LINE-1.                                             DTSBR908
00112          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR908
00113          10  FILLER                  PIC  X(05)                   DTSBR908
00114                 VALUE '908R1'.                                    DTSBR908
00115          10  FILLER                  PIC  X(22)  VALUE SPACES.    DTSBR908
00116          10  HDR1-AGY-NAME-LINE1     PIC  X(50).                  DTSBR908
00117          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR908
00118          10  FILLER                  PIC  X(05)                   DTSBR908
00119                 VALUE 'DATE:'.                                    DTSBR908
00120          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00121          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR908
00122      05  HDR1-LINE-2.                                             DTSBR908
00123          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR908
00124          10  HDR1-AGY-NAME-LINE2     PIC  X(50).                  DTSBR908
00125          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR908
00126          10  FILLER                  PIC  X(05)                   DTSBR908
00127                 VALUE 'TIME:'.                                    DTSBR908
00128          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00129          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR908
00130      05  HDR1-LINE-3.                                             DTSBR908
00131          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR908
00132          10  FILLER                  PIC  X(30)                   DTSBR908
00133                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT   '.           DTSBR908
00134          10  FILLER                  PIC  X(56)  VALUE SPACES.    DTSBR908
00135          10  FILLER                  PIC  X(05)                   DTSBR908
00136                 VALUE 'PAGE:'.                                    DTSBR908
00137          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00138          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR908
00139      05  HDR1-LINE-4                 PIC  X(133) VALUE SPACES.    DTSBR908
00140      05  HDR1-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR908
00141      05  HDR1-LINE-6.                                             DTSBR908
00142          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR908
00143          10  FILLER                  PIC  X(11)                   DTSBR908
00144                 VALUE 'QUARTER:   '.                              DTSBR908
00145          10  HDR1-YRQ                PIC  99/9.                   DTSBR908
00146                                                                   DTSBR908
00147  01  DETAIL-LINE.                                                 DTSBR908
00148      05  DTL1-LINE-10.                                            DTSBR908
00149          10  FILLER                  PIC  X(44)  VALUE SPACES.    DTSBR908
00150          10  FILLER                  PIC  X(21)                   DTSBR908
00151                 VALUE ' UC30 OUTPUT TOTALS  '.                    DTSBR908
00152      05  DTL1-LINE-13.                                            DTSBR908
00153          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR908
00154          10  FILLER                  PIC  X(17)                   DTSBR908
00155                 VALUE 'EMPLOYER ACCOUNTS'.                        DTSBR908
00156          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR908
00157          10  FILLER                  PIC  X(15)                   DTSBR908
00158                 VALUE 'FORMS GENERATED'.                          DTSBR908
00159      05  DTL1-LINE-16.                                            DTSBR908
00160          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR908
00161          10  DTL1-RATED-EMP-COUNT    PIC  ZZ,ZZ9.                 DTSBR908
00162          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00163          10  FILLER                  PIC  X(07)                   DTSBR908
00164                 VALUE 'RATED'.                                    DTSBR908
00165          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR908
00166          10  DTL1-RATED-UC30-COUNT   PIC  ZZ,ZZ9.                 DTSBR908
00167          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00168          10  FILLER                  PIC  X(14)                   DTSBR908
00169                 VALUE 'RATED UC30''S'.                            DTSBR908
00170      05  DTL1-LINE-17.                                            DTSBR908
00171          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR908
00172          10  DTL1-SELF-INS-EMP-COUNT PIC  ZZ,ZZ9.                 DTSBR908
00173          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00174          10  FILLER                  PIC  X(12)                   DTSBR908
00175                 VALUE 'SELF-INSURED'.                             DTSBR908
00176          10  FILLER                  PIC  X(33)  VALUE SPACES.    DTSBR908
00177          10  DTL1-SELF-INS-UC30-COUNT PIC  ZZ,ZZ9.                DTSBR908
00178          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00179          10  FILLER                  PIC  X(21)                   DTSBR908
00180                 VALUE 'SELF-INSURED UC30''S'.                     DTSBR908
00181      05  DTL1-LINE-20.                                            DTSBR908
00182          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR908
00183          10  DTL1-TOT-EMP-COUNT      PIC ZZ,ZZ9.                  DTSBR908
00184          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00185          10  FILLER                  PIC  X(23)                   DTSBR908
00186                 VALUE 'TOTAL ACCOUNTS INCLUDED'.                  DTSBR908
00187          10  FILLER                  PIC  X(22)  VALUE SPACES.    DTSBR908
00188          10  DTL1-TOT-UC30-COUNT     PIC ZZ,ZZ9.                  DTSBR908
00189          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR908
00190          10  FILLER                  PIC  X(21)                   DTSBR908
00191                 VALUE 'TOTAL FORMS GENERATED'.                    DTSBR908
00192      EJECT                                                        DTSBR908
00193  LINKAGE SECTION.                                                 DTSBR908
00194                                                                   DTSBR908
00195  01  LRCM-LINK-AREA.                                              DTSBR908
00196  ++INCLUDE DTSILRCM                                               DTSBR908
00197      EJECT                                                        DTSBR908
00198  01  R908-REC.                                                    DTSBR908
00199  ++INCLUDE DTSIR908                                               DTSBR908
00200      EJECT                                                        DTSBR908
00201  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR908
00202                           R908-REC.                               DTSBR908
00203                                                                   DTSBR908
00204      IF FIRST-TIME-IND = 'Y'                                      DTSBR908
00205          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR908
00206          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR908
00207                                                                   DTSBR908
00208      IF LRCM-EOR-88                                               DTSBR908
00209          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR908
00210      ELSE                                                         DTSBR908
00211          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR908
00212                                                                   DTSBR908
00213      GOBACK.                                                      DTSBR908
00214      EJECT                                                        DTSBR908
00215  I1000-INITIATE.                                                  DTSBR908
00216                                                                   DTSBR908
00217      MOVE R908-YRQ TO WS-YRQ.                                     DTSBR908
00218      MOVE WS-YRQ (3:3)  TO HDR1-YRQ.                              DTSBR908
00219      MOVE ZEROES TO WS-LAST-EMP-NO                                DTSBR908
00220         WS-RATED-EMP-COUNT WS-SELF-INS-EMP-COUNT                  DTSBR908
00221         WS-RATED-UC30-COUNT WS-SELF-INS-UC30-COUNT                DTSBR908
00222         WS-TOT-EMP-COUNT WS-TOT-UC30-COUNT                        DTSBR908
00223                                                                   DTSBR908
00224      OPEN OUTPUT PRT-FILE.                                        DTSBR908
00225      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR908
00226      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR908
00227      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR908
00228      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR908
00229      MOVE SPACES TO REPORT-LISTING1.                              DTSBR908
00230                                                                   DTSBR908
00231  I1000-EXIT.                                                      DTSBR908
00232      EXIT.                                                        DTSBR908
00233      EJECT                                                        DTSBR908
00234  P1000-PROCESS.                                                   DTSBR908
00235                                                                   DTSBR908
00236      IF R908-EMP-NO NOT = WS-LAST-EMP-NO                          DTSBR908
00237          MOVE R908-EMP-NO TO WS-LAST-EMP-NO                       DTSBR908
00238      END-IF.                                                      DTSBR908
00239          EVALUATE TRUE                                            DTSBR908
00240             WHEN R908-EMP-CLASS-RATED-88                          DTSBR908
00241                 ADD +1 TO WS-RATED-EMP-COUNT                      DTSBR908
00242                 ADD +1 TO WS-RATED-UC30-COUNT                     DTSBR908
00243             WHEN R908-EMP-CLASS-SELF-INS-88                       DTSBR908
00244                 ADD +1 TO WS-SELF-INS-EMP-COUNT                   DTSBR908
00245                 ADD +1 TO WS-SELF-INS-UC30-COUNT                  DTSBR908
00246          END-EVALUATE.                                            DTSBR908
00247                                                                   DTSBR908
00248  P1000-EXIT.                                                      DTSBR908
00249      EXIT.                                                        DTSBR908
00250                                                                   DTSBR908
00251  P2000-PRINT-HEADER.                                              DTSBR908
00252                                                                   DTSBR908
00253      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR908
00254           WS-LINE-CNT2 GREATER 58                                 DTSBR908
00255         MOVE +0          TO WS-LINE-CNT                           DTSBR908
00256         MOVE +0          TO WS-LINE-CNT2                          DTSBR908
00257         ADD  +1          TO WS-PAGE-CNT                           DTSBR908
00258         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR908
00259         WRITE REPORT-LISTING1 FROM HDR1-LINE-1                    DTSBR908
00260                 AFTER TOP-OF-PAGE                                 DTSBR908
00261         WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1            DTSBR908
00262         WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1            DTSBR908
00263         WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1            DTSBR908
00264         WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1            DTSBR908
00265         WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1            DTSBR908
00266         ADD +6    TO WS-LINE-CNT2.                                DTSBR908
00267                                                                   DTSBR908
00268  P2000-EXIT.                                                      DTSBR908
00269      EXIT.                                                        DTSBR908
00270                                                                   DTSBR908
00271  T1000-TERMINATE.                                                 DTSBR908
00272                                                                   DTSBR908
00273      ADD WS-RATED-EMP-COUNT  WS-SELF-INS-EMP-COUNT                DTSBR908
00274         GIVING WS-TOT-EMP-COUNT.                                  DTSBR908
00275      ADD WS-RATED-UC30-COUNT  WS-SELF-INS-UC30-COUNT              DTSBR908
00276         GIVING WS-TOT-UC30-COUNT.                                 DTSBR908
00277                                                                   DTSBR908
00278 *    ADD WS-RATED-EMP-5E-COUNT WS-GOVT-EMP-5E-COUNT               DTSBR908
00279 *        WS-SELF-INS-EMP-5E-COUNT                                 DTSBR908
00280 *        GIVING WS-TOT-EMP-5E-COUNT.                              DTSBR908
00281 *    ADD WS-RATED-UC30E-COUNT WS-GOVT-UC30E-COUNT WS-SELF-INS-UC30DTSBR908
00282 *        GIVING WS-TOT-UC30E-COUNT.                               DTSBR908
00283 *    SKIP1                                                        DTSBR908
00284 *    ADD WS-TOT-EMP-COUNT WS-TOT-EMP-5E-COUNT                     DTSBR908
00285 *        GIVING WS-RPT-TOT-EMP-COUNT.                             DTSBR908
00286 *    ADD WS-TOT-UC30-COUNT WS-TOT-UC30E-COUNT                     DTSBR908
00287 *        GIVING WS-RPT-TOT-FORMS-COUNT.                           DTSBR908
00288                                                                   DTSBR908
00289      MOVE WS-RATED-EMP-COUNT       TO DTL1-RATED-EMP-COUNT.       DTSBR908
00290      MOVE WS-RATED-UC30-COUNT      TO DTL1-RATED-UC30-COUNT.      DTSBR908
00291      MOVE WS-SELF-INS-EMP-COUNT    TO DTL1-SELF-INS-EMP-COUNT.    DTSBR908
00292      MOVE WS-SELF-INS-UC30-COUNT   TO DTL1-SELF-INS-UC30-COUNT.   DTSBR908
00293      MOVE WS-TOT-EMP-COUNT         TO DTL1-TOT-EMP-COUNT.         DTSBR908
00294      MOVE WS-TOT-UC30-COUNT        TO DTL1-TOT-UC30-COUNT.        DTSBR908
00295      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR908
00296      WRITE REPORT-LISTING1 FROM DTL1-LINE-10 AFTER 4.             DTSBR908
00297      WRITE REPORT-LISTING1 FROM DTL1-LINE-13 AFTER 3.             DTSBR908
00298      WRITE REPORT-LISTING1 FROM DTL1-LINE-16 AFTER 3.             DTSBR908
00299      WRITE REPORT-LISTING1 FROM DTL1-LINE-17 AFTER 1.             DTSBR908
00300      WRITE REPORT-LISTING1 FROM DTL1-LINE-20 AFTER 3.             DTSBR908
00301      ADD +14   TO WS-LINE-CNT2.                                   DTSBR908
00302                                                                   DTSBR908
00303      CLOSE PRT-FILE.                                              DTSBR908
00304                                                                   DTSBR908
00305  T1000-EXIT.                                                      DTSBR908
00306      EXIT.                                                        DTSBR908
00307                                                                   DTSBR908
00308 *S999-ABEND.                                                      DTSBR908
00309 *                                                                 DTSBR908
00310 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR908
00311 *                                                                 DTSBR908
00312 *S999-EXIT.                                                       DTSBR908
00313 *    EXIT.                                                        DTSBR908
00314                                                                   DTSBR908
