DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
354
Batch/DTSBU102.cob
Normal file
354
Batch/DTSBU102.cob
Normal file
@ -0,0 +1,354 @@
|
||||
00001 IDENTIFICATION DIVISION. 11/23/15
|
||||
00002 PROGRAM-ID. DTSBU102. DTSBU102
|
||||
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV035
|
||||
00004 DATE-WRITTEN. NOVEMBER 1998 DTSBU102
|
||||
00005 DATE-COMPILED. DTSBU102
|
||||
00006 SKIP3 DTSBU102
|
||||
00007 ***** DTSBU102
|
||||
00008 * DTSBU102
|
||||
00009 * FUNCTION: LATE PAYMENT PENALTY CHARGE/WAIVER CALCULATION. DTSBU102
|
||||
00010 * DTSBU102
|
||||
00011 * DTSBU102
|
||||
00012 * MODIFICATION LOG: DTSBU102
|
||||
00013 * DTSBU102
|
||||
00014 * 11/14/1998 INITIAL DEVELOPMENT. DTSBU102
|
||||
00015 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBU102
|
||||
00016 * DTSBU102
|
||||
00017 * 03/20/1999 ADDED L102-ESTIMATED-RPT-88 PROCESSING. DTSBU102
|
||||
00018 * REFERENCE: DIR 059 PROGRAMMER: EHH DTSBU102
|
||||
00019 * DTSBU102
|
||||
00020 * 07/28/1999 PER INSTRUCTIONS FROM LYNNETTE STERN, WHEN DTSBU102
|
||||
00021 * L102-ORIGINAL-RPT-88 AND REPORT RECEIVED DATE DTSBU102
|
||||
00022 * IS <= REPORT DUE DATE, THEN DO NOT CHARGE DTSBU102
|
||||
00023 * PENALTY. DTSBU102
|
||||
00024 * REFERENCE: ORDERS FROM MS STERN PROGRAMM: EHH DTSBU102
|
||||
00025 * DTSBU102
|
||||
00026 * 01/28/2000 PER INSTRUCTIONS FROM GIL, WHEN L102-ORIGINAL- DTSBU102
|
||||
00027 * RPT-88 AND REPORT RECEIVED DATE IS <= REPORT DTSBU102
|
||||
00028 * DUE DATE, THEN CHARGE PENALTY BASED ON L102- DTSBU102
|
||||
00029 * TAX-BALANCE-AMT (SEE INITIALIZATION OF L102- DTSBU102
|
||||
00030 * TAX-BALANCE-AMT IN DTSBD371). DTSBU102
|
||||
00031 * REFERENCE: PEN CHARGE MOD PROGRAMMER: EHH DTSBU102
|
||||
00032 * DTSBU102
|
||||
00033 * 05/24/2000 REVISED BASED ON REQUIREMENTS LISTED IN DTSBU102
|
||||
00034 * DIR00076. DTSBU102
|
||||
00035 * REFERENCE: DIR00076 PROGRAMMER: GD DTSBU102
|
||||
00036 * DTSBU102
|
||||
00037 * 03/17/2005 REVISED BASED ON REQUIREMENTS LISTED IN DTSBU102
|
||||
00038 * DIR00107. THE NEW PROCESS WILL ASSESS PENALTY DTSBU102
|
||||
00039 * FOR LATE REPORTS AS THEY ARE PROCESSED (I.E. DTSBU102
|
||||
00040 * BEFORE THE BATCH PROCESS TRIGGERED WHEN THE DTSBU102
|
||||
00041 * QUARTER IS DECLARED DELINQUENT. IT WILL ALSO DTSBU102
|
||||
00042 * ASSESS PENALTY FOR MISSING REPORTS. DTSBU102
|
||||
00043 * REFERENCE: DIR00107 PROGRAMMER: GD DTSBU102
|
||||
00044 * DTSBU102
|
||||
00045 * 10/14/2005 MODIFIED HANDLING OF TIMELY REPORTS. WHEN DTSBU102
|
||||
00046 * PROCESSING TIMELY REPORTS ON A DAILY BASIS, DTSBU102
|
||||
00047 * DTSBU102 WILL NOT ASSESS PENALTY ON ANY DTSBU102
|
||||
00048 * BALANCE DUE UNLESS THE QUARTER HAS ALREADY DTSBU102
|
||||
00049 * BEEN DECLARED DELINQUENT. THIS COVERS THE DTSBU102
|
||||
00050 * SITUATION WHERE A REPORT IS ENTERED WITH A DTSBU102
|
||||
00051 * TIMELY RECEIVED DATE AFTER THE QUARTERLY DTSBU102
|
||||
00052 * PENALTY ASSESSMENT PROCESS. DTSBU102
|
||||
00053 * REFERENCE: PROGRAMMER: GD DTSBU102
|
||||
00054 * DTSBU102
|
||||
00055 * 09/06/2007 ADDED CHECK FOR SELF-INSURED EMPLOYERS. WHEN DTSBU102
|
||||
00056 * PROCESSING A TIMELY REPORT, DO NOT CHECK FOR DTSBU102
|
||||
00057 * PAYMENT IN FULL DURING A DELINQUENCY RUN IF DTSBU102
|
||||
00058 * THE CURRENT RUN DATE IS LESS THAN THE TAX DTSBU102
|
||||
00059 * DUE DATE. DTSBU102
|
||||
00060 * REFERENCE: PROGRAMMER: GD DTSBU102
|
||||
00061 * DTSBU102
|
||||
00062 * 07/21/2008 MODIFIED P1200: DO NOT CHARGE LATE PAYMENT DTSBU102
|
||||
00063 * PENALTY IF THE BALANCE DUE IS LESS THAN $15.00. DTSBU102
|
||||
00064 * 09/17/2008 CUTOFF FOR TRIGGERING PENALTY SET TO $15.00 DTSBU102
|
||||
00065 * BY TAX CHIEF - DIR 117. DTSBU102
|
||||
00066 * REFERENCE: PROGRAMMER: GD DTSBU102
|
||||
00067 * DTSBU102
|
||||
00068 * 02/13/2013 MODIFIED FOR CHANGE IN DELINQUENCY PROCESS. DTSBU102
|
||||
00069 * DTSBU102
|
||||
00070 * REFERENCE: TICKET 1688 PROGRAMMER: GD DTSBU102
|
||||
00071 * DTSBU102
|
||||
00072 * DTSBU102
|
||||
00073 * 10/16/2015 MODIFIED FOR CHANGE IN PENALTY PROCESS. DTSBU102
|
||||
00074 * AS OF 10/01/15 ALL TOLERANCE WAS REMOVED FROM DTSBU102
|
||||
00075 * DUTAS, THEREFORE LATE PENALTY WILL BE CHARGED DTSBU102
|
||||
00076 * FOR ANY AMOUNT NOT PAID. ALTHOUGH THE EMPLOYER DTSBU102
|
||||
00077 * WILL STILL OWE THE PENNY OWED THE EMPLOYER SHOULD DTSBU102
|
||||
00078 * NOT BE CHARGED PENALTY IF UNDERPAID BY 50.00 CL*35
|
||||
00079 * CURRENT AMOUNT SET FOR TESTING IS 50.00. CL*35
|
||||
00080 * IF EMPLOYER UNDERPAID UI TAX BY 50.00 NO PENALTY CL*35
|
||||
00081 * WILL BE CHARGED BUT THE MONEY WILL BE OWED BY DTSBU102
|
||||
00082 * EMPLOYER. DTSBU102
|
||||
00083 * REFERENCE: TICKET PENALTY PROGRAMMER: ZL1 DTSBU102
|
||||
00084 * DTSBU102
|
||||
00085 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU102
|
||||
00086 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU102
|
||||
00087 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU102
|
||||
00088 * DTSBU102
|
||||
00089 * DTSBU102
|
||||
00090 * DESCRIPTION: DTSBU102
|
||||
00091 * DTSBU102
|
||||
00092 * COMPUTES LATE PAYMENT PENALTY CHARGED (PER SECTION 3.1.3.4 DTSBU102
|
||||
00093 * OF THE REQUIREMENTS DOCUMENT AND COMPUTES LATE PAYMENT DTSBU102
|
||||
00094 * PENALTY WAIVED (PER SECTION 3.1.4.3 OF THE REQUIREMENTS DTSBU102
|
||||
00095 * DOCUMENT. DTSBU102
|
||||
00096 * DTSBU102
|
||||
00097 ***** DTSBU102
|
||||
00098 SKIP3 DTSBU102
|
||||
00099 ENVIRONMENT DIVISION. DTSBU102
|
||||
00100 EJECT DTSBU102
|
||||
00101 DATA DIVISION. DTSBU102
|
||||
00102 SKIP3 DTSBU102
|
||||
00103 WORKING-STORAGE SECTION. DTSBU102
|
||||
001035 77 PAN-VALET PICTURE X(24) VALUE '035DTSBU102 11/23/15'. DTSBU102
|
||||
00104 77 PAN-VALET PICTURE X(24) VALUE '007DTSBU102 11/19/15'. DTSBU102
|
||||
00105 77 PAN-VALET PICTURE X(24) VALUE '032DTSBU102 06/10/13'. DTSBU102
|
||||
00106 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU102 06/10/13'. DTSBU102
|
||||
00107 77 PAN-VALET PICTURE X(24) VALUE '030DTSBU102 04/01/13'. DTSBU102
|
||||
00108 77 PAN-VALET PICTURE X(24) VALUE '010DTSBU102 02/19/13'. DTSBU102
|
||||
00109 77 PAN-VALET PICTURE X(24) VALUE '028DTSBU102 12/04/08'. DTSBU102
|
||||
00110 DTSBU102
|
||||
00111 01 WRK-AREA. DTSBU102
|
||||
00112 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +102.DTSBU102
|
||||
00113 DTSBU102
|
||||
00114 05 WRK-LATE-ORIG-RPT-IND PIC X(01). DTSBU102
|
||||
00115 88 WRK-LATE-ORIG-RPT-YES-88 VALUE 'Y'. DTSBU102
|
||||
00116 88 WRK-LATE-ORIG-RPT-NO-88 VALUE 'N'. DTSBU102
|
||||
00117 DTSBU102
|
||||
00118 *************************************************************** DTSBU102
|
||||
00119 * NO PENALTY CHARGED FOR BALANCE LESS THAN WRK-TOLERANCE-AMT. DTSBU102
|
||||
00120 *************************************************************** DTSBU102
|
||||
00121 05 WRK-TOLERANCE-AMT PIC S9(09)V9(02) COMP-3 DTSBU102
|
||||
00122 * VALUE +99.99. DTSBU102
|
||||
00123 VALUE +50.00. DTSBU102
|
||||
00124 DTSBU102
|
||||
00125 *************************************************************** DTSBU102
|
||||
00126 * MINIMUM PENALTY AMOUNT. DTSBU102
|
||||
00127 *************************************************************** DTSBU102
|
||||
00128 05 WRK-MINIMUM-PENALTY PIC S9(05)V9(02) COMP-3 DTSBU102
|
||||
00129 VALUE +100.00. DTSBU102
|
||||
00130 DTSBU102
|
||||
00131 05 WRK-BASE-AMT PIC S9(09)V9(02) COMP-3. DTSBU102
|
||||
00132 DTSBU102
|
||||
00133 05 WRK-SELECTED-IND PIC X(01). DTSBU102
|
||||
00134 88 WRK-SELECTED-YES-88 VALUE 'Y'. DTSBU102
|
||||
00135 88 WRK-SELECTED-NO-88 VALUE 'N'. DTSBU102
|
||||
00136 DTSBU102
|
||||
00137 01 L120-LINK-AREA. DTSBU102
|
||||
00138 ++INCLUDE DTSIL120 DTSBU102
|
||||
00139 DTSBU102
|
||||
00140 LINKAGE SECTION. DTSBU102
|
||||
00141 SKIP3 DTSBU102
|
||||
00142 01 L102-LINK-AREA. DTSBU102
|
||||
00143 ++INCLUDE DTSIL102 DTSBU102
|
||||
00144 EJECT DTSBU102
|
||||
00145 PROCEDURE DIVISION USING L102-LINK-AREA. DTSBU102
|
||||
00146 DTSBU102
|
||||
00147 DTSBU102
|
||||
00148 IF NOT L102-OPTION-VALID-88 DTSBU102
|
||||
00149 DISPLAY '*** DTSBU102 ABENDING: INVALID OPTION ' DTSBU102
|
||||
00150 L102-OPTION DTSBU102
|
||||
00151 PERFORM S999-ABEND THRU S999-EXIT. DTSBU102
|
||||
00152 DTSBU102
|
||||
00153 PERFORM I0000-INIT THRU I0000-EXIT. DTSBU102
|
||||
00154 DTSBU102
|
||||
00155 DTSBU102
|
||||
00156 PERFORM P1000-PEN-CHARGE THRU P1000-EXIT. DTSBU102
|
||||
00157 DTSBU102
|
||||
00158 DTSBU102
|
||||
00159 PERFORM P2000-WAIVE THRU P2000-EXIT. DTSBU102
|
||||
00160 DTSBU102
|
||||
00161 DTSBU102
|
||||
00162 GOBACK. DTSBU102
|
||||
00163 DTSBU102
|
||||
00164 I0000-INIT. DTSBU102
|
||||
00165 MOVE +0 TO L102-LATE-PEN-CHARGE-CHNG DTSBU102
|
||||
00166 L102-LATE-PEN-WAIVE-CHNG. DTSBU102
|
||||
00167 DTSBU102
|
||||
00168 MOVE L102-MQTR-YRQ TO L120-YRQ. DTSBU102
|
||||
00169 CALL 'DTSBU120' USING L120-LINK-AREA. DTSBU102
|
||||
00170 DTSBU102
|
||||
00171 I0000-EXIT. DTSBU102
|
||||
00172 EXIT. DTSBU102
|
||||
00173 DTSBU102
|
||||
00174 P1000-PEN-CHARGE. DTSBU102
|
||||
00175 IF L102-PEN-CHARGE-MANUAL-88 DTSBU102
|
||||
00176 GO TO P1000-EXIT DTSBU102
|
||||
00177 END-IF. DTSBU102
|
||||
00178 DTSBU102
|
||||
00179 ** IF L102-CONTRIB-PEN-ASSESS-88 DTSBU102
|
||||
00180 * OR L102-REIMB-PEN-ASSESS-88 DTSBU102
|
||||
00181 * OR L102-DELINQUENCY-RUN-88 DTSBU102
|
||||
00182 * IF L102-MQTR-YRQ > L102-LAST-PEN-ASSESSED-YRQ DTSBU102
|
||||
00183 * GO TO P1000-EXIT DTSBU102
|
||||
00184 * END-IF DTSBU102
|
||||
00185 ** END-IF. DTSBU102
|
||||
00186 DTSBU102
|
||||
00187 IF L102-PEN-ASSESSMENT-RUN-88 DTSBU102
|
||||
00188 OR L102-DELINQUENCY-RUN-88 DTSBU102
|
||||
00189 IF L102-MQTR-YRQ > L102-LAST-PEN-ASSESSED-YRQ DTSBU102
|
||||
00190 GO TO P1000-EXIT DTSBU102
|
||||
00191 END-IF DTSBU102
|
||||
00192 END-IF. DTSBU102
|
||||
00193 DTSBU102
|
||||
00194 IF L102-LATE-PEN-CHARGED-AMT > +0 DTSBU102
|
||||
00195 GO TO P1000-EXIT DTSBU102
|
||||
00196 END-IF. DTSBU102
|
||||
00197 DTSBU102
|
||||
00198 SET WRK-LATE-ORIG-RPT-NO-88 TO TRUE. DTSBU102
|
||||
00199 SET WRK-SELECTED-YES-88 TO TRUE. DTSBU102
|
||||
00200 MOVE ZERO TO WRK-BASE-AMT. DTSBU102
|
||||
00201 DTSBU102
|
||||
00202 EVALUATE TRUE DTSBU102
|
||||
00203 WHEN L102-PEN-ASSESSMENT-RUN-88 DTSBU102
|
||||
00204 PERFORM P1100-CHK-LATE-ORIG-RPT THRU P1100-EXIT DTSBU102
|
||||
00205 PERFORM P1200-CALC-ORIG-BASE-AMT THRU P1200-EXIT DTSBU102
|
||||
00206 DTSBU102
|
||||
00207 WHEN L102-DELINQUENCY-RUN-88 DTSBU102
|
||||
00208 IF L102-CLASS-SELF-INS-88 DTSBU102
|
||||
00209 PERFORM P1200-CALC-ORIG-BASE-AMT THRU P1200-EXIT DTSBU102
|
||||
00210 END-IF DTSBU102
|
||||
00211 DTSBU102
|
||||
00212 WHEN L102-ORIGINAL-RPT-88 DTSBU102
|
||||
00213 PERFORM P1100-CHK-LATE-ORIG-RPT THRU P1100-EXIT DTSBU102
|
||||
00214 PERFORM P1200-CALC-ORIG-BASE-AMT THRU P1200-EXIT DTSBU102
|
||||
00215 IF WRK-LATE-ORIG-RPT-NO-88 DTSBU102
|
||||
00216 IF L102-MQTR-YRQ > L102-LAST-PEN-ASSESSED-YRQ DTSBU102
|
||||
00217 SET WRK-SELECTED-NO-88 TO TRUE DTSBU102
|
||||
00218 END-IF DTSBU102
|
||||
00219 END-IF DTSBU102
|
||||
00220 DTSBU102
|
||||
00221 WHEN L102-NSF-PAY-REVERSAL-88 DTSBU102
|
||||
00222 IF L102-TRAN-RECEIVED-DATE > L102-TAX-DUE-DATE DTSBU102
|
||||
00223 PERFORM P1300-CALC-NSF-BASE-AMT THRU P1300-EXIT DTSBU102
|
||||
00224 ELSE DTSBU102
|
||||
00225 SET WRK-SELECTED-NO-88 TO TRUE DTSBU102
|
||||
00226 END-IF DTSBU102
|
||||
00227 DTSBU102
|
||||
00228 WHEN L102-ESTIMATED-RPT-88 DTSBU102
|
||||
00229 MOVE L102-TAX-CHARGED-AMT TO WRK-BASE-AMT DTSBU102
|
||||
00230 DTSBU102
|
||||
00231 END-EVALUATE. DTSBU102
|
||||
00232 DTSBU102
|
||||
00233 IF WRK-SELECTED-NO-88 DTSBU102
|
||||
00234 GO TO P1000-EXIT DTSBU102
|
||||
00235 ELSE DTSBU102
|
||||
00236 PERFORM S1000-COMPUTE-PENALTY THRU S1000-EXIT DTSBU102
|
||||
00237 END-IF. DTSBU102
|
||||
00238 DTSBU102
|
||||
00239 P1000-EXIT. DTSBU102
|
||||
00240 EXIT. DTSBU102
|
||||
00241 DTSBU102
|
||||
00242 P1100-CHK-LATE-ORIG-RPT. DTSBU102
|
||||
00243 IF L102-OR-RECEIVED-DATE > L102-RPT-DUE-DATE DTSBU102
|
||||
00244 SET WRK-LATE-ORIG-RPT-YES-88 TO TRUE DTSBU102
|
||||
00245 END-IF. DTSBU102
|
||||
00246 DTSBU102
|
||||
00247 P1100-EXIT. DTSBU102
|
||||
00248 EXIT. DTSBU102
|
||||
00249 DTSBU102
|
||||
00250 P1200-CALC-ORIG-BASE-AMT. DTSBU102
|
||||
00251 IF L102-CLASS-SELF-INS-88 DTSBU102
|
||||
00252 IF L102-TAX-DUE-DATE > L102-CURR-RUN-DATE DTSBU102
|
||||
00253 MOVE ZERO TO WRK-BASE-AMT DTSBU102
|
||||
00254 ELSE DTSBU102
|
||||
00255 MOVE L102-TAX-BALANCE-AMT TO WRK-BASE-AMT DTSBU102
|
||||
00256 ** COMPUTE WRK-BASE-AMT = DTSBU102
|
||||
00257 ** (L102-TAX-CHARGED-AMT - L102-TIMELY-SI-PAY-AMT) DTSBU102
|
||||
00258 END-IF DTSBU102
|
||||
00259 ELSE DTSBU102
|
||||
00260 IF WRK-LATE-ORIG-RPT-YES-88 DTSBU102
|
||||
00261 MOVE L102-TAX-CHARGED-AMT TO WRK-BASE-AMT DTSBU102
|
||||
00262 ELSE DTSBU102
|
||||
00263 MOVE L102-TAX-BALANCE-AMT TO WRK-BASE-AMT DTSBU102
|
||||
00264 END-IF DTSBU102
|
||||
00265 END-IF. DTSBU102
|
||||
00266 DTSBU102
|
||||
00267 *************************************************************** DTSBU102
|
||||
00268 * PREVENT CHARGING OF PENALTY FOR BALANCES OF LESS THAN $100.00. DTSBU102
|
||||
00269 *************************************************************** DTSBU102
|
||||
00270 IF WRK-BASE-AMT < WRK-TOLERANCE-AMT DTSBU102
|
||||
00271 MOVE +0 TO WRK-BASE-AMT DTSBU102
|
||||
00272 END-IF. DTSBU102
|
||||
00273 DTSBU102
|
||||
00274 P1200-EXIT. DTSBU102
|
||||
00275 EXIT. DTSBU102
|
||||
00276 DTSBU102
|
||||
00277 P1300-CALC-NSF-BASE-AMT. DTSBU102
|
||||
00278 IF L102-CLASS-SELF-INS-88 DTSBU102
|
||||
00279 * COMPUTE WRK-BASE-AMT = DTSBU102
|
||||
00280 * (L102-TAX-CHARGED-AMT - L102-TIMELY-SI-PAY-AMT) DTSBU102
|
||||
00281 MOVE L102-TAX-BALANCE-AMT TO WRK-BASE-AMT DTSBU102
|
||||
00282 ELSE DTSBU102
|
||||
00283 MOVE L102-TAX-BALANCE-AMT TO WRK-BASE-AMT DTSBU102
|
||||
00284 END-IF. DTSBU102
|
||||
00285 DTSBU102
|
||||
00286 *************************************************************** DTSBU102
|
||||
00287 * PREVENT CHARGING OF PENALTY FOR BALANCES OF LESS THAN $99.99 DTSBU102
|
||||
00288 *************************************************************** DTSBU102
|
||||
00289 IF WRK-BASE-AMT < WRK-TOLERANCE-AMT DTSBU102
|
||||
00290 MOVE +0 TO WRK-BASE-AMT DTSBU102
|
||||
00291 END-IF. DTSBU102
|
||||
00292 DTSBU102
|
||||
00293 P1300-EXIT. DTSBU102
|
||||
00294 EXIT. DTSBU102
|
||||
00295 DTSBU102
|
||||
00296 EJECT DTSBU102
|
||||
00297 P2000-WAIVE. DTSBU102
|
||||
00298 IF L102-LATE-PEN-CHARGE-CHNG > +0 DTSBU102
|
||||
00299 NEXT SENTENCE DTSBU102
|
||||
00300 ELSE DTSBU102
|
||||
00301 GO TO P2000-EXIT. DTSBU102
|
||||
00302 DTSBU102
|
||||
00303 IF L102-WAIVE-LATE-PEN-YES-88 DTSBU102
|
||||
00304 MOVE L102-LATE-PEN-CHARGE-CHNG DTSBU102
|
||||
00305 TO L102-LATE-PEN-WAIVE-CHNG DTSBU102
|
||||
00306 GO TO P2000-EXIT. DTSBU102
|
||||
00307 DTSBU102
|
||||
00308 IF (L102-PEN-ASSESSMENT-RUN-88 DTSBU102
|
||||
00309 OR L102-ORIGINAL-RPT-88 DTSBU102
|
||||
00310 OR L102-DELINQUENCY-RUN-88) DTSBU102
|
||||
00311 IF (L102-OR-RECEIVED-DATE < L102-WAIVE-PEN-START-DATE) DTSBU102
|
||||
00312 OR DTSBU102
|
||||
00313 (L102-OR-RECEIVED-DATE > L102-WAIVE-PEN-END-DATE) DTSBU102
|
||||
00314 OR DTSBU102
|
||||
00315 (L102-OR-RECEIVED-DATE = +0) DTSBU102
|
||||
00316 NEXT SENTENCE DTSBU102
|
||||
00317 ELSE DTSBU102
|
||||
00318 MOVE L102-LATE-PEN-CHARGE-CHNG DTSBU102
|
||||
00319 TO L102-LATE-PEN-WAIVE-CHNG. DTSBU102
|
||||
00320 P2000-EXIT. DTSBU102
|
||||
00321 EXIT. DTSBU102
|
||||
00322 EJECT DTSBU102
|
||||
00323 S1000-COMPUTE-PENALTY. DTSBU102
|
||||
00324 * DISPLAY 'BU102 ' MPRF-EMP-NO DTSBU102
|
||||
00325 * ' ' L120-LATE-PENALTY-PCT DTSBU102
|
||||
00326 * ' ' WRK-LATE-ORIG-RPT-IND DTSBU102
|
||||
00327 * ' ' WRK-TOLERANCE-AMT DTSBU102
|
||||
00328 * ' ' WRK-BASE-AMT. DTSBU102
|
||||
00329 DTSBU102
|
||||
00330 IF WRK-LATE-ORIG-RPT-YES-88 DTSBU102
|
||||
00331 OR L102-DELINQUENCY-RUN-88 DTSBU102
|
||||
00332 NEXT SENTENCE DTSBU102
|
||||
00333 ELSE DTSBU102
|
||||
00334 IF WRK-BASE-AMT NOT > ZERO DTSBU102
|
||||
00335 GO TO S1000-EXIT DTSBU102
|
||||
00336 END-IF DTSBU102
|
||||
00337 END-IF. DTSBU102
|
||||
00338 DTSBU102
|
||||
00339 COMPUTE L102-LATE-PEN-CHARGE-CHNG ROUNDED DTSBU102
|
||||
00340 = WRK-BASE-AMT * L120-LATE-PENALTY-PCT. DTSBU102
|
||||
00341 DTSBU102
|
||||
00342 IF L102-LATE-PEN-CHARGE-CHNG < WRK-MINIMUM-PENALTY DTSBU102
|
||||
00343 MOVE WRK-MINIMUM-PENALTY TO L102-LATE-PEN-CHARGE-CHNG DTSBU102
|
||||
00344 * MOVE ZEROS TO L102-LATE-PEN-CHARGE-CHNG DTSBU102
|
||||
00345 END-IF. DTSBU102
|
||||
00346 DTSBU102
|
||||
00347 S1000-EXIT. DTSBU102
|
||||
00348 EXIT. DTSBU102
|
||||
00349 EJECT DTSBU102
|
||||
00350 S999-ABEND. DTSBU102
|
||||
00351 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU102
|
||||
00352 S999-EXIT. DTSBU102
|
||||
00353 EXIT. DTSBU102
|
||||
Reference in New Issue
Block a user