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