00001  IDENTIFICATION DIVISION.                                         03/22/06
00002  PROGRAM-ID.             DTSBR112.                                DTSBR112
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV028
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBR112
00005  DATE-COMPILED.                                                   DTSBR112
00006      SKIP3                                                        DTSBR112
00007 *****                                                             DTSBR112
00008 *                                                                 DTSBR112
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR112
00010 *                       DTSBD311 WHICH UPDATES DTSIR112           DTSBR112
00011 *                       DTSBR112 READS DTSIR112 RECORDS.          DTSBR112
00012 *                                                                 DTSBR112
00013 *    FUNCTION:  NOTICE OF SUBJECTIVITY (UI-47)                    DTSBR112
00014 *                                                                 DTSBR112
00015 *                                                                 DTSBR112
00016 *    MODIFICATION HISTORY:                                        DTSBR112
00017 *                                                                 DTSBR112
00018 * 12-10-2001 INITIAL DEVELOPMENT . COPIED FROM DTSBR112.          DTSBR112
00019 *            REFERENCE RFP: HOUSEHOLD     AUTHOR OF CHANGE - ZL1  DTSBR112
00020 *                                                                 DTSBR112
00021 * 03-02-2006 MODIFIED FOR NEW VERSION OF BU109.                   DTSBR112
00022 *            REFERENCE RFP: ADMIN ASSESS  AUTHOR OF CHANGE - GD   DTSBR112
00023 *                                                                 DTSBR112
00024 *    DESCRIPTION:                                                 DTSBR112
00025 *                                                                 DTSBR112
00026 *        THIS MODULE PRINTS A NOTICE TO EMPLOYERS TELLING THEM    DTSBR112
00027 *        THEY HAVE BEEN DETERMINED SUBJECT TO THE REPORTING       DTSBR112
00028 *        PROVISIONS OF THE MONTANA UNEMPLOYMENT INSURANCE LAW.    DTSBR112
00029 *                                                                 DTSBR112
00030 *                                                                 DTSBR112
00031 *    RECORDS READ:                                                DTSBR112
00032 *                                                                 DTSBR112
00033 *        NONE.                                                    DTSBR112
00034 *                                                                 DTSBR112
00035 *                                                                 DTSBR112
00036 *    PRINTED OUTPUTS:                                             DTSBR112
00037 *                                                                 DTSBR112
00038 *        112R1  NOTICE OF SUBJECTIVITY (UI-47) FOR QTRLY FILERS   DTSBR112
00039 *               NOTICE OF SUBJECTIVITY (UI-47) FOR ANNUAL FILERS  DTSBR112
00040 *                                                                 DTSBR112
00041 *                                                                 DTSBR112
00042 *    RECORDS WRITTEN:                                             DTSBR112
00043 *                                                                 DTSBR112
00044 *        NONE.                                                    DTSBR112
00045 *                                                                 DTSBR112
00046 *                                                                 DTSBR112
00047 *    MODULES CALLED:                                              DTSBR112
00048 *                                                                 DTSBR112
00049 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR112
00050 *        DTSBU004 QTR EDIT/CONVERSION MODULE                      DTSBR112
00051 *        DTSBU006 RATING YEAR PERIOD START/END MODULE             DTSBR112
00052 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR112
00053 *        DTSBU057 EMPLOYER DIV CODE EDIT/DESCRIPTION MODULE       DTSBR112
00054 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR112
00055 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR112
00056 *        DTSBU090 PARAGRAPH FORMATTING MODULE                     DTSBR112
00057 *        DTSBU109 AFT RATE LOOKUP MODULE                          DTSBR112
00058 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR112
00059 *                                                                 DTSBR112
00060 *                                                                 DTSBR112
00061 *****                                                             DTSBR112
00062      EJECT                                                        DTSBR112
00063  ENVIRONMENT DIVISION.                                            DTSBR112
00064      SKIP2                                                        DTSBR112
00065  CONFIGURATION SECTION.                                           DTSBR112
00066  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR112
00067      SKIP1                                                        DTSBR112
00068  INPUT-OUTPUT SECTION.                                            DTSBR112
00069      SKIP1                                                        DTSBR112
00070  FILE-CONTROL.                                                    DTSBR112
00071      SELECT PRT-FILE1 ASSIGN TO RPT112R1.                         DTSBR112
00072      SKIP3                                                        DTSBR112
00073  DATA DIVISION.                                                   DTSBR112
00074      SKIP3                                                        DTSBR112
00075  FILE SECTION.                                                    DTSBR112
00076      SKIP2                                                        DTSBR112
00077  FD  PRT-FILE1                                                    DTSBR112
00078      RECORDING MODE IS F                                          DTSBR112
00079      BLOCK CONTAINS 0 RECORDS                                     DTSBR112
00080      LABEL RECORDS ARE OMITTED.                                   DTSBR112
00081  01  XEROX-REPORT.                                                DTSBR112
00082      05  FILLER                      PIC X(1).                    DTSBR112
00083      05  XEROX-RPT                   PIC X(132).                  DTSBR112
00084                                                                   DTSBR112
00085      EJECT                                                        DTSBR112
00086  WORKING-STORAGE SECTION.                                         DTSBR112
000865 77  PAN-VALET PICTURE X(24) VALUE '028DTSBR112  03/22/06'.       DTSBR112
00087      SKIP3                                                        DTSBR112
00088  01  WRK-AREA.                                                    DTSBR112
00089      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +112.DTSBR112
00090      05  SLASH                       PIC  X(01)  VALUE '/'.       DTSBR112
00091      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR112
00092      05  LAST-RATE-PERIOD-FOUND-IND  PIC  X(01).                  DTSBR112
00093          88  LAST-RATE-PERIOD-FOUND-88           VALUE 'Y'.       DTSBR112
00094      05  WS-SUB                      PIC S9(04)  COMP.            DTSBR112
00095      05  WS-OP-ID-HOLD               PIC  X(08)  VALUE SPACES.    DTSBR112
00096      05  WS-LAST-NOTICE-QTR          PIC S9(05)  COMP-3.          DTSBR112
00097      05  WS-UI-RATE-HOLD             PIC S9(01)V9(04)             DTSBR112
00098                                                  COMP-3.          DTSBR112
00099      05  WS-ANN-DUE-DATE             PIC 9(08) VALUE ZEROS.       DTSBR112
00100      05  WS-ANN-DUE-DATE-X  REDEFINES WS-ANN-DUE-DATE.            DTSBR112
00101          10  WS-ANN-DUE-YY           PIC 9(04).                   DTSBR112
00102          10  WS-ANN-DUE-MM           PIC 9(02).                   DTSBR112
00103          10  WS-ANN-DUE-DD           PIC 9(02).                   DTSBR112
00104                                                                   DTSBR112
00105      05  WS-PROGRAM-VOICE.                                        DTSBR112
00106          10  WS-PRGM-VOICE-AREA      PIC X(03)  VALUE SPACES.     DTSBR112
00107          10  WS-PRGM-VOICE-1         PIC X(03)  VALUE SPACES.     DTSBR112
00108          10  WS-PRGM-VOICE-2         PIC X(04)  VALUE SPACES.     DTSBR112
00109          10  WS-PRGM-VOICE-EXT       PIC X(04)  VALUE SPACES.     DTSBR112
00110                                                                   DTSBR112
00111      05  WS-PROGRAM-FAX.                                          DTSBR112
00112          10  WS-PRGM-FAX-AREA        PIC X(03)  VALUE SPACES.     DTSBR112
00113          10  WS-PRGM-FAX-1           PIC X(03)  VALUE SPACES.     DTSBR112
00114          10  WS-PRGM-FAX-2           PIC X(04)  VALUE SPACES.     DTSBR112
00115          10  WS-PRGM-FAX-EXT         PIC X(04)  VALUE SPACES.     DTSBR112
00116                                                                   DTSBR112
00117      SKIP1                                                        DTSBR112
00118      05  WS-AGENCY-FACTS.                                         DTSBR112
00119          10  WS-AGY-NAMEB1-CAPS      PIC  X(40)  VALUE SPACES.    DTSBR112
00120          10  WS-AGY-NAMEB2-CAPS      PIC  X(40)  VALUE SPACES.    DTSBR112
00121          10  WS-PROGRAM-NAME-CAPS    PIC  X(50)  VALUE SPACES.    DTSBR112
00122 *        10  WS-PROGRAM-VOICE        PIC  X(14)  VALUE SPACES.    DTSBR112
00123 *        10  WS-PROGRAM-FAX          PIC  X(14)  VALUE SPACES.    DTSBR112
00124          10  WS-PROGRAM-TDD          PIC  X(14)  VALUE SPACES.    DTSBR112
00125      SKIP1                                                        DTSBR112
00126      05  WS-IND-BASED-RATE-FOUND-IND PIC  X(01).                  DTSBR112
00127          88  WS-IND-BASED-RATE-FOUND-88          VALUE 'Y'.       DTSBR112
00128      05  WS-YOUR-INDUSTRY-CLASS-IS   PIC  X(31)  VALUE SPACES.    DTSBR112
00129      05  WS-DIV-DSCR-LINE1           PIC  X(70)  VALUE SPACES.    DTSBR112
00130      05  WS-DIV-DSCR-LINE2           PIC  X(70)  VALUE SPACES.    DTSBR112
00131      SKIP1                                                        DTSBR112
00132      05  WS-RATE-PERIOD-COMPARE-FIELDS.                           DTSBR112
00133          10  WS-RATE-YRQ-LB-9    PIC S9(05)       COMP-3.         DTSBR112
00134          10  WS-RATE-YRQ-UB-9    PIC S9(05)       COMP-3.         DTSBR112
00135          10  WS-UI-RATE-9        PIC S9(01)V9(04) COMP-3.         DTSBR112
00136      05  WS-RATE-LINE-TABLE-INIT     PIC  X(234)  VALUE SPACES.   DTSBR112
00137      05  WS-RATE-LINE-TABLE REDEFINES WS-RATE-LINE-TABLE-INIT.    DTSBR112
00138          10  WS-RATE-LINE-OCCURS OCCURS 6 TIMES.                  DTSBR112
00139              15  WS-RATE-YRQ-LB      PIC  9999/9.                 DTSBR112
00140              15  WS-RATE-YRQ-LB-X REDEFINES WS-RATE-YRQ-LB        DTSBR112
00141                                      PIC  X(06).                  DTSBR112
00142              15  WS-RATE-YRQ-DASH    PIC  X(01).                  DTSBR112
00143              15  WS-RATE-YRQ-UB      PIC  9999/9.                 DTSBR112
00144              15  WS-RATE-YRQ-UB-X REDEFINES WS-RATE-YRQ-UB        DTSBR112
00145                                      PIC  X(06).                  DTSBR112
00146              15  WS-UI-RATE-AREA     PIC  X(12).                  DTSBR112
00147              15  FILLER REDEFINES WS-UI-RATE-AREA.                DTSBR112
00148                  20  FILLER          PIC  X(01).                  DTSBR112
00149                  20  WS-UI-RATE-DISPLAY                           DTSBR112
00150                                      PIC  X(07).                  DTSBR112
00151                  20  FILLER          PIC  X(04).                  DTSBR112
00152          10  FILLER                  PIC  X(84).                  DTSBR112
00153                                                                   DTSBR112
00154  01  VSCA-LINE.                                                   DTSBR112
00155      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR112
00156                                                                   DTSBR112
00157      EJECT                                                        DTSBR112
00158  01  L001-LINK-AREA.                                              DTSBR112
00159  ++INCLUDE DTSIL001                                               DTSBR112
00160      EJECT                                                        DTSBR112
00161  01  L002-LINK-AREA.                                              DTSBR112
00162  ++INCLUDE DTSIL002                                               DTSBR112
00163      EJECT                                                        DTSBR112
00164  01  L004-LINK-AREA.                                              DTSBR112
00165  ++INCLUDE DTSIL004                                               DTSBR112
00166      EJECT                                                        DTSBR112
00167  01  L006-LINK-AREA.                                              DTSBR112
00168  ++INCLUDE DTSIL006                                               DTSBR112
00169      EJECT                                                        DTSBR112
00170  01  L056-LINK-AREA.                                              DTSBR112
00171  ++INCLUDE DTSIL056                                               DTSBR112
00172      EJECT                                                        DTSBR112
00173  01  L057-LINK-AREA.                                              DTSBR112
00174  ++INCLUDE DTSIL057                                               DTSBR112
00175      EJECT                                                        DTSBR112
00176  01  L071-LINK-AREA.                                              DTSBR112
00177  ++INCLUDE DTSIL071                                               DTSBR112
00178      EJECT                                                        DTSBR112
00179  01  L082-LINK-AREA.                                              DTSBR112
00180  ++INCLUDE DTSIL082                                               DTSBR112
00181      EJECT                                                        DTSBR112
00182  01  L090-LINK-AREA.                                              DTSBR112
00183  ++INCLUDE DTSIL090                                               DTSBR112
00184      EJECT                                                        DTSBR112
00185  01  L109-LINK-AREA.                                              DTSBR112
00186  ++INCLUDE DTSIL109                                               DTSBR112
00187      EJECT                                                        DTSBR112
00188  01  L119-LINK-AREA.                                              DTSBR112
00189  ++INCLUDE DTSIL119                                               DTSBR112
00190      EJECT                                                        DTSBR112
00191                                                                   DTSBR112
00192  01  ROUTE-INFO-LINE12.                                           DTSBR112
00193      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00194      05  FILLER                      PIC  X(40)                   DTSBR112
00195                 VALUE ALL '*'.                                    DTSBR112
00196      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR112
00197  01  ROUTE-INFO-LINE13.                                           DTSBR112
00198      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00199      05  FILLER                      PIC  X(40)                   DTSBR112
00200                 VALUE '*   ROUTE REPORT RPT112R1 TO:          *'. DTSBR112
00201      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR112
00202  01  ROUTE-INFO-LINE14.                                           DTSBR112
00203      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00204      05  FILLER                      PIC  X(01)                   DTSBR112
00205                 VALUE '*'.                                        DTSBR112
00206      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00207      05  WS-NAME-INFO                PIC  X(32)  VALUE SPACES.    DTSBR112
00208      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00209      05  FILLER                      PIC  X(01)                   DTSBR112
00210                 VALUE '*'.                                        DTSBR112
00211      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR112
00212  01  ROUTE-INFO-LINE15.                                           DTSBR112
00213      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00214      05  FILLER                      PIC  X(01)                   DTSBR112
00215                 VALUE '*'.                                        DTSBR112
00216      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00217      05  WS-UNIT-NAME-INFO           PIC  X(30)  VALUE SPACES.    DTSBR112
00218      05  FILLER                      PIC  X(05)  VALUE SPACES.    DTSBR112
00219      05  FILLER                      PIC  X(01)                   DTSBR112
00220                 VALUE '*'.                                        DTSBR112
00221      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR112
00222  01  ROUTE-INFO-LINE16.                                           DTSBR112
00223      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR112
00224      05  FILLER                      PIC  X(40)                   DTSBR112
00225                 VALUE ALL '*'.                                    DTSBR112
00226      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR112
00227      SKIP2                                                        DTSBR112
00228  01  REPORT-LINES.                                                DTSBR112
00229      05  RPT-LINE-1.                                              DTSBR112
00230          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00231          10  RPT-MAIL-DATE           PIC  X(18).                  DTSBR112
00232          10  FILLER                  PIC  X(58) VALUE SPACES.     DTSBR112
00233      SKIP3                                                        DTSBR112
00234      05  RPT-LINE-2.                                              DTSBR112
00235          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00236          10  FILLER                  PIC  X(13) VALUE             DTSBR112
00237                                      'ACCOUNT NO:  '.             DTSBR112
00238          10  RPT-EMP-NO              PIC  999B999.                DTSBR112
00239          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR112
00240          10  FILLER                  PIC  X(48) VALUE SPACES.     DTSBR112
00241      05  RPT-LINE-3.                                              DTSBR112
00242          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00243          10  RPT-ADDR1               PIC  X(40).                  DTSBR112
00244          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR112
00245      05  RPT-LINE-4.                                              DTSBR112
00246          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00247          10  RPT-ADDR2               PIC  X(40).                  DTSBR112
00248          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR112
00249      05  RPT-LINE-5.                                              DTSBR112
00250          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00251          10  RPT-ADDR3               PIC  X(40).                  DTSBR112
00252          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR112
00253      05  RPT-LINE-6.                                              DTSBR112
00254          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00255          10  RPT-ADDR4               PIC  X(40).                  DTSBR112
00256          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR112
00257      05  RPT-LINE-7.                                              DTSBR112
00258          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00259          10  RPT-ADDR5               PIC  X(40).                  DTSBR112
00260          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR112
00261      05  RPT-LINE-7A.                                             DTSBR112
00262          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00263          10  RPT-RATE                PIC  X(40) VALUE             DTSBR112
00264            'YOUR REGISTRATION RATE IS:'.                          DTSBR112
00265      05  RPT-LINE-7B.                                             DTSBR112
00266          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR112
00267          10  RPT-RATE                PIC  X(40) VALUE             DTSBR112
00268            'YOUR REGISTRATION RATES ARE:'.                        DTSBR112
00269      05  RPT-LINE-8.                                              DTSBR112
00270          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR112
00271          10  RPT-RATE-YRQ-LB-X-1     PIC  X(06).                  DTSBR112
00272          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00273          10  RPT-RATE-YRQ-DASH-1     PIC  X(01).                  DTSBR112
00274          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00275          10  RPT-RATE-YRQ-UB-X-1     PIC  X(06).                  DTSBR112
00276          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR112
00277          10  RPT-UI-RATE-AREA-1      PIC  X(12).                  DTSBR112
00278      05  RPT-LINE-9.                                              DTSBR112
00279          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR112
00280          10  RPT-RATE-YRQ-LB-X-2     PIC  X(06).                  DTSBR112
00281          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00282          10  RPT-RATE-YRQ-DASH-2     PIC  X(01).                  DTSBR112
00283          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00284          10  RPT-RATE-YRQ-UB-X-2     PIC  X(06).                  DTSBR112
00285          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR112
00286          10  RPT-UI-RATE-AREA-2      PIC  X(12).                  DTSBR112
00287      05  RPT-LINE-10.                                             DTSBR112
00288          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR112
00289          10  RPT-RATE-YRQ-LB-X-3     PIC  X(06).                  DTSBR112
00290          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00291          10  RPT-RATE-YRQ-DASH-3     PIC  X(01).                  DTSBR112
00292          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00293          10  RPT-RATE-YRQ-UB-X-3     PIC  X(06).                  DTSBR112
00294          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR112
00295          10  RPT-UI-RATE-AREA-3      PIC  X(12).                  DTSBR112
00296      05  RPT-LINE-11.                                             DTSBR112
00297          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR112
00298          10  RPT-RATE-YRQ-LB-X-4     PIC  X(06).                  DTSBR112
00299          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00300          10  RPT-RATE-YRQ-DASH-4     PIC  X(01).                  DTSBR112
00301          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00302          10  RPT-RATE-YRQ-UB-X-4     PIC  X(06).                  DTSBR112
00303          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR112
00304          10  RPT-UI-RATE-AREA-4      PIC  X(12).                  DTSBR112
00305      05  RPT-LINE-12.                                             DTSBR112
00306          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR112
00307          10  RPT-RATE-YRQ-LB-X-5     PIC  X(06).                  DTSBR112
00308          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00309          10  RPT-RATE-YRQ-DASH-5     PIC  X(01).                  DTSBR112
00310          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00311          10  RPT-RATE-YRQ-UB-X-5     PIC  X(06).                  DTSBR112
00312          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR112
00313          10  RPT-UI-RATE-AREA-5      PIC  X(12).                  DTSBR112
00314      05  RPT-LINE-13.                                             DTSBR112
00315          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR112
00316          10  RPT-RATE-YRQ-LB-X-6     PIC  X(06).                  DTSBR112
00317          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00318          10  RPT-RATE-YRQ-DASH-6     PIC  X(01).                  DTSBR112
00319          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR112
00320          10  RPT-RATE-YRQ-UB-X-6     PIC  X(06).                  DTSBR112
00321          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR112
00322          10  RPT-UI-RATE-AREA-6      PIC  X(12).                  DTSBR112
00323      05  RPT-LINE-14.                                             DTSBR112
00324          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR112
00325          10  RPT-ANN-CAL-YEAR        PIC  9(04).                  DTSBR112
00326          10  FILLER                  PIC  X(11).                  DTSBR112
00327          10  RPT-ANN-JAN-DATE        PIC  9(04).                  DTSBR112
00328          10  FILLER                  PIC  X(01).                  DTSBR112
00329      05  RPT-LINE-15.                                             DTSBR112
00330          10  FILLER                  PIC  X(22)  VALUE SPACES.    DTSBR112
00331          10  RPT-ANN-DUE-MM          PIC  X(02).                  DTSBR112
00332          10  RPT-SLASH1              PIC  X(01)  VALUE SPACES.    DTSBR112
00333          10  RPT-ANN-DUE-DD          PIC  X(02).                  DTSBR112
00334          10  RPT-SLASH2              PIC  X(01)  VALUE SPACES.    DTSBR112
00335          10  RPT-ANN-DUE-YY          PIC  X(04).                  DTSBR112
00336          10  FILLER                  PIC  X(12).                  DTSBR112
00337  ++INCLUDE DTSXL112                                               DTSBR112
00338      EJECT                                                        DTSBR112
00339  LINKAGE SECTION.                                                 DTSBR112
00340      SKIP3                                                        DTSBR112
00341  01  LRCM-LINK-AREA.                                              DTSBR112
00342  ++INCLUDE DTSILRCM                                               DTSBR112
00343      EJECT                                                        DTSBR112
00344  01  R112-REC.                                                    DTSBR112
00345  ++INCLUDE DTSIR112                                               DTSBR112
00346      EJECT                                                        DTSBR112
00347  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR112
00348                           R112-REC.                               DTSBR112
00349      SKIP2                                                        DTSBR112
00350      IF FIRST-TIME-IND = 'Y'                                      DTSBR112
00351          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR112
00352          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR112
00353      SKIP1                                                        DTSBR112
00354      IF LRCM-EOR-88                                               DTSBR112
00355          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR112
00356      ELSE                                                         DTSBR112
00357          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR112
00358      SKIP2                                                        DTSBR112
00359      GOBACK.                                                      DTSBR112
00360      EJECT                                                        DTSBR112
00361  I1000-INITIATE.                                                  DTSBR112
00362      SKIP1                                                        DTSBR112
00363      OPEN OUTPUT PRT-FILE1.                                       DTSBR112
00364      MOVE SPACES TO XEROX-REPORT.                                 DTSBR112
00365      MOVE SPACES TO WS-OP-ID-HOLD.                                DTSBR112
00366      MOVE ZEROES TO WS-RATE-YRQ-UB-9.                             DTSBR112
00367      SKIP1                                                        DTSBR112
00368      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR112
00369      SET L119-REQ-NO-UNIT-88 TO TRUE.                             DTSBR112
00370      PERFORM S119-AGENCY-FACTS THRU S119-EXIT.                    DTSBR112
00371      MOVE L119-UC-OFFICE-VOICE      TO WS-PROGRAM-VOICE.          DTSBR112
00372      MOVE L119-UC-OFFICE-FAX        TO WS-PROGRAM-FAX.            DTSBR112
00373      SKIP1                                                        DTSBR112
00374      WRITE XEROX-REPORT FROM XEROX-CNTL-LINE                      DTSBR112
00375            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR112
00376  I1000-EXIT.                                                      DTSBR112
00377      EXIT.                                                        DTSBR112
00378      EJECT                                                        DTSBR112
00379  P1000-PROCESS.                                                   DTSBR112
00380      SKIP1                                                        DTSBR112
00381      IF R112-OP-ID = WS-OP-ID-HOLD                                DTSBR112
00382          NEXT SENTENCE                                            DTSBR112
00383      ELSE                                                         DTSBR112
00384          MOVE R112-OP-ID TO WS-OP-ID-HOLD                         DTSBR112
00385                             L082-OP-ID                            DTSBR112
00386          PERFORM S082-OP-ID-INFO THRU S082-EXIT                   DTSBR112
00387          MOVE L082-NAME TO L071-NAM                               DTSBR112
00388          MOVE 2 TO L071-NAME-FORMAT                               DTSBR112
00389          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR112
00390                                                                   DTSBR112
00391          MOVE L071-NAM TO WS-NAME-INFO                            DTSBR112
00392          MOVE L082-UNIT-NAME TO WS-UNIT-NAME-INFO                 DTSBR112
00393          WRITE XEROX-REPORT   FROM VSCA-LINE                      DTSBR112
00394              AFTER ADVANCING TOP-OF-PAGE                          DTSBR112
00395          WRITE XEROX-REPORT   FROM VSCA-LINE AFTER ADVANCING 9    DTSBR112
00396          WRITE XEROX-REPORT   FROM ROUTE-INFO-LINE12              DTSBR112
00397          WRITE XEROX-REPORT   FROM ROUTE-INFO-LINE13              DTSBR112
00398          WRITE XEROX-REPORT   FROM ROUTE-INFO-LINE14              DTSBR112
00399          WRITE XEROX-REPORT   FROM ROUTE-INFO-LINE15              DTSBR112
00400          WRITE XEROX-REPORT   FROM ROUTE-INFO-LINE16.             DTSBR112
00401                                                                   DTSBR112
00402      SKIP1                                                        DTSBR112
00403      MOVE R112-RUN-DATE TO L001-FED-8-DATE-9.                     DTSBR112
00404      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR112
00405      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR112
00406      SKIP1                                                        DTSBR112
00407 *****MOVE R112-RUN-DATE TO L004-DATE.                             DTSBR112
00408 *****SET L004-FROM-DATE TO TRUE.                                  DTSBR112
00409 *****PERFORM S004-CONVERT-QTR THRU S004-EXIT.                     DTSBR112
00410 *****MOVE L004-QTR-5-9 TO L006-YRQ.                               DTSBR112
00411 *****SET L006-FROM-QTR TO TRUE.                                   DTSBR112
00412 *****MOVE R112-EMP-CLASS TO L006-EMP-CLASS.                       DTSBR112
00413 *****PERFORM S006-RATING-PERIOD THRU S006-EXIT.                   DTSBR112
00414 *****IF R112-LAST-LIAB-YRQ < L006-RTE-YR-END-YRQ                  DTSBR112
00415 *********MOVE R112-LAST-LIAB-YRQ TO WS-LAST-NOTICE-QTR            DTSBR112
00416 *****ELSE                                                         DTSBR112
00417 *********MOVE L006-RTE-YR-END-YRQ TO WS-LAST-NOTICE-QTR.          DTSBR112
00418      SKIP1                                                        DTSBR112
00419      IF R112-RATE-CNT > +0                                        DTSBR112
00420          MOVE R112-RATE-END-YRQ (R112-RATE-CNT)                   DTSBR112
00421            TO WS-LAST-NOTICE-QTR                                  DTSBR112
00422      ELSE                                                         DTSBR112
00423          MOVE R112-LAST-RATE-END-YRQ TO WS-LAST-NOTICE-QTR.       DTSBR112
00424                                                                   DTSBR112
00425      IF R112-LAST-LIAB-YRQ < WS-LAST-NOTICE-QTR                   DTSBR112
00426          MOVE R112-LAST-LIAB-YRQ TO WS-LAST-NOTICE-QTR.           DTSBR112
00427      SKIP1                                                        DTSBR112
00428      MOVE SPACES TO WS-RATE-LINE-TABLE-INIT                       DTSBR112
00429                     WS-YOUR-INDUSTRY-CLASS-IS                     DTSBR112
00430                     WS-DIV-DSCR-LINE1                             DTSBR112
00431                     WS-DIV-DSCR-LINE2.                            DTSBR112
00432      MOVE 'N' TO WS-IND-BASED-RATE-FOUND-IND.                     DTSBR112
00433      PERFORM P2000-SET-RATE-LINE-TABLE THRU P2000-EXIT.           DTSBR112
00434      SKIP1                                                        DTSBR112
00435      IF WS-IND-BASED-RATE-FOUND-88                                DTSBR112
00436          PERFORM P1050-SET-DESCRIPTION THRU P1050-EXIT.           DTSBR112
00437      SKIP1                                                        DTSBR112
00438      PERFORM P3000-PRINT-NOTICE-PAGE THRU P3000-EXIT.             DTSBR112
00439      SKIP2                                                        DTSBR112
00440  P1000-EXIT.                                                      DTSBR112
00441      EXIT.                                                        DTSBR112
00442      EJECT                                                        DTSBR112
00443  P1050-SET-DESCRIPTION.                                           DTSBR112
00444      SKIP1                                                        DTSBR112
00445 *    MOVE R112-SIC-DIVISION TO L057-DIVISION-CODE.                DTSBR112
00446 *    PERFORM S057-DIV-DESCRIPTION THRU S057-EXIT.                 DTSBR112
00447 *    MOVE 'YOUR INDUSTRY CLASSIFICATION IS'                       DTSBR112
00448 *        TO L090-PHRASE-TABLE (1).                                DTSBR112
00449 *    MOVE L057-DESCRIPTION1                                       DTSBR112
00450 *        TO L090-PHRASE-TABLE (2).                                DTSBR112
00451 *    IF L057-DESCRIPTION2 = SPACES                                DTSBR112
00452 *        MOVE '.' TO L090-PHRASE-TABLE (3)                        DTSBR112
00453 *        MOVE +3 TO L090-PHRASE-CNT                               DTSBR112
00454 *    ELSE                                                         DTSBR112
00455 *        MOVE L057-DESCRIPTION2                                   DTSBR112
00456 *            TO L090-PHRASE-TABLE (3)                             DTSBR112
00457 *        MOVE '.' TO L090-PHRASE-TABLE (4)                        DTSBR112
00458 *        MOVE +4 TO L090-PHRASE-CNT.                              DTSBR112
00459      MOVE +69 TO L090-DESIRED-LINE-LIMIT.                         DTSBR112
00460  P1050-EXIT.                                                      DTSBR112
00461      EXIT.                                                        DTSBR112
00462      EJECT                                                        DTSBR112
00463  P2000-SET-RATE-LINE-TABLE.                                       DTSBR112
00464      MOVE SPACES TO WS-RATE-LINE-TABLE-INIT.                      DTSBR112
00465      SKIP1                                                        DTSBR112
00466      MOVE R112-FIRST-LIAB-YRQ TO L004-QTR-5-9.                    DTSBR112
00467      SET L004-FROM-5 TO TRUE.                                     DTSBR112
00468      PERFORM S004-CONVERT-QTR THRU S004-EXIT.                     DTSBR112
00469      MOVE R112-EMP-CLASS TO L109-EMP-CLASS.                       DTSBR112
00470      MOVE L004-QTR-5-9 TO L109-YRQ.                               DTSBR112
00471                                                                   DTSBR112
00472      IF R112-RPT-TYPE = 'A'                                       DTSBR112
00473         MOVE L004-ANN-DEFAULT-DUE-DATE TO WS-ANN-DUE-DATE         DTSBR112
00474         MOVE SLASH   TO RPT-SLASH1 RPT-SLASH2                     DTSBR112
00475         MOVE WS-ANN-DUE-YY             TO RPT-ANN-DUE-YY          DTSBR112
00476         MOVE WS-ANN-DUE-MM             TO RPT-ANN-DUE-MM          DTSBR112
00477         MOVE WS-ANN-DUE-DD             TO RPT-ANN-DUE-DD          DTSBR112
00478         MOVE L004-SLASH-5-YR           TO RPT-ANN-CAL-YEAR        DTSBR112
00479         ADD 1 TO L004-SLASH-5-YR GIVING RPT-ANN-JAN-DATE.         DTSBR112
00480                                                                   DTSBR112
00481      IF R112-CLASS-RATED-88                                       DTSBR112
00482          MOVE -9.9999 TO WS-UI-RATE-HOLD                          DTSBR112
00483          PERFORM P2015-FIND-UI-RATE THRU P2015-EXIT               DTSBR112
00484             VARYING R112-RATE-IDX FROM +1 BY +1                   DTSBR112
00485                UNTIL R112-RATE-IDX > R112-RATE-CNT.               DTSBR112
00486      MOVE +0 TO WS-SUB.                                           DTSBR112
00487      MOVE 'N' TO LAST-RATE-PERIOD-FOUND-IND.                      DTSBR112
00488      PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT.        DTSBR112
00489      PERFORM P2010-RATE-LOOP THRU P2010-EXIT                      DTSBR112
00490         UNTIL LAST-RATE-PERIOD-FOUND-88.                          DTSBR112
00491      SKIP2                                                        DTSBR112
00492  P2000-EXIT.                                                      DTSBR112
00493      EXIT.                                                        DTSBR112
00494      EJECT                                                        DTSBR112
00495  P2010-RATE-LOOP.                                                 DTSBR112
00496      SKIP1                                                        DTSBR112
00497      ADD +1 TO L004-ABS-QTR.                                      DTSBR112
00498      SET L004-FROM-ABS TO TRUE.                                   DTSBR112
00499      PERFORM S004-CONVERT-QTR THRU S004-EXIT.                     DTSBR112
00500      MOVE R112-EMP-CLASS TO L109-EMP-CLASS.                       DTSBR112
00501      MOVE L004-QTR-5-9 TO L109-YRQ.                               DTSBR112
00502      IF R112-CLASS-RATED-88                                       DTSBR112
00503          MOVE -9.9999 TO WS-UI-RATE-HOLD                          DTSBR112
00504          PERFORM P2015-FIND-UI-RATE THRU P2015-EXIT               DTSBR112
00505             VARYING R112-RATE-IDX FROM +1 BY +1                   DTSBR112
00506                UNTIL R112-RATE-IDX > R112-RATE-CNT.               DTSBR112
00507      IF L004-QTR-5-9 > WS-RATE-YRQ-UB-9                           DTSBR112
00508          PERFORM P2020-SET-DISPLAY-LINE THRU P2020-EXIT           DTSBR112
00509          PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT     DTSBR112
00510          GO TO P2010-EXIT.                                        DTSBR112
00511      SKIP1                                                        DTSBR112
00512      IF ((R112-CLASS-RATED-88)                                    DTSBR112
00513                         AND                                       DTSBR112
00514         (WS-UI-RATE-HOLD NOT = WS-UI-RATE-9))                     DTSBR112
00515          SUBTRACT +1 FROM L004-ABS-QTR                            DTSBR112
00516          SET L004-FROM-ABS TO TRUE                                DTSBR112
00517          PERFORM S004-CONVERT-QTR THRU S004-EXIT                  DTSBR112
00518          MOVE L004-QTR-5-9 TO WS-RATE-YRQ-UB-9                    DTSBR112
00519          PERFORM P2020-SET-DISPLAY-LINE THRU P2020-EXIT           DTSBR112
00520          ADD +1 TO L004-ABS-QTR                                   DTSBR112
00521          SET L004-FROM-ABS TO TRUE                                DTSBR112
00522          PERFORM S004-CONVERT-QTR THRU S004-EXIT                  DTSBR112
00523          PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT     DTSBR112
00524          GO TO P2010-EXIT.                                        DTSBR112
00525      SKIP2                                                        DTSBR112
00526  P2010-EXIT.                                                      DTSBR112
00527      EXIT.                                                        DTSBR112
00528      EJECT                                                        DTSBR112
00529  P2015-FIND-UI-RATE.                                              DTSBR112
00530      SKIP1                                                        DTSBR112
00531      IF (R112-RATE-EFF-YRQ (R112-RATE-IDX) <= L004-QTR-5-9)       DTSBR112
00532                             AND                                   DTSBR112
00533         (R112-RATE-END-YRQ (R112-RATE-IDX) >= L004-QTR-5-9)       DTSBR112
00534          MOVE R112-UI-RATE (R112-RATE-IDX) TO WS-UI-RATE-HOLD.    DTSBR112
00535      SKIP2                                                        DTSBR112
00536  P2015-EXIT.                                                      DTSBR112
00537      EXIT.                                                        DTSBR112
00538      EJECT                                                        DTSBR112
00539  P2020-SET-DISPLAY-LINE.                                          DTSBR112
00540      SKIP1                                                        DTSBR112
00541      MOVE WS-RATE-YRQ-LB-9 TO WS-RATE-YRQ-LB (WS-SUB).            DTSBR112
00542      MOVE '-' TO WS-RATE-YRQ-DASH (WS-SUB).                       DTSBR112
00543      MOVE WS-RATE-YRQ-UB-9 TO WS-RATE-YRQ-UB (WS-SUB).            DTSBR112
00544      SKIP1                                                        DTSBR112
00545      IF R112-CLASS-RATED-88                                       DTSBR112
00546          SET L056-DISP3-RIGHT-88 TO TRUE                          DTSBR112
00547      ELSE                                                         DTSBR112
00548          SET L056-DISP4-RIGHT-88 TO TRUE.                         DTSBR112
00549      SKIP1                                                        DTSBR112
00550      IF R112-CLASS-RATED-88                                       DTSBR112
00551          IF WS-UI-RATE-9 = -9.9999                                DTSBR112
00552              MOVE 'NOT COMPUTED' TO WS-UI-RATE-AREA (WS-SUB)      DTSBR112
00553          ELSE                                                     DTSBR112
00554              MOVE SPACES TO WS-UI-RATE-AREA (WS-SUB)              DTSBR112
00555              MOVE WS-UI-RATE-9 TO L056-RATE                       DTSBR112
00556              IF R112-CLASS-RATED-88                               DTSBR112
00557                  SET L056-DISP3-RIGHT-88 TO TRUE                  DTSBR112
00558              ELSE                                                 DTSBR112
00559                  SET L056-DISP4-RIGHT-88 TO TRUE                  DTSBR112
00560              END-IF                                               DTSBR112
00561              PERFORM S056-RATE-DISPLAY THRU S056-EXIT             DTSBR112
00562              MOVE L056-DISP-RATE TO WS-UI-RATE-DISPLAY (WS-SUB)   DTSBR112
00563              IF R112-CLASS-RATED-88                               DTSBR112
00564                  SET L056-DISP3-RIGHT-88 TO TRUE                  DTSBR112
00565              ELSE                                                 DTSBR112
00566                  SET L056-DISP4-RIGHT-88 TO TRUE                  DTSBR112
00567              END-IF.                                              DTSBR112
00568      SKIP2                                                        DTSBR112
00569  P2020-EXIT.                                                      DTSBR112
00570      EXIT.                                                        DTSBR112
00571      EJECT                                                        DTSBR112
00572  P2030-INITIAL-COMPARE-FIELDS.                                    DTSBR112
00573      SKIP1                                                        DTSBR112
00574      IF L004-QTR-5-9 > WS-LAST-NOTICE-QTR                         DTSBR112
00575          SET LAST-RATE-PERIOD-FOUND-88 TO TRUE                    DTSBR112
00576          GO TO P2030-EXIT.                                        DTSBR112
00577      SKIP1                                                        DTSBR112
00578      ADD +1 TO WS-SUB.                                            DTSBR112
00579      IF WS-SUB > +6                                               DTSBR112
00580          PERFORM                                                  DTSBR112
00581             VARYING WS-SUB FROM +2 BY +1 UNTIL WS-SUB > +6        DTSBR112
00582              MOVE WS-RATE-LINE-OCCURS (WS-SUB)                    DTSBR112
00583                 TO WS-RATE-LINE-OCCURS (WS-SUB - 1)               DTSBR112
00584          END-PERFORM                                              DTSBR112
00585          MOVE +6 TO WS-SUB.                                       DTSBR112
00586      SKIP1                                                        DTSBR112
00587      MOVE L004-QTR-5-9 TO WS-RATE-YRQ-LB-9                        DTSBR112
00588                           L006-YRQ.                               DTSBR112
00589      SET L006-FROM-QTR TO TRUE.                                   DTSBR112
00590 *    MOVE R112-EMP-CLASS TO L006-EMP-CLASS.                       DTSBR112
00591      PERFORM S006-RATING-PERIOD THRU S006-EXIT.                   DTSBR112
00592      IF L006-RTE-YR-END-YRQ < WS-LAST-NOTICE-QTR                  DTSBR112
00593          MOVE L006-RTE-YR-END-YRQ TO WS-RATE-YRQ-UB-9             DTSBR112
00594      ELSE                                                         DTSBR112
00595          MOVE WS-LAST-NOTICE-QTR TO WS-RATE-YRQ-UB-9.             DTSBR112
00596      SKIP1                                                        DTSBR112
00597      IF R112-CLASS-RATED-88                                       DTSBR112
00598          MOVE WS-UI-RATE-HOLD TO WS-UI-RATE-9.                    DTSBR112
00599      SKIP2                                                        DTSBR112
00600  P2030-EXIT.                                                      DTSBR112
00601      EXIT.                                                        DTSBR112
00602      EJECT                                                        DTSBR112
00603  P3000-PRINT-NOTICE-PAGE.                                         DTSBR112
00604      IF R112-RPT-TYPE = 'A'                                       DTSBR112
00605         MOVE   'FORMS=T112R2,''' TO XEROX-FORMS                   DTSBR112
00606      ELSE                                                         DTSBR112
00607         MOVE   'FORMS=T112R1,''' TO XEROX-FORMS.                  DTSBR112
00608                                                                   DTSBR112
00609      WRITE XEROX-REPORT FROM XEROX-CNTL-LINE                      DTSBR112
00610            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR112
00611                                                                   DTSBR112
00612 *    MOVE WS-PRGM-VOICE-1   TO WS-PROGRAM-VOICE-ONE.              DTSBR112
00613 *    MOVE WS-PRGM-VOICE-2   TO WS-PROGRAM-VOICE-TWO.              DTSBR112
00614 *    MOVE WS-PRGM-FAX-1     TO WS-PROGRAM-FAX-ONE.                DTSBR112
00615 *    MOVE WS-PRGM-FAX-2     TO WS-PROGRAM-FAX-TWO.                DTSBR112
00616      MOVE R112-RUN-DATE TO L002-DATE.                             DTSBR112
00617      SET L002-MIXED-CASE TO TRUE.                                 DTSBR112
00618      PERFORM S002-ALPHA-DATE THRU S002-EXIT.                      DTSBR112
00619                                                                   DTSBR112
00620      MOVE L002-LONG-TEXT-AREA TO  RPT-MAIL-DATE.                  DTSBR112
00621      MOVE R112-EMP-NO       TO RPT-EMP-NO.                        DTSBR112
00622      MOVE R112-FMT-LINE (1) TO RPT-ADDR1.                         DTSBR112
00623      MOVE R112-FMT-LINE (2) TO RPT-ADDR2.                         DTSBR112
00624      MOVE R112-FMT-LINE (3) TO RPT-ADDR3.                         DTSBR112
00625      MOVE R112-FMT-LINE (4) TO RPT-ADDR4.                         DTSBR112
00626      MOVE R112-FMT-LINE (5) TO RPT-ADDR5.                         DTSBR112
00627      PERFORM P4000-YRQ-RATE-MOVING THRU P4000-EXIT.               DTSBR112
00628                                                                   DTSBR112
00629      WRITE XEROX-REPORT  FROM VSCA-LINE                           DTSBR112
00630                                     AFTER ADVANCING 9 LINES.      DTSBR112
00631      WRITE XEROX-REPORT  FROM RPT-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR112
00632      WRITE XEROX-REPORT  FROM RPT-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR112
00633      WRITE XEROX-REPORT  FROM RPT-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR112
00634      WRITE XEROX-REPORT  FROM RPT-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR112
00635      WRITE XEROX-REPORT  FROM RPT-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR112
00636      WRITE XEROX-REPORT  FROM RPT-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR112
00637      WRITE XEROX-REPORT  FROM RPT-LINE-2 AFTER ADVANCING 2 LINE.  DTSBR112
00638                                                                   DTSBR112
00639      IF R112-RATE-CNT = 1                                         DTSBR112
00640        IF R112-RPT-TYPE = 'A'                                     DTSBR112
00641           WRITE XEROX-REPORT  FROM RPT-LINE-7A                    DTSBR112
00642                            AFTER ADVANCING 11 LINES               DTSBR112
00643        ELSE                                                       DTSBR112
00644           WRITE XEROX-REPORT  FROM RPT-LINE-7A                    DTSBR112
00645                            AFTER ADVANCING 09 LINES               DTSBR112
00646      ELSE                                                         DTSBR112
00647        IF R112-RPT-TYPE = 'A'                                     DTSBR112
00648           WRITE XEROX-REPORT  FROM RPT-LINE-7B                    DTSBR112
00649                            AFTER ADVANCING 11 LINES               DTSBR112
00650        ELSE                                                       DTSBR112
00651           WRITE XEROX-REPORT  FROM RPT-LINE-7B                    DTSBR112
00652                            AFTER ADVANCING 09 LINES.              DTSBR112
00653                                                                   DTSBR112
00654      WRITE XEROX-REPORT  FROM RPT-LINE-8 AFTER ADVANCING  4 LINES.DTSBR112
00655      WRITE XEROX-REPORT  FROM RPT-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR112
00656      WRITE XEROX-REPORT  FROM RPT-LINE-10 AFTER ADVANCING 1 LINE. DTSBR112
00657      WRITE XEROX-REPORT  FROM RPT-LINE-11 AFTER ADVANCING 1 LINE. DTSBR112
00658      WRITE XEROX-REPORT  FROM RPT-LINE-12 AFTER ADVANCING 1 LINE. DTSBR112
00659      WRITE XEROX-REPORT  FROM RPT-LINE-13 AFTER ADVANCING 1 LINE. DTSBR112
00660                                                                   DTSBR112
00661 *    IF R112-RPT-TYPE = 'A'                                       DTSBR112
00662 *       WRITE XEROX-REPORT  FROM RPT-LINE-14 AFTER                DTSBR112
00663 *           ADVANCING 08 LINE                                     DTSBR112
00664 *       WRITE XEROX-REPORT  FROM RPT-LINE-15 AFTER                DTSBR112
00665 *           ADVANCING 2 LINE.                                     DTSBR112
00666                                                                   DTSBR112
00667  P3000-EXIT.                                                      DTSBR112
00668      EXIT.                                                        DTSBR112
00669                                                                   DTSBR112
00670  P4000-YRQ-RATE-MOVING.                                           DTSBR112
00671      MOVE WS-RATE-YRQ-LB-X (1)  TO RPT-RATE-YRQ-LB-X-1.           DTSBR112
00672      MOVE WS-RATE-YRQ-DASH (1)  TO RPT-RATE-YRQ-DASH-1.           DTSBR112
00673      MOVE WS-RATE-YRQ-UB-X (1)  TO RPT-RATE-YRQ-UB-X-1.           DTSBR112
00674      MOVE WS-UI-RATE-AREA  (1)  TO RPT-UI-RATE-AREA-1.            DTSBR112
00675                                                                   DTSBR112
00676      MOVE WS-RATE-YRQ-LB-X (2)  TO RPT-RATE-YRQ-LB-X-2.           DTSBR112
00677      MOVE WS-RATE-YRQ-DASH (2)  TO RPT-RATE-YRQ-DASH-2.           DTSBR112
00678      MOVE WS-RATE-YRQ-UB-X (2)  TO RPT-RATE-YRQ-UB-X-2.           DTSBR112
00679      MOVE WS-UI-RATE-AREA  (2)  TO RPT-UI-RATE-AREA-2.            DTSBR112
00680                                                                   DTSBR112
00681      MOVE WS-RATE-YRQ-LB-X (3)  TO RPT-RATE-YRQ-LB-X-3.           DTSBR112
00682      MOVE WS-RATE-YRQ-DASH (3)  TO RPT-RATE-YRQ-DASH-3.           DTSBR112
00683      MOVE WS-RATE-YRQ-UB-X (3)  TO RPT-RATE-YRQ-UB-X-3.           DTSBR112
00684      MOVE WS-UI-RATE-AREA  (3)  TO RPT-UI-RATE-AREA-3.            DTSBR112
00685                                                                   DTSBR112
00686      MOVE WS-RATE-YRQ-LB-X (4)  TO RPT-RATE-YRQ-LB-X-4.           DTSBR112
00687      MOVE WS-RATE-YRQ-DASH (4)  TO RPT-RATE-YRQ-DASH-4.           DTSBR112
00688      MOVE WS-RATE-YRQ-UB-X (4)  TO RPT-RATE-YRQ-UB-X-4.           DTSBR112
00689      MOVE WS-UI-RATE-AREA  (4)  TO RPT-UI-RATE-AREA-4.            DTSBR112
00690                                                                   DTSBR112
00691      MOVE WS-RATE-YRQ-LB-X (5)  TO RPT-RATE-YRQ-LB-X-5.           DTSBR112
00692      MOVE WS-RATE-YRQ-DASH (5)  TO RPT-RATE-YRQ-DASH-5.           DTSBR112
00693      MOVE WS-RATE-YRQ-UB-X (5)  TO RPT-RATE-YRQ-UB-X-5.           DTSBR112
00694      MOVE WS-UI-RATE-AREA  (5)  TO RPT-UI-RATE-AREA-5.            DTSBR112
00695                                                                   DTSBR112
00696      MOVE WS-RATE-YRQ-LB-X (6)  TO RPT-RATE-YRQ-LB-X-6.           DTSBR112
00697      MOVE WS-RATE-YRQ-DASH (6)  TO RPT-RATE-YRQ-DASH-6.           DTSBR112
00698      MOVE WS-RATE-YRQ-UB-X (6)  TO RPT-RATE-YRQ-UB-X-6.           DTSBR112
00699      MOVE WS-UI-RATE-AREA  (6)  TO RPT-UI-RATE-AREA-6.            DTSBR112
00700                                                                   DTSBR112
00701  P4000-EXIT.                                                      DTSBR112
00702      EXIT.                                                        DTSBR112
00703                                                                   DTSBR112
00704  T1000-TERMINATE.                                                 DTSBR112
00705      SKIP1                                                        DTSBR112
00706      CLOSE PRT-FILE1.                                             DTSBR112
00707      SKIP2.                                                       DTSBR112
00708  T1000-EXIT.                                                      DTSBR112
00709      EXIT.                                                        DTSBR112
00710      EJECT                                                        DTSBR112
00711  S001-DATE.                                                       DTSBR112
00712      SKIP1                                                        DTSBR112
00713      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR112
00714      SKIP2                                                        DTSBR112
00715  S001-EXIT.                                                       DTSBR112
00716      EXIT.                                                        DTSBR112
00717  S002-ALPHA-DATE.                                                 DTSBR112
00718      SKIP1                                                        DTSBR112
00719      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR112
00720      SKIP2                                                        DTSBR112
00721  S002-EXIT.                                                       DTSBR112
00722      EXIT.                                                        DTSBR112
00723      SKIP3                                                        DTSBR112
00724  S004-CONVERT-QTR.                                                DTSBR112
00725      SKIP1                                                        DTSBR112
00726      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR112
00727      SKIP2                                                        DTSBR112
00728  S004-EXIT.                                                       DTSBR112
00729      EXIT.                                                        DTSBR112
00730      SKIP3                                                        DTSBR112
00731  S006-RATING-PERIOD.                                              DTSBR112
00732      SKIP1                                                        DTSBR112
00733      CALL 'DTSBU006' USING L006-LINK-AREA.                        DTSBR112
00734      SKIP2                                                        DTSBR112
00735  S006-EXIT.                                                       DTSBR112
00736      EXIT.                                                        DTSBR112
00737      SKIP3                                                        DTSBR112
00738  S056-RATE-DISPLAY.                                               DTSBR112
00739      SKIP1                                                        DTSBR112
00740      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR112
00741      SKIP2                                                        DTSBR112
00742  S056-EXIT.                                                       DTSBR112
00743      EXIT.                                                        DTSBR112
00744      SKIP3                                                        DTSBR112
00745  S057-DIV-DESCRIPTION.                                            DTSBR112
00746      SKIP1                                                        DTSBR112
00747      CALL 'DTSBU057' USING L057-LINK-AREA.                        DTSBR112
00748      SKIP2                                                        DTSBR112
00749  S057-EXIT.                                                       DTSBR112
00750      EXIT.                                                        DTSBR112
00751      SKIP3                                                        DTSBR112
00752  S071-DESLASH-NAME.                                               DTSBR112
00753      SKIP1                                                        DTSBR112
00754      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR112
00755      SKIP2                                                        DTSBR112
00756  S071-EXIT.                                                       DTSBR112
00757      EXIT.                                                        DTSBR112
00758      SKIP3                                                        DTSBR112
00759  S082-OP-ID-INFO.                                                 DTSBR112
00760      SKIP1                                                        DTSBR112
00761      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR112
00762      SKIP2                                                        DTSBR112
00763  S082-EXIT.                                                       DTSBR112
00764      EXIT.                                                        DTSBR112
00765      SKIP3                                                        DTSBR112
00766  S119-AGENCY-FACTS.                                               DTSBR112
00767      SKIP1                                                        DTSBR112
00768      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR112
00769      SKIP2                                                        DTSBR112
00770  S119-EXIT.                                                       DTSBR112
00771      EXIT.                                                        DTSBR112
00772      SKIP3                                                        DTSBR112
00773  S999-ABEND.                                                      DTSBR112
00774      SKIP1                                                        DTSBR112
00775      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR112
00776      SKIP2                                                        DTSBR112
00777  S999-EXIT.                                                       DTSBR112
00778      EXIT.                                                        DTSBR112
