3646 lines
288 KiB
COBOL
3646 lines
288 KiB
COBOL
00001 IDENTIFICATION DIVISION. 12/18/13
|
|
00002 PROGRAM-ID. DTSBD371. DTSBD371
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV098
|
|
00004 DATE-WRITTEN. JANUARY 1991. DTSBD371
|
|
00005 DATE-COMPILED. DTSBD371
|
|
00006 SKIP3 DTSBD371
|
|
00007 ***** DTSBD371
|
|
00008 * DTSBD371
|
|
00009 * DTSBD371
|
|
00010 * FUNCTION: REPORT TRANSACTION PROCESSING. DTSBD371
|
|
00011 * DTSBD371
|
|
00012 * DTSBD371
|
|
00013 * MODIFICATION LOG: DTSBD371
|
|
00014 * DTSBD371
|
|
00015 * 01/25/92 INITIAL DEVELOPMENT. DTSBD371
|
|
00016 * WORK ORDER: PROGRAMMER: TCL DTSBD371
|
|
00017 * DTSBD371
|
|
00018 * 04/27/95 MODIFIED P4000. FOR ORIGINAL REPORTS FROM DTSBD371
|
|
00019 * SELF-INSURED EMPLOYERS, APPLY REMITTANCE TO DTSBD371
|
|
00020 * AFT BEFORE APPLYING REMITTANCE TO UI. DTSBD371
|
|
00021 * WORK ORDER: CR085 PROGRAMMER: EHH DTSBD371
|
|
00022 * DTSBD371
|
|
00023 * 12/13/1998 REVIEWED AND MODIFIED FOR DC. DTSBD371
|
|
00024 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD371
|
|
00025 * DTSBD371
|
|
00026 * 02/27/1999 MODIFIED FOR DC SELF INSURED EMPLOYER TAX DUE DTSBD371
|
|
00027 * DATE REQUIREMENT. DTSBD371
|
|
00028 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD371
|
|
00029 * DTSBD371
|
|
00030 * 03/20/1999 MODIFIED TO CHARGE PENALTY WHEN AN ESTIMATED DTSBD371
|
|
00031 * REPORT IS PROCESSED AND TO MEET NEW ESTIMATED DTSBD371
|
|
00032 * REPORT LETTER REQUIREMENTS. DTSBD371
|
|
00033 * REFERENCE: DIR 059 PROGRAMMER: EHH DTSBD371
|
|
00034 * DTSBD371
|
|
00035 * 03/27/1999 MODIFIED TO WRITE A MEVL RECORD OCCURRENCE DTSBD371
|
|
00036 * WHEN A ARPT-WAGE-RPT-NO-88 ARPT RECORD IS DTSBD371
|
|
00037 * PROCESSED. DTSBD371
|
|
00038 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD371
|
|
00039 * DTSBD371
|
|
00040 * 05/15/1999 IF ARPT-YRQ IS <= TO LBCM-PICKUP-YRQ, THEN DTSBD371
|
|
00041 * FAIL THE TRANSACTION. DTSBD371
|
|
00042 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSBD371
|
|
00043 * DTSBD371
|
|
00044 * 07/28/1999 L102-TAX-DUE-DATE AND L102-RPT-DUE-DATE ADDED DTSBD371
|
|
00045 * TO DTSBU102 LINKAGE AREA. DTSBD371
|
|
00046 * REFERENCE: ORDERS FROM MS STERN PROGRAMM: EHH DTSBD371
|
|
00047 * DTSBD371
|
|
00048 * 01/28/2000 PER INSTRUCTIONS FROM GIL, WHEN PREPARING TO DTSBD371
|
|
00049 * CALL DTSBU102 TO CALCULATE PENALTY CHARGED, IF DTSBD371
|
|
00050 * APRT-ORIG-88, THEN REDUCE L102-TAX-BALANCE-AMT DTSBD371
|
|
00051 * BY AVAILABLE (BUT NOT YET APPLIED) PAID AMOUNTS DTSBD371
|
|
00052 * PRIOR TO THE CALL TO DTSBU102. AVAILABLE (BUT DTSBD371
|
|
00053 * NOT YET APPLIED PAID AMOUNTS) RESIDE IN ARPT- DTSBD371
|
|
00054 * REMIT-AMT AND IF MPRF-TOT-CREDIT-AMT. DTSBD371
|
|
00055 * REFERENCE: PEN CHARGE MOD PROGRAMMER: EHH DTSBD371
|
|
00056 * DTSBD371
|
|
00057 * 03/16/2000 CORRECTED ERROR IN P2830-WITHDRAW-LATE-PAY-PEN. DTSBD371
|
|
00058 * WHEN REPORT IS WITHDRAWN, PENALTY SHOULD BE DTSBD371
|
|
00059 * REVERSED FOR BOTH RATED AND SELF-INSURED EMPS. DTSBD371
|
|
00060 * REFERENCE: PAULETTE BROWN PROGRAMMER: GD DTSBD371
|
|
00061 * DTSBD371
|
|
00062 * 05/08/2000 MODIFIED PROCESSING IN P2800 ACCORDING TO DTSBD371
|
|
00063 * PENALTY CHARGING REQUIREMENTS IN DIR00076. DTSBD371
|
|
00064 * REFERENCE: DIR00076 PROGRAMMER: GD DTSBD371
|
|
00065 * DTSBD371
|
|
00066 * 08/14/2002 RECOMPILED TO GET NEW VERSION OF DTSIL516 DTSBD371
|
|
00067 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD371
|
|
00068 * DTSBD371
|
|
00069 * 10/02/2003 ADDED P0200 AND CALL TO DTSBU430 TO RELEASE DTSBD371
|
|
00070 * W4 WAGE TRANSACTIONS FOR REPORTS SUBMITTED DTSBD371
|
|
00071 * THROUGH THE WEB OR IVR. DTSBD371
|
|
00072 * REFERENCE: EFT PROGRAMMER: GD DTSBD371
|
|
00073 * DTSBD371
|
|
00074 * 01/25/2005 INITILIZED NEW FIELD TO ZEROS. NEW FIELD WAS DTSBD371
|
|
00075 * ADDED (APAY-NSF-MNTE-ABSTIME) FOR MATCHING DTSBD371
|
|
00076 * NSF RECORD ON THE MNTE RECORD. DTSBD371
|
|
00077 * REFERENCE: EFT PROGRAMMER: ZL1 DTSBD371
|
|
00078 * DTSBD371
|
|
00079 * 02/11/2005 MODIFIED CALL TO P0200 IN P0000 TO CHECK DTSBD371
|
|
00080 * PSEUDO DOCUMENT NUMBER INSTEAD OF TRACE DTSBD371
|
|
00081 * NUMBER - ANY ARPT WITH A PSEUDO DOCUMENT DTSBD371
|
|
00082 * NUMBER HAS WAGE DATA TO BE PROCESSED. DTSBD371
|
|
00083 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00084 * DTSBD371
|
|
00085 * 04/14/2005 MODIFIED FOR NEW VERSION OF DTSIL102 - DTSBD371
|
|
00086 * PENALTY NOW ASSESSED ON LATE REPORTS WHEN DTSBD371
|
|
00087 * THEY ARE ENTERED RATHER THAN WAITING FOR THE DTSBD371
|
|
00088 * QUARTER TO BE DECLARED DELINQUENT. DTSBD371
|
|
00089 * REFERENCE: DIR 107 PROGRAMMER: GD DTSBD371
|
|
00090 * DTSBD371
|
|
00091 * 08/12/2005 MODIFIED P2800 (PENALTY). IF MISSING REPORT DTSBD371
|
|
00092 * PENALTY EXISTS AND THE PROGRAM IS PROCESSING DTSBD371
|
|
00093 * AN ORIGINAL REPORT, WITHDRAW THE MISSING REPORT DTSBD371
|
|
00094 * PENALTY BEFORE PROCESSING THE REPORT. IF LATE DTSBD371
|
|
00095 * PENALTY IS REQUIRED, THE PROGRAM WILL RECALCULATEDTSBD371
|
|
00096 * IT. IF THE REPORT IS TIMELY (BUT ENTERED AFTER DTSBD371
|
|
00097 * THE DELINQUENCY RUN, THE PENALTY WILL HAVE DTSBD371
|
|
00098 * BEEN WITHDRAWN. DTSBD371
|
|
00099 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00100 * DTSBD371
|
|
00101 * 10/07/2005 MODIFIED P2590 FOR NEW MEANING OF WAGE-RPT-IND: DTSBD371
|
|
00102 * IT NOW SPEFICIES WHETHER WAGES WERE SUBMITTED DTSBD371
|
|
00103 * ON MAGNETIC MEDIA. ADDED CODE TO COPY STATUS DTSBD371
|
|
00104 * CHANGE IND FROM ARPT TO MRPT. DTSBD371
|
|
00105 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00106 * DTSBD371
|
|
00107 * 01/03/2006 UPDATED FOR ADMINISTRATIVE ASSESSMENT. DTSBD371
|
|
00108 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00109 * DTSBD371
|
|
00110 * 02/20/2006 PENALTY AND INTEREST CALCULATIONS MODIFIED DTSBD371
|
|
00111 * TO EXCLUDE SUR-TAX: P2031A, P2030, P2831A. DTSBD371
|
|
00112 * REFERENCE: ADMIN ASSESS PROGRAMMER: GD DTSBD371
|
|
00113 * DTSBD371
|
|
00114 * 03/02/2006 MODIFIED FOR NEW VERSION OF BU109. DTSBD371
|
|
00115 * REFERENCE: ADMIN ASSESS PROGRAMMER: GD DTSBD371
|
|
00116 * DTSBD371
|
|
00117 * 03/15/2006 MODIFIED TO BYPASS ZERO-WAGE REPORTS FOR DTSBD371
|
|
00118 * INACTIVE ACCOUNTS. THE PROGRAM WILL WRITE DTSBD371
|
|
00119 * AN EVENT LOG RECORD. DTSBD371
|
|
00120 * CHANGED P1100, P1300, P0000, P0300. DTSBD371
|
|
00121 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00122 * DTSBD371
|
|
00123 * 09/27/2006 MODIFIED P2600 AND FOLLOWING TO BYPASS ALL DTSBD371
|
|
00124 * ADJUSTMENTS OF ADMIN ASSESSMENT FOR SELF- DTSBD371
|
|
00125 * INSURED ACCOUNTS. THE ASSESSENT FOR THESE DTSBD371
|
|
00126 * EMPLOYERS WILL ONLY BE CHANGED THROUGH DTSBD371
|
|
00127 * CHANGES IN WAGES (DTSBE325). DTSBD371
|
|
00128 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00129 * DTSBD371
|
|
00130 * 06/13/2007 MODIFIED P0200 TO PASS EMPLOYER ACCOUNT DTSBD371
|
|
00131 * NUMBER IN L420 LINKAGE TO BU420. DTSBD371
|
|
00132 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00133 * DTSBD371
|
|
00134 * 09/10/2007 MODIFIED P0200 TO MOVE LBCM-CURR-RUN-DATE DTSBD371
|
|
00135 * TO NEW FIELD L102-CURR-RUN-DATE. DTSBD371
|
|
00136 * REFERENCE: PROGRAMMER: ZL1 DTSBD371
|
|
00137 * DTSBD371
|
|
00138 * 08/11/2007 MODIFIED P2600: REMOVED CALL TO P2610 TO DTSBD371
|
|
00139 * ADJUST SUR-TAX. THIS CODE WAS IN THE ORIGINAL DTSBD371
|
|
00140 * MONTANA SOFTWARE, BUT IS NOT RELEVANT TO DC, DTSBD371
|
|
00141 * AND RESULTED IN MISCALCULATIONS. DTSBD371
|
|
00142 * THE CODE RECOMPUTES THE SUR-TAX DUE BY DTSBD371
|
|
00143 * COMBINING THE UI TAX RATE AND THE ADMIN ASSESS DTSBD371
|
|
00144 * TAX RATE. THIS PRODUCES ERRORS OF 1 CENT IN DTSBD371
|
|
00145 * THE AMOUNT CHARGED. DTSBD371
|
|
00146 * REFERENCE: PROGRAMMER: GD DTSBD371
|
|
00147 * DTSBD371
|
|
00148 * 07/28/2009 MODIFIED P2910 TO MOVE THE PENALTY BALANCE DTSBD371
|
|
00149 * AMOUNT TO THE R316 RECORD FOR ESTIMATED DTSBD371
|
|
00150 * REPORTS INSTEAD OF THE AMOUNT CHARGED. DTSBD371
|
|
00151 * ORIGINALLY, PENALTY WAS CHARGED WHEN DTSBD371
|
|
00152 * THE ESTIMATED REPORT WAS POSTED. NOW IT IS DTSBD371
|
|
00153 * CHARGED WHEN THE QUARTER IS DECLARED DELINQUENT. DTSBD371
|
|
00154 * REFERENCE: PROGRAMMER: GD1 DTSBD371
|
|
00155 * DTSBD371
|
|
00156 * 08/19/2010 MODIFIED P4000 TO MOVE THE CHECK SCAN DATE DTSBD371
|
|
00157 * AND CHECK SEQUENCE NUMBER FROM THE ARPT DTSBD371
|
|
00158 * RECORD TO THE APAY RECORD. DTSBD371
|
|
00159 * THIS DATA EXISTS WHEN THE ARPT TRANSACTION DTSBD371
|
|
00160 * WAS CREATED FROM THE WEB CHECK-SCANNING PROCESS. DTSBD371
|
|
00161 * REFERENCE: PROGRAMMER: GD1 DTSBD371
|
|
00162 * DTSBD371
|
|
00163 * 11/14/2011 MODIFIED P0200 FOR NEW VERSION OF L420 DTSBD371
|
|
00164 * LINKAGE - ACCOUNTING BATCH AND ITEMS NUMBERS DTSBD371
|
|
00165 * ARE NOW PASSED SO THAT BD420 WRITE WRITE DTSBD371
|
|
00166 * X148 WAGE RECORDS TO UPDATE THE SERVER DATABASE. DTSBD371
|
|
00167 * REFERENCE: PROGRAMMER: GD1 DTSBD371
|
|
00168 * DTSBD371
|
|
00169 * 03/02/2012 MODIFIED TO PASS THE QUARTER TO THE L420 DTSBD371
|
|
00170 * LINKAGE - IF THE QUARTER HAS BEEN CHANGED, THE DTSBD371
|
|
00171 * WAGES WILL BE POSTED TO THE CORRECT QUARTER. DTSBD371
|
|
00172 * REFERENCE: PROGRAMMER: GD1 DTSBD371
|
|
00173 * DTSBD371
|
|
00174 * 02/27/2013 MODIFIED TO HANDLE REPORTS FROM BOTH DTSBD371
|
|
00175 * QUARTERLY AND ANNUAL FILERS. DTSBD371
|
|
00176 * REFERENCE: PROGRAMMER: GD1 DTSBD371
|
|
00177 * DTSBD371
|
|
00178 * 07/08/2013 MODIFIED TO ALLOW PROCESSING OF REPORTS FOR DTSBD371
|
|
00179 * ANNUAL FILERS WITH ESTIMATED RATES. DTSBD371
|
|
00180 * REFERENCE: TICKET 1901 PROGRAMMER: GD DTSBD371
|
|
00181 * DTSBD371
|
|
00182 * 09/16/2013 MODIFIED PROCESS IN P0000 THAT SETS THE DTSBD371
|
|
00183 * PSEUDO-BATCH AND ITEM NUMBERS TO INCLUDE DTSBD371
|
|
00184 * ALL REPORTS. THE PROCESS THAT CALLS DTSBD371
|
|
00185 * DTSBU420 IS NOW USED FOR WAGES ENTERED DTSBD371
|
|
00186 * BY TDEC, DTSBD371
|
|
00187 * REFERENCE: TICKET 2022 PROGRAMMER: GD DTSBD371
|
|
00188 * DTSBD371
|
|
00189 * 09/27/2013 MODIFIED PROCESSES THAT SET THE QUARTER STATUS DTSBD371
|
|
00190 * FOR ANNUAL FILERS. THE NEW ANNUAL LIABILITY DTSBD371
|
|
00191 * FIELD RETURNED BY BU516 WILL HELP TO SET THIS DTSBD371
|
|
00192 * MORE ACCURATELY. DTSBD371
|
|
00193 * REFERENCE: TICKET 2081 PROGRAMMER: GD DTSBD371
|
|
00194 * DTSBD371
|
|
00195 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD371
|
|
00196 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD371
|
|
00197 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD371
|
|
00198 * DTSBD371
|
|
00199 * DTSBD371
|
|
00200 * DESCRIPTION: DTSBD371
|
|
00201 * DTSBD371
|
|
00202 * PROCESSES ACCOUNTING REPORT TRANSACTIONS. DTSBD371
|
|
00203 * DTSBD371
|
|
00204 * DTSBD371
|
|
00205 * MASTER FILE RECORDS READ: DTSBD371
|
|
00206 * DTSBD371
|
|
00207 * MQTR DTSBD371
|
|
00208 * MRPT DTSBD371
|
|
00209 * MPAY DTSBD371
|
|
00210 * MTCK DTSBD371
|
|
00211 * DTSBD371
|
|
00212 * DTSBD371
|
|
00213 * MASTER FILE RECORDS UPDATED: DTSBD371
|
|
00214 * DTSBD371
|
|
00215 * MQTR (WRITE, REWRITE) DTSBD371
|
|
00216 * MRPT (WRITE) DTSBD371
|
|
00217 * DTSBD371
|
|
00218 * DTSBD371
|
|
00219 * REPORT RECORDS WRITTEN: DTSBD371
|
|
00220 * DTSBD371
|
|
00221 * R726 MISSING EMPLOYEE COUNT LETTER. DTSBD371
|
|
00222 * R907 ERROR. DTSBD371
|
|
00223 * DTSBD371
|
|
00224 * DTSBD371
|
|
00225 * MODULES CALLED: DTSBD371
|
|
00226 * DTSBD371
|
|
00227 * DTSBD372 PAYMENT TRANSACTION PROCESSING. DTSBD371
|
|
00228 * DTSBU001 DATE EDIT/CONVERSION. DTSBD371
|
|
00229 * DTSBU101 COMPUTE INTEREST CHARGED. DTSBD371
|
|
00230 * DTSBU102 COMPUTE LATE PAYMENT PENALTY CHARGED. DTSBD371
|
|
00231 * DTSBU511 INITIALIZE A MQTR RECORD. DTSBD371
|
|
00232 * DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR A DTSBD371
|
|
00233 * GIVEN QUARTER. DTSBD371
|
|
00234 * DTSBU520 PAYMENT APPLICATION. DTSBD371
|
|
00235 * DTSBU522 RETURN A PAID AMOUNT TO UNAPPLIED CREDIT. DTSBD371
|
|
00236 * DTSBU541 MODIFY A SPECIFIED CHARGED, WAIVED, TOLERATED DTSBD371
|
|
00237 * OR WRITTEN OFF AMOUNT. DTSBD371
|
|
00238 * DTSBU549 JOURNALING/BATCH DETAIL LISTING. DTSBD371
|
|
00239 * DTSBU590 EMPLOYER CLEANUP. DTSBD371
|
|
00240 * DTSBU910 MASTER FILE I/O. DTSBD371
|
|
00241 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD371
|
|
00242 * DTSBD371
|
|
00243 * DTSBD371
|
|
00244 ***** DTSBD371
|
|
00245 SKIP3 DTSBD371
|
|
00246 ENVIRONMENT DIVISION. DTSBD371
|
|
00247 EJECT DTSBD371
|
|
00248 DATA DIVISION. DTSBD371
|
|
00249 SKIP3 DTSBD371
|
|
00250 WORKING-STORAGE SECTION. DTSBD371
|
|
002505 77 PAN-VALET PICTURE X(24) VALUE '098DTSBD371 12/18/13'. DTSBD371
|
|
00251 77 PAN-VALET PICTURE X(24) VALUE '002DTSBD371 09/27/13'. DTSBD371
|
|
00252 77 PAN-VALET PICTURE X(24) VALUE '096DTSBD371 09/25/13'. DTSBD371
|
|
00253 77 PAN-VALET PICTURE X(24) VALUE '004DTSBD371 09/16/13'. DTSBD371
|
|
00254 77 PAN-VALET PICTURE X(24) VALUE '094DTSBD371 07/08/13'. DTSBD371
|
|
00255 77 PAN-VALET PICTURE X(24) VALUE '004DTSBD371 07/08/13'. DTSBD371
|
|
00256 77 PAN-VALET PICTURE X(24) VALUE '092DTSBD371 06/20/13'. DTSBD371
|
|
00257 77 PAN-VALET PICTURE X(24) VALUE '008DTSBD371 06/12/13'. DTSBD371
|
|
00258 77 PAN-VALET PICTURE X(24) VALUE '090DTSBD371 05/20/13'. DTSBD371
|
|
00259 77 PAN-VALET PICTURE X(24) VALUE '017DTSBD371 05/16/13'. DTSBD371
|
|
00260 77 PAN-VALET PICTURE X(24) VALUE '054DTSBD371 05/08/13'. DTSBD371
|
|
00261 77 PAN-VALET PICTURE X(24) VALUE '085DTSBD371 03/12/12'. DTSBD371
|
|
00262 SKIP3 DTSBD371
|
|
00263 01 WRK-AREA. DTSBD371
|
|
00264 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +371.DTSBD371
|
|
00265 DTSBD371
|
|
00266 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD371'.DTSBD371
|
|
00267 DTSBD371
|
|
00268 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD371
|
|
00269 DTSBD371
|
|
00270 05 WRK-NULL-DOC-NO. DTSBD371
|
|
00271 10 WRK-NULL-BATCH-NO PIC S9(05) COMP-3. DTSBD371
|
|
00272 10 WRK-NULL-ITEM-NO PIC S9(03) COMP-3. DTSBD371
|
|
00273 DTSBD371
|
|
00274 05 PRE-UPDATE-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBD371
|
|
00275 DTSBD371
|
|
00276 05 PRE-UPDATE-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSBD371
|
|
00277 DTSBD371
|
|
00278 05 PRE-UPDATE-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBD371
|
|
00279 DTSBD371
|
|
00280 05 PRE-UPDATE-UI-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00281 DTSBD371
|
|
00282 05 PRE-UPDATE-SUR-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00283 DTSBD371
|
|
00284 05 PRE-UPDATE-CURR-RPT-TYPE PIC X(01). DTSBD371
|
|
00285 88 PRE-UPDATE-CURR-ESTIM-88 VALUE 'E'. DTSBD371
|
|
00286 DTSBD371
|
|
00287 05 WRK-CW-ON-FILE-IND PIC X(01). DTSBD371
|
|
00288 88 WRK-CW-ON-FILE-YES-88 VALUE 'Y'. DTSBD371
|
|
00289 88 WRK-CW-ON-FILE-NO-88 VALUE 'N'. DTSBD371
|
|
00290 DTSBD371
|
|
00291 05 WRK-CW-SAME-DAY-IND PIC X(01). DTSBD371
|
|
00292 88 WRK-CW-SAME-DAY-YES-88 VALUE 'Y'. DTSBD371
|
|
00293 88 WRK-CW-SAME-DAY-NO-88 VALUE 'N'. DTSBD371
|
|
00294 DTSBD371
|
|
00295 05 WRK-CW-ADJUST-IND PIC X(01). DTSBD371
|
|
00296 88 WRK-CW-ADJUST-YES-88 VALUE 'Y'. DTSBD371
|
|
00297 88 WRK-CW-ADJUST-NO-88 VALUE 'N'. DTSBD371
|
|
00298 DTSBD371
|
|
00299 05 UI-SUB PIC S9(04) COMP. DTSBD371
|
|
00300 DTSBD371
|
|
00301 05 SUR-SUB PIC S9(04) COMP. DTSBD371
|
|
00302 DTSBD371
|
|
00303 05 INT-SUB PIC S9(04) COMP. DTSBD371
|
|
00304 DTSBD371
|
|
00305 05 LATE-PEN-SUB PIC S9(04) COMP. DTSBD371
|
|
00306 DTSBD371
|
|
00307 05 NSF-PEN-SUB PIC S9(04) COMP. DTSBD371
|
|
00308 DTSBD371
|
|
00309 05 MISC-PEN-SUB PIC S9(04) COMP. DTSBD371
|
|
00310 DTSBD371
|
|
00311 05 NEW-RPT-DUE-DATE PIC S9(09) COMP-3. DTSBD371
|
|
00312 DTSBD371
|
|
00313 05 NEW-TAX-DUE-DATE PIC S9(09) COMP-3. DTSBD371
|
|
00314 DTSBD371
|
|
00315 05 WRK-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSBD371
|
|
00316 DTSBD371
|
|
00317 05 WRK-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSBD371
|
|
00318 DTSBD371
|
|
00319 05 WRK-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSBD371
|
|
00320 DTSBD371
|
|
00321 05 WRK-UI-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00322 DTSBD371
|
|
00323 05 WRK-SUR-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00324 DTSBD371
|
|
00325 05 WRK-TAX-CHRG-DIFF-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00326 DTSBD371
|
|
00327 05 WRK-TIMELY-PAYMENTS PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00328 DTSBD371
|
|
00329 05 TAX-RATE PIC S9(01)V9(04) COMP-3. DTSBD371
|
|
00330 DTSBD371
|
|
00331 05 WRK-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00332 DTSBD371
|
|
00333 05 WRK-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00334 DTSBD371
|
|
00335 05 WRK-FIRST-PEN-INT-YRQ PIC S9(05) COMP-3. DTSBD371
|
|
00336 DTSBD371
|
|
00337 05 WRK-TOT-WAGE-ADJ PIC S9(11)V9(02) COMP-3. DTSBD371
|
|
00338 DTSBD371
|
|
00339 05 WRK-TAX-WAGE-ADJ PIC S9(11)V9(02) COMP-3. DTSBD371
|
|
00340 DTSBD371
|
|
00341 05 ACCT-SUB PIC S9(04) COMP. DTSBD371
|
|
00342 DTSBD371
|
|
00343 05 ACCT-SUB1 PIC S9(04) COMP. DTSBD371
|
|
00344 DTSBD371
|
|
00345 05 ACCT-SUB2 PIC S9(04) COMP. DTSBD371
|
|
00346 DTSBD371
|
|
00347 05 ACCT-CRUNCH-COMPLETE-IND PIC X(01). DTSBD371
|
|
00348 DTSBD371
|
|
00349 05 WRK-RPT-DUE-DATE PIC S9(09) COMP-3. DTSBD371
|
|
00350 DTSBD371
|
|
00351 05 WRK-PURSUED-RPT-IND PIC X(01). DTSBD371
|
|
00352 DTSBD371
|
|
00353 05 WRK-UC30H-DEL-END-YRQ PIC S9(05) COMP-3. DTSBD371
|
|
00354 DTSBD371
|
|
00355 05 WRK-LAST-DEL-YRQ PIC S9(05) COMP-3. DTSBD371
|
|
00356 DTSBD371
|
|
00357 05 WRK-FIRST-ANN-YRQ PIC S9(05) COMP-3 DTSBD371
|
|
00358 VALUE +20021. DTSBD371
|
|
00359 DTSBD371
|
|
00360 05 WRK-ANN-YRQ1 PIC S9(05) COMP-3. DTSBD371
|
|
00361 05 WRK-ANN-YRQ4 PIC S9(05) COMP-3. DTSBD371
|
|
00362 05 WRK-ANN-REMIT-AMT PIC S9(09)V9(02) COMP-3 DTSBD371
|
|
00363 VALUE +0. DTSBD371
|
|
00364 05 WRK-REMIT-AMT PIC S9(09)V9(02) COMP-3 DTSBD371
|
|
00365 VALUE +0. DTSBD371
|
|
00366 05 WRK-ANN-TAX-CHG-AMT PIC S9(09)V9(02) COMP-3 DTSBD371
|
|
00367 VALUE +0. DTSBD371
|
|
00368 05 WRK-ANN-LP-CHG-AMT PIC S9(09)V9(02) COMP-3 DTSBD371
|
|
00369 VALUE +0. DTSBD371
|
|
00370 DTSBD371
|
|
00371 05 WRK-R316-YRQ PIC 9(05). DTSBD371
|
|
00372 05 WRK-R316-YRQX REDEFINES WRK-R316-YRQ. DTSBD371
|
|
00373 10 WRK-R316-YR PIC 9(4). DTSBD371
|
|
00374 10 WRK-R316-Q PIC 9(1). DTSBD371
|
|
00375 DTSBD371
|
|
00376 05 WRK-R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00377 DTSBD371
|
|
00378 05 WRK-R316-SUR-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00379 DTSBD371
|
|
00380 05 WRK-R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00381 DTSBD371
|
|
00382 05 WRK-R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00383 DTSBD371
|
|
00384 05 WRK-MNTE-AREA. DTSBD371
|
|
00385 10 WRK-MNTE-SUBJECT PIC X(40) VALUE DTSBD371
|
|
00386 'EMPLOYER REPORT WAGES ADJUSTED FROM CW '. DTSBD371
|
|
00387 DTSBD371
|
|
00388 10 WRK-MNTE-LINE1. DTSBD371
|
|
00389 15 FILLER PIC X(40) VALUE DTSBD371
|
|
00390 'TOTAL AND TAXABLE WAGES ADJUSTED FOR: '. DTSBD371
|
|
00391 10 WRK-MNTE-LINE2. DTSBD371
|
|
00392 15 FILLER PIC X(05) VALUE DTSBD371
|
|
00393 'QTR: '. DTSBD371
|
|
00394 15 WRK-MNTE-YRQ PIC X(06). DTSBD371
|
|
00395 15 FILLER PIC X(09) VALUE DTSBD371
|
|
00396 ' BATCH: '. DTSBD371
|
|
00397 15 WRK-MNTE-BATCH PIC 9(05). DTSBD371
|
|
00398 15 FILLER PIC X(08) VALUE DTSBD371
|
|
00399 ' ITEM: '. DTSBD371
|
|
00400 15 WRK-MNTE-ITEM PIC 9(03). DTSBD371
|
|
00401 10 WRK-MNTE-LINE3. DTSBD371
|
|
00402 15 FILLER PIC X(22) VALUE DTSBD371
|
|
00403 'EMPL RPT TOTAL WAGES: '. DTSBD371
|
|
00404 15 WRK-MNTE-OR-TOT-WAGE PIC ----------9.99. DTSBD371
|
|
00405 15 FILLER PIC X(22) VALUE DTSBD371
|
|
00406 ' EMP RPT TAX WAGES : '. DTSBD371
|
|
00407 15 WRK-MNTE-OR-TAX-WAGE PIC ----------9.99. DTSBD371
|
|
00408 10 WRK-MNTE-LINE4. DTSBD371
|
|
00409 15 FILLER PIC X(22) VALUE DTSBD371
|
|
00410 'ADJUSTED TOTAL WAGES: '. DTSBD371
|
|
00411 15 WRK-MNTE-ADJ-TOT-WAGE PIC ----------9.99. DTSBD371
|
|
00412 15 FILLER PIC X(22) VALUE DTSBD371
|
|
00413 ' ADJUSTED TAX WAGES: '. DTSBD371
|
|
00414 15 WRK-MNTE-ADJ-TAX-WAGE PIC ----------9.99. DTSBD371
|
|
00415 DTSBD371
|
|
00416 05 WRK-AMT1 PIC S9(09)V9(02) COMP-3. DTSBD371
|
|
00417 DTSBD371
|
|
00418 05 AMT-DISP1 PIC --,---,---,--9.99. DTSBD371
|
|
00419 05 AMT-DISP2 PIC ---,---,--9.99. DTSBD371
|
|
00420 05 AMT-DISP3 PIC ---,---,--9.99. DTSBD371
|
|
00421 05 AMT-DISP-RATE1 PIC 9.9999. DTSBD371
|
|
00422 05 AMT-DISP-RATE2 PIC 9.9999. DTSBD371
|
|
00423 DTSBD371
|
|
00424 05 EVL-TEXT PIC X(50). DTSBD371
|
|
00425 DTSBD371
|
|
00426 05 WRK-0-WAGE-INACT-IND PIC X(01). DTSBD371
|
|
00427 88 WRK-0-WAGE-INACT-YES-88 VALUE 'Y'. DTSBD371
|
|
00428 88 WRK-0-WAGE-INACT-NO-88 VALUE 'N'. DTSBD371
|
|
00429 DTSBD371
|
|
00430 01 MSG-TABLE. DTSBD371
|
|
00431 05 MSG0-NOT-PASSED-FULL-EDITS. DTSBD371
|
|
00432 10 MSG0-ID PIC X(11) VALUE 'DTSBD371905'. DTSBD371
|
|
00433 10 MSG0-SHORT-TEXT PIC X(20) VALUE 'FAILED FULL EDT'. DTSBD371
|
|
00434 10 MSG0-LONG-TEXT. DTSBD371
|
|
00435 15 FILLER PIC X(30) DTSBD371
|
|
00436 VALUE 'TRANSACTION FAILED - DID NOT P'. DTSBD371
|
|
00437 15 FILLER PIC X(30) DTSBD371
|
|
00438 VALUE 'ASS FULL EDITS ON SCREEN 24 '. DTSBD371
|
|
00439 DTSBD371
|
|
00440 05 MSG1-INVALID-RPT-TYPE. DTSBD371
|
|
00441 10 MSG1-ID PIC X(11) VALUE 'DTSBD371311'. DTSBD371
|
|
00442 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'INVALID RPT TY'. DTSBD371
|
|
00443 10 MSG1-LONG-TEXT. DTSBD371
|
|
00444 15 FILLER PIC X(30) DTSBD371
|
|
00445 VALUE 'TRANSACTION FAILED - REPORT TY'. DTSBD371
|
|
00446 15 FILLER PIC X(30) DTSBD371
|
|
00447 VALUE 'PE NOT VALID '. DTSBD371
|
|
00448 DTSBD371
|
|
00449 05 MSG2-INCONSISTANT-RPT-TYPE. DTSBD371
|
|
00450 10 MSG2-ID PIC X(11) VALUE 'DTSBD371312'. DTSBD371
|
|
00451 10 MSG2-SHORT-TEXT PIC X(20) VALUE 'INCONST RPT TY'. DTSBD371
|
|
00452 10 MSG2-LONG-TEXT. DTSBD371
|
|
00453 15 FILLER PIC X(30) DTSBD371
|
|
00454 VALUE 'TRANSACTION FAILED - RPT TYP N'. DTSBD371
|
|
00455 15 FILLER PIC X(30) DTSBD371
|
|
00456 VALUE 'OT CONSISTANT WITH CURR RPT TY'. DTSBD371
|
|
00457 DTSBD371
|
|
00458 05 MSG3-NOT-LIABLE. DTSBD371
|
|
00459 10 MSG3-ID PIC X(11) VALUE 'DTSBD371313'. DTSBD371
|
|
00460 10 MSG3-SHORT-TEXT PIC X(20) VALUE 'EMP NOT LIABLE'. DTSBD371
|
|
00461 10 MSG3-LONG-TEXT. DTSBD371
|
|
00462 15 FILLER PIC X(30) DTSBD371
|
|
00463 VALUE 'TRANSACTION FAILED - EMPLOYER '. DTSBD371
|
|
00464 15 FILLER PIC X(30) DTSBD371
|
|
00465 VALUE 'NOT LIABLE DURING RPT-YRQ '. DTSBD371
|
|
00466 DTSBD371
|
|
00467 05 MSG4-NO-RATE. DTSBD371
|
|
00468 10 MSG4-ID PIC X(11) VALUE 'DTSBD371314'. DTSBD371
|
|
00469 10 MSG4-SHORT-TEXT PIC X(20) VALUE 'NO RATE EXISTS'. DTSBD371
|
|
00470 10 MSG4-LONG-TEXT. DTSBD371
|
|
00471 15 FILLER PIC X(30) DTSBD371
|
|
00472 VALUE 'TRANSACTION FAILED - NO RATE E'. DTSBD371
|
|
00473 15 FILLER PIC X(30) DTSBD371
|
|
00474 VALUE 'XISTS FOR RPT-YRQ '. DTSBD371
|
|
00475 DTSBD371
|
|
00476 05 MSG5-NEGATIVE-NUMERIC. DTSBD371
|
|
00477 10 MSG5-ID PIC X(11) VALUE 'DTSBD371315'. DTSBD371
|
|
00478 10 MSG5-SHORT-TEXT PIC X(20) VALUE 'YIELDS NEGATIV'. DTSBD371
|
|
00479 10 MSG5-LONG-TEXT. DTSBD371
|
|
00480 15 FILLER PIC X(30) DTSBD371
|
|
00481 VALUE 'TRANSACTION FAILED - WOULD RES'. DTSBD371
|
|
00482 15 FILLER PIC X(30) DTSBD371
|
|
00483 VALUE 'ULT IN NEGATIVE NUMERIC FIELD '. DTSBD371
|
|
00484 DTSBD371
|
|
00485 05 MSG6-MANUAL-INT-QTR. DTSBD371
|
|
00486 10 MSG6-ID. DTSBD371
|
|
00487 15 MSG6-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00488 15 MSG6-ID2 PIC X(03) VALUE '316'. DTSBD371
|
|
00489 10 MSG6-SHORT-TEXT PIC X(20) VALUE 'MANUAL INT QTR'. DTSBD371
|
|
00490 10 MSG6-LONG-TEXT. DTSBD371
|
|
00491 15 FILLER PIC X(30) DTSBD371
|
|
00492 VALUE 'QUARTERLY REPORT PROCESSED FOR'. DTSBD371
|
|
00493 15 FILLER PIC X(26) DTSBD371
|
|
00494 VALUE ' MANUAL INTEREST QUARTER: '. DTSBD371
|
|
00495 15 MSG6-YRQ PIC X(04). DTSBD371
|
|
00496 DTSBD371
|
|
00497 05 MSG7-MANUAL-PEN-QTR. DTSBD371
|
|
00498 10 MSG7-ID. DTSBD371
|
|
00499 15 MSG7-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00500 15 MSG7-ID2 PIC X(03) VALUE '317'. DTSBD371
|
|
00501 10 MSG7-SHORT-TEXT PIC X(20) VALUE 'MANUAL PEN QTR'. DTSBD371
|
|
00502 10 MSG7-LONG-TEXT. DTSBD371
|
|
00503 15 FILLER PIC X(30) DTSBD371
|
|
00504 VALUE 'QUARTERLY REPORT PROCESSED FOR'. DTSBD371
|
|
00505 15 FILLER PIC X(26) DTSBD371
|
|
00506 VALUE ' MANUAL PENALTY QUARTER: '. DTSBD371
|
|
00507 15 MSG7-YRQ PIC X(04). DTSBD371
|
|
00508 DTSBD371
|
|
00509 05 MSG8-DUPLICATE-TRAN. DTSBD371
|
|
00510 10 MSG8-ID PIC X(11) VALUE 'DTSBD371307'. DTSBD371
|
|
00511 10 MSG8-SHORT-TEXT PIC X(20) VALUE 'DUPLICATE TRAN'. DTSBD371
|
|
00512 10 MSG8-LONG-TEXT. DTSBD371
|
|
00513 15 FILLER PIC X(30) DTSBD371
|
|
00514 VALUE 'TRANSACTION FAILED - DUPLICATE'. DTSBD371
|
|
00515 15 FILLER PIC X(30) DTSBD371
|
|
00516 VALUE ' TRANSACTION '. DTSBD371
|
|
00517 DTSBD371
|
|
00518 05 MSG9-ESTIM-OVERLAY. DTSBD371
|
|
00519 10 MSG9-ID. DTSBD371
|
|
00520 15 MSG9-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00521 15 MSG9-ID2 PIC X(03) VALUE '318'. DTSBD371
|
|
00522 10 MSG9-SHORT-TEXT PIC X(20) VALUE 'ESTIMATED OVLY'. DTSBD371
|
|
00523 10 MSG9-LONG-TEXT. DTSBD371
|
|
00524 15 FILLER PIC X(30) DTSBD371
|
|
00525 VALUE 'ESTIMATED REPORT REPLACED BY O'. DTSBD371
|
|
00526 15 FILLER PIC X(26) DTSBD371
|
|
00527 VALUE 'RIGINAL REPORT. QUARTER: '. DTSBD371
|
|
00528 15 MSG9-YRQ PIC X(04). DTSBD371
|
|
00529 DTSBD371
|
|
00530 05 MSG10-LESS-OR-EQUAL-PKUP-YRQ. DTSBD371
|
|
00531 10 MSG10-ID. DTSBD371
|
|
00532 15 MSG10-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00533 15 MSG10-ID2 PIC X(03) VALUE '319'. DTSBD371
|
|
00534 10 MSG10-SHORT-TEXT PIC X(20) VALUE 'YRQ <= 19924 '. DTSBD371
|
|
00535 10 MSG10-LONG-TEXT. DTSBD371
|
|
00536 15 FILLER PIC X(30) DTSBD371
|
|
00537 VALUE 'TRANSACTION FAILED - YRQ <= PI'. DTSBD371
|
|
00538 15 FILLER PIC X(30) DTSBD371
|
|
00539 VALUE 'CKUP YRQ (1992/4) '. DTSBD371
|
|
00540 DTSBD371
|
|
00541 05 MSG11-CLMT-WG-RPT-FOUND. DTSBD371
|
|
00542 10 MSG11-ID. DTSBD371
|
|
00543 15 MSG11-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00544 15 MSG11-ID2 PIC X(03) VALUE '320'. DTSBD371
|
|
00545 10 MSG11-SHORT-TEXT PIC X(20) VALUE 'CLAIMNT WG RPT'. DTSBD371
|
|
00546 10 MSG11-LONG-TEXT. DTSBD371
|
|
00547 15 FILLER PIC X(30) DTSBD371
|
|
00548 VALUE 'TRANSACTION HELD - CLAIMANT WG'. DTSBD371
|
|
00549 15 FILLER PIC X(30) DTSBD371
|
|
00550 VALUE ' RPT FOUND - CURR WAGES NEEDED'. DTSBD371
|
|
00551 DTSBD371
|
|
00552 05 MSG12-CW-SAME-DAY. DTSBD371
|
|
00553 10 MSG12-ID. DTSBD371
|
|
00554 15 MSG12-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00555 15 MSG12-ID2 PIC X(03) VALUE '321'. DTSBD371
|
|
00556 10 MSG12-SHORT-TEXT PIC X(20) VALUE 'CW SAME DAY '. DTSBD371
|
|
00557 10 MSG12-LONG-TEXT. DTSBD371
|
|
00558 15 FILLER PIC X(30) DTSBD371
|
|
00559 VALUE 'TRANSACTION HELD - CLAIMANT WG'. DTSBD371
|
|
00560 15 FILLER PIC X(30) DTSBD371
|
|
00561 VALUE ' RPT ENTERED SAME DAY AS ORIG '. DTSBD371
|
|
00562 DTSBD371
|
|
00563 05 MSG13-CW-EMPL-CNT. DTSBD371
|
|
00564 10 MSG13-ID. DTSBD371
|
|
00565 15 MSG13-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00566 15 MSG13-ID2 PIC X(03) VALUE '322'. DTSBD371
|
|
00567 10 MSG13-SHORT-TEXT PIC X(20) VALUE 'CW WORKER CNTS'. DTSBD371
|
|
00568 10 MSG13-LONG-TEXT. DTSBD371
|
|
00569 15 FILLER PIC X(30) DTSBD371
|
|
00570 VALUE 'TRANSACTION FAILED - CLAIMANT '. DTSBD371
|
|
00571 15 FILLER PIC X(30) DTSBD371
|
|
00572 VALUE 'WAGE RPT WITH WORKER COUNTS '. DTSBD371
|
|
00573 DTSBD371
|
|
00574 05 MSG14-WAGES-ON-NON-LIABLE-YRQ. DTSBD371
|
|
00575 10 MSG14-ID. DTSBD371
|
|
00576 15 MSG14-ID1 PIC X(08) VALUE 'DTSBD371'. DTSBD371
|
|
00577 15 MSG14-ID2 PIC X(03) VALUE '323'. DTSBD371
|
|
00578 10 MSG14-SHORT-TEXT PIC X(20) DTSBD371
|
|
00579 VALUE 'NON-LIAB-QTR W/WAGES'. DTSBD371
|
|
00580 10 MSG14-LONG-TEXT. DTSBD371
|
|
00581 15 FILLER PIC X(30) DTSBD371
|
|
00582 VALUE 'TRANSACTION FAILED - WAGES REP'. DTSBD371
|
|
00583 15 FILLER PIC X(30) DTSBD371
|
|
00584 VALUE 'ORTED ON NON-LIABLE QTR '. DTSBD371
|
|
00585 DTSBD371
|
|
00586 01 EVL-TABLE. DTSBD371
|
|
00587 05 EVL1-TEXT. DTSBD371
|
|
00588 10 FILLER PIC X(45) DTSBD371
|
|
00589 VALUE 'REPORT RCVD WITHOUT USEABLE WAGE DATA. YRQ: '. DTSBD371
|
|
00590 10 EVL1-SLASH-QTR PIC X(04). DTSBD371
|
|
00591 05 EVL2-TEXT. DTSBD371
|
|
00592 10 FILLER PIC X(45) DTSBD371
|
|
00593 VALUE 'ZERO-WAGE REPORT RCVD - ACCT INACTIVE. YRQ: '. DTSBD371
|
|
00594 10 EVL2-SLASH-QTR PIC X(04). DTSBD371
|
|
00595 EJECT DTSBD371
|
|
00596 01 APAY-REC. DTSBD371
|
|
00597 ++INCLUDE DTSIAPAY DTSBD371
|
|
00598 EJECT DTSBD371
|
|
00599 01 R316-REC. DTSBD371
|
|
00600 ++INCLUDE DTSIR316 DTSBD371
|
|
00601 EJECT DTSBD371
|
|
00602 01 R726-REC. DTSBD371
|
|
00603 ++INCLUDE DTSIR726 DTSBD371
|
|
00604 EJECT DTSBD371
|
|
00605 01 R907-REC. DTSBD371
|
|
00606 ++INCLUDE DTSIR907 DTSBD371
|
|
00607 EJECT DTSBD371
|
|
00608 01 L910-LINK-AREA. DTSBD371
|
|
00609 ++INCLUDE DTSIL910 DTSBD371
|
|
00610 SKIP3 DTSBD371
|
|
00611 01 MSKL-REC. DTSBD371
|
|
00612 ++INCLUDE DTSIMSKL DTSBD371
|
|
00613 SKIP3 DTSBD371
|
|
00614 01 MQTR-REC. DTSBD371
|
|
00615 ++INCLUDE DTSIMQTR DTSBD371
|
|
00616 SKIP3 DTSBD371
|
|
00617 01 MRPT-REC. DTSBD371
|
|
00618 ++INCLUDE DTSIMRPT DTSBD371
|
|
00619 SKIP3 DTSBD371
|
|
00620 01 MPAY-REC. DTSBD371
|
|
00621 ++INCLUDE DTSIMPAY DTSBD371
|
|
00622 SKIP3 DTSBD371
|
|
00623 01 MTCK-REC. DTSBD371
|
|
00624 ++INCLUDE DTSIMTCK DTSBD371
|
|
00625 SKIP3 DTSBD371
|
|
00626 01 MDST-REC. DTSBD371
|
|
00627 ++INCLUDE DTSIMDST DTSBD371
|
|
00628 SKIP3 DTSBD371
|
|
00629 01 MEVL-REC. DTSBD371
|
|
00630 ++INCLUDE DTSIMEVL DTSBD371
|
|
00631 EJECT DTSBD371
|
|
00632 01 MNTE-REC. DTSBD371
|
|
00633 ++INCLUDE DTSIMNTE DTSBD371
|
|
00634 EJECT DTSBD371
|
|
00635 01 L001-LINK-AREA. DTSBD371
|
|
00636 ++INCLUDE DTSIL001 DTSBD371
|
|
00637 SKIP3 DTSBD371
|
|
00638 01 L004-LINK-AREA. DTSBD371
|
|
00639 ++INCLUDE DTSIL004 DTSBD371
|
|
00640 SKIP3 DTSBD371
|
|
00641 01 L005-LINK-AREA. DTSBD371
|
|
00642 ++INCLUDE DTSIL005 DTSBD371
|
|
00643 SKIP3 DTSBD371
|
|
00644 01 L101-LINK-AREA. DTSBD371
|
|
00645 ++INCLUDE DTSIL101 DTSBD371
|
|
00646 SKIP3 DTSBD371
|
|
00647 01 L102-LINK-AREA. DTSBD371
|
|
00648 ++INCLUDE DTSIL102 DTSBD371
|
|
00649 SKIP3 DTSBD371
|
|
00650 01 L109-LINK-AREA. DTSBD371
|
|
00651 ++INCLUDE DTSIL109 DTSBD371
|
|
00652 SKIP3 DTSBD371
|
|
00653 01 L111-LINK-AREA. DTSBD371
|
|
00654 ++INCLUDE DTSIL111 DTSBD371
|
|
00655 SKIP3 DTSBD371
|
|
00656 01 L112-LINK-AREA. DTSBD371
|
|
00657 ++INCLUDE DTSIL112 DTSBD371
|
|
00658 SKIP3 DTSBD371
|
|
00659 01 L415-LINK-AREA. DTSBD371
|
|
00660 ++INCLUDE DTSIL415 DTSBD371
|
|
00661 SKIP3 DTSBD371
|
|
00662 01 L420-LINK-AREA. DTSBD371
|
|
00663 ++INCLUDE DTSIL420 DTSBD371
|
|
00664 SKIP3 DTSBD371
|
|
00665 01 L424-LINK-AREA. DTSBD371
|
|
00666 ++INCLUDE DTSIL424 DTSBD371
|
|
00667 SKIP3 DTSBD371
|
|
00668 01 L516-LINK-AREA. DTSBD371
|
|
00669 ++INCLUDE DTSIL516 DTSBD371
|
|
00670 SKIP3 DTSBD371
|
|
00671 01 L520-LINK-AREA. DTSBD371
|
|
00672 ++INCLUDE DTSIL520 DTSBD371
|
|
00673 SKIP3 DTSBD371
|
|
00674 01 L522-LINK-AREA. DTSBD371
|
|
00675 ++INCLUDE DTSIL522 DTSBD371
|
|
00676 SKIP3 DTSBD371
|
|
00677 01 L541-LINK-AREA. DTSBD371
|
|
00678 ++INCLUDE DTSIL541 DTSBD371
|
|
00679 SKIP3 DTSBD371
|
|
00680 01 L549-LINK-AREA. DTSBD371
|
|
00681 ++INCLUDE DTSIL549 DTSBD371
|
|
00682 EJECT DTSBD371
|
|
00683 01 L590-LINK-AREA. DTSBD371
|
|
00684 ++INCLUDE DTSIL590 DTSBD371
|
|
00685 EJECT DTSBD371
|
|
00686 01 MMAX-LITERALS. DTSBD371
|
|
00687 ++INCLUDE DTSIMMAX DTSBD371
|
|
00688 SKIP3 DTSBD371
|
|
00689 01 CACT-LITERALS. DTSBD371
|
|
00690 ++INCLUDE DTSICACT DTSBD371
|
|
00691 EJECT DTSBD371
|
|
00692 LINKAGE SECTION. DTSBD371
|
|
00693 SKIP3 DTSBD371
|
|
00694 01 LBCM-LINK-AREA. DTSBD371
|
|
00695 ++INCLUDE DTSILBCM DTSBD371
|
|
00696 EJECT DTSBD371
|
|
00697 01 MPRF-REC. DTSBD371
|
|
00698 ++INCLUDE DTSIMPRF DTSBD371
|
|
00699 EJECT DTSBD371
|
|
00700 01 ARPT-REC. DTSBD371
|
|
00701 ++INCLUDE DTSIARPT DTSBD371
|
|
00702 EJECT DTSBD371
|
|
00703 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD371
|
|
00704 MPRF-REC DTSBD371
|
|
00705 ARPT-REC. DTSBD371
|
|
00706 DTSBD371
|
|
00707 IF FIRST-TIME-IND = 'Y' DTSBD371
|
|
00708 PERFORM I0000-FIRST-TIME THRU I0000-EXIT DTSBD371
|
|
00709 MOVE 'N' TO FIRST-TIME-IND. DTSBD371
|
|
00710 DTSBD371
|
|
00711 DTSBD371
|
|
00712 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD371
|
|
00713 DTSBD371
|
|
00714 DTSBD371
|
|
00715 GOBACK. DTSBD371
|
|
00716 EJECT DTSBD371
|
|
00717 I0000-FIRST-TIME. DTSBD371
|
|
00718 MOVE LBCM-TRACE-IND TO L910-TRACE-IND DTSBD371
|
|
00719 L516-TRACE-IND. DTSBD371
|
|
00720 DTSBD371
|
|
00721 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBD371
|
|
00722 R907-MODULE-NAME. DTSBD371
|
|
00723 DTSBD371
|
|
00724 MOVE LENGTH OF R316-REC TO R316-LENGTH. DTSBD371
|
|
00725 DTSBD371
|
|
00726 MOVE '316' TO R316-REC-TYPE. DTSBD371
|
|
00727 DTSBD371
|
|
00728 MOVE LENGTH OF R726-REC TO R726-LENGTH. DTSBD371
|
|
00729 DTSBD371
|
|
00730 MOVE '726' TO R726-REC-TYPE. DTSBD371
|
|
00731 DTSBD371
|
|
00732 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBD371
|
|
00733 DTSBD371
|
|
00734 MOVE '907' TO R907-REC-TYPE. DTSBD371
|
|
00735 DTSBD371
|
|
00736 MOVE +0 TO WRK-NULL-BATCH-NO DTSBD371
|
|
00737 WRK-NULL-ITEM-NO. DTSBD371
|
|
00738 DTSBD371
|
|
00739 SET L415-MODE-MOST-RECENT-88 TO TRUE. DTSBD371
|
|
00740 PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT. DTSBD371
|
|
00741 MOVE L415-UC30H-FIRST-DEL-END-YRQ DTSBD371
|
|
00742 TO WRK-UC30H-DEL-END-YRQ. DTSBD371
|
|
00743 DISPLAY 'I0000 ANN DEL YR END ' WRK-UC30H-DEL-END-YRQ. DTSBD371
|
|
00744 DTSBD371
|
|
00745 PERFORM S109-FIRST-PEN-INT-YRQ THRU S109-EXIT. DTSBD371
|
|
00746 MOVE L109-FIRST-PEN-INT-YRQ TO WRK-FIRST-PEN-INT-YRQ. DTSBD371
|
|
00747 DTSBD371
|
|
00748 I0000-EXIT. DTSBD371
|
|
00749 EXIT. DTSBD371
|
|
00750 EJECT DTSBD371
|
|
00751 P0000-PROCESS. DTSBD371
|
|
00752 *& DTSBD371
|
|
00753 * IF ARPT-EMP-NO = 149318 DTSBD371
|
|
00754 * DISPLAY 'DTSBD371 P0000 FIRST ' ARPT-EMP-NO DTSBD371
|
|
00755 * ' ' ARPT-YRQ DTSBD371
|
|
00756 * ' ' ARPT-RPT-TYPE DTSBD371
|
|
00757 * ' ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO. DTSBD371
|
|
00758 * END-IF. DTSBD371
|
|
00759 *& DTSBD371
|
|
00760 SET WRK-0-WAGE-INACT-NO-88 TO TRUE. DTSBD371
|
|
00761 SET WRK-CW-ON-FILE-NO-88 TO TRUE. DTSBD371
|
|
00762 SET WRK-CW-SAME-DAY-NO-88 TO TRUE. DTSBD371
|
|
00763 SET WRK-CW-ADJUST-NO-88 TO TRUE . DTSBD371
|
|
00764 DTSBD371
|
|
00765 MOVE MPRF-EMP-NO TO R907-EMP-NO. DTSBD371
|
|
00766 DTSBD371
|
|
00767 IF (ARPT-PASSED-FULL-EDITS-NO-88) DTSBD371
|
|
00768 OR DTSBD371
|
|
00769 (ARPT-EMP-NO-NO-ENTRY-88) DTSBD371
|
|
00770 OR DTSBD371
|
|
00771 (ARPT-YRQ-NO-ENTRY-88) DTSBD371
|
|
00772 OR DTSBD371
|
|
00773 (ARPT-TOT-WAGE-NO-ENTRY-88) DTSBD371
|
|
00774 OR DTSBD371
|
|
00775 (ARPT-EXCESS-WAGE-NO-ENTRY-88) DTSBD371
|
|
00776 OR DTSBD371
|
|
00777 (ARPT-TAX-WAGE-NO-ENTRY-88) DTSBD371
|
|
00778 OR DTSBD371
|
|
00779 (ARPT-REMIT-AMT-NO-ENTRY-88) DTSBD371
|
|
00780 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
00781 MOVE MSG0-NOT-PASSED-FULL-EDITS DTSBD371
|
|
00782 TO LBCM-TRN-MSG-AREA DTSBD371
|
|
00783 GO TO P0000-EXIT DTSBD371
|
|
00784 END-IF. DTSBD371
|
|
00785 DTSBD371
|
|
00786 MOVE ARPT-YRQ TO L516-YRQ. DTSBD371
|
|
00787 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD371
|
|
00788 DTSBD371
|
|
00789 IF L516-ANN-SCHED-88 DTSBD371
|
|
00790 MOVE WRK-UC30H-DEL-END-YRQ TO WRK-LAST-DEL-YRQ DTSBD371
|
|
00791 DISPLAY 'BD371 ANNUAL FILER ' MPRF-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
00792 PERFORM P0050-ANN-REMITTANCE THRU P0050-EXIT DTSBD371
|
|
00793 ELSE DTSBD371
|
|
00794 MOVE LBCM-LAST-UC30-DEL-MAIL-YRQ TO WRK-LAST-DEL-YRQ DTSBD371
|
|
00795 END-IF. DTSBD371
|
|
00796 DTSBD371
|
|
00797 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBD371
|
|
00798 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD371
|
|
00799 SET MQTR-QTR-88 TO TRUE. DTSBD371
|
|
00800 MOVE ARPT-YRQ TO MQTR-YRQ. DTSBD371
|
|
00801 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD371
|
|
00802 DTSBD371
|
|
00803 PERFORM S910-READ THRU S910-EXIT. DTSBD371
|
|
00804 DTSBD371
|
|
00805 IF L910-NO-REC-88 DTSBD371
|
|
00806 PERFORM S511-MQTR-INIT THRU S511-EXIT DTSBD371
|
|
00807 IF MQTR-YRQ > WRK-LAST-DEL-YRQ DTSBD371
|
|
00808 SET MQTR-MISS-NOT-YET-RUN-88 TO TRUE DTSBD371
|
|
00809 ELSE DTSBD371
|
|
00810 SET MQTR-MISS-NOT-LIABLE-88 TO TRUE DTSBD371
|
|
00811 END-IF DTSBD371
|
|
00812 ELSE DTSBD371
|
|
00813 MOVE MSKL-REC TO MQTR-REC. DTSBD371
|
|
00814 DTSBD371
|
|
00815 MOVE MQTR-TOT-WAGE TO PRE-UPDATE-TOT-WAGE. DTSBD371
|
|
00816 DTSBD371
|
|
00817 MOVE MQTR-TAX-WAGE TO PRE-UPDATE-TAX-WAGE. DTSBD371
|
|
00818 DTSBD371
|
|
00819 MOVE MQTR-EXCESS-WAGE TO PRE-UPDATE-EXCESS-WAGE. DTSBD371
|
|
00820 DTSBD371
|
|
00821 MOVE MQTR-CURR-RPT-TYPE TO PRE-UPDATE-CURR-RPT-TYPE. DTSBD371
|
|
00822 DTSBD371
|
|
00823 MOVE +0 TO PRE-UPDATE-UI-CHARGED-AMT DTSBD371
|
|
00824 PRE-UPDATE-SUR-CHARGED-AMT. DTSBD371
|
|
00825 DTSBD371
|
|
00826 DTSBD371
|
|
00827 PERFORM P0100-MQTR-ACCT-SCAN THRU P0100-EXIT DTSBD371
|
|
00828 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
00829 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD371
|
|
00830 DTSBD371
|
|
00831 DTSBD371
|
|
00832 PERFORM P1000-EDIT THRU P1000-EXIT. DTSBD371
|
|
00833 DTSBD371
|
|
00834 IF LBCM-TRN-NOT-OK-88 DTSBD371
|
|
00835 GO TO P0000-EXIT. DTSBD371
|
|
00836 DTSBD371
|
|
00837 IF WRK-0-WAGE-INACT-YES-88 DTSBD371
|
|
00838 AND NOT ARPT-ADMIN-CORR-88 DTSBD371
|
|
00839 PERFORM P0300-ZERO-WAGE-INACT THRU P0300-EXIT DTSBD371
|
|
00840 GO TO P0000-EXIT DTSBD371
|
|
00841 END-IF. DTSBD371
|
|
00842 DTSBD371
|
|
00843 DTSBD371
|
|
00844 SET LBCM-EMP-ACCOUNTING-YES-88 TO TRUE. DTSBD371
|
|
00845 DTSBD371
|
|
00846 DTSBD371
|
|
00847 PERFORM P2000-UPDATE-MQTR THRU P2000-EXIT. DTSBD371
|
|
00848 DTSBD371
|
|
00849 DTSBD371
|
|
00850 MOVE MQTR-KEY-AREA TO MSKL-REC. DTSBD371
|
|
00851 DTSBD371
|
|
00852 PERFORM S910-READ THRU S910-EXIT. DTSBD371
|
|
00853 DTSBD371
|
|
00854 IF L910-OK-88 DTSBD371
|
|
00855 MOVE MQTR-REC TO MSKL-REC DTSBD371
|
|
00856 PERFORM S910-REWRITE THRU S910-EXIT DTSBD371
|
|
00857 ELSE DTSBD371
|
|
00858 MOVE LBCM-CURR-RUN-DATE TO MQTR-ESTB-DATE DTSBD371
|
|
00859 MOVE MQTR-REC TO MSKL-REC DTSBD371
|
|
00860 PERFORM S910-WRITE THRU S910-EXIT. DTSBD371
|
|
00861 DTSBD371
|
|
00862 DTSBD371
|
|
00863 PERFORM P3000-MRPT-WRITE THRU P3000-EXIT. DTSBD371
|
|
00864 DTSBD371
|
|
00865 DTSBD371
|
|
00866 IF ARPT-REMIT-AMT > 0 DTSBD371
|
|
00867 PERFORM P4000-REMIT-PROCESS THRU P4000-EXIT DTSBD371
|
|
00868 END-IF. DTSBD371
|
|
00869 DTSBD371
|
|
00870 DTSBD371
|
|
00871 *& DTSBD371
|
|
00872 * IF MPRF-EMP-NO = 081547 DTSBD371
|
|
00873 * MOVE MPRF-TOT-BALANCE-AMT TO AMT-DISP2 DTSBD371
|
|
00874 * MOVE MPRF-TOT-CREDIT-AMT TO AMT-DISP3 DTSBD371
|
|
00875 * DISPLAY 'DTSBD371 - 1 ' MRPT-EMP-NO ' ' MQTR-YRQ DTSBD371
|
|
00876 * ' BAL ' AMT-DISP2 ' CR ' AMT-DISP3 DTSBD371
|
|
00877 * END-IF. DTSBD371
|
|
00878 *& DTSBD371
|
|
00879 SET L520-NO-PREF-88 TO TRUE. DTSBD371
|
|
00880 DTSBD371
|
|
00881 MOVE WRK-NULL-DOC-NO TO L520-PREF-PAY-DOC-NO. DTSBD371
|
|
00882 DTSBD371
|
|
00883 MOVE +0 TO L520-PREF-APPLIC-YRQ. DTSBD371
|
|
00884 DTSBD371
|
|
00885 MOVE SPACE TO L520-PREF-APPLIC-IND. DTSBD371
|
|
00886 DTSBD371
|
|
00887 SET L520-ANNUAL-RPT-NULL-88 TO TRUE. DTSBD371
|
|
00888 DTSBD371
|
|
00889 MOVE ZERO TO L520-WITHDRAW-ANN-YRQ. DTSBD371
|
|
00890 DTSBD371
|
|
00891 SET L520-LAST-ANN-QTR-NULL-88 TO TRUE. DTSBD371
|
|
00892 DTSBD371
|
|
00893 *** MOVE WRK-FIRST-PEN-INT-YRQ TO L520-FIRST-PEN-INT-YRQ. DTSBD371
|
|
00894 DTSBD371
|
|
00895 PERFORM S520-APPLY-CREDIT THRU S520-EXIT. DTSBD371
|
|
00896 DTSBD371
|
|
00897 *& DTSBD371
|
|
00898 * IF MPRF-EMP-NO = 081547 DTSBD371
|
|
00899 * MOVE MPRF-TOT-BALANCE-AMT TO AMT-DISP2 DTSBD371
|
|
00900 * MOVE MPRF-TOT-CREDIT-AMT TO AMT-DISP3 DTSBD371
|
|
00901 * DISPLAY 'DTSBD371 - 2 ' MRPT-EMP-NO ' ' MQTR-YRQ DTSBD371
|
|
00902 * ' BAL ' AMT-DISP2 ' CR ' AMT-DISP3 DTSBD371
|
|
00903 * END-IF. DTSBD371
|
|
00904 *& DTSBD371
|
|
00905 ***************************** DTSBD371
|
|
00906 * MODIFIED 9/16/2013 - TICKET 2022 DTSBD371
|
|
00907 ***************************** DTSBD371
|
|
00908 IF MPRF-EMP-NO = 144048 OR 171498 DTSBD371
|
|
00909 IF ARPT-PSEUDO-BATCH-NO NOT NUMERIC DTSBD371
|
|
00910 MOVE ZERO TO ARPT-PSEUDO-BATCH-NO DTSBD371
|
|
00911 END-IF DTSBD371
|
|
00912 DISPLAY 'DTSBD371 P0000 ' ARPT-EMP-NO DTSBD371
|
|
00913 ' ' ARPT-YRQ DTSBD371
|
|
00914 ' ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO DTSBD371
|
|
00915 ' ' ARPT-PSEUDO-BATCH-NO ' ' ARPT-PSEUDO-ITEM-NO DTSBD371
|
|
00916 END-IF. DTSBD371
|
|
00917 DTSBD371
|
|
00918 IF ARPT-PSEUDO-BATCH-NO NOT NUMERIC DTSBD371
|
|
00919 MOVE ARPT-BATCH-NO TO ARPT-PSEUDO-BATCH-NO DTSBD371
|
|
00920 ELSE DTSBD371
|
|
00921 IF ARPT-PSEUDO-BATCH-NO = ZERO DTSBD371
|
|
00922 MOVE ARPT-BATCH-NO TO ARPT-PSEUDO-BATCH-NO DTSBD371
|
|
00923 END-IF DTSBD371
|
|
00924 END-IF. DTSBD371
|
|
00925 DTSBD371
|
|
00926 IF ARPT-PSEUDO-ITEM-NO NOT NUMERIC DTSBD371
|
|
00927 MOVE ARPT-ITEM-NO TO ARPT-PSEUDO-ITEM-NO DTSBD371
|
|
00928 ELSE DTSBD371
|
|
00929 IF ARPT-PSEUDO-ITEM-NO = ZERO DTSBD371
|
|
00930 MOVE ARPT-ITEM-NO TO ARPT-PSEUDO-ITEM-NO DTSBD371
|
|
00931 END-IF DTSBD371
|
|
00932 END-IF. DTSBD371
|
|
00933 DTSBD371
|
|
00934 IF MPRF-EMP-NO = 144048 OR 171498 DTSBD371
|
|
00935 DISPLAY 'DTSBD371 P0000 ' ARPT-EMP-NO DTSBD371
|
|
00936 ' ' ARPT-YRQ DTSBD371
|
|
00937 ' ' ARPT-PSEUDO-BATCH-NO ' ' ARPT-PSEUDO-ITEM-NO DTSBD371
|
|
00938 END-IF. DTSBD371
|
|
00939 DTSBD371
|
|
00940 PERFORM P0200-WRITE-WAGES THRU P0200-EXIT. DTSBD371
|
|
00941 DTSBD371
|
|
00942 ** IF (ARPT-PSEUDO-BATCH-NO NUMERIC DTSBD371
|
|
00943 * AND ARPT-PSEUDO-ITEM-NO NUMERIC) DTSBD371
|
|
00944 * IF (ARPT-PSEUDO-BATCH-NO > ZERO DTSBD371
|
|
00945 * AND ARPT-PSEUDO-ITEM-NO > ZERO) DTSBD371
|
|
00946 * PERFORM P0200-WRITE-WAGES THRU P0200-EXIT DTSBD371
|
|
00947 * END-IF DTSBD371
|
|
00948 * END-IF. DTSBD371
|
|
00949 * DTSBD371
|
|
00950 * IF L516-ANN-SCHED-88 DTSBD371
|
|
00951 * IF ARPT-PSEUDO-BATCH-NO NOT NUMERIC DTSBD371
|
|
00952 * MOVE ARPT-BATCH-NO TO ARPT-PSEUDO-BATCH-NO DTSBD371
|
|
00953 * ELSE DTSBD371
|
|
00954 * IF ARPT-PSEUDO-BATCH-NO = ZERO DTSBD371
|
|
00955 * MOVE ARPT-BATCH-NO TO ARPT-PSEUDO-BATCH-NO DTSBD371
|
|
00956 * END-IF DTSBD371
|
|
00957 * END-IF DTSBD371
|
|
00958 * IF ARPT-PSEUDO-ITEM-NO NOT NUMERIC DTSBD371
|
|
00959 * MOVE ARPT-ITEM-NO TO ARPT-PSEUDO-ITEM-NO DTSBD371
|
|
00960 * ELSE DTSBD371
|
|
00961 * IF ARPT-PSEUDO-ITEM-NO = ZERO DTSBD371
|
|
00962 * MOVE ARPT-ITEM-NO TO ARPT-PSEUDO-ITEM-NO DTSBD371
|
|
00963 * END-IF DTSBD371
|
|
00964 * END-IF DTSBD371
|
|
00965 * PERFORM P0200-WRITE-WAGES THRU P0200-EXIT DTSBD371
|
|
00966 ** END-IF. DTSBD371
|
|
00967 DTSBD371
|
|
00968 DTSBD371
|
|
00969 P0000-EXIT. DTSBD371
|
|
00970 EXIT. DTSBD371
|
|
00971 DTSBD371
|
|
00972 ***************** DTSBD371
|
|
00973 * SUM REMITTANCE AMOUNT FOR ANNUAL REPORTS AS EACH QUARTER DTSBD371
|
|
00974 * IS PROCESSED. THIS AMOUNT IS NEEDED IN THE PENALTY DTSBD371
|
|
00975 * CALCULATION PROCESS (P2800). DTSBD371
|
|
00976 ***************** DTSBD371
|
|
00977 P0050-ANN-REMITTANCE. DTSBD371
|
|
00978 MOVE ARPT-YRQ TO L004-QTR-5-9. DTSBD371
|
|
00979 IF L004-QTR-5-Q = 1 DTSBD371
|
|
00980 MOVE ARPT-REMIT-AMT TO WRK-ANN-REMIT-AMT DTSBD371
|
|
00981 ELSE DTSBD371
|
|
00982 ADD ARPT-REMIT-AMT TO WRK-ANN-REMIT-AMT DTSBD371
|
|
00983 END-IF. DTSBD371
|
|
00984 DTSBD371
|
|
00985 MOVE ARPT-REMIT-AMT TO AMT-DISP1. DTSBD371
|
|
00986 MOVE WRK-ANN-REMIT-AMT TO AMT-DISP2. DTSBD371
|
|
00987 DISPLAY 'BD371 P0050 ' ARPT-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
00988 ' ' AMT-DISP1 ' ' AMT-DISP2. DTSBD371
|
|
00989 P0050-EXIT. DTSBD371
|
|
00990 EXIT. DTSBD371
|
|
00991 DTSBD371
|
|
00992 P0100-MQTR-ACCT-SCAN. DTSBD371
|
|
00993 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
00994 MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
00995 TO PRE-UPDATE-UI-CHARGED-AMT DTSBD371
|
|
00996 ELSE DTSBD371
|
|
00997 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
00998 MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
00999 TO PRE-UPDATE-SUR-CHARGED-AMT. DTSBD371
|
|
01000 P0100-EXIT. DTSBD371
|
|
01001 EXIT. DTSBD371
|
|
01002 DTSBD371
|
|
01003 P0200-WRITE-WAGES. DTSBD371
|
|
01004 ************************************************************ DTSBD371
|
|
01005 * WRITE W4 WAGE TRANSACTIONS DTSBD371
|
|
01006 ************************************************************ DTSBD371
|
|
01007 MOVE ARPT-BATCH-NO TO L420-BATCH-NO. DTSBD371
|
|
01008 MOVE ARPT-ITEM-NO TO L420-ITEM-NO. DTSBD371
|
|
01009 MOVE ARPT-PSEUDO-BATCH-NO TO L420-PSEUDO-BATCH-NO. DTSBD371
|
|
01010 MOVE ARPT-PSEUDO-ITEM-NO TO L420-PSEUDO-ITEM-NO. DTSBD371
|
|
01011 MOVE ARPT-YRQ TO L420-YRQ. DTSBD371
|
|
01012 MOVE ARPT-RECEIVED-DATE TO L420-RECEIVED-DATE. DTSBD371
|
|
01013 MOVE MPRF-EMP-NO TO L420-EMP-NO. DTSBD371
|
|
01014 MOVE MPRF-PRIMARY-NAME TO L420-EMP-NAME. DTSBD371
|
|
01015 MOVE ARPT-RPT-TYPE TO L420-RPT-TYPE. DTSBD371
|
|
01016 MOVE LBCM-ABSTIME TO L420-ABSTIME. DTSBD371
|
|
01017 MOVE LBCM-SYS-DATE TO L001-FED-8-DATE-9. DTSBD371
|
|
01018 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD371
|
|
01019 MOVE L001-SLASH-8-DATE TO L420-SYS-DATE. DTSBD371
|
|
01020 SET L420-NAME-TYPE-FULL-88 TO TRUE. DTSBD371
|
|
01021 PERFORM S420A-WRITE-WAGE-TRANS THRU S420A-EXIT. DTSBD371
|
|
01022 PERFORM S420B-DELETE-WTC THRU S420B-EXIT. DTSBD371
|
|
01023 DTSBD371
|
|
01024 P0200-EXIT. DTSBD371
|
|
01025 EXIT. DTSBD371
|
|
01026 DTSBD371
|
|
01027 P0300-ZERO-WAGE-INACT. DTSBD371
|
|
01028 MOVE MQTR-YRQ TO L004-QTR-5-9. DTSBD371
|
|
01029 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD371
|
|
01030 MOVE L004-SLASH-QTR TO EVL2-SLASH-QTR. DTSBD371
|
|
01031 MOVE EVL2-TEXT TO EVL-TEXT. DTSBD371
|
|
01032 PERFORM S4000-WRITE-MEVL THRU S4000-EXIT. DTSBD371
|
|
01033 DTSBD371
|
|
01034 P0300-EXIT. DTSBD371
|
|
01035 EXIT. DTSBD371
|
|
01036 DTSBD371
|
|
01037 P1000-EDIT. DTSBD371
|
|
01038 *& DTSBD371
|
|
01039 * IF ARPT-EMP-NO = 011709 OR 085431 OR 068382 DTSBD371
|
|
01040 * DISPLAY 'DTSBD140 P1000 ' ARPT-EMP-NO DTSBD371
|
|
01041 * ' ' ARPT-YRQ DTSBD371
|
|
01042 * ' ' ARPT-RPT-TYPE DTSBD371
|
|
01043 * END-IF. DTSBD371
|
|
01044 *& DTSBD371
|
|
01045 IF ARPT-YRQ <= LBCM-PICKUP-YRQ DTSBD371
|
|
01046 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01047 MOVE MSG10-LESS-OR-EQUAL-PKUP-YRQ TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01048 GO TO P1000-EXIT. DTSBD371
|
|
01049 DTSBD371
|
|
01050 DTSBD371
|
|
01051 * MOVE MQTR-YRQ TO L516-YRQ. DTSBD371
|
|
01052 * DTSBD371
|
|
01053 * PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD371
|
|
01054 DTSBD371
|
|
01055 ** IF L516-ANN-SCHED-88 DTSBD371
|
|
01056 * IF ARPT-WITHDRW-88 DTSBD371
|
|
01057 * NEXT SENTENCE DTSBD371
|
|
01058 * ELSE DTSBD371
|
|
01059 * IF L516-NOT-LIABLE-88 DTSBD371
|
|
01060 * AND ARPT-TOT-WAGE > ZERO DTSBD371
|
|
01061 * SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01062 * MOVE MSG11-WAGES-ON-NON-LIABLE-YRQ TO DTSBD371
|
|
01063 * LBCM-TRN-MSG-AREA DTSBD371
|
|
01064 * GO TO P1000-EXIT DTSBD371
|
|
01065 * END-IF DTSBD371
|
|
01066 * END-IF DTSBD371
|
|
01067 ** END-IF. DTSBD371
|
|
01068 DTSBD371
|
|
01069 EVALUATE TRUE DTSBD371
|
|
01070 WHEN ARPT-ORIG-88 DTSBD371
|
|
01071 PERFORM P1100-EDIT-ORIG THRU P1100-EXIT DTSBD371
|
|
01072 DTSBD371
|
|
01073 WHEN ARPT-ESTIM-88 DTSBD371
|
|
01074 PERFORM P1200-EDIT-ESTIM THRU P1200-EXIT DTSBD371
|
|
01075 DTSBD371
|
|
01076 WHEN ARPT-EMP-AMEND-88 DTSBD371
|
|
01077 OR ARPT-AUDIT-88 DTSBD371
|
|
01078 OR ARPT-FLD-SUP-88 DTSBD371
|
|
01079 OR ARPT-ADMIN-CORR-88 DTSBD371
|
|
01080 PERFORM P1300-EDIT-CHNG THRU P1300-EXIT DTSBD371
|
|
01081 DTSBD371
|
|
01082 WHEN ARPT-WITHDRW-88 DTSBD371
|
|
01083 PERFORM P1400-EDIT-WITHDRW THRU P1400-EXIT DTSBD371
|
|
01084 DTSBD371
|
|
01085 WHEN ARPT-CLMT-WAGE-88 DTSBD371
|
|
01086 PERFORM P1500-CLAIMANT-WAGE THRU P1500-EXIT DTSBD371
|
|
01087 DTSBD371
|
|
01088 WHEN OTHER DTSBD371
|
|
01089 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01090 MOVE MSG1-INVALID-RPT-TYPE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01091 END-EVALUATE. DTSBD371
|
|
01092 DTSBD371
|
|
01093 ** IF ARPT-ORIG-88 DTSBD371
|
|
01094 * PERFORM P1100-EDIT-ORIG THRU P1100-EXIT DTSBD371
|
|
01095 * ELSE DTSBD371
|
|
01096 * IF ARPT-ESTIM-88 DTSBD371
|
|
01097 * PERFORM P1200-EDIT-ESTIM THRU P1200-EXIT DTSBD371
|
|
01098 * ELSE DTSBD371
|
|
01099 * IF ARPT-EMP-AMEND-88 DTSBD371
|
|
01100 * OR DTSBD371
|
|
01101 * ARPT-AUDIT-88 DTSBD371
|
|
01102 * OR DTSBD371
|
|
01103 * ARPT-FLD-SUP-88 DTSBD371
|
|
01104 * OR DTSBD371
|
|
01105 * ARPT-ADMIN-CORR-88 DTSBD371
|
|
01106 * PERFORM P1300-EDIT-CHNG THRU P1300-EXIT DTSBD371
|
|
01107 * ELSE DTSBD371
|
|
01108 * IF ARPT-WITHDRW-88 DTSBD371
|
|
01109 * PERFORM P1400-EDIT-WITHDRW THRU P1400-EXIT DTSBD371
|
|
01110 *****ELSE DTSBD371
|
|
01111 *****IF ARPT-ORIGEFF-88 DTSBD371
|
|
01112 *********PERFORM P1500-EDIT-ORIGEFF THRU P1500-EXIT DTSBD371
|
|
01113 * ELSE DTSBD371
|
|
01114 * SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01115 ** MOVE MSG1-INVALID-RPT-TYPE TO LBCM-TRN-MSG-AREA. DTSBD371
|
|
01116 DTSBD371
|
|
01117 IF LBCM-TRN-OK-88 DTSBD371
|
|
01118 PERFORM P1010-EDIT-DUPLICATE THRU P1010-EXIT DTSBD371
|
|
01119 END-IF. DTSBD371
|
|
01120 DTSBD371
|
|
01121 IF ARPT-ESTIM-88 DTSBD371
|
|
01122 OR ARPT-WITHDRW-88 DTSBD371
|
|
01123 GO TO P1000-EXIT DTSBD371
|
|
01124 END-IF. DTSBD371
|
|
01125 DTSBD371
|
|
01126 ************* DTSBD371
|
|
01127 * CHECK WHETHER ANY CLAIMANT WAGE REPORTS ARE ON FILE. DTSBD371
|
|
01128 * IF A CLAIMANT WAGE REPORT WAS ENTERED THE SAME DAY AS AN DTSBD371
|
|
01129 * ORIGINAL REPORT, BYPASS THE OR UNTIL THE NEXT DAY: THE DTSBD371
|
|
01130 * WAGES FROM THE CW NEED TO BE ON FILE IN THE WGH BEFORE DTSBD371
|
|
01131 * THE OR CAN BE PROCESSED CORRECTLY. DTSBD371
|
|
01132 ************* DTSBD371
|
|
01133 IF MQTR-CURR-CLMT-WAGE-88 DTSBD371
|
|
01134 PERFORM S1200-CHK-FOR-CW THRU S1200-EXIT DTSBD371
|
|
01135 IF WRK-CW-SAME-DAY-YES-88 DTSBD371
|
|
01136 DISPLAY 'CW ENTERED SAME DAY ' MRPT-EMP-NO DTSBD371
|
|
01137 ' ' MRPT-BATCH-NO ' ' MRPT-ITEM-NO DTSBD371
|
|
01138 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01139 MOVE MSG12-CW-SAME-DAY TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01140 GO TO P1100-EXIT DTSBD371
|
|
01141 END-IF DTSBD371
|
|
01142 END-IF. DTSBD371
|
|
01143 DTSBD371
|
|
01144 ************* DTSBD371
|
|
01145 * CHECK FOR WAGES FROM THE ORIGINAL REPORT IN THE WTC FILE. DTSBD371
|
|
01146 * THE WAGES ARE ENTERED BY TDEC - UNTIL THEY ARE RECEIVED, DTSBD371
|
|
01147 * THE ORIGINAL RPT CANNOT BE PROCESSED. THE TOTAL AND DTSBD371
|
|
01148 * TAXABLE WAGES FOR THE ORIGINAL RPT MUST BE ADJUSTED FOR DTSBD371
|
|
01149 * WAGES ENTERED ON THE CW. DTSBD371
|
|
01150 * FOR EACH WORKER WITH WAGES REPORTED ON BOTH THE CW AND ORIG DTSBD371
|
|
01151 * REPORTS, THE TOTAL AND TAXABLE WAGE AMOUNTS MUST BE DEDCUTED DTSBD371
|
|
01152 * FROM THE TOTAL AND TAXABLE WAGES ON THE ORIGINAL. DTSBD371
|
|
01153 ************* DTSBD371
|
|
01154 IF WRK-CW-ON-FILE-NO-88 DTSBD371
|
|
01155 NEXT SENTENCE DTSBD371
|
|
01156 ELSE DTSBD371
|
|
01157 PERFORM S1300-CHECK-WAGES THRU S1300-EXIT DTSBD371
|
|
01158 IF L424-WGH-WAGES-YES-88 DTSBD371
|
|
01159 IF L424-WTC-WAGES-NO-88 DTSBD371
|
|
01160 DISPLAY DTSBD371
|
|
01161 'BD371 P1100: CW ON FILE - NO ORIG WAGES FOUND ' DTSBD371
|
|
01162 MQTR-EMP-NO DTSBD371
|
|
01163 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01164 MOVE MSG11-CLMT-WG-RPT-FOUND TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01165 GO TO P1100-EXIT DTSBD371
|
|
01166 ELSE DTSBD371
|
|
01167 SET WRK-CW-ADJUST-YES-88 TO TRUE DTSBD371
|
|
01168 PERFORM S1400-CALC-WAGE-ADJ THRU S1400-EXIT DTSBD371
|
|
01169 END-IF DTSBD371
|
|
01170 END-IF DTSBD371
|
|
01171 END-IF. DTSBD371
|
|
01172 DTSBD371
|
|
01173 P1000-EXIT. DTSBD371
|
|
01174 EXIT. DTSBD371
|
|
01175 SKIP3 DTSBD371
|
|
01176 P1010-EDIT-DUPLICATE. DTSBD371
|
|
01177 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSBD371
|
|
01178 DTSBD371
|
|
01179 MOVE MPRF-EMP-NO TO MPAY-EMP-NO. DTSBD371
|
|
01180 DTSBD371
|
|
01181 SET MPAY-PAY-88 TO TRUE. DTSBD371
|
|
01182 DTSBD371
|
|
01183 MOVE ARPT-DOC-NO TO MPAY-DOC-NO. DTSBD371
|
|
01184 DTSBD371
|
|
01185 MOVE MPAY-KEY-AREA TO MSKL-KEY-AREA. DTSBD371
|
|
01186 DTSBD371
|
|
01187 PERFORM S910-READ THRU S910-EXIT. DTSBD371
|
|
01188 DTSBD371
|
|
01189 IF L910-OK-88 DTSBD371
|
|
01190 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01191 MOVE MSG8-DUPLICATE-TRAN TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01192 GO TO P1010-EXIT. DTSBD371
|
|
01193 DTSBD371
|
|
01194 DTSBD371
|
|
01195 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBD371
|
|
01196 DTSBD371
|
|
01197 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBD371
|
|
01198 DTSBD371
|
|
01199 SET MRPT-RPT-88 TO TRUE. DTSBD371
|
|
01200 DTSBD371
|
|
01201 MOVE ARPT-YRQ TO MRPT-YRQ. DTSBD371
|
|
01202 DTSBD371
|
|
01203 MOVE ARPT-DOC-NO TO MRPT-DOC-NO. DTSBD371
|
|
01204 DTSBD371
|
|
01205 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSBD371
|
|
01206 DTSBD371
|
|
01207 PERFORM S910-READ THRU S910-EXIT. DTSBD371
|
|
01208 DTSBD371
|
|
01209 IF L910-OK-88 DTSBD371
|
|
01210 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01211 MOVE MSG8-DUPLICATE-TRAN TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01212 GO TO P1010-EXIT. DTSBD371
|
|
01213 P1010-EXIT. DTSBD371
|
|
01214 EXIT. DTSBD371
|
|
01215 DTSBD371
|
|
01216 P1100-EDIT-ORIG. DTSBD371
|
|
01217 IF MQTR-CURR-RCVD-88 DTSBD371
|
|
01218 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01219 MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01220 GO TO P1100-EXIT DTSBD371
|
|
01221 END-IF. DTSBD371
|
|
01222 DTSBD371
|
|
01223 IF L516-NOT-LIABLE-88 DTSBD371
|
|
01224 IF L516-ANN-LIABLE-88 DTSBD371
|
|
01225 NEXT SENTENCE DTSBD371
|
|
01226 ELSE DTSBD371
|
|
01227 IF (ARPT-TOT-WAGE = ZERO DTSBD371
|
|
01228 AND ARPT-REMIT-AMT = ZERO) DTSBD371
|
|
01229 SET WRK-0-WAGE-INACT-YES-88 TO TRUE DTSBD371
|
|
01230 GO TO P1100-EXIT DTSBD371
|
|
01231 ELSE DTSBD371
|
|
01232 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01233 MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01234 GO TO P1100-EXIT DTSBD371
|
|
01235 END-IF DTSBD371
|
|
01236 END-IF DTSBD371
|
|
01237 END-IF. DTSBD371
|
|
01238 DTSBD371
|
|
01239 IF MPRF-CLASS-RATED-88 DTSBD371
|
|
01240 IF L516-NO-RATE-88 DTSBD371
|
|
01241 IF L516-ESTIMATED-RATE-88 DTSBD371
|
|
01242 DISPLAY 'BD371 P1100: ANN RPT W/ESTIMATED RATE ' DTSBD371
|
|
01243 ARPT-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
01244 ELSE DTSBD371
|
|
01245 MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01246 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01247 GO TO P1100-EXIT DTSBD371
|
|
01248 END-IF DTSBD371
|
|
01249 END-IF DTSBD371
|
|
01250 END-IF. DTSBD371
|
|
01251 DTSBD371
|
|
01252 PERFORM P1800-EDIT-OVERLAY THRU P1800-EXIT. DTSBD371
|
|
01253 P1100-EXIT. DTSBD371
|
|
01254 EXIT. DTSBD371
|
|
01255 DTSBD371
|
|
01256 P1200-EDIT-ESTIM. DTSBD371
|
|
01257 IF MQTR-CURR-RCVD-88 DTSBD371
|
|
01258 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01259 MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01260 GO TO P1200-EXIT. DTSBD371
|
|
01261 DTSBD371
|
|
01262 IF L516-NOT-LIABLE-88 DTSBD371
|
|
01263 IF L516-ANN-LIABLE-88 DTSBD371
|
|
01264 NEXT SENTENCE DTSBD371
|
|
01265 ELSE DTSBD371
|
|
01266 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01267 MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01268 GO TO P1200-EXIT DTSBD371
|
|
01269 END-IF DTSBD371
|
|
01270 END-IF. DTSBD371
|
|
01271 DTSBD371
|
|
01272 IF MPRF-CLASS-RATED-88 DTSBD371
|
|
01273 IF L516-NO-RATE-88 DTSBD371
|
|
01274 MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01275 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01276 GO TO P1200-EXIT DTSBD371
|
|
01277 END-IF DTSBD371
|
|
01278 END-IF. DTSBD371
|
|
01279 DTSBD371
|
|
01280 PERFORM P1800-EDIT-OVERLAY THRU P1800-EXIT. DTSBD371
|
|
01281 P1200-EXIT. DTSBD371
|
|
01282 EXIT. DTSBD371
|
|
01283 DTSBD371
|
|
01284 P1300-EDIT-CHNG. DTSBD371
|
|
01285 IF NOT MQTR-CURR-RCVD-88 DTSBD371
|
|
01286 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01287 MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01288 GO TO P1300-EXIT. DTSBD371
|
|
01289 DTSBD371
|
|
01290 ***************** DTSBD371
|
|
01291 * AN AC REPORT MAY BE SUBMITTED FOR AN ANNUAL FILER WHO IS DTSBD371
|
|
01292 * NOT LIABLE. THE WAGES WILL BE REVERSED AND THE QUARTER DTSBD371
|
|
01293 * STATUS SET TO MQTR-CURR-ORIG-ANN-NL-88. ONLY IF THE DTSBD371
|
|
01294 * EMPLOYER IS NOT LIABLE IN ALL 4 QUARTERS WILL THE REPORT DTSBD371
|
|
01295 * BE WITHDRAWN. DTSBD371
|
|
01296 ***************** DTSBD371
|
|
01297 IF L516-NOT-LIABLE-88 DTSBD371
|
|
01298 IF L516-ANN-LIABLE-88 DTSBD371
|
|
01299 NEXT SENTENCE DTSBD371
|
|
01300 ELSE DTSBD371
|
|
01301 IF (ARPT-TOT-WAGE = ZERO DTSBD371
|
|
01302 AND ARPT-REMIT-AMT = ZERO) DTSBD371
|
|
01303 SET WRK-0-WAGE-INACT-YES-88 TO TRUE DTSBD371
|
|
01304 GO TO P1300-EXIT DTSBD371
|
|
01305 ELSE DTSBD371
|
|
01306 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01307 MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01308 GO TO P1300-EXIT DTSBD371
|
|
01309 END-IF DTSBD371
|
|
01310 END-IF DTSBD371
|
|
01311 END-IF. DTSBD371
|
|
01312 DTSBD371
|
|
01313 IF MPRF-CLASS-RATED-88 DTSBD371
|
|
01314 IF L516-NO-RATE-88 DTSBD371
|
|
01315 MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01316 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01317 GO TO P1300-EXIT DTSBD371
|
|
01318 END-IF DTSBD371
|
|
01319 END-IF. DTSBD371
|
|
01320 DTSBD371
|
|
01321 PERFORM P1900-EDIT-CHANGE THRU P1900-EXIT. DTSBD371
|
|
01322 P1300-EXIT. DTSBD371
|
|
01323 EXIT. DTSBD371
|
|
01324 SKIP3 DTSBD371
|
|
01325 P1400-EDIT-WITHDRW. DTSBD371
|
|
01326 IF MQTR-CURR-RCVD-88 DTSBD371
|
|
01327 OR MQTR-CURR-ESTIM-88 DTSBD371
|
|
01328 NEXT SENTENCE DTSBD371
|
|
01329 ELSE DTSBD371
|
|
01330 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01331 MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01332 GO TO P1400-EXIT DTSBD371
|
|
01333 END-IF. DTSBD371
|
|
01334 DTSBD371
|
|
01335 P1400-EXIT. DTSBD371
|
|
01336 EXIT. DTSBD371
|
|
01337 DTSBD371
|
|
01338 P1500-CLAIMANT-WAGE. DTSBD371
|
|
01339 IF L516-NOT-LIABLE-88 DTSBD371
|
|
01340 IF L516-ANN-LIABLE-88 DTSBD371
|
|
01341 NEXT SENTENCE DTSBD371
|
|
01342 ELSE DTSBD371
|
|
01343 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01344 MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01345 GO TO P1500-EXIT DTSBD371
|
|
01346 END-IF DTSBD371
|
|
01347 END-IF. DTSBD371
|
|
01348 DTSBD371
|
|
01349 IF MPRF-CLASS-RATED-88 DTSBD371
|
|
01350 IF L516-NO-RATE-88 DTSBD371
|
|
01351 MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01352 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01353 GO TO P1500-EXIT DTSBD371
|
|
01354 END-IF DTSBD371
|
|
01355 END-IF. DTSBD371
|
|
01356 DTSBD371
|
|
01357 IF (NOT ARPT-1ST-MTH-NO-ENTRY-88) DTSBD371
|
|
01358 OR (NOT ARPT-2ND-MTH-NO-ENTRY-88) DTSBD371
|
|
01359 OR (NOT ARPT-3RD-MTH-NO-ENTRY-88) DTSBD371
|
|
01360 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01361 MOVE MSG13-CW-EMPL-CNT TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01362 GO TO P1500-EXIT DTSBD371
|
|
01363 END-IF. DTSBD371
|
|
01364 DTSBD371
|
|
01365 IF MQTR-CURR-RCVD-88 DTSBD371
|
|
01366 PERFORM P1900-EDIT-CHANGE THRU P1900-EXIT DTSBD371
|
|
01367 ELSE DTSBD371
|
|
01368 PERFORM P1800-EDIT-OVERLAY THRU P1800-EXIT DTSBD371
|
|
01369 END-IF. DTSBD371
|
|
01370 DTSBD371
|
|
01371 P1500-EXIT. DTSBD371
|
|
01372 EXIT. DTSBD371
|
|
01373 DTSBD371
|
|
01374 *P1500-EDIT-ORIGEFF. DTSBD371
|
|
01375 *****IF NOT MQTR-CURR-RCVD-88 DTSBD371
|
|
01376 *********MOVE TRN-NOT-OK-LIT TO LBCM-TRN-RESULT-IND DTSBD371
|
|
01377 *********MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA DTSBD371
|
|
01378 *********GO TO P1500-EXIT. DTSBD371
|
|
01379 *P1500-EXIT. DTSBD371
|
|
01380 *****EXIT. DTSBD371
|
|
01381 SKIP3 DTSBD371
|
|
01382 P1800-EDIT-OVERLAY. DTSBD371
|
|
01383 IF (ARPT-TOT-WAGE < 0) DTSBD371
|
|
01384 OR DTSBD371
|
|
01385 (ARPT-TAX-WAGE < 0) DTSBD371
|
|
01386 OR DTSBD371
|
|
01387 (ARPT-TAX-WAGE > ARPT-TOT-WAGE) DTSBD371
|
|
01388 OR DTSBD371
|
|
01389 (ARPT-1ST-MTH-EMPL-CNT < 0) DTSBD371
|
|
01390 OR DTSBD371
|
|
01391 (ARPT-2ND-MTH-EMPL-CNT < 0) DTSBD371
|
|
01392 OR DTSBD371
|
|
01393 (ARPT-3RD-MTH-EMPL-CNT < 0) DTSBD371
|
|
01394 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01395 MOVE MSG5-NEGATIVE-NUMERIC TO LBCM-TRN-MSG-AREA. DTSBD371
|
|
01396 P1800-EXIT. DTSBD371
|
|
01397 EXIT. DTSBD371
|
|
01398 SKIP3 DTSBD371
|
|
01399 P1900-EDIT-CHANGE. DTSBD371
|
|
01400 IF (ARPT-TOT-WAGE + MQTR-TOT-WAGE < 0) DTSBD371
|
|
01401 OR DTSBD371
|
|
01402 (ARPT-TAX-WAGE + MQTR-TAX-WAGE < 0) DTSBD371
|
|
01403 OR DTSBD371
|
|
01404 (ARPT-TAX-WAGE + MQTR-TAX-WAGE DTSBD371
|
|
01405 > ARPT-TOT-WAGE + MQTR-TOT-WAGE) DTSBD371
|
|
01406 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD371
|
|
01407 MOVE MSG5-NEGATIVE-NUMERIC TO LBCM-TRN-MSG-AREA. DTSBD371
|
|
01408 P1900-EXIT. DTSBD371
|
|
01409 EXIT. DTSBD371
|
|
01410 EJECT DTSBD371
|
|
01411 P2000-UPDATE-MQTR. DTSBD371
|
|
01412 *& DTSBD371
|
|
01413 * IF ARPT-EMP-NO = 149318 DTSBD371
|
|
01414 * DISPLAY 'DTSBD371 P2000 FIRST ' ARPT-EMP-NO DTSBD371
|
|
01415 * ' ' ARPT-YRQ. DTSBD371
|
|
01416 * END-IF. DTSBD371
|
|
01417 *& DTSBD371
|
|
01418 DTSBD371
|
|
01419 IF WRK-CW-ADJUST-YES-88 DTSBD371
|
|
01420 PERFORM S1500-CW-ADJUST THRU S1500-EXIT DTSBD371
|
|
01421 END-IF. DTSBD371
|
|
01422 DTSBD371
|
|
01423 IF MQTR-INT-CHARGE-MANUAL-88 DTSBD371
|
|
01424 MOVE MSG6-ID2 TO R907-MSG-ID DTSBD371
|
|
01425 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
01426 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD371
|
|
01427 MOVE L004-SLASH-QTR TO MSG6-YRQ DTSBD371
|
|
01428 MOVE MSG6-LONG-TEXT TO R907-MSG-TEXT DTSBD371
|
|
01429 PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBD371
|
|
01430 DTSBD371
|
|
01431 IF MQTR-PEN-CHARGE-MANUAL-88 DTSBD371
|
|
01432 MOVE MSG7-ID2 TO R907-MSG-ID DTSBD371
|
|
01433 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
01434 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD371
|
|
01435 MOVE L004-SLASH-QTR TO MSG7-YRQ DTSBD371
|
|
01436 MOVE MSG7-LONG-TEXT TO R907-MSG-TEXT DTSBD371
|
|
01437 PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBD371
|
|
01438 DTSBD371
|
|
01439 IF MQTR-CURR-ESTIM-88 DTSBD371
|
|
01440 IF ARPT-ORIG-88 DTSBD371
|
|
01441 MOVE MSG9-ID2 TO R907-MSG-ID DTSBD371
|
|
01442 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
01443 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD371
|
|
01444 MOVE L004-SLASH-QTR TO MSG9-YRQ DTSBD371
|
|
01445 MOVE MSG9-LONG-TEXT TO R907-MSG-TEXT DTSBD371
|
|
01446 PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBD371
|
|
01447 DTSBD371
|
|
01448 MOVE +0 TO UI-SUB DTSBD371
|
|
01449 SUR-SUB DTSBD371
|
|
01450 INT-SUB DTSBD371
|
|
01451 LATE-PEN-SUB DTSBD371
|
|
01452 NSF-PEN-SUB DTSBD371
|
|
01453 MISC-PEN-SUB. DTSBD371
|
|
01454 DTSBD371
|
|
01455 PERFORM P2010-SET-ACCT-SUB THRU P2010-EXIT DTSBD371
|
|
01456 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
01457 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD371
|
|
01458 DTSBD371
|
|
01459 PERFORM P2020-REVERSE-TOLERANCE THRU P2020-EXIT DTSBD371
|
|
01460 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
01461 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD371
|
|
01462 DTSBD371
|
|
01463 *****IF ARPT-TYPE-ORIGEFF-88 DTSBD371
|
|
01464 *********PERFORM P2800-ACCT-PEN THRU P2800-EXIT DTSBD371
|
|
01465 *********PERFORM S2200-CRUNCH-ACCT-DATA THRU S2200-EXIT DTSBD371
|
|
01466 *********GO TO P2000-EXIT. DTSBD371
|
|
01467 DTSBD371
|
|
01468 PERFORM P2040-DECR-PURSUED-RPT-CNT THRU P2040-EXIT. DTSBD371
|
|
01469 DTSBD371
|
|
01470 MOVE MQTR-RPT-DUE-DATE TO NEW-RPT-DUE-DATE. DTSBD371
|
|
01471 DTSBD371
|
|
01472 MOVE MQTR-TAX-DUE-DATE TO NEW-TAX-DUE-DATE. DTSBD371
|
|
01473 DTSBD371
|
|
01474 PERFORM P2100-DATES THRU P2100-EXIT. DTSBD371
|
|
01475 DTSBD371
|
|
01476 IF NEW-TAX-DUE-DATE = MQTR-TAX-DUE-DATE DTSBD371
|
|
01477 NEXT SENTENCE DTSBD371
|
|
01478 ELSE DTSBD371
|
|
01479 PERFORM P2030-RECOMPUTE-INT THRU P2030-EXIT. DTSBD371
|
|
01480 DTSBD371
|
|
01481 MOVE NEW-RPT-DUE-DATE TO MQTR-RPT-DUE-DATE. DTSBD371
|
|
01482 DTSBD371
|
|
01483 MOVE NEW-TAX-DUE-DATE TO MQTR-TAX-DUE-DATE. DTSBD371
|
|
01484 DTSBD371
|
|
01485 PERFORM P2200-CURR-RPT-TYPE THRU P2200-EXIT. DTSBD371
|
|
01486 DTSBD371
|
|
01487 PERFORM P2300-RATE THRU P2300-EXIT. DTSBD371
|
|
01488 DTSBD371
|
|
01489 PERFORM P2400-WAGE-DATA THRU P2400-EXIT. DTSBD371
|
|
01490 DTSBD371
|
|
01491 PERFORM P2500-EMPL-DATA THRU P2500-EXIT. DTSBD371
|
|
01492 DTSBD371
|
|
01493 PERFORM P2590-WAGE-RPT-IND THRU P2590-EXIT. DTSBD371
|
|
01494 DTSBD371
|
|
01495 IF MQTR-CURR-ORIG-88 DTSBD371
|
|
01496 MOVE -.01 TO MQTR-COLL-PROMPT-DUE-AMT DTSBD371
|
|
01497 PERFORM S590-ORIG-RPT THRU S590-EXIT. DTSBD371
|
|
01498 DTSBD371
|
|
01499 MOVE LBCM-CURR-RUN-DATE TO MQTR-CHNG-DATE. DTSBD371
|
|
01500 DTSBD371
|
|
01501 PERFORM P2600-ACCT-TAX THRU P2600-EXIT. DTSBD371
|
|
01502 DTSBD371
|
|
01503 PERFORM P2700-ACCT-INT THRU P2700-EXIT. DTSBD371
|
|
01504 DTSBD371
|
|
01505 PERFORM P2800-ACCT-LATE-PAY-PEN THRU P2800-EXIT. DTSBD371
|
|
01506 DTSBD371
|
|
01507 PERFORM S2200-CRUNCH-ACCT-DATA THRU S2200-EXIT. DTSBD371
|
|
01508 DTSBD371
|
|
01509 PERFORM P2090-INCR-PURSUED-RPT-CNT THRU P2090-EXIT. DTSBD371
|
|
01510 DTSBD371
|
|
01511 IF ARPT-ESTIM-88 DTSBD371
|
|
01512 IF L516-ANN-SCHED-88 DTSBD371
|
|
01513 PERFORM P2950-ANNUL-ESTIMATED-LETTER THRU P2950-EXIT DTSBD371
|
|
01514 ELSE DTSBD371
|
|
01515 PERFORM P2900-QTRLY-ESTIMATED-LETTER THRU P2900-EXIT DTSBD371
|
|
01516 END-IF DTSBD371
|
|
01517 END-IF. DTSBD371
|
|
01518 DTSBD371
|
|
01519 IF L516-ANN-SCHED-88 DTSBD371
|
|
01520 SET MQTR-ANNUAL-YES-88 TO TRUE DTSBD371
|
|
01521 ELSE DTSBD371
|
|
01522 SET MQTR-ANNUAL-NO-88 TO TRUE DTSBD371
|
|
01523 END-IF. DTSBD371
|
|
01524 DTSBD371
|
|
01525 SET MQTR-R317-SENT-NO-88 TO TRUE. DTSBD371
|
|
01526 DTSBD371
|
|
01527 PERFORM S590-QTR-TOL THRU S590-EXIT. DTSBD371
|
|
01528 *& DTSBD371
|
|
01529 * IF ARPT-EMP-NO = 149318 DTSBD371
|
|
01530 * DISPLAY 'P2000-END ' ARPT-EMP-NO DTSBD371
|
|
01531 * END-IF. DTSBD371
|
|
01532 *& DTSBD371
|
|
01533 P2000-EXIT. DTSBD371
|
|
01534 EXIT. DTSBD371
|
|
01535 SKIP3 DTSBD371
|
|
01536 P2010-SET-ACCT-SUB. DTSBD371
|
|
01537 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
01538 SET UI-SUB TO MQTR-ACCT-IDX DTSBD371
|
|
01539 ELSE DTSBD371
|
|
01540 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
01541 SET SUR-SUB TO MQTR-ACCT-IDX DTSBD371
|
|
01542 ELSE DTSBD371
|
|
01543 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBD371
|
|
01544 SET INT-SUB TO MQTR-ACCT-IDX DTSBD371
|
|
01545 ELSE DTSBD371
|
|
01546 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBD371
|
|
01547 SET LATE-PEN-SUB TO MQTR-ACCT-IDX DTSBD371
|
|
01548 ELSE DTSBD371
|
|
01549 IF MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX) DTSBD371
|
|
01550 SET NSF-PEN-SUB TO MQTR-ACCT-IDX DTSBD371
|
|
01551 ELSE DTSBD371
|
|
01552 IF MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX) DTSBD371
|
|
01553 SET MISC-PEN-SUB TO MQTR-ACCT-IDX. DTSBD371
|
|
01554 P2010-EXIT. DTSBD371
|
|
01555 EXIT. DTSBD371
|
|
01556 SKIP3 DTSBD371
|
|
01557 P2020-REVERSE-TOLERANCE. DTSBD371
|
|
01558 IF MQTR-TOLER-AMT (MQTR-ACCT-IDX) = 0 DTSBD371
|
|
01559 GO TO P2020-EXIT. DTSBD371
|
|
01560 DTSBD371
|
|
01561 MOVE MQTR-TOLER-AMT (MQTR-ACCT-IDX) TO L541-AMT. DTSBD371
|
|
01562 DTSBD371
|
|
01563 COMPUTE L541-AMT = L541-AMT * -1. DTSBD371
|
|
01564 DTSBD371
|
|
01565 SET L541-ACCT-SUB TO MQTR-ACCT-IDX. DTSBD371
|
|
01566 DTSBD371
|
|
01567 MOVE CACT-CAT-TOLER TO L541-CAT-IND. DTSBD371
|
|
01568 DTSBD371
|
|
01569 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
01570 P2020-EXIT. DTSBD371
|
|
01571 EXIT. DTSBD371
|
|
01572 SKIP3 DTSBD371
|
|
01573 P2030-RECOMPUTE-INT. DTSBD371
|
|
01574 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBD371
|
|
01575 DTSBD371
|
|
01576 MOVE NEW-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBD371
|
|
01577 DTSBD371
|
|
01578 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBD371
|
|
01579 DTSBD371
|
|
01580 MOVE +0 TO WRK-INT-CHARGED-AMT. DTSBD371
|
|
01581 DTSBD371
|
|
01582 MOVE LOW-VALUES TO MDST-KEY-AREA. DTSBD371
|
|
01583 DTSBD371
|
|
01584 MOVE MPRF-EMP-NO TO MDST-EMP-NO. DTSBD371
|
|
01585 DTSBD371
|
|
01586 SET MDST-DST-88 TO TRUE. DTSBD371
|
|
01587 DTSBD371
|
|
01588 MOVE MQTR-YRQ TO MDST-YRQ. DTSBD371
|
|
01589 DTSBD371
|
|
01590 MOVE MDST-KEY-AREA TO MSKL-KEY-AREA. DTSBD371
|
|
01591 DTSBD371
|
|
01592 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD371
|
|
01593 DTSBD371
|
|
01594 PERFORM P2031-SCAN-MDST THRU P2031-EXIT DTSBD371
|
|
01595 UNTIL L910-NO-REC-88. DTSBD371
|
|
01596 DTSBD371
|
|
01597 IF MQTR-INT-CHARGE-AUTO-88 DTSBD371
|
|
01598 PERFORM P2032-CHANGE-INT-CHARGE THRU P2032-EXIT. DTSBD371
|
|
01599 P2030-EXIT. DTSBD371
|
|
01600 EXIT. DTSBD371
|
|
01601 SKIP3 DTSBD371
|
|
01602 P2031-SCAN-MDST. DTSBD371
|
|
01603 MOVE MSKL-REC TO MDST-REC. DTSBD371
|
|
01604 DTSBD371
|
|
01605 IF MDST-YRQ = MQTR-YRQ DTSBD371
|
|
01606 NEXT SENTENCE DTSBD371
|
|
01607 ELSE DTSBD371
|
|
01608 SET L910-NO-REC-88 TO TRUE DTSBD371
|
|
01609 GO TO P2031-EXIT. DTSBD371
|
|
01610 DTSBD371
|
|
01611 PERFORM P2031A-SCAN-ACCT THRU P2031A-EXIT DTSBD371
|
|
01612 VARYING MDST-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
01613 UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT. DTSBD371
|
|
01614 DTSBD371
|
|
01615 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD371
|
|
01616 P2031-EXIT. DTSBD371
|
|
01617 EXIT. DTSBD371
|
|
01618 SKIP2 DTSBD371
|
|
01619 P2031A-SCAN-ACCT. DTSBD371
|
|
01620 ********************************************************** DTSBD371
|
|
01621 * UI TAX ONLY IS SUBJECT TO PENALTY DTSBD371
|
|
01622 ********************************************************** DTSBD371
|
|
01623 IF MDST-ACCT-UI-88 (MDST-ACCT-IDX) DTSBD371
|
|
01624 NEXT SENTENCE DTSBD371
|
|
01625 ELSE DTSBD371
|
|
01626 GO TO P2031A-EXIT. DTSBD371
|
|
01627 DTSBD371
|
|
01628 MOVE MDST-AMT (MDST-ACCT-IDX) TO L101-PAID-CHNG. DTSBD371
|
|
01629 DTSBD371
|
|
01630 MOVE MDST-RECEIVED-DATE TO L101-RECEIVED-DATE. DTSBD371
|
|
01631 DTSBD371
|
|
01632 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBD371
|
|
01633 DTSBD371
|
|
01634 ADD L101-INT-CHARGE-CHNG TO WRK-INT-CHARGED-AMT. DTSBD371
|
|
01635 P2031A-EXIT. DTSBD371
|
|
01636 EXIT. DTSBD371
|
|
01637 SKIP3 DTSBD371
|
|
01638 P2032-CHANGE-INT-CHARGE. DTSBD371
|
|
01639 IF (INT-SUB = +0) DTSBD371
|
|
01640 AND DTSBD371
|
|
01641 (WRK-INT-CHARGED-AMT = +0) DTSBD371
|
|
01642 GO TO P2032-EXIT. DTSBD371
|
|
01643 DTSBD371
|
|
01644 IF INT-SUB = +0 DTSBD371
|
|
01645 PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT DTSBD371
|
|
01646 MOVE MQTR-ACCT-CNT TO INT-SUB DTSBD371
|
|
01647 SET MQTR-ACCT-INT-88 (INT-SUB) TO TRUE. DTSBD371
|
|
01648 DTSBD371
|
|
01649 COMPUTE L541-AMT DTSBD371
|
|
01650 = WRK-INT-CHARGED-AMT - MQTR-CHARGED-AMT (INT-SUB). DTSBD371
|
|
01651 DTSBD371
|
|
01652 IF L541-AMT = +0 DTSBD371
|
|
01653 GO TO P2032-EXIT. DTSBD371
|
|
01654 DTSBD371
|
|
01655 MOVE INT-SUB TO L541-ACCT-SUB. DTSBD371
|
|
01656 DTSBD371
|
|
01657 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD371
|
|
01658 DTSBD371
|
|
01659 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
01660 DTSBD371
|
|
01661 IF MQTR-BALANCE-AMT (INT-SUB) < +0 DTSBD371
|
|
01662 MOVE INT-SUB TO ACCT-SUB DTSBD371
|
|
01663 PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT. DTSBD371
|
|
01664 DTSBD371
|
|
01665 IF MQTR-BALANCE-AMT (INT-SUB) < +0 DTSBD371
|
|
01666 MOVE INT-SUB TO ACCT-SUB DTSBD371
|
|
01667 PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT. DTSBD371
|
|
01668 DTSBD371
|
|
01669 IF MQTR-BALANCE-AMT (INT-SUB) < +0 DTSBD371
|
|
01670 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
01671 P2032-EXIT. DTSBD371
|
|
01672 EXIT. DTSBD371
|
|
01673 SKIP3 DTSBD371
|
|
01674 *P2033-CHANGE-PEN-CHARGE. DTSBD371
|
|
01675 *****IF (PEN-SUB = +0) DTSBD371
|
|
01676 ***********AND DTSBD371
|
|
01677 ********(WRK-PEN-CHARGED-AMT = +0) DTSBD371
|
|
01678 *********GO TO P2033-EXIT. DTSBD371
|
|
01679 DTSBD371
|
|
01680 *****IF PEN-SUB = +0 DTSBD371
|
|
01681 *********PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT DTSBD371
|
|
01682 *********MOVE MQTR-ACCT-CNT TO PEN-SUB DTSBD371
|
|
01683 *********SET MQTR-ACCT-PEN-88 (PEN-SUB) TO TRUE. DTSBD371
|
|
01684 DTSBD371
|
|
01685 *****COMPUTE L541-AMT DTSBD371
|
|
01686 *******= WRK-PEN-CHARGED-AMT - MQTR-CHARGED-AMT (PEN-SUB). DTSBD371
|
|
01687 DTSBD371
|
|
01688 *****IF L541-AMT = +0 DTSBD371
|
|
01689 *********GO TO P2033-EXIT. DTSBD371
|
|
01690 DTSBD371
|
|
01691 *****MOVE PEN-SUB TO L541-ACCT-SUB. DTSBD371
|
|
01692 *****MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD371
|
|
01693 *****PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
01694 DTSBD371
|
|
01695 *****IF MQTR-BALANCE-AMT (PEN-SUB) < +0 DTSBD371
|
|
01696 *********MOVE PEN-SUB TO ACCT-SUB DTSBD371
|
|
01697 *********PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT. DTSBD371
|
|
01698 DTSBD371
|
|
01699 *****IF MQTR-BALANCE-AMT (PEN-SUB) < +0 DTSBD371
|
|
01700 *********MOVE PEN-SUB TO ACCT-SUB DTSBD371
|
|
01701 *********PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT. DTSBD371
|
|
01702 DTSBD371
|
|
01703 *****IF MQTR-BALANCE-AMT (PEN-SUB) < +0 DTSBD371
|
|
01704 *********PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
01705 *P2033-EXIT. DTSBD371
|
|
01706 *****EXIT. DTSBD371
|
|
01707 SKIP3 DTSBD371
|
|
01708 P2040-DECR-PURSUED-RPT-CNT. DTSBD371
|
|
01709 IF L516-ANN-SCHED-88 DTSBD371
|
|
01710 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
01711 IF L004-QTR-5-Q = 4 DTSBD371
|
|
01712 IF MQTR-RPT-IS-PURSUED-88 DTSBD371
|
|
01713 SUBTRACT 1 FROM MPRF-PURSUED-RPT-CNT DTSBD371
|
|
01714 END-IF DTSBD371
|
|
01715 END-IF DTSBD371
|
|
01716 ELSE DTSBD371
|
|
01717 IF MQTR-RPT-IS-PURSUED-88 DTSBD371
|
|
01718 SUBTRACT 1 FROM MPRF-PURSUED-RPT-CNT DTSBD371
|
|
01719 END-IF DTSBD371
|
|
01720 END-IF. DTSBD371
|
|
01721 DTSBD371
|
|
01722 P2040-EXIT. DTSBD371
|
|
01723 EXIT. DTSBD371
|
|
01724 SKIP3 DTSBD371
|
|
01725 P2090-INCR-PURSUED-RPT-CNT. DTSBD371
|
|
01726 IF L516-ANN-SCHED-88 DTSBD371
|
|
01727 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
01728 IF L004-QTR-5-Q = 4 DTSBD371
|
|
01729 IF MQTR-RPT-IS-PURSUED-88 DTSBD371
|
|
01730 ADD 1 TO MPRF-PURSUED-RPT-CNT DTSBD371
|
|
01731 END-IF DTSBD371
|
|
01732 END-IF DTSBD371
|
|
01733 ELSE DTSBD371
|
|
01734 IF MQTR-RPT-IS-PURSUED-88 DTSBD371
|
|
01735 ADD 1 TO MPRF-PURSUED-RPT-CNT DTSBD371
|
|
01736 END-IF DTSBD371
|
|
01737 END-IF. DTSBD371
|
|
01738 DTSBD371
|
|
01739 P2090-EXIT. DTSBD371
|
|
01740 EXIT. DTSBD371
|
|
01741 EJECT DTSBD371
|
|
01742 P2100-DATES. DTSBD371
|
|
01743 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
01744 PERFORM P2110-SELF-INS-DATES THRU P2110-EXIT DTSBD371
|
|
01745 ELSE DTSBD371
|
|
01746 PERFORM P2120-RATED-DATES THRU P2120-EXIT. DTSBD371
|
|
01747 P2100-EXIT. DTSBD371
|
|
01748 EXIT. DTSBD371
|
|
01749 SKIP3 DTSBD371
|
|
01750 P2110-SELF-INS-DATES. DTSBD371
|
|
01751 IF MQTR-TAX-DUE-DATE-AUTO-88 DTSBD371
|
|
01752 MOVE L516-DEFAULT-TAX-DUE-DATE TO NEW-TAX-DUE-DATE. DTSBD371
|
|
01753 DTSBD371
|
|
01754 IF MQTR-RPT-DUE-DATE-AUTO-88 DTSBD371
|
|
01755 MOVE L516-DEFAULT-RPT-DUE-DATE TO NEW-RPT-DUE-DATE. DTSBD371
|
|
01756 P2110-EXIT. DTSBD371
|
|
01757 EXIT. DTSBD371
|
|
01758 SKIP3 DTSBD371
|
|
01759 P2120-RATED-DATES. DTSBD371
|
|
01760 IF MQTR-TAX-DUE-DATE-AUTO-88 DTSBD371
|
|
01761 MOVE L516-DEFAULT-TAX-DUE-DATE TO NEW-TAX-DUE-DATE. DTSBD371
|
|
01762 DTSBD371
|
|
01763 IF MQTR-RPT-DUE-DATE-AUTO-88 DTSBD371
|
|
01764 MOVE L516-DEFAULT-RPT-DUE-DATE TO NEW-RPT-DUE-DATE. DTSBD371
|
|
01765 P2120-EXIT. DTSBD371
|
|
01766 EXIT. DTSBD371
|
|
01767 EJECT DTSBD371
|
|
01768 P2200-CURR-RPT-TYPE. DTSBD371
|
|
01769 EVALUATE TRUE DTSBD371
|
|
01770 WHEN ARPT-WITHDRW-88 DTSBD371
|
|
01771 PERFORM P2210-WITHDRW THRU P2210-EXIT DTSBD371
|
|
01772 WHEN ARPT-ORIG-88 DTSBD371
|
|
01773 SET MQTR-CURR-ORIG-88 TO TRUE DTSBD371
|
|
01774 WHEN ARPT-EMP-AMEND-88 DTSBD371
|
|
01775 SET MQTR-CURR-AMEND-88 TO TRUE DTSBD371
|
|
01776 WHEN ARPT-AUDIT-88 DTSBD371
|
|
01777 SET MQTR-CURR-AUDIT-88 TO TRUE DTSBD371
|
|
01778 WHEN ARPT-FLD-SUP-88 DTSBD371
|
|
01779 SET MQTR-CURR-FIELD-88 TO TRUE DTSBD371
|
|
01780 WHEN ARPT-ADMIN-CORR-88 DTSBD371
|
|
01781 SET MQTR-CURR-ADMIN-88 TO TRUE DTSBD371
|
|
01782 WHEN ARPT-ESTIM-88 DTSBD371
|
|
01783 SET MQTR-CURR-ESTIM-88 TO TRUE DTSBD371
|
|
01784 WHEN ARPT-CLMT-WAGE-88 DTSBD371
|
|
01785 IF NOT MQTR-CURR-RCVD-88 DTSBD371
|
|
01786 SET MQTR-CURR-CLMT-WAGE-88 TO TRUE DTSBD371
|
|
01787 END-IF DTSBD371
|
|
01788 WHEN OTHER DTSBD371
|
|
01789 PERFORM S999-ABEND THRU S999-EXIT DTSBD371
|
|
01790 END-EVALUATE. DTSBD371
|
|
01791 DTSBD371
|
|
01792 ***************** DTSBD371
|
|
01793 * AN AC REPORT MAY BE SUBMITTED FOR AN ANNUAL FILER WHO IS DTSBD371
|
|
01794 * NOT LIABLE. THE WAGES WILL BE REVERSED AND THE QUARTER DTSBD371
|
|
01795 * STATUS SET TO MQTR-CURR-ORIG-ANN-NL-88. ONLY IF THE DTSBD371
|
|
01796 * EMPLOYER IS NOT LIABLE IN ALL 4 QUARTERS WILL THE REPORT DTSBD371
|
|
01797 * BE WITHDRAWN. DTSBD371
|
|
01798 ***************** DTSBD371
|
|
01799 IF L516-NOT-LIABLE-88 DTSBD371
|
|
01800 AND L516-ANN-LIABLE-88 DTSBD371
|
|
01801 SET MQTR-CURR-ORIG-ANN-NL-88 TO TRUE DTSBD371
|
|
01802 END-IF. DTSBD371
|
|
01803 DTSBD371
|
|
01804 ** IF ARPT-WITHDRW-88 DTSBD371
|
|
01805 * PERFORM P2210-WITHDRW THRU P2210-EXIT DTSBD371
|
|
01806 * ELSE DTSBD371
|
|
01807 * IF ARPT-ORIG-88 DTSBD371
|
|
01808 * SET MQTR-CURR-ORIG-88 TO TRUE DTSBD371
|
|
01809 * ELSE DTSBD371
|
|
01810 * IF ARPT-EMP-AMEND-88 DTSBD371
|
|
01811 * SET MQTR-CURR-AMEND-88 TO TRUE DTSBD371
|
|
01812 * ELSE DTSBD371
|
|
01813 * IF ARPT-AUDIT-88 DTSBD371
|
|
01814 * SET MQTR-CURR-AUDIT-88 TO TRUE DTSBD371
|
|
01815 * ELSE DTSBD371
|
|
01816 * IF ARPT-FLD-SUP-88 DTSBD371
|
|
01817 * SET MQTR-CURR-FIELD-88 TO TRUE DTSBD371
|
|
01818 * ELSE DTSBD371
|
|
01819 * IF ARPT-ADMIN-CORR-88 DTSBD371
|
|
01820 * SET MQTR-CURR-ADMIN-88 TO TRUE DTSBD371
|
|
01821 * ELSE DTSBD371
|
|
01822 * IF ARPT-ESTIM-88 DTSBD371
|
|
01823 * SET MQTR-CURR-ESTIM-88 TO TRUE DTSBD371
|
|
01824 * ELSE DTSBD371
|
|
01825 ** PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
01826 DTSBD371
|
|
01827 MOVE MQTR-PURSUED-RPT-IND TO WRK-PURSUED-RPT-IND. DTSBD371
|
|
01828 DTSBD371
|
|
01829 IF (MPRF-NOT-WRITTEN-OFF-88) DTSBD371
|
|
01830 AND DTSBD371
|
|
01831 (MQTR-CURR-DELINQ-88 OR MQTR-CURR-ESTIM-88) DTSBD371
|
|
01832 AND DTSBD371
|
|
01833 (MQTR-YRQ NOT < LBCM-FIRST-PURSUED-RPT-YRQ) DTSBD371
|
|
01834 SET MQTR-RPT-IS-PURSUED-88 TO TRUE DTSBD371
|
|
01835 ELSE DTSBD371
|
|
01836 SET MQTR-RPT-NOT-PURSUED-88 TO TRUE. DTSBD371
|
|
01837 DTSBD371
|
|
01838 IF WRK-PURSUED-RPT-IND = 'N' DTSBD371
|
|
01839 IF MQTR-RPT-IS-PURSUED-88 DTSBD371
|
|
01840 PERFORM S590-QTR-PURSUED THRU S590-EXIT. DTSBD371
|
|
01841 P2200-EXIT. DTSBD371
|
|
01842 EXIT. DTSBD371
|
|
01843 SKIP3 DTSBD371
|
|
01844 P2210-WITHDRW. DTSBD371
|
|
01845 IF NOT L516-LIABLE-88 DTSBD371
|
|
01846 SET MQTR-CURR-NOT-LIABLE-88 TO TRUE DTSBD371
|
|
01847 GO TO P2210-EXIT. DTSBD371
|
|
01848 DTSBD371
|
|
01849 DTSBD371
|
|
01850 IF MQTR-RPT-DUE-DATE-MANUAL-88 DTSBD371
|
|
01851 IF MQTR-RPT-DUE-DATE = L516-DEFAULT-RPT-DUE-DATE DTSBD371
|
|
01852 NEXT SENTENCE DTSBD371
|
|
01853 ELSE DTSBD371
|
|
01854 IF MQTR-RPT-DUE-DATE > LBCM-CURR-RUN-DATE DTSBD371
|
|
01855 SET MQTR-CURR-NOT-DUE-88 TO TRUE DTSBD371
|
|
01856 MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE DTSBD371
|
|
01857 PERFORM S1000-GENERATE-LTE-TCK THRU S1000-EXIT DTSBD371
|
|
01858 GO TO P2210-EXIT DTSBD371
|
|
01859 ELSE DTSBD371
|
|
01860 SET MQTR-CURR-DELINQ-88 TO TRUE DTSBD371
|
|
01861 GO TO P2210-EXIT. DTSBD371
|
|
01862 DTSBD371
|
|
01863 DTSBD371
|
|
01864 MOVE MQTR-YRQ TO L004-QTR-5-9. DTSBD371
|
|
01865 DTSBD371
|
|
01866 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD371
|
|
01867 DTSBD371
|
|
01868 IF MQTR-RPT-DUE-DATE = L004-QTR-DEFAULT-DUE-DATE DTSBD371
|
|
01869 IF MQTR-YRQ > LBCM-LAST-UC30-DEL-MAIL-YRQ DTSBD371
|
|
01870 SET MQTR-CURR-NOT-DUE-88 TO TRUE DTSBD371
|
|
01871 GO TO P2210-EXIT DTSBD371
|
|
01872 ELSE DTSBD371
|
|
01873 SET MQTR-CURR-DELINQ-88 TO TRUE DTSBD371
|
|
01874 GO TO P2210-EXIT. DTSBD371
|
|
01875 DTSBD371
|
|
01876 IF MQTR-RPT-DUE-DATE > LBCM-CURR-RUN-DATE DTSBD371
|
|
01877 SET MQTR-CURR-NOT-DUE-88 TO TRUE DTSBD371
|
|
01878 MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE DTSBD371
|
|
01879 PERFORM S1000-GENERATE-LTE-TCK THRU S1000-EXIT DTSBD371
|
|
01880 GO TO P2210-EXIT DTSBD371
|
|
01881 ELSE DTSBD371
|
|
01882 SET MQTR-CURR-DELINQ-88 TO TRUE DTSBD371
|
|
01883 GO TO P2210-EXIT. DTSBD371
|
|
01884 P2210-EXIT. DTSBD371
|
|
01885 EXIT. DTSBD371
|
|
01886 EJECT DTSBD371
|
|
01887 P2300-RATE. DTSBD371
|
|
01888 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
01889 SET MQTR-NO-UI-RATE-88 TO TRUE DTSBD371
|
|
01890 ELSE DTSBD371
|
|
01891 MOVE L516-UI-RATE TO MQTR-UI-RATE. DTSBD371
|
|
01892 P2300-EXIT. DTSBD371
|
|
01893 EXIT. DTSBD371
|
|
01894 EJECT DTSBD371
|
|
01895 P2400-WAGE-DATA. DTSBD371
|
|
01896 ************ DTSBD371
|
|
01897 * IF A CLAIMANT WAGE REPORT IS ALREADY ON FILE WHEN AN DTSBD371
|
|
01898 * ORIGINAL REPORT IS BEING PROCESSED, TREAT THE ORIGINAL DTSBD371
|
|
01899 * AS AN AMENDMENT, AND ADJUST THE TOTAL AND TAXABLE WAGES DTSBD371
|
|
01900 * BASED ON THE AMOUNTS ALREADY REPORTED. DTSBD371
|
|
01901 ************ DTSBD371
|
|
01902 PERFORM P2410-TOT-WAGE THRU P2410-EXIT. DTSBD371
|
|
01903 DTSBD371
|
|
01904 PERFORM P2420-TAX-WAGE THRU P2420-EXIT. DTSBD371
|
|
01905 DTSBD371
|
|
01906 PERFORM P2430-EXCESS-WAGE THRU P2430-EXIT. DTSBD371
|
|
01907 DTSBD371
|
|
01908 IF (MQTR-TOT-WAGE = PRE-UPDATE-TOT-WAGE) DTSBD371
|
|
01909 AND (MQTR-TAX-WAGE = PRE-UPDATE-TAX-WAGE) DTSBD371
|
|
01910 IF ARPT-ORIG-88 DTSBD371
|
|
01911 MOVE LBCM-CURR-RUN-DATE TO MQTR-WAGE-CHNG-DATE DTSBD371
|
|
01912 ELSE DTSBD371
|
|
01913 IF MQTR-WAGE-CHNG-DATE = 0 DTSBD371
|
|
01914 MOVE LBCM-CURR-RUN-DATE TO MQTR-WAGE-CHNG-DATE DTSBD371
|
|
01915 END-IF DTSBD371
|
|
01916 END-IF DTSBD371
|
|
01917 ELSE DTSBD371
|
|
01918 MOVE LBCM-CURR-RUN-DATE TO MQTR-WAGE-CHNG-DATE DTSBD371
|
|
01919 END-IF. DTSBD371
|
|
01920 DTSBD371
|
|
01921 IF PRE-UPDATE-TOT-WAGE = MQTR-TOT-WAGE DTSBD371
|
|
01922 NEXT SENTENCE DTSBD371
|
|
01923 ELSE DTSBD371
|
|
01924 MOVE MQTR-YRQ TO L549-DELTA-YRQ DTSBD371
|
|
01925 MOVE CACT-ACCT-WAGE TO L549-DELTA-ACCT-IND DTSBD371
|
|
01926 MOVE CACT-CAT-TOT-WAGE TO L549-DELTA-CAT-IND DTSBD371
|
|
01927 COMPUTE L549-DELTA-AMT DTSBD371
|
|
01928 = MQTR-TOT-WAGE - PRE-UPDATE-TOT-WAGE DTSBD371
|
|
01929 PERFORM S549-DELTA THRU S549-EXIT DTSBD371
|
|
01930 *& DTSBD371
|
|
01931 * DISPLAY 'P24 TOT WG ' ARPT-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
01932 * ' ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO DTSBD371
|
|
01933 * ' ' ARPT-RPT-TYPE DTSBD371
|
|
01934 *& DTSBD371
|
|
01935 END-IF. DTSBD371
|
|
01936 DTSBD371
|
|
01937 IF PRE-UPDATE-TAX-WAGE = MQTR-TAX-WAGE DTSBD371
|
|
01938 NEXT SENTENCE DTSBD371
|
|
01939 ELSE DTSBD371
|
|
01940 MOVE MQTR-YRQ TO L549-DELTA-YRQ DTSBD371
|
|
01941 MOVE CACT-ACCT-WAGE TO L549-DELTA-ACCT-IND DTSBD371
|
|
01942 MOVE CACT-CAT-TAX-WAGE TO L549-DELTA-CAT-IND DTSBD371
|
|
01943 COMPUTE L549-DELTA-AMT DTSBD371
|
|
01944 = MQTR-TAX-WAGE - PRE-UPDATE-TAX-WAGE DTSBD371
|
|
01945 PERFORM S549-DELTA THRU S549-EXIT DTSBD371
|
|
01946 *& DTSBD371
|
|
01947 * DISPLAY 'P24 TOT WG ' ARPT-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
01948 * ' ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO DTSBD371
|
|
01949 * ' ' ARPT-RPT-TYPE DTSBD371
|
|
01950 *& DTSBD371
|
|
01951 END-IF. DTSBD371
|
|
01952 DTSBD371
|
|
01953 P2400-EXIT. DTSBD371
|
|
01954 EXIT. DTSBD371
|
|
01955 SKIP3 DTSBD371
|
|
01956 P2410-TOT-WAGE. DTSBD371
|
|
01957 IF ARPT-WITHDRW-88 DTSBD371
|
|
01958 MOVE +0 TO MQTR-TOT-WAGE DTSBD371
|
|
01959 GO TO P2410-EXIT. DTSBD371
|
|
01960 DTSBD371
|
|
01961 EVALUATE TRUE DTSBD371
|
|
01962 WHEN ARPT-ORIG-88 DTSBD371
|
|
01963 IF WRK-CW-ON-FILE-YES-88 DTSBD371
|
|
01964 COMPUTE MQTR-TOT-WAGE DTSBD371
|
|
01965 = MQTR-TOT-WAGE + ARPT-TOT-WAGE DTSBD371
|
|
01966 ELSE DTSBD371
|
|
01967 MOVE ARPT-TOT-WAGE TO MQTR-TOT-WAGE DTSBD371
|
|
01968 END-IF DTSBD371
|
|
01969 DTSBD371
|
|
01970 WHEN ARPT-ESTIM-88 DTSBD371
|
|
01971 MOVE ARPT-TOT-WAGE TO MQTR-TOT-WAGE DTSBD371
|
|
01972 DTSBD371
|
|
01973 WHEN OTHER DTSBD371
|
|
01974 COMPUTE MQTR-TOT-WAGE DTSBD371
|
|
01975 = MQTR-TOT-WAGE + ARPT-TOT-WAGE DTSBD371
|
|
01976 END-EVALUATE. DTSBD371
|
|
01977 DTSBD371
|
|
01978 P2410-EXIT. DTSBD371
|
|
01979 EXIT. DTSBD371
|
|
01980 SKIP3 DTSBD371
|
|
01981 P2420-TAX-WAGE. DTSBD371
|
|
01982 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
01983 MOVE +0 TO MQTR-TAX-WAGE DTSBD371
|
|
01984 GO TO P2420-EXIT. DTSBD371
|
|
01985 DTSBD371
|
|
01986 IF ARPT-WITHDRW-88 DTSBD371
|
|
01987 MOVE +0 TO MQTR-TAX-WAGE DTSBD371
|
|
01988 GO TO P2420-EXIT. DTSBD371
|
|
01989 DTSBD371
|
|
01990 EVALUATE TRUE DTSBD371
|
|
01991 WHEN ARPT-ORIG-88 DTSBD371
|
|
01992 IF WRK-CW-ON-FILE-YES-88 DTSBD371
|
|
01993 COMPUTE MQTR-TAX-WAGE DTSBD371
|
|
01994 = MQTR-TAX-WAGE + ARPT-TAX-WAGE DTSBD371
|
|
01995 ELSE DTSBD371
|
|
01996 MOVE ARPT-TAX-WAGE TO MQTR-TAX-WAGE DTSBD371
|
|
01997 END-IF DTSBD371
|
|
01998 DTSBD371
|
|
01999 WHEN ARPT-ESTIM-88 DTSBD371
|
|
02000 MOVE ARPT-TAX-WAGE TO MQTR-TAX-WAGE DTSBD371
|
|
02001 DTSBD371
|
|
02002 WHEN OTHER DTSBD371
|
|
02003 COMPUTE MQTR-TAX-WAGE DTSBD371
|
|
02004 = MQTR-TAX-WAGE + ARPT-TAX-WAGE DTSBD371
|
|
02005 END-EVALUATE. DTSBD371
|
|
02006 DTSBD371
|
|
02007 * IF ARPT-ORIG-88 OR ARPT-ESTIM-88 DTSBD371
|
|
02008 * MOVE ARPT-TAX-WAGE TO MQTR-TAX-WAGE DTSBD371
|
|
02009 * ELSE DTSBD371
|
|
02010 * COMPUTE MQTR-TAX-WAGE DTSBD371
|
|
02011 * = MQTR-TAX-WAGE + ARPT-TAX-WAGE. DTSBD371
|
|
02012 P2420-EXIT. DTSBD371
|
|
02013 EXIT. DTSBD371
|
|
02014 SKIP3 DTSBD371
|
|
02015 P2430-EXCESS-WAGE. DTSBD371
|
|
02016 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02017 MOVE +0 TO MQTR-EXCESS-WAGE DTSBD371
|
|
02018 GO TO P2430-EXIT. DTSBD371
|
|
02019 DTSBD371
|
|
02020 COMPUTE MQTR-EXCESS-WAGE = MQTR-TOT-WAGE - MQTR-TAX-WAGE. DTSBD371
|
|
02021 P2430-EXIT. DTSBD371
|
|
02022 EXIT. DTSBD371
|
|
02023 EJECT DTSBD371
|
|
02024 P2500-EMPL-DATA. DTSBD371
|
|
02025 MOVE MQTR-1ST-MTH-EMPL-CNT TO WRK-1ST-MTH-EMPL-CNT. DTSBD371
|
|
02026 DTSBD371
|
|
02027 MOVE MQTR-2ND-MTH-EMPL-CNT TO WRK-2ND-MTH-EMPL-CNT. DTSBD371
|
|
02028 DTSBD371
|
|
02029 MOVE MQTR-3RD-MTH-EMPL-CNT TO WRK-3RD-MTH-EMPL-CNT. DTSBD371
|
|
02030 DTSBD371
|
|
02031 IF ARPT-WITHDRW-88 DTSBD371
|
|
02032 PERFORM P2510-TYPE-WITHDRW THRU P2510-EXIT DTSBD371
|
|
02033 ELSE DTSBD371
|
|
02034 IF ARPT-ORIG-88 DTSBD371
|
|
02035 PERFORM P2520-TYPE-ORIG THRU P2520-EXIT. DTSBD371
|
|
02036 DTSBD371
|
|
02037 IF (MQTR-1ST-MTH-EMPL-CNT = WRK-1ST-MTH-EMPL-CNT) DTSBD371
|
|
02038 AND DTSBD371
|
|
02039 (MQTR-2ND-MTH-EMPL-CNT = WRK-2ND-MTH-EMPL-CNT) DTSBD371
|
|
02040 AND DTSBD371
|
|
02041 (MQTR-3RD-MTH-EMPL-CNT = WRK-3RD-MTH-EMPL-CNT) DTSBD371
|
|
02042 NEXT SENTENCE DTSBD371
|
|
02043 ELSE DTSBD371
|
|
02044 MOVE LBCM-CURR-RUN-DATE TO MQTR-EMPL-CNT-CHNG-DATE. DTSBD371
|
|
02045 P2500-EXIT. DTSBD371
|
|
02046 EXIT. DTSBD371
|
|
02047 SKIP3 DTSBD371
|
|
02048 P2510-TYPE-WITHDRW. DTSBD371
|
|
02049 SET MQTR-1ST-MTH-NO-ENTRY-88 TO TRUE. DTSBD371
|
|
02050 DTSBD371
|
|
02051 SET MQTR-2ND-MTH-NO-ENTRY-88 TO TRUE. DTSBD371
|
|
02052 DTSBD371
|
|
02053 SET MQTR-3RD-MTH-NO-ENTRY-88 TO TRUE. DTSBD371
|
|
02054 P2510-EXIT. DTSBD371
|
|
02055 EXIT. DTSBD371
|
|
02056 SKIP3 DTSBD371
|
|
02057 P2520-TYPE-ORIG. DTSBD371
|
|
02058 MOVE ARPT-1ST-MTH-EMPL-CNT TO MQTR-1ST-MTH-EMPL-CNT. DTSBD371
|
|
02059 DTSBD371
|
|
02060 MOVE ARPT-2ND-MTH-EMPL-CNT TO MQTR-2ND-MTH-EMPL-CNT. DTSBD371
|
|
02061 DTSBD371
|
|
02062 MOVE ARPT-3RD-MTH-EMPL-CNT TO MQTR-3RD-MTH-EMPL-CNT. DTSBD371
|
|
02063 DTSBD371
|
|
02064 *****IF MPRF-OWN-CD = '2 ' DTSBD371
|
|
02065 *********GO TO P2520-EXIT. DTSBD371
|
|
02066 DTSBD371
|
|
02067 IF MQTR-TOT-WAGE > +0 DTSBD371
|
|
02068 NEXT SENTENCE DTSBD371
|
|
02069 ELSE DTSBD371
|
|
02070 GO TO P2520-EXIT. DTSBD371
|
|
02071 DTSBD371
|
|
02072 IF ((MQTR-1ST-MTH-NO-ENTRY-88) DTSBD371
|
|
02073 AND DTSBD371
|
|
02074 (MQTR-2ND-MTH-NO-ENTRY-88) DTSBD371
|
|
02075 AND DTSBD371
|
|
02076 (MQTR-3RD-MTH-NO-ENTRY-88)) DTSBD371
|
|
02077 OR DTSBD371
|
|
02078 ((MQTR-1ST-MTH-EMPL-CNT = +0) DTSBD371
|
|
02079 AND DTSBD371
|
|
02080 (MQTR-2ND-MTH-EMPL-CNT = +0) DTSBD371
|
|
02081 AND DTSBD371
|
|
02082 (MQTR-3RD-MTH-EMPL-CNT = +0)) DTSBD371
|
|
02083 NEXT SENTENCE DTSBD371
|
|
02084 ELSE DTSBD371
|
|
02085 GO TO P2520-EXIT DTSBD371
|
|
02086 END-IF. DTSBD371
|
|
02087 DTSBD371
|
|
02088 IF L516-ANN-SCHED-88 DTSBD371
|
|
02089 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
02090 IF L004-QTR-5-Q < 4 DTSBD371
|
|
02091 GO TO P2520-EXIT DTSBD371
|
|
02092 END-IF DTSBD371
|
|
02093 END-IF. DTSBD371
|
|
02094 DTSBD371
|
|
02095 MOVE MPRF-EMP-NO TO R726-EMP-NO. DTSBD371
|
|
02096 DTSBD371
|
|
02097 MOVE MQTR-YRQ TO R726-YRQ. DTSBD371
|
|
02098 DTSBD371
|
|
02099 MOVE LBCM-CURR-MAIL-DATE TO R726-MAIL-DATE. DTSBD371
|
|
02100 DTSBD371
|
|
02101 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD371
|
|
02102 DTSBD371
|
|
02103 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD371
|
|
02104 DTSBD371
|
|
02105 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBD371
|
|
02106 DTSBD371
|
|
02107 IF L111-ADDR-FOUND-88 DTSBD371
|
|
02108 MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE DTSBD371
|
|
02109 SET L112-ANCHOR-LAST-88 TO TRUE DTSBD371
|
|
02110 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME DTSBD371
|
|
02111 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBD371
|
|
02112 PERFORM S112-FORMAT-ADDR THRU S112-EXIT DTSBD371
|
|
02113 ELSE DTSBD371
|
|
02114 MOVE ALL '?' TO L112-ADDRESS DTSBD371
|
|
02115 L112-MAILING-ADDRESS. DTSBD371
|
|
02116 DTSBD371
|
|
02117 MOVE L112-MAILING-ADDRESS TO R726-FMT-ADDR. DTSBD371
|
|
02118 DTSBD371
|
|
02119 MOVE L112-ZIP TO R726-ZIP. DTSBD371
|
|
02120 DTSBD371
|
|
02121 MOVE L112-ADVANCED-BARCODE TO R726-ADVANCED-BARCODE. DTSBD371
|
|
02122 DTSBD371
|
|
02123 PERFORM S946-R726-WRITE THRU S946-EXIT. DTSBD371
|
|
02124 P2520-EXIT. DTSBD371
|
|
02125 EXIT. DTSBD371
|
|
02126 EJECT DTSBD371
|
|
02127 P2590-WAGE-RPT-IND. DTSBD371
|
|
02128 ** MODIFIED FOR NEW MEANING OF WAGE-RPT-IND: DTSBD371
|
|
02129 ** SPECIFIES WHETHER WAGES WERE SUBMITTED ON MAG MEDIA. DTSBD371
|
|
02130 MOVE ARPT-WAGE-RPT-IND TO MQTR-WAGE-RPT-IND. DTSBD371
|
|
02131 DTSBD371
|
|
02132 * IF ARPT-WAGE-RPT-YES-88 DTSBD371
|
|
02133 * SET MQTR-WAGE-RPT-YES-88 TO TRUE DTSBD371
|
|
02134 * ELSE DTSBD371
|
|
02135 * IF ARPT-WAGE-RPT-NO-88 DTSBD371
|
|
02136 * MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD371
|
|
02137 * PERFORM S004-FROM-5 THRU S004-EXIT DTSBD371
|
|
02138 * MOVE L004-SLASH-QTR TO EVL1-SLASH-QTR DTSBD371
|
|
02139 * MOVE EVL1-TEXT TO EVL-TEXT DTSBD371
|
|
02140 * PERFORM S4000-WRITE-MEVL THRU S4000-EXIT DTSBD371
|
|
02141 * SET MQTR-WAGE-RPT-NO-88 TO TRUE. DTSBD371
|
|
02142 P2590-EXIT. DTSBD371
|
|
02143 EXIT. DTSBD371
|
|
02144 EJECT DTSBD371
|
|
02145 P2600-ACCT-TAX. DTSBD371
|
|
02146 MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS. DTSBD371
|
|
02147 DTSBD371
|
|
02148 MOVE MQTR-YRQ TO L109-YRQ. DTSBD371
|
|
02149 SET L109-CMND-INPUT-QTR-88 TO TRUE. DTSBD371
|
|
02150 DTSBD371
|
|
02151 PERFORM S109-SUR-RATE THRU S109-EXIT. DTSBD371
|
|
02152 DTSBD371
|
|
02153 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02154 NEXT SENTENCE DTSBD371
|
|
02155 ELSE DTSBD371
|
|
02156 COMPUTE WRK-UI-CHARGED-AMT ROUNDED DTSBD371
|
|
02157 = MQTR-TAX-WAGE * MQTR-UI-RATE DTSBD371
|
|
02158 COMPUTE WRK-SUR-CHARGED-AMT ROUNDED DTSBD371
|
|
02159 = MQTR-TAX-WAGE * L109-SUR-RATE DTSBD371
|
|
02160 END-IF. DTSBD371
|
|
02161 *& DTSBD371
|
|
02162 * MOVE MQTR-TAX-WAGE TO AMT-DISP1. DTSBD371
|
|
02163 * MOVE L109-SUR-RATE TO AMT-DISP-RATE1. DTSBD371
|
|
02164 * MOVE WRK-SUR-CHARGED-AMT TO AMT-DISP2. DTSBD371
|
|
02165 * DTSBD371
|
|
02166 * DISPLAY 'BD371 P2600 ' MPRF-EMP-NO ' WAGE ' AMT-DISP1 DTSBD371
|
|
02167 * ' RATE ' AMT-DISP-RATE1 ' CHG ' AMT-DISP2. DTSBD371
|
|
02168 *& DTSBD371
|
|
02169 DTSBD371
|
|
02170 *** PERFORM P2610-ADJUST-TAX-CHARGE THRU P2610-EXIT. DTSBD371
|
|
02171 DTSBD371
|
|
02172 PERFORM P2620-UI-CHARGED THRU P2620-EXIT. DTSBD371
|
|
02173 DTSBD371
|
|
02174 PERFORM P2640-SUR-CHARGED THRU P2640-EXIT. DTSBD371
|
|
02175 DTSBD371
|
|
02176 P2600-EXIT. DTSBD371
|
|
02177 EXIT. DTSBD371
|
|
02178 SKIP3 DTSBD371
|
|
02179 *P2610-ADJUST-TAX-CHARGE. DTSBD371
|
|
02180 * IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02181 * GO TO P2610-EXIT. DTSBD371
|
|
02182 * DTSBD371
|
|
02183 * COMPUTE TAX-RATE DTSBD371
|
|
02184 * = MQTR-UI-RATE + L109-SUR-RATE. DTSBD371
|
|
02185 * DTSBD371
|
|
02186 *& DTSBD371
|
|
02187 * MOVE TAX-RATE TO AMT-DISP-RATE2. DTSBD371
|
|
02188 * DISPLAY 'BD371 P2610 TAX RATE ' AMT-DISP-RATE2. DTSBD371
|
|
02189 */& DTSBD371
|
|
02190 * COMPUTE WRK-TAX-CHRG-DIFF-AMT ROUNDED DTSBD371
|
|
02191 * = (MQTR-TAX-WAGE * TAX-RATE). DTSBD371
|
|
02192 * DTSBD371
|
|
02193 *& DTSBD371
|
|
02194 * MOVE WRK-TAX-CHRG-DIFF-AMT TO AMT-DISP1. DTSBD371
|
|
02195 * DISPLAY 'BD371 P2610 DIFF ' AMT-DISP1. DTSBD371
|
|
02196 */& DTSBD371
|
|
02197 * COMPUTE WRK-TAX-CHRG-DIFF-AMT DTSBD371
|
|
02198 * = WRK-TAX-CHRG-DIFF-AMT DTSBD371
|
|
02199 * - (WRK-UI-CHARGED-AMT + WRK-SUR-CHARGED-AMT). DTSBD371
|
|
02200 * DTSBD371
|
|
02201 *& DTSBD371
|
|
02202 * MOVE WRK-TAX-CHRG-DIFF-AMT TO AMT-DISP1. DTSBD371
|
|
02203 * DISPLAY 'BD371 P2610 DIFF ' AMT-DISP1. DTSBD371
|
|
02204 */& DTSBD371
|
|
02205 * IF WRK-TAX-CHRG-DIFF-AMT = +0 DTSBD371
|
|
02206 * GO TO P2610-EXIT. DTSBD371
|
|
02207 * DTSBD371
|
|
02208 * IF WRK-SUR-CHARGED-AMT > +0 DTSBD371
|
|
02209 * IF (WRK-SUR-CHARGED-AMT + WRK-TAX-CHRG-DIFF-AMT) > +0 DTSBD371
|
|
02210 * ADD WRK-TAX-CHRG-DIFF-AMT TO WRK-SUR-CHARGED-AMT DTSBD371
|
|
02211 *& DTSBD371
|
|
02212 * MOVE WRK-SUR-CHARGED-AMT TO AMT-DISP1 DTSBD371
|
|
02213 * DISPLAY 'BD371 P2610 SUR ' AMT-DISP1 DTSBD371
|
|
02214 */& DTSBD371
|
|
02215 * GO TO P2610-EXIT. DTSBD371
|
|
02216 * DTSBD371
|
|
02217 * IF WRK-UI-CHARGED-AMT > +0 DTSBD371
|
|
02218 * IF (WRK-UI-CHARGED-AMT + WRK-TAX-CHRG-DIFF-AMT) > +0 DTSBD371
|
|
02219 * ADD WRK-TAX-CHRG-DIFF-AMT TO WRK-UI-CHARGED-AMT DTSBD371
|
|
02220 *& DTSBD371
|
|
02221 * MOVE WRK-UI-CHARGED-AMT TO AMT-DISP1 DTSBD371
|
|
02222 * DISPLAY 'BD371 P2610 UI ' AMT-DISP1 DTSBD371
|
|
02223 */& DTSBD371
|
|
02224 * GO TO P2610-EXIT. DTSBD371
|
|
02225 *P2610-EXIT. DTSBD371
|
|
02226 * EXIT. DTSBD371
|
|
02227 SKIP3 DTSBD371
|
|
02228 P2620-UI-CHARGED. DTSBD371
|
|
02229 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02230 GO TO P2620-EXIT. DTSBD371
|
|
02231 DTSBD371
|
|
02232 IF (UI-SUB = 0) DTSBD371
|
|
02233 AND DTSBD371
|
|
02234 (WRK-UI-CHARGED-AMT = 0) DTSBD371
|
|
02235 GO TO P2620-EXIT. DTSBD371
|
|
02236 DTSBD371
|
|
02237 IF UI-SUB = 0 DTSBD371
|
|
02238 PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT DTSBD371
|
|
02239 MOVE MQTR-ACCT-CNT TO UI-SUB DTSBD371
|
|
02240 SET MQTR-ACCT-UI-88 (UI-SUB) TO TRUE. DTSBD371
|
|
02241 DTSBD371
|
|
02242 COMPUTE L541-AMT DTSBD371
|
|
02243 = WRK-UI-CHARGED-AMT - MQTR-CHARGED-AMT (UI-SUB). DTSBD371
|
|
02244 DTSBD371
|
|
02245 IF L541-AMT = 0 DTSBD371
|
|
02246 GO TO P2620-EXIT. DTSBD371
|
|
02247 DTSBD371
|
|
02248 MOVE UI-SUB TO L541-ACCT-SUB. DTSBD371
|
|
02249 DTSBD371
|
|
02250 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD371
|
|
02251 DTSBD371
|
|
02252 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
02253 DTSBD371
|
|
02254 IF MQTR-BALANCE-AMT (UI-SUB) < 0 DTSBD371
|
|
02255 *& DTSBD371
|
|
02256 * IF MQTR-EMP-NO = 081547 DTSBD371
|
|
02257 * MOVE L541-AMT TO AMT-DISP2 DTSBD371
|
|
02258 * DISPLAY 'BD371 UI ' MQTR-YRQ ' ' AMT-DISP2 DTSBD371
|
|
02259 * END-IF DTSBD371
|
|
02260 *& DTSBD371
|
|
02261 MOVE UI-SUB TO ACCT-SUB DTSBD371
|
|
02262 PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT. DTSBD371
|
|
02263 DTSBD371
|
|
02264 IF MQTR-BALANCE-AMT (UI-SUB) < 0 DTSBD371
|
|
02265 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
02266 P2620-EXIT. DTSBD371
|
|
02267 EXIT. DTSBD371
|
|
02268 SKIP3 DTSBD371
|
|
02269 P2640-SUR-CHARGED. DTSBD371
|
|
02270 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02271 GO TO P2640-EXIT. DTSBD371
|
|
02272 DTSBD371
|
|
02273 IF (SUR-SUB = 0) DTSBD371
|
|
02274 AND DTSBD371
|
|
02275 (WRK-SUR-CHARGED-AMT = 0) DTSBD371
|
|
02276 GO TO P2640-EXIT. DTSBD371
|
|
02277 DTSBD371
|
|
02278 IF SUR-SUB = 0 DTSBD371
|
|
02279 PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT DTSBD371
|
|
02280 MOVE MQTR-ACCT-CNT TO SUR-SUB DTSBD371
|
|
02281 SET MQTR-ACCT-SUR-88 (SUR-SUB) TO TRUE. DTSBD371
|
|
02282 DTSBD371
|
|
02283 COMPUTE L541-AMT DTSBD371
|
|
02284 = WRK-SUR-CHARGED-AMT - MQTR-CHARGED-AMT (SUR-SUB). DTSBD371
|
|
02285 DTSBD371
|
|
02286 IF L541-AMT = 0 DTSBD371
|
|
02287 GO TO P2640-EXIT. DTSBD371
|
|
02288 DTSBD371
|
|
02289 MOVE SUR-SUB TO L541-ACCT-SUB. DTSBD371
|
|
02290 DTSBD371
|
|
02291 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD371
|
|
02292 DTSBD371
|
|
02293 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
02294 DTSBD371
|
|
02295 IF MQTR-BALANCE-AMT (SUR-SUB) < 0 DTSBD371
|
|
02296 *& DTSBD371
|
|
02297 * IF MQTR-EMP-NO = 081547 DTSBD371
|
|
02298 * MOVE L541-AMT TO AMT-DISP2 DTSBD371
|
|
02299 * DISPLAY 'BD371 SU ' MQTR-YRQ ' ' AMT-DISP2 DTSBD371
|
|
02300 * END-IF DTSBD371
|
|
02301 *& DTSBD371
|
|
02302 MOVE SUR-SUB TO ACCT-SUB DTSBD371
|
|
02303 PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT. DTSBD371
|
|
02304 DTSBD371
|
|
02305 IF MQTR-BALANCE-AMT (SUR-SUB) < 0 DTSBD371
|
|
02306 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
02307 P2640-EXIT. DTSBD371
|
|
02308 EXIT. DTSBD371
|
|
02309 SKIP3 DTSBD371
|
|
02310 P2700-ACCT-INT. DTSBD371
|
|
02311 IF INT-SUB = 0 DTSBD371
|
|
02312 GO TO P2700-EXIT. DTSBD371
|
|
02313 DTSBD371
|
|
02314 PERFORM P2710-INT-CHARGED THRU P2710-EXIT. DTSBD371
|
|
02315 DTSBD371
|
|
02316 IF MQTR-BALANCE-AMT (INT-SUB) < +0 DTSBD371
|
|
02317 MOVE INT-SUB TO ACCT-SUB DTSBD371
|
|
02318 PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT. DTSBD371
|
|
02319 DTSBD371
|
|
02320 IF MQTR-BALANCE-AMT (INT-SUB) < +0 DTSBD371
|
|
02321 MOVE INT-SUB TO ACCT-SUB DTSBD371
|
|
02322 PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT. DTSBD371
|
|
02323 DTSBD371
|
|
02324 IF MQTR-BALANCE-AMT (INT-SUB) < +0 DTSBD371
|
|
02325 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
02326 P2700-EXIT. DTSBD371
|
|
02327 EXIT. DTSBD371
|
|
02328 SKIP3 DTSBD371
|
|
02329 P2710-INT-CHARGED. DTSBD371
|
|
02330 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02331 GO TO P2710-EXIT. DTSBD371
|
|
02332 DTSBD371
|
|
02333 IF ARPT-WITHDRW-88 DTSBD371
|
|
02334 NEXT SENTENCE DTSBD371
|
|
02335 ELSE DTSBD371
|
|
02336 GO TO P2710-EXIT. DTSBD371
|
|
02337 DTSBD371
|
|
02338 COMPUTE L541-AMT = MQTR-CHARGED-AMT (INT-SUB) * -1. DTSBD371
|
|
02339 DTSBD371
|
|
02340 IF L541-AMT = +0 DTSBD371
|
|
02341 GO TO P2710-EXIT. DTSBD371
|
|
02342 DTSBD371
|
|
02343 MOVE INT-SUB TO L541-ACCT-SUB. DTSBD371
|
|
02344 DTSBD371
|
|
02345 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD371
|
|
02346 DTSBD371
|
|
02347 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
02348 P2710-EXIT. DTSBD371
|
|
02349 EXIT. DTSBD371
|
|
02350 EJECT DTSBD371
|
|
02351 P2800-ACCT-LATE-PAY-PEN. DTSBD371
|
|
02352 IF ARPT-WITHDRW-88 DTSBD371
|
|
02353 PERFORM P2820-WITHDRAW-LATE-PEN THRU P2820-EXIT DTSBD371
|
|
02354 ELSE DTSBD371
|
|
02355 IF ARPT-ORIG-88 DTSBD371
|
|
02356 PERFORM P2810-ORIG-RPT THRU P2810-EXIT DTSBD371
|
|
02357 ELSE DTSBD371
|
|
02358 IF ARPT-ESTIM-88 DTSBD371
|
|
02359 PERFORM P2830-ORIG-ESTIM-LATE-PEN THRU P2830-EXIT DTSBD371
|
|
02360 END-IF DTSBD371
|
|
02361 END-IF DTSBD371
|
|
02362 END-IF. DTSBD371
|
|
02363 DTSBD371
|
|
02364 IF LATE-PEN-SUB = +0 DTSBD371
|
|
02365 GO TO P2800-EXIT. DTSBD371
|
|
02366 DTSBD371
|
|
02367 IF MQTR-BALANCE-AMT (LATE-PEN-SUB) < +0 DTSBD371
|
|
02368 MOVE LATE-PEN-SUB TO ACCT-SUB DTSBD371
|
|
02369 PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT. DTSBD371
|
|
02370 DTSBD371
|
|
02371 IF MQTR-BALANCE-AMT (LATE-PEN-SUB) < +0 DTSBD371
|
|
02372 MOVE LATE-PEN-SUB TO ACCT-SUB DTSBD371
|
|
02373 PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT. DTSBD371
|
|
02374 DTSBD371
|
|
02375 IF MQTR-BALANCE-AMT (LATE-PEN-SUB) < +0 DTSBD371
|
|
02376 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
02377 P2800-EXIT. DTSBD371
|
|
02378 EXIT. DTSBD371
|
|
02379 DTSBD371
|
|
02380 P2810-ORIG-RPT. DTSBD371
|
|
02381 PERFORM P2820-WITHDRAW-LATE-PEN THRU P2820-EXIT. DTSBD371
|
|
02382 DTSBD371
|
|
02383 IF ARPT-RESPONSIBLE-OP-ID = 'TRANSFER' DTSBD371
|
|
02384 NEXT SENTENCE DTSBD371
|
|
02385 ELSE DTSBD371
|
|
02386 IF PRE-UPDATE-CURR-ESTIM-88 DTSBD371
|
|
02387 *** PERFORM P2820-WITHDRAW-LATE-PEN THRU P2820-EXIT DTSBD371
|
|
02388 PERFORM P2830-ORIG-ESTIM-LATE-PEN THRU P2830-EXIT DTSBD371
|
|
02389 ELSE DTSBD371
|
|
02390 PERFORM P2830-ORIG-ESTIM-LATE-PEN THRU P2830-EXIT DTSBD371
|
|
02391 END-IF DTSBD371
|
|
02392 END-IF. DTSBD371
|
|
02393 DTSBD371
|
|
02394 P2810-EXIT. DTSBD371
|
|
02395 EXIT. DTSBD371
|
|
02396 SKIP3 DTSBD371
|
|
02397 P2820-WITHDRAW-LATE-PEN. DTSBD371
|
|
02398 *****IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02399 ***** GO TO P2820-EXIT. DTSBD371
|
|
02400 DTSBD371
|
|
02401 IF LATE-PEN-SUB = +0 DTSBD371
|
|
02402 GO TO P2820-EXIT. DTSBD371
|
|
02403 DTSBD371
|
|
02404 COMPUTE L541-AMT = MQTR-CHARGED-AMT (LATE-PEN-SUB) * -1. DTSBD371
|
|
02405 DTSBD371
|
|
02406 IF L541-AMT = +0 DTSBD371
|
|
02407 GO TO P2820-EXIT. DTSBD371
|
|
02408 DTSBD371
|
|
02409 MOVE LATE-PEN-SUB TO L541-ACCT-SUB. DTSBD371
|
|
02410 DTSBD371
|
|
02411 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD371
|
|
02412 DTSBD371
|
|
02413 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
02414 P2820-EXIT. DTSBD371
|
|
02415 EXIT. DTSBD371
|
|
02416 SKIP3 DTSBD371
|
|
02417 P2830-ORIG-ESTIM-LATE-PEN. DTSBD371
|
|
02418 *****IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02419 *********GO TO P2830-EXIT. DTSBD371
|
|
02420 DTSBD371
|
|
02421 MOVE +0 TO L102-LATE-PEN-CHARGED-AMT DTSBD371
|
|
02422 L102-TAX-CHARGED-AMT DTSBD371
|
|
02423 L102-TAX-BALANCE-AMT. DTSBD371
|
|
02424 DTSBD371
|
|
02425 IF L516-ANN-SCHED-88 DTSBD371
|
|
02426 MOVE ARPT-YRQ TO L004-QTR-5-9 DTSBD371
|
|
02427 IF L004-QTR-5-Q = 4 DTSBD371
|
|
02428 PERFORM P2833-ANN-SUM THRU P2833-EXIT DTSBD371
|
|
02429 MOVE WRK-ANN-LP-CHG-AMT TO DTSBD371
|
|
02430 L102-LATE-PEN-CHARGED-AMT DTSBD371
|
|
02431 MOVE WRK-ANN-TAX-CHG-AMT TO DTSBD371
|
|
02432 L102-TAX-CHARGED-AMT DTSBD371
|
|
02433 ELSE DTSBD371
|
|
02434 PERFORM P2833-ANN-SUM THRU P2833-EXIT DTSBD371
|
|
02435 GO TO P2830-EXIT DTSBD371
|
|
02436 END-IF DTSBD371
|
|
02437 ELSE DTSBD371
|
|
02438 PERFORM P2832-QTR-SUM THRU P2832-EXIT DTSBD371
|
|
02439 END-IF. DTSBD371
|
|
02440 DTSBD371
|
|
02441 MOVE MPRF-EMP-CLASS TO L102-EMP-CLASS. DTSBD371
|
|
02442 DTSBD371
|
|
02443 MOVE ARPT-RECEIVED-DATE TO L102-TRAN-RECEIVED-DATE. DTSBD371
|
|
02444 DTSBD371
|
|
02445 MOVE ARPT-WAIVE-LATE-PEN-IND TO L102-WAIVE-LATE-PEN-IND. DTSBD371
|
|
02446 DTSBD371
|
|
02447 MOVE LBCM-CURR-RUN-DATE TO L102-CURR-RUN-DATE. DTSBD371
|
|
02448 DTSBD371
|
|
02449 IF L516-ANN-SCHED-88 DTSBD371
|
|
02450 MOVE WRK-UC30H-DEL-END-YRQ DTSBD371
|
|
02451 TO L102-LAST-PEN-ASSESSED-YRQ DTSBD371
|
|
02452 ELSE DTSBD371
|
|
02453 MOVE LBCM-LAST-PEN-ASSESSED-YRQ DTSBD371
|
|
02454 TO L102-LAST-PEN-ASSESSED-YRQ DTSBD371
|
|
02455 END-IF. DTSBD371
|
|
02456 DISPLAY 'LAST PEN YRQ ' L102-LAST-PEN-ASSESSED-YRQ. DTSBD371
|
|
02457 DTSBD371
|
|
02458 IF ARPT-ORIG-88 DTSBD371
|
|
02459 MOVE ARPT-RECEIVED-DATE TO L102-OR-RECEIVED-DATE DTSBD371
|
|
02460 ELSE DTSBD371
|
|
02461 MOVE +0 TO L102-OR-RECEIVED-DATE. DTSBD371
|
|
02462 DTSBD371
|
|
02463 MOVE MQTR-YRQ TO L102-MQTR-YRQ. DTSBD371
|
|
02464 DTSBD371
|
|
02465 MOVE MQTR-TAX-DUE-DATE TO L102-TAX-DUE-DATE. DTSBD371
|
|
02466 DTSBD371
|
|
02467 MOVE MQTR-RPT-DUE-DATE TO L102-RPT-DUE-DATE. DTSBD371
|
|
02468 DTSBD371
|
|
02469 MOVE MQTR-PEN-AREA TO L102-PEN-AREA. DTSBD371
|
|
02470 DTSBD371
|
|
02471 MOVE ZERO TO WRK-TIMELY-PAYMENTS. DTSBD371
|
|
02472 DTSBD371
|
|
02473 PERFORM P2831-TIMELY-PAYMENT THRU P2831-EXIT. DTSBD371
|
|
02474 COMPUTE L102-TAX-BALANCE-AMT = DTSBD371
|
|
02475 (L102-TAX-CHARGED-AMT - WRK-TIMELY-PAYMENTS). DTSBD371
|
|
02476 DTSBD371
|
|
02477 MOVE L102-TAX-BALANCE-AMT TO AMT-DISP1. DTSBD371
|
|
02478 DISPLAY 'TAX BAL AFTER 2831 ' AMT-DISP1. DTSBD371
|
|
02479 DTSBD371
|
|
02480 IF L516-ANN-SCHED-88 DTSBD371
|
|
02481 MOVE WRK-ANN-REMIT-AMT TO AMT-DISP1 DTSBD371
|
|
02482 DISPLAY 'BD371 P2830 ' ARPT-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
02483 ' ' AMT-DISP1 DTSBD371
|
|
02484 MOVE WRK-ANN-REMIT-AMT TO WRK-REMIT-AMT DTSBD371
|
|
02485 MOVE +0 TO WRK-ANN-REMIT-AMT DTSBD371
|
|
02486 ELSE DTSBD371
|
|
02487 MOVE ARPT-REMIT-AMT TO WRK-REMIT-AMT DTSBD371
|
|
02488 END-IF. DTSBD371
|
|
02489 DTSBD371
|
|
02490 IF ARPT-ORIG-88 DTSBD371
|
|
02491 IF WRK-REMIT-AMT <= +0 DTSBD371
|
|
02492 NEXT SENTENCE DTSBD371
|
|
02493 ELSE DTSBD371
|
|
02494 IF WRK-REMIT-AMT > L102-TAX-BALANCE-AMT DTSBD371
|
|
02495 MOVE +0 TO L102-TAX-BALANCE-AMT DTSBD371
|
|
02496 ELSE DTSBD371
|
|
02497 COMPUTE L102-TAX-BALANCE-AMT DTSBD371
|
|
02498 = L102-TAX-BALANCE-AMT - WRK-REMIT-AMT DTSBD371
|
|
02499 END-IF DTSBD371
|
|
02500 END-IF DTSBD371
|
|
02501 END-IF. DTSBD371
|
|
02502 DTSBD371
|
|
02503 IF ARPT-ORIG-88 DTSBD371
|
|
02504 IF MPRF-TOT-CREDIT-AMT <= +0 DTSBD371
|
|
02505 NEXT SENTENCE DTSBD371
|
|
02506 ELSE DTSBD371
|
|
02507 IF MPRF-TOT-CREDIT-AMT > L102-TAX-BALANCE-AMT DTSBD371
|
|
02508 MOVE +0 TO L102-TAX-BALANCE-AMT DTSBD371
|
|
02509 ELSE DTSBD371
|
|
02510 COMPUTE L102-TAX-BALANCE-AMT DTSBD371
|
|
02511 = L102-TAX-BALANCE-AMT - MPRF-TOT-CREDIT-AMT DTSBD371
|
|
02512 END-IF DTSBD371
|
|
02513 END-IF DTSBD371
|
|
02514 END-IF. DTSBD371
|
|
02515 DTSBD371
|
|
02516 MOVE L102-TAX-BALANCE-AMT TO AMT-DISP1. DTSBD371
|
|
02517 DISPLAY 'TAX BAL BEFORE CALL TO 102 ' AMT-DISP1. DTSBD371
|
|
02518 DTSBD371
|
|
02519 IF ARPT-ORIG-88 DTSBD371
|
|
02520 PERFORM S102-ORIGINAL-RPT THRU S102-EXIT DTSBD371
|
|
02521 ELSE DTSBD371
|
|
02522 PERFORM S102-ESTIMATED-RPT THRU S102-EXIT DTSBD371
|
|
02523 END-IF. DTSBD371
|
|
02524 DTSBD371
|
|
02525 IF L102-LATE-PEN-CHARGE-CHNG = +0 DTSBD371
|
|
02526 AND L102-LATE-PEN-WAIVE-CHNG = +0 DTSBD371
|
|
02527 GO TO P2830-EXIT. DTSBD371
|
|
02528 DTSBD371
|
|
02529 IF LATE-PEN-SUB = +0 DTSBD371
|
|
02530 PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT DTSBD371
|
|
02531 MOVE MQTR-ACCT-CNT TO LATE-PEN-SUB DTSBD371
|
|
02532 SET MQTR-ACCT-LATE-PEN-88 (LATE-PEN-SUB) TO TRUE. DTSBD371
|
|
02533 DTSBD371
|
|
02534 MOVE L102-LATE-PEN-CHARGE-CHNG TO L541-AMT. DTSBD371
|
|
02535 DTSBD371
|
|
02536 IF L541-AMT NOT = +0 DTSBD371
|
|
02537 MOVE LATE-PEN-SUB TO L541-ACCT-SUB DTSBD371
|
|
02538 MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD371
|
|
02539 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
02540 DTSBD371
|
|
02541 MOVE L102-LATE-PEN-WAIVE-CHNG TO L541-AMT. DTSBD371
|
|
02542 DTSBD371
|
|
02543 IF L541-AMT NOT = +0 DTSBD371
|
|
02544 MOVE LATE-PEN-SUB TO L541-ACCT-SUB DTSBD371
|
|
02545 MOVE CACT-CAT-WAIVED TO L541-CAT-IND DTSBD371
|
|
02546 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
02547 P2830-EXIT. DTSBD371
|
|
02548 EXIT. DTSBD371
|
|
02549 DTSBD371
|
|
02550 P2831-TIMELY-PAYMENT. DTSBD371
|
|
02551 DISPLAY 'P2831 START ' MPRF-EMP-NO ' ' ARPT-YRQ. DTSBD371
|
|
02552 DTSBD371
|
|
02553 MOVE ARPT-YRQ TO L004-QTR-5-9. DTSBD371
|
|
02554 MOVE 1 TO L004-QTR-5-Q. DTSBD371
|
|
02555 MOVE L004-QTR-5-9 TO WRK-ANN-YRQ1. DTSBD371
|
|
02556 MOVE 4 TO L004-QTR-5-Q. DTSBD371
|
|
02557 MOVE L004-QTR-5-9 TO WRK-ANN-YRQ4. DTSBD371
|
|
02558 DISPLAY 'P2831 QTRS ' WRK-ANN-YRQ1 ' ' WRK-ANN-YRQ4. DTSBD371
|
|
02559 DTSBD371
|
|
02560 MOVE LOW-VALUE TO MDST-KEY-AREA. DTSBD371
|
|
02561 MOVE MPRF-EMP-NO TO MDST-EMP-NO. DTSBD371
|
|
02562 SET MDST-DST-88 TO TRUE. DTSBD371
|
|
02563 MOVE MDST-KEY-AREA TO MSKL-KEY-AREA. DTSBD371
|
|
02564 DTSBD371
|
|
02565 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD371
|
|
02566 PERFORM UNTIL L910-NO-REC-88 DTSBD371
|
|
02567 MOVE MSKL-REC TO MDST-REC DTSBD371
|
|
02568 IF L516-ANN-SCHED-88 DTSBD371
|
|
02569 IF (MDST-YRQ >= WRK-ANN-YRQ1 AND <= WRK-ANN-YRQ4) DTSBD371
|
|
02570 AND (MDST-RECEIVED-DATE <= MQTR-TAX-DUE-DATE) DTSBD371
|
|
02571 PERFORM P2831A-SUM-PMTS THRU P2831A-EXIT DTSBD371
|
|
02572 END-IF DTSBD371
|
|
02573 ELSE DTSBD371
|
|
02574 IF (MDST-YRQ = MQTR-YRQ DTSBD371
|
|
02575 AND MDST-RECEIVED-DATE <= MQTR-TAX-DUE-DATE) DTSBD371
|
|
02576 PERFORM P2831A-SUM-PMTS THRU P2831A-EXIT DTSBD371
|
|
02577 END-IF DTSBD371
|
|
02578 END-IF DTSBD371
|
|
02579 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD371
|
|
02580 END-PERFORM. DTSBD371
|
|
02581 DTSBD371
|
|
02582 IF L516-ANN-SCHED-88 DTSBD371
|
|
02583 MOVE WRK-TIMELY-PAYMENTS TO AMT-DISP1 DTSBD371
|
|
02584 DISPLAY 'P2831 PMT ' MPRF-EMP-NO ' ' AMT-DISP1 DTSBD371
|
|
02585 END-IF. DTSBD371
|
|
02586 DTSBD371
|
|
02587 P2831-EXIT. DTSBD371
|
|
02588 EXIT. DTSBD371
|
|
02589 DTSBD371
|
|
02590 P2831A-SUM-PMTS. DTSBD371
|
|
02591 ********************************************************** DTSBD371
|
|
02592 * PRIOR TO 2008/1, UI TAX ONLY IS SUBJECT TO PENALTY. DTSBD371
|
|
02593 * FOR 2008/1 AND FOLLOWING, ADMIN ASSESS IS ALSO INCLUDED. DTSBD371
|
|
02594 ********************************************************** DTSBD371
|
|
02595 PERFORM DTSBD371
|
|
02596 VARYING MDST-ACCT-IDX FROM +1 BY +1 DTSBD371
|
|
02597 UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT DTSBD371
|
|
02598 IF MDST-ACCT-UI-88 (MDST-ACCT-IDX) DTSBD371
|
|
02599 ADD MDST-AMT (MDST-ACCT-IDX) DTSBD371
|
|
02600 TO WRK-TIMELY-PAYMENTS DTSBD371
|
|
02601 *& DTSBD371
|
|
02602 MOVE MDST-AMT (MDST-ACCT-IDX) TO AMT-DISP1 DTSBD371
|
|
02603 DISPLAY 'PMT 1 ' MPRF-EMP-NO ' ' MDST-YRQ DTSBD371
|
|
02604 ' ' AMT-DISP1 DTSBD371
|
|
02605 *& DTSBD371
|
|
02606 END-IF DTSBD371
|
|
02607 IF MDST-ACCT-SUR-88 (MDST-ACCT-IDX) DTSBD371
|
|
02608 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD371
|
|
02609 AND MPRF-CLASS-RATED-88 DTSBD371
|
|
02610 ADD MDST-AMT (MDST-ACCT-IDX) DTSBD371
|
|
02611 TO WRK-TIMELY-PAYMENTS DTSBD371
|
|
02612 *& DTSBD371
|
|
02613 MOVE MDST-AMT (MDST-ACCT-IDX) TO AMT-DISP1 DTSBD371
|
|
02614 DISPLAY 'PMT 2 ' MPRF-EMP-NO ' ' MDST-YRQ DTSBD371
|
|
02615 ' ' AMT-DISP1 DTSBD371
|
|
02616 *& DTSBD371
|
|
02617 END-IF DTSBD371
|
|
02618 END-IF DTSBD371
|
|
02619 END-PERFORM. DTSBD371
|
|
02620 DTSBD371
|
|
02621 P2831A-EXIT. DTSBD371
|
|
02622 EXIT. DTSBD371
|
|
02623 DTSBD371
|
|
02624 P2832-QTR-SUM. DTSBD371
|
|
02625 ********************************************************** DTSBD371
|
|
02626 * PRIOR TO 2008/1, UI TAX ONLY IS SUBJECT TO PENALTY. DTSBD371
|
|
02627 * FOR 2008/1 AND FOLLOWING, ADMIN ASSESS IS ALSO INCLUDED. DTSBD371
|
|
02628 * DTSBD371
|
|
02629 ********************************************************** DTSBD371
|
|
02630 PERFORM DTSBD371
|
|
02631 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
02632 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD371
|
|
02633 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02634 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02635 TO L102-LATE-PEN-CHARGED-AMT DTSBD371
|
|
02636 END-IF DTSBD371
|
|
02637 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02638 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02639 TO L102-TAX-CHARGED-AMT DTSBD371
|
|
02640 END-IF DTSBD371
|
|
02641 DTSBD371
|
|
02642 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02643 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD371
|
|
02644 AND MPRF-CLASS-RATED-88 DTSBD371
|
|
02645 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02646 TO L102-TAX-CHARGED-AMT DTSBD371
|
|
02647 END-IF DTSBD371
|
|
02648 END-IF DTSBD371
|
|
02649 END-PERFORM. DTSBD371
|
|
02650 DTSBD371
|
|
02651 P2832-EXIT. DTSBD371
|
|
02652 EXIT. DTSBD371
|
|
02653 DTSBD371
|
|
02654 P2833-ANN-SUM. DTSBD371
|
|
02655 IF L004-QTR-5-Q = 1 DTSBD371
|
|
02656 MOVE +0 TO WRK-ANN-LP-CHG-AMT DTSBD371
|
|
02657 WRK-ANN-TAX-CHG-AMT DTSBD371
|
|
02658 END-IF. DTSBD371
|
|
02659 DTSBD371
|
|
02660 PERFORM DTSBD371
|
|
02661 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
02662 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD371
|
|
02663 EVALUATE TRUE DTSBD371
|
|
02664 WHEN MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02665 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02666 TO WRK-ANN-LP-CHG-AMT DTSBD371
|
|
02667 DTSBD371
|
|
02668 WHEN MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02669 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02670 TO WRK-ANN-TAX-CHG-AMT DTSBD371
|
|
02671 DTSBD371
|
|
02672 WHEN MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02673 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD371
|
|
02674 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02675 TO WRK-ANN-TAX-CHG-AMT DTSBD371
|
|
02676 END-IF DTSBD371
|
|
02677 END-EVALUATE DTSBD371
|
|
02678 END-PERFORM. DTSBD371
|
|
02679 DTSBD371
|
|
02680 MOVE WRK-ANN-TAX-CHG-AMT TO AMT-DISP1. DTSBD371
|
|
02681 MOVE WRK-ANN-LP-CHG-AMT TO AMT-DISP2. DTSBD371
|
|
02682 DISPLAY 'P2833 ' MPRF-EMP-NO ' ' MQTR-YRQ DTSBD371
|
|
02683 ' ' AMT-DISP1 ' ' AMT-DISP2. DTSBD371
|
|
02684 P2833-EXIT. DTSBD371
|
|
02685 EXIT. DTSBD371
|
|
02686 DTSBD371
|
|
02687 P2900-QTRLY-ESTIMATED-LETTER. DTSBD371
|
|
02688 MOVE MPRF-EMP-NO TO R316-EMP-NO. DTSBD371
|
|
02689 DTSBD371
|
|
02690 MOVE MQTR-YRQ TO R316-YRQ. DTSBD371
|
|
02691 DTSBD371
|
|
02692 * MOVE MPRF-EMP-CLASS TO R316-EMP-CLASS. DTSBD371
|
|
02693 DTSBD371
|
|
02694 MOVE LBCM-CURR-MAIL-DATE TO R316-MAIL-DATE. DTSBD371
|
|
02695 DTSBD371
|
|
02696 MOVE +0 TO R316-UI-TAX-CHARGED-AMT DTSBD371
|
|
02697 R316-SUR-TAX-CHARGED-AMT DTSBD371
|
|
02698 R316-PEN-CHARGED-AMT DTSBD371
|
|
02699 R316-INT-CHARGED-AMT. DTSBD371
|
|
02700 DTSBD371
|
|
02701 SET R316-QTR-FILING-88 TO TRUE. DTSBD371
|
|
02702 DTSBD371
|
|
02703 MOVE R316-MAIL-DATE TO L001-FED-8-DATE-9. DTSBD371
|
|
02704 DTSBD371
|
|
02705 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD371
|
|
02706 DTSBD371
|
|
02707 ADD +14 TO L001-JUL-ABS-DAY. DTSBD371
|
|
02708 DTSBD371
|
|
02709 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT. DTSBD371
|
|
02710 DTSBD371
|
|
02711 MOVE L001-FED-8-DATE-9 TO R316-INT-COMP-DATE. DTSBD371
|
|
02712 DTSBD371
|
|
02713 MOVE +0 TO L101-PAID-CHNG. DTSBD371
|
|
02714 DTSBD371
|
|
02715 MOVE R316-INT-COMP-DATE TO L101-RECEIVED-DATE. DTSBD371
|
|
02716 DTSBD371
|
|
02717 MOVE ARPT-WAIVE-INT-IND TO L101-WAIVE-INT-IND. DTSBD371
|
|
02718 DTSBD371
|
|
02719 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBD371
|
|
02720 DTSBD371
|
|
02721 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBD371
|
|
02722 DTSBD371
|
|
02723 PERFORM P2910-MQTR-ACCT-LOOP THRU P2910-EXIT DTSBD371
|
|
02724 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
02725 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD371
|
|
02726 DTSBD371
|
|
02727 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBD371
|
|
02728 DTSBD371
|
|
02729 ADD L101-INT-CHARGE-CHNG TO R316-INT-CHARGED-AMT. DTSBD371
|
|
02730 DTSBD371
|
|
02731 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD371
|
|
02732 DTSBD371
|
|
02733 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD371
|
|
02734 DTSBD371
|
|
02735 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBD371
|
|
02736 DTSBD371
|
|
02737 IF L111-ADDR-FOUND-88 DTSBD371
|
|
02738 MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE DTSBD371
|
|
02739 SET L112-ANCHOR-LAST-88 TO TRUE DTSBD371
|
|
02740 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME DTSBD371
|
|
02741 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBD371
|
|
02742 PERFORM S112-FORMAT-ADDR THRU S112-EXIT DTSBD371
|
|
02743 ELSE DTSBD371
|
|
02744 MOVE ALL '?' TO L112-ADDRESS DTSBD371
|
|
02745 L112-MAILING-ADDRESS. DTSBD371
|
|
02746 DTSBD371
|
|
02747 MOVE L112-MAILING-ADDRESS TO R316-FMT-ADDR. DTSBD371
|
|
02748 DTSBD371
|
|
02749 MOVE L112-ZIP TO R316-ZIP. DTSBD371
|
|
02750 DTSBD371
|
|
02751 MOVE L112-ADVANCED-BARCODE TO R316-ADVANCED-BARCODE. DTSBD371
|
|
02752 DTSBD371
|
|
02753 PERFORM S946-R316-WRITE THRU S946-EXIT. DTSBD371
|
|
02754 P2900-EXIT. DTSBD371
|
|
02755 EXIT. DTSBD371
|
|
02756 SKIP3 DTSBD371
|
|
02757 P2910-MQTR-ACCT-LOOP. DTSBD371
|
|
02758 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02759 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02760 TO R316-UI-TAX-CHARGED-AMT DTSBD371
|
|
02761 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02762 TO L101-PAID-CHNG DTSBD371
|
|
02763 ELSE DTSBD371
|
|
02764 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02765 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02766 TO R316-SUR-TAX-CHARGED-AMT DTSBD371
|
|
02767 * ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02768 * TO L101-PAID-CHNG DTSBD371
|
|
02769 *RW DTSBD371
|
|
02770 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD371
|
|
02771 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02772 TO L101-PAID-CHNG DTSBD371
|
|
02773 END-IF DTSBD371
|
|
02774 *RW DTSBD371
|
|
02775 ELSE DTSBD371
|
|
02776 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02777 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02778 TO R316-INT-CHARGED-AMT DTSBD371
|
|
02779 ELSE DTSBD371
|
|
02780 IF (MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)) DTSBD371
|
|
02781 OR DTSBD371
|
|
02782 (MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX)) DTSBD371
|
|
02783 OR DTSBD371
|
|
02784 (MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX)) DTSBD371
|
|
02785 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02786 TO R316-PEN-CHARGED-AMT. DTSBD371
|
|
02787 P2910-EXIT. DTSBD371
|
|
02788 EXIT. DTSBD371
|
|
02789 EJECT DTSBD371
|
|
02790 P2950-ANNUL-ESTIMATED-LETTER. DTSBD371
|
|
02791 DTSBD371
|
|
02792 MOVE MQTR-YRQ TO WRK-R316-YRQ. DTSBD371
|
|
02793 DTSBD371
|
|
02794 IF WRK-R316-Q = 1 DTSBD371
|
|
02795 MOVE +0 TO WRK-R316-UI-TAX-CHARGED-AMT DTSBD371
|
|
02796 WRK-R316-SUR-TAX-CHARGED-AMT DTSBD371
|
|
02797 WRK-R316-PEN-CHARGED-AMT DTSBD371
|
|
02798 WRK-R316-INT-CHARGED-AMT DTSBD371
|
|
02799 DTSBD371
|
|
02800 MOVE LBCM-CURR-MAIL-DATE TO R316-MAIL-DATE DTSBD371
|
|
02801 MOVE R316-MAIL-DATE TO L001-FED-8-DATE-9 DTSBD371
|
|
02802 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBD371
|
|
02803 ADD +14 TO L001-JUL-ABS-DAY DTSBD371
|
|
02804 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBD371
|
|
02805 MOVE L001-FED-8-DATE-9 TO R316-INT-COMP-DATE DTSBD371
|
|
02806 MOVE MPRF-EMP-NO TO R316-EMP-NO DTSBD371
|
|
02807 MOVE MQTR-YRQ TO R316-YRQ DTSBD371
|
|
02808 SET R316-ANN-FILING-88 TO TRUE. DTSBD371
|
|
02809 DTSBD371
|
|
02810 MOVE +0 TO L101-PAID-CHNG DTSBD371
|
|
02811 L101-INT-CHARGE-CHNG. DTSBD371
|
|
02812 DTSBD371
|
|
02813 MOVE R316-INT-COMP-DATE TO L101-RECEIVED-DATE. DTSBD371
|
|
02814 DTSBD371
|
|
02815 MOVE ARPT-WAIVE-INT-IND TO L101-WAIVE-INT-IND. DTSBD371
|
|
02816 DTSBD371
|
|
02817 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBD371
|
|
02818 DTSBD371
|
|
02819 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBD371
|
|
02820 DTSBD371
|
|
02821 PERFORM P2960-MQTR-ACCT-LOOP-ANNUAL THRU P2960-EXIT DTSBD371
|
|
02822 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
02823 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD371
|
|
02824 DTSBD371
|
|
02825 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBD371
|
|
02826 DTSBD371
|
|
02827 ADD L101-INT-CHARGE-CHNG TO WRK-R316-INT-CHARGED-AMT. DTSBD371
|
|
02828 DTSBD371
|
|
02829 IF WRK-R316-Q < 4 DTSBD371
|
|
02830 GO TO P2950-EXIT. DTSBD371
|
|
02831 DTSBD371
|
|
02832 MOVE WRK-R316-UI-TAX-CHARGED-AMT TO R316-UI-TAX-CHARGED-AMT DTSBD371
|
|
02833 MOVE WRK-R316-SUR-TAX-CHARGED-AMT TO R316-SUR-TAX-CHARGED-AMTDTSBD371
|
|
02834 MOVE WRK-R316-PEN-CHARGED-AMT TO R316-PEN-CHARGED-AMT DTSBD371
|
|
02835 MOVE WRK-R316-INT-CHARGED-AMT TO R316-INT-CHARGED-AMT. DTSBD371
|
|
02836 DTSBD371
|
|
02837 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD371
|
|
02838 DTSBD371
|
|
02839 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD371
|
|
02840 DTSBD371
|
|
02841 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBD371
|
|
02842 DTSBD371
|
|
02843 IF L111-ADDR-FOUND-88 DTSBD371
|
|
02844 MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE DTSBD371
|
|
02845 SET L112-ANCHOR-LAST-88 TO TRUE DTSBD371
|
|
02846 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME DTSBD371
|
|
02847 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBD371
|
|
02848 PERFORM S112-FORMAT-ADDR THRU S112-EXIT DTSBD371
|
|
02849 ELSE DTSBD371
|
|
02850 MOVE ALL '?' TO L112-ADDRESS DTSBD371
|
|
02851 L112-MAILING-ADDRESS. DTSBD371
|
|
02852 DTSBD371
|
|
02853 MOVE L112-MAILING-ADDRESS TO R316-FMT-ADDR. DTSBD371
|
|
02854 DTSBD371
|
|
02855 MOVE L112-ZIP TO R316-ZIP. DTSBD371
|
|
02856 DTSBD371
|
|
02857 MOVE L112-ADVANCED-BARCODE TO R316-ADVANCED-BARCODE. DTSBD371
|
|
02858 DTSBD371
|
|
02859 PERFORM S946-R316-WRITE THRU S946-EXIT. DTSBD371
|
|
02860 DISPLAY ' BD371 EST RPT GEN ' MPRF-EMP-NO. DTSBD371
|
|
02861 DTSBD371
|
|
02862 P2950-EXIT. DTSBD371
|
|
02863 EXIT. DTSBD371
|
|
02864 SKIP3 DTSBD371
|
|
02865 P2960-MQTR-ACCT-LOOP-ANNUAL. DTSBD371
|
|
02866 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02867 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02868 TO WRK-R316-UI-TAX-CHARGED-AMT DTSBD371
|
|
02869 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02870 TO L101-PAID-CHNG DTSBD371
|
|
02871 ELSE DTSBD371
|
|
02872 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02873 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02874 TO WRK-R316-SUR-TAX-CHARGED-AMT DTSBD371
|
|
02875 * ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02876 * TO L101-PAID-CHNG DTSBD371
|
|
02877 *RW DTSBD371
|
|
02878 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD371
|
|
02879 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02880 TO L101-PAID-CHNG DTSBD371
|
|
02881 END-IF DTSBD371
|
|
02882 *RW DTSBD371
|
|
02883 ELSE DTSBD371
|
|
02884 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBD371
|
|
02885 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02886 TO WRK-R316-INT-CHARGED-AMT DTSBD371
|
|
02887 ELSE DTSBD371
|
|
02888 IF (MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)) DTSBD371
|
|
02889 OR DTSBD371
|
|
02890 (MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX)) DTSBD371
|
|
02891 OR DTSBD371
|
|
02892 (MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX)) DTSBD371
|
|
02893 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
02894 TO WRK-R316-PEN-CHARGED-AMT. DTSBD371
|
|
02895 P2960-EXIT. DTSBD371
|
|
02896 EXIT. DTSBD371
|
|
02897 EJECT DTSBD371
|
|
02898 P3000-MRPT-WRITE. DTSBD371
|
|
02899 *& DTSBD371
|
|
02900 * DISPLAY 'DTSBD371 P3000 FIRST ' ARPT-EMP-NO DTSBD371
|
|
02901 * ' ' ARPT-RPT-TYPE DTSBD371
|
|
02902 * ' ' ARPT-YRQ ' ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO. DTSBD371
|
|
02903 *& DTSBD371
|
|
02904 MOVE LOW-VALUES TO MRPT-REC. DTSBD371
|
|
02905 DTSBD371
|
|
02906 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBD371
|
|
02907 DTSBD371
|
|
02908 SET MRPT-RPT-88 TO TRUE. DTSBD371
|
|
02909 DTSBD371
|
|
02910 MOVE ARPT-YRQ TO MRPT-YRQ. DTSBD371
|
|
02911 DTSBD371
|
|
02912 MOVE ARPT-DOC-NO TO MRPT-DOC-NO. DTSBD371
|
|
02913 DTSBD371
|
|
02914 MOVE +0 TO MRPT-PURGE-DATE. DTSBD371
|
|
02915 DTSBD371
|
|
02916 MOVE ARPT-RPT-TYPE TO MRPT-RPT-TYPE. DTSBD371
|
|
02917 DTSBD371
|
|
02918 MOVE ARPT-TOTAL-EMPL-CNT TO MRPT-TOTAL-EMPL-CNT. DTSBD371
|
|
02919 DTSBD371
|
|
02920 MOVE ARPT-1ST-MTH-EMPL-CNT TO MRPT-1ST-MTH-EMPL-CNT. DTSBD371
|
|
02921 DTSBD371
|
|
02922 MOVE ARPT-2ND-MTH-EMPL-CNT TO MRPT-2ND-MTH-EMPL-CNT. DTSBD371
|
|
02923 DTSBD371
|
|
02924 MOVE ARPT-3RD-MTH-EMPL-CNT TO MRPT-3RD-MTH-EMPL-CNT. DTSBD371
|
|
02925 DTSBD371
|
|
02926 MOVE MQTR-UI-RATE TO MRPT-UI-RATE. DTSBD371
|
|
02927 DTSBD371
|
|
02928 IF ARPT-ORIG-88 OR ARPT-ESTIM-88 DTSBD371
|
|
02929 MOVE ARPT-TOT-WAGE TO MRPT-TOT-WAGE DTSBD371
|
|
02930 MOVE ARPT-EXCESS-WAGE TO MRPT-EXCESS-WAGE DTSBD371
|
|
02931 MOVE ARPT-TAX-WAGE TO MRPT-TAX-WAGE DTSBD371
|
|
02932 ELSE DTSBD371
|
|
02933 COMPUTE MRPT-TOT-WAGE DTSBD371
|
|
02934 = MQTR-TOT-WAGE - PRE-UPDATE-TOT-WAGE DTSBD371
|
|
02935 COMPUTE MRPT-EXCESS-WAGE DTSBD371
|
|
02936 = MQTR-EXCESS-WAGE - PRE-UPDATE-EXCESS-WAGE DTSBD371
|
|
02937 COMPUTE MRPT-TAX-WAGE DTSBD371
|
|
02938 = MQTR-TAX-WAGE - PRE-UPDATE-TAX-WAGE. DTSBD371
|
|
02939 DTSBD371
|
|
02940 MOVE +0 TO MRPT-UI-CHARGED-AMT. DTSBD371
|
|
02941 DTSBD371
|
|
02942 MOVE +0 TO MRPT-SUR-CHARGED-AMT. DTSBD371
|
|
02943 DTSBD371
|
|
02944 PERFORM P3100-MQTR-ACCT-SCAN THRU P3100-EXIT DTSBD371
|
|
02945 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD371
|
|
02946 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD371
|
|
02947 DTSBD371
|
|
02948 IF ARPT-ORIG-88 OR ARPT-ESTIM-88 DTSBD371
|
|
02949 NEXT SENTENCE DTSBD371
|
|
02950 ELSE DTSBD371
|
|
02951 COMPUTE MRPT-UI-CHARGED-AMT DTSBD371
|
|
02952 = MRPT-UI-CHARGED-AMT - PRE-UPDATE-UI-CHARGED-AMT DTSBD371
|
|
02953 COMPUTE MRPT-SUR-CHARGED-AMT DTSBD371
|
|
02954 = MRPT-SUR-CHARGED-AMT - PRE-UPDATE-SUR-CHARGED-AMT. DTSBD371
|
|
02955 DTSBD371
|
|
02956 IF MPRF-CLASS-SELF-INS-88 DTSBD371
|
|
02957 MOVE +0 TO MRPT-UI-CHARGED-AMT. DTSBD371
|
|
02958 DTSBD371
|
|
02959 MOVE ARPT-REMIT-AMT TO MRPT-REMIT-AMT. DTSBD371
|
|
02960 DTSBD371
|
|
02961 MOVE ARPT-WAGE-RPT-IND TO MRPT-WAGE-RPT-IND. DTSBD371
|
|
02962 DTSBD371
|
|
02963 MOVE ARPT-WAIVE-INT-IND TO MRPT-WAIVE-INT-IND. DTSBD371
|
|
02964 DTSBD371
|
|
02965 MOVE ARPT-WAIVE-LATE-PEN-IND TO MRPT-WAIVE-LATE-PEN-IND. DTSBD371
|
|
02966 DTSBD371
|
|
02967 MOVE ARPT-RECEIVED-DATE TO MRPT-RECEIVED-DATE. DTSBD371
|
|
02968 DTSBD371
|
|
02969 MOVE ARPT-DEPOSIT-DATE TO MRPT-DEPOSIT-DATE. DTSBD371
|
|
02970 DTSBD371
|
|
02971 MOVE ARPT-RESPONSIBLE-ACTIVITY DTSBD371
|
|
02972 TO MRPT-RESPONSIBLE-ACTIVITY. DTSBD371
|
|
02973 DTSBD371
|
|
02974 MOVE ARPT-STATUS-CHNG-IND TO MRPT-STATUS-CHNG-IND. DTSBD371
|
|
02975 DTSBD371
|
|
02976 MOVE ARPT-RESPONSIBLE-OP-ID TO MRPT-RESPONSIBLE-OP-ID. DTSBD371
|
|
02977 DTSBD371
|
|
02978 SET MRPT-NOT-CONVERTED-88 TO TRUE. DTSBD371
|
|
02979 DTSBD371
|
|
02980 MOVE LBCM-CURR-RUN-DATE TO MRPT-ESTB-DATE DTSBD371
|
|
02981 MRPT-CHNG-DATE. DTSBD371
|
|
02982 DTSBD371
|
|
02983 IF ARPT-TRACE-NO NOT NUMERIC DTSBD371
|
|
02984 MOVE ZERO TO MRPT-TRACE-NO DTSBD371
|
|
02985 ELSE DTSBD371
|
|
02986 MOVE ARPT-TRACE-NO TO MRPT-TRACE-NO. DTSBD371
|
|
02987 DTSBD371
|
|
02988 IF L516-ANN-SCHED-88 DTSBD371
|
|
02989 SET MRPT-ANNUAL-YES-88 TO TRUE DTSBD371
|
|
02990 ELSE DTSBD371
|
|
02991 SET MRPT-ANNUAL-NO-88 TO TRUE DTSBD371
|
|
02992 END-IF. DTSBD371
|
|
02993 DTSBD371
|
|
02994 MOVE MRPT-REC TO MSKL-REC. DTSBD371
|
|
02995 DTSBD371
|
|
02996 PERFORM S910-WRITE THRU S910-EXIT. DTSBD371
|
|
02997 P3000-EXIT. DTSBD371
|
|
02998 EXIT. DTSBD371
|
|
02999 SKIP3 DTSBD371
|
|
03000 P3100-MQTR-ACCT-SCAN. DTSBD371
|
|
03001 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD371
|
|
03002 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
03003 TO MRPT-UI-CHARGED-AMT DTSBD371
|
|
03004 ELSE DTSBD371
|
|
03005 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD371
|
|
03006 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD371
|
|
03007 TO MRPT-SUR-CHARGED-AMT. DTSBD371
|
|
03008 P3100-EXIT. DTSBD371
|
|
03009 EXIT. DTSBD371
|
|
03010 EJECT DTSBD371
|
|
03011 P4000-REMIT-PROCESS. DTSBD371
|
|
03012 *& DTSBD371
|
|
03013 * IF MPRF-EMP-NO = 081547 DTSBD371
|
|
03014 * MOVE ARPT-REMIT-AMT TO AMT-DISP2 DTSBD371
|
|
03015 * DISPLAY 'DTSBD371 REMIT ' MRPT-EMP-NO ' ' MQTR-YRQ DTSBD371
|
|
03016 * ' ' AMT-DISP2 DTSBD371
|
|
03017 * END-IF. DTSBD371
|
|
03018 *& DTSBD371
|
|
03019 MOVE LOW-VALUES TO APAY-REC. DTSBD371
|
|
03020 DTSBD371
|
|
03021 MOVE ARPT-DOC-NO TO APAY-DOC-NO. DTSBD371
|
|
03022 DTSBD371
|
|
03023 SET APAY-PAY-88 TO TRUE. DTSBD371
|
|
03024 DTSBD371
|
|
03025 MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK. DTSBD371
|
|
03026 DTSBD371
|
|
03027 MOVE MPRF-EMP-NO TO APAY-EMP-NO. DTSBD371
|
|
03028 DTSBD371
|
|
03029 MOVE ARPT-RPT-TYPE TO APAY-PAY-TYPE. DTSBD371
|
|
03030 DTSBD371
|
|
03031 MOVE ARPT-REMIT-AMT TO APAY-REMIT-AMT. DTSBD371
|
|
03032 DTSBD371
|
|
03033 MOVE ARPT-WAIVE-INT-IND TO APAY-WAIVE-INT-IND. DTSBD371
|
|
03034 DTSBD371
|
|
03035 SET APAY-WAIVE-LATE-PEN-NO-88 TO TRUE. DTSBD371
|
|
03036 DTSBD371
|
|
03037 SET APAY-NSF-PEN-CHARGE-NO-88 TO TRUE. DTSBD371
|
|
03038 DTSBD371
|
|
03039 MOVE ARPT-RECEIVED-DATE TO APAY-RECEIVED-DATE. DTSBD371
|
|
03040 DTSBD371
|
|
03041 MOVE ARPT-DEPOSIT-DATE TO APAY-DEPOSIT-DATE. DTSBD371
|
|
03042 DTSBD371
|
|
03043 MOVE ARPT-YRQ TO APAY-APPLIC-YRQ. DTSBD371
|
|
03044 DTSBD371
|
|
03045 IF (MPRF-CLASS-SELF-INS-88) DTSBD371
|
|
03046 AND DTSBD371
|
|
03047 (ARPT-ORIG-88) DTSBD371
|
|
03048 SET APAY-SUR-88 TO TRUE DTSBD371
|
|
03049 ELSE DTSBD371
|
|
03050 MOVE SPACE TO APAY-APPLIC-IND. DTSBD371
|
|
03051 DTSBD371
|
|
03052 MOVE WRK-NULL-DOC-NO TO APAY-APPLIC-DOC-NO. DTSBD371
|
|
03053 DTSBD371
|
|
03054 MOVE 'N' TO APAY-DISREGARD-EDITS-IND. DTSBD371
|
|
03055 DTSBD371
|
|
03056 MOVE ARPT-RESPONSIBLE-ACTIVITY DTSBD371
|
|
03057 TO APAY-RESPONSIBLE-ACTIVITY. DTSBD371
|
|
03058 DTSBD371
|
|
03059 MOVE ARPT-RESPONSIBLE-OP-ID DTSBD371
|
|
03060 TO APAY-RESPONSIBLE-OP-ID. DTSBD371
|
|
03061 DTSBD371
|
|
03062 SET APAY-NOT-PROCESSED-88 TO TRUE. DTSBD371
|
|
03063 DTSBD371
|
|
03064 MOVE ZERO TO APAY-NSF-MNTE-ABSTIME. DTSBD371
|
|
03065 DTSBD371
|
|
03066 IF ARPT-TRACE-NO NOT NUMERIC DTSBD371
|
|
03067 MOVE ZERO TO APAY-TRACE-NO DTSBD371
|
|
03068 ELSE DTSBD371
|
|
03069 MOVE ARPT-TRACE-NO TO APAY-TRACE-NO. DTSBD371
|
|
03070 DTSBD371
|
|
03071 IF ARPT-CHECK-SCAN-DT NOT NUMERIC DTSBD371
|
|
03072 MOVE ZERO TO APAY-CHECK-SCAN-DT DTSBD371
|
|
03073 ELSE DTSBD371
|
|
03074 MOVE ARPT-CHECK-SCAN-DT TO APAY-CHECK-SCAN-DT DTSBD371
|
|
03075 END-IF. DTSBD371
|
|
03076 DTSBD371
|
|
03077 IF ARPT-CHECK-SEQUENCE NOT NUMERIC DTSBD371
|
|
03078 MOVE ZERO TO APAY-CHECK-SEQUENCE DTSBD371
|
|
03079 ELSE DTSBD371
|
|
03080 MOVE ARPT-CHECK-SEQUENCE TO APAY-CHECK-SEQUENCE DTSBD371
|
|
03081 END-IF. DTSBD371
|
|
03082 DTSBD371
|
|
03083 CALL 'DTSBD372' USING LBCM-LINK-AREA DTSBD371
|
|
03084 MPRF-REC DTSBD371
|
|
03085 APAY-REC. DTSBD371
|
|
03086 DTSBD371
|
|
03087 IF LBCM-TRN-NOT-OK-88 DTSBD371
|
|
03088 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
03089 P4000-EXIT. DTSBD371
|
|
03090 EXIT. DTSBD371
|
|
03091 EJECT DTSBD371
|
|
03092 S1000-GENERATE-LTE-TCK. DTSBD371
|
|
03093 MOVE LOW-VALUES TO MTCK-REC. DTSBD371
|
|
03094 DTSBD371
|
|
03095 MOVE MPRF-EMP-NO TO MTCK-EMP-NO. DTSBD371
|
|
03096 DTSBD371
|
|
03097 SET MTCK-TCK-88 TO TRUE. DTSBD371
|
|
03098 DTSBD371
|
|
03099 ADD +1 TO LBCM-EMP-ABSTIME. DTSBD371
|
|
03100 DTSBD371
|
|
03101 MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME. DTSBD371
|
|
03102 DTSBD371
|
|
03103 MOVE +0 TO MTCK-PURGE-DATE. DTSBD371
|
|
03104 DTSBD371
|
|
03105 MOVE +0 TO MTCK-TEXT-CNT. DTSBD371
|
|
03106 DTSBD371
|
|
03107 SET MTCK-TYPE-CHK-LATE-88 TO TRUE. DTSBD371
|
|
03108 DTSBD371
|
|
03109 MOVE WRK-RPT-DUE-DATE TO MTCK-TRIGGER-DATE. DTSBD371
|
|
03110 DTSBD371
|
|
03111 MOVE +0 TO MTCK-ACKNOWLEDGED-DATE. DTSBD371
|
|
03112 DTSBD371
|
|
03113 SET MTCK-SOURCE-SYSTEM-88 TO TRUE. DTSBD371
|
|
03114 DTSBD371
|
|
03115 SET MTCK-DEST-SYSTEM-88 TO TRUE. DTSBD371
|
|
03116 DTSBD371
|
|
03117 MOVE MQTR-YRQ TO MTCK-LTE-YRQ. DTSBD371
|
|
03118 DTSBD371
|
|
03119 SET MTCK-NOT-CONVERTED-88 TO TRUE. DTSBD371
|
|
03120 DTSBD371
|
|
03121 MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD371
|
|
03122 MTCK-CHNG-DATE. DTSBD371
|
|
03123 DTSBD371
|
|
03124 MOVE MTCK-REC TO MSKL-REC. DTSBD371
|
|
03125 DTSBD371
|
|
03126 PERFORM S910-WRITE THRU S910-EXIT. DTSBD371
|
|
03127 S1000-EXIT. DTSBD371
|
|
03128 EXIT. DTSBD371
|
|
03129 DTSBD371
|
|
03130 S1200-CHK-FOR-CW. DTSBD371
|
|
03131 DISPLAY 'S1200 ' ARPT-EMP-NO. DTSBD371
|
|
03132 DTSBD371
|
|
03133 MOVE ARPT-EMP-NO TO MRPT-EMP-NO. DTSBD371
|
|
03134 SET MRPT-RPT-88 TO TRUE. DTSBD371
|
|
03135 MOVE ARPT-YRQ TO MRPT-YRQ. DTSBD371
|
|
03136 MOVE +0 TO MRPT-BATCH-NO DTSBD371
|
|
03137 MOVE +0 TO MRPT-ITEM-NO. DTSBD371
|
|
03138 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSBD371
|
|
03139 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD371
|
|
03140 DTSBD371
|
|
03141 PERFORM UNTIL L910-NO-REC-88 DTSBD371
|
|
03142 MOVE MSKL-REC TO MRPT-REC DTSBD371
|
|
03143 IF MRPT-CLMT-WAGE-88 DTSBD371
|
|
03144 SET WRK-CW-ON-FILE-YES-88 TO TRUE DTSBD371
|
|
03145 IF MRPT-ESTB-DATE = LBCM-CURR-RUN-DATE DTSBD371
|
|
03146 SET WRK-CW-SAME-DAY-YES-88 TO TRUE DTSBD371
|
|
03147 END-IF DTSBD371
|
|
03148 END-IF DTSBD371
|
|
03149 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD371
|
|
03150 END-PERFORM. DTSBD371
|
|
03151 DTSBD371
|
|
03152 DISPLAY 'S1200 END ' ARPT-EMP-NO. DTSBD371
|
|
03153 S1200-EXIT. DTSBD371
|
|
03154 EXIT. DTSBD371
|
|
03155 DTSBD371
|
|
03156 S1300-CHECK-WAGES. DTSBD371
|
|
03157 DISPLAY 'S1300 CHECK WAGES ' ARPT-EMP-NO. DTSBD371
|
|
03158 MOVE ARPT-PSEUDO-BATCH-NO TO L424-BATCH-NO. DTSBD371
|
|
03159 MOVE ARPT-PSEUDO-ITEM-NO TO L424-ITEM-NO. DTSBD371
|
|
03160 ** MOVE ARPT-BATCH-NO TO L424-BATCH-NO. DTSBD371
|
|
03161 ** MOVE ARPT-ITEM-NO TO L424-ITEM-NO. DTSBD371
|
|
03162 MOVE ARPT-EMP-NO TO L424-EMP-NO. DTSBD371
|
|
03163 MOVE ARPT-YRQ TO L424-YRQ. DTSBD371
|
|
03164 DTSBD371
|
|
03165 PERFORM S424-CHECK-WAGE THRU S424-EXIT. DTSBD371
|
|
03166 DISPLAY 'CHECK WAGES: ' L424-WGH-WAGES-IND DTSBD371
|
|
03167 L424-WTC-WAGES-IND. DTSBD371
|
|
03168 DTSBD371
|
|
03169 S1300-EXIT. DTSBD371
|
|
03170 EXIT. DTSBD371
|
|
03171 DTSBD371
|
|
03172 S1400-CALC-WAGE-ADJ. DTSBD371
|
|
03173 DISPLAY 'S1400: ' ARPT-EMP-NO ' ' ARPT-BATCH-NO DTSBD371
|
|
03174 ' ' ARPT-ITEM-NO ' ' ARPT-PSEUDO-BATCH-NO DTSBD371
|
|
03175 ' ' ARPT-PSEUDO-ITEM-NO. DTSBD371
|
|
03176 MOVE ARPT-PSEUDO-BATCH-NO TO L424-BATCH-NO. DTSBD371
|
|
03177 MOVE ARPT-PSEUDO-ITEM-NO TO L424-ITEM-NO. DTSBD371
|
|
03178 ** MOVE ARPT-BATCH-NO TO L424-BATCH-NO. DTSBD371
|
|
03179 ** MOVE ARPT-ITEM-NO TO L424-ITEM-NO. DTSBD371
|
|
03180 MOVE ARPT-EMP-NO TO L424-EMP-NO. DTSBD371
|
|
03181 MOVE ARPT-YRQ TO L424-YRQ. DTSBD371
|
|
03182 DTSBD371
|
|
03183 SET L424-CMND-PROCESS-88 TO TRUE. DTSBD371
|
|
03184 PERFORM S424-CALC-ADJUST THRU S424-EXIT. DTSBD371
|
|
03185 DTSBD371
|
|
03186 MOVE L424-TOTAL-WAGES TO AMT-DISP1. DTSBD371
|
|
03187 MOVE L424-TAX-WAGES TO AMT-DISP2. DTSBD371
|
|
03188 DISPLAY 'BU424: ' AMT-DISP1 ' ' AMT-DISP2 DTSBD371
|
|
03189 ' ' L424-PROCESS-IND. DTSBD371
|
|
03190 S1400-EXIT. DTSBD371
|
|
03191 EXIT. DTSBD371
|
|
03192 DTSBD371
|
|
03193 S1500-CW-ADJUST. DTSBD371
|
|
03194 IF L424-TOTAL-WAGES = ARPT-TOT-WAGE DTSBD371
|
|
03195 AND L424-TAX-WAGES = ARPT-TAX-WAGE DTSBD371
|
|
03196 DISPLAY 'S1500 NO WAGE ADJUST NEEDED ' DTSBD371
|
|
03197 ARPT-EMP-NO ' ' ARPT-YRQ DTSBD371
|
|
03198 GO TO S1500-EXIT DTSBD371
|
|
03199 END-IF. DTSBD371
|
|
03200 DTSBD371
|
|
03201 MOVE L424-TOTAL-WAGES TO AMT-DISP1. DTSBD371
|
|
03202 MOVE ARPT-TOT-WAGE TO AMT-DISP2. DTSBD371
|
|
03203 DISPLAY 'S1500 L424 TOT ' AMT-DISP1 ' ARPT ' AMT-DISP2. DTSBD371
|
|
03204 DTSBD371
|
|
03205 MOVE L424-TOTAL-WAGES TO WRK-TOT-WAGE-ADJ DTSBD371
|
|
03206 DTSBD371
|
|
03207 MOVE L424-TAX-WAGES TO AMT-DISP1. DTSBD371
|
|
03208 MOVE ARPT-TAX-WAGE TO AMT-DISP2. DTSBD371
|
|
03209 DISPLAY 'S1500 L424 TAX ' AMT-DISP1 ' ARPT ' AMT-DISP2. DTSBD371
|
|
03210 DTSBD371
|
|
03211 MOVE L424-TAX-WAGES TO WRK-TAX-WAGE-ADJ DTSBD371
|
|
03212 DTSBD371
|
|
03213 PERFORM S1510-ADD-MNTE THRU S1510-EXIT. DTSBD371
|
|
03214 PERFORM S1520-ADJ-WAGES THRU S1520-EXIT. DTSBD371
|
|
03215 DTSBD371
|
|
03216 DTSBD371
|
|
03217 S1500-EXIT. DTSBD371
|
|
03218 EXIT. DTSBD371
|
|
03219 DTSBD371
|
|
03220 S1510-ADD-MNTE. DTSBD371
|
|
03221 MOVE LOW-VALUES TO MNTE-KEY-AREA. DTSBD371
|
|
03222 MOVE ARPT-EMP-NO TO MNTE-EMP-NO. DTSBD371
|
|
03223 SET MNTE-NTE-88 TO TRUE. DTSBD371
|
|
03224 MOVE +0 TO MNTE-PURGE-DATE. DTSBD371
|
|
03225 SET MNTE-NOT-CONVERTED-88 TO TRUE. DTSBD371
|
|
03226 DTSBD371
|
|
03227 MOVE LBCM-CURR-RUN-DATE TO MNTE-ESTB-DATE DTSBD371
|
|
03228 MNTE-CHNG-DATE. DTSBD371
|
|
03229 MOVE 'SYSTEM ' TO MNTE-ESTB-OP-ID DTSBD371
|
|
03230 MNTE-CHNG-OP-ID. DTSBD371
|
|
03231 DTSBD371
|
|
03232 MOVE WRK-MNTE-SUBJECT TO MNTE-SUBJECT. DTSBD371
|
|
03233 DTSBD371
|
|
03234 MOVE ARPT-YRQ TO L004-QTR-5-9. DTSBD371
|
|
03235 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD371
|
|
03236 MOVE L004-SLASH-QTR TO WRK-MNTE-YRQ. DTSBD371
|
|
03237 DTSBD371
|
|
03238 MOVE ARPT-BATCH-NO TO WRK-MNTE-BATCH. DTSBD371
|
|
03239 MOVE ARPT-ITEM-NO TO WRK-MNTE-ITEM. DTSBD371
|
|
03240 MOVE ARPT-TOT-WAGE TO WRK-MNTE-OR-TOT-WAGE. DTSBD371
|
|
03241 MOVE ARPT-TAX-WAGE TO WRK-MNTE-OR-TAX-WAGE. DTSBD371
|
|
03242 MOVE WRK-TOT-WAGE-ADJ TO WRK-MNTE-ADJ-TOT-WAGE. DTSBD371
|
|
03243 MOVE WRK-TAX-WAGE-ADJ TO WRK-MNTE-ADJ-TAX-WAGE. DTSBD371
|
|
03244 DTSBD371
|
|
03245 MOVE +4 TO MNTE-TEXT-CNT. DTSBD371
|
|
03246 MOVE WRK-MNTE-LINE1 TO MNTE-TEXT (1). DTSBD371
|
|
03247 MOVE WRK-MNTE-LINE2 TO MNTE-TEXT (2). DTSBD371
|
|
03248 MOVE WRK-MNTE-LINE3 TO MNTE-TEXT (3). DTSBD371
|
|
03249 MOVE WRK-MNTE-LINE4 TO MNTE-TEXT (4). DTSBD371
|
|
03250 DTSBD371
|
|
03251 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD371
|
|
03252 MOVE LBCM-EMP-ABSTIME TO MNTE-KEY-ESTB-ABSTIME DTSBD371
|
|
03253 MNTE-DATA-ESTB-ABSTIME DTSBD371
|
|
03254 MNTE-CHNG-ABSTIME. DTSBD371
|
|
03255 DTSBD371
|
|
03256 MOVE MNTE-REC TO MSKL-REC. DTSBD371
|
|
03257 PERFORM S910-WRITE THRU S910-EXIT. DTSBD371
|
|
03258 DTSBD371
|
|
03259 S1510-EXIT. DTSBD371
|
|
03260 EXIT. DTSBD371
|
|
03261 DTSBD371
|
|
03262 S1520-ADJ-WAGES. DTSBD371
|
|
03263 MOVE WRK-TOT-WAGE-ADJ TO ARPT-TOT-WAGE. DTSBD371
|
|
03264 MOVE WRK-TAX-WAGE-ADJ TO ARPT-TAX-WAGE. DTSBD371
|
|
03265 DTSBD371
|
|
03266 S1520-EXIT. DTSBD371
|
|
03267 EXIT. DTSBD371
|
|
03268 DTSBD371
|
|
03269 S2100-INIT-ACCT-DATA. DTSBD371
|
|
03270 IF MQTR-ACCT-CNT NOT < MMAX-QTR-ACCT-MAX DTSBD371
|
|
03271 PERFORM S999-ABEND THRU S999-EXIT. DTSBD371
|
|
03272 DTSBD371
|
|
03273 ADD +1 TO MQTR-ACCT-CNT. DTSBD371
|
|
03274 DTSBD371
|
|
03275 MOVE SPACE TO MQTR-ACCT-IND (MQTR-ACCT-CNT). DTSBD371
|
|
03276 DTSBD371
|
|
03277 MOVE +0 TO MQTR-CHARGED-AMT (MQTR-ACCT-CNT) DTSBD371
|
|
03278 MQTR-PAID-AMT (MQTR-ACCT-CNT) DTSBD371
|
|
03279 MQTR-WAIVED-AMT (MQTR-ACCT-CNT) DTSBD371
|
|
03280 MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-CNT) DTSBD371
|
|
03281 MQTR-TOLER-AMT (MQTR-ACCT-CNT) DTSBD371
|
|
03282 MQTR-BALANCE-AMT (MQTR-ACCT-CNT). DTSBD371
|
|
03283 S2100-EXIT. DTSBD371
|
|
03284 EXIT. DTSBD371
|
|
03285 EJECT DTSBD371
|
|
03286 S2200-CRUNCH-ACCT-DATA. DTSBD371
|
|
03287 MOVE 'N' TO ACCT-CRUNCH-COMPLETE-IND. DTSBD371
|
|
03288 DTSBD371
|
|
03289 MOVE +1 TO ACCT-SUB. DTSBD371
|
|
03290 DTSBD371
|
|
03291 PERFORM S2210-CRUNCH-LOOP THRU S2210-EXIT DTSBD371
|
|
03292 UNTIL ACCT-CRUNCH-COMPLETE-IND = 'Y'. DTSBD371
|
|
03293 S2200-EXIT. DTSBD371
|
|
03294 EXIT. DTSBD371
|
|
03295 SKIP3 DTSBD371
|
|
03296 S2210-CRUNCH-LOOP. DTSBD371
|
|
03297 IF ACCT-SUB > MQTR-ACCT-CNT DTSBD371
|
|
03298 MOVE 'Y' TO ACCT-CRUNCH-COMPLETE-IND DTSBD371
|
|
03299 ELSE DTSBD371
|
|
03300 IF (MQTR-CHARGED-AMT (ACCT-SUB) = 0) DTSBD371
|
|
03301 AND DTSBD371
|
|
03302 (MQTR-PAID-AMT (ACCT-SUB) = 0) DTSBD371
|
|
03303 AND DTSBD371
|
|
03304 (MQTR-WAIVED-AMT (ACCT-SUB) = 0) DTSBD371
|
|
03305 AND DTSBD371
|
|
03306 (MQTR-WRITTEN-OFF-AMT (ACCT-SUB) = 0) DTSBD371
|
|
03307 AND DTSBD371
|
|
03308 (MQTR-TOLER-AMT (ACCT-SUB) = 0) DTSBD371
|
|
03309 AND DTSBD371
|
|
03310 (MQTR-BALANCE-AMT (ACCT-SUB) = 0) DTSBD371
|
|
03311 PERFORM S2211-SHUFFLE THRU S2211-EXIT DTSBD371
|
|
03312 VARYING ACCT-SUB1 FROM ACCT-SUB BY 1 DTSBD371
|
|
03313 UNTIL ACCT-SUB1 NOT < MQTR-ACCT-CNT DTSBD371
|
|
03314 SUBTRACT 1 FROM MQTR-ACCT-CNT DTSBD371
|
|
03315 ELSE DTSBD371
|
|
03316 ADD +1 TO ACCT-SUB. DTSBD371
|
|
03317 S2210-EXIT. DTSBD371
|
|
03318 EXIT. DTSBD371
|
|
03319 SKIP3 DTSBD371
|
|
03320 S2211-SHUFFLE. DTSBD371
|
|
03321 COMPUTE ACCT-SUB2 = ACCT-SUB1 + 1. DTSBD371
|
|
03322 DTSBD371
|
|
03323 MOVE MQTR-ACCT-GROUP (ACCT-SUB2) DTSBD371
|
|
03324 TO MQTR-ACCT-GROUP (ACCT-SUB1). DTSBD371
|
|
03325 S2211-EXIT. DTSBD371
|
|
03326 EXIT. DTSBD371
|
|
03327 EJECT DTSBD371
|
|
03328 S3100-DEC-PAID-AMT. DTSBD371
|
|
03329 COMPUTE WRK-AMT1 DTSBD371
|
|
03330 = MQTR-BALANCE-AMT (ACCT-SUB) * -1. DTSBD371
|
|
03331 DTSBD371
|
|
03332 IF MQTR-PAID-AMT (ACCT-SUB) < WRK-AMT1 DTSBD371
|
|
03333 MOVE MQTR-PAID-AMT (ACCT-SUB) TO L522-AMT DTSBD371
|
|
03334 ELSE DTSBD371
|
|
03335 MOVE WRK-AMT1 TO L522-AMT. DTSBD371
|
|
03336 DTSBD371
|
|
03337 IF L522-AMT NOT > +0 DTSBD371
|
|
03338 GO TO S3100-EXIT. DTSBD371
|
|
03339 DTSBD371
|
|
03340 MOVE ACCT-SUB TO L522-ACCT-SUB. DTSBD371
|
|
03341 DTSBD371
|
|
03342 PERFORM S522-REVERSE-PAID THRU S522-EXIT. DTSBD371
|
|
03343 S3100-EXIT. DTSBD371
|
|
03344 EXIT. DTSBD371
|
|
03345 EJECT DTSBD371
|
|
03346 S3200-DEC-WAIVED-AMT. DTSBD371
|
|
03347 COMPUTE WRK-AMT1 DTSBD371
|
|
03348 = MQTR-BALANCE-AMT (ACCT-SUB) * -1. DTSBD371
|
|
03349 DTSBD371
|
|
03350 IF MQTR-WAIVED-AMT (ACCT-SUB) < WRK-AMT1 DTSBD371
|
|
03351 MOVE MQTR-WAIVED-AMT (ACCT-SUB) TO L541-AMT DTSBD371
|
|
03352 ELSE DTSBD371
|
|
03353 MOVE WRK-AMT1 TO L541-AMT. DTSBD371
|
|
03354 DTSBD371
|
|
03355 IF L541-AMT NOT > +0 DTSBD371
|
|
03356 GO TO S3200-EXIT. DTSBD371
|
|
03357 DTSBD371
|
|
03358 COMPUTE L541-AMT = L541-AMT * -1. DTSBD371
|
|
03359 DTSBD371
|
|
03360 MOVE ACCT-SUB TO L541-ACCT-SUB. DTSBD371
|
|
03361 DTSBD371
|
|
03362 MOVE CACT-CAT-WAIVED TO L541-CAT-IND. DTSBD371
|
|
03363 DTSBD371
|
|
03364 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD371
|
|
03365 S3200-EXIT. DTSBD371
|
|
03366 EXIT. DTSBD371
|
|
03367 EJECT DTSBD371
|
|
03368 S4000-WRITE-MEVL. DTSBD371
|
|
03369 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD371
|
|
03370 DTSBD371
|
|
03371 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. DTSBD371
|
|
03372 DTSBD371
|
|
03373 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBD371
|
|
03374 DTSBD371
|
|
03375 DTSBD371
|
|
03376 MOVE LOW-VALUES TO MEVL-REC. DTSBD371
|
|
03377 DTSBD371
|
|
03378 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBD371
|
|
03379 DTSBD371
|
|
03380 SET MEVL-EVL-88 TO TRUE. DTSBD371
|
|
03381 DTSBD371
|
|
03382 MOVE L005-DATE TO MEVL-DATE. DTSBD371
|
|
03383 DTSBD371
|
|
03384 MOVE L005-TIME TO MEVL-TIME. DTSBD371
|
|
03385 DTSBD371
|
|
03386 DTSBD371
|
|
03387 MOVE ZEROS TO MEVL-PURGE-DATE. DTSBD371
|
|
03388 DTSBD371
|
|
03389 DTSBD371
|
|
03390 MOVE EVL-TEXT TO MEVL-TEXT. DTSBD371
|
|
03391 DTSBD371
|
|
03392 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBD371
|
|
03393 DTSBD371
|
|
03394 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD371
|
|
03395 DTSBD371
|
|
03396 MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD371
|
|
03397 MEVL-CHNG-DATE. DTSBD371
|
|
03398 DTSBD371
|
|
03399 DTSBD371
|
|
03400 MOVE MEVL-REC TO MSKL-REC. DTSBD371
|
|
03401 DTSBD371
|
|
03402 PERFORM S910-WRITE THRU S910-EXIT. DTSBD371
|
|
03403 S4000-EXIT. DTSBD371
|
|
03404 EXIT. DTSBD371
|
|
03405 EJECT DTSBD371
|
|
03406 S001-FROM-FED-8. DTSBD371
|
|
03407 SET L001-FROM-FED-8 TO TRUE. DTSBD371
|
|
03408 GO TO S001-DATE. DTSBD371
|
|
03409 DTSBD371
|
|
03410 S001-FROM-ABS-DAY. DTSBD371
|
|
03411 SET L001-FROM-ABS-DAY TO TRUE. DTSBD371
|
|
03412 GO TO S001-DATE. DTSBD371
|
|
03413 DTSBD371
|
|
03414 S001-DATE. DTSBD371
|
|
03415 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD371
|
|
03416 S001-EXIT. DTSBD371
|
|
03417 EXIT. DTSBD371
|
|
03418 SKIP3 DTSBD371
|
|
03419 S004-FROM-5. DTSBD371
|
|
03420 SET L004-FROM-5 TO TRUE. DTSBD371
|
|
03421 GO TO S004-QTR. DTSBD371
|
|
03422 DTSBD371
|
|
03423 S004-QTR. DTSBD371
|
|
03424 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD371
|
|
03425 S004-EXIT. DTSBD371
|
|
03426 EXIT. DTSBD371
|
|
03427 SKIP3 DTSBD371
|
|
03428 S005-FROM-ABSTIME. DTSBD371
|
|
03429 SET L005-FROM-ABSTIME TO TRUE. DTSBD371
|
|
03430 GO TO S005-ABSTIME. DTSBD371
|
|
03431 DTSBD371
|
|
03432 S005-ABSTIME. DTSBD371
|
|
03433 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD371
|
|
03434 S005-EXIT. DTSBD371
|
|
03435 EXIT. DTSBD371
|
|
03436 SKIP3 DTSBD371
|
|
03437 S101-PER-MONTH-NO. DTSBD371
|
|
03438 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBD371
|
|
03439 GO TO S101-INT-COMP. DTSBD371
|
|
03440 DTSBD371
|
|
03441 S101-INT-COMP. DTSBD371
|
|
03442 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBD371
|
|
03443 S101-EXIT. DTSBD371
|
|
03444 EXIT. DTSBD371
|
|
03445 SKIP3 DTSBD371
|
|
03446 S102-ORIGINAL-RPT. DTSBD371
|
|
03447 SET L102-ORIGINAL-RPT-88 TO TRUE. DTSBD371
|
|
03448 GO TO S102-PEN-COMP. DTSBD371
|
|
03449 DTSBD371
|
|
03450 S102-ESTIMATED-RPT. DTSBD371
|
|
03451 SET L102-ESTIMATED-RPT-88 TO TRUE. DTSBD371
|
|
03452 GO TO S102-PEN-COMP. DTSBD371
|
|
03453 DTSBD371
|
|
03454 S102-PEN-COMP. DTSBD371
|
|
03455 CALL 'DTSBU102' USING L102-LINK-AREA. DTSBD371
|
|
03456 S102-EXIT. DTSBD371
|
|
03457 EXIT. DTSBD371
|
|
03458 SKIP3 DTSBD371
|
|
03459 S109-FIRST-PEN-INT-YRQ. DTSBD371
|
|
03460 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSBD371
|
|
03461 GO TO S109-SUR-RATE. DTSBD371
|
|
03462 DTSBD371
|
|
03463 S109-SUR-RATE. DTSBD371
|
|
03464 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBD371
|
|
03465 S109-EXIT. DTSBD371
|
|
03466 EXIT. DTSBD371
|
|
03467 SKIP3 DTSBD371
|
|
03468 S111-LOOKUP-ADDR. DTSBD371
|
|
03469 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBD371
|
|
03470 DTSBD371
|
|
03471 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD371
|
|
03472 S111-EXIT. DTSBD371
|
|
03473 EXIT. DTSBD371
|
|
03474 SKIP3 DTSBD371
|
|
03475 S112-FORMAT-ADDR. DTSBD371
|
|
03476 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBD371
|
|
03477 S112-EXIT. DTSBD371
|
|
03478 EXIT. DTSBD371
|
|
03479 SKIP3 DTSBD371
|
|
03480 S415-HOUSEHOLD-DATES. DTSBD371
|
|
03481 CALL 'DTSBU415' USING L415-LINK-AREA. DTSBD371
|
|
03482 S415-EXIT. DTSBD371
|
|
03483 EXIT. DTSBD371
|
|
03484 DTSBD371
|
|
03485 S420A-WRITE-WAGE-TRANS. DTSBD371
|
|
03486 SET L420-CMND-UPDATE-88 TO TRUE. DTSBD371
|
|
03487 DTSBD371
|
|
03488 CALL 'DTSBU420' USING L420-LINK-AREA. DTSBD371
|
|
03489 DTSBD371
|
|
03490 S420A-EXIT. DTSBD371
|
|
03491 EXIT. DTSBD371
|
|
03492 DTSBD371
|
|
03493 S420B-DELETE-WTC. DTSBD371
|
|
03494 SET L420-CMND-DELETE-88 TO TRUE. DTSBD371
|
|
03495 DTSBD371
|
|
03496 CALL 'DTSBU420' USING L420-LINK-AREA. DTSBD371
|
|
03497 DTSBD371
|
|
03498 S420B-EXIT. DTSBD371
|
|
03499 EXIT. DTSBD371
|
|
03500 DTSBD371
|
|
03501 S424-CHECK-WAGE. DTSBD371
|
|
03502 SET L424-CMND-CHK-WG-88 TO TRUE. DTSBD371
|
|
03503 GO TO S424-WAGE-ADJ. DTSBD371
|
|
03504 DTSBD371
|
|
03505 S424-CALC-ADJUST. DTSBD371
|
|
03506 SET L424-CMND-PROCESS-88 TO TRUE. DTSBD371
|
|
03507 GO TO S424-WAGE-ADJ. DTSBD371
|
|
03508 DTSBD371
|
|
03509 S424-WAGE-ADJ. DTSBD371
|
|
03510 CALL 'DTSBU424' USING L424-LINK-AREA. DTSBD371
|
|
03511 DTSBD371
|
|
03512 S424-EXIT. DTSBD371
|
|
03513 EXIT. DTSBD371
|
|
03514 DTSBD371
|
|
03515 S511-MQTR-INIT. DTSBD371
|
|
03516 CALL 'DTSBU511' USING MQTR-REC. DTSBD371
|
|
03517 S511-EXIT. DTSBD371
|
|
03518 EXIT. DTSBD371
|
|
03519 SKIP3 DTSBD371
|
|
03520 S516-LIABILITY-INFO. DTSBD371
|
|
03521 CALL 'DTSBU516' USING L516-LINK-AREA DTSBD371
|
|
03522 MPRF-REC. DTSBD371
|
|
03523 S516-EXIT. DTSBD371
|
|
03524 EXIT. DTSBD371
|
|
03525 SKIP3 DTSBD371
|
|
03526 S520-APPLY-CREDIT. DTSBD371
|
|
03527 CALL 'DTSBU520' USING L520-LINK-AREA DTSBD371
|
|
03528 LBCM-LINK-AREA DTSBD371
|
|
03529 MPRF-REC. DTSBD371
|
|
03530 S520-EXIT. DTSBD371
|
|
03531 EXIT. DTSBD371
|
|
03532 SKIP3 DTSBD371
|
|
03533 S522-REVERSE-PAID. DTSBD371
|
|
03534 CALL 'DTSBU522' USING L522-LINK-AREA DTSBD371
|
|
03535 LBCM-LINK-AREA DTSBD371
|
|
03536 MPRF-REC DTSBD371
|
|
03537 MQTR-REC. DTSBD371
|
|
03538 S522-EXIT. DTSBD371
|
|
03539 EXIT. DTSBD371
|
|
03540 SKIP3 DTSBD371
|
|
03541 S541-MODIFY-AMT. DTSBD371
|
|
03542 MOVE ARPT-DOC-NO TO L541-TRN-DOC-NO. DTSBD371
|
|
03543 DTSBD371
|
|
03544 CALL 'DTSBU541' USING L541-LINK-AREA DTSBD371
|
|
03545 MPRF-REC DTSBD371
|
|
03546 MQTR-REC. DTSBD371
|
|
03547 S541-EXIT. DTSBD371
|
|
03548 EXIT. DTSBD371
|
|
03549 SKIP3 DTSBD371
|
|
03550 S549-DELTA. DTSBD371
|
|
03551 SET L549-DELTA-88 TO TRUE. DTSBD371
|
|
03552 GO TO S549-JOURNAL. DTSBD371
|
|
03553 DTSBD371
|
|
03554 S549-JOURNAL. DTSBD371
|
|
03555 MOVE ARPT-DOC-NO TO L549-TRN-DOC-NO. DTSBD371
|
|
03556 DTSBD371
|
|
03557 CALL 'DTSBU549' USING L549-LINK-AREA. DTSBD371
|
|
03558 S549-EXIT. DTSBD371
|
|
03559 EXIT. DTSBD371
|
|
03560 SKIP3 DTSBD371
|
|
03561 S590-QTR-TOL. DTSBD371
|
|
03562 SET L590-QTR-TOL-88 TO TRUE. DTSBD371
|
|
03563 MOVE MQTR-YRQ TO L590-YRQ. DTSBD371
|
|
03564 MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO. DTSBD371
|
|
03565 MOVE ARPT-DOC-NO TO L590-TOL-DOC-NO. DTSBD371
|
|
03566 GO TO S590-EMP-CLEANUP. DTSBD371
|
|
03567 DTSBD371
|
|
03568 S590-ORIG-RPT. DTSBD371
|
|
03569 SET L590-ORIG-RPT-88 TO TRUE. DTSBD371
|
|
03570 MOVE MQTR-YRQ TO L590-YRQ. DTSBD371
|
|
03571 MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO DTSBD371
|
|
03572 L590-TOL-DOC-NO. DTSBD371
|
|
03573 GO TO S590-EMP-CLEANUP. DTSBD371
|
|
03574 DTSBD371
|
|
03575 S590-QTR-PURSUED. DTSBD371
|
|
03576 SET L590-QTR-PURSUED-88 TO TRUE. DTSBD371
|
|
03577 MOVE MQTR-YRQ TO L590-YRQ. DTSBD371
|
|
03578 MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO DTSBD371
|
|
03579 L590-TOL-DOC-NO. DTSBD371
|
|
03580 GO TO S590-EMP-CLEANUP. DTSBD371
|
|
03581 DTSBD371
|
|
03582 S590-EMP-CLEANUP. DTSBD371
|
|
03583 CALL 'DTSBU590' USING L590-LINK-AREA DTSBD371
|
|
03584 LBCM-LINK-AREA DTSBD371
|
|
03585 MPRF-REC. DTSBD371
|
|
03586 S590-EXIT. DTSBD371
|
|
03587 EXIT. DTSBD371
|
|
03588 SKIP3 DTSBD371
|
|
03589 S910-READ. DTSBD371
|
|
03590 SET L910-READ-88 TO TRUE. DTSBD371
|
|
03591 GO TO S910-MSTR-IO. DTSBD371
|
|
03592 DTSBD371
|
|
03593 S910-START-BROWSE. DTSBD371
|
|
03594 SET L910-START-BROWSE-88 TO TRUE. DTSBD371
|
|
03595 GO TO S910-MSTR-IO. DTSBD371
|
|
03596 DTSBD371
|
|
03597 S910-READ-NEXT. DTSBD371
|
|
03598 SET L910-READ-NEXT-88 TO TRUE. DTSBD371
|
|
03599 GO TO S910-MSTR-IO. DTSBD371
|
|
03600 DTSBD371
|
|
03601 S910-COUNT. DTSBD371
|
|
03602 SET L910-COUNT-88 TO TRUE. DTSBD371
|
|
03603 GO TO S910-MSTR-IO. DTSBD371
|
|
03604 DTSBD371
|
|
03605 S910-WRITE. DTSBD371
|
|
03606 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD371
|
|
03607 SET L910-WRITE-88 TO TRUE. DTSBD371
|
|
03608 GO TO S910-MSTR-IO. DTSBD371
|
|
03609 DTSBD371
|
|
03610 S910-REWRITE. DTSBD371
|
|
03611 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD371
|
|
03612 SET L910-REWRITE-88 TO TRUE. DTSBD371
|
|
03613 GO TO S910-MSTR-IO. DTSBD371
|
|
03614 DTSBD371
|
|
03615 S910-DELETE. DTSBD371
|
|
03616 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD371
|
|
03617 SET L910-DELETE-88 TO TRUE. DTSBD371
|
|
03618 GO TO S910-MSTR-IO. DTSBD371
|
|
03619 DTSBD371
|
|
03620 S910-MSTR-IO. DTSBD371
|
|
03621 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD371
|
|
03622 MSKL-REC. DTSBD371
|
|
03623 S910-EXIT. DTSBD371
|
|
03624 EXIT. DTSBD371
|
|
03625 SKIP3 DTSBD371
|
|
03626 S946-R316-WRITE. DTSBD371
|
|
03627 CALL 'DTSBU946' USING R316-REC. DTSBD371
|
|
03628 GO TO S946-EXIT. DTSBD371
|
|
03629 DTSBD371
|
|
03630 S946-R726-WRITE. DTSBD371
|
|
03631 CALL 'DTSBU946' USING R726-REC. DTSBD371
|
|
03632 GO TO S946-EXIT. DTSBD371
|
|
03633 DTSBD371
|
|
03634 S946-R907-WRITE. DTSBD371
|
|
03635 CALL 'DTSBU946' USING R907-REC. DTSBD371
|
|
03636 GO TO S946-EXIT. DTSBD371
|
|
03637 DTSBD371
|
|
03638 S946-EXIT. DTSBD371
|
|
03639 EXIT. DTSBD371
|
|
03640 SKIP3 DTSBD371
|
|
03641 S999-ABEND. DTSBD371
|
|
03642 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD371
|
|
03643 S999-EXIT. DTSBD371
|
|
03644 EXIT. DTSBD371
|