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