00001  IDENTIFICATION DIVISION.                                         05/08/08
00002  PROGRAM-ID.             DTSBR403.                                DTSBR403
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV150
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR403
00005  DATE-COMPILED.                                                   DTSBR403
00006      SKIP3                                                        DTSBR403
00007 *****                                                             DTSBR403
00008 *                                                                 DTSBR403
00009 *    FUNCTION:  LIEN PACKAGES                                     DTSBR403
00010 *                                                                 DTSBR403
00011 *                                                                 DTSBR403
00012 *    CALLING SEQUENCE:  DTSBD350 CALLS DTSBD351                   DTSBR403
00013 *                                WHICH CREATES DTSIR403 RECORDS.  DTSBR403
00014 *                       DTSBD800 CALLS DTSBR403                   DTSBR403
00015 *                                WHICH PRODUCES THE LIEN NOTICES. DTSBR403
00016 *                                                                 DTSBR403
00017 *    MODIFICATION HISTORY:                                        DTSBR403
00018 *                                                                 DTSBR403
00019 * 10-19-94 INITIAL DEVELOPMENT                                    DTSBR403
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR403
00021 *                                                                 DTSBR403
00022 * 01-20-95 CHANGED PLACEMENT OF BUSINESS NAME IN DTSIZ403 SO IT   DTSBR403
00023 *          BEGINS RIGHT UNDER THE EMP NO.  REQUESTED BY RUDY.     DTSBR403
00024 *          REFERENCE RFP #RAP                    PROGRAMMER: MJA  DTSBR403
00025 *                                                                 DTSBR403
00026 * 01-31-95 CHANGED PRINT LINES FOR ADDRESS AND THE PRINT LINE     DTSBR403
00027 *          AND COLUMN FOR THE DATE IN DTSIZ403 FOR BETTER PLACE-  DTSBR403
00028 *          MENT ON LETTERHEAD MAILED IN WINDOW ENVELOPES.         DTSBR403
00029 *          REFERENCE RFP #RAP                    PROGRAMMER: MJA  DTSBR403
00030 *                                                                 DTSBR403
00031 * 03-03-95 CHANGED PAGE LIMIT FROM 61 TO 60 LINES IN DTSIZ403.    DTSBR403
00032 *          REFERENCE RFP # RAP                   PROGRAMMER: MJA  DTSBR403
00033 *                                                                 DTSBR403
00034 * 04-02-95 MOVED REPORT LINES DOWN TO ACCOMODATE AGENCY BLUE      DTSBR403
00035 *          LETTERHEAD, MOVED LEFT MARGIN TWO CHARACTERS TO THE    DTSBR403
00036 *          LEFT, AND MOVED THE BUSINESS NAME BACK TO ORIGINAL     DTSBR403
00037 *          POSITION (LINED UP UNDER THE LABEL "UI ACCOUNT NO.)    DTSBR403
00038 *          REFERENCE RFP # TPR 15                PROGRAMMER: MJA  DTSBR403
00039 *                                                                 DTSBR403
00040 * 11/26/97 INCREASE THE LENGTH OF WS-OPR-UNIT-NAME.  REQUIRED     DTSBR403
00041 *          TO REFLECT THE JULY 1, 1997 MOVE OF UI TAX FUNCTIONS   DTSBR403
00042 *          FROM DLI TO DOR.                                       DTSBR403
00043 *                                                                 DTSBR403
00044 * 02-10-99 MODIFIED TO MEET DUTAS PROGRAMMING AND DESIGN          DTSBR403
00045 *          SPECIFICATIONS.                                        DTSBR403
00046 *          REFERENCE RFP #****                   PROGRAMMER: DVS  DTSBR403
00047 *                                                                 DTSBR403
00048 *                                                                 DTSBR403
00049 * 10-17-00 MODIFIED TO PRINT RESPONSILBE REP ID NAME ON           DTSBR403
00050 *          REPORT.                                                DTSBR403
00051 *          REFERENCE RFP #****                   PROGRAMMER: ZL1  DTSBR403
00052 *                                                                 DTSBR403
00053 * 03-26-03 MODIFIED TO PRINT ADMINISTRATIVE TAX ON LIEN FORMS     DTSBR403
00054 *          REFERENCE RFP #****                   PROGRAMMER: ZL1  DTSBR403
00055 *                                                                 DTSBR403
00056 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR403
00057 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR403
00058 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR403
00059 *                                                                 DTSBR403
00060 *                                                                 DTSBR403
00061 *    DESCRIPTION:                                                 DTSBR403
00062 *                                                                 DTSBR403
00063 *        THIS MODULE PRINTS LIEN DOCUMENTS AND ACCOMPANYING       DTSBR403
00064 *        LETTERS.                                                 DTSBR403
00065 *                                                                 DTSBR403
00066 *                                                                 DTSBR403
00067 *    RECORDS READ:                                                DTSBR403
00068 *                                                                 DTSBR403
00069 *        NONE.                                                    DTSBR403
00070 *                                                                 DTSBR403
00071 *                                                                 DTSBR403
00072 *    PRINTED OUTPUTS:                                             DTSBR403
00073 *                                                                 DTSBR403
00074 *        403R1  LIEN FORMS                                        DTSBR403
00075 *        403R2  LIEN LETTERS WITH LICENSE/WITHOUT LICENSE         DTSBR403
00076 *                                                                 DTSBR403
00077 *                                                                 DTSBR403
00078 *    RECORDS WRITTEN:                                             DTSBR403
00079 *                                                                 DTSBR403
00080 *        NONE.                                                    DTSBR403
00081 *                                                                 DTSBR403
00082 *                                                                 DTSBR403
00083 *    MODULES CALLED:                                              DTSBR403
00084 *                                                                 DTSBR403
00085 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR403
00086 *        DTSBU002 DATE ALPHA CONVERSION MODULE                    DTSBR403
00087 *        DTSBU004 QTR EDIT/CONVERSION MODULE                      DTSBR403
00088 *        DTSBU009 CONVERSION TO CAPS MODULE                       DTSBR403
00089 *        DTSBU041 COUNTY CODE EDIT/DESCRIPTION MODULE             DTSBR403
00090 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR403
00091 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR403
00092 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR403
00093 *                                                                 DTSBR403
00094 *                                                                 DTSBR403
00095 *****                                                             DTSBR403
00096      EJECT                                                        DTSBR403
00097  ENVIRONMENT DIVISION.                                            DTSBR403
00098                                                                   DTSBR403
00099  CONFIGURATION SECTION.                                           DTSBR403
00100  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR403
00101                                                                   DTSBR403
00102  INPUT-OUTPUT SECTION.                                            DTSBR403
00103                                                                   DTSBR403
00104  FILE-CONTROL.                                                    DTSBR403
00105      SELECT PRT-FILE1 ASSIGN TO RPT403R1.                         DTSBR403
00106                                                                   DTSBR403
00107  DATA DIVISION.                                                   DTSBR403
00108                                                                   DTSBR403
00109  FILE SECTION.                                                    DTSBR403
00110                                                                   DTSBR403
00111  FD  PRT-FILE1                                                    DTSBR403
00112      RECORDING MODE IS F                                          DTSBR403
00113      BLOCK CONTAINS 0 RECORDS                                     DTSBR403
00114      LABEL RECORDS ARE OMITTED.                                   DTSBR403
00115  01  XEROX-REPORT.                                                DTSBR403
00116      05  XEROX-RPT                   PIC X(133).                  DTSBR403
00117      EJECT                                                        DTSBR403
00118  WORKING-STORAGE SECTION.                                         DTSBR403
001185 77  PAN-VALET PICTURE X(24) VALUE '150DTSBR403  05/08/08'.       DTSBR403
00119                                                                   DTSBR403
00120  01  WRK-AREA.                                                    DTSBR403
00121      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +403.DTSBR403
00122      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR403
00123      05  WRK-YRQ-AREA.                                            DTSBR403
00124          10 WRK-YRQ OCCURS 20        PIC  X(04)  VALUE SPACES.    DTSBR403
00125                                                                   DTSBR403
00126      05  WS-FORM-PAGE                PIC S9(03)  COMP-3 VALUE +0. DTSBR403
00127      05  WS-FORM-TOTAL-PAGES         PIC S9(03)  COMP-3 VALUE +0. DTSBR403
00128      05  WS-PAGE-OCCUR-CNT           PIC S9(04)  COMP   VALUE +0. DTSBR403
00129      05  WS-FORM-QTR-LEFTOVER-CNT    PIC S9(03)  COMP-3 VALUE +0. DTSBR403
00130      05  WS-TOTAL-TAX-BALANCE-AMT    PIC 9(09)V99 VALUE 0.        DTSBR403
00131      05  WS-TOTAL-SUR-TAX-BALANCE-AMT    PIC 9(09)V99 VALUE 0.    DTSBR403
00132      05  WS-TOTAL-INT-BALANCE-AMT    PIC 9(09)V99 VALUE 0.        DTSBR403
00133      05  WS-TOTAL-LP-NP-MP-BALANCE   PIC 9(09)V99 VALUE 0.        DTSBR403
00134      05  WS-TOTAL-TOTAL-LIEN-AMT     PIC 9(09)V99 VALUE 0.        DTSBR403
00135                                                                   DTSBR403
00136      05  WS-FORM-ID                  PIC  X(12) VALUE SPACES.     DTSBR403
00137      05  WS-REPORT-NO1               PIC  X(12) VALUE             DTSBR403
00138          'RPT403R1.FAC'.                                          DTSBR403
00139      05  WS-CERTIFICATE-NO           PIC  9(08) VALUE 0.          DTSBR403
00140      05  WS-EMPLOYER-NO              PIC  9(06) VALUE 0.          DTSBR403
00141      05  WS-TOTAL-LIEN-AMT           PIC  9(09)V99 VALUE ZERO.    DTSBR403
00142                                                                   DTSBR403
00143      05  WS-COMP-DATE-SLASH          PIC  X(10) VALUE SPACES.     DTSBR403
00144      05  WS-CERT-DATE-SLASH          PIC  X(10) VALUE SPACES.     DTSBR403
00145      05  WS-STMT-DATE-TEXT           PIC  X(18) VALUE SPACES.     DTSBR403
00146      SKIP1                                                        DTSBR403
00147      05  WS-LIEN-FORM-QTR-LINE-TBL   PIC  X(1500) VALUE SPACES.   DTSBR403
00148      05  FILLER REDEFINES WS-LIEN-FORM-QTR-LINE-TBL.              DTSBR403
00149          10  WS-LIEN-FORM-QTR-LINE OCCURS 20 TIMES.               DTSBR403
00150              15  WS-QTR-END-DATE-SLASH.                           DTSBR403
00151                  20  WS-YEAR-ONLY            PIC  X(02).          DTSBR403
00152                  20  WS-SLASH-ONLY           PIC  X(01).          DTSBR403
00153                  20  WS-QTR-ONLY             PIC  X(01).          DTSBR403
00154              15  FILLER                      PIC  X(01).          DTSBR403
00155              15  WS-LEGAL-IND                PIC  X.              DTSBR403
00156              15  FILLER                      PIC  X(01).          DTSBR403
00157              15  WS-ESTIMATED-TAX-IND        PIC  X.              DTSBR403
00158              15  FILLER                      PIC  X(01).          DTSBR403
00159              15  WS-UNUSED-IND               PIC  X.              DTSBR403
00160              15  FILLER                      PIC  X(04).          DTSBR403
00161              15  WS-FORM-TAX-BALANCE-AMT     PIC  $$$,$$$,$$9.99. DTSBR403
00162              15  FILLER                      PIC  X(01).          DTSBR403
00163              15  WS-FORM-SUR-TAX-BALANCE-AMT PIC  $$$,$$$,$$9.99. DTSBR403
00164              15  FILLER                      PIC  X(01).          DTSBR403
00165              15  WS-FORM-INT-BALANCE-AMT     PIC  $$$,$$$,$$9.99. DTSBR403
00166              15  FILLER                      PIC  X(01).          DTSBR403
00167              15  WS-FORM-LP-NP-MP-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403
00168              15  FILLER                      PIC  X(01).          DTSBR403
00169              15  WS-FORM-TOTAL-LIEN-AMT       PIC $$$,$$$,$$9.99. DTSBR403
00170                                                                   DTSBR403
00171      05  WS-LIEN-FORM-TOTAL-DISPLAY  PIC  X(97)  VALUE SPACES.    DTSBR403
00172      05  FILLER REDEFINES WS-LIEN-FORM-TOTAL-DISPLAY.             DTSBR403
00173              15   T-FORM-TOTAL-DESCRIPTION   PIC  X(15).          DTSBR403
00174              15   T-FORM-TAX-BALANCE-AMT     PIC  $$$,$$$,$$9.99. DTSBR403
00175              15   FILLER                     PIC  X(01).          DTSBR403
00176              15   T-FORM-SUR-TAX-BALANCE-AMT PIC  $$$,$$$,$$9.99. DTSBR403
00177              15   FILLER                     PIC  X(01).          DTSBR403
00178              15   T-FORM-INT-BALANCE-AMT     PIC  $$$,$$$,$$9.99. DTSBR403
00179              15   FILLER                     PIC  X(01).          DTSBR403
00180              15   T-FORM-LP-NP-MP-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403
00181              15   T-FORM-TOTAL-LIEN-AMT       PIC $$$,$$$,$$9.99. DTSBR403
00182                                                                   DTSBR403
00183      05  WS-TOTAL-AMT-STRING         PIC  X(15) VALUE SPACES.     DTSBR403
00184      05  WS-TOTAL-AMT-EDIT           PIC  X(14) VALUE SPACES.     DTSBR403
00185      05  WS-TOTAL-AMT-EDIT-R REDEFINES WS-TOTAL-AMT-EDIT          DTSBR403
00186                                      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR403
00187      05  WS-TOTAL-AMT-FIRST-CHAR     PIC S9(04)  COMP VALUE +0.   DTSBR403
00188      05  WS-TOTAL-AMT-LENGTH         PIC S9(04)  COMP VALUE +0.   DTSBR403
00189                                                                   DTSBR403
00190      05  WS-OP-ID-HOLD               PIC  X(08) VALUE SPACES.     DTSBR403
00191      05  WS-OPR-NAME-CAPS            PIC  X(32) VALUE SPACES.     DTSBR403
00192      05  WS-OPR-UNIT-NAME-CAPS       PIC  X(50) VALUE SPACES.     DTSBR403
00193      05  WS-OPR-NAME-MIXED           PIC  X(32) VALUE SPACES.     DTSBR403
00194      05  WS-OPR-UNIT-NAME-MIXED      PIC  X(50) VALUE SPACES.     DTSBR403
00195                                                                   DTSBR403
00196      05  WS-OPR-VOICE.                                            DTSBR403
00197          10  WS-OPR-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR403
00198          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR403
00199          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR403
00200          10  WS-OPR-VOICE-EXT        PIC X(04)  VALUE SPACES.     DTSBR403
00201                                                                   DTSBR403
00202      05  WS-FLD-VOICE.                                            DTSBR403
00203          10  FILLER                  PIC X(01)  VALUE '('.        DTSBR403
00204          10  WS-FLD-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR403
00205          10  FILLER                  PIC X(01)  VALUE ')'.        DTSBR403
00206          10  WS-FLD-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR403
00207          10  FILLER                  PIC X(01)  VALUE '-'.        DTSBR403
00208          10  WS-FLD-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR403
00209                                                                   DTSBR403
00210  01  BLANK-LINE                      PIC X(133) VALUE SPACES.     DTSBR403
00211                                                                   DTSBR403
00212  01  FORM-DETAIL.                                                 DTSBR403
00213      05  FMD-LINE-6.                                              DTSBR403
00214          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR403
00215          10  WS-FMD-FMT-LINE-1       PIC  X(30) VALUE SPACES.     DTSBR403
00216          10  FILLER                  PIC  X(102) VALUE SPACES.    DTSBR403
00217      05  FMD-LINE-7.                                              DTSBR403
00218          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR403
00219          10  WS-FMD-FMT-LINE-2       PIC  X(30) VALUE SPACES.     DTSBR403
00220          10  FILLER                  PIC  X(102) VALUE SPACES.    DTSBR403
00221      05  FMD-LINE-8.                                              DTSBR403
00222          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR403
00223          10  WS-FMD-FMT-LINE-3       PIC  X(30) VALUE SPACES.     DTSBR403
00224          10  FILLER                  PIC  X(24) VALUE SPACES.     DTSBR403
00225          10  WS-FMD-CERT-NO          PIC  99999999.               DTSBR403
00226          10  FILLER                  PIC  X(76) VALUE SPACES.     DTSBR403
00227      05  FMD-LINE-9.                                              DTSBR403
00228          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR403
00229          10  WS-FMD-FMT-LINE-4       PIC  X(30) VALUE SPACES.     DTSBR403
00230          10  FILLER                  PIC  X(102) VALUE SPACES.    DTSBR403
00231      05  FMD-LINE-10.                                             DTSBR403
00232          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR403
00233          10  WS-FMD-FMT-LINE-5       PIC  X(30) VALUE SPACES.     DTSBR403
00234          10  FILLER                  PIC  X(102) VALUE SPACES.    DTSBR403
00235      05  FMD-LINE-11.                                             DTSBR403
00236          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR403
00237          10  FILLER                  PIC  X(50) VALUE SPACES.     DTSBR403
00238          10  WS-FMD-CERT-DATE-SLASH  PIC  X(10) VALUE SPACES.     DTSBR403
00239          10  FILLER                  PIC  X(72) VALUE SPACES.     DTSBR403
00240      05  FMD-LINE-12                 PIC  X(133) VALUE SPACES.    DTSBR403
00241      05  FMD-LINE-13.                                             DTSBR403
00242          10  FILLER                  PIC  X(02) VALUE SPACE.      DTSBR403
00243          10  WS-FMD-EMP-STATUS       PIC  X     VALUE SPACE.      DTSBR403
00244          10  FILLER                  PIC  X(06) VALUE SPACES.     DTSBR403
00245          10  WS-FMD-EMP-NO           PIC  999B999.                DTSBR403
00246          10  FILLER                  PIC  X(55) VALUE SPACES.     DTSBR403
00247          10  WS-FMD-COMP-DATE-SLASH  PIC  X(10) VALUE SPACES.     DTSBR403
00248          10  FILLER                  PIC  X(62) VALUE SPACES.     DTSBR403
00249      05  FMD-LINE-14                 PIC  X(133) VALUE SPACES.    DTSBR403
00250      05  FMD-LINE-15                 PIC  X(133) VALUE SPACES.    DTSBR403
00251      05  FMD-LINE-16                 PIC  X(133) VALUE SPACES.    DTSBR403
00252      05  FMD-LINE-17                 PIC  X(133) VALUE SPACES.    DTSBR403
00253      05  FMD-LINE-18.                                             DTSBR403
00254          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00255          10  WS-LIEN-FORM-QTR-LINE-1  PIC  X(88) VALUE SPACES.    DTSBR403
00256      05  FMD-LINE-19.                                             DTSBR403
00257          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00258          10  WS-LIEN-FORM-QTR-LINE-2  PIC  X(88) VALUE SPACES.    DTSBR403
00259      05  FMD-LINE-20.                                             DTSBR403
00260          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00261          10  WS-LIEN-FORM-QTR-LINE-3  PIC  X(88) VALUE SPACES.    DTSBR403
00262      05  FMD-LINE-21.                                             DTSBR403
00263          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00264          10  WS-LIEN-FORM-QTR-LINE-4  PIC  X(88) VALUE SPACES.    DTSBR403
00265      05  FMD-LINE-22.                                             DTSBR403
00266          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00267          10  WS-LIEN-FORM-QTR-LINE-5  PIC  X(88) VALUE SPACES.    DTSBR403
00268      05  FMD-LINE-23.                                             DTSBR403
00269          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00270          10  WS-LIEN-FORM-QTR-LINE-6  PIC  X(88) VALUE SPACES.    DTSBR403
00271      05  FMD-LINE-24.                                             DTSBR403
00272          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00273          10  WS-LIEN-FORM-QTR-LINE-7  PIC  X(88) VALUE SPACES.    DTSBR403
00274      05  FMD-LINE-25.                                             DTSBR403
00275          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00276          10  WS-LIEN-FORM-QTR-LINE-8  PIC  X(88) VALUE SPACES.    DTSBR403
00277      05  FMD-LINE-26.                                             DTSBR403
00278          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00279          10  WS-LIEN-FORM-QTR-LINE-9  PIC  X(88) VALUE SPACES.    DTSBR403
00280      05  FMD-LINE-27.                                             DTSBR403
00281          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00282          10  WS-LIEN-FORM-QTR-LINE-10 PIC  X(88) VALUE SPACES.    DTSBR403
00283      05  FMD-LINE-28.                                             DTSBR403
00284          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00285          10  WS-LIEN-FORM-QTR-LINE-11 PIC  X(88) VALUE SPACES.    DTSBR403
00286      05  FMD-LINE-29.                                             DTSBR403
00287          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00288          10  WS-LIEN-FORM-QTR-LINE-12 PIC  X(88) VALUE SPACES.    DTSBR403
00289      05  FMD-LINE-30.                                             DTSBR403
00290          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00291          10  WS-LIEN-FORM-QTR-LINE-13 PIC  X(88) VALUE SPACES.    DTSBR403
00292      05  FMD-LINE-31.                                             DTSBR403
00293          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00294          10  WS-LIEN-FORM-QTR-LINE-14 PIC  X(88) VALUE SPACES.    DTSBR403
00295      05  FMD-LINE-32.                                             DTSBR403
00296          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00297          10  WS-LIEN-FORM-QTR-LINE-15 PIC  X(88) VALUE SPACES.    DTSBR403
00298      05  FMD-LINE-33.                                             DTSBR403
00299          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00300          10  WS-LIEN-FORM-QTR-LINE-16 PIC  X(88) VALUE SPACES.    DTSBR403
00301      05  FMD-LINE-34.                                             DTSBR403
00302          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00303          10  WS-LIEN-FORM-QTR-LINE-17 PIC  X(88) VALUE SPACES.    DTSBR403
00304      05  FMD-LINE-35.                                             DTSBR403
00305          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00306          10  WS-LIEN-FORM-QTR-LINE-18 PIC  X(88) VALUE SPACES.    DTSBR403
00307      05  FMD-LINE-36.                                             DTSBR403
00308          10  FILLER                   PIC  X(02) VALUE SPACES.    DTSBR403
00309          10  WS-LIEN-FORM-QTR-LINE-19 PIC  X(88) VALUE SPACES.    DTSBR403
00310      05  FMD-LINE-37.                                             DTSBR403
00311          10  FILLER                   PIC  X(01) VALUE SPACE.     DTSBR403
00312          10  WS-LIEN-FORM-TOTAL-DIS   PIC  X(90) VALUE SPACES.    DTSBR403
00313                                                                   DTSBR403
00314      05  FMD-LINE-57.                                             DTSBR403
00315          10  FILLER                   PIC  X(03) VALUE SPACES.    DTSBR403
00316          10  FILLER                   PIC  X(32) VALUE            DTSBR403
00317              'FOR INFORMATION PLEASE CONTACT: '.                  DTSBR403
00318          10  WS-LIEN-FLD-REP-NAME     PIC  X(32) VALUE SPACES.    DTSBR403
00319          10  FILLER                   PIC  X(30) VALUE SPACES.    DTSBR403
00320                                                                   DTSBR403
00321      05  FMD-LINE-58.                                             DTSBR403
00322          10  FILLER                   PIC  X(03) VALUE SPACES.    DTSBR403
00323          10  FILLER                   PIC  X(32) VALUE            DTSBR403
00324              '                         PHONE: '.                  DTSBR403
00325          10  WS-LIEN-FLD-REP-PHONE    PIC  X(15) VALUE SPACES.    DTSBR403
00326          10  FILLER                   PIC  X(50) VALUE SPACES.    DTSBR403
00327                                                                   DTSBR403
00328  01  FORM-LETTER.                                                 DTSBR403
00329      05  FML-LINE-8.                                              DTSBR403
00330          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR403
00331          10  WS-FML-FMT-LINE-1       PIC  X(40) VALUE SPACES.     DTSBR403
00332          10  FILLER                  PIC  X(92) VALUE SPACES.     DTSBR403
00333      05  FML-LINE-9.                                              DTSBR403
00334          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR403
00335          10  WS-FML-FMT-LINE-2       PIC  X(40) VALUE SPACES.     DTSBR403
00336          10  FILLER                  PIC  X(23) VALUE SPACES.     DTSBR403
00337          10  WS-FML-EMP-NO           PIC  999B999.                DTSBR403
00338          10  FILLER                  PIC  X(70) VALUE SPACES.     DTSBR403
00339      05  FML-LINE-10.                                             DTSBR403
00340          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR403
00341          10  WS-FML-FMT-LINE-3       PIC  X(40) VALUE SPACES.     DTSBR403
00342          10  FILLER                  PIC  X(92) VALUE SPACES.     DTSBR403
00343      05  FML-LINE-11.                                             DTSBR403
00344          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR403
00345          10  WS-FML-FMT-LINE-4       PIC  X(40) VALUE SPACES.     DTSBR403
00346          10  FILLER                  PIC  X(92) VALUE SPACES.     DTSBR403
00347      05  FML-LINE-12.                                             DTSBR403
00348          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR403
00349          10  WS-FML-FMT-LINE-5       PIC  X(40) VALUE SPACES.     DTSBR403
00350          10  FILLER                  PIC  X(23) VALUE SPACES.     DTSBR403
00351          10  WS-FML-EMP-STATUS       PIC  X(10) VALUE SPACES.     DTSBR403
00352          10  FILLER                  PIC  X(75) VALUE SPACES.     DTSBR403
00353                                                                   DTSBR403
00354      05  FML-LINE-55.                                             DTSBR403
00355          10  FILLER                   PIC  X(05) VALUE SPACES.    DTSBR403
00356          10  FILLER                   PIC  X(16) VALUE            DTSBR403
00357              'PLEASE CONTACT: '.                                  DTSBR403
00358          10  WS-FML-FLD-REP-NAME      PIC  X(25) VALUE SPACES.    DTSBR403
00359          10  FILLER                   PIC  X(05) VALUE SPACES.    DTSBR403
00360          10  FILLER                   PIC  X(07) VALUE 'PHONE: '. DTSBR403
00361          10  WS-FML-FLD-REP-PHONE     PIC  X(15) VALUE SPACES.    DTSBR403
00362                                                                   DTSBR403
00363                                                                   DTSBR403
00364      EJECT                                                        DTSBR403
00365  01  L001-LINK-AREA.                                              DTSBR403
00366  ++INCLUDE DTSIL001                                               DTSBR403
00367      EJECT                                                        DTSBR403
00368  01  L002-LINK-AREA.                                              DTSBR403
00369  ++INCLUDE DTSIL002                                               DTSBR403
00370      EJECT                                                        DTSBR403
00371  01  L004-LINK-AREA.                                              DTSBR403
00372  ++INCLUDE DTSIL004                                               DTSBR403
00373      EJECT                                                        DTSBR403
00374  01  L009-LINK-AREA.                                              DTSBR403
00375  ++INCLUDE DTSIL009                                               DTSBR403
00376      EJECT                                                        DTSBR403
00377  01  L071-LINK-AREA.                                              DTSBR403
00378  ++INCLUDE DTSIL071                                               DTSBR403
00379      EJECT                                                        DTSBR403
00380  01  L082-LINK-AREA.                                              DTSBR403
00381  ++INCLUDE DTSIL082                                               DTSBR403
00382      EJECT                                                        DTSBR403
00383  01  L119-LINK-AREA.                                              DTSBR403
00384  ++INCLUDE DTSIL119                                               DTSBR403
00385      EJECT                                                        DTSBR403
00386  ++INCLUDE DTSXL403                                               DTSBR403
00387      EJECT                                                        DTSBR403
00388  LINKAGE SECTION.                                                 DTSBR403
00389      SKIP3                                                        DTSBR403
00390  01  LRCM-LINK-AREA.                                              DTSBR403
00391  ++INCLUDE DTSILRCM                                               DTSBR403
00392      EJECT                                                        DTSBR403
00393  01  R403-REC.                                                    DTSBR403
00394  ++INCLUDE DTSIR403                                               DTSBR403
00395      EJECT                                                        DTSBR403
00396  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR403
00397                           R403-REC.                               DTSBR403
00398      SKIP2                                                        DTSBR403
00399      IF FIRST-TIME-IND = 'Y'                                      DTSBR403
00400          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR403
00401          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR403
00402      SKIP1                                                        DTSBR403
00403      IF LRCM-EOR-88                                               DTSBR403
00404          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR403
00405      ELSE                                                         DTSBR403
00406          PERFORM P1000-PROCESS THRU P1000-EXIT                    DTSBR403
00407      END-IF.                                                      DTSBR403
00408      SKIP2                                                        DTSBR403
00409      GOBACK.                                                      DTSBR403
00410  I1000-INITIATE.                                                  DTSBR403
00411      SKIP1                                                        DTSBR403
00412      OPEN OUTPUT PRT-FILE1.                                       DTSBR403
00413      MOVE SPACES TO XEROX-REPORT.                                 DTSBR403
00414      WRITE XEROX-REPORT     FROM BLANK-LINE                       DTSBR403
00415          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR403
00416      WRITE XEROX-REPORT     FROM BLANK-LINE AFTER ADVANCING 18.   DTSBR403
00417      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE20                DTSBR403
00418      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE21.               DTSBR403
00419      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE22.               DTSBR403
00420      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE23.               DTSBR403
00421      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE24.               DTSBR403
00422      WRITE XEROX-REPORT     FROM XEROX-XMOM-CNTL1.                DTSBR403
00423      WRITE XEROX-REPORT     FROM XEROX-XMOM-CNTL2.                DTSBR403
00424                                                                   DTSBR403
00425      SKIP1                                                        DTSBR403
00426      MOVE R403-STMT-DATE      TO L002-DATE                        DTSBR403
00427      SET L002-MIXED-CASE TO TRUE.                                 DTSBR403
00428      PERFORM S002-DATE THRU S002-EXIT.                            DTSBR403
00429      MOVE L002-LONG-TEXT-AREA TO WS-STMT-DATE-TEXT                DTSBR403
00430                                                                   DTSBR403
00431      MOVE R403-OP-ID TO WS-OP-ID-HOLD.                            DTSBR403
00432      PERFORM P3000-OPERATOR-LOOKUP THRU P3000-EXIT.               DTSBR403
00433      MOVE R403-EMP-NO TO WS-EMPLOYER-NO.                          DTSBR403
00434                                                                   DTSBR403
00435  I1000-EXIT.                                                      DTSBR403
00436      EXIT.                                                        DTSBR403
00437      EJECT                                                        DTSBR403
00438  P1000-PROCESS.                                                   DTSBR403
00439                                                                   DTSBR403
00440      PERFORM P3000-OPERATOR-LOOKUP THRU P3000-EXIT.               DTSBR403
00441                                                                   DTSBR403
00442      MOVE R403-EMP-NO TO WS-EMPLOYER-NO.                          DTSBR403
00443      MOVE R403-FORM-COMP-DATE TO L001-FED-8-DATE-9.               DTSBR403
00444      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR403
00445      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR403
00446      MOVE L001-SLASH-8-DATE TO WS-COMP-DATE-SLASH.                DTSBR403
00447                                                                   DTSBR403
00448      MOVE R403-CERTIFICATE-NO   TO WS-CERTIFICATE-NO.             DTSBR403
00449      MOVE R403-CERTIFICATE-DATE TO L001-FED-8-DATE-9.             DTSBR403
00450      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR403
00451      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR403
00452      IF L001-VALID-DATE                                           DTSBR403
00453         MOVE L001-SLASH-8-DATE TO WS-CERT-DATE-SLASH              DTSBR403
00454      ELSE                                                         DTSBR403
00455         MOVE SPACES          TO WS-CERT-DATE-SLASH.               DTSBR403
00456                                                                   DTSBR403
00457      MOVE R403-LETTER-TOTAL-AMT TO WS-TOTAL-AMT-EDIT-R.           DTSBR403
00458      MOVE +0 TO WS-TOTAL-AMT-FIRST-CHAR.                          DTSBR403
00459      INSPECT WS-TOTAL-AMT-EDIT                                    DTSBR403
00460         TALLYING WS-TOTAL-AMT-FIRST-CHAR                          DTSBR403
00461         FOR LEADING SPACES.                                       DTSBR403
00462      SUBTRACT WS-TOTAL-AMT-FIRST-CHAR FROM 14                     DTSBR403
00463         GIVING WS-TOTAL-AMT-LENGTH.                               DTSBR403
00464      ADD +1 TO WS-TOTAL-AMT-FIRST-CHAR.                           DTSBR403
00465      MOVE SPACES TO WS-TOTAL-AMT-STRING.                          DTSBR403
00466      STRING WS-TOTAL-AMT-EDIT                                     DTSBR403
00467                (WS-TOTAL-AMT-FIRST-CHAR:WS-TOTAL-AMT-LENGTH)      DTSBR403
00468                 DELIMITED BY SIZE                                 DTSBR403
00469             '.' DELIMITED BY SIZE                                 DTSBR403
00470         INTO                                                      DTSBR403
00471             WS-TOTAL-AMT-STRING.                                  DTSBR403
00472                                                                   DTSBR403
00473      PERFORM P2000-LIEN-FORM-PROCESS THRU P2000-EXIT.             DTSBR403
00474                                                                   DTSBR403
00475  P1000-EXIT.                                                      DTSBR403
00476      EXIT.                                                        DTSBR403
00477      EJECT                                                        DTSBR403
00478  P2000-LIEN-FORM-PROCESS.                                         DTSBR403
00479                                                                   DTSBR403
00480      DIVIDE R403-FORM-QTR-CNT BY 20 GIVING WS-FORM-TOTAL-PAGES    DTSBR403
00481         REMAINDER WS-FORM-QTR-LEFTOVER-CNT.                       DTSBR403
00482      IF WS-FORM-QTR-LEFTOVER-CNT > +0                             DTSBR403
00483          ADD +1 TO WS-FORM-TOTAL-PAGES.                           DTSBR403
00484      MOVE +0 TO WS-PAGE-OCCUR-CNT                                 DTSBR403
00485                 WS-FORM-PAGE.                                     DTSBR403
00486      MOVE SPACES TO WS-LIEN-FORM-QTR-LINE-TBL.                    DTSBR403
00487      MOVE ZEROES TO WS-TOTAL-TAX-BALANCE-AMT                      DTSBR403
00488                     WS-TOTAL-SUR-TAX-BALANCE-AMT                  DTSBR403
00489                     WS-TOTAL-INT-BALANCE-AMT                      DTSBR403
00490                     WS-TOTAL-LP-NP-MP-BALANCE                     DTSBR403
00491                     WS-TOTAL-TOTAL-LIEN-AMT.                      DTSBR403
00492      PERFORM P2100-PROCESS-FORM-QTR THRU P2100-EXIT               DTSBR403
00493         VARYING R403-FORM-QTR-IDX FROM +1 BY +1                   DTSBR403
00494         UNTIL R403-FORM-QTR-IDX > R403-FORM-QTR-CNT.              DTSBR403
00495      INITIALIZE WS-LIEN-FORM-TOTAL-DISPLAY.                       DTSBR403
00496 *    MOVE 'TOTAL ON QTRS     ' TO T-FORM-TOTAL-DESCRIPTION.       DTSBR403
00497      MOVE SPACES               TO T-FORM-TOTAL-DESCRIPTION.       DTSBR403
00498      MOVE WS-TOTAL-TAX-BALANCE-AMT TO T-FORM-TAX-BALANCE-AMT.     DTSBR403
00499      MOVE WS-TOTAL-SUR-TAX-BALANCE-AMT TO                         DTSBR403
00500           T-FORM-SUR-TAX-BALANCE-AMT.                             DTSBR403
00501      MOVE WS-TOTAL-INT-BALANCE-AMT TO T-FORM-INT-BALANCE-AMT.     DTSBR403
00502      MOVE WS-TOTAL-LP-NP-MP-BALANCE TO                            DTSBR403
00503           T-FORM-LP-NP-MP-BALANCE-AMT.                            DTSBR403
00504      MOVE WS-TOTAL-TOTAL-LIEN-AMT TO T-FORM-TOTAL-LIEN-AMT.       DTSBR403
00505      ADD +1 TO WS-FORM-PAGE.                                      DTSBR403
00506      PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT.             DTSBR403
00507      PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT.             DTSBR403
00508      PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT.             DTSBR403
00509      PERFORM P5000-PRINT-FORM-LETTER THRU P5000-EXIT.             DTSBR403
00510                                                                   DTSBR403
00511  P2000-EXIT.                                                      DTSBR403
00512      EXIT.                                                        DTSBR403
00513      EJECT                                                        DTSBR403
00514  P2100-PROCESS-FORM-QTR.                                          DTSBR403
00515                                                                   DTSBR403
00516      ADD +1 TO WS-PAGE-OCCUR-CNT.                                 DTSBR403
00517      PERFORM P2105-PICKUP-YRQ THRU P2105-EXIT.                    DTSBR403
00518      MOVE R403-FORM-LEGAL-IND (R403-FORM-QTR-IDX)                 DTSBR403
00519         TO WS-LEGAL-IND (WS-PAGE-OCCUR-CNT).                      DTSBR403
00520      MOVE R403-FORM-ESTIMATED-IND (R403-FORM-QTR-IDX)             DTSBR403
00521         TO WS-ESTIMATED-TAX-IND (WS-PAGE-OCCUR-CNT).              DTSBR403
00522      MOVE R403-FORM-UNUSED-IND  (R403-FORM-QTR-IDX)               DTSBR403
00523         TO WS-UNUSED-IND (WS-PAGE-OCCUR-CNT).                     DTSBR403
00524      MOVE R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX)           DTSBR403
00525         TO WS-FORM-TAX-BALANCE-AMT (WS-PAGE-OCCUR-CNT).           DTSBR403
00526      MOVE R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX)       DTSBR403
00527         TO WS-FORM-SUR-TAX-BALANCE-AMT (WS-PAGE-OCCUR-CNT).       DTSBR403
00528      MOVE R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX)           DTSBR403
00529         TO WS-FORM-INT-BALANCE-AMT (WS-PAGE-OCCUR-CNT).           DTSBR403
00530      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX)      DTSBR403
00531         TO WS-FORM-LP-NP-MP-BALANCE-AMT (WS-PAGE-OCCUR-CNT).      DTSBR403
00532      MOVE ZEROS TO WS-TOTAL-LIEN-AMT.                             DTSBR403
00533      COMPUTE  WS-TOTAL-LIEN-AMT =                                 DTSBR403
00534               R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) +     DTSBR403
00535               R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) + DTSBR403
00536               R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX) +     DTSBR403
00537               R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX). DTSBR403
00538      MOVE WS-TOTAL-LIEN-AMT                                       DTSBR403
00539         TO WS-FORM-TOTAL-LIEN-AMT (WS-PAGE-OCCUR-CNT).            DTSBR403
00540      COMPUTE WS-TOTAL-TAX-BALANCE-AMT = WS-TOTAL-TAX-BALANCE-AMT +DTSBR403
00541              R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX).       DTSBR403
00542      COMPUTE WS-TOTAL-SUR-TAX-BALANCE-AMT =                       DTSBR403
00543              WS-TOTAL-SUR-TAX-BALANCE-AMT +                       DTSBR403
00544              R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX).   DTSBR403
00545      COMPUTE WS-TOTAL-INT-BALANCE-AMT = WS-TOTAL-INT-BALANCE-AMT +DTSBR403
00546              R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX).       DTSBR403
00547      COMPUTE WS-TOTAL-LP-NP-MP-BALANCE = WS-TOTAL-LP-NP-MP-BALANCEDTSBR403
00548           +  R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX).  DTSBR403
00549      COMPUTE WS-TOTAL-TOTAL-LIEN-AMT = WS-TOTAL-TOTAL-LIEN-AMT +  DTSBR403
00550               WS-TOTAL-LIEN-AMT.                                  DTSBR403
00551      IF WS-PAGE-OCCUR-CNT = +20                                   DTSBR403
00552      IF R403-FORM-QTR-IDX = R403-FORM-QTR-CNT                     DTSBR403
00553          GO TO P2100-EXIT                                         DTSBR403
00554      ELSE                                                         DTSBR403
00555          ADD +1 TO WS-FORM-PAGE                                   DTSBR403
00556          PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT          DTSBR403
00557          MOVE +0 TO WS-PAGE-OCCUR-CNT                             DTSBR403
00558          MOVE SPACES TO WS-LIEN-FORM-QTR-LINE-TBL.                DTSBR403
00559                                                                   DTSBR403
00560  P2100-EXIT.                                                      DTSBR403
00561      EXIT.                                                        DTSBR403
00562                                                                   DTSBR403
00563  P2105-PICKUP-YRQ.                                                DTSBR403
00564      IF LRCM-PICKUP-YRQ = R403-FORM-QTR (R403-FORM-QTR-IDX)       DTSBR403
00565         MOVE 'PU  ' TO WS-QTR-END-DATE-SLASH (WS-PAGE-OCCUR-CNT)  DTSBR403
00566      ELSE                                                         DTSBR403
00567         MOVE R403-FORM-QTR (R403-FORM-QTR-IDX) TO L004-QTR-5-9    DTSBR403
00568         SET L004-FROM-5 TO TRUE                                   DTSBR403
00569         PERFORM S004-CONVERT-QTR THRU S004-EXIT                   DTSBR403
00570         MOVE L004-SLASH-QTR                                       DTSBR403
00571              TO WS-QTR-END-DATE-SLASH (WS-PAGE-OCCUR-CNT)         DTSBR403
00572         MOVE SPACE TO WS-SLASH-ONLY (WS-PAGE-OCCUR-CNT)           DTSBR403
00573      END-IF.                                                      DTSBR403
00574  P2105-EXIT.                                                      DTSBR403
00575      EXIT.                                                        DTSBR403
00576      EJECT                                                        DTSBR403
00577  P3000-OPERATOR-LOOKUP.                                           DTSBR403
00578                                                                   DTSBR403
00579      MOVE R403-OP-ID TO L082-OP-ID.                               DTSBR403
00580      PERFORM S082-OP-ID-INFO THRU S082-EXIT.                      DTSBR403
00581      IF L082-NOT-VALID-OP OR L082-INTERNAL-88                     DTSBR403
00582          MOVE SPACES             TO WS-OPR-NAME-MIXED             DTSBR403
00583                                     WS-OPR-NAME-CAPS              DTSBR403
00584          MOVE LRCM-DEFAULT-NAME  TO WS-OPR-UNIT-NAME-MIXED        DTSBR403
00585          MOVE LRCM-DEFAULT-VOICE TO WS-OPR-VOICE                  DTSBR403
00586      ELSE                                                         DTSBR403
00587          MOVE L082-UNIT-NAME TO WS-OPR-UNIT-NAME-MIXED            DTSBR403
00588          MOVE L082-VOICE-1   TO WS-OPR-VOICE                      DTSBR403
00589          MOVE L082-NAME      TO L071-NAM                          DTSBR403
00590          MOVE 2              TO L071-NAME-FORMAT                  DTSBR403
00591          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR403
00592          MOVE L071-NAM          TO WS-OPR-NAME-MIXED              DTSBR403
00593          MOVE WS-OPR-NAME-MIXED TO L009-DATA                      DTSBR403
00594          PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT              DTSBR403
00595          MOVE L009-DATA        TO WS-OPR-NAME-CAPS.               DTSBR403
00596                                                                   DTSBR403
00597      MOVE WS-OPR-VOICE-AREA    TO WS-FLD-VOICE-AREA.              DTSBR403
00598      MOVE WS-OPR-VOICE-1       TO WS-FLD-VOICE-1.                 DTSBR403
00599      MOVE WS-OPR-VOICE-2       TO WS-FLD-VOICE-2.                 DTSBR403
00600      MOVE WS-FLD-VOICE         TO WS-FML-FLD-REP-PHONE            DTSBR403
00601                                   WS-LIEN-FLD-REP-PHONE.          DTSBR403
00602      MOVE WS-OPR-NAME-CAPS TO WS-FML-FLD-REP-NAME                 DTSBR403
00603                                   WS-LIEN-FLD-REP-NAME.           DTSBR403
00604      MOVE WS-OPR-UNIT-NAME-MIXED TO L009-DATA.                    DTSBR403
00605      PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT.                 DTSBR403
00606      MOVE L009-DATA TO WS-OPR-UNIT-NAME-CAPS.                     DTSBR403
00607                                                                   DTSBR403
00608  P3000-EXIT.                                                      DTSBR403
00609      EXIT.                                                        DTSBR403
00610      EJECT                                                        DTSBR403
00611                                                                   DTSBR403
00612  P4000-PRINT-FORM-DETAIL.                                         DTSBR403
00613      MOVE R403-FMT-LINE (1)  TO WS-FMD-FMT-LINE-1.                DTSBR403
00614      MOVE R403-FMT-LINE (2)  TO WS-FMD-FMT-LINE-2.                DTSBR403
00615      MOVE R403-FMT-LINE (3)  TO WS-FMD-FMT-LINE-3.                DTSBR403
00616      MOVE R403-FMT-LINE (4)  TO WS-FMD-FMT-LINE-4.                DTSBR403
00617      MOVE R403-FMT-LINE (5)  TO WS-FMD-FMT-LINE-5.                DTSBR403
00618      MOVE R403-EMP-STATUS    TO WS-FMD-EMP-STATUS.                DTSBR403
00619      MOVE WS-CERTIFICATE-NO  TO WS-FMD-CERT-NO.                   DTSBR403
00620      MOVE WS-CERT-DATE-SLASH TO WS-FMD-CERT-DATE-SLASH.           DTSBR403
00621      MOVE WS-EMPLOYER-NO     TO WS-FMD-EMP-NO.                    DTSBR403
00622      MOVE WS-COMP-DATE-SLASH TO WS-FMD-COMP-DATE-SLASH.           DTSBR403
00623      MOVE WS-LIEN-FORM-QTR-LINE (1) TO WS-LIEN-FORM-QTR-LINE-1.   DTSBR403
00624      PERFORM P6000-EVAL-QTR-DATA THRU P6000-EXIT.                 DTSBR403
00625      MOVE WS-LIEN-FORM-TOTAL-DISPLAY TO WS-LIEN-FORM-TOTAL-DIS.   DTSBR403
00626      WRITE XEROX-REPORT FROM BLANK-LINE                           DTSBR403
00627                         AFTER ADVANCING TOP-OF-PAGE.              DTSBR403
00628      WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 4 LINE.   DTSBR403
00629      WRITE XEROX-REPORT FROM FMD-LINE-6 AFTER ADVANCING 1 LINE.   DTSBR403
00630      WRITE XEROX-REPORT FROM FMD-LINE-7 AFTER ADVANCING 1 LINE.   DTSBR403
00631      WRITE XEROX-REPORT FROM FMD-LINE-8 AFTER ADVANCING 1 LINE.   DTSBR403
00632      WRITE XEROX-REPORT FROM FMD-LINE-9 AFTER ADVANCING 1 LINE.   DTSBR403
00633      WRITE XEROX-REPORT FROM FMD-LINE-10 AFTER ADVANCING 1 LINE.  DTSBR403
00634      WRITE XEROX-REPORT FROM FMD-LINE-11 AFTER ADVANCING 1 LINE.  DTSBR403
00635      WRITE XEROX-REPORT FROM FMD-LINE-12 AFTER ADVANCING 1 LINE.  DTSBR403
00636      WRITE XEROX-REPORT FROM FMD-LINE-13 AFTER ADVANCING 1 LINE.  DTSBR403
00637      WRITE XEROX-REPORT FROM FMD-LINE-14 AFTER ADVANCING 1 LINE.  DTSBR403
00638      WRITE XEROX-REPORT FROM FMD-LINE-15 AFTER ADVANCING 1 LINE.  DTSBR403
00639      WRITE XEROX-REPORT FROM FMD-LINE-16 AFTER ADVANCING 1 LINE.  DTSBR403
00640      WRITE XEROX-REPORT FROM FMD-LINE-17 AFTER ADVANCING 1 LINE.  DTSBR403
00641      WRITE XEROX-REPORT FROM FMD-LINE-18 AFTER ADVANCING 1 LINE.  DTSBR403
00642      WRITE XEROX-REPORT FROM FMD-LINE-19 AFTER ADVANCING 1 LINE.  DTSBR403
00643      WRITE XEROX-REPORT FROM FMD-LINE-20 AFTER ADVANCING 1 LINE.  DTSBR403
00644      WRITE XEROX-REPORT FROM FMD-LINE-21 AFTER ADVANCING 1 LINE.  DTSBR403
00645      WRITE XEROX-REPORT FROM FMD-LINE-22 AFTER ADVANCING 1 LINE.  DTSBR403
00646      WRITE XEROX-REPORT FROM FMD-LINE-23 AFTER ADVANCING 1 LINE.  DTSBR403
00647      WRITE XEROX-REPORT FROM FMD-LINE-24 AFTER ADVANCING 1 LINE.  DTSBR403
00648      WRITE XEROX-REPORT FROM FMD-LINE-25 AFTER ADVANCING 1 LINE.  DTSBR403
00649      WRITE XEROX-REPORT FROM FMD-LINE-26 AFTER ADVANCING 1 LINE.  DTSBR403
00650      WRITE XEROX-REPORT FROM FMD-LINE-27 AFTER ADVANCING 1 LINE.  DTSBR403
00651      WRITE XEROX-REPORT FROM FMD-LINE-28 AFTER ADVANCING 1 LINE.  DTSBR403
00652      WRITE XEROX-REPORT FROM FMD-LINE-29 AFTER ADVANCING 1 LINE.  DTSBR403
00653      WRITE XEROX-REPORT FROM FMD-LINE-30 AFTER ADVANCING 1 LINE.  DTSBR403
00654      WRITE XEROX-REPORT FROM FMD-LINE-31 AFTER ADVANCING 1 LINE.  DTSBR403
00655      WRITE XEROX-REPORT FROM FMD-LINE-32 AFTER ADVANCING 1 LINE.  DTSBR403
00656      WRITE XEROX-REPORT FROM FMD-LINE-33 AFTER ADVANCING 1 LINE.  DTSBR403
00657      WRITE XEROX-REPORT FROM FMD-LINE-34 AFTER ADVANCING 1 LINE.  DTSBR403
00658      WRITE XEROX-REPORT FROM FMD-LINE-35 AFTER ADVANCING 1 LINE.  DTSBR403
00659      WRITE XEROX-REPORT FROM FMD-LINE-36 AFTER ADVANCING 1 LINE.  DTSBR403
00660      WRITE XEROX-REPORT FROM FMD-LINE-37 AFTER ADVANCING 1 LINE.  DTSBR403
00661      WRITE XEROX-REPORT FROM FMD-LINE-57 AFTER ADVANCING 20 LINE. DTSBR403
00662      WRITE XEROX-REPORT FROM FMD-LINE-58 AFTER ADVANCING 1 LINE.  DTSBR403
00663      MOVE SPACES TO FMD-LINE-18 FMD-LINE-19 FMD-LINE-20           DTSBR403
00664                     FMD-LINE-21 FMD-LINE-22 FMD-LINE-23           DTSBR403
00665                     FMD-LINE-24 FMD-LINE-25 FMD-LINE-26           DTSBR403
00666                     FMD-LINE-27 FMD-LINE-28 FMD-LINE-29           DTSBR403
00667                     FMD-LINE-30 FMD-LINE-31 FMD-LINE-32           DTSBR403
00668                     FMD-LINE-33 FMD-LINE-34 FMD-LINE-35           DTSBR403
00669                     FMD-LINE-36 FMD-LINE-37.                      DTSBR403
00670                                                                   DTSBR403
00671  P4000-EXIT.                                                      DTSBR403
00672      EXIT.                                                        DTSBR403
00673                                                                   DTSBR403
00674  P5000-PRINT-FORM-LETTER.                                         DTSBR403
00675      MOVE R403-FMT-LINE (1) TO WS-FML-FMT-LINE-1.                 DTSBR403
00676      MOVE R403-FMT-LINE (2) TO WS-FML-FMT-LINE-2.                 DTSBR403
00677      MOVE R403-FMT-LINE (3) TO WS-FML-FMT-LINE-3.                 DTSBR403
00678      MOVE R403-FMT-LINE (4) TO WS-FML-FMT-LINE-4.                 DTSBR403
00679      MOVE R403-FMT-LINE (5) TO WS-FML-FMT-LINE-5.                 DTSBR403
00680                                                                   DTSBR403
00681      IF R403-EMP-STATUS-ACTIVE-88                                 DTSBR403
00682         MOVE 'ACTIVE    '   TO WS-FML-EMP-STATUS                  DTSBR403
00683      ELSE                                                         DTSBR403
00684         MOVE 'INACTIVE  '   TO WS-FML-EMP-STATUS.                 DTSBR403
00685                                                                   DTSBR403
00686      MOVE WS-EMPLOYER-NO    TO WS-FML-EMP-NO.                     DTSBR403
00687      WRITE XEROX-REPORT FROM BLANK-LINE AFTER                     DTSBR403
00688                              ADVANCING TOP-OF-PAGE.               DTSBR403
00689      WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 9 LINE.   DTSBR403
00690      WRITE XEROX-REPORT FROM FML-LINE-8 AFTER ADVANCING 1 LINE.   DTSBR403
00691      WRITE XEROX-REPORT FROM FML-LINE-9 AFTER ADVANCING 1 LINE.   DTSBR403
00692      WRITE XEROX-REPORT FROM FML-LINE-10 AFTER ADVANCING 1 LINE.  DTSBR403
00693      WRITE XEROX-REPORT FROM FML-LINE-11 AFTER ADVANCING 1 LINE.  DTSBR403
00694      WRITE XEROX-REPORT FROM FML-LINE-12 AFTER ADVANCING 1 LINE.  DTSBR403
00695      WRITE XEROX-REPORT FROM FML-LINE-55 AFTER ADVANCING 40 LINE. DTSBR403
00696                                                                   DTSBR403
00697  P5000-EXIT.                                                      DTSBR403
00698      EXIT.                                                        DTSBR403
00699                                                                   DTSBR403
00700  P6000-EVAL-QTR-DATA.                                             DTSBR403
00701                                                                   DTSBR403
00702       IF R403-FORM-QTR-CNT > 1                                    DTSBR403
00703       MOVE WS-LIEN-FORM-QTR-LINE (2) TO WS-LIEN-FORM-QTR-LINE-2.  DTSBR403
00704       IF R403-FORM-QTR-CNT > 2                                    DTSBR403
00705       MOVE WS-LIEN-FORM-QTR-LINE (3) TO WS-LIEN-FORM-QTR-LINE-3.  DTSBR403
00706       IF R403-FORM-QTR-CNT > 3                                    DTSBR403
00707       MOVE WS-LIEN-FORM-QTR-LINE (4) TO WS-LIEN-FORM-QTR-LINE-4.  DTSBR403
00708       IF R403-FORM-QTR-CNT > 4                                    DTSBR403
00709       MOVE WS-LIEN-FORM-QTR-LINE (5) TO WS-LIEN-FORM-QTR-LINE-5.  DTSBR403
00710       IF R403-FORM-QTR-CNT > 5                                    DTSBR403
00711       MOVE WS-LIEN-FORM-QTR-LINE (6) TO WS-LIEN-FORM-QTR-LINE-6.  DTSBR403
00712       IF R403-FORM-QTR-CNT > 6                                    DTSBR403
00713       MOVE WS-LIEN-FORM-QTR-LINE (7) TO WS-LIEN-FORM-QTR-LINE-7.  DTSBR403
00714       IF R403-FORM-QTR-CNT > 7                                    DTSBR403
00715       MOVE WS-LIEN-FORM-QTR-LINE (8) TO WS-LIEN-FORM-QTR-LINE-8.  DTSBR403
00716       IF R403-FORM-QTR-CNT > 8                                    DTSBR403
00717       MOVE WS-LIEN-FORM-QTR-LINE (9) TO WS-LIEN-FORM-QTR-LINE-9.  DTSBR403
00718       IF R403-FORM-QTR-CNT > 9                                    DTSBR403
00719       MOVE WS-LIEN-FORM-QTR-LINE (10) TO WS-LIEN-FORM-QTR-LINE-10.DTSBR403
00720       IF R403-FORM-QTR-CNT > 10                                   DTSBR403
00721       MOVE WS-LIEN-FORM-QTR-LINE (11) TO WS-LIEN-FORM-QTR-LINE-11.DTSBR403
00722       IF R403-FORM-QTR-CNT > 11                                   DTSBR403
00723       MOVE WS-LIEN-FORM-QTR-LINE (12) TO WS-LIEN-FORM-QTR-LINE-12.DTSBR403
00724       IF R403-FORM-QTR-CNT > 12                                   DTSBR403
00725       MOVE WS-LIEN-FORM-QTR-LINE (13) TO WS-LIEN-FORM-QTR-LINE-13.DTSBR403
00726       IF R403-FORM-QTR-CNT > 13                                   DTSBR403
00727       MOVE WS-LIEN-FORM-QTR-LINE (14) TO WS-LIEN-FORM-QTR-LINE-14.DTSBR403
00728       IF R403-FORM-QTR-CNT > 14                                   DTSBR403
00729       MOVE WS-LIEN-FORM-QTR-LINE (15) TO WS-LIEN-FORM-QTR-LINE-15.DTSBR403
00730       IF R403-FORM-QTR-CNT > 15                                   DTSBR403
00731       MOVE WS-LIEN-FORM-QTR-LINE (16) TO WS-LIEN-FORM-QTR-LINE-16.DTSBR403
00732       IF R403-FORM-QTR-CNT > 16                                   DTSBR403
00733       MOVE WS-LIEN-FORM-QTR-LINE (17) TO WS-LIEN-FORM-QTR-LINE-17.DTSBR403
00734       IF R403-FORM-QTR-CNT > 17                                   DTSBR403
00735       MOVE WS-LIEN-FORM-QTR-LINE (18) TO WS-LIEN-FORM-QTR-LINE-18.DTSBR403
00736       IF R403-FORM-QTR-CNT > 18                                   DTSBR403
00737       MOVE WS-LIEN-FORM-QTR-LINE (19) TO WS-LIEN-FORM-QTR-LINE-19.DTSBR403
00738 *     IF R403-FORM-QTR-CNT > 19                                   DTSBR403
00739 *     MOVE WS-LIEN-FORM-QTR-LINE (20) TO WS-LIEN-FORM-QTR-LINE-20.DTSBR403
00740                                                                   DTSBR403
00741  P6000-EXIT.                                                      DTSBR403
00742      EXIT.                                                        DTSBR403
00743                                                                   DTSBR403
00744  T1000-TERMINATE.                                                 DTSBR403
00745      SKIP1                                                        DTSBR403
00746      CLOSE PRT-FILE1.                                             DTSBR403
00747      SKIP2                                                        DTSBR403
00748  T1000-EXIT.                                                      DTSBR403
00749      EXIT.                                                        DTSBR403
00750      EJECT                                                        DTSBR403
00751  S001-DATE.                                                       DTSBR403
00752                                                                   DTSBR403
00753      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR403
00754                                                                   DTSBR403
00755  S001-EXIT.                                                       DTSBR403
00756      EXIT.                                                        DTSBR403
00757                                                                   DTSBR403
00758  S002-DATE.                                                       DTSBR403
00759                                                                   DTSBR403
00760      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR403
00761                                                                   DTSBR403
00762  S002-EXIT.                                                       DTSBR403
00763      EXIT.                                                        DTSBR403
00764                                                                   DTSBR403
00765  S004-CONVERT-QTR.                                                DTSBR403
00766                                                                   DTSBR403
00767      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR403
00768                                                                   DTSBR403
00769  S004-EXIT.                                                       DTSBR403
00770      EXIT.                                                        DTSBR403
00771                                                                   DTSBR403
00772  S009-CONVERT-TO-CAPS.                                            DTSBR403
00773                                                                   DTSBR403
00774      CALL 'DTSBU009' USING L009-LINK-AREA.                        DTSBR403
00775                                                                   DTSBR403
00776  S009-EXIT.                                                       DTSBR403
00777      EXIT.                                                        DTSBR403
00778                                                                   DTSBR403
00779  S071-DESLASH-NAME.                                               DTSBR403
00780                                                                   DTSBR403
00781      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR403
00782                                                                   DTSBR403
00783  S071-EXIT.                                                       DTSBR403
00784      EXIT.                                                        DTSBR403
00785                                                                   DTSBR403
00786  S082-OP-ID-INFO.                                                 DTSBR403
00787                                                                   DTSBR403
00788      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR403
00789                                                                   DTSBR403
00790  S082-EXIT.                                                       DTSBR403
00791      EXIT.                                                        DTSBR403
00792                                                                   DTSBR403
00793  S119-AGENCY-FACTS.                                               DTSBR403
00794                                                                   DTSBR403
00795      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR403
00796                                                                   DTSBR403
00797  S119-EXIT.                                                       DTSBR403
00798      EXIT.                                                        DTSBR403
00799                                                                   DTSBR403
00800 *S999-ABEND.                                                      DTSBR403
00801 *                                                                 DTSBR403
00802 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR403
00803 *                                                                 DTSBR403
00804 *S999-EXIT.                                                       DTSBR403
00805 *    EXIT.                                                        DTSBR403
00806                                                                   DTSBR403
