00001 IDENTIFICATION DIVISION. 08/21/24 00002 PROGRAM-ID. DTSBR403. DTSBR403 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV011 00004 DATE-WRITTEN. OCTOBER 1994. DTSBR403 00005 DATE-COMPILED. DTSBR403 00006 SKIP3 DTSBR403 00007 ***** NO CHANGE TESTING PRINT CL**7 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 '011DTSBR403 08/21/24'. DTSBR403 00119 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR403 04/04/11'. DTSBR403 00120 DTSBR403 00121 01 WRK-AREA. DTSBR403 00122 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +403.DTSBR403 00123 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR403 00124 05 WRK-YRQ-AREA. DTSBR403 00125 10 WRK-YRQ OCCURS 20 PIC X(04) VALUE SPACES. DTSBR403 00126 DTSBR403 00127 05 WS-FORM-PAGE PIC S9(03) COMP-3 VALUE +0. DTSBR403 00128 05 WS-FORM-TOTAL-PAGES PIC S9(03) COMP-3 VALUE +0. DTSBR403 00129 05 WS-PAGE-OCCUR-CNT PIC S9(04) COMP VALUE +0. DTSBR403 00130 05 WS-FORM-QTR-LEFTOVER-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR403 00131 05 WS-TOTAL-TAX-BALANCE-AMT PIC 9(09)V99 VALUE 0. DTSBR403 00132 05 WS-TOTAL-SUR-TAX-BALANCE-AMT PIC 9(09)V99 VALUE 0. DTSBR403 00133 05 WS-TOTAL-INT-BALANCE-AMT PIC 9(09)V99 VALUE 0. DTSBR403 00134 05 WS-TOTAL-LP-NP-MP-BALANCE PIC 9(09)V99 VALUE 0. DTSBR403 00135 05 WS-TOTAL-TOTAL-LIEN-AMT PIC 9(09)V99 VALUE 0. DTSBR403 00136 DTSBR403 00137 05 WS-FORM-ID PIC X(12) VALUE SPACES. DTSBR403 00138 05 WS-REPORT-NO1 PIC X(12) VALUE DTSBR403 00139 'RPT403R1.FAC'. DTSBR403 00140 05 WS-CERTIFICATE-NO PIC 9(08) VALUE 0. DTSBR403 00141 05 WS-EMPLOYER-NO PIC 9(06) VALUE 0. DTSBR403 00142 05 WS-TOTAL-LIEN-AMT PIC 9(09)V99 VALUE ZERO. DTSBR403 00143 DTSBR403 00144 05 WS-COMP-DATE-SLASH PIC X(10) VALUE SPACES. DTSBR403 00145 05 WS-CERT-DATE-SLASH PIC X(10) VALUE SPACES. DTSBR403 00146 05 WS-STMT-DATE-TEXT PIC X(18) VALUE SPACES. DTSBR403 00147 SKIP1 DTSBR403 00148 05 WS-LIEN-FORM-QTR-LINE-TBL PIC X(1500) VALUE SPACES. DTSBR403 00149 05 FILLER REDEFINES WS-LIEN-FORM-QTR-LINE-TBL. DTSBR403 00150 10 WS-LIEN-FORM-QTR-LINE OCCURS 20 TIMES. DTSBR403 00151 15 WS-QTR-END-DATE-SLASH. DTSBR403 00152 20 WS-YEAR-ONLY PIC X(02). DTSBR403 00153 20 WS-SLASH-ONLY PIC X(01). DTSBR403 00154 20 WS-QTR-ONLY PIC X(01). DTSBR403 00155 15 FILLER PIC X(01). DTSBR403 00156 15 WS-LEGAL-IND PIC X. DTSBR403 00157 15 FILLER PIC X(01). DTSBR403 00158 15 WS-ESTIMATED-TAX-IND PIC X. DTSBR403 00159 15 FILLER PIC X(01). DTSBR403 00160 15 WS-UNUSED-IND PIC X. DTSBR403 00161 15 FILLER PIC X(04). DTSBR403 00162 15 WS-FORM-TAX-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00163 15 FILLER PIC X(01). DTSBR403 00164 15 WS-FORM-SUR-TAX-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00165 15 FILLER PIC X(01). DTSBR403 00166 15 WS-FORM-INT-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00167 15 FILLER PIC X(01). DTSBR403 00168 15 WS-FORM-LP-NP-MP-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00169 15 FILLER PIC X(01). DTSBR403 00170 15 WS-FORM-TOTAL-LIEN-AMT PIC $$$,$$$,$$9.99. DTSBR403 00171 DTSBR403 00172 05 WS-LIEN-FORM-TOTAL-DISPLAY PIC X(97) VALUE SPACES. DTSBR403 00173 05 FILLER REDEFINES WS-LIEN-FORM-TOTAL-DISPLAY. DTSBR403 00174 15 T-FORM-TOTAL-DESCRIPTION PIC X(15). DTSBR403 00175 15 T-FORM-TAX-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00176 15 FILLER PIC X(01). DTSBR403 00177 15 T-FORM-SUR-TAX-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00178 15 FILLER PIC X(01). DTSBR403 00179 15 T-FORM-INT-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00180 15 FILLER PIC X(01). DTSBR403 00181 15 T-FORM-LP-NP-MP-BALANCE-AMT PIC $$$,$$$,$$9.99. DTSBR403 00182 15 T-FORM-TOTAL-LIEN-AMT PIC $$$,$$$,$$9.99. DTSBR403 00183 DTSBR403 00184 05 WS-TOTAL-AMT-STRING PIC X(15) VALUE SPACES. DTSBR403 00185 05 WS-TOTAL-AMT-EDIT PIC X(14) VALUE SPACES. DTSBR403 00186 05 WS-TOTAL-AMT-EDIT-R REDEFINES WS-TOTAL-AMT-EDIT DTSBR403 00187 PIC ZZZ,ZZZ,ZZ9.99. DTSBR403 00188 05 WS-TOTAL-AMT-FIRST-CHAR PIC S9(04) COMP VALUE +0. DTSBR403 00189 05 WS-TOTAL-AMT-LENGTH PIC S9(04) COMP VALUE +0. DTSBR403 00190 DTSBR403 00191 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACES. DTSBR403 00192 05 WS-OPR-NAME-CAPS PIC X(32) VALUE SPACES. DTSBR403 00193 05 WS-OPR-UNIT-NAME-CAPS PIC X(50) VALUE SPACES. DTSBR403 00194 05 WS-OPR-NAME-MIXED PIC X(32) VALUE SPACES. DTSBR403 00195 05 WS-OPR-UNIT-NAME-MIXED PIC X(50) VALUE SPACES. DTSBR403 00196 DTSBR403 00197 05 WS-OPR-VOICE. DTSBR403 00198 10 WS-OPR-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR403 00199 10 WS-OPR-VOICE-1 PIC X(03) VALUE SPACES. DTSBR403 00200 10 WS-OPR-VOICE-2 PIC X(04) VALUE SPACES. DTSBR403 00201 10 WS-OPR-VOICE-EXT PIC X(04) VALUE SPACES. DTSBR403 00202 DTSBR403 00203 05 WS-FLD-VOICE. DTSBR403 00204 10 FILLER PIC X(01) VALUE '('. DTSBR403 00205 10 WS-FLD-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR403 00206 10 FILLER PIC X(01) VALUE ')'. DTSBR403 00207 10 WS-FLD-VOICE-1 PIC X(03) VALUE SPACES. DTSBR403 00208 10 FILLER PIC X(01) VALUE '-'. DTSBR403 00209 10 WS-FLD-VOICE-2 PIC X(04) VALUE SPACES. DTSBR403 00210 DTSBR403 00211 01 BLANK-LINE PIC X(133) VALUE SPACES. DTSBR403 00212 DTSBR403 00213 01 FORM-DETAIL. DTSBR403 00214 05 FMD-LINE-6. DTSBR403 00215 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00216 10 WS-FMD-FMT-LINE-1 PIC X(30) VALUE SPACES. DTSBR403 00217 10 FILLER PIC X(102) VALUE SPACES. DTSBR403 00218 05 FMD-LINE-7. DTSBR403 00219 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00220 10 WS-FMD-FMT-LINE-2 PIC X(30) VALUE SPACES. DTSBR403 00221 10 FILLER PIC X(102) VALUE SPACES. DTSBR403 00222 05 FMD-LINE-8. DTSBR403 00223 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00224 10 WS-FMD-FMT-LINE-3 PIC X(30) VALUE SPACES. DTSBR403 00225 10 FILLER PIC X(24) VALUE SPACES. DTSBR403 00226 10 WS-FMD-CERT-NO PIC 99999999. DTSBR403 00227 10 FILLER PIC X(76) VALUE SPACES. DTSBR403 00228 05 FMD-LINE-9. DTSBR403 00229 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00230 10 WS-FMD-FMT-LINE-4 PIC X(30) VALUE SPACES. DTSBR403 00231 10 FILLER PIC X(102) VALUE SPACES. DTSBR403 00232 05 FMD-LINE-10. DTSBR403 00233 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00234 10 WS-FMD-FMT-LINE-5 PIC X(30) VALUE SPACES. DTSBR403 00235 10 FILLER PIC X(102) VALUE SPACES. DTSBR403 00236 05 FMD-LINE-11. DTSBR403 00237 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00238 10 FILLER PIC X(50) VALUE SPACES. DTSBR403 00239 10 WS-FMD-CERT-DATE-SLASH PIC X(10) VALUE SPACES. DTSBR403 00240 10 FILLER PIC X(72) VALUE SPACES. DTSBR403 00241 05 FMD-LINE-12 PIC X(133) VALUE SPACES. DTSBR403 00242 05 FMD-LINE-13. DTSBR403 00243 10 FILLER PIC X(02) VALUE SPACE. DTSBR403 00244 10 WS-FMD-EMP-STATUS PIC X VALUE SPACE. DTSBR403 00245 10 FILLER PIC X(06) VALUE SPACES. DTSBR403 00246 10 WS-FMD-EMP-NO PIC 999B999. DTSBR403 00247 10 FILLER PIC X(55) VALUE SPACES. DTSBR403 00248 10 WS-FMD-COMP-DATE-SLASH PIC X(10) VALUE SPACES. DTSBR403 00249 10 FILLER PIC X(62) VALUE SPACES. DTSBR403 00250 05 FMD-LINE-14 PIC X(133) VALUE SPACES. DTSBR403 00251 05 FMD-LINE-15 PIC X(133) VALUE SPACES. DTSBR403 00252 05 FMD-LINE-16 PIC X(133) VALUE SPACES. DTSBR403 00253 05 FMD-LINE-17 PIC X(133) VALUE SPACES. DTSBR403 00254 05 FMD-LINE-18. DTSBR403 00255 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00256 10 WS-LIEN-FORM-QTR-LINE-1 PIC X(88) VALUE SPACES. DTSBR403 00257 05 FMD-LINE-19. DTSBR403 00258 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00259 10 WS-LIEN-FORM-QTR-LINE-2 PIC X(88) VALUE SPACES. DTSBR403 00260 05 FMD-LINE-20. DTSBR403 00261 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00262 10 WS-LIEN-FORM-QTR-LINE-3 PIC X(88) VALUE SPACES. DTSBR403 00263 05 FMD-LINE-21. DTSBR403 00264 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00265 10 WS-LIEN-FORM-QTR-LINE-4 PIC X(88) VALUE SPACES. DTSBR403 00266 05 FMD-LINE-22. DTSBR403 00267 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00268 10 WS-LIEN-FORM-QTR-LINE-5 PIC X(88) VALUE SPACES. DTSBR403 00269 05 FMD-LINE-23. DTSBR403 00270 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00271 10 WS-LIEN-FORM-QTR-LINE-6 PIC X(88) VALUE SPACES. DTSBR403 00272 05 FMD-LINE-24. DTSBR403 00273 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00274 10 WS-LIEN-FORM-QTR-LINE-7 PIC X(88) VALUE SPACES. DTSBR403 00275 05 FMD-LINE-25. DTSBR403 00276 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00277 10 WS-LIEN-FORM-QTR-LINE-8 PIC X(88) VALUE SPACES. DTSBR403 00278 05 FMD-LINE-26. DTSBR403 00279 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00280 10 WS-LIEN-FORM-QTR-LINE-9 PIC X(88) VALUE SPACES. DTSBR403 00281 05 FMD-LINE-27. DTSBR403 00282 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00283 10 WS-LIEN-FORM-QTR-LINE-10 PIC X(88) VALUE SPACES. DTSBR403 00284 05 FMD-LINE-28. DTSBR403 00285 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00286 10 WS-LIEN-FORM-QTR-LINE-11 PIC X(88) VALUE SPACES. DTSBR403 00287 05 FMD-LINE-29. DTSBR403 00288 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00289 10 WS-LIEN-FORM-QTR-LINE-12 PIC X(88) VALUE SPACES. DTSBR403 00290 05 FMD-LINE-30. DTSBR403 00291 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00292 10 WS-LIEN-FORM-QTR-LINE-13 PIC X(88) VALUE SPACES. DTSBR403 00293 05 FMD-LINE-31. DTSBR403 00294 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00295 10 WS-LIEN-FORM-QTR-LINE-14 PIC X(88) VALUE SPACES. DTSBR403 00296 05 FMD-LINE-32. DTSBR403 00297 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00298 10 WS-LIEN-FORM-QTR-LINE-15 PIC X(88) VALUE SPACES. DTSBR403 00299 05 FMD-LINE-33. DTSBR403 00300 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00301 10 WS-LIEN-FORM-QTR-LINE-16 PIC X(88) VALUE SPACES. DTSBR403 00302 05 FMD-LINE-34. DTSBR403 00303 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00304 10 WS-LIEN-FORM-QTR-LINE-17 PIC X(88) VALUE SPACES. DTSBR403 00305 05 FMD-LINE-35. DTSBR403 00306 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00307 10 WS-LIEN-FORM-QTR-LINE-18 PIC X(88) VALUE SPACES. DTSBR403 00308 05 FMD-LINE-36. DTSBR403 00309 10 FILLER PIC X(02) VALUE SPACES. DTSBR403 00310 10 WS-LIEN-FORM-QTR-LINE-19 PIC X(88) VALUE SPACES. DTSBR403 00311 05 FMD-LINE-37. DTSBR403 00312 10 FILLER PIC X(01) VALUE SPACE. DTSBR403 00313 10 WS-LIEN-FORM-TOTAL-DIS PIC X(90) VALUE SPACES. DTSBR403 00314 DTSBR403 00315 05 FMD-LINE-57. DTSBR403 00316 10 FILLER PIC X(03) VALUE SPACES. CL**6 00317 10 FILLER PIC X(32) VALUE CL**4 00318 'COLLECTION UNIT: '. CL*10 00319 * 10 WS-LIEN-FLD-REP-NAME PIC X(32) VALUE SPACES. CL*10 00320 10 FILLER PIC X(62) VALUE SPACES. CL*10 00321 DTSBR403 00322 05 FMD-LINE-58. DTSBR403 00323 10 FILLER PIC X(03) VALUE SPACES. CL**6 00324 10 FILLER PIC X(45) VALUE CL*10 00325 'EMAIL ADDRESS: UITAX.COLLECTIONS@DC.GOV '. CL*10 00326 10 FILLER PIC X(19) VALUE CL*10 00327 'PHONE: 202.698.7550'. CL*10 00328 * 10 WS-LIEN-FLD-REP-PHONE PIC X(15) VALUE SPACES. CL*10 00329 10 FILLER PIC X(50) VALUE SPACES. CL**4 00330 DTSBR403 00331 01 FORM-LETTER. DTSBR403 00332 05 FML-LINE-8. DTSBR403 00333 10 FILLER PIC X(04) VALUE SPACES. DTSBR403 00334 10 WS-FML-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSBR403 00335 10 FILLER PIC X(92) VALUE SPACES. DTSBR403 00336 05 FML-LINE-9. DTSBR403 00337 10 FILLER PIC X(04) VALUE SPACES. DTSBR403 00338 10 WS-FML-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSBR403 00339 10 FILLER PIC X(23) VALUE SPACES. DTSBR403 00340 10 WS-FML-EMP-NO PIC 999B999. DTSBR403 00341 10 FILLER PIC X(70) VALUE SPACES. DTSBR403 00342 05 FML-LINE-10. DTSBR403 00343 10 FILLER PIC X(04) VALUE SPACES. DTSBR403 00344 10 WS-FML-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSBR403 00345 10 FILLER PIC X(92) VALUE SPACES. DTSBR403 00346 05 FML-LINE-11. DTSBR403 00347 10 FILLER PIC X(04) VALUE SPACES. DTSBR403 00348 10 WS-FML-FMT-LINE-4 PIC X(40) VALUE SPACES. DTSBR403 00349 10 FILLER PIC X(92) VALUE SPACES. DTSBR403 00350 05 FML-LINE-12. DTSBR403 00351 10 FILLER PIC X(04) VALUE SPACES. DTSBR403 00352 10 WS-FML-FMT-LINE-5 PIC X(40) VALUE SPACES. DTSBR403 00353 10 FILLER PIC X(23) VALUE SPACES. DTSBR403 00354 10 WS-FML-EMP-STATUS PIC X(10) VALUE SPACES. DTSBR403 00355 10 FILLER PIC X(75) VALUE SPACES. DTSBR403 00356 DTSBR403 00357 05 FML-LINE-55. DTSBR403 00358 10 FILLER PIC X(05) VALUE SPACES. CL**6 00359 * 10 FILLER PIC X(16) VALUE CL*10 00360 * 'PLEASE CONTACT: '. CL*10 00361 * 10 WS-FML-FLD-REP-NAME PIC X(25) VALUE SPACES. CL*10 00362 * 10 FILLER PIC X(05) VALUE SPACES. CL*10 00363 * 10 FILLER PIC X(07) VALUE 'PHONE: '. CL*10 00364 * 10 WS-FML-FLD-REP-PHONE PIC X(15) VALUE SPACES. CL*10 00365 10 FILLER PIC X(45) VALUE CL*10 00366 'EMAIL ADDRESS: UITAX.COLLECTIONS@DC.GOV '. CL*10 00367 10 FILLER PIC X(19) VALUE CL*10 00368 'PHONE: 202.698.7550'. CL*10 00369 * 10 WS-LIEN-FLD-REP-PHONE PIC X(15) VALUE SPACES. CL*10 00370 * 10 FILLER PIC X(50) VALUE SPACES. CL*10 00371 DTSBR403 00372 DTSBR403 00373 EJECT DTSBR403 00374 01 L001-LINK-AREA. DTSBR403 00375 ++INCLUDE DTSIL001 DTSBR403 00376 EJECT DTSBR403 00377 01 L002-LINK-AREA. DTSBR403 00378 ++INCLUDE DTSIL002 DTSBR403 00379 EJECT DTSBR403 00380 01 L004-LINK-AREA. DTSBR403 00381 ++INCLUDE DTSIL004 DTSBR403 00382 EJECT DTSBR403 00383 01 L009-LINK-AREA. DTSBR403 00384 ++INCLUDE DTSIL009 DTSBR403 00385 EJECT DTSBR403 00386 01 L071-LINK-AREA. DTSBR403 00387 ++INCLUDE DTSIL071 DTSBR403 00388 EJECT DTSBR403 00389 01 L082-LINK-AREA. DTSBR403 00390 ++INCLUDE DTSIL082 DTSBR403 00391 EJECT DTSBR403 00392 01 L119-LINK-AREA. DTSBR403 00393 ++INCLUDE DTSIL119 DTSBR403 00394 EJECT DTSBR403 00395 ++INCLUDE DTSXL403 DTSBR403 00396 EJECT DTSBR403 00397 LINKAGE SECTION. DTSBR403 00398 SKIP3 DTSBR403 00399 01 LRCM-LINK-AREA. DTSBR403 00400 ++INCLUDE DTSILRCM DTSBR403 00401 EJECT DTSBR403 00402 01 R403-REC. DTSBR403 00403 ++INCLUDE DTSIR403 DTSBR403 00404 EJECT DTSBR403 00405 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR403 00406 R403-REC. DTSBR403 00407 SKIP2 DTSBR403 00408 IF FIRST-TIME-IND = 'Y' DTSBR403 00409 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR403 00410 MOVE 'N' TO FIRST-TIME-IND. DTSBR403 00411 SKIP1 DTSBR403 00412 IF LRCM-EOR-88 DTSBR403 00413 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR403 00414 ELSE DTSBR403 00415 PERFORM P1000-PROCESS THRU P1000-EXIT DTSBR403 00416 END-IF. DTSBR403 00417 SKIP2 DTSBR403 00418 GOBACK. DTSBR403 00419 I1000-INITIATE. DTSBR403 00420 SKIP1 DTSBR403 00421 OPEN OUTPUT PRT-FILE1. DTSBR403 00422 MOVE SPACES TO XEROX-REPORT. DTSBR403 00423 WRITE XEROX-REPORT FROM BLANK-LINE DTSBR403 00424 AFTER ADVANCING TOP-OF-PAGE. DTSBR403 00425 WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 18. DTSBR403 00426 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE20 DTSBR403 00427 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE21. DTSBR403 00428 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE22. DTSBR403 00429 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE23. DTSBR403 00430 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE24. DTSBR403 00431 WRITE XEROX-REPORT FROM XEROX-XMOM-CNTL1. DTSBR403 00432 WRITE XEROX-REPORT FROM XEROX-XMOM-CNTL2. DTSBR403 00433 DTSBR403 00434 SKIP1 DTSBR403 00435 MOVE R403-STMT-DATE TO L002-DATE DTSBR403 00436 SET L002-MIXED-CASE TO TRUE. DTSBR403 00437 PERFORM S002-DATE THRU S002-EXIT. DTSBR403 00438 MOVE L002-LONG-TEXT-AREA TO WS-STMT-DATE-TEXT DTSBR403 00439 DTSBR403 00440 MOVE R403-OP-ID TO WS-OP-ID-HOLD. DTSBR403 00441 PERFORM P3000-OPERATOR-LOOKUP THRU P3000-EXIT. CL**4 00442 MOVE R403-EMP-NO TO WS-EMPLOYER-NO. DTSBR403 00443 DTSBR403 00444 I1000-EXIT. DTSBR403 00445 EXIT. DTSBR403 00446 EJECT DTSBR403 00447 P1000-PROCESS. DTSBR403 00448 DTSBR403 00449 PERFORM P3000-OPERATOR-LOOKUP THRU P3000-EXIT. CL**4 00450 DTSBR403 00451 MOVE R403-EMP-NO TO WS-EMPLOYER-NO. DTSBR403 00452 MOVE R403-FORM-COMP-DATE TO L001-FED-8-DATE-9. DTSBR403 00453 SET L001-FROM-FED-8 TO TRUE. DTSBR403 00454 PERFORM S001-DATE THRU S001-EXIT. DTSBR403 00455 MOVE L001-SLASH-8-DATE TO WS-COMP-DATE-SLASH. DTSBR403 00456 DTSBR403 00457 MOVE R403-CERTIFICATE-NO TO WS-CERTIFICATE-NO. DTSBR403 00458 MOVE R403-CERTIFICATE-DATE TO L001-FED-8-DATE-9. DTSBR403 00459 SET L001-FROM-FED-8 TO TRUE. DTSBR403 00460 PERFORM S001-DATE THRU S001-EXIT. DTSBR403 00461 IF L001-VALID-DATE DTSBR403 00462 MOVE L001-SLASH-8-DATE TO WS-CERT-DATE-SLASH DTSBR403 00463 ELSE DTSBR403 00464 MOVE SPACES TO WS-CERT-DATE-SLASH. DTSBR403 00465 DTSBR403 00466 MOVE R403-LETTER-TOTAL-AMT TO WS-TOTAL-AMT-EDIT-R. DTSBR403 00467 MOVE +0 TO WS-TOTAL-AMT-FIRST-CHAR. DTSBR403 00468 INSPECT WS-TOTAL-AMT-EDIT DTSBR403 00469 TALLYING WS-TOTAL-AMT-FIRST-CHAR DTSBR403 00470 FOR LEADING SPACES. DTSBR403 00471 SUBTRACT WS-TOTAL-AMT-FIRST-CHAR FROM 14 DTSBR403 00472 GIVING WS-TOTAL-AMT-LENGTH. DTSBR403 00473 ADD +1 TO WS-TOTAL-AMT-FIRST-CHAR. DTSBR403 00474 MOVE SPACES TO WS-TOTAL-AMT-STRING. DTSBR403 00475 STRING WS-TOTAL-AMT-EDIT DTSBR403 00476 (WS-TOTAL-AMT-FIRST-CHAR:WS-TOTAL-AMT-LENGTH) DTSBR403 00477 DELIMITED BY SIZE DTSBR403 00478 '.' DELIMITED BY SIZE DTSBR403 00479 INTO DTSBR403 00480 WS-TOTAL-AMT-STRING. DTSBR403 00481 DTSBR403 00482 PERFORM P2000-LIEN-FORM-PROCESS THRU P2000-EXIT. DTSBR403 00483 DTSBR403 00484 P1000-EXIT. DTSBR403 00485 EXIT. DTSBR403 00486 EJECT DTSBR403 00487 P2000-LIEN-FORM-PROCESS. DTSBR403 00488 DTSBR403 00489 DIVIDE R403-FORM-QTR-CNT BY 20 GIVING WS-FORM-TOTAL-PAGES DTSBR403 00490 REMAINDER WS-FORM-QTR-LEFTOVER-CNT. DTSBR403 00491 IF WS-FORM-QTR-LEFTOVER-CNT > +0 DTSBR403 00492 ADD +1 TO WS-FORM-TOTAL-PAGES. DTSBR403 00493 MOVE +0 TO WS-PAGE-OCCUR-CNT DTSBR403 00494 WS-FORM-PAGE. DTSBR403 00495 MOVE SPACES TO WS-LIEN-FORM-QTR-LINE-TBL. DTSBR403 00496 MOVE ZEROES TO WS-TOTAL-TAX-BALANCE-AMT DTSBR403 00497 WS-TOTAL-SUR-TAX-BALANCE-AMT DTSBR403 00498 WS-TOTAL-INT-BALANCE-AMT DTSBR403 00499 WS-TOTAL-LP-NP-MP-BALANCE DTSBR403 00500 WS-TOTAL-TOTAL-LIEN-AMT. DTSBR403 00501 PERFORM P2100-PROCESS-FORM-QTR THRU P2100-EXIT DTSBR403 00502 VARYING R403-FORM-QTR-IDX FROM +1 BY +1 DTSBR403 00503 UNTIL R403-FORM-QTR-IDX > R403-FORM-QTR-CNT. DTSBR403 00504 INITIALIZE WS-LIEN-FORM-TOTAL-DISPLAY. DTSBR403 00505 * MOVE 'TOTAL ON QTRS ' TO T-FORM-TOTAL-DESCRIPTION. DTSBR403 00506 MOVE SPACES TO T-FORM-TOTAL-DESCRIPTION. DTSBR403 00507 MOVE WS-TOTAL-TAX-BALANCE-AMT TO T-FORM-TAX-BALANCE-AMT. DTSBR403 00508 MOVE WS-TOTAL-SUR-TAX-BALANCE-AMT TO DTSBR403 00509 T-FORM-SUR-TAX-BALANCE-AMT. DTSBR403 00510 MOVE WS-TOTAL-INT-BALANCE-AMT TO T-FORM-INT-BALANCE-AMT. DTSBR403 00511 MOVE WS-TOTAL-LP-NP-MP-BALANCE TO DTSBR403 00512 T-FORM-LP-NP-MP-BALANCE-AMT. DTSBR403 00513 MOVE WS-TOTAL-TOTAL-LIEN-AMT TO T-FORM-TOTAL-LIEN-AMT. DTSBR403 00514 ADD +1 TO WS-FORM-PAGE. DTSBR403 00515 PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT. DTSBR403 00516 PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT. DTSBR403 00517 PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT. DTSBR403 00518 PERFORM P5000-PRINT-FORM-LETTER THRU P5000-EXIT. DTSBR403 00519 DTSBR403 00520 P2000-EXIT. DTSBR403 00521 EXIT. DTSBR403 00522 EJECT DTSBR403 00523 P2100-PROCESS-FORM-QTR. DTSBR403 00524 DTSBR403 00525 ADD +1 TO WS-PAGE-OCCUR-CNT. DTSBR403 00526 PERFORM P2105-PICKUP-YRQ THRU P2105-EXIT. DTSBR403 00527 MOVE R403-FORM-LEGAL-IND (R403-FORM-QTR-IDX) DTSBR403 00528 TO WS-LEGAL-IND (WS-PAGE-OCCUR-CNT). DTSBR403 00529 MOVE R403-FORM-ESTIMATED-IND (R403-FORM-QTR-IDX) DTSBR403 00530 TO WS-ESTIMATED-TAX-IND (WS-PAGE-OCCUR-CNT). DTSBR403 00531 MOVE R403-FORM-UNUSED-IND (R403-FORM-QTR-IDX) DTSBR403 00532 TO WS-UNUSED-IND (WS-PAGE-OCCUR-CNT). DTSBR403 00533 MOVE R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBR403 00534 TO WS-FORM-TAX-BALANCE-AMT (WS-PAGE-OCCUR-CNT). DTSBR403 00535 MOVE R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBR403 00536 TO WS-FORM-SUR-TAX-BALANCE-AMT (WS-PAGE-OCCUR-CNT). DTSBR403 00537 MOVE R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBR403 00538 TO WS-FORM-INT-BALANCE-AMT (WS-PAGE-OCCUR-CNT). DTSBR403 00539 MOVE R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBR403 00540 TO WS-FORM-LP-NP-MP-BALANCE-AMT (WS-PAGE-OCCUR-CNT). DTSBR403 00541 MOVE ZEROS TO WS-TOTAL-LIEN-AMT. DTSBR403 00542 COMPUTE WS-TOTAL-LIEN-AMT = DTSBR403 00543 R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) + DTSBR403 00544 R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) + DTSBR403 00545 R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX) + DTSBR403 00546 R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX). DTSBR403 00547 MOVE WS-TOTAL-LIEN-AMT DTSBR403 00548 TO WS-FORM-TOTAL-LIEN-AMT (WS-PAGE-OCCUR-CNT). DTSBR403 00549 COMPUTE WS-TOTAL-TAX-BALANCE-AMT = WS-TOTAL-TAX-BALANCE-AMT +DTSBR403 00550 R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX). DTSBR403 00551 COMPUTE WS-TOTAL-SUR-TAX-BALANCE-AMT = DTSBR403 00552 WS-TOTAL-SUR-TAX-BALANCE-AMT + DTSBR403 00553 R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX). DTSBR403 00554 COMPUTE WS-TOTAL-INT-BALANCE-AMT = WS-TOTAL-INT-BALANCE-AMT +DTSBR403 00555 R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX). DTSBR403 00556 COMPUTE WS-TOTAL-LP-NP-MP-BALANCE = WS-TOTAL-LP-NP-MP-BALANCEDTSBR403 00557 + R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX). DTSBR403 00558 COMPUTE WS-TOTAL-TOTAL-LIEN-AMT = WS-TOTAL-TOTAL-LIEN-AMT + DTSBR403 00559 WS-TOTAL-LIEN-AMT. DTSBR403 00560 IF WS-PAGE-OCCUR-CNT = +20 DTSBR403 00561 IF R403-FORM-QTR-IDX = R403-FORM-QTR-CNT DTSBR403 00562 GO TO P2100-EXIT DTSBR403 00563 ELSE DTSBR403 00564 ADD +1 TO WS-FORM-PAGE DTSBR403 00565 PERFORM P4000-PRINT-FORM-DETAIL THRU P4000-EXIT DTSBR403 00566 MOVE +0 TO WS-PAGE-OCCUR-CNT DTSBR403 00567 MOVE SPACES TO WS-LIEN-FORM-QTR-LINE-TBL. DTSBR403 00568 DTSBR403 00569 P2100-EXIT. DTSBR403 00570 EXIT. DTSBR403 00571 DTSBR403 00572 P2105-PICKUP-YRQ. DTSBR403 00573 IF LRCM-PICKUP-YRQ = R403-FORM-QTR (R403-FORM-QTR-IDX) DTSBR403 00574 MOVE 'PU ' TO WS-QTR-END-DATE-SLASH (WS-PAGE-OCCUR-CNT) DTSBR403 00575 ELSE DTSBR403 00576 MOVE R403-FORM-QTR (R403-FORM-QTR-IDX) TO L004-QTR-5-9 DTSBR403 00577 SET L004-FROM-5 TO TRUE DTSBR403 00578 PERFORM S004-CONVERT-QTR THRU S004-EXIT DTSBR403 00579 MOVE L004-SLASH-QTR DTSBR403 00580 TO WS-QTR-END-DATE-SLASH (WS-PAGE-OCCUR-CNT) DTSBR403 00581 MOVE SPACE TO WS-SLASH-ONLY (WS-PAGE-OCCUR-CNT) DTSBR403 00582 END-IF. DTSBR403 00583 P2105-EXIT. DTSBR403 00584 EXIT. DTSBR403 00585 EJECT DTSBR403 00586 P3000-OPERATOR-LOOKUP. DTSBR403 00587 DTSBR403 00588 MOVE R403-OP-ID TO L082-OP-ID. DTSBR403 00589 PERFORM S082-OP-ID-INFO THRU S082-EXIT. DTSBR403 00590 IF L082-NOT-VALID-OP OR L082-INTERNAL-88 DTSBR403 00591 MOVE SPACES TO WS-OPR-NAME-MIXED DTSBR403 00592 WS-OPR-NAME-CAPS DTSBR403 00593 MOVE LRCM-DEFAULT-NAME TO WS-OPR-UNIT-NAME-MIXED DTSBR403 00594 MOVE LRCM-DEFAULT-VOICE TO WS-OPR-VOICE DTSBR403 00595 ELSE DTSBR403 00596 MOVE L082-UNIT-NAME TO WS-OPR-UNIT-NAME-MIXED DTSBR403 00597 MOVE L082-VOICE-1 TO WS-OPR-VOICE DTSBR403 00598 MOVE L082-NAME TO L071-NAM DTSBR403 00599 MOVE 2 TO L071-NAME-FORMAT DTSBR403 00600 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR403 00601 MOVE L071-NAM TO WS-OPR-NAME-MIXED DTSBR403 00602 MOVE WS-OPR-NAME-MIXED TO L009-DATA DTSBR403 00603 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT DTSBR403 00604 MOVE L009-DATA TO WS-OPR-NAME-CAPS. DTSBR403 00605 DTSBR403 00606 MOVE WS-OPR-VOICE-AREA TO WS-FLD-VOICE-AREA. DTSBR403 00607 MOVE WS-OPR-VOICE-1 TO WS-FLD-VOICE-1. DTSBR403 00608 MOVE WS-OPR-VOICE-2 TO WS-FLD-VOICE-2. DTSBR403 00609 * MOVE WS-FLD-VOICE TO WS-FML-FLD-REP-PHONE CL*11 00610 * WS-LIEN-FLD-REP-PHONE. CL*11 00611 * MOVE WS-OPR-NAME-CAPS TO WS-FML-FLD-REP-NAME CL*11 00612 * WS-LIEN-FLD-REP-NAME. CL*11 00613 MOVE WS-OPR-UNIT-NAME-MIXED TO L009-DATA. DTSBR403 00614 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT. DTSBR403 00615 MOVE L009-DATA TO WS-OPR-UNIT-NAME-CAPS. CL**5 00616 DTSBR403 00617 P3000-EXIT. DTSBR403 00618 EXIT. DTSBR403 00619 EJECT DTSBR403 00620 DTSBR403 00621 P4000-PRINT-FORM-DETAIL. DTSBR403 00622 MOVE R403-FMT-LINE (1) TO WS-FMD-FMT-LINE-1. DTSBR403 00623 MOVE R403-FMT-LINE (2) TO WS-FMD-FMT-LINE-2. DTSBR403 00624 MOVE R403-FMT-LINE (3) TO WS-FMD-FMT-LINE-3. DTSBR403 00625 MOVE R403-FMT-LINE (4) TO WS-FMD-FMT-LINE-4. DTSBR403 00626 MOVE R403-FMT-LINE (5) TO WS-FMD-FMT-LINE-5. DTSBR403 00627 MOVE R403-EMP-STATUS TO WS-FMD-EMP-STATUS. DTSBR403 00628 MOVE WS-CERTIFICATE-NO TO WS-FMD-CERT-NO. DTSBR403 00629 MOVE WS-CERT-DATE-SLASH TO WS-FMD-CERT-DATE-SLASH. DTSBR403 00630 MOVE WS-EMPLOYER-NO TO WS-FMD-EMP-NO. DTSBR403 00631 MOVE WS-COMP-DATE-SLASH TO WS-FMD-COMP-DATE-SLASH. DTSBR403 00632 MOVE WS-LIEN-FORM-QTR-LINE (1) TO WS-LIEN-FORM-QTR-LINE-1. DTSBR403 00633 PERFORM P6000-EVAL-QTR-DATA THRU P6000-EXIT. DTSBR403 00634 MOVE WS-LIEN-FORM-TOTAL-DISPLAY TO WS-LIEN-FORM-TOTAL-DIS. DTSBR403 00635 WRITE XEROX-REPORT FROM BLANK-LINE DTSBR403 00636 AFTER ADVANCING TOP-OF-PAGE. DTSBR403 00637 WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 4 LINE. DTSBR403 00638 WRITE XEROX-REPORT FROM FMD-LINE-6 AFTER ADVANCING 1 LINE. DTSBR403 00639 WRITE XEROX-REPORT FROM FMD-LINE-7 AFTER ADVANCING 1 LINE. DTSBR403 00640 WRITE XEROX-REPORT FROM FMD-LINE-8 AFTER ADVANCING 1 LINE. DTSBR403 00641 WRITE XEROX-REPORT FROM FMD-LINE-9 AFTER ADVANCING 1 LINE. DTSBR403 00642 WRITE XEROX-REPORT FROM FMD-LINE-10 AFTER ADVANCING 1 LINE. DTSBR403 00643 WRITE XEROX-REPORT FROM FMD-LINE-11 AFTER ADVANCING 1 LINE. DTSBR403 00644 WRITE XEROX-REPORT FROM FMD-LINE-12 AFTER ADVANCING 1 LINE. DTSBR403 00645 WRITE XEROX-REPORT FROM FMD-LINE-13 AFTER ADVANCING 1 LINE. DTSBR403 00646 WRITE XEROX-REPORT FROM FMD-LINE-14 AFTER ADVANCING 1 LINE. DTSBR403 00647 WRITE XEROX-REPORT FROM FMD-LINE-15 AFTER ADVANCING 1 LINE. DTSBR403 00648 WRITE XEROX-REPORT FROM FMD-LINE-16 AFTER ADVANCING 1 LINE. DTSBR403 00649 WRITE XEROX-REPORT FROM FMD-LINE-17 AFTER ADVANCING 1 LINE. DTSBR403 00650 WRITE XEROX-REPORT FROM FMD-LINE-18 AFTER ADVANCING 1 LINE. DTSBR403 00651 WRITE XEROX-REPORT FROM FMD-LINE-19 AFTER ADVANCING 1 LINE. DTSBR403 00652 WRITE XEROX-REPORT FROM FMD-LINE-20 AFTER ADVANCING 1 LINE. DTSBR403 00653 WRITE XEROX-REPORT FROM FMD-LINE-21 AFTER ADVANCING 1 LINE. DTSBR403 00654 WRITE XEROX-REPORT FROM FMD-LINE-22 AFTER ADVANCING 1 LINE. DTSBR403 00655 WRITE XEROX-REPORT FROM FMD-LINE-23 AFTER ADVANCING 1 LINE. DTSBR403 00656 WRITE XEROX-REPORT FROM FMD-LINE-24 AFTER ADVANCING 1 LINE. DTSBR403 00657 WRITE XEROX-REPORT FROM FMD-LINE-25 AFTER ADVANCING 1 LINE. DTSBR403 00658 WRITE XEROX-REPORT FROM FMD-LINE-26 AFTER ADVANCING 1 LINE. DTSBR403 00659 WRITE XEROX-REPORT FROM FMD-LINE-27 AFTER ADVANCING 1 LINE. DTSBR403 00660 WRITE XEROX-REPORT FROM FMD-LINE-28 AFTER ADVANCING 1 LINE. DTSBR403 00661 WRITE XEROX-REPORT FROM FMD-LINE-29 AFTER ADVANCING 1 LINE. DTSBR403 00662 WRITE XEROX-REPORT FROM FMD-LINE-30 AFTER ADVANCING 1 LINE. DTSBR403 00663 WRITE XEROX-REPORT FROM FMD-LINE-31 AFTER ADVANCING 1 LINE. DTSBR403 00664 WRITE XEROX-REPORT FROM FMD-LINE-32 AFTER ADVANCING 1 LINE. DTSBR403 00665 WRITE XEROX-REPORT FROM FMD-LINE-33 AFTER ADVANCING 1 LINE. DTSBR403 00666 WRITE XEROX-REPORT FROM FMD-LINE-34 AFTER ADVANCING 1 LINE. DTSBR403 00667 WRITE XEROX-REPORT FROM FMD-LINE-35 AFTER ADVANCING 1 LINE. DTSBR403 00668 WRITE XEROX-REPORT FROM FMD-LINE-36 AFTER ADVANCING 1 LINE. DTSBR403 00669 WRITE XEROX-REPORT FROM FMD-LINE-37 AFTER ADVANCING 1 LINE. DTSBR403 00670 WRITE XEROX-REPORT FROM FMD-LINE-57 AFTER ADVANCING 20 LINE. CL*10 00671 WRITE XEROX-REPORT FROM FMD-LINE-58 AFTER ADVANCING 1 LINE. CL*10 00672 * WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 20 LINE. CL*10 00673 * WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 1 LINE. CL*10 00674 MOVE SPACES TO FMD-LINE-18 FMD-LINE-19 FMD-LINE-20 DTSBR403 00675 FMD-LINE-21 FMD-LINE-22 FMD-LINE-23 DTSBR403 00676 FMD-LINE-24 FMD-LINE-25 FMD-LINE-26 DTSBR403 00677 FMD-LINE-27 FMD-LINE-28 FMD-LINE-29 DTSBR403 00678 FMD-LINE-30 FMD-LINE-31 FMD-LINE-32 DTSBR403 00679 FMD-LINE-33 FMD-LINE-34 FMD-LINE-35 DTSBR403 00680 FMD-LINE-36 FMD-LINE-37. DTSBR403 00681 DTSBR403 00682 P4000-EXIT. DTSBR403 00683 EXIT. DTSBR403 00684 DTSBR403 00685 P5000-PRINT-FORM-LETTER. DTSBR403 00686 MOVE R403-FMT-LINE (1) TO WS-FML-FMT-LINE-1. DTSBR403 00687 MOVE R403-FMT-LINE (2) TO WS-FML-FMT-LINE-2. DTSBR403 00688 MOVE R403-FMT-LINE (3) TO WS-FML-FMT-LINE-3. DTSBR403 00689 MOVE R403-FMT-LINE (4) TO WS-FML-FMT-LINE-4. DTSBR403 00690 MOVE R403-FMT-LINE (5) TO WS-FML-FMT-LINE-5. DTSBR403 00691 DTSBR403 00692 IF R403-EMP-STATUS-ACTIVE-88 DTSBR403 00693 MOVE 'ACTIVE ' TO WS-FML-EMP-STATUS DTSBR403 00694 ELSE DTSBR403 00695 MOVE 'INACTIVE ' TO WS-FML-EMP-STATUS. DTSBR403 00696 DTSBR403 00697 MOVE WS-EMPLOYER-NO TO WS-FML-EMP-NO. DTSBR403 00698 WRITE XEROX-REPORT FROM BLANK-LINE AFTER DTSBR403 00699 ADVANCING TOP-OF-PAGE. DTSBR403 00700 WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 9 LINE. DTSBR403 00701 WRITE XEROX-REPORT FROM FML-LINE-8 AFTER ADVANCING 1 LINE. DTSBR403 00702 WRITE XEROX-REPORT FROM FML-LINE-9 AFTER ADVANCING 1 LINE. DTSBR403 00703 WRITE XEROX-REPORT FROM FML-LINE-10 AFTER ADVANCING 1 LINE. DTSBR403 00704 WRITE XEROX-REPORT FROM FML-LINE-11 AFTER ADVANCING 1 LINE. DTSBR403 00705 WRITE XEROX-REPORT FROM FML-LINE-12 AFTER ADVANCING 1 LINE. DTSBR403 00706 WRITE XEROX-REPORT FROM FML-LINE-55 AFTER ADVANCING 40 LINE. CL*10 00707 * WRITE XEROX-REPORT FROM BLANK-LINE AFTER ADVANCING 40 LINE. CL*10 00708 DTSBR403 00709 P5000-EXIT. DTSBR403 00710 EXIT. DTSBR403 00711 DTSBR403 00712 P6000-EVAL-QTR-DATA. DTSBR403 00713 DTSBR403 00714 IF R403-FORM-QTR-CNT > 1 DTSBR403 00715 MOVE WS-LIEN-FORM-QTR-LINE (2) TO WS-LIEN-FORM-QTR-LINE-2. DTSBR403 00716 IF R403-FORM-QTR-CNT > 2 DTSBR403 00717 MOVE WS-LIEN-FORM-QTR-LINE (3) TO WS-LIEN-FORM-QTR-LINE-3. DTSBR403 00718 IF R403-FORM-QTR-CNT > 3 DTSBR403 00719 MOVE WS-LIEN-FORM-QTR-LINE (4) TO WS-LIEN-FORM-QTR-LINE-4. DTSBR403 00720 IF R403-FORM-QTR-CNT > 4 DTSBR403 00721 MOVE WS-LIEN-FORM-QTR-LINE (5) TO WS-LIEN-FORM-QTR-LINE-5. DTSBR403 00722 IF R403-FORM-QTR-CNT > 5 DTSBR403 00723 MOVE WS-LIEN-FORM-QTR-LINE (6) TO WS-LIEN-FORM-QTR-LINE-6. DTSBR403 00724 IF R403-FORM-QTR-CNT > 6 DTSBR403 00725 MOVE WS-LIEN-FORM-QTR-LINE (7) TO WS-LIEN-FORM-QTR-LINE-7. DTSBR403 00726 IF R403-FORM-QTR-CNT > 7 DTSBR403 00727 MOVE WS-LIEN-FORM-QTR-LINE (8) TO WS-LIEN-FORM-QTR-LINE-8. DTSBR403 00728 IF R403-FORM-QTR-CNT > 8 DTSBR403 00729 MOVE WS-LIEN-FORM-QTR-LINE (9) TO WS-LIEN-FORM-QTR-LINE-9. DTSBR403 00730 IF R403-FORM-QTR-CNT > 9 DTSBR403 00731 MOVE WS-LIEN-FORM-QTR-LINE (10) TO WS-LIEN-FORM-QTR-LINE-10.DTSBR403 00732 IF R403-FORM-QTR-CNT > 10 DTSBR403 00733 MOVE WS-LIEN-FORM-QTR-LINE (11) TO WS-LIEN-FORM-QTR-LINE-11.DTSBR403 00734 IF R403-FORM-QTR-CNT > 11 DTSBR403 00735 MOVE WS-LIEN-FORM-QTR-LINE (12) TO WS-LIEN-FORM-QTR-LINE-12.DTSBR403 00736 IF R403-FORM-QTR-CNT > 12 DTSBR403 00737 MOVE WS-LIEN-FORM-QTR-LINE (13) TO WS-LIEN-FORM-QTR-LINE-13.DTSBR403 00738 IF R403-FORM-QTR-CNT > 13 DTSBR403 00739 MOVE WS-LIEN-FORM-QTR-LINE (14) TO WS-LIEN-FORM-QTR-LINE-14.DTSBR403 00740 IF R403-FORM-QTR-CNT > 14 DTSBR403 00741 MOVE WS-LIEN-FORM-QTR-LINE (15) TO WS-LIEN-FORM-QTR-LINE-15.DTSBR403 00742 IF R403-FORM-QTR-CNT > 15 DTSBR403 00743 MOVE WS-LIEN-FORM-QTR-LINE (16) TO WS-LIEN-FORM-QTR-LINE-16.DTSBR403 00744 IF R403-FORM-QTR-CNT > 16 DTSBR403 00745 MOVE WS-LIEN-FORM-QTR-LINE (17) TO WS-LIEN-FORM-QTR-LINE-17.DTSBR403 00746 IF R403-FORM-QTR-CNT > 17 DTSBR403 00747 MOVE WS-LIEN-FORM-QTR-LINE (18) TO WS-LIEN-FORM-QTR-LINE-18.DTSBR403 00748 IF R403-FORM-QTR-CNT > 18 DTSBR403 00749 MOVE WS-LIEN-FORM-QTR-LINE (19) TO WS-LIEN-FORM-QTR-LINE-19.DTSBR403 00750 * IF R403-FORM-QTR-CNT > 19 DTSBR403 00751 * MOVE WS-LIEN-FORM-QTR-LINE (20) TO WS-LIEN-FORM-QTR-LINE-20.DTSBR403 00752 DTSBR403 00753 P6000-EXIT. DTSBR403 00754 EXIT. DTSBR403 00755 DTSBR403 00756 T1000-TERMINATE. DTSBR403 00757 SKIP1 DTSBR403 00758 CLOSE PRT-FILE1. DTSBR403 00759 SKIP2 DTSBR403 00760 T1000-EXIT. DTSBR403 00761 EXIT. DTSBR403 00762 EJECT DTSBR403 00763 S001-DATE. DTSBR403 00764 DTSBR403 00765 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR403 00766 DTSBR403 00767 S001-EXIT. DTSBR403 00768 EXIT. DTSBR403 00769 DTSBR403 00770 S002-DATE. DTSBR403 00771 DTSBR403 00772 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR403 00773 DTSBR403 00774 S002-EXIT. DTSBR403 00775 EXIT. DTSBR403 00776 DTSBR403 00777 S004-CONVERT-QTR. DTSBR403 00778 DTSBR403 00779 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR403 00780 DTSBR403 00781 S004-EXIT. DTSBR403 00782 EXIT. DTSBR403 00783 DTSBR403 00784 S009-CONVERT-TO-CAPS. DTSBR403 00785 DTSBR403 00786 CALL 'DTSBU009' USING L009-LINK-AREA. DTSBR403 00787 DTSBR403 00788 S009-EXIT. DTSBR403 00789 EXIT. DTSBR403 00790 DTSBR403 00791 S071-DESLASH-NAME. DTSBR403 00792 DTSBR403 00793 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR403 00794 DTSBR403 00795 S071-EXIT. DTSBR403 00796 EXIT. DTSBR403 00797 DTSBR403 00798 S082-OP-ID-INFO. DTSBR403 00799 DTSBR403 00800 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR403 00801 DTSBR403 00802 S082-EXIT. DTSBR403 00803 EXIT. DTSBR403 00804 DTSBR403 00805 S119-AGENCY-FACTS. DTSBR403 00806 DTSBR403 00807 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR403 00808 DTSBR403 00809 S119-EXIT. DTSBR403 00810 EXIT. DTSBR403 00811 DTSBR403 00812 *S999-ABEND. DTSBR403 00813 * DTSBR403 00814 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR403 00815 * DTSBR403 00816 *S999-EXIT. DTSBR403 00817 * EXIT. DTSBR403 00818 DTSBR403