00001  IDENTIFICATION DIVISION.                                         03/24/08
00002  PROGRAM-ID.             DTSBR910.                                DTSBR910
00003  AUTHOR.                 TRW.                                        LV007
00004  DATE-WRITTEN.           NOVEMBER 2001.                           DTSBR910
00005  DATE-COMPILED.                                                   DTSBR910
00006      SKIP3                                                        DTSBR910
00007 *****                                                             DTSBR910
00008 *    PRODUCED DAILY THROUGH REGISTRATION PROCESS AND IN           DTSBR910
00009 *    ANNUAL MASS MAILING.                                         DTSBR910
00010 *                                                                 DTSBR910
00011 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR910
00012 *                       DTSBE352 WHICH UPDATES DTSIR910           DTSBR910
00013 *                       DTSBR910 READS DTSIR910 RECORDS.          DTSBR910
00014 *                                                                 DTSBR910
00015 *    FUNCTION:  PRINT ANNUAL CONTRIBUTION AND WAGE REPORTS UC-30H DTSBR910
00016 *                                                                 DTSBR910
00017 *                                                                 DTSBR910
00018 *    MODIFICATION HISTORY:                                        DTSBR910
00019 *                                                                 DTSBR910
00020 * 11-10-2001 MODIFIED FROM DTSBR902                               DTSBR910
00021 *            REFERENCE RFP HOUSEHOLD        AUTHOR OF CHANGE - GD DTSBR910
00022 *                                                                 DTSBR910
00023 *                                                                 DTSBR910
00024 * 04-13-06   MODIFIED  TO PRINT UC30 ON A RPT910R2 FILE IF THE    DTSBR910
00025 *            DAILY INPUT YEAR-QUARTER IS EQUAL OR GREATER THAN    DTSBR910
00026 *            1ST JANUARY 2006. THE UC30 FORM LINE 6 CONTAIN A     DTSBR910
00027 *            NEW ADMINISTRATIVE ASSESSMENT DUE INSTRUCTION TO     DTSBR910
00028 *            CALCULATE THE ADMINISTRATION FEE MULTIPLY TAXABLE    DTSBR910
00029 *            WAGES PAID BY 0.02%.                                 DTSBR910
00030 *            REFERENCE RFP ##                     PROGRAMMER: RW1 DTSBR910
00031 *                                                                 DTSBR910
00032 *                                                                 DTSBR910
00033 * 03-24-2008 FIXED BUG TO PRINT THE CORRECT UC30H FORM            DTSBR910
00034 *            REFERENCE RFP HOUSEHOLD        AUTHOR OF CHANGE - ZL1DTSBR910
00035 *                                                                 DTSBR910
00036 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR910
00037 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR910
00038 *            REFERENCE RFP #****                   PROGRAMMER: XXXDTSBR910
00039 *                                                                 DTSBR910
00040 *                                                                 DTSBR910
00041 *    DESCRIPTION:                                                 DTSBR910
00042 *                                                                 DTSBR910
00043 *        THIS MODULE PRINTS THE ANNUAL WAGE REPORT, BOTH FROM     DTSBR910
00044 *        DAILY BATCH PROCESSES AND THE ANNUAL MASS MAILING,       DTSBR910
00045 *        FOR HOUSEHOLD EMPLOYERS FILING ANNUALLY.                 DTSBR910
00046 *                                                                 DTSBR910
00047 *    RECORDS READ:                                                DTSBR910
00048 *                                                                 DTSBR910
00049 *        NONE.                                                    DTSBR910
00050 *                                                                 DTSBR910
00051 *                                                                 DTSBR910
00052 *    PRINTED OUTPUTS:                                             DTSBR910
00053 *                                                                 DTSBR910
00054 *        910R1  ANNUAL WAGE REPORT (UC-30H)                       DTSBR910
00055 *        910R2  ANNUAL WAGE REPORT (UC-30H) AFTER 01/01/2006      DTSBR910
00056 *                                                                 DTSBR910
00057 *                                                                 DTSBR910
00058 *    RECORDS WRITTEN:                                             DTSBR910
00059 *                                                                 DTSBR910
00060 *        NONE.                                                    DTSBR910
00061 *                                                                 DTSBR910
00062 *                                                                 DTSBR910
00063 *    MODULES CALLED:                                              DTSBR910
00064 *                                                                 DTSBR910
00065 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR910
00066 *        DTSBU002 DATE EDIT/CONVERSION MODULE                     DTSBR910
00067 *        DTSBU004 DATE EDIT/CONVERSION MODULE                     DTSBR910
00068 *        DTSBU008 QUARTER ALPHA CONVERSION MODULE                 DTSBR910
00069 *        DTSBU009 TRANSLATE TO UPPER CASE MODULE                  DTSBR910
00070 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR910
00071 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR910
00072 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR910
00073 *        DTSBU109 AFT RATE LOOKUP MODULE                          DTSBR910
00074 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR910
00075 *        DTSBU143 CHARACTER STRING BUILDING MODULE                DTSBR910
00076 *                                                                 DTSBR910
00077 *                                                                 DTSBR910
00078 *****                                                             DTSBR910
00079      EJECT                                                        DTSBR910
00080  ENVIRONMENT DIVISION.                                            DTSBR910
00081                                                                   DTSBR910
00082  CONFIGURATION SECTION.                                           DTSBR910
00083  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR910
00084                                                                   DTSBR910
00085  INPUT-OUTPUT SECTION.                                            DTSBR910
00086                                                                   DTSBR910
00087  FILE-CONTROL.                                                    DTSBR910
00088      SELECT PRT-FILE1 ASSIGN TO DTS910F1.                         DTSBR910
00089      SELECT PRT-FILE2 ASSIGN TO RPT910R1.                         DTSBR910
00090      SELECT PRT-FILE3 ASSIGN TO RPT910R2.                         DTSBR910
00091                                                                   DTSBR910
00092  DATA DIVISION.                                                   DTSBR910
00093                                                                   DTSBR910
00094  FILE SECTION.                                                    DTSBR910
00095                                                                   DTSBR910
00096  FD  PRT-FILE1                                                    DTSBR910
00097      RECORDING MODE IS F.                                         DTSBR910
00098  01  UC30H-DATA                          PIC  X(490).             DTSBR910
00099                                                                   DTSBR910
00100  FD  PRT-FILE2                                                    DTSBR910
00101      RECORDING MODE IS F.                                         DTSBR910
00102  01  UC30H-REPORT                        PIC  X(140).             DTSBR910
00103                                                                   DTSBR910
00104  FD  PRT-FILE3                                                    DTSBR910
00105      RECORDING MODE IS F.                                         DTSBR910
00106  01  UC30H-REPORT3                       PIC  X(140).             DTSBR910
00107                                                                   DTSBR910
00108  WORKING-STORAGE SECTION.                                         DTSBR910
001085 77  PAN-VALET PICTURE X(24) VALUE '007DTSBR910  03/24/08'.       DTSBR910
00109  01  WRK-TABLE-AREA.                                              DTSBR910
00110      05  TBL-SUB                  PIC S9(04) COMP.                DTSBR910
00111      05  TBL-CNT                  PIC S9(04) COMP VALUE +0.       DTSBR910
00112      05  SSN-SUB                  PIC S9(04) COMP.                DTSBR910
00113                                                                   DTSBR910
00114  01  WRK-SSN-TABLE.                                               DTSBR910
00115      05  WRK-SSN    OCCURS 250 TIMES   PIC S9(09) COMP-3.         DTSBR910
00116                                                                   DTSBR910
00117  01  WRK-AREA.                                                    DTSBR910
00118      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +910.DTSBR910
00119      05  FIRST-TIME-IND                  PIC  X(01)  VALUE 'Y'.   DTSBR910
00120      05  WS-DAILY-OP-ID-HOLD             PIC  X(08)  VALUE SPACES.DTSBR910
00121 *RW1                                                              DTSBR910
00122      05  FIRST-TIME-LESS-2006-IND        PIC  X(01)  VALUE 'Y'.   DTSBR910
00123      05  FIRST-TIME-NOT-LESS-2006-IND    PIC  X(01)  VALUE 'Y'.   DTSBR910
00124      05  WS-DAILY-OP-ID-HOLD1            PIC  X(08)  VALUE SPACES.DTSBR910
00125      05  UC30-NEW-YEAR                   PIC  9(04)  VALUE 2006.  DTSBR910
00126 *RW2                                                              DTSBR910
00127      05  WS-BLANK-LINE                   PIC  X(133) VALUE SPACES.DTSBR910
00128      05  WS-YRQ-UNPACK                   PIC  9(05)  VALUE ZEROS. DTSBR910
00129      05  FILLER REDEFINES WS-YRQ-UNPACK.                          DTSBR910
00130          10  WS-YEAR                     PIC  9(04).              DTSBR910
00131          10  WS-QTR                      PIC  9(01).              DTSBR910
00132      05  WS-WRK-SSN                      PIC  9(09)  VALUE ZEROS. DTSBR910
00133      05  WS-WRK-SSNX REDEFINES WS-WRK-SSN.                        DTSBR910
00134          10  WS-SSN1                     PIC  9(03).              DTSBR910
00135          10  WS-SSN2                     PIC  9(02).              DTSBR910
00136          10  WS-SSN3                     PIC  9(04).              DTSBR910
00137      05  WS-RPT-SSN.                                              DTSBR910
00138          10 RPT-SSN1                     PIC  9(03).              DTSBR910
00139          10 FILLER                       PIC  X VALUE '-'.        DTSBR910
00140          10 RPT-SSN2                     PIC  9(02).              DTSBR910
00141          10 FILLER                       PIC  X VALUE '-'.        DTSBR910
00142          10 RPT-SSN3                     PIC  9(04).              DTSBR910
00143      05  WS-BREAK-LINE1                  PIC  X(40) VALUE         DTSBR910
00144                 '*********************************     '.         DTSBR910
00145      05  WS-BREAK-LINE2                  PIC  X(40) VALUE         DTSBR910
00146                 '* ROUTE FOLLOWING FORMS TO:     *       '.       DTSBR910
00147                                                                   DTSBR910
00148      05  WRK-OPR-NAME.                                            DTSBR910
00149          10  FILLER                      PIC  X(02) VALUE '* '.   DTSBR910
00150          10  WS-OPR-NAME                 PIC  X(30).              DTSBR910
00151          10  FILLER                      PIC  X(01) VALUE '*'.    DTSBR910
00152      05  WRK-OPR-UNIT-NAME.                                       DTSBR910
00153          10  FILLER                      PIC  X(02) VALUE '* '.   DTSBR910
00154          10  WS-OPR-UNIT-NAME            PIC  X(30).              DTSBR910
00155          10  FILLER                      PIC  X(01) VALUE '*'.    DTSBR910
00156                                                                   DTSBR910
00157      05  WS-WAIVER-MSG-INIT              PIC  X(115) VALUE SPACES.DTSBR910
00158      05  WS-WAIVER-MSG-TBL REDEFINES WS-WAIVER-MSG-INIT.          DTSBR910
00159          10  WS-WAIVER-MSG-LINE OCCURS 5 TIMES  PIC X(23).        DTSBR910
00160      05  WS-SNGL-WAIVER-MSG-INIT.                                 DTSBR910
00161          10  FILLER                  PIC  X(23)                   DTSBR910
00162                 VALUE 'REPORT AND PAYMENT FOR '.                  DTSBR910
00163          10  WS-SNGL-WAIVER-YRQ-DISP PIC  99/9.                   DTSBR910
00164          10  FILLER                  PIC  X(22)                   DTSBR910
00165                 VALUE ' MUST BE RETURNED  BY '.                   DTSBR910
00166          10  WS-SNGL-WAIVER-DATE-DISP PIC X(08).                  DTSBR910
00167          10  FILLER                  PIC  X(32)                   DTSBR910
00168                 VALUE ' TO AVOID   PENALTY AND INTEREST'.         DTSBR910
00169          10  FILLER                  PIC  X(11)                   DTSBR910
00170                 VALUE '   CHARGES.'.                              DTSBR910
00171          10  FILLER                  PIC  X(15)                   DTSBR910
00172                 VALUE SPACES.                                     DTSBR910
00173      05  WS-MLTPL-WAIVER-MSG-INIT.                                DTSBR910
00174          10  FILLER                  PIC  X(27)                   DTSBR910
00175                 VALUE 'REPORTS AND PAYMENTS   FOR '.              DTSBR910
00176          10  WS-MLTPL-WAIVER-YRQ1-DISP                            DTSBR910
00177                                      PIC  99/9.                   DTSBR910
00178          10  FILLER                  PIC  X(03)                   DTSBR910
00179                 VALUE ' - '.                                      DTSBR910
00180          10  WS-MLTPL-WAIVER-YRQ2-DISP                            DTSBR910
00181                                      PIC  99/9.                   DTSBR910
00182          10  FILLER                  PIC  X(23)                   DTSBR910
00183                 VALUE ' MUST   BE RETURNED BY '.                  DTSBR910
00184          10  WS-MLTPL-WAIVER-DATE-DISP                            DTSBR910
00185                                      PIC  X(08).                  DTSBR910
00186          10  FILLER                  PIC  X(40)                   DTSBR910
00187                 VALUE 'TO AVOID PENALTY AND   INTEREST CHARGES.'. DTSBR910
00188          10  FILLER                  PIC  X(06)                   DTSBR910
00189                 VALUE SPACES.                                     DTSBR910
00190                                                                   DTSBR910
00191      05  TEMP-EMP-NO                 PIC  9(06).                  DTSBR910
00192          88  TEMP-EMP-PRINT-88          VALUE 153333              DTSBR910
00193                                               136679              DTSBR910
00194                                               063302              DTSBR910
00195                                               153001              DTSBR910
00196                                               200100              DTSBR910
00197                                               076805              DTSBR910
00198                                               148664              DTSBR910
00199                                               000001 THRU 010000  DTSBR910
00200                                               089000 THRU 100000. DTSBR910
00201      EJECT                                                        DTSBR910
00202 **+INCLUDE DTSX910W                                               DTSBR910
00203  ++INCLUDE DTSXL910                                               DTSBR910
00204      EJECT                                                        DTSBR910
00205  01  L001-LINK-AREA.                                              DTSBR910
00206  ++INCLUDE DTSIL001                                               DTSBR910
00207      EJECT                                                        DTSBR910
00208  01  L002-LINK-AREA.                                              DTSBR910
00209  ++INCLUDE DTSIL002                                               DTSBR910
00210      EJECT                                                        DTSBR910
00211  01  L004-LINK-AREA.                                              DTSBR910
00212  ++INCLUDE DTSIL004                                               DTSBR910
00213      EJECT                                                        DTSBR910
00214  01  L008-LINK-AREA.                                              DTSBR910
00215  ++INCLUDE DTSIL008                                               DTSBR910
00216      EJECT                                                        DTSBR910
00217  01  L009-LINK-AREA.                                              DTSBR910
00218  ++INCLUDE DTSIL009                                               DTSBR910
00219      EJECT                                                        DTSBR910
00220  01  L056-LINK-AREA.                                              DTSBR910
00221  ++INCLUDE DTSIL056                                               DTSBR910
00222      EJECT                                                        DTSBR910
00223  01  L071-LINK-AREA.                                              DTSBR910
00224  ++INCLUDE DTSIL071                                               DTSBR910
00225      EJECT                                                        DTSBR910
00226  01  L082-LINK-AREA.                                              DTSBR910
00227  ++INCLUDE DTSIL082                                               DTSBR910
00228      EJECT                                                        DTSBR910
00229  01  L119-LINK-AREA.                                              DTSBR910
00230  ++INCLUDE DTSIL119                                               DTSBR910
00231      EJECT                                                        DTSBR910
00232  01  L143-LINK-AREA.                                              DTSBR910
00233  ++INCLUDE DTSIL143                                               DTSBR910
00234      EJECT                                                        DTSBR910
00235                                                                   DTSBR910
00236  01  ROUTE-INFO-AREA.                                             DTSBR910
00237      05  RTE-LINE-1.                                              DTSBR910
00238          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00239          10  FILLER                  PIC  X(33)                   DTSBR910
00240                 VALUE '************ DTS910R1  **********'.        DTSBR910
00241      05  RTE-LINE-1A.                                             DTSBR910
00242          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00243          10  FILLER                  PIC  X(33)                   DTSBR910
00244                 VALUE '************ DTS910R2  **********'.        DTSBR910
00245      05  RTE-LINE-2.                                              DTSBR910
00246          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00247          10  FILLER                  PIC  X(13)                   DTSBR910
00248                 VALUE '**           '.                            DTSBR910
00249          10  RTE-SYS-DATE            PIC  X(08)  VALUE SPACES.    DTSBR910
00250          10  FILLER                  PIC  X(13)                   DTSBR910
00251                 VALUE '          ** '.                            DTSBR910
00252      05  RTE-LINE-3.                                              DTSBR910
00253          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00254          10  FILLER                  PIC  X(33)                   DTSBR910
00255                 VALUE '************ UC30-OLD ***********'.        DTSBR910
00256      05  RTE-LINE-4.                                              DTSBR910
00257          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00258          10  FILLER                  PIC  X(33)                   DTSBR910
00259                 VALUE '************ UC30-NEW ***********'.        DTSBR910
00260                                                                   DTSBR910
00261  01  UC30H-REPORT-DETAIL1.                                        DTSBR910
00262      05  U30H-LINE-1.                                             DTSBR910
00263          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR910
00264          10  U30H-EMP-NO             PIC  999B999.                DTSBR910
00265          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR910
00266          10  U30H-PRI-NAME-FIRST4    PIC  X(4)   VALUE SPACES.    DTSBR910
00267          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR910
00268          10  U30H-FMT-LINE-1         PIC  X(40)  VALUE SPACES.    DTSBR910
00269          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00270          10  U30H-FEIN-DISP          PIC  99B9999999.             DTSBR910
00271          10  U30H-FEIN-DISP-X                                     DTSBR910
00272              REDEFINES U30H-FEIN-DISP PIC X(10).                  DTSBR910
00273          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR910
00274                                                                   DTSBR910
00275      05  U30H-LINE-2.                                             DTSBR910
00276          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00277          10  U30H-FMT-LINE-2         PIC  X(40)  VALUE SPACES.    DTSBR910
00278                                                                   DTSBR910
00279      05  U30H-LINE-3.                                             DTSBR910
00280          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR910
00281          10  U30H-UI-RATE            PIC  X(06)  VALUE SPACES.    DTSBR910
00282          10  U30H-PCENT              PIC  X(03)  VALUE '  %'.     DTSBR910
00283          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR910
00284          10  U30H-FMT-LINE-3         PIC  X(40)  VALUE SPACES.    DTSBR910
00285          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00286          10  U30H-RPT-QTR-END-DISP   PIC  X(18).                  DTSBR910
00287          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR910
00288                                                                   DTSBR910
00289      05  U30H-LINE-4.                                             DTSBR910
00290          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR910
00291          10  U30H-FMT-LINE-4         PIC  X(40).                  DTSBR910
00292                                                                   DTSBR910
00293      05  U30H-LINE-5.                                             DTSBR910
00294          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR910
00295          10  U30H-TAX-WAGE-BASE      PIC  ZZZZZZ9.99.             DTSBR910
00296          10  U30H-TAX-WAGE-BASE-X REDEFINES                       DTSBR910
00297              U30H-TAX-WAGE-BASE      PIC  X(10).                  DTSBR910
00298          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR910
00299          10  U30H-FMT-LINE-5         PIC  X(40).                  DTSBR910
00300          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00301          10  U30H-RPT-DUE-DATE-DISP  PIC  X(18).                  DTSBR910
00302          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR910
00303                                                                   DTSBR910
00304      05  U30H-LINE-5A1.                                           DTSBR910
00305          10  FILLER                  PIC  X(53)  VALUE SPACES.    DTSBR910
00306          10  U30H-YEAR               PIC  X(04).                  DTSBR910
00307                                                                   DTSBR910
00308      05  U30H-LINE-5A.                                            DTSBR910
00309          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00310          10  U30H-SSN-1              PIC  X(11).                  DTSBR910
00311                                                                   DTSBR910
00312      05  U30H-LINE-5B.                                            DTSBR910
00313          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00314          10  U30H-SSN-2              PIC  X(11).                  DTSBR910
00315                                                                   DTSBR910
00316      05  U30H-LINE-5C.                                            DTSBR910
00317          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00318          10  U30H-SSN-3              PIC  X(11).                  DTSBR910
00319                                                                   DTSBR910
00320      05  U30H-LINE-5D.                                            DTSBR910
00321          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00322          10  U30H-SSN-4              PIC  X(11).                  DTSBR910
00323                                                                   DTSBR910
00324      05  U30H-LINE-5E.                                            DTSBR910
00325          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00326          10  U30H-SSN-5              PIC  X(11).                  DTSBR910
00327                                                                   DTSBR910
00328      05  U30H-LINE-5F.                                            DTSBR910
00329          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00330          10  U30H-SSN-6              PIC  X(11).                  DTSBR910
00331                                                                   DTSBR910
00332      05  U30H-LINE-5G.                                            DTSBR910
00333          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00334          10  U30H-SSN-7              PIC  X(11).                  DTSBR910
00335                                                                   DTSBR910
00336      05  U30H-LINE-5H.                                            DTSBR910
00337          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00338          10  U30H-SSN-8              PIC  X(11).                  DTSBR910
00339                                                                   DTSBR910
00340      05  U30H-LINE-5I.                                            DTSBR910
00341          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00342          10  U30H-SSN-9              PIC  X(11).                  DTSBR910
00343                                                                   DTSBR910
00344      05  U30H-LINE-5J.                                            DTSBR910
00345          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR910
00346          10  U30H-SSN-10             PIC  X(11).                  DTSBR910
00347                                                                   DTSBR910
00348      05  U30H-LINE-6.                                             DTSBR910
00349          10  FILLER                  PIC  X(75)  VALUE SPACES.    DTSBR910
00350          10  U30H-NONTAX-WAGE        PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00351                                                                   DTSBR910
00352      05  U30H-LINE-7.                                             DTSBR910
00353          10  FILLER                  PIC  X(75)  VALUE SPACES.    DTSBR910
00354          10  U30H-TAX-WAGE           PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00355                                                                   DTSBR910
00356      05  U30H-LINE-8.                                             DTSBR910
00357          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR910
00358          10  U30H-UI-TAX-RATE-SI     PIC  X(6)   VALUE SPACES.    DTSBR910
00359          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR910
00360          10  U30H-CONTRIB-DUE        PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00361                                                                   DTSBR910
00362      05  U30H-LINE-8R.                                            DTSBR910
00363          10  FILLER                  PIC  X(37)  VALUE SPACES.    DTSBR910
00364          10  U30H-UI-TAX-RATE-RATED  PIC  X(6)   VALUE SPACES.    DTSBR910
00365                                                                   DTSBR910
00366      05  U30H-LINE-9.                                             DTSBR910
00367          10  FILLER                  PIC  X(58)  VALUE SPACES.    DTSBR910
00368          10  U30H-INTREST-DUE        PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00369                                                                   DTSBR910
00370      05  U30H-LINE-10.                                            DTSBR910
00371          10  FILLER                  PIC  X(58)  VALUE SPACES.    DTSBR910
00372          10  U30H-PENALTY-DUE        PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00373                                                                   DTSBR910
00374      05  U30H-LINE-11.                                            DTSBR910
00375          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR910
00376          10  U30H-CREDIT-AMT         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00377                                                                   DTSBR910
00378      05  U30H-LINE-12.                                            DTSBR910
00379          10  FILLER                  PIC  X(75)  VALUE SPACES.    DTSBR910
00380          10  U30H-TOTAL-AMT          PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00381                                                                   DTSBR910
00382                                                                   DTSBR910
00383  01  UC30H-DATA-FILE.                                             DTSBR910
00384          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR910
00385          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00386          10  Q30-EMP-NO              PIC  999B999.                DTSBR910
00387          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00388          10  Q30-PRI-NAME-FIRST4     PIC  X(4)   VALUE SPACES.    DTSBR910
00389          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00390          10  Q30-FMT-LINE-1          PIC  X(36)  VALUE SPACES.    DTSBR910
00391          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00392          10  Q30-FEIN-DISP           PIC  99B9999999.             DTSBR910
00393          10  Q30-FEIN-DISP-X                                      DTSBR910
00394              REDEFINES Q30-FEIN-DISP PIC  X(10).                  DTSBR910
00395          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00396          10  Q30-FMT-LINE-2          PIC  X(36)  VALUE SPACES.    DTSBR910
00397          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00398          10  Q30-UI-RATE             PIC  X(06)  VALUE SPACES.    DTSBR910
00399          10  Q30-PCENT               PIC  X(03)  VALUE '  %'.     DTSBR910
00400          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00401          10  Q30-FMT-LINE-3          PIC  X(36)  VALUE SPACES.    DTSBR910
00402          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00403          10  Q30-RPT-QTR-END-DISP    PIC  X(18).                  DTSBR910
00404          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00405          10  Q30-FMT-LINE-4          PIC  X(36).                  DTSBR910
00406          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00407          10  Q30-TAX-WAGE-BASE       PIC  ZZZZZZ9.99.             DTSBR910
00408          10  Q30-TAX-WAGE-BASE-X REDEFINES                        DTSBR910
00409              Q30-TAX-WAGE-BASE       PIC  X(10).                  DTSBR910
00410          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00411          10  Q30-FMT-LINE-5          PIC  X(36).                  DTSBR910
00412          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00413          10  Q30-RPT-DUE-DATE-DISP   PIC  X(18).                  DTSBR910
00414          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00415          10  Q30-NONTAX-WAGE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00416          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00417          10  Q30-TAX-WAGE            PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00418          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00419          10  Q30-UI-TAX-RATE-SI      PIC  X(6)   VALUE SPACES.    DTSBR910
00420          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00421          10  Q30-CONTRIB-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00422          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00423          10  Q30-INTREST-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00424          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00425          10  Q30-PENALTY-DUE         PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00426          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00427          10  Q30-CREDIT-AMT          PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00428          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00429          10  Q30-TOTAL-AMT           PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR910
00430          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00431          10  Q30-YEAR                PIC  X(04).                  DTSBR910
00432          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00433          10  Q30-SSN-1               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00434          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00435          10  Q30-SSN-2               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00436          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00437          10  Q30-SSN-3               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00438          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00439          10  Q30-SSN-4               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00440          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00441          10  Q30-SSN-5               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00442          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00443          10  Q30-SSN-6               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00444          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00445          10  Q30-SSN-7               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00446          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00447          10  Q30-SSN-8               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00448          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00449          10  Q30-SSN-9               PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00450          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00451          10  Q30-SSN-10              PIC  9(09) BLANK WHEN ZERO.  DTSBR910
00452          10  FILLER                  PIC  X(01)  VALUE ';'.       DTSBR910
00453                                                                   DTSBR910
00454      EJECT                                                        DTSBR910
00455  LINKAGE SECTION.                                                 DTSBR910
00456                                                                   DTSBR910
00457  01  LRCM-LINK-AREA.                                              DTSBR910
00458  ++INCLUDE DTSILRCM                                               DTSBR910
00459      EJECT                                                        DTSBR910
00460  01  R910-REC.                                                    DTSBR910
00461  ++INCLUDE DTSIR910                                               DTSBR910
00462      EJECT                                                        DTSBR910
00463  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR910
00464                           R910-REC.                               DTSBR910
00465                                                                   DTSBR910
00466      IF FIRST-TIME-IND = 'Y'                                      DTSBR910
00467          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR910
00468          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR910
00469 *                                                                 DTSBR910
00470 ****** I1100 BLANK FORMS WILL PRINT BLANK COPIES OF THE           DTSBR910
00471 *       HOUSEHOLD EMPLOYER WORKSHEET UC30HW.                      DTSBR910
00472 *                                                                 DTSBR910
00473 *                                                                 DTSBR910
00474 *    PERFORM I1100-BLANK-FORMS THRU I1100-EXIT 3000 TIMES.        DTSBR910
00475 *    CLOSE PRT-FILE1 PRT-FILE2.                                   DTSBR910
00476 *    GOBACK.                                                      DTSBR910
00477 *                                                                 DTSBR910
00478      IF LRCM-EOR-88                                               DTSBR910
00479          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR910
00480      ELSE                                                         DTSBR910
00481          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR910
00482                                                                   DTSBR910
00483      GOBACK.                                                      DTSBR910
00484      EJECT                                                        DTSBR910
00485  I1000-INITIATE.                                                  DTSBR910
00486                                                                   DTSBR910
00487      OPEN OUTPUT PRT-FILE1                                        DTSBR910
00488                  PRT-FILE2                                        DTSBR910
00489                  PRT-FILE3.                                       DTSBR910
00490      MOVE SPACES        TO UC30H-DATA                             DTSBR910
00491                            UC30H-REPORT                           DTSBR910
00492                            UC30H-REPORT3.                         DTSBR910
00493      MOVE SPACES        TO WS-DAILY-OP-ID-HOLD.                   DTSBR910
00494      MOVE SPACES        TO WS-DAILY-OP-ID-HOLD1.                  DTSBR910
00495      MOVE LRCM-SYS-DATE TO RTE-SYS-DATE.                          DTSBR910
00496                                                                   DTSBR910
00497  I1000-EXIT.                                                      DTSBR910
00498      EXIT.                                                        DTSBR910
00499 *R1                                                               DTSBR910
00500  I1100-INITIATE-XEROX-CNTL.                                       DTSBR910
00501      WRITE UC30H-REPORT FROM XEROX-CNTL-LINE2 AFTER TOP-OF-PAGE.  DTSBR910
00502      WRITE UC30H-REPORT FROM XEROX-CNTL-LINE1 AFTER 1.            DTSBR910
00503      WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER 6.               DTSBR910
00504      WRITE UC30H-REPORT FROM RTE-LINE-1 AFTER 9.                  DTSBR910
00505      WRITE UC30H-REPORT FROM RTE-LINE-2 AFTER 1.                  DTSBR910
00506      WRITE UC30H-REPORT FROM RTE-LINE-3 AFTER 1.                  DTSBR910
00507                                                                   DTSBR910
00508  I1100-EXIT.                                                      DTSBR910
00509      EXIT.                                                        DTSBR910
00510                                                                   DTSBR910
00511 *R2                                                               DTSBR910
00512  I1200-INITIATE-XEROX-CNTL.                                       DTSBR910
00513      WRITE UC30H-REPORT3 FROM XEROX-CNTL-LINE  AFTER TOP-OF-PAGE. DTSBR910
00514      WRITE UC30H-REPORT3 FROM XEROX-CNTL-LINE1 AFTER 1.           DTSBR910
00515      WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER 6.              DTSBR910
00516      WRITE UC30H-REPORT3 FROM RTE-LINE-1A AFTER 9.                DTSBR910
00517      WRITE UC30H-REPORT3 FROM RTE-LINE-2 AFTER 1.                 DTSBR910
00518      WRITE UC30H-REPORT3 FROM RTE-LINE-4 AFTER 1.                 DTSBR910
00519                                                                   DTSBR910
00520  I1200-EXIT.                                                      DTSBR910
00521      EXIT.                                                        DTSBR910
00522                                                                   DTSBR910
00523 *I1100-BLANK-FORMS.                                               DTSBR910
00524 *    WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.    DTSBR910
00525 *I1100-EXIT.                                                      DTSBR910
00526 *    EXIT.                                                        DTSBR910
00527                                                                   DTSBR910
00528  P1000-PROCESS.                                                   DTSBR910
00529                                                                   DTSBR910
00530      IF R910-SORT-TYPE-ANN-88                                     DTSBR910
00531          PERFORM P2000-UC30H-ANNUAL-FILE THRU P2000-EXIT          DTSBR910
00532      ELSE                                                         DTSBR910
00533         IF R910-DAILY-YR < 2006                                   DTSBR910
00534             IF FIRST-TIME-LESS-2006-IND = 'Y'                     DTSBR910
00535                PERFORM I1100-INITIATE-XEROX-CNTL THRU I1100-EXIT  DTSBR910
00536                MOVE 'N' TO FIRST-TIME-LESS-2006-IND               DTSBR910
00537             END-IF                                                DTSBR910
00538             PERFORM P3010-BREAK-USERID        THRU P3010-EXIT     DTSBR910
00539             PERFORM P3000-UC30H-DAILY-RPT     THRU P3000-EXIT     DTSBR910
00540         ELSE                                                      DTSBR910
00541             IF FIRST-TIME-NOT-LESS-2006-IND = 'Y'                 DTSBR910
00542                PERFORM I1200-INITIATE-XEROX-CNTL THRU I1200-EXIT  DTSBR910
00543                MOVE 'N' TO FIRST-TIME-NOT-LESS-2006-IND           DTSBR910
00544             END-IF                                                DTSBR910
00545             PERFORM P4010-BREAK-USERID        THRU P4010-EXIT     DTSBR910
00546             PERFORM P4000-UC30H-NEW-DAILY-RPT THRU P4000-EXIT     DTSBR910
00547         END-IF                                                    DTSBR910
00548      END-IF.                                                      DTSBR910
00549                                                                   DTSBR910
00550  P1000-EXIT.                                                      DTSBR910
00551      EXIT.                                                        DTSBR910
00552                                                                   DTSBR910
00553  P2000-UC30H-ANNUAL-FILE.                                         DTSBR910
00554      MOVE R910-ANNUAL-EMP-NO       TO Q30-EMP-NO.                 DTSBR910
00555                                                                   DTSBR910
00556      IF R910-ANN-CR-AMT > +0                                      DTSBR910
00557          MOVE R910-ANN-CR-AMT      TO Q30-CREDIT-AMT              DTSBR910
00558      ELSE                                                         DTSBR910
00559          MOVE ZEROS                TO Q30-CREDIT-AMT              DTSBR910
00560      END-IF.                                                      DTSBR910
00561                                                                   DTSBR910
00562                                                                   DTSBR910
00563      MOVE R910-ANNUAL-YR           TO WS-YEAR.                    DTSBR910
00564      MOVE WS-YEAR                  TO Q30-YEAR.                   DTSBR910
00565      MOVE 4                        TO WS-QTR.                     DTSBR910
00566 *&                                                                DTSBR910
00567 *&                                                                DTSBR910
00568      SET L004-FROM-5     TO TRUE.                                 DTSBR910
00569      MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                      DTSBR910
00570      PERFORM S004-DATE   THRU S004-EXIT.                          DTSBR910
00571                                                                   DTSBR910
00572                                                                   DTSBR910
00573      MOVE L004-QTR-END-DATE   TO L002-DATE.                       DTSBR910
00574      SET L002-UPPER-CASE      TO TRUE.                            DTSBR910
00575      PERFORM S002-DATE        THRU S002-EXIT.                     DTSBR910
00576      MOVE L002-LONG-TEXT-AREA TO Q30-RPT-QTR-END-DISP.            DTSBR910
00577                                                                   DTSBR910
00578      MOVE R910-RPT-DUE-DATE   TO L002-DATE.                       DTSBR910
00579      SET L002-UPPER-CASE      TO TRUE.                            DTSBR910
00580      PERFORM S002-DATE        THRU S002-EXIT.                     DTSBR910
00581      MOVE L002-LONG-TEXT-AREA TO Q30-RPT-DUE-DATE-DISP.           DTSBR910
00582                                                                   DTSBR910
00583      MOVE R910-PRI-NAME-FIRST4 TO Q30-PRI-NAME-FIRST4.            DTSBR910
00584                                                                   DTSBR910
00585      IF R910-FEIN = ZEROES                                        DTSBR910
00586          MOVE SPACES    TO Q30-FEIN-DISP-X                        DTSBR910
00587      ELSE                                                         DTSBR910
00588          MOVE R910-FEIN TO Q30-FEIN-DISP.                         DTSBR910
00589                                                                   DTSBR910
00590      MOVE R910-TAX-WAGE-BASE TO Q30-TAX-WAGE-BASE.                DTSBR910
00591      MOVE R910-UI-RATE           TO L056-RATE.                    DTSBR910
00592      SET L056-DISP1-RIGHT-PCT-88 TO TRUE.                         DTSBR910
00593      PERFORM S056-RATE-DISPLAY   THRU S056-EXIT.                  DTSBR910
00594      MOVE L056-DISP-RATE         TO Q30-UI-RATE                   DTSBR910
00595                                     Q30-UI-TAX-RATE-SI.           DTSBR910
00596      MOVE '  %'  TO Q30-PCENT.                                    DTSBR910
00597                                                                   DTSBR910
00598      MOVE R910-FMT-LINE (1) TO Q30-FMT-LINE-1.                    DTSBR910
00599      MOVE R910-FMT-LINE (2) TO Q30-FMT-LINE-2.                    DTSBR910
00600      MOVE R910-FMT-LINE (3) TO Q30-FMT-LINE-3.                    DTSBR910
00601      MOVE R910-FMT-LINE (4) TO Q30-FMT-LINE-4.                    DTSBR910
00602      MOVE R910-FMT-LINE (5) TO Q30-FMT-LINE-5.                    DTSBR910
00603                                                                   DTSBR910
00604      IF R910-SSN-LINE-CNT > 10                                    DTSBR910
00605         NEXT SENTENCE                                             DTSBR910
00606      ELSE                                                         DTSBR910
00607         MOVE R910-SSN-LINE (1) TO Q30-SSN-1                       DTSBR910
00608         MOVE R910-SSN-LINE (2) TO Q30-SSN-2                       DTSBR910
00609         MOVE R910-SSN-LINE (3) TO Q30-SSN-3                       DTSBR910
00610         MOVE R910-SSN-LINE (4) TO Q30-SSN-4                       DTSBR910
00611         MOVE R910-SSN-LINE (5) TO Q30-SSN-5                       DTSBR910
00612         MOVE R910-SSN-LINE (6) TO Q30-SSN-6                       DTSBR910
00613         MOVE R910-SSN-LINE (7) TO Q30-SSN-7                       DTSBR910
00614         MOVE R910-SSN-LINE (8) TO Q30-SSN-8                       DTSBR910
00615         MOVE R910-SSN-LINE (9) TO Q30-SSN-9                       DTSBR910
00616         MOVE R910-SSN-LINE (10) TO Q30-SSN-10.                    DTSBR910
00617                                                                   DTSBR910
00618      WRITE UC30H-DATA   FROM UC30H-DATA-FILE.                     DTSBR910
00619                                                                   DTSBR910
00620  P2000-EXIT.                                                      DTSBR910
00621      EXIT.                                                        DTSBR910
00622                                                                   DTSBR910
00623  P3000-UC30H-DAILY-RPT.                                           DTSBR910
00624                                                                   DTSBR910
00625      MOVE R910-DAILY-EMP-NO    TO U30H-EMP-NO.                    DTSBR910
00626                                                                   DTSBR910
00627      IF R910-ANN-CR-AMT > +0                                      DTSBR910
00628          MOVE R910-ANN-CR-AMT      TO U30H-CREDIT-AMT             DTSBR910
00629      ELSE                                                         DTSBR910
00630          MOVE ZEROS                TO U30H-CREDIT-AMT             DTSBR910
00631      END-IF.                                                      DTSBR910
00632                                                                   DTSBR910
00633      MOVE R910-DAILY-YR        TO WS-YEAR.                        DTSBR910
00634      MOVE WS-YEAR              TO U30H-YEAR.                      DTSBR910
00635      MOVE 4                    TO WS-QTR.                         DTSBR910
00636 *&                                                                DTSBR910
00637 *&                                                                DTSBR910
00638      SET L004-FROM-5 TO TRUE.                                     DTSBR910
00639      MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA.                       DTSBR910
00640      PERFORM S004-DATE THRU S004-EXIT.                            DTSBR910
00641                                                                   DTSBR910
00642      MOVE L004-QTR-END-DATE TO L002-DATE.                         DTSBR910
00643      SET L002-UPPER-CASE TO TRUE.                                 DTSBR910
00644      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR910
00645      MOVE L002-LONG-TEXT-AREA TO U30H-RPT-QTR-END-DISP.           DTSBR910
00646                                                                   DTSBR910
00647      MOVE R910-RPT-DUE-DATE TO L002-DATE.                         DTSBR910
00648      SET L002-UPPER-CASE TO TRUE.                                 DTSBR910
00649      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR910
00650      MOVE L002-LONG-TEXT-AREA TO U30H-RPT-DUE-DATE-DISP.          DTSBR910
00651                                                                   DTSBR910
00652      MOVE R910-PRI-NAME-FIRST4 TO U30H-PRI-NAME-FIRST4.           DTSBR910
00653                                                                   DTSBR910
00654      IF R910-FEIN = ZEROES                                        DTSBR910
00655          MOVE SPACES    TO U30H-FEIN-DISP-X                       DTSBR910
00656      ELSE                                                         DTSBR910
00657          MOVE R910-FEIN TO U30H-FEIN-DISP.                        DTSBR910
00658                                                                   DTSBR910
00659      MOVE R910-TAX-WAGE-BASE TO U30H-TAX-WAGE-BASE.               DTSBR910
00660      MOVE R910-UI-RATE           TO L056-RATE.                    DTSBR910
00661      SET L056-DISP1-RIGHT-PCT-88 TO TRUE.                         DTSBR910
00662      PERFORM S056-RATE-DISPLAY   THRU S056-EXIT.                  DTSBR910
00663      MOVE L056-DISP-RATE         TO U30H-UI-RATE                  DTSBR910
00664                                  U30H-UI-TAX-RATE-RATED.          DTSBR910
00665      MOVE '  %'  TO U30H-PCENT.                                   DTSBR910
00666                                                                   DTSBR910
00667      MOVE R910-FMT-LINE (1) TO U30H-FMT-LINE-1.                   DTSBR910
00668      MOVE R910-FMT-LINE (2) TO U30H-FMT-LINE-2.                   DTSBR910
00669      MOVE R910-FMT-LINE (3) TO U30H-FMT-LINE-3.                   DTSBR910
00670      MOVE R910-FMT-LINE (4) TO U30H-FMT-LINE-4.                   DTSBR910
00671      MOVE R910-FMT-LINE (5) TO U30H-FMT-LINE-5.                   DTSBR910
00672                                                                   DTSBR910
00673      IF R910-SSN-LINE-CNT = +0                                    DTSBR910
00674         NEXT SENTENCE                                             DTSBR910
00675      ELSE                                                         DTSBR910
00676        PERFORM                                                    DTSBR910
00677          VARYING TBL-SUB FROM +1 BY +1                            DTSBR910
00678          UNTIL TBL-SUB > R910-SSN-LINE-CNT                        DTSBR910
00679           MOVE R910-SSN-LINE (TBL-SUB) TO WS-WRK-SSN              DTSBR910
00680              MOVE  WS-SSN1 TO RPT-SSN1                            DTSBR910
00681              MOVE  WS-SSN2 TO RPT-SSN2                            DTSBR910
00682              MOVE  WS-SSN3 TO RPT-SSN3                            DTSBR910
00683              PERFORM P3031-MOVE-SSN  THRU P3031-EXIT              DTSBR910
00684        END-PERFORM                                                DTSBR910
00685      END-IF.                                                      DTSBR910
00686                                                                   DTSBR910
00687      PERFORM P3030-GENERATE-UC30H-REPORT THRU P3030-EXIT.         DTSBR910
00688                                                                   DTSBR910
00689  P3000-EXIT.                                                      DTSBR910
00690      EXIT.                                                        DTSBR910
00691  P3010-BREAK-USERID.                                              DTSBR910
00692                                                                   DTSBR910
00693        IF R910-DAILY-OP-ID NOT =  WS-DAILY-OP-ID-HOLD             DTSBR910
00694           MOVE R910-DAILY-OP-ID        TO WS-DAILY-OP-ID-HOLD     DTSBR910
00695           PERFORM P3020-OPID-BREAK           THRU P3020-EXIT      DTSBR910
00696           PERFORM P3030-GENERATE-UC30H-REPORT THRU P3030-EXIT     DTSBR910
00697        END-IF.                                                    DTSBR910
00698                                                                   DTSBR910
00699  P3010-EXIT.                                                      DTSBR910
00700      EXIT.                                                        DTSBR910
00701      EJECT                                                        DTSBR910
00702  P3020-OPID-BREAK.                                                DTSBR910
00703                                                                   DTSBR910
00704      MOVE R910-DAILY-OP-ID TO L082-OP-ID                          DTSBR910
00705                                                                   DTSBR910
00706      PERFORM S082-OP-ID-INFO THRU S082-EXIT                       DTSBR910
00707      MOVE L082-NAME          TO L071-NAM                          DTSBR910
00708      MOVE 2                  TO L071-NAME-FORMAT                  DTSBR910
00709      PERFORM S071-DESLASH-NAME THRU S071-EXIT                     DTSBR910
00710      MOVE L071-NAM           TO L009-DATA                         DTSBR910
00711                                                                   DTSBR910
00712      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR910
00713      MOVE L009-DATA          TO WS-OPR-NAME                       DTSBR910
00714      MOVE L082-UNIT-NAME     TO L009-DATA                         DTSBR910
00715                                                                   DTSBR910
00716      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR910
00717      MOVE L009-DATA TO WS-OPR-UNIT-NAME.                          DTSBR910
00718                                                                   DTSBR910
00719      MOVE SPACES            TO U30H-LINE-1                        DTSBR910
00720                                U30H-LINE-2                        DTSBR910
00721                                U30H-LINE-3                        DTSBR910
00722                                U30H-LINE-4                        DTSBR910
00723                                U30H-LINE-5                        DTSBR910
00724                                U30H-LINE-5A1.                     DTSBR910
00725                                                                   DTSBR910
00726      MOVE WS-BREAK-LINE1    TO U30H-FMT-LINE-1.                   DTSBR910
00727      MOVE WS-BREAK-LINE2    TO U30H-FMT-LINE-2.                   DTSBR910
00728      MOVE WRK-OPR-NAME      TO U30H-FMT-LINE-3.                   DTSBR910
00729      MOVE WRK-OPR-UNIT-NAME TO U30H-FMT-LINE-4.                   DTSBR910
00730      MOVE WS-BREAK-LINE1    TO U30H-FMT-LINE-5.                   DTSBR910
00731                                                                   DTSBR910
00732  P3020-EXIT.                                                      DTSBR910
00733      EXIT.                                                        DTSBR910
00734  P3030-GENERATE-UC30H-REPORT.                                     DTSBR910
00735                                                                   DTSBR910
00736      WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.     DTSBR910
00737      WRITE UC30H-REPORT FROM U30H-LINE-1 AFTER 11.                DTSBR910
00738      WRITE UC30H-REPORT FROM U30H-LINE-2 AFTER 1.                 DTSBR910
00739      WRITE UC30H-REPORT FROM U30H-LINE-3 AFTER 1.                 DTSBR910
00740      WRITE UC30H-REPORT FROM U30H-LINE-4 AFTER 1.                 DTSBR910
00741      WRITE UC30H-REPORT FROM U30H-LINE-5 AFTER 1.                 DTSBR910
00742                                                                   DTSBR910
00743      WRITE UC30H-REPORT FROM U30H-LINE-5A1 AFTER 6.               DTSBR910
00744      WRITE UC30H-REPORT FROM U30H-LINE-5A AFTER 3.                DTSBR910
00745      WRITE UC30H-REPORT FROM U30H-LINE-5B AFTER 1.                DTSBR910
00746      WRITE UC30H-REPORT FROM U30H-LINE-5C AFTER 1.                DTSBR910
00747      WRITE UC30H-REPORT FROM U30H-LINE-5D AFTER 1.                DTSBR910
00748      WRITE UC30H-REPORT FROM U30H-LINE-5E AFTER 1.                DTSBR910
00749      WRITE UC30H-REPORT FROM U30H-LINE-5F AFTER 1.                DTSBR910
00750      WRITE UC30H-REPORT FROM U30H-LINE-5G AFTER 1.                DTSBR910
00751      WRITE UC30H-REPORT FROM U30H-LINE-5H AFTER 1.                DTSBR910
00752      WRITE UC30H-REPORT FROM U30H-LINE-5I AFTER 1.                DTSBR910
00753      WRITE UC30H-REPORT FROM U30H-LINE-5J AFTER 1.                DTSBR910
00754      WRITE UC30H-REPORT FROM WS-BLANK-LINE AFTER 1.               DTSBR910
00755      WRITE UC30H-REPORT FROM U30H-LINE-8R AFTER 4.                DTSBR910
00756                                                                   DTSBR910
00757      WRITE UC30H-REPORT FROM U30H-LINE-11 AFTER 5.                DTSBR910
00758                                                                   DTSBR910
00759  P3030-EXIT.                                                      DTSBR910
00760      EXIT.                                                        DTSBR910
00761                                                                   DTSBR910
00762                                                                   DTSBR910
00763  P3031-MOVE-SSN.                                                  DTSBR910
00764                                                                   DTSBR910
00765              IF TBL-SUB = 1                                       DTSBR910
00766                 MOVE WS-RPT-SSN TO U30H-SSN-1                     DTSBR910
00767              ELSE                                                 DTSBR910
00768               IF TBL-SUB = 2                                      DTSBR910
00769                  MOVE WS-RPT-SSN TO U30H-SSN-2                    DTSBR910
00770               ELSE                                                DTSBR910
00771               IF TBL-SUB = 3                                      DTSBR910
00772                  MOVE WS-RPT-SSN TO U30H-SSN-3                    DTSBR910
00773               ELSE                                                DTSBR910
00774               IF TBL-SUB = 4                                      DTSBR910
00775                 MOVE WS-RPT-SSN TO U30H-SSN-4                     DTSBR910
00776               ELSE                                                DTSBR910
00777               IF TBL-SUB = 5                                      DTSBR910
00778                  MOVE WS-RPT-SSN TO U30H-SSN-5                    DTSBR910
00779               ELSE                                                DTSBR910
00780               IF TBL-SUB = 6                                      DTSBR910
00781                  MOVE WS-RPT-SSN TO U30H-SSN-6                    DTSBR910
00782               ELSE                                                DTSBR910
00783               IF TBL-SUB = 7                                      DTSBR910
00784                  MOVE WS-RPT-SSN TO U30H-SSN-7                    DTSBR910
00785               ELSE                                                DTSBR910
00786               IF TBL-SUB = 8                                      DTSBR910
00787                  MOVE WS-RPT-SSN TO U30H-SSN-8                    DTSBR910
00788               ELSE                                                DTSBR910
00789               IF TBL-SUB = 9                                      DTSBR910
00790                  MOVE WS-RPT-SSN TO U30H-SSN-9                    DTSBR910
00791               ELSE                                                DTSBR910
00792               IF TBL-SUB = 10                                     DTSBR910
00793                  MOVE WS-RPT-SSN TO U30H-SSN-10                   DTSBR910
00794               ELSE                                                DTSBR910
00795                 DISPLAY ' SSN LINE CNT GT 10 '.                   DTSBR910
00796                                                                   DTSBR910
00797  P3031-EXIT.                                                      DTSBR910
00798      EXIT.                                                        DTSBR910
00799                                                                   DTSBR910
00800  P4000-UC30H-NEW-DAILY-RPT.                                       DTSBR910
00801                                                                   DTSBR910
00802      MOVE R910-DAILY-EMP-NO    TO U30H-EMP-NO.                    DTSBR910
00803                                                                   DTSBR910
00804      IF R910-ANN-CR-AMT > +0                                      DTSBR910
00805          MOVE R910-ANN-CR-AMT      TO U30H-CREDIT-AMT             DTSBR910
00806      ELSE                                                         DTSBR910
00807          MOVE ZEROS                TO U30H-CREDIT-AMT             DTSBR910
00808      END-IF.                                                      DTSBR910
00809                                                                   DTSBR910
00810      MOVE R910-DAILY-YR        TO WS-YEAR.                        DTSBR910
00811      MOVE WS-YEAR              TO U30H-YEAR.                      DTSBR910
00812      MOVE 4                    TO WS-QTR.                         DTSBR910
00813 *&                                                                DTSBR910
00814 *&                                                                DTSBR910
00815      SET L004-FROM-5 TO TRUE.                                     DTSBR910
00816      MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA.                       DTSBR910
00817      PERFORM S004-DATE THRU S004-EXIT.                            DTSBR910
00818                                                                   DTSBR910
00819      MOVE L004-QTR-END-DATE TO L002-DATE.                         DTSBR910
00820      SET L002-UPPER-CASE TO TRUE.                                 DTSBR910
00821      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR910
00822      MOVE L002-LONG-TEXT-AREA TO U30H-RPT-QTR-END-DISP.           DTSBR910
00823                                                                   DTSBR910
00824      MOVE R910-RPT-DUE-DATE TO L002-DATE.                         DTSBR910
00825      SET L002-UPPER-CASE TO TRUE.                                 DTSBR910
00826      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR910
00827      MOVE L002-LONG-TEXT-AREA TO U30H-RPT-DUE-DATE-DISP.          DTSBR910
00828                                                                   DTSBR910
00829      MOVE R910-PRI-NAME-FIRST4 TO U30H-PRI-NAME-FIRST4.           DTSBR910
00830                                                                   DTSBR910
00831      IF R910-FEIN = ZEROES                                        DTSBR910
00832          MOVE SPACES    TO U30H-FEIN-DISP-X                       DTSBR910
00833      ELSE                                                         DTSBR910
00834          MOVE R910-FEIN TO U30H-FEIN-DISP.                        DTSBR910
00835                                                                   DTSBR910
00836      MOVE R910-TAX-WAGE-BASE TO U30H-TAX-WAGE-BASE.               DTSBR910
00837      MOVE R910-UI-RATE           TO L056-RATE.                    DTSBR910
00838      SET L056-DISP1-RIGHT-PCT-88 TO TRUE.                         DTSBR910
00839      PERFORM S056-RATE-DISPLAY   THRU S056-EXIT.                  DTSBR910
00840      MOVE L056-DISP-RATE         TO U30H-UI-RATE                  DTSBR910
00841                                  U30H-UI-TAX-RATE-RATED.          DTSBR910
00842      MOVE '  %'  TO U30H-PCENT.                                   DTSBR910
00843                                                                   DTSBR910
00844      MOVE R910-FMT-LINE (1) TO U30H-FMT-LINE-1.                   DTSBR910
00845      MOVE R910-FMT-LINE (2) TO U30H-FMT-LINE-2.                   DTSBR910
00846      MOVE R910-FMT-LINE (3) TO U30H-FMT-LINE-3.                   DTSBR910
00847      MOVE R910-FMT-LINE (4) TO U30H-FMT-LINE-4.                   DTSBR910
00848      MOVE R910-FMT-LINE (5) TO U30H-FMT-LINE-5.                   DTSBR910
00849                                                                   DTSBR910
00850      IF R910-SSN-LINE-CNT = +0                                    DTSBR910
00851         NEXT SENTENCE                                             DTSBR910
00852      ELSE                                                         DTSBR910
00853        PERFORM                                                    DTSBR910
00854          VARYING TBL-SUB FROM +1 BY +1                            DTSBR910
00855          UNTIL TBL-SUB > R910-SSN-LINE-CNT                        DTSBR910
00856           MOVE R910-SSN-LINE (TBL-SUB) TO WS-WRK-SSN              DTSBR910
00857              MOVE  WS-SSN1 TO RPT-SSN1                            DTSBR910
00858              MOVE  WS-SSN2 TO RPT-SSN2                            DTSBR910
00859              MOVE  WS-SSN3 TO RPT-SSN3                            DTSBR910
00860              PERFORM P4031-MOVE-SSN  THRU P4031-EXIT              DTSBR910
00861        END-PERFORM                                                DTSBR910
00862      END-IF.                                                      DTSBR910
00863                                                                   DTSBR910
00864      PERFORM P4030-GENERATE-UC30H-REPORT THRU P4030-EXIT.         DTSBR910
00865                                                                   DTSBR910
00866  P4000-EXIT.                                                      DTSBR910
00867      EXIT.                                                        DTSBR910
00868  P4010-BREAK-USERID.                                              DTSBR910
00869                                                                   DTSBR910
00870        IF R910-DAILY-OP-ID NOT =  WS-DAILY-OP-ID-HOLD1            DTSBR910
00871           MOVE R910-DAILY-OP-ID        TO WS-DAILY-OP-ID-HOLD1    DTSBR910
00872           PERFORM P4020-OPID-BREAK            THRU P4020-EXIT     DTSBR910
00873           PERFORM P4030-GENERATE-UC30H-REPORT THRU P4030-EXIT     DTSBR910
00874        END-IF.                                                    DTSBR910
00875                                                                   DTSBR910
00876  P4010-EXIT.                                                      DTSBR910
00877      EXIT.                                                        DTSBR910
00878      EJECT                                                        DTSBR910
00879  P4020-OPID-BREAK.                                                DTSBR910
00880                                                                   DTSBR910
00881      MOVE R910-DAILY-OP-ID TO L082-OP-ID                          DTSBR910
00882                                                                   DTSBR910
00883      PERFORM S082-OP-ID-INFO THRU S082-EXIT                       DTSBR910
00884      MOVE L082-NAME          TO L071-NAM                          DTSBR910
00885      MOVE 2                  TO L071-NAME-FORMAT                  DTSBR910
00886      PERFORM S071-DESLASH-NAME THRU S071-EXIT                     DTSBR910
00887      MOVE L071-NAM           TO L009-DATA                         DTSBR910
00888                                                                   DTSBR910
00889      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR910
00890      MOVE L009-DATA          TO WS-OPR-NAME                       DTSBR910
00891      MOVE L082-UNIT-NAME     TO L009-DATA                         DTSBR910
00892                                                                   DTSBR910
00893      PERFORM S009-UPPER-CASE-TRANSLATE THRU S009-EXIT             DTSBR910
00894      MOVE L009-DATA TO WS-OPR-UNIT-NAME.                          DTSBR910
00895                                                                   DTSBR910
00896      MOVE SPACES            TO U30H-LINE-1                        DTSBR910
00897                                U30H-LINE-2                        DTSBR910
00898                                U30H-LINE-3                        DTSBR910
00899                                U30H-LINE-4                        DTSBR910
00900                                U30H-LINE-5                        DTSBR910
00901                                U30H-LINE-5A1.                     DTSBR910
00902                                                                   DTSBR910
00903      MOVE WS-BREAK-LINE1    TO U30H-FMT-LINE-1.                   DTSBR910
00904      MOVE WS-BREAK-LINE2    TO U30H-FMT-LINE-2.                   DTSBR910
00905      MOVE WRK-OPR-NAME      TO U30H-FMT-LINE-3.                   DTSBR910
00906      MOVE WRK-OPR-UNIT-NAME TO U30H-FMT-LINE-4.                   DTSBR910
00907      MOVE WS-BREAK-LINE1    TO U30H-FMT-LINE-5.                   DTSBR910
00908                                                                   DTSBR910
00909  P4020-EXIT.                                                      DTSBR910
00910      EXIT.                                                        DTSBR910
00911  P4030-GENERATE-UC30H-REPORT.                                     DTSBR910
00912                                                                   DTSBR910
00913      WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER TOP-OF-PAGE.    DTSBR910
00914      WRITE UC30H-REPORT3 FROM U30H-LINE-1 AFTER 11.               DTSBR910
00915      WRITE UC30H-REPORT3 FROM U30H-LINE-2 AFTER 1.                DTSBR910
00916      WRITE UC30H-REPORT3 FROM U30H-LINE-3 AFTER 1.                DTSBR910
00917      WRITE UC30H-REPORT3 FROM U30H-LINE-4 AFTER 1.                DTSBR910
00918      WRITE UC30H-REPORT3 FROM U30H-LINE-5 AFTER 1.                DTSBR910
00919                                                                   DTSBR910
00920      WRITE UC30H-REPORT3 FROM U30H-LINE-5A1 AFTER 6.              DTSBR910
00921      WRITE UC30H-REPORT3 FROM U30H-LINE-5A AFTER 3.               DTSBR910
00922      WRITE UC30H-REPORT3 FROM U30H-LINE-5B AFTER 1.               DTSBR910
00923      WRITE UC30H-REPORT3 FROM U30H-LINE-5C AFTER 1.               DTSBR910
00924      WRITE UC30H-REPORT3 FROM U30H-LINE-5D AFTER 1.               DTSBR910
00925      WRITE UC30H-REPORT3 FROM U30H-LINE-5E AFTER 1.               DTSBR910
00926      WRITE UC30H-REPORT3 FROM U30H-LINE-5F AFTER 1.               DTSBR910
00927      WRITE UC30H-REPORT3 FROM U30H-LINE-5G AFTER 1.               DTSBR910
00928      WRITE UC30H-REPORT3 FROM U30H-LINE-5H AFTER 1.               DTSBR910
00929      WRITE UC30H-REPORT3 FROM U30H-LINE-5I AFTER 1.               DTSBR910
00930      WRITE UC30H-REPORT3 FROM U30H-LINE-5J AFTER 1.               DTSBR910
00931      WRITE UC30H-REPORT3 FROM U30H-LINE-8R AFTER 4.               DTSBR910
00932                                                                   DTSBR910
00933      WRITE UC30H-REPORT3 FROM WS-BLANK-LINE AFTER 1.              DTSBR910
00934      WRITE UC30H-REPORT3 FROM U30H-LINE-11 AFTER 5.               DTSBR910
00935                                                                   DTSBR910
00936  P4030-EXIT.                                                      DTSBR910
00937      EXIT.                                                        DTSBR910
00938                                                                   DTSBR910
00939  P4031-MOVE-SSN.                                                  DTSBR910
00940                                                                   DTSBR910
00941              IF TBL-SUB = 1                                       DTSBR910
00942                 MOVE WS-RPT-SSN TO U30H-SSN-1                     DTSBR910
00943              ELSE                                                 DTSBR910
00944               IF TBL-SUB = 2                                      DTSBR910
00945                  MOVE WS-RPT-SSN TO U30H-SSN-2                    DTSBR910
00946               ELSE                                                DTSBR910
00947               IF TBL-SUB = 3                                      DTSBR910
00948                  MOVE WS-RPT-SSN TO U30H-SSN-3                    DTSBR910
00949               ELSE                                                DTSBR910
00950               IF TBL-SUB = 4                                      DTSBR910
00951                 MOVE WS-RPT-SSN TO U30H-SSN-4                     DTSBR910
00952               ELSE                                                DTSBR910
00953               IF TBL-SUB = 5                                      DTSBR910
00954                  MOVE WS-RPT-SSN TO U30H-SSN-5                    DTSBR910
00955               ELSE                                                DTSBR910
00956               IF TBL-SUB = 6                                      DTSBR910
00957                  MOVE WS-RPT-SSN TO U30H-SSN-6                    DTSBR910
00958               ELSE                                                DTSBR910
00959               IF TBL-SUB = 7                                      DTSBR910
00960                  MOVE WS-RPT-SSN TO U30H-SSN-7                    DTSBR910
00961               ELSE                                                DTSBR910
00962               IF TBL-SUB = 8                                      DTSBR910
00963                  MOVE WS-RPT-SSN TO U30H-SSN-8                    DTSBR910
00964               ELSE                                                DTSBR910
00965               IF TBL-SUB = 9                                      DTSBR910
00966                  MOVE WS-RPT-SSN TO U30H-SSN-9                    DTSBR910
00967               ELSE                                                DTSBR910
00968               IF TBL-SUB = 10                                     DTSBR910
00969                  MOVE WS-RPT-SSN TO U30H-SSN-10                   DTSBR910
00970               ELSE                                                DTSBR910
00971                 DISPLAY ' SSN LINE CNT GT 10 '.                   DTSBR910
00972                                                                   DTSBR910
00973  P4031-EXIT.                                                      DTSBR910
00974      EXIT.                                                        DTSBR910
00975                                                                   DTSBR910
00976  T1000-TERMINATE.                                                 DTSBR910
00977                                                                   DTSBR910
00978      CLOSE PRT-FILE1                                              DTSBR910
00979            PRT-FILE2                                              DTSBR910
00980            PRT-FILE3.                                             DTSBR910
00981                                                                   DTSBR910
00982  T1000-EXIT.                                                      DTSBR910
00983      EXIT.                                                        DTSBR910
00984                                                                   DTSBR910
00985  S001-DATE.                                                       DTSBR910
00986                                                                   DTSBR910
00987      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR910
00988                                                                   DTSBR910
00989  S001-EXIT.                                                       DTSBR910
00990      EXIT.                                                        DTSBR910
00991                                                                   DTSBR910
00992  S002-DATE.                                                       DTSBR910
00993                                                                   DTSBR910
00994      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR910
00995                                                                   DTSBR910
00996  S002-EXIT.                                                       DTSBR910
00997      EXIT.                                                        DTSBR910
00998                                                                   DTSBR910
00999  S004-DATE.                                                       DTSBR910
01000                                                                   DTSBR910
01001      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR910
01002                                                                   DTSBR910
01003  S004-EXIT.                                                       DTSBR910
01004      EXIT.                                                        DTSBR910
01005                                                                   DTSBR910
01006  S008-YRQ-ALPHA.                                                  DTSBR910
01007                                                                   DTSBR910
01008      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR910
01009                                                                   DTSBR910
01010  S008-EXIT.                                                       DTSBR910
01011      EXIT.                                                        DTSBR910
01012                                                                   DTSBR910
01013  S009-UPPER-CASE-TRANSLATE.                                       DTSBR910
01014                                                                   DTSBR910
01015      CALL 'DTSBU009' USING L009-LINK-AREA.                        DTSBR910
01016                                                                   DTSBR910
01017  S009-EXIT.                                                       DTSBR910
01018      EXIT.                                                        DTSBR910
01019                                                                   DTSBR910
01020  S056-RATE-DISPLAY.                                               DTSBR910
01021                                                                   DTSBR910
01022      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR910
01023                                                                   DTSBR910
01024  S056-EXIT.                                                       DTSBR910
01025      EXIT.                                                        DTSBR910
01026                                                                   DTSBR910
01027  S071-DESLASH-NAME.                                               DTSBR910
01028                                                                   DTSBR910
01029      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR910
01030                                                                   DTSBR910
01031  S071-EXIT.                                                       DTSBR910
01032      EXIT.                                                        DTSBR910
01033                                                                   DTSBR910
01034  S082-OP-ID-INFO.                                                 DTSBR910
01035                                                                   DTSBR910
01036      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR910
01037                                                                   DTSBR910
01038  S082-EXIT.                                                       DTSBR910
01039      EXIT.                                                        DTSBR910
01040                                                                   DTSBR910
01041 *S109-SUR-RATE.                                                   DTSBR910
01042 *                                                                 DTSBR910
01043 *    CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBR910
01044 *                                                                 DTSBR910
01045 *S109-EXIT.                                                       DTSBR910
01046      EXIT.                                                        DTSBR910
01047                                                                   DTSBR910
01048  S119-AGENCY-FACTS.                                               DTSBR910
01049                                                                   DTSBR910
01050      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR910
01051                                                                   DTSBR910
01052  S119-EXIT.                                                       DTSBR910
01053      EXIT.                                                        DTSBR910
01054                                                                   DTSBR910
01055  S143-BUILD-STRING.                                               DTSBR910
01056                                                                   DTSBR910
01057      CALL 'DTSBU143' USING L143-LINK-AREA.                        DTSBR910
01058                                                                   DTSBR910
01059  S143-EXIT.                                                       DTSBR910
01060      EXIT.                                                        DTSBR910
01061                                                                   DTSBR910
01062 *S999-ABEND.                                                      DTSBR910
01063 *                                                                 DTSBR910
01064 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR910
01065 *                                                                 DTSBR910
01066 *S999-EXIT.                                                       DTSBR910
01067 *    EXIT.                                                        DTSBR910
01068                                                                   DTSBR910
