00001  IDENTIFICATION DIVISION.                                         06/11/08
00002  PROGRAM-ID.             DTSBR902.                                DTSBR902
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV088
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBR902
00005  DATE-COMPILED.                                                   DTSBR902
00006      SKIP3                                                        DTSBR902
00007 *****                                                             DTSBR902
00008 *    CALLING SEQUENCE:  DTSBE351 WRITES DTSIR902 RECORDS          DTSBR902
00009 *                       DTSBD800 CALLS DTSBR902 WHICH             DTSBR902
00010 *                       PRODUCES THE QUARTERLY WAGE REPORT.       DTSBR902
00011 *                                                                 DTSBR902
00012 *                                                                 DTSBR902
00013 *    FUNCTION:  QUARTERLY WAGE REPORTS  UC-30                     DTSBR902
00014 *                                                                 DTSBR902
00015 *                                                                 DTSBR902
00016 *    MODIFICATION HISTORY:                                        DTSBR902
00017 *                                                                 DTSBR902
00018 * 09-17-94 INITIAL DEVELOPMENT                                    DTSBR902
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR902
00020 *                                                                 DTSBR902
00021 *                                                                 DTSBR902
00022 * 11-28-97 RECOMPILED TO INCOPORATE CHANGE TO DTSIL119.  CHANGED  DTSBR902
00023 *          REFERENCES TO L119-TAX-BUR TO L119-PROGRAM.            DTSBR902
00024 *          REFERENCE RFP #TCL 208                PROGRAMMER: EHH  DTSBR902
00025 *                                                                 DTSBR902
00026 * 03-30-99 MODIFIED  TO MEET DUTAS PROGRAMMING SPECIFICATIONS.    DTSBR902
00027 *          REFERENCE RFP #****                   PROGRAMMER: DVS  DTSBR902
00028 *                                                                 DTSBR902
00029 * 01-19-01 MODIFIED  TO PRINT UC30 ON LAZER PRINTER.              DTSBR902
00030 *          REFERENCE :   DOES MOVE TO DHS        PROGRAMMER: ZL1  DTSBR902
00031 *                                                                 DTSBR902
00032 * 01-06-06 MODIFIED  TO PRINT UC30 ON A RPT902R2 FILE IF THE      DTSBR902
00033 *                    DAILY INPUT YEAR-QUARTER IS EQUAL OR         DTSBR902
00034 *                    GREATER THAN 1ST JANUARY 2006. THE UC30      DTSBR902
00035 *                    FORM LINE 6 CONTAIN A NEW ADMINISTRATIVE     DTSBR902
00036 *                    ASSESSMENT DUE INSTRUTION TO CALCULATE THE   DTSBR902
00037 *                    ADMINISTRATIVE FEE MUTIPLY TAXABLE WAGE      DTSBR902
00038 *                    PAID BY 0.02%.                               DTSBR902
00039 *          REFERENCE RFP ##                      PROGRAMMER: RW1  DTSBR902
00040 *                                                                 DTSBR902
00041 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR902
00042 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR902
00043 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR902
00044 *                                                                 DTSBR902
00045 *                                                                 DTSBR902
00046 *    DESCRIPTION:                                                 DTSBR902
00047 *                                                                 DTSBR902
00048 *        THIS MODULE PRINTS THE QUARTERLY WAGE REPORT, BOTH FROM  DTSBR902
00049 *        DAILY BATCH PROCESSES AND THE QUARTERLY MASS MAILING,    DTSBR902
00050 *        FOR RATED (UC-30) AND SELF-INSURED EMPLOYERS.            DTSBR902
00051 *                                                                 DTSBR902
00052 *    RECORDS READ:                                                DTSBR902
00053 *                                                                 DTSBR902
00054 *        NONE.                                                    DTSBR902
00055 *                                                                 DTSBR902
00056 *                                                                 DTSBR902
00057 *    PRINTED OUTPUTS:                                             DTSBR902
00058 *                                                                 DTSBR902
00059 *        902R1  QUARTERLY WAGE REPORT (UC-30)                     DTSBR902
00060 *                                                                 DTSBR902
00061 *                                                                 DTSBR902
00062 *    RECORDS WRITTEN:                                             DTSBR902
00063 *                                                                 DTSBR902
00064 *        NONE.                                                    DTSBR902
00065 *                                                                 DTSBR902
00066 *                                                                 DTSBR902
00067 *    MODULES CALLED:                                              DTSBR902
00068 *                                                                 DTSBR902
00069 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR902
00070 *        DTSBU002 DATE EDIT/CONVERSION MODULE                     DTSBR902
00071 *        DTSBU004 DATE EDIT/CONVERSION MODULE                     DTSBR902
00072 *        DTSBU008 QUARTER ALPHA CONVERSION MODULE                 DTSBR902
00073 *        DTSBU009 TRANSLATE TO UPPER CASE MODULE                  DTSBR902
00074 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR902
00075 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR902
00076 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR902
00077 *        DTSBU109 AFT RATE LOOKUP MODULE                          DTSBR902
00078 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR902
00079 *        DTSBU143 CHARACTER STRING BUILDING MODULE                DTSBR902
00080 *                                                                 DTSBR902
00081 *                                                                 DTSBR902
00082 *****                                                             DTSBR902
00083      EJECT                                                        DTSBR902
00084  ENVIRONMENT DIVISION.                                            DTSBR902
00085                                                                   DTSBR902
00086  CONFIGURATION SECTION.                                           DTSBR902
00087  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR902
00088                                                                   DTSBR902
00089  INPUT-OUTPUT SECTION.                                            DTSBR902
00090                                                                   DTSBR902
00091  FILE-CONTROL.                                                    DTSBR902
00092      SELECT PRT-FILE1 ASSIGN TO DTS902F1.                         DTSBR902
00093      SELECT PRT-FILE2 ASSIGN TO RPT902R1.                         DTSBR902
00094      SELECT PRT-FILE3 ASSIGN TO RPT902R2.                         DTSBR902
00095                                                                   DTSBR902
00096  DATA DIVISION.                                                   DTSBR902
00097                                                                   DTSBR902
00098  FILE SECTION.                                                    DTSBR902
00099                                                                   DTSBR902
00100  FD  PRT-FILE1                                                    DTSBR902
00101      RECORDING MODE IS F.                                         DTSBR902
00102  01  UC30-QTRLY-DATA                     PIC  X(385).             DTSBR902
00103                                                                   DTSBR902
00104  FD  PRT-FILE2                                                    DTSBR902
00105      RECORDING MODE IS F.                                         DTSBR902
00106  01  UC30-REPORT                         PIC  X(133).             DTSBR902
00107                                                                   DTSBR902
00108  FD  PRT-FILE3                                                    DTSBR902
00109      RECORDING MODE IS F.                                         DTSBR902
00110  01  UC30-REPORT3                        PIC  X(133).             DTSBR902
00111                                                                   DTSBR902
00112  WORKING-STORAGE SECTION.                                         DTSBR902
001125 77  PAN-VALET PICTURE X(24) VALUE '088DTSBR902  06/11/08'.       DTSBR902
00113                                                                   DTSBR902
00114  01  WRK-AREA.                                                    DTSBR902
00115      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +902.DTSBR902
00116      05  FIRST-TIME-IND                  PIC  X(01)  VALUE 'Y'.   DTSBR902
00117      05  WS-DAILY-OP-ID-HOLD             PIC  X(08)  VALUE SPACES.DTSBR902
00118      05  WS-DAILY-OP-ID-HOLD1            PIC  X(08)  VALUE SPACES.DTSBR902
00119      05  WS-BLANK-LINE                   PIC  X(133) VALUE SPACES.DTSBR902
00120      05  WS-YRQ-UNPACK                   PIC  9(05)  VALUE ZEROS. DTSBR902
00121      05  WS-EMP-CLASS                    PIC  X(01).              DTSBR902
00122          88  WS-RATED-88                      VALUE 'R'.          DTSBR902
00123          88  WS-SELF-INS-88                   VALUE 'S'.          DTSBR902
00124      05  UC30-NEW-YRQ                    PIC  9(05)  VALUE 20061. DTSBR902
00125                                                                   DTSBR902
00126      05  WS-BREAK-LINE1                  PIC  X(33) VALUE         DTSBR902
00127                 '*********************************'.              DTSBR902
00128      05  WS-BREAK-LINE2                  PIC  X(33) VALUE         DTSBR902
00129                 '* ROUTE FOLLOWING FORMS TO:     *'.              DTSBR902
00130      05  WRK-OPR-NAME.                                            DTSBR902
00131          10  FILLER                      PIC  X(02) VALUE '* '.   DTSBR902
00132          10  WS-OPR-NAME                 PIC  X(30).              DTSBR902
00133          10  FILLER                      PIC  X(01) VALUE '*'.    DTSBR902
00134      05  WRK-OPR-UNIT-NAME.                                       DTSBR902
00135          10  FILLER                      PIC  X(02) VALUE '* '.   DTSBR902
00136          10  WS-OPR-UNIT-NAME            PIC  X(30).              DTSBR902
00137          10  FILLER                      PIC  X(01) VALUE '*'.    DTSBR902
00138                                                                   DTSBR902
00139      05  WS-WAIVER-MSG-INIT              PIC  X(115) VALUE SPACES.DTSBR902
00140      05  WS-WAIVER-MSG-TBL REDEFINES WS-WAIVER-MSG-INIT.          DTSBR902
00141          10  WS-WAIVER-MSG-LINE OCCURS 5 TIMES  PIC X(23).        DTSBR902
00142      05  WS-SNGL-WAIVER-MSG-INIT.                                 DTSBR902
00143          10  FILLER                  PIC  X(23)                   DTSBR902
00144                 VALUE 'REPORT AND PAYMENT FOR '.                  DTSBR902
00145          10  WS-SNGL-WAIVER-YRQ-DISP PIC  99/9.                   DTSBR902
00146          10  FILLER                  PIC  X(22)                   DTSBR902
00147                 VALUE ' MUST BE RETURNED  BY '.                   DTSBR902
00148          10  WS-SNGL-WAIVER-DATE-DISP PIC X(08).                  DTSBR902
00149          10  FILLER                  PIC  X(32)                   DTSBR902
00150                 VALUE ' TO AVOID   PENALTY AND INTEREST'.         DTSBR902
00151          10  FILLER                  PIC  X(11)                   DTSBR902
00152                 VALUE '   CHARGES.'.                              DTSBR902
00153          10  FILLER                  PIC  X(15)                   DTSBR902
00154                 VALUE SPACES.                                     DTSBR902
00155      05  WS-MLTPL-WAIVER-MSG-INIT.                                DTSBR902
00156          10  FILLER                  PIC  X(27)                   DTSBR902
00157                 VALUE 'REPORTS AND PAYMENTS   FOR '.              DTSBR902
00158          10  WS-MLTPL-WAIVER-YRQ1-DISP                            DTSBR902
00159                                      PIC  99/9.                   DTSBR902
00160          10  FILLER                  PIC  X(03)                   DTSBR902
00161                 VALUE ' - '.                                      DTSBR902
00162          10  WS-MLTPL-WAIVER-YRQ2-DISP                            DTSBR902
00163                                      PIC  99/9.                   DTSBR902
00164          10  FILLER                  PIC  X(23)                   DTSBR902
00165                 VALUE ' MUST   BE RETURNED BY '.                  DTSBR902
00166          10  WS-MLTPL-WAIVER-DATE-DISP                            DTSBR902
00167                                      PIC  X(08).                  DTSBR902
00168          10  FILLER                  PIC  X(40)                   DTSBR902
00169                 VALUE 'TO AVOID PENALTY AND   INTEREST CHARGES.'. DTSBR902
00170          10  FILLER                  PIC  X(06)                   DTSBR902
00171                 VALUE SPACES.                                     DTSBR902
00172                                                                   DTSBR902
00173      05  TEMP-EMP-NO                 PIC  9(06).                  DTSBR902
00174          88  TEMP-EMP-PRINT-88          VALUE 153333              DTSBR902
00175                                               136679              DTSBR902
00176                                               063302              DTSBR902
00177                                               153001              DTSBR902
00178                                               200100              DTSBR902
00179                                               076805              DTSBR902
00180                                               148664              DTSBR902
00181                                               000001 THRU 010000  DTSBR902
00182                                               089000 THRU 100000. DTSBR902
00183      EJECT                                                        DTSBR902
00184  ++INCLUDE DTSXL902                                               DTSBR902
00185      EJECT                                                        DTSBR902
00186  01  L001-LINK-AREA.                                              DTSBR902
00187  ++INCLUDE DTSIL001                                               DTSBR902
00188      EJECT                                                        DTSBR902
00189  01  L002-LINK-AREA.                                              DTSBR902
00190  ++INCLUDE DTSIL002                                               DTSBR902
00191      EJECT                                                        DTSBR902
00192  01  L004-LINK-AREA.                                              DTSBR902
00193  ++INCLUDE DTSIL004                                               DTSBR902
00194      EJECT                                                        DTSBR902
00195  01  L008-LINK-AREA.                                              DTSBR902
00196  ++INCLUDE DTSIL008                                               DTSBR902
00197      EJECT                                                        DTSBR902
00198  01  L009-LINK-AREA.                                              DTSBR902
00199  ++INCLUDE DTSIL009                                               DTSBR902
00200      EJECT                                                        DTSBR902
00201  01  L056-LINK-AREA.                                              DTSBR902
00202  ++INCLUDE DTSIL056                                               DTSBR902
00203      EJECT                                                        DTSBR902
00204  01  L071-LINK-AREA.                                              DTSBR902
00205  ++INCLUDE DTSIL071                                               DTSBR902
00206      EJECT                                                        DTSBR902
00207  01  L082-LINK-AREA.                                              DTSBR902
00208  ++INCLUDE DTSIL082                                               DTSBR902
00209      EJECT                                                        DTSBR902
00210 *01  L109-LINK-AREA.                                              DTSBR902
00211 **+INCLUDE DTSIL109                                               DTSBR902
00212 **   EJECT                                                        DTSBR902
00213  01  L119-LINK-AREA.                                              DTSBR902
00214  ++INCLUDE DTSIL119                                               DTSBR902
00215      EJECT                                                        DTSBR902
00216  01  L143-LINK-AREA.                                              DTSBR902
00217  ++INCLUDE DTSIL143                                               DTSBR902
00218  01  ROUTE-INFO-AREA.                                             DTSBR902
00219      05  RTE-LINE-1.                                              DTSBR902
00220          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR902
00221          10  FILLER                  PIC  X(33)                   DTSBR902
00222                 VALUE '***********  DTSP902   **********'.        DTSBR902
00223      05  RTE-LINE-2.                                              DTSBR902
00224          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR902
00225          10  FILLER                  PIC  X(13)                   DTSBR902
00226                 VALUE '**           '.                            DTSBR902
00227          10  RTE-SYS-DATE            PIC  X(08)  VALUE SPACES.    DTSBR902
00228          10  FILLER                  PIC  X(13)                   DTSBR902
00229                 VALUE '          ** '.                            DTSBR902
00230      05  RTE-LINE-3.                                              DTSBR902
00231          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR902
00232          10  FILLER                  PIC  X(33)                   DTSBR902
00233                 VALUE '***********  UC30-OLD  **********'.        DTSBR902
00234      05  RTE-LINE-4.                                              DTSBR902
00235          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR902
00236          10  FILLER                  PIC  X(33)                   DTSBR902
00237                 VALUE '***********  UC30-NEW  **********'.        DTSBR902
00238                                                                   DTSBR902
00239  01  UC30-REPORT-DETAIL1.                                         DTSBR902
00240      05  U30-LINE-1.                                              DTSBR902
00241          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR902
00242          10  U30-EMP-NO              PIC  999B999.                DTSBR902
00243          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR902
00244          10  U30-PRI-NAME-FIRST4     PIC  X(4)   VALUE SPACES.    DTSBR902
00245          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR902
00246          10  U30-FMT-LINE-1          PIC  X(40)  VALUE SPACES.    DTSBR902
00247          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR902
00248          10  U30-FEIN-DISP           PIC  99B9999999.             DTSBR902
00249          10  U30-FEIN-DISP-X                                      DTSBR902
00250              REDEFINES U30-FEIN-DISP PIC  X(10).                  DTSBR902
00251          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR902
00252                                                                   DTSBR902
00253      05  U30-LINE-2.                                              DTSBR902
00254          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR902
00255          10  U30-FMT-LINE-2          PIC  X(40)  VALUE SPACES.    DTSBR902
00256                                                                   DTSBR902
00257      05  U30-LINE-3.                                              DTSBR902
00258          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR902
00259          10  U30-UI-RATE             PIC  X(06)  VALUE SPACES.    DTSBR902
00260          10  U30-PCENT               PIC  X(03)  VALUE '  %'.     DTSBR902
00261          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR902
00262          10  U30-FMT-LINE-3          PIC  X(40)  VALUE SPACES.    DTSBR902
00263          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR902
00264          10  U30-RPT-QTR-END-DISP    PIC  X(18).                  DTSBR902
00265          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR902
00266                                                                   DTSBR902
00267      05  U30-LINE-4.                                              DTSBR902
00268          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR902
00269          10  U30-FMT-LINE-4          PIC  X(40).                  DTSBR902
00270                                                                   DTSBR902
00271      05  U30-LINE-5.                                              DTSBR902
00272          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR902
00273          10  U30-TAX-WAGE-BASE       PIC  ZZZZZZ9.99.             DTSBR902
00274          10  U30-TAX-WAGE-BASE-X REDEFINES                        DTSBR902
00275              U30-TAX-WAGE-BASE       PIC  X(10).                  DTSBR902
00276          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR902
00277          10  U30-FMT-LINE-5          PIC  X(40).                  DTSBR902
00278          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR902
00279          10  U30-RPT-DUE-DATE-DISP   PIC  X(18).                  DTSBR902
00280          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR902
00281                                                                   DTSBR902
00282      05  U30-LINE-6.                                              DTSBR902
00283          10  FILLER                  PIC  X(75)  VALUE SPACES.    DTSBR902
00284          10  U30-NONTAX-WAGE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00285                                                                   DTSBR902
00286      05  U30-LINE-7.                                              DTSBR902
00287          10  FILLER                  PIC  X(75)  VALUE SPACES.    DTSBR902
00288          10  U30-TAX-WAGE            PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00289                                                                   DTSBR902
00290      05  U30-LINE-8.                                              DTSBR902
00291          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR902
00292          10  U30-UI-TAX-RATE-SI      PIC  X(6)   VALUE SPACES.    DTSBR902
00293          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR902
00294          10  U30-CONTRIB-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00295                                                                   DTSBR902
00296      05  U30-LINE-8R.                                             DTSBR902
00297          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR902
00298          10  U30-UI-TAX-RATE-RATED   PIC  X(6)   VALUE SPACES.    DTSBR902
00299                                                                   DTSBR902
00300      05  U30-LINE-9.                                              DTSBR902
00301          10  FILLER                  PIC  X(58)  VALUE SPACES.    DTSBR902
00302          10  U30-INTREST-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00303                                                                   DTSBR902
00304      05  U30-LINE-10.                                             DTSBR902
00305          10  FILLER                  PIC  X(58)  VALUE SPACES.    DTSBR902
00306          10  U30-PENALTY-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00307                                                                   DTSBR902
00308      05  U30-LINE-11.                                             DTSBR902
00309          10  FILLER                  PIC  X(58)  VALUE SPACES.    DTSBR902
00310          10  U30-CREDIT-AMT          PIC  ZZZ,ZZZ,ZZ9.99          DTSBR902
00311                                             BLANK WHEN ZEROS.     DTSBR902
00312      05  U30-LINE-12.                                             DTSBR902
00313          10  FILLER                  PIC  X(75)  VALUE SPACES.    DTSBR902
00314          10  U30-TOTAL-AMT           PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00315                                                                   DTSBR902
00316                                                                   DTSBR902
00317  01  UC30-DATA-FILE.                                              DTSBR902
00318          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR902
00319          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00320          10  Q30-EMP-NO              PIC  999B999.                DTSBR902
00321          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00322          10  Q30-PRI-NAME-FIRST4     PIC  X(4)   VALUE SPACES.    DTSBR902
00323          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00324          10  Q30-FMT-LINE-1          PIC  X(36)  VALUE SPACES.    DTSBR902
00325          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00326          10  Q30-FEIN-DISP           PIC  99B9999999.             DTSBR902
00327          10  Q30-FEIN-DISP-X                                      DTSBR902
00328              REDEFINES Q30-FEIN-DISP PIC  X(10).                  DTSBR902
00329          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00330          10  Q30-FMT-LINE-2          PIC  X(36)  VALUE SPACES.    DTSBR902
00331          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00332          10  Q30-UI-RATE             PIC  X(06)  VALUE SPACES.    DTSBR902
00333          10  Q30-PCENT               PIC  X(03)  VALUE '  %'.     DTSBR902
00334          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00335          10  Q30-FMT-LINE-3          PIC  X(36)  VALUE SPACES.    DTSBR902
00336          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00337          10  Q30-RPT-QTR-END-DISP    PIC  X(18).                  DTSBR902
00338          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00339          10  Q30-FMT-LINE-4          PIC  X(36).                  DTSBR902
00340          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00341          10  Q30-TAX-WAGE-BASE       PIC  ZZZZZZ9.99.             DTSBR902
00342          10  Q30-TAX-WAGE-BASE-X REDEFINES                        DTSBR902
00343              Q30-TAX-WAGE-BASE       PIC  X(10).                  DTSBR902
00344          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00345          10  Q30-FMT-LINE-5          PIC  X(36).                  DTSBR902
00346          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00347          10  Q30-RPT-DUE-DATE-DISP   PIC  X(18).                  DTSBR902
00348          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00349          10  Q30-NONTAX-WAGE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00350          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00351          10  Q30-TAX-WAGE            PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00352          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00353          10  Q30-UI-TAX-RATE-SI      PIC  X(6)   VALUE SPACES.    DTSBR902
00354          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00355          10  Q30-CONTRIB-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00356          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00357          10  Q30-INTREST-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00358          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00359          10  Q30-PENALTY-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00360          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00361          10  Q30-CREDIT-AMT          PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00362          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00363          10  Q30-TOTAL-AMT           PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR902
00364          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR902
00365                                                                   DTSBR902
00366      EJECT                                                        DTSBR902
00367  LINKAGE SECTION.                                                 DTSBR902
00368                                                                   DTSBR902
00369  01  LRCM-LINK-AREA.                                              DTSBR902
00370  ++INCLUDE DTSILRCM                                               DTSBR902
00371      EJECT                                                        DTSBR902
00372  01  R902-REC.                                                    DTSBR902
00373  ++INCLUDE DTSIR902                                               DTSBR902
00374      EJECT                                                        DTSBR902
00375  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR902
00376                           R902-REC.                               DTSBR902
00377      IF FIRST-TIME-IND = 'Y'                                      DTSBR902
00378          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR902
00379          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR902
00380                                                                   DTSBR902
00381      IF LRCM-EOR-88                                               DTSBR902
00382          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR902
00383      ELSE                                                         DTSBR902
00384          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR902
00385                                                                   DTSBR902
00386      GOBACK.                                                      DTSBR902
00387      EJECT                                                        DTSBR902
00388  I1000-INITIATE.                                                  DTSBR902
00389                                                                   DTSBR902
00390      OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3.                   DTSBR902
00391      MOVE SPACES        TO UC30-QTRLY-DATA                        DTSBR902
00392                            UC30-REPORT UC30-REPORT3.              DTSBR902
00393      MOVE SPACES        TO WS-DAILY-OP-ID-HOLD.                   DTSBR902
00394      MOVE SPACES        TO WS-DAILY-OP-ID-HOLD1.                  DTSBR902
00395      MOVE LRCM-SYS-DATE TO RTE-SYS-DATE.                          DTSBR902
00396 *R1                                                               DTSBR902
00397      WRITE UC30-REPORT FROM XEROX-CNTL-LINE AFTER TOP-OF-PAGE.    DTSBR902
00398      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER 5.                DTSBR902
00399      WRITE UC30-REPORT FROM RTE-LINE-1 AFTER 7.                   DTSBR902
00400      WRITE UC30-REPORT FROM RTE-LINE-2 AFTER 1.                   DTSBR902
00401      WRITE UC30-REPORT FROM RTE-LINE-3 AFTER 1.                   DTSBR902
00402      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00403      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER 2.                DTSBR902
00404      WRITE UC30-REPORT FROM RTE-LINE-1 AFTER 7.                   DTSBR902
00405      WRITE UC30-REPORT FROM RTE-LINE-2 AFTER 1.                   DTSBR902
00406      WRITE UC30-REPORT FROM RTE-LINE-3 AFTER 1.                   DTSBR902
00407                                                                   DTSBR902
00408      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00409      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00410 *R2                                                               DTSBR902
00411      WRITE UC30-REPORT3 FROM XEROX-CNTL-LINE1 AFTER TOP-OF-PAGE.  DTSBR902
00412      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER 5.               DTSBR902
00413      WRITE UC30-REPORT3 FROM RTE-LINE-1 AFTER 7.                  DTSBR902
00414      WRITE UC30-REPORT3 FROM RTE-LINE-2 AFTER 1.                  DTSBR902
00415      WRITE UC30-REPORT3 FROM RTE-LINE-4 AFTER 1.                  DTSBR902
00416      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00417      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER 2.               DTSBR902
00418      WRITE UC30-REPORT3 FROM RTE-LINE-1 AFTER 7.                  DTSBR902
00419      WRITE UC30-REPORT3 FROM RTE-LINE-2 AFTER 1.                  DTSBR902
00420      WRITE UC30-REPORT3 FROM RTE-LINE-4 AFTER 1.                  DTSBR902
00421                                                                   DTSBR902
00422      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00423      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00424                                                                   DTSBR902
00425  I1000-EXIT.                                                      DTSBR902
00426      EXIT.                                                        DTSBR902
00427                                                                   DTSBR902
00428  P1000-PROCESS.                                                   DTSBR902
00429                                                                   DTSBR902
00430      IF R902-SORT-TYPE-QTR-88                                     DTSBR902
00431          PERFORM P2000-UC30-QTRLY-FILE THRU P2000-EXIT            DTSBR902
00432      ELSE                                                         DTSBR902
00433         IF R902-DAILY-YRQ < 20061                                 DTSBR902
00434            PERFORM P3010-BREAK-USERID    THRU P3010-EXIT          DTSBR902
00435            PERFORM P3000-UC30-DAILY-RPT  THRU P3000-EXIT          DTSBR902
00436         ELSE                                                      DTSBR902
00437            PERFORM P4010-BREAK-USERID    THRU P4010-EXIT          DTSBR902
00438            PERFORM P4000-UC30-DAILY-RPT  THRU P4000-EXIT          DTSBR902
00439         END-IF                                                    DTSBR902
00440      END-IF.                                                      DTSBR902
00441                                                                   DTSBR902
00442  P1000-EXIT.                                                      DTSBR902
00443      EXIT.                                                        DTSBR902
00444      EJECT                                                        DTSBR902
00445  P2000-UC30-QTRLY-FILE.                                           DTSBR902
00446      MOVE R902-QUARTERLY-EMP-CLASS TO WS-EMP-CLASS.               DTSBR902
00447      MOVE R902-QUARTERLY-YRQ       TO WS-YRQ-UNPACK.              DTSBR902
00448      DISPLAY ' R902-QUARTERLY-YRQ = ' WS-YRQ-UNPACK.              DTSBR902
00449      MOVE R902-QUARTERLY-EMP-NO    TO Q30-EMP-NO.                 DTSBR902
00450                                                                   DTSBR902
00451      IF R902-QTRLY-CR-AMT > +0                                    DTSBR902
00452          MOVE R902-QTRLY-CR-AMT    TO Q30-CREDIT-AMT              DTSBR902
00453      ELSE                                                         DTSBR902
00454          MOVE ZEROS                TO Q30-CREDIT-AMT              DTSBR902
00455      END-IF.                                                      DTSBR902
00456                                                                   DTSBR902
00457                                                                   DTSBR902
00458      SET L004-FROM-5     TO TRUE.                                 DTSBR902
00459      MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                      DTSBR902
00460      PERFORM S004-DATE   THRU S004-EXIT.                          DTSBR902
00461                                                                   DTSBR902
00462      MOVE L004-QTR-END-DATE   TO L002-DATE.                       DTSBR902
00463      SET L002-UPPER-CASE      TO TRUE.                            DTSBR902
00464      PERFORM S002-DATE        THRU S002-EXIT.                     DTSBR902
00465      MOVE L002-LONG-TEXT-AREA TO Q30-RPT-QTR-END-DISP.            DTSBR902
00466                                                                   DTSBR902
00467      MOVE R902-RPT-DUE-DATE   TO L002-DATE.                       DTSBR902
00468      SET L002-UPPER-CASE      TO TRUE.                            DTSBR902
00469      PERFORM S002-DATE        THRU S002-EXIT.                     DTSBR902
00470      MOVE L002-LONG-TEXT-AREA TO Q30-RPT-DUE-DATE-DISP.           DTSBR902
00471                                                                   DTSBR902
00472      MOVE R902-PRI-NAME-FIRST4 TO Q30-PRI-NAME-FIRST4.            DTSBR902
00473                                                                   DTSBR902
00474      IF R902-FEIN = ZEROES                                        DTSBR902
00475          MOVE SPACES    TO Q30-FEIN-DISP-X                        DTSBR902
00476      ELSE                                                         DTSBR902
00477          MOVE R902-FEIN TO Q30-FEIN-DISP.                         DTSBR902
00478                                                                   DTSBR902
00479      IF WS-RATED-88                                               DTSBR902
00480          MOVE R902-TAX-WAGE-BASE TO Q30-TAX-WAGE-BASE             DTSBR902
00481          MOVE R902-UI-RATE           TO L056-RATE                 DTSBR902
00482          SET L056-DISP1-RIGHT-PCT-88 TO TRUE                      DTSBR902
00483          PERFORM S056-RATE-DISPLAY   THRU S056-EXIT               DTSBR902
00484          MOVE L056-DISP-RATE         TO Q30-UI-RATE               DTSBR902
00485                                         Q30-UI-TAX-RATE-SI        DTSBR902
00486          MOVE '  %'  TO Q30-PCENT                                 DTSBR902
00487      ELSE                                                         DTSBR902
00488          MOVE 'SI'   TO Q30-UI-RATE                               DTSBR902
00489          MOVE SPACES TO Q30-UI-TAX-RATE-SI                        DTSBR902
00490          MOVE SPACES TO Q30-PCENT                                 DTSBR902
00491          MOVE SPACES TO Q30-TAX-WAGE-BASE-X                       DTSBR902
00492          MOVE ZEROS  TO Q30-NONTAX-WAGE                           DTSBR902
00493                         Q30-TAX-WAGE                              DTSBR902
00494                         Q30-CONTRIB-DUE                           DTSBR902
00495                         Q30-INTREST-DUE                           DTSBR902
00496                         Q30-PENALTY-DUE                           DTSBR902
00497                         Q30-TOTAL-AMT                             DTSBR902
00498      END-IF.                                                      DTSBR902
00499                                                                   DTSBR902
00500      MOVE R902-FMT-LINE (1) TO Q30-FMT-LINE-1.                    DTSBR902
00501      MOVE R902-FMT-LINE (2) TO Q30-FMT-LINE-2.                    DTSBR902
00502      MOVE R902-FMT-LINE (3) TO Q30-FMT-LINE-3.                    DTSBR902
00503      MOVE R902-FMT-LINE (4) TO Q30-FMT-LINE-4.                    DTSBR902
00504      MOVE R902-FMT-LINE (5) TO Q30-FMT-LINE-5.                    DTSBR902
00505                                                                   DTSBR902
00506      WRITE UC30-QTRLY-DATA   FROM UC30-DATA-FILE.                 DTSBR902
00507                                                                   DTSBR902
00508  P2000-EXIT.                                                      DTSBR902
00509      EXIT.                                                        DTSBR902
00510                                                                   DTSBR902
00511  P3000-UC30-DAILY-RPT.                                            DTSBR902
00512                                                                   DTSBR902
00513      MOVE R902-DAILY-EMP-CLASS TO WS-EMP-CLASS.                   DTSBR902
00514      MOVE R902-DAILY-YRQ       TO WS-YRQ-UNPACK.                  DTSBR902
00515      DISPLAY 'R902-DAILY-YRQ = '  WS-YRQ-UNPACK.                  DTSBR902
00516      MOVE R902-DAILY-EMP-NO    TO U30-EMP-NO.                     DTSBR902
00517                                                                   DTSBR902
00518      SET L004-FROM-5 TO TRUE.                                     DTSBR902
00519      MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA.                       DTSBR902
00520      PERFORM S004-DATE THRU S004-EXIT.                            DTSBR902
00521                                                                   DTSBR902
00522      MOVE L004-QTR-END-DATE TO L002-DATE.                         DTSBR902
00523      SET L002-UPPER-CASE TO TRUE.                                 DTSBR902
00524      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR902
00525      MOVE L002-LONG-TEXT-AREA TO U30-RPT-QTR-END-DISP.            DTSBR902
00526                                                                   DTSBR902
00527      MOVE R902-RPT-DUE-DATE TO L002-DATE.                         DTSBR902
00528      SET L002-UPPER-CASE TO TRUE.                                 DTSBR902
00529      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR902
00530      MOVE L002-LONG-TEXT-AREA TO U30-RPT-DUE-DATE-DISP.           DTSBR902
00531                                                                   DTSBR902
00532      MOVE R902-PRI-NAME-FIRST4 TO U30-PRI-NAME-FIRST4.            DTSBR902
00533                                                                   DTSBR902
00534      IF R902-FEIN = ZEROES                                        DTSBR902
00535          MOVE SPACES    TO U30-FEIN-DISP-X                        DTSBR902
00536      ELSE                                                         DTSBR902
00537          MOVE R902-FEIN TO U30-FEIN-DISP.                         DTSBR902
00538                                                                   DTSBR902
00539      IF WS-RATED-88                                               DTSBR902
00540         MOVE R902-TAX-WAGE-BASE TO U30-TAX-WAGE-BASE              DTSBR902
00541         MOVE R902-UI-RATE           TO L056-RATE                  DTSBR902
00542         SET L056-DISP1-RIGHT-PCT-88 TO TRUE                       DTSBR902
00543         PERFORM S056-RATE-DISPLAY   THRU S056-EXIT                DTSBR902
00544         MOVE L056-DISP-RATE         TO U30-UI-RATE                DTSBR902
00545                                     U30-UI-TAX-RATE-RATED         DTSBR902
00546         MOVE '  %'  TO U30-PCENT                                  DTSBR902
00547      ELSE                                                         DTSBR902
00548          MOVE 'SI'   TO U30-UI-RATE                               DTSBR902
00549          MOVE SPACES TO U30-PCENT                                 DTSBR902
00550          MOVE SPACES TO U30-UI-TAX-RATE-SI                        DTSBR902
00551          MOVE SPACES TO U30-TAX-WAGE-BASE-X                       DTSBR902
00552          MOVE ZEROS  TO U30-NONTAX-WAGE                           DTSBR902
00553                         U30-TAX-WAGE                              DTSBR902
00554                         U30-CONTRIB-DUE                           DTSBR902
00555                         U30-INTREST-DUE                           DTSBR902
00556                         U30-PENALTY-DUE                           DTSBR902
00557                         U30-TOTAL-AMT                             DTSBR902
00558      END-IF.                                                      DTSBR902
00559                                                                   DTSBR902
00560      MOVE R902-FMT-LINE (1) TO U30-FMT-LINE-1.                    DTSBR902
00561      MOVE R902-FMT-LINE (2) TO U30-FMT-LINE-2.                    DTSBR902
00562      MOVE R902-FMT-LINE (3) TO U30-FMT-LINE-3.                    DTSBR902
00563      MOVE R902-FMT-LINE (4) TO U30-FMT-LINE-4.                    DTSBR902
00564      MOVE R902-FMT-LINE (5) TO U30-FMT-LINE-5.                    DTSBR902
00565                                                                   DTSBR902
00566      PERFORM P3030-GENERATE-UC30-REPORT THRU P3030-EXIT.          DTSBR902
00567                                                                   DTSBR902
00568  P3000-EXIT.                                                      DTSBR902
00569      EXIT.                                                        DTSBR902
00570                                                                   DTSBR902
00571  P3010-BREAK-USERID.                                              DTSBR902
00572                                                                   DTSBR902
00573        IF R902-DAILY-OP-ID NOT =  WS-DAILY-OP-ID-HOLD             DTSBR902
00574           MOVE R902-DAILY-OP-ID        TO WS-DAILY-OP-ID-HOLD     DTSBR902
00575           PERFORM P3020-OPID-BREAK           THRU P3020-EXIT      DTSBR902
00576           PERFORM P3030-GENERATE-UC30-REPORT THRU P3030-EXIT      DTSBR902
00577        END-IF.                                                    DTSBR902
00578                                                                   DTSBR902
00579  P3010-EXIT.                                                      DTSBR902
00580      EXIT.                                                        DTSBR902
00581      EJECT                                                        DTSBR902
00582  P3020-OPID-BREAK.                                                DTSBR902
00583                                                                   DTSBR902
00584      MOVE R902-DAILY-OP-ID TO L082-OP-ID                          DTSBR902
00585                                                                   DTSBR902
00586      PERFORM S082-OP-ID-INFO THRU S082-EXIT                       DTSBR902
00587      MOVE L082-NAME          TO L071-NAM                          DTSBR902
00588      MOVE 2                  TO L071-NAME-FORMAT                  DTSBR902
00589      PERFORM S071-DESLASH-NAME THRU S071-EXIT                     DTSBR902
00590      MOVE L071-NAM           TO L009-DATA                         DTSBR902
00591                                                                   DTSBR902
00592      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR902
00593      MOVE L009-DATA          TO WS-OPR-NAME                       DTSBR902
00594      MOVE L082-UNIT-NAME     TO L009-DATA                         DTSBR902
00595                                                                   DTSBR902
00596      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR902
00597      MOVE L009-DATA TO WS-OPR-UNIT-NAME.                          DTSBR902
00598                                                                   DTSBR902
00599      MOVE SPACES            TO U30-LINE-1                         DTSBR902
00600                                U30-LINE-2                         DTSBR902
00601                                U30-LINE-3                         DTSBR902
00602                                U30-LINE-4                         DTSBR902
00603                                U30-LINE-5.                        DTSBR902
00604      MOVE WS-BREAK-LINE1    TO U30-FMT-LINE-1.                    DTSBR902
00605      MOVE WS-BREAK-LINE2    TO U30-FMT-LINE-2.                    DTSBR902
00606      MOVE WRK-OPR-NAME      TO U30-FMT-LINE-3.                    DTSBR902
00607      MOVE WRK-OPR-UNIT-NAME TO U30-FMT-LINE-4.                    DTSBR902
00608      MOVE WS-BREAK-LINE1    TO U30-FMT-LINE-5.                    DTSBR902
00609                                                                   DTSBR902
00610  P3020-EXIT.                                                      DTSBR902
00611      EXIT.                                                        DTSBR902
00612  P3030-GENERATE-UC30-REPORT.                                      DTSBR902
00613                                                                   DTSBR902
00614      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00615      WRITE UC30-REPORT FROM U30-LINE-1 AFTER 8.                   DTSBR902
00616      WRITE UC30-REPORT FROM U30-LINE-2 AFTER 1.                   DTSBR902
00617      WRITE UC30-REPORT FROM U30-LINE-3 AFTER 1.                   DTSBR902
00618      WRITE UC30-REPORT FROM U30-LINE-4 AFTER 1.                   DTSBR902
00619      WRITE UC30-REPORT FROM U30-LINE-5 AFTER 1.                   DTSBR902
00620                                                                   DTSBR902
00621      IF WS-RATED-88                                               DTSBR902
00622         WRITE UC30-REPORT FROM U30-LINE-8R AFTER 13               DTSBR902
00623 *RW1                                                              DTSBR902
00624         MOVE SPACES  TO U30-UI-TAX-RATE-RATED                     DTSBR902
00625 *RW2                                                              DTSBR902
00626         WRITE UC30-REPORT FROM U30-LINE-11 AFTER 4                DTSBR902
00627      ELSE                                                         DTSBR902
00628         WRITE UC30-REPORT FROM U30-LINE-6 AFTER 10                DTSBR902
00629         WRITE UC30-REPORT FROM U30-LINE-7 AFTER 2                 DTSBR902
00630         WRITE UC30-REPORT FROM U30-LINE-8 AFTER 1                 DTSBR902
00631         WRITE UC30-REPORT FROM U30-LINE-9 AFTER 2                 DTSBR902
00632         WRITE UC30-REPORT FROM U30-LINE-10 AFTER 1                DTSBR902
00633         WRITE UC30-REPORT FROM U30-LINE-11 AFTER 1                DTSBR902
00634         WRITE UC30-REPORT FROM U30-LINE-12 AFTER 2.               DTSBR902
00635                                                                   DTSBR902
00636      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00637      WRITE UC30-REPORT FROM U30-LINE-1 AFTER 8.                   DTSBR902
00638      WRITE UC30-REPORT FROM U30-LINE-2 AFTER 1.                   DTSBR902
00639      WRITE UC30-REPORT FROM U30-LINE-3 AFTER 1.                   DTSBR902
00640      WRITE UC30-REPORT FROM U30-LINE-4 AFTER 1.                   DTSBR902
00641      WRITE UC30-REPORT FROM U30-LINE-5 AFTER 1.                   DTSBR902
00642      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00643      WRITE UC30-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.      DTSBR902
00644                                                                   DTSBR902
00645  P3030-EXIT.                                                      DTSBR902
00646      EXIT.                                                        DTSBR902
00647                                                                   DTSBR902
00648  P4000-UC30-DAILY-RPT.                                            DTSBR902
00649                                                                   DTSBR902
00650      MOVE R902-DAILY-EMP-CLASS TO WS-EMP-CLASS.                   DTSBR902
00651      MOVE R902-DAILY-YRQ       TO WS-YRQ-UNPACK.                  DTSBR902
00652      DISPLAY 'R902-DAILY-YRQ = '  WS-YRQ-UNPACK.                  DTSBR902
00653      MOVE R902-DAILY-EMP-NO    TO U30-EMP-NO.                     DTSBR902
00654                                                                   DTSBR902
00655      SET L004-FROM-5 TO TRUE.                                     DTSBR902
00656      MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA.                       DTSBR902
00657      PERFORM S004-DATE THRU S004-EXIT.                            DTSBR902
00658                                                                   DTSBR902
00659      MOVE L004-QTR-END-DATE TO L002-DATE.                         DTSBR902
00660      SET L002-UPPER-CASE TO TRUE.                                 DTSBR902
00661      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR902
00662      MOVE L002-LONG-TEXT-AREA TO U30-RPT-QTR-END-DISP.            DTSBR902
00663                                                                   DTSBR902
00664      MOVE R902-RPT-DUE-DATE TO L002-DATE.                         DTSBR902
00665      SET L002-UPPER-CASE TO TRUE.                                 DTSBR902
00666      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR902
00667      MOVE L002-LONG-TEXT-AREA TO U30-RPT-DUE-DATE-DISP.           DTSBR902
00668                                                                   DTSBR902
00669      MOVE R902-PRI-NAME-FIRST4 TO U30-PRI-NAME-FIRST4.            DTSBR902
00670                                                                   DTSBR902
00671      IF R902-FEIN = ZEROES                                        DTSBR902
00672          MOVE SPACES    TO U30-FEIN-DISP-X                        DTSBR902
00673      ELSE                                                         DTSBR902
00674          MOVE R902-FEIN TO U30-FEIN-DISP.                         DTSBR902
00675                                                                   DTSBR902
00676      IF WS-RATED-88                                               DTSBR902
00677         MOVE R902-TAX-WAGE-BASE TO U30-TAX-WAGE-BASE              DTSBR902
00678         MOVE R902-UI-RATE           TO L056-RATE                  DTSBR902
00679         SET L056-DISP1-RIGHT-PCT-88 TO TRUE                       DTSBR902
00680         PERFORM S056-RATE-DISPLAY   THRU S056-EXIT                DTSBR902
00681         MOVE L056-DISP-RATE         TO U30-UI-RATE                DTSBR902
00682                                     U30-UI-TAX-RATE-RATED         DTSBR902
00683         MOVE '  %'  TO U30-PCENT                                  DTSBR902
00684      ELSE                                                         DTSBR902
00685          MOVE 'SI'   TO U30-UI-RATE                               DTSBR902
00686          MOVE SPACES TO U30-PCENT                                 DTSBR902
00687          MOVE SPACES TO U30-UI-TAX-RATE-SI                        DTSBR902
00688          MOVE SPACES TO U30-TAX-WAGE-BASE-X                       DTSBR902
00689          MOVE ZEROS  TO U30-NONTAX-WAGE                           DTSBR902
00690                         U30-TAX-WAGE                              DTSBR902
00691                         U30-CONTRIB-DUE                           DTSBR902
00692                         U30-INTREST-DUE                           DTSBR902
00693                         U30-PENALTY-DUE                           DTSBR902
00694                         U30-TOTAL-AMT                             DTSBR902
00695      END-IF.                                                      DTSBR902
00696                                                                   DTSBR902
00697      MOVE R902-FMT-LINE (1) TO U30-FMT-LINE-1.                    DTSBR902
00698      MOVE R902-FMT-LINE (2) TO U30-FMT-LINE-2.                    DTSBR902
00699      MOVE R902-FMT-LINE (3) TO U30-FMT-LINE-3.                    DTSBR902
00700      MOVE R902-FMT-LINE (4) TO U30-FMT-LINE-4.                    DTSBR902
00701      MOVE R902-FMT-LINE (5) TO U30-FMT-LINE-5.                    DTSBR902
00702                                                                   DTSBR902
00703      PERFORM P4030-GENERATE-UC30-REPORT THRU P4030-EXIT.          DTSBR902
00704                                                                   DTSBR902
00705  P4000-EXIT.                                                      DTSBR902
00706      EXIT.                                                        DTSBR902
00707                                                                   DTSBR902
00708  P4010-BREAK-USERID.                                              DTSBR902
00709                                                                   DTSBR902
00710        IF R902-DAILY-OP-ID NOT =  WS-DAILY-OP-ID-HOLD1            DTSBR902
00711           MOVE R902-DAILY-OP-ID        TO WS-DAILY-OP-ID-HOLD1    DTSBR902
00712           PERFORM P4020-OPID-BREAK           THRU P4020-EXIT      DTSBR902
00713           PERFORM P4030-GENERATE-UC30-REPORT THRU P4030-EXIT      DTSBR902
00714        END-IF.                                                    DTSBR902
00715                                                                   DTSBR902
00716  P4010-EXIT.                                                      DTSBR902
00717      EXIT.                                                        DTSBR902
00718                                                                   DTSBR902
00719  P4020-OPID-BREAK.                                                DTSBR902
00720                                                                   DTSBR902
00721      MOVE R902-DAILY-OP-ID TO L082-OP-ID                          DTSBR902
00722                                                                   DTSBR902
00723      PERFORM S082-OP-ID-INFO THRU S082-EXIT                       DTSBR902
00724      MOVE L082-NAME          TO L071-NAM                          DTSBR902
00725      MOVE 2                  TO L071-NAME-FORMAT                  DTSBR902
00726      PERFORM S071-DESLASH-NAME THRU S071-EXIT                     DTSBR902
00727      MOVE L071-NAM           TO L009-DATA                         DTSBR902
00728                                                                   DTSBR902
00729      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR902
00730      MOVE L009-DATA          TO WS-OPR-NAME                       DTSBR902
00731      MOVE L082-UNIT-NAME     TO L009-DATA                         DTSBR902
00732                                                                   DTSBR902
00733      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR902
00734      MOVE L009-DATA TO WS-OPR-UNIT-NAME.                          DTSBR902
00735                                                                   DTSBR902
00736      MOVE SPACES            TO U30-LINE-1                         DTSBR902
00737                                U30-LINE-2                         DTSBR902
00738                                U30-LINE-3                         DTSBR902
00739                                U30-LINE-4                         DTSBR902
00740                                U30-LINE-5.                        DTSBR902
00741      MOVE WS-BREAK-LINE1    TO U30-FMT-LINE-1.                    DTSBR902
00742      MOVE WS-BREAK-LINE2    TO U30-FMT-LINE-2.                    DTSBR902
00743      MOVE WRK-OPR-NAME      TO U30-FMT-LINE-3.                    DTSBR902
00744      MOVE WRK-OPR-UNIT-NAME TO U30-FMT-LINE-4.                    DTSBR902
00745      MOVE WS-BREAK-LINE1    TO U30-FMT-LINE-5.                    DTSBR902
00746                                                                   DTSBR902
00747  P4020-EXIT.                                                      DTSBR902
00748      EXIT.                                                        DTSBR902
00749                                                                   DTSBR902
00750  P4030-GENERATE-UC30-REPORT.                                      DTSBR902
00751                                                                   DTSBR902
00752      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00753      WRITE UC30-REPORT3 FROM U30-LINE-1 AFTER 8.                  DTSBR902
00754      WRITE UC30-REPORT3 FROM U30-LINE-2 AFTER 1.                  DTSBR902
00755      WRITE UC30-REPORT3 FROM U30-LINE-3 AFTER 1.                  DTSBR902
00756      WRITE UC30-REPORT3 FROM U30-LINE-4 AFTER 1.                  DTSBR902
00757      WRITE UC30-REPORT3 FROM U30-LINE-5 AFTER 1.                  DTSBR902
00758                                                                   DTSBR902
00759      IF WS-RATED-88                                               DTSBR902
00760         WRITE UC30-REPORT3 FROM U30-LINE-8R AFTER 13              DTSBR902
00761 *RW1                                                              DTSBR902
00762         MOVE SPACES  TO U30-UI-TAX-RATE-RATED                     DTSBR902
00763 *RW2                                                              DTSBR902
00764         WRITE UC30-REPORT3 FROM U30-LINE-11 AFTER 4               DTSBR902
00765      ELSE                                                         DTSBR902
00766         WRITE UC30-REPORT3 FROM U30-LINE-6 AFTER 10               DTSBR902
00767         WRITE UC30-REPORT3 FROM U30-LINE-7 AFTER 2                DTSBR902
00768         WRITE UC30-REPORT3 FROM U30-LINE-8 AFTER 1                DTSBR902
00769         WRITE UC30-REPORT3 FROM U30-LINE-9 AFTER 2                DTSBR902
00770         WRITE UC30-REPORT3 FROM U30-LINE-10 AFTER 1               DTSBR902
00771         WRITE UC30-REPORT3 FROM U30-LINE-11 AFTER 1               DTSBR902
00772         WRITE UC30-REPORT3 FROM U30-LINE-12 AFTER 2.              DTSBR902
00773                                                                   DTSBR902
00774      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00775      WRITE UC30-REPORT3 FROM U30-LINE-1 AFTER 8.                  DTSBR902
00776      WRITE UC30-REPORT3 FROM U30-LINE-2 AFTER 1.                  DTSBR902
00777      WRITE UC30-REPORT3 FROM U30-LINE-3 AFTER 1.                  DTSBR902
00778      WRITE UC30-REPORT3 FROM U30-LINE-4 AFTER 1.                  DTSBR902
00779      WRITE UC30-REPORT3 FROM U30-LINE-5 AFTER 1.                  DTSBR902
00780      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00781      WRITE UC30-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR902
00782                                                                   DTSBR902
00783  P4030-EXIT.                                                      DTSBR902
00784      EXIT.                                                        DTSBR902
00785                                                                   DTSBR902
00786  T1000-TERMINATE.                                                 DTSBR902
00787                                                                   DTSBR902
00788      CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3.                         DTSBR902
00789                                                                   DTSBR902
00790  T1000-EXIT.                                                      DTSBR902
00791      EXIT.                                                        DTSBR902
00792                                                                   DTSBR902
00793  S001-DATE.                                                       DTSBR902
00794                                                                   DTSBR902
00795      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR902
00796                                                                   DTSBR902
00797  S001-EXIT.                                                       DTSBR902
00798      EXIT.                                                        DTSBR902
00799                                                                   DTSBR902
00800  S002-DATE.                                                       DTSBR902
00801                                                                   DTSBR902
00802      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR902
00803                                                                   DTSBR902
00804  S002-EXIT.                                                       DTSBR902
00805      EXIT.                                                        DTSBR902
00806                                                                   DTSBR902
00807  S004-DATE.                                                       DTSBR902
00808                                                                   DTSBR902
00809      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR902
00810                                                                   DTSBR902
00811  S004-EXIT.                                                       DTSBR902
00812      EXIT.                                                        DTSBR902
00813                                                                   DTSBR902
00814  S008-YRQ-ALPHA.                                                  DTSBR902
00815                                                                   DTSBR902
00816      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR902
00817                                                                   DTSBR902
00818  S008-EXIT.                                                       DTSBR902
00819      EXIT.                                                        DTSBR902
00820                                                                   DTSBR902
00821  S009-UPPER-CASE-TRANSLATE.                                       DTSBR902
00822                                                                   DTSBR902
00823      CALL 'DTSBU009' USING L009-LINK-AREA.                        DTSBR902
00824                                                                   DTSBR902
00825  S009-EXIT.                                                       DTSBR902
00826      EXIT.                                                        DTSBR902
00827                                                                   DTSBR902
00828  S056-RATE-DISPLAY.                                               DTSBR902
00829                                                                   DTSBR902
00830      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR902
00831                                                                   DTSBR902
00832  S056-EXIT.                                                       DTSBR902
00833      EXIT.                                                        DTSBR902
00834                                                                   DTSBR902
00835  S071-DESLASH-NAME.                                               DTSBR902
00836                                                                   DTSBR902
00837      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR902
00838                                                                   DTSBR902
00839  S071-EXIT.                                                       DTSBR902
00840      EXIT.                                                        DTSBR902
00841                                                                   DTSBR902
00842  S082-OP-ID-INFO.                                                 DTSBR902
00843                                                                   DTSBR902
00844      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR902
00845                                                                   DTSBR902
00846  S082-EXIT.                                                       DTSBR902
00847      EXIT.                                                        DTSBR902
00848                                                                   DTSBR902
00849 *S109-SUR-RATE.                                                   DTSBR902
00850 *                                                                 DTSBR902
00851 *    CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBR902
00852 *                                                                 DTSBR902
00853 *S109-EXIT.                                                       DTSBR902
00854      EXIT.                                                        DTSBR902
00855                                                                   DTSBR902
00856  S119-AGENCY-FACTS.                                               DTSBR902
00857                                                                   DTSBR902
00858      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR902
00859                                                                   DTSBR902
00860  S119-EXIT.                                                       DTSBR902
00861      EXIT.                                                        DTSBR902
00862                                                                   DTSBR902
00863  S143-BUILD-STRING.                                               DTSBR902
00864                                                                   DTSBR902
00865      CALL 'DTSBU143' USING L143-LINK-AREA.                        DTSBR902
00866                                                                   DTSBR902
00867  S143-EXIT.                                                       DTSBR902
00868      EXIT.                                                        DTSBR902
00869                                                                   DTSBR902
00870 *S999-ABEND.                                                      DTSBR902
00871 *                                                                 DTSBR902
00872 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR902
00873 *                                                                 DTSBR902
00874 *S999-EXIT.                                                       DTSBR902
00875 *    EXIT.                                                        DTSBR902
00876                                                                   DTSBR902
