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