DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
787
Batch/DTSBR109.cob
Normal file
787
Batch/DTSBR109.cob
Normal file
@ -0,0 +1,787 @@
|
||||
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
|
||||
Reference in New Issue
Block a user