1015 lines
80 KiB
COBOL
1015 lines
80 KiB
COBOL
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
|