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