00001 IDENTIFICATION DIVISION. 02/27/13 00002 PROGRAM-ID. DTSBE461. DTSBE461 00003 AUTHOR. NGI. LV002 00004 DATE-WRITTEN. JAN 2010. DTSBE461 00005 DATE-COMPILED. DTSBE461 00006 SKIP3 DTSBE461 00007 *************************************************************** CL**2 00008 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1 CL**2 00009 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1 CL**2 00010 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1 CL**2 00011 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1 CL**2 00012 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1 CL**2 00013 *************************************************************** CL**2 00014 * FUNCTION: NOTICE OF INTENT TO ESTIMATE LETTER GENERATION. DTSBE461 00015 * DTSBE461 00016 * DTSBE461 00017 * MODIFICATION LOG: DTSBE461 00018 * DTSBE461 00019 * 05/15/95 HAVING AN OPEN BANKRUPTCY NO LONGER EXCLUDES THE DTSBE461 00020 * EMPLOYER. DTSBE461 00021 * WORK ORDER: CR086 PROGRAMMER: RHC DTSBE461 00022 * DTSBE461 00023 * 03/17/1999 REVIEWED AND MODIFIED FOR DC. DTSBE412 DTSBE461 00024 * EXTENSIVELY MODIFIED FOR DC. IN MT, THE SYSTEM DTSBE461 00025 * SIMPLY LISTS CANDIDATES FOR ESTIMATED REPORTS. DTSBE461 00026 * IN DC, THE SYSTEM NOT ONLY IDENTIFIES CANDIDATES DTSBE461 00027 * FOR ESTIMATED REPORTS, BUT, IN SELECTED DTSBE461 00028 * CIRCUMSTANCES, GENERATES AND ESTIMATED REPORT DTSBE461 00029 * AND PARKS THE ESTIMATED REPORT IN A HELD BATCH DTSBE461 00030 * ON THE ACCOUNTING TRANSACTION COLLECTION FILE. DTSBE461 00031 * WORK ORDER: DC DEVELOPMENT PROGRAMMER: EHH DTSBE461 00032 * DTSBE461 00033 * 04/28/1999 IF QUARTER IS UNDER APPEAL, DO NOT GENERATE AN DTSBE461 00034 * ESTIMATED REPORT. FROM SECTION 4.8.5 OF DC DTSBE461 00035 * REQUIREMENTS. OVERLOOKED DURING INITIAL DTSBE461 00036 * DEVELOPMENT. DTSBE461 00037 * WORK ORDER: DC DEVELOPMENT PROGRAMMER: EHH DTSBE461 00038 * DTSBE461 00039 * 05/24/1999 PICKUP MODIFICATION. START OF ESTIMATE PERIOD DTSBE461 00040 * MUST BE GREATER THAN LECM-PICKUP-YRQ. DTSBE461 00041 * WORK ORDER: PICKUP DIR PROGRAMMER: EHH DTSBE461 00042 * DTSBE461 00043 * 03/09/2004 MODIFIED TO ADD ASSESSMENT ONLY IF THERE IS NO DTSBE461 00044 * MORE THAN ONE ESTIMATED REPORT ALREADY ON FILE. DTSBE461 00045 * WORK ORDER: REQUEST FROM TAX PROGRAMMER: GD DTSBE461 00046 * DTSBE461 00047 * 04/14/2004 MODIFIED P2000 TO INITIALIZE TRACE NUMBER, DTSBE461 00048 * PSEUDO BATCH NBR AND PSEUDO ITEM NBR. DTSBE461 00049 * WORK ORDER: EFT PROGRAMMER: GD DTSBE461 00050 * DTSBE461 00051 * 06/21/2004 MODIFIED P0000 NOT TO GENERATE MORE THAN ONE DTSBE461 00052 * ESTIMATE REPORTS. IF WRK-ESTIM-CNT > +0 DTSBE461 00053 * SET WRK-GENERATE-ESTIMATE-NO-88 TO TRUE DTSBE461 00054 * WORK ORDER: DC MAINT PROGRAMMER: ZL1 DTSBE461 00055 * DTSBE461 00056 * 06/30/2004 MODIFIED NOT TO INCLUDE ANNUAL FILERS. ANNUAL DTSBE461 00057 * FILERS ESTIMATE REPORTS ARE PRODUCED BY BE455 DTSBE461 00058 * WORK ORDER: DC MAINT PROGRAMMER: ZL1 DTSBE461 00059 * DTSBE461 00060 * 10/08/2005 MODIFIED P2000 TO INITIALIZE STATUS CHANGE DTSBE461 00061 * FIELD IN ARPT RECORD. DTSBE461 00062 * WORK ORDER: PROGRAMMER: GD DTSBE461 00063 * DTSBE461 00064 * 03/27/2007 ADDED CODE TO INITIALIZE BANK BATCH NUMBER DTSBE461 00065 * IN S1000-INITIATE-AHDR. DTSBE461 00066 * WORK ORDER: PROGRAMMER: GD DTSBE461 00067 * DTSBE461 00068 * 12/04/2009 COPIED FROM DTSBE412 ESTIMATED REPORTS PGM. DTSBE461 00069 * PROGRAM WILL NOW PRODUCE A LETTER OF INTENT DTSBE461 00070 * TO ESTIMATE AND NOT UPDATE DUTAS TRANSACTIONS. DTSBE461 00071 * WORK ORDER: PROGRAMMER: ZL1 DTSBE461 00072 * DTSBE461 00073 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE461 00074 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE461 00075 * WORK ORDER: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBE461 00076 * DTSBE461 00077 * DTSBE461 00078 * DESCRIPTION: DTSBE461 00079 * DTSBE461 00080 * DTSBE461 00081 * INITIATION: DTSBE461 00082 * DTSBE461 00083 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE461 00084 * DTSBE461 00085 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE461 00086 * DTSBE461 00087 * CHECK AND DEFAULT PARAMETERS. DTSBE461 00088 * DTSBE461 00089 * DTSBE461 00090 * PROCESSING: DTSBE461 00091 * DTSBE461 00092 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (461R1). DTSBE461 00093 * DTSBE461 00094 * DTSBE461 00095 * TERMINATION: DTSBE461 00096 * DTSBE461 00097 * WRITE BATCH HEADER RECORD. DTSBE461 00098 * DTSBE461 00099 * DTSBE461 00100 * RECORDS READ: DTSBE461 00101 * DTSBE461 00102 * MASTER: DTSBE461 00103 * DTSBE461 00104 * MQTR DTSBE461 00105 * DTSBE461 00106 * DTSBE461 00107 * ALTERNATE INDEX: DTSBE461 00108 * DTSBE461 00109 * NONE. DTSBE461 00110 * DTSBE461 00111 * DTSBE461 00112 * REFERENCE: DTSBE461 00113 * DTSBE461 00114 * FQTR. DTSBE461 00115 * DTSBE461 00116 * DTSBE461 00117 * REFERENCE: DTSBE461 00118 * DTSBE461 00119 * FQTR. DTSBE461 00120 * DTSBE461 00121 * DTSBE461 00122 * RECORDS UPDATED: DTSBE461 00123 * DTSBE461 00124 * DTSBE461 00125 * DTSBE461 00126 * REPORT RECORDS WRITTEN: DTSBE461 00127 * DTSBE461 00128 * R461R1 ESTIMATED REPORTS CANDIDATE LIST. DTSBE461 00129 * R461R2 NON ESTIMATED REPORTS CANDIDATE LIST. DTSBE461 00130 * R461R3 NOTICE OF INTENT TO ESTIMATE REPORT. DTSBE461 00131 * DTSBE461 00132 * DTSBE461 00133 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE461 00134 * DTSBE461 00135 * NONE. DTSBE461 00136 * DTSBE461 00137 * DTSBE461 00138 * MODULES CALLED: DTSBE461 00139 * DTSBE461 00140 * DTSBU001 DATE CONVERSION/EDIT. DTSBE461 00141 * DTSBU910 MASTER FILE I/O. DTSBE461 00142 * DTSBU923 ACCOUNTING TRANSACTION COLLECTION FILE I/O. DTSBE461 00143 * DTSBU931 REFERENCE FILE I/O. DTSBE461 00144 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBE461 00145 * DTSBE461 00146 ***** DTSBE461 00147 SKIP3 DTSBE461 00148 ENVIRONMENT DIVISION. DTSBE461 00149 SKIP3 DTSBE461 00150 DATA DIVISION. DTSBE461 00151 SKIP3 DTSBE461 00152 WORKING-STORAGE SECTION. DTSBE461 001525 77 PAN-VALET PICTURE X(24) VALUE '002DTSBE461 02/27/13'. DTSBE461 00153 SKIP3 DTSBE461 00154 01 WRK-AREA. DTSBE461 00155 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +461.DTSBE461 00156 DTSBE461 00157 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE461'.DTSBE461 00158 DTSBE461 00159 DTSBE461 00160 05 ABEND-MSG PIC X(60). DTSBE461 00161 DTSBE461 00162 DTSBE461 00163 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBE461 00164 05 WRK-ANNUAL-FILER-CNT PIC S9(07) COMP-3 DTSBE461 00165 VALUE +0. DTSBE461 00166 05 WRK-RETURN-MAIL-CNT PIC 9(05) VALUE 0. DTSBE461 00167 05 WRK-SELF-INS-CNT PIC 9(05) VALUE 0. DTSBE461 00168 05 WRK-ESTIMATED-NO PIC 9(05) VALUE 0. DTSBE461 00169 05 WRK-ESTIMATED-YES PIC 9(05) VALUE 0. DTSBE461 00170 05 WRK-NOTICE-CNT PIC S9(07) COMP-3 DTSBE461 00171 VALUE +0. DTSBE461 00172 05 WRK-CNT-DISP PIC Z(06)9. DTSBE461 00173 DTSBE461 00174 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. DTSBE461 00175 05 WRK-EST-BASIS-START-YRQ PIC S9(05) COMP-3. DTSBE461 00176 05 WRK-EST-BASIS-END-YRQ PIC S9(05) COMP-3. DTSBE461 00177 DTSBE461 00178 05 WRK-PARM-NOTICE-IND PIC X(01). DTSBE461 00179 88 WRK-PARM-NOTICE-YES-88 VALUE 'Y'. DTSBE461 00180 88 WRK-PARM-NOTICE-NO-88 VALUE 'N'. DTSBE461 00181 DTSBE461 00182 DTSBE461 00183 05 WRK-GENERATE-ESTIMATE-IND PIC X(01). DTSBE461 00184 88 WRK-GENERATE-ESTIMATE-NO-88 VALUE 'N'. DTSBE461 00185 88 WRK-GENERATE-ESTIMATE-YES-88 VALUE 'Y'. DTSBE461 00186 DTSBE461 00187 DTSBE461 00188 05 WRK-EST-TAX-WAGE PIC S9(11)V9(02) COMP-3.DTSBE461 00189 DTSBE461 00190 05 WRK-EST-TOT-WAGE PIC S9(11)V9(02) COMP-3.DTSBE461 00191 DTSBE461 00192 05 WRK-ESTIM-CNT PIC S9(05) COMP-3 DTSBE461 00193 VALUE +0. DTSBE461 00194 DTSBE461 00195 05 WRK-SUBJECT-SLASH-QTR PIC X(04). DTSBE461 00196 05 WRK-OPEN-APPEAL-IND PIC X(01). DTSBE461 00197 88 WRK-OPEN-APPEAL-NO-88 VALUE 'N'. DTSBE461 00198 88 WRK-OPEN-APPEAL-YES-88 VALUE 'Y'. DTSBE461 00199 05 EVL-TEXT. DTSBE461 00200 10 FILLER PIC X(29) DTSBE461 00201 VALUE 'LTR OF INTENT 2 ESTIMATE FOR '. DTSBE461 00202 10 EVL-SLASH-QTR PIC X(04). DTSBE461 00203 10 FILLER PIC X(09) DTSBE461 00204 VALUE ' SENT TO '. DTSBE461 00205 10 EVL-ADDR-TYPE PIC X(04). DTSBE461 00206 10 FILLER PIC X(01) VALUE SPACES. DTSBE461 00207 10 EVL-ADDR-ID-NO PIC ZZ9. DTSBE461 00208 SKIP3 DTSBE461 00209 DTSBE461 00210 DTSBE461 00211 01 L001-LINK-AREA. DTSBE461 00212 ++INCLUDE DTSIL001 DTSBE461 00213 EJECT DTSBE461 00214 01 L004-LINK-AREA. DTSBE461 00215 ++INCLUDE DTSIL004 DTSBE461 00216 EJECT DTSBE461 00217 01 L005-LINK-AREA. DTSBE461 00218 ++INCLUDE DTSIL005 DTSBE461 00219 EJECT DTSBE461 00220 01 L061-LINK-AREA. DTSBE461 00221 ++INCLUDE DTSIL061 DTSBE461 00222 EJECT DTSBE461 00223 01 L410-LINK-AREA. DTSBE461 00224 ++INCLUDE DTSIL410 DTSBE461 00225 SKIP3 DTSBE461 00226 01 L621-LINK-AREA. DTSBE461 00227 ++INCLUDE DTSIL621 DTSBE461 00228 SKIP3 DTSBE461 00229 01 L910-LINK-AREA. DTSBE461 00230 ++INCLUDE DTSIL910 DTSBE461 00231 SKIP3 DTSBE461 00232 01 MSKL-REC. DTSBE461 00233 ++INCLUDE DTSIMSKL DTSBE461 00234 SKIP3 DTSBE461 00235 SKIP3 DTSBE461 00236 01 MQTR-REC. DTSBE461 00237 ++INCLUDE DTSIMQTR DTSBE461 00238 SKIP3 DTSBE461 00239 01 MAPL-REC. DTSBE461 00240 ++INCLUDE DTSIMAPL DTSBE461 00241 EJECT DTSBE461 00242 01 L923-LINK-AREA. DTSBE461 00243 ++INCLUDE DTSIL923 DTSBE461 00244 SKIP3 DTSBE461 00245 01 ASKL-REC. DTSBE461 00246 ++INCLUDE DTSIASKL DTSBE461 00247 SKIP3 DTSBE461 00248 01 L931-LINK-AREA. DTSBE461 00249 ++INCLUDE DTSIL931 DTSBE461 00250 SKIP3 DTSBE461 00251 01 FSKL-REC. DTSBE461 00252 ++INCLUDE DTSIFSKL DTSBE461 00253 SKIP3 DTSBE461 00254 01 FQTR-REC. DTSBE461 00255 ++INCLUDE DTSIFQTR DTSBE461 00256 EJECT DTSBE461 00257 01 MEVL-REC. DTSBE461 00258 ++INCLUDE DTSIMEVL DTSBE461 00259 EJECT DTSBE461 00260 01 R461-REC. DTSBE461 00261 ++INCLUDE DTSIR461 DTSBE461 00262 EJECT DTSBE461 00263 LINKAGE SECTION. DTSBE461 00264 SKIP3 DTSBE461 00265 01 LECM-LINK-AREA. DTSBE461 00266 ++INCLUDE DTSILECM DTSBE461 00267 SKIP3 DTSBE461 00268 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE461 00269 15 LECM-PARM-NOTICE-IND PIC X(01). DTSBE461 00270 15 FILLER PIC X(01). DTSBE461 00271 15 LECM-PARM-SUBJECT-YRQ PIC X(03). DTSBE461 00272 15 FILLER PIC X(65). DTSBE461 00273 EJECT DTSBE461 00274 01 MPRF-LINK-REC. DTSBE461 00275 ++INCLUDE DTSIMPRF DTSBE461 00276 EJECT DTSBE461 00277 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE461 00278 MPRF-LINK-REC. DTSBE461 00279 DTSBE461 00280 DTSBE461 00281 IF LECM-PROCESS-88 DTSBE461 00282 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE461 00283 ELSE DTSBE461 00284 IF LECM-INITIALIZE-88 DTSBE461 00285 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE461 00286 ELSE DTSBE461 00287 IF LECM-TERMINATE-88 DTSBE461 00288 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE461 00289 ELSE DTSBE461 00290 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE461 00291 TO ABEND-MSG DTSBE461 00292 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00293 DTSBE461 00294 DTSBE461 00295 GOBACK. DTSBE461 00296 EJECT DTSBE461 00297 I0000-INITIALIZE. DTSBE461 00298 MOVE LECM-TRACE-IND TO L910-TRACE-IND DTSBE461 00299 L923-TRACE-IND DTSBE461 00300 L931-TRACE-IND. DTSBE461 00301 DTSBE461 00302 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBE461 00303 L923-MOD-NAME DTSBE461 00304 L931-MOD-NAME. DTSBE461 00305 DTSBE461 00306 DTSBE461 00307 MOVE LENGTH OF R461-REC TO R461-LENGTH. DTSBE461 00308 DTSBE461 00309 MOVE '461' TO R461-REC-TYPE. DTSBE461 00310 DTSBE461 00311 DTSBE461 00312 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE461 00313 DTSBE461 00314 IF WRK-PARM-NOTICE-YES-88 DTSBE461 00315 SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE461 00316 SET LECM-REF-OPEN-UPDATE-88 TO TRUE DTSBE461 00317 ELSE DTSBE461 00318 SET LECM-MST-OPEN-READ-88 TO TRUE DTSBE461 00319 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE461 00320 DTSBE461 00321 I0000-EXIT. DTSBE461 00322 EXIT. DTSBE461 00323 SKIP3 DTSBE461 00324 I1000-EDIT-AND-DEFAULT-PARMS. DTSBE461 00325 PERFORM I1100-NOTICE-IND THRU I1100-EXIT. DTSBE461 00326 IF LECM-PARM-SUBJECT-YRQ = SPACES DTSBE461 00327 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-SUBJECT-YRQ DTSBE461 00328 ELSE DTSBE461 00329 MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3 DTSBE461 00330 PERFORM S004-FROM-3 THRU S004-EXIT DTSBE461 00331 IF L004-INVALID-QTR DTSBE461 00332 MOVE 'INVALID LECM-PARM-SUBJECT-YRQ ENCOUNTERED' DTSBE461 00333 TO ABEND-MSG DTSBE461 00334 PERFORM S999-ABEND THRU S999-EXIT DTSBE461 00335 ELSE DTSBE461 00336 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ DTSBE461 00337 IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQDTSBE461 00338 MOVE DTSBE461 00339 'LECM-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQ FOUND' DTSBE461 00340 TO ABEND-MSG DTSBE461 00341 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00342 DTSBE461 00343 DTSBE461 00344 MOVE LOW-VALUES TO FQTR-KEY-AREA. DTSBE461 00345 DTSBE461 00346 SET FQTR-QTR-88 TO TRUE. DTSBE461 00347 DTSBE461 00348 MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ. DTSBE461 00349 DTSBE461 00350 MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA. DTSBE461 00351 DTSBE461 00352 PERFORM S931-READ THRU S931-EXIT. DTSBE461 00353 DTSBE461 00354 IF L931-NO-REC-88 DTSBE461 00355 MOVE 'UNKOWN FQTR-UC30-2ND-DELQ-DATE ENCOUNTERED' DTSBE461 00356 TO ABEND-MSG DTSBE461 00357 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00358 DTSBE461 00359 MOVE FSKL-REC TO FQTR-REC. DTSBE461 00360 DTSBE461 00361 DTSBE461 00362 IF FQTR-UC30-FINAL-DEL-DATE = +0 DTSBE461 00363 MOVE 'FINAL DELINQUENCY NOT COMPLETED' DTSBE461 00364 TO ABEND-MSG DTSBE461 00365 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00366 DTSBE461 00367 DTSBE461 00368 MOVE FQTR-UC30-FINAL-DEL-DATE TO L001-FED-8-DATE-9. DTSBE461 00369 DTSBE461 00370 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE461 00371 DTSBE461 00372 ADD +30 TO L001-JUL-ABS-DAY. DTSBE461 00373 DTSBE461 00374 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT. DTSBE461 00375 DTSBE461 00376 IF L001-FED-8-DATE-9 < LECM-CURR-RUN-DATE DTSBE461 00377 NEXT SENTENCE DTSBE461 00378 ELSE DTSBE461 00379 MOVE '30 DAYS HAVE NOT ELAPSED SINCE DELINQUENT NOTICE' DTSBE461 00380 TO ABEND-MSG DTSBE461 00381 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00382 DTSBE461 00383 DTSBE461 00384 IF FQTR-INTENT-2-ESTIMATE-DATE > ZEROS DTSBE461 00385 MOVE 'JOB ALREADY RAN - CANNOT RERUN' DTSBE461 00386 TO ABEND-MSG DTSBE461 00387 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00388 DTSBE461 00389 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE461 00390 DTSBE461 00391 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE461 00392 DTSBE461 00393 MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR. DTSBE461 00394 DTSBE461 00395 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE461 00396 DTSBE461 00397 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE461 00398 DTSBE461 00399 MOVE L004-QTR-5-9 TO WRK-EST-BASIS-END-YRQ. DTSBE461 00400 DTSBE461 00401 SUBTRACT 11 FROM L004-ABS-QTR. DTSBE461 00402 DTSBE461 00403 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE461 00404 DTSBE461 00405 MOVE L004-QTR-5-9 TO WRK-EST-BASIS-START-YRQ. DTSBE461 00406 DTSBE461 00407 DTSBE461 00408 IF WRK-EST-BASIS-START-YRQ > LECM-PICKUP-YRQ DTSBE461 00409 NEXT SENTENCE DTSBE461 00410 ELSE DTSBE461 00411 MOVE 'WRK-EST-BASIS-START-YRQ <= LECM-PICKUP-YRQ' DTSBE461 00412 TO ABEND-MSG DTSBE461 00413 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00414 I1000-EXIT. DTSBE461 00415 EXIT. DTSBE461 00416 EJECT DTSBE461 00417 I1100-NOTICE-IND. DTSBE461 00418 IF LECM-PARM-NOTICE-IND = SPACES DTSBE461 00419 SET WRK-PARM-NOTICE-NO-88 TO TRUE DTSBE461 00420 ELSE DTSBE461 00421 IF LECM-PARM-NOTICE-IND = 'N' OR 'Y' DTSBE461 00422 MOVE LECM-PARM-NOTICE-IND TO WRK-PARM-NOTICE-IND DTSBE461 00423 ELSE DTSBE461 00424 MOVE 'PARM-NOTICE-IND NOT VALID' DTSBE461 00425 TO ABEND-MSG DTSBE461 00426 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00427 I1100-EXIT. DTSBE461 00428 EXIT. DTSBE461 00429 P0000-PROCESS. DTSBE461 00430 IF FIRST-TIME-IND = 'Y' DTSBE461 00431 PERFORM S923-OPEN-UPDATE THRU S923-EXIT DTSBE461 00432 MOVE 'N' TO FIRST-TIME-IND. DTSBE461 00433 DTSBE461 00434 DTSBE461 00435 *****IF (MPRF-EMP-NO < 360094) DTSBE461 00436 ************OR DTSBE461 00437 ********(MPRF-EMP-NO > 360098) DTSBE461 00438 *********GO TO P0000-EXIT. DTSBE461 00439 DTSBE461 00440 SET L410-MODE-INPUT-YRQ-88 TO TRUE DTSBE461 00441 MOVE MPRF-EMP-NO TO L410-EMP-NO DTSBE461 00442 MOVE WRK-PARM-SUBJECT-YRQ TO L410-YRQ. DTSBE461 00443 PERFORM S410-FILE-SCHED THRU S410-EXIT DTSBE461 00444 IF L410-ANN-SCHED-88 DTSBE461 00445 DISPLAY ' ANNUAL FILER .. BYPASSED.. ' MPRF-EMP-NO DTSBE461 00446 ADD 1 TO WRK-ANNUAL-FILER-CNT DTSBE461 00447 GO TO P0000-EXIT. DTSBE461 00448 DTSBE461 00449 IF MPRF-PURSUED-RPT-CNT > +0 DTSBE461 00450 NEXT SENTENCE DTSBE461 00451 ELSE DTSBE461 00452 GO TO P0000-EXIT. DTSBE461 00453 DTSBE461 00454 IF MPRF-RETURN-MAIL-YES-88 DTSBE461 00455 ADD 1 TO WRK-RETURN-MAIL-CNT DTSBE461 00456 GO TO P0000-EXIT. DTSBE461 00457 DTSBE461 00458 DTSBE461 00459 IF MPRF-NOT-WRITTEN-OFF-88 DTSBE461 00460 NEXT SENTENCE DTSBE461 00461 ELSE DTSBE461 00462 GO TO P0000-EXIT. DTSBE461 00463 DTSBE461 00464 DTSBE461 00465 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE461 00466 DTSBE461 00467 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE461 00468 DTSBE461 00469 SET MQTR-QTR-88 TO TRUE. DTSBE461 00470 DTSBE461 00471 MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ. DTSBE461 00472 DTSBE461 00473 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE461 00474 DTSBE461 00475 PERFORM S910-READ THRU S910-EXIT. DTSBE461 00476 DTSBE461 00477 IF L910-NO-REC-88 DTSBE461 00478 GO TO P0000-EXIT. DTSBE461 00479 DTSBE461 00480 MOVE MSKL-REC TO MQTR-REC. DTSBE461 00481 DTSBE461 00482 DTSBE461 00483 IF MQTR-RPT-IS-PURSUED-88 DTSBE461 00484 NEXT SENTENCE DTSBE461 00485 ELSE DTSBE461 00486 GO TO P0000-EXIT. DTSBE461 00487 DTSBE461 00488 DTSBE461 00489 IF MQTR-CURR-ESTIM-88 DTSBE461 00490 GO TO P0000-EXIT. DTSBE461 00491 DTSBE461 00492 DTSBE461 00493 SET WRK-GENERATE-ESTIMATE-NO-88 TO TRUE. DTSBE461 00494 DTSBE461 00495 MOVE +0 TO WRK-EST-TAX-WAGE DTSBE461 00496 WRK-EST-TOT-WAGE DTSBE461 00497 WRK-ESTIM-CNT. DTSBE461 00498 DTSBE461 00499 DTSBE461 00500 PERFORM P1000-EVALUATE-FOR-EST-GEN THRU P1000-EXIT. DTSBE461 00501 IF WRK-ESTIM-CNT > +0 DTSBE461 00502 SET WRK-GENERATE-ESTIMATE-NO-88 TO TRUE. DTSBE461 00503 DTSBE461 00504 DTSBE461 00505 DTSBE461 00506 IF WRK-GENERATE-ESTIMATE-NO-88 DTSBE461 00507 ADD 1 TO WRK-ESTIMATED-NO DTSBE461 00508 SET R461-ESTIMATE-GENERATED-NO-88 TO TRUE DTSBE461 00509 ELSE DTSBE461 00510 ADD 1 TO WRK-ESTIMATED-YES DTSBE461 00511 SET R461-ESTIMATE-GENERATED-YES-88 TO TRUE. DTSBE461 00512 DTSBE461 00513 PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT. DTSBE461 00514 DTSBE461 00515 MOVE L061-FLD-REP-ID TO R461-FIELD-REP-ID. DTSBE461 00516 DTSBE461 00517 MOVE MPRF-EMP-NO TO R461-EMP-NO. DTSBE461 00518 DTSBE461 00519 MOVE WRK-PARM-SUBJECT-YRQ TO R461-YRQ. DTSBE461 00520 DTSBE461 00521 MOVE MPRF-PRIMARY-NAME TO R461-PRIMARY-NAME. DTSBE461 00522 MOVE LECM-PRIOR-RUN-DATE TO R461-MAIL-DATE. DTSBE461 00523 MOVE MQTR-RPT-DUE-DATE TO R461-RPT-DUE-DATE. DTSBE461 00524 MOVE MQTR-UI-RATE TO R461-UI-RATE. DTSBE461 00525 DTSBE461 00526 MOVE WRK-EST-TAX-WAGE TO R461-EST-TAXABLE-WAGES. DTSBE461 00527 MOVE WRK-EST-TOT-WAGE TO R461-EST-TOTAL-WAGES DTSBE461 00528 SET L621-LOOKUP-TAD-88 TO TRUE. DTSBE461 00529 PERFORM P2000-GET-ADDRESS THRU P2000-EXIT. DTSBE461 00530 DTSBE461 00531 IF L621-ADDR-FOUND-88 DTSBE461 00532 PERFORM P3000-MOVE-ADDRESS THRU P3000-EXIT DTSBE461 00533 PERFORM S946-WRITE-R461 THRU S946-EXIT DTSBE461 00534 MOVE 'MTAD' TO EVL-ADDR-TYPE DTSBE461 00535 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT DTSBE461 00536 GO TO P0000-EXIT. DTSBE461 00537 DTSBE461 00538 SET L621-LOOKUP-OPO-88 TO TRUE. DTSBE461 00539 PERFORM P2000-GET-ADDRESS THRU P2000-EXIT. DTSBE461 00540 DTSBE461 00541 IF L621-ADDR-FOUND-88 DTSBE461 00542 PERFORM P3000-MOVE-ADDRESS THRU P3000-EXIT DTSBE461 00543 PERFORM S946-WRITE-R461 THRU S946-EXIT DTSBE461 00544 MOVE 'MOPO' TO EVL-ADDR-TYPE DTSBE461 00545 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT DTSBE461 00546 GO TO P0000-EXIT. DTSBE461 00547 DTSBE461 00548 DISPLAY 'ADDRESS NOT FOUND ' L621-EMP-NO. DTSBE461 00549 P0000-EXIT. DTSBE461 00550 EXIT. DTSBE461 00551 EJECT DTSBE461 00552 P1000-EVALUATE-FOR-EST-GEN. DTSBE461 00553 IF MPRF-CLASS-SELF-INS-88 DTSBE461 00554 ADD 1 TO WRK-SELF-INS-CNT DTSBE461 00555 GO TO P1000-EXIT. DTSBE461 00556 DTSBE461 00557 DTSBE461 00558 IF MPRF-BANKRP-OPEN-88 DTSBE461 00559 GO TO P1000-EXIT. DTSBE461 00560 DTSBE461 00561 DTSBE461 00562 MOVE +0 TO WRK-EST-TAX-WAGE DTSBE461 00563 WRK-EST-TOT-WAGE. DTSBE461 00564 DTSBE461 00565 DTSBE461 00566 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE461 00567 DTSBE461 00568 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE461 00569 DTSBE461 00570 SET MQTR-QTR-88 TO TRUE. DTSBE461 00571 DTSBE461 00572 MOVE WRK-EST-BASIS-START-YRQ TO MQTR-YRQ. DTSBE461 00573 DTSBE461 00574 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE461 00575 DTSBE461 00576 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE461 00577 DTSBE461 00578 MOVE MSKL-REC TO MQTR-REC. DTSBE461 00579 DTSBE461 00580 PERFORM DTSBE461 00581 UNTIL (L910-NO-REC-88) DTSBE461 00582 OR DTSBE461 00583 (MQTR-YRQ > WRK-EST-BASIS-END-YRQ) DTSBE461 00584 IF (MQTR-CURR-RCVD-88) DTSBE461 00585 AND DTSBE461 00586 (MQTR-TAX-WAGE > WRK-EST-TAX-WAGE) DTSBE461 00587 MOVE MQTR-TAX-WAGE TO WRK-EST-TAX-WAGE DTSBE461 00588 MOVE MQTR-TOT-WAGE TO WRK-EST-TOT-WAGE DTSBE461 00589 END-IF DTSBE461 00590 IF MQTR-CURR-ESTIM-88 DTSBE461 00591 ADD +1 TO WRK-ESTIM-CNT DTSBE461 00592 END-IF DTSBE461 00593 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE461 00594 IF L910-OK-88 DTSBE461 00595 MOVE MSKL-REC TO MQTR-REC DTSBE461 00596 END-IF DTSBE461 00597 END-PERFORM. DTSBE461 00598 DTSBE461 00599 DTSBE461 00600 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE461 00601 DTSBE461 00602 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE461 00603 DTSBE461 00604 SET MQTR-QTR-88 TO TRUE. DTSBE461 00605 DTSBE461 00606 MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ. DTSBE461 00607 DTSBE461 00608 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE461 00609 DTSBE461 00610 PERFORM S910-READ THRU S910-EXIT. DTSBE461 00611 DTSBE461 00612 IF L910-NO-REC-88 DTSBE461 00613 MOVE 'UNEXPECTED MQTR RECORD NOT FOUND ENCOUNTERED' DTSBE461 00614 TO ABEND-MSG DTSBE461 00615 PERFORM S999-ABEND THRU S999-EXIT. DTSBE461 00616 DTSBE461 00617 MOVE MSKL-REC TO MQTR-REC. DTSBE461 00618 DTSBE461 00619 IF WRK-EST-TAX-WAGE = +0 DTSBE461 00620 GO TO P1000-EXIT. DTSBE461 00621 DTSBE461 00622 DTSBE461 00623 SET WRK-OPEN-APPEAL-NO-88 TO TRUE. DTSBE461 00624 DTSBE461 00625 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE461 00626 DTSBE461 00627 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE461 00628 DTSBE461 00629 SET MSKL-APL-88 TO TRUE. DTSBE461 00630 DTSBE461 00631 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE461 00632 DTSBE461 00633 PERFORM DTSBE461 00634 UNTIL L910-NO-REC-88 DTSBE461 00635 MOVE MSKL-REC TO MAPL-REC DTSBE461 00636 PERFORM P1100-EXAMINE-MAPL THRU P1100-EXIT DTSBE461 00637 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE461 00638 END-PERFORM. DTSBE461 00639 DTSBE461 00640 IF WRK-OPEN-APPEAL-YES-88 DTSBE461 00641 GO TO P1000-EXIT. DTSBE461 00642 DTSBE461 00643 DTSBE461 00644 SET WRK-GENERATE-ESTIMATE-YES-88 TO TRUE. DTSBE461 00645 P1000-EXIT. DTSBE461 00646 EXIT. DTSBE461 00647 SKIP3 DTSBE461 00648 P1100-EXAMINE-MAPL. DTSBE461 00649 IF MAPL-STATUS-OPEN-88 DTSBE461 00650 NEXT SENTENCE DTSBE461 00651 ELSE DTSBE461 00652 GO TO P1100-EXIT. DTSBE461 00653 DTSBE461 00654 PERFORM DTSBE461 00655 VARYING MAPL-COV-IDX FROM 1 BY 1 DTSBE461 00656 UNTIL MAPL-COV-IDX > MAPL-COVERED-CNT DTSBE461 00657 IF MAPL-COVERED-YRQ (MAPL-COV-IDX) DTSBE461 00658 = WRK-PARM-SUBJECT-YRQ DTSBE461 00659 SET WRK-OPEN-APPEAL-YES-88 TO TRUE DTSBE461 00660 END-IF DTSBE461 00661 END-PERFORM. DTSBE461 00662 P1100-EXIT. DTSBE461 00663 EXIT. DTSBE461 00664 EJECT DTSBE461 00665 P2000-GET-ADDRESS. DTSBE461 00666 MOVE MPRF-PRIMARY-NAME TO L621-NAME. DTSBE461 00667 MOVE MPRF-EMP-NO TO L621-EMP-NO. DTSBE461 00668 CALL 'DTSBU621' USING L621-LINK-AREA. DTSBE461 00669 P2000-EXIT. DTSBE461 00670 EXIT. DTSBE461 00671 EJECT DTSBE461 00672 P3000-MOVE-ADDRESS. DTSBE461 00673 MOVE L621-FMT-ADDR TO R461-FMT-ADDR. DTSBE461 00674 MOVE L621-ZIP TO R461-ZIP. DTSBE461 00675 MOVE L621-ADVANCED-BARCODE TO R461-ADVANCED-BARCODE. DTSBE461 00676 P3000-EXIT. DTSBE461 00677 EXIT. DTSBE461 00678 EJECT DTSBE461 00679 S1000-WRITE-MEVL. DTSBE461 00680 ADD +1000 TO LECM-EMP-ABSTIME. DTSBE461 00681 DTSBE461 00682 MOVE LECM-EMP-ABSTIME TO L005-ABSTIME. DTSBE461 00683 DTSBE461 00684 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBE461 00685 MOVE LOW-VALUES TO MEVL-REC. DTSBE461 00686 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBE461 00687 SET MEVL-EVL-88 TO TRUE. DTSBE461 00688 MOVE L005-DATE TO MEVL-DATE. DTSBE461 00689 MOVE L005-TIME TO MEVL-TIME. DTSBE461 00690 MOVE L005-TIME TO MEVL-TIME. DTSBE461 00691 MOVE ZEROS TO MEVL-PURGE-DATE. DTSBE461 00692 MOVE EVL-TEXT TO MEVL-TEXT. DTSBE461 00693 MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE461 00694 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBE461 00695 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBE461 00696 MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBE461 00697 MEVL-CHNG-DATE. DTSBE461 00698 MOVE MEVL-REC TO MSKL-REC. DTSBE461 00699 PERFORM S910-WRITE THRU S910-EXIT. DTSBE461 00700 S1000-EXIT. DTSBE461 00701 EXIT. DTSBE461 00702 EJECT DTSBE461 00703 DTSBE461 00704 T0000-TERMINATE. DTSBE461 00705 IF FIRST-TIME-IND = 'Y' DTSBE461 00706 GO TO T0000-EXIT. DTSBE461 00707 MOVE WRK-NOTICE-CNT TO WRK-CNT-DISP. DTSBE461 00708 DISPLAY SPACE. DTSBE461 00709 DISPLAY '*****************************************'. DTSBE461 00710 DISPLAY '** DTSBE420 COUNTS **'. DTSBE461 00711 DISPLAY '** **'. DTSBE461 00712 DISPLAY '** NOTICES SENT: ' WRK-ESTIMATED-YES. DTSBE461 00713 DISPLAY '** **'. DTSBE461 00714 MOVE WRK-ANNUAL-FILER-CNT TO WRK-CNT-DISP. DTSBE461 00715 DISPLAY '** ANNUAL FILERS BYPASSED: ' WRK-CNT-DISP DTSBE461 00716 DISPLAY '** RETURN MAIL BYPASSED: ' WRK-RETURN-MAIL-CNT. DTSBE461 00717 DISPLAY '** SELF INSURED BYPASSED: ' WRK-SELF-INS-CNT. DTSBE461 00718 DISPLAY '** EST NOTICE NOT SENT : ' WRK-ESTIMATED-NO. DTSBE461 00719 DISPLAY '** **'. DTSBE461 00720 DISPLAY '*****************************************'. DTSBE461 00721 IF WRK-PARM-NOTICE-YES-88 DTSBE461 00722 MOVE LOW-VALUES TO FQTR-KEY-AREA DTSBE461 00723 SET FQTR-QTR-88 TO TRUE DTSBE461 00724 MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ DTSBE461 00725 MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA DTSBE461 00726 PERFORM S931-READ THRU S931-EXIT DTSBE461 00727 IF L931-NO-REC-88 DTSBE461 00728 MOVE 'LOGIC ERROR T0000-1' TO ABEND-MSG DTSBE461 00729 PERFORM S999-ABEND THRU S999-EXIT DTSBE461 00730 ELSE DTSBE461 00731 MOVE FSKL-REC TO FQTR-REC DTSBE461 00732 MOVE LECM-CURR-RUN-DATE TO FQTR-CHNG-DATE DTSBE461 00733 FQTR-INTENT-2-ESTIMATE-DATE. DTSBE461 00734 MOVE FQTR-REC TO FSKL-REC DTSBE461 00735 PERFORM S931-REWRITE THRU S931-EXIT. DTSBE461 00736 DTSBE461 00737 PERFORM S923-CLOSE THRU S923-EXIT. DTSBE461 00738 DTSBE461 00739 T0000-EXIT. DTSBE461 00740 EXIT. DTSBE461 00741 EJECT DTSBE461 00742 S001-FROM-FED-8. DTSBE461 00743 SET L001-FROM-FED-8 TO TRUE. DTSBE461 00744 GO TO S001-DATE. DTSBE461 00745 DTSBE461 00746 S001-FROM-CAL-6. DTSBE461 00747 SET L001-FROM-CAL-6 TO TRUE. DTSBE461 00748 GO TO S001-DATE. DTSBE461 00749 DTSBE461 00750 S001-FROM-ABS-DAY. DTSBE461 00751 SET L001-FROM-ABS-DAY TO TRUE. DTSBE461 00752 GO TO S001-DATE. DTSBE461 00753 DTSBE461 00754 S001-DATE. DTSBE461 00755 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE461 00756 S001-EXIT. DTSBE461 00757 EXIT. DTSBE461 00758 SKIP3 DTSBE461 00759 DTSBE461 00760 S004-FROM-5. DTSBE461 00761 SET L004-FROM-5 TO TRUE. DTSBE461 00762 GO TO S004-YRQ. DTSBE461 00763 DTSBE461 00764 S004-FROM-3. DTSBE461 00765 SET L004-FROM-3 TO TRUE. DTSBE461 00766 GO TO S004-YRQ. DTSBE461 00767 DTSBE461 00768 S004-FROM-ABS. DTSBE461 00769 SET L004-FROM-ABS TO TRUE. DTSBE461 00770 GO TO S004-YRQ. DTSBE461 00771 DTSBE461 00772 S004-YRQ. DTSBE461 00773 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBE461 00774 S004-EXIT. DTSBE461 00775 EXIT. DTSBE461 00776 SKIP3 DTSBE461 00777 S005-FROM-ABSTIME. DTSBE461 00778 SET L005-FROM-ABSTIME TO TRUE. DTSBE461 00779 GO TO S005-ABSTIME. DTSBE461 00780 DTSBE461 00781 S005-ABSTIME. DTSBE461 00782 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE461 00783 S005-EXIT. DTSBE461 00784 EXIT. DTSBE461 00785 SKIP3 DTSBE461 00786 S061-DETERMINE-FLD-REP. DTSBE461 00787 MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST. DTSBE461 00788 DTSBE461 00789 MOVE MPRF-EMP-NO TO L061-EMP-NO. DTSBE461 00790 DTSBE461 00791 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBE461 00792 S061-EXIT. DTSBE461 00793 EXIT. DTSBE461 00794 SKIP3 DTSBE461 00795 S910-READ. DTSBE461 00796 SET L910-READ-88 TO TRUE. DTSBE461 00797 GO TO S910-MSTR-IO. DTSBE461 00798 DTSBE461 00799 S910-START-BROWSE. DTSBE461 00800 SET L910-START-BROWSE-88 TO TRUE. DTSBE461 00801 GO TO S910-MSTR-IO. DTSBE461 00802 DTSBE461 00803 S910-READ-NEXT. DTSBE461 00804 SET L910-READ-NEXT-88 TO TRUE. DTSBE461 00805 GO TO S910-MSTR-IO. DTSBE461 00806 DTSBE461 00807 S910-WRITE. DTSBE461 00808 SET L910-WRITE-88 TO TRUE. DTSBE461 00809 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE461 00810 GO TO S910-MSTR-IO. DTSBE461 00811 DTSBE461 00812 S910-REWRITE. DTSBE461 00813 SET L910-REWRITE-88 TO TRUE. DTSBE461 00814 GO TO S910-MSTR-IO. DTSBE461 00815 DTSBE461 00816 S910-MSTR-IO. DTSBE461 00817 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE461 00818 MSKL-REC. DTSBE461 00819 S910-EXIT. DTSBE461 00820 EXIT. DTSBE461 00821 SKIP3 DTSBE461 00822 S923-OPEN-UPDATE. DTSBE461 00823 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBE461 00824 GO TO S923-ATC-IO. DTSBE461 00825 DTSBE461 00826 S923-READ. DTSBE461 00827 SET L923-READ-88 TO TRUE. DTSBE461 00828 GO TO S923-ATC-IO. DTSBE461 00829 DTSBE461 00830 S923-START-BROWSE. DTSBE461 00831 SET L923-START-BROWSE-88 TO TRUE. DTSBE461 00832 GO TO S923-ATC-IO. DTSBE461 00833 DTSBE461 00834 S923-READ-NEXT. DTSBE461 00835 SET L923-READ-NEXT-88 TO TRUE. DTSBE461 00836 GO TO S923-ATC-IO. DTSBE461 00837 DTSBE461 00838 S923-WRITE. DTSBE461 00839 SET L923-WRITE-88 TO TRUE. DTSBE461 00840 GO TO S923-ATC-IO. DTSBE461 00841 DTSBE461 00842 S923-REWRITE. DTSBE461 00843 SET L923-REWRITE-88 TO TRUE. DTSBE461 00844 GO TO S923-ATC-IO. DTSBE461 00845 DTSBE461 00846 S923-DELETE. DTSBE461 00847 SET L923-DELETE-88 TO TRUE. DTSBE461 00848 GO TO S923-ATC-IO. DTSBE461 00849 DTSBE461 00850 S923-CLOSE. DTSBE461 00851 SET L923-CLOSE-88 TO TRUE. DTSBE461 00852 GO TO S923-ATC-IO. DTSBE461 00853 DTSBE461 00854 S923-ATC-IO. DTSBE461 00855 CALL 'DTSBU923' USING L923-LINK-AREA DTSBE461 00856 ASKL-REC. DTSBE461 00857 S923-EXIT. DTSBE461 00858 EXIT. DTSBE461 00859 SKIP3 DTSBE461 00860 S931-READ. DTSBE461 00861 SET L931-READ-88 TO TRUE. DTSBE461 00862 GO TO S931-REF-I. DTSBE461 00863 DTSBE461 00864 S931-START-BROWSE. DTSBE461 00865 SET L931-START-BROWSE-88 TO TRUE. DTSBE461 00866 GO TO S931-REF-I. DTSBE461 00867 S931-REWRITE. DTSBE461 00868 SET L931-REWRITE-88 TO TRUE. DTSBE461 00869 GO TO S931-REF-I. DTSBE461 00870 DTSBE461 00871 S931-READ-NEXT. DTSBE461 00872 SET L931-READ-NEXT-88 TO TRUE. DTSBE461 00873 GO TO S931-REF-I. DTSBE461 00874 DTSBE461 00875 S931-REF-I. DTSBE461 00876 CALL 'DTSBU931' USING L931-LINK-AREA DTSBE461 00877 FSKL-REC. DTSBE461 00878 S931-EXIT. DTSBE461 00879 EXIT. DTSBE461 00880 SKIP3 DTSBE461 00881 S410-FILE-SCHED. DTSBE461 00882 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBE461 00883 DTSBE461 00884 S410-EXIT. DTSBE461 00885 EXIT. DTSBE461 00886 SKIP3 DTSBE461 00887 S946-WRITE-R461. DTSBE461 00888 CALL 'DTSBU946' USING R461-REC. DTSBE461 00889 GO TO S946-EXIT. DTSBE461 00890 DTSBE461 00891 S946-EXIT. DTSBE461 00892 EXIT. DTSBE461 00893 SKIP3 DTSBE461 00894 S999-ABEND. DTSBE461 00895 DISPLAY '*** DTSBE461 ABENDING. ' DTSBE461 00896 ABEND-MSG. DTSBE461 00897 DTSBE461 00898 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE461 00899 S999-EXIT. DTSBE461 00900 EXIT. DTSBE461