DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
949
Batch/DTSBR319.cob
Normal file
949
Batch/DTSBR319.cob
Normal file
@ -0,0 +1,949 @@
|
||||
00001 IDENTIFICATION DIVISION. 01/03/14
|
||||
00002 PROGRAM-ID. DTSBR319. DTSBR319
|
||||
00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV029
|
||||
00004 DATE-WRITTEN. JANUAR 2005. DTSBR319
|
||||
00005 DATE-COMPILED. DTSBR319
|
||||
00006 SKIP3 DTSBR319
|
||||
00007 ***** DTSBR319
|
||||
00008 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR319
|
||||
00009 * DTSBD372 WHICH WRITES DTSIR319 DTSBR319
|
||||
00010 * DTSBR319 READS DTSIR319 RECORDS. DTSBR319
|
||||
00011 * DTSBR319
|
||||
00012 * FUNCTION: RETURNED CHECK NOTICE. DTSBR319
|
||||
00013 * DTSBR319
|
||||
00014 * DTSBR319
|
||||
00015 * MODIFICATION HISTORY: DTSBR319
|
||||
00016 * DTSBR319
|
||||
00017 * 01/26/05 DEVELOPED TO NOTIFY EMPLOYER OF CHECK PAYMENT WAS NOT. DTSBR319
|
||||
00018 * PROCESSED BY THE BANK. DTSBR319
|
||||
00019 * REFERENCE RFP # SPEC 59 PROGRAMMER: ZL1 DTSBR319
|
||||
00020 * DTSBR319
|
||||
00021 * 04/29/05 CORRECTED PROBLEM WITH READ OF MQTR: P2100 SCANS MJRN. DTSBR319
|
||||
00022 * WHEN CORRECT BATCH FOUND, IT CALLS P2200 TO READ MQTR DTSBR319
|
||||
00023 * (NEEDED FOR INTEREST CALCULATION). WHEN CONTROL RETURNSDTSBR319
|
||||
00024 * TO P2100, IT DID A READ NEXT WITHOUT MOVING THE MJRN DTSBR319
|
||||
00025 * RECORD BACK TO THE MSKL. THIS RESULTS IN A READ OF THE DTSBR319
|
||||
00026 * MQTR, WHICH IS THEN MOVED TO THE MJRN COPY BOOK, DTSBR319
|
||||
00027 * CAUSING A DATA EXCEPTION. DTSBR319
|
||||
00028 * REFERENCE RFP # PRODUCTION PROBLEM PROGRAMMER: GD DTSBR319
|
||||
00029 * DTSBR319
|
||||
00030 * 12/20/05 RECOMPILED FOR NEW VERSION OF DTSIC119. DTSBR319
|
||||
00031 * REFERENCE RFP # PROGRAMMER: GD DTSBR319
|
||||
00032 * DTSBR319
|
||||
00033 * 08/21/06 REMOVED OPEN/CLOSE OF TAX MASTER FILES. THE FILES DTSBR319
|
||||
00034 * ARE NOW OPENED AND CLOSED IN DTSBD800. DTSBR319
|
||||
00035 * REFERENCE RFP # PROGRAMMER: GD DTSBR319
|
||||
00036 * DTSBR319
|
||||
00037 * 01/08/06 MODIFIED TO CHECK FOR NSF PENALTY WHEN THE ORIGINAL DTSBR319
|
||||
00038 * CHECK COVERED ONLY ADMINISTRATIVE ASSESSMENT. DTSBR319
|
||||
00039 * REFERENCE RFP # PROGRAMMER: GD DTSBR319
|
||||
00040 * DTSBR319
|
||||
00041 * 07/28/08 RECOMPILE FOR IC119 COPYBOOK CHANGE DTSBR319
|
||||
00042 * REFERENCE RFP # PROGRAMMER: ZL1 DTSBR319
|
||||
00043 * DTSBR319
|
||||
00044 * DTSBR319
|
||||
00045 * 07/23/10 RECOMPILE FOR IC119 COPYBOOK CHANGE DTSBR319
|
||||
00046 * ADDED MARY TUCKER AS ASSOCIATE DIRECTOR DTSBR319
|
||||
00047 * ADDED MARILYN SEABROOK AS TAX CHIEF DTSBR319
|
||||
00048 * REFERENCE RFP # PROGRAMMER: ZL1 DTSBR319
|
||||
00049 * DTSBR319
|
||||
00050 * 10/26/11 REMOVED TAX CHIEF NAME FROM FORM. NAME WAS COMING DTSBR319
|
||||
00051 * FROM IC119 COPYBOOK DTSBR319
|
||||
00052 * REFERENCE RFP # PROGRAMMER: ZL1 DTSBR319
|
||||
00053 * DTSBR319
|
||||
00054 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR319
|
||||
00055 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR319
|
||||
00056 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR319
|
||||
00057 * DTSBR319
|
||||
00058 * DTSBR319
|
||||
00059 * DESCRIPTION: DTSBR319
|
||||
00060 * DTSBR319
|
||||
00061 * THIS MODULE GENERATES NOTICE TO EMPLOYERS WHOSE CHECK DTSBR319
|
||||
00062 * PAYMENT WAS RETURNED BY THE BANK. DTSBR319
|
||||
00063 * DTSBR319
|
||||
00064 * DTSBR319
|
||||
00065 * RECORDS READ: DTSBR319
|
||||
00066 * DTSBR319
|
||||
00067 * NONE. DTSBR319
|
||||
00068 * DTSBR319
|
||||
00069 * DTSBR319
|
||||
00070 * PRINTED OUTPUTS: DTSBR319
|
||||
00071 * DTSBR319
|
||||
00072 * 319R1 RETURNED CHECK NOTICE. DTSBR319
|
||||
00073 * DTSBR319
|
||||
00074 * DTSBR319
|
||||
00075 * RECORDS WRITTEN: DTSBR319
|
||||
00076 * DTSBR319
|
||||
00077 * NONE. DTSBR319
|
||||
00078 * DTSBR319
|
||||
00079 * DTSBR319
|
||||
00080 * MODULES CALLED: DTSBR319
|
||||
00081 * DTSBR319
|
||||
00082 * DTSBU002 DATE ALPHA CONVERSION MODULE DTSBR319
|
||||
00083 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR319
|
||||
00084 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR319
|
||||
00085 * DTSBR319
|
||||
00086 * DTSBR319
|
||||
00087 ***** DTSBR319
|
||||
00088 EJECT DTSBR319
|
||||
00089 ENVIRONMENT DIVISION. DTSBR319
|
||||
00090 SKIP2 DTSBR319
|
||||
00091 CONFIGURATION SECTION. DTSBR319
|
||||
00092 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR319
|
||||
00093 SKIP1 DTSBR319
|
||||
00094 INPUT-OUTPUT SECTION. DTSBR319
|
||||
00095 SKIP1 DTSBR319
|
||||
00096 FILE-CONTROL. DTSBR319
|
||||
00097 SELECT PRT-FILW ASSIGN TO RPT319R1. DTSBR319
|
||||
00098 SKIP3 DTSBR319
|
||||
00099 DATA DIVISION. DTSBR319
|
||||
00100 SKIP3 DTSBR319
|
||||
00101 FILE SECTION. DTSBR319
|
||||
00102 SKIP2 DTSBR319
|
||||
00103 FD PRT-FILW DTSBR319
|
||||
00104 RECORDING MODE IS F DTSBR319
|
||||
00105 BLOCK CONTAINS 0 RECORDS DTSBR319
|
||||
00106 LABEL RECORDS ARE OMITTED. DTSBR319
|
||||
00107 01 XEROX-REPORTW. DTSBR319
|
||||
00108 05 FILLER PIC X(1). DTSBR319
|
||||
00109 05 XEROX-RPT-W PIC X(132). DTSBR319
|
||||
00110 DTSBR319
|
||||
00111 EJECT DTSBR319
|
||||
00112 WORKING-STORAGE SECTION. DTSBR319
|
||||
001125 77 PAN-VALET PICTURE X(24) VALUE '029DTSBR319 01/03/14'. DTSBR319
|
||||
00113 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR319 01/03/14'. DTSBR319
|
||||
00114 77 PAN-VALET PICTURE X(24) VALUE '027DTSBR319 10/10/12'. DTSBR319
|
||||
00115 77 PAN-VALET PICTURE X(24) VALUE '009DTSBR319 09/18/12'. DTSBR319
|
||||
00116 SKIP3 DTSBR319
|
||||
00117 01 WRK-AREA. DTSBR319
|
||||
00118 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +319.DTSBR319
|
||||
00119 05 WRK-TOTAL-AMT PIC 9(07)V9(02) VALUE ZEROS.DTSBR319
|
||||
00120 05 WRK-CHK-AMOUNT PIC 9(07)V9(02) VALUE ZEROS.DTSBR319
|
||||
00121 05 WRK-INT-AMT PIC 9(07)V9(02) VALUE ZEROS.DTSBR319
|
||||
00122 05 WRK-NSF-AMT PIC 9(07)V9(02) VALUE ZEROS.DTSBR319
|
||||
00123 05 WRK-PEN-AMT PIC 9(07)V9(02) VALUE ZEROS.DTSBR319
|
||||
00124 05 ABEND-MSG PIC X(50) VALUE SPACE. DTSBR319
|
||||
00125 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR319
|
||||
00126 DTSBR319
|
||||
00127 05 QTR-FIRST PIC S9(04) COMP VALUE +400. DTSBR319
|
||||
00128 05 QTR-LAST PIC S9(04) COMP VALUE +0. DTSBR319
|
||||
00129 05 QTR-MAX PIC S9(04) COMP VALUE +400. DTSBR319
|
||||
00130 05 QTR-SUB PIC S9(04) COMP. DTSBR319
|
||||
00131 05 WRK-QTR-TABLE OCCURS 400 TIMES. DTSBR319
|
||||
00132 10 TBL-YRQ PIC S9(05) COMP-3. DTSBR319
|
||||
00133 10 TBL-UI-PAID PIC S9(09)V99 COMP-3. DTSBR319
|
||||
00134 10 TBL-LATE-PEN-AMT PIC S9(09)V99 COMP-3. DTSBR319
|
||||
00135 10 TBL-LATE-PEN-IND PIC X(01). DTSBR319
|
||||
00136 88 TBL-LATE-PEN-YES-88 VALUE 'Y'. DTSBR319
|
||||
00137 88 TBL-LATE-PEN-NO-88 VALUE 'N'. DTSBR319
|
||||
00138 10 TBL-NSF-PEN-AMT PIC S9(09)V99 COMP-3. DTSBR319
|
||||
00139 10 TBL-NSF-PEN-IND PIC X(01). DTSBR319
|
||||
00140 88 TBL-NSF-PEN-YES-88 VALUE 'Y'. DTSBR319
|
||||
00141 88 TBL-NSF-PEN-NO-88 VALUE 'N'. DTSBR319
|
||||
00142 10 TBL-INT PIC S9(09)V99 COMP-3. DTSBR319
|
||||
00143 DTSBR319
|
||||
00144 05 WRK-MJRN-FOUND-IND PIC X(01). DTSBR319
|
||||
00145 88 WRK-MJRN-FOUND-NO-88 VALUE 'N'. DTSBR319
|
||||
00146 88 WRK-MJRN-FOUND-YES-88 VALUE 'Y'. DTSBR319
|
||||
00147 DTSBR319
|
||||
00148 05 WS-TAX-VOICE. DTSBR319
|
||||
00149 10 WS-TAX-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR319
|
||||
00150 10 WS-TAX-VOICE-DIST PIC X(03) VALUE SPACES. DTSBR319
|
||||
00151 10 WS-TAX-VOICE-PHONE PIC X(04) VALUE SPACES. DTSBR319
|
||||
00152 10 WS-TAX-VOICE-EXT PIC X(04) VALUE SPACES. DTSBR319
|
||||
00153 DTSBR319
|
||||
00154 05 WS-WRK-DATE. DTSBR319
|
||||
00155 10 WS-WRK-MO PIC X(02) VALUE SPACES. DTSBR319
|
||||
00156 10 FILLER PIC X(01) VALUE SPACES. DTSBR319
|
||||
00157 10 WS-WRK-DAY PIC X(02) VALUE SPACES. DTSBR319
|
||||
00158 10 FILLER PIC X(01) VALUE SPACES. DTSBR319
|
||||
00159 10 WS-WRK-YR PIC X(04) VALUE SPACES. DTSBR319
|
||||
00160 DTSBR319
|
||||
00161 05 AMT-DISP1 PIC --------9.99. DTSBR319
|
||||
00162 05 AMT-DISP2 PIC --------9.99. DTSBR319
|
||||
00163 05 AMT-DISP3 PIC --------9.99. DTSBR319
|
||||
00164 05 WS-REC PIC X(132) VALUE SPACES. DTSBR319
|
||||
00165 DTSBR319
|
||||
00166 01 VSCA-LINE. DTSBR319
|
||||
00167 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR319
|
||||
00168 DTSBR319
|
||||
00169 EJECT DTSBR319
|
||||
00170 01 L001-LINK-AREA. DTSBR319
|
||||
00171 ++INCLUDE DTSIL001 DTSBR319
|
||||
00172 EJECT DTSBR319
|
||||
00173 01 L002-LINK-AREA. DTSBR319
|
||||
00174 ++INCLUDE DTSIL002 DTSBR319
|
||||
00175 EJECT DTSBR319
|
||||
00176 01 L004-LINK-AREA. DTSBR319
|
||||
00177 ++INCLUDE DTSIL004 DTSBR319
|
||||
00178 EJECT DTSBR319
|
||||
00179 01 L071-LINK-AREA. DTSBR319
|
||||
00180 ++INCLUDE DTSIL071 DTSBR319
|
||||
00181 EJECT DTSBR319
|
||||
00182 01 L082-LINK-AREA. DTSBR319
|
||||
00183 ++INCLUDE DTSIL082 DTSBR319
|
||||
00184 EJECT DTSBR319
|
||||
00185 01 L101-LINK-AREA. DTSBR319
|
||||
00186 ++INCLUDE DTSIL101 DTSBR319
|
||||
00187 EJECT DTSBR319
|
||||
00188 01 L119-LINK-AREA. DTSBR319
|
||||
00189 ++INCLUDE DTSIC119 DTSBR319
|
||||
00190 EJECT DTSBR319
|
||||
00191 01 L910-LINK-AREA. DTSBR319
|
||||
00192 ++INCLUDE DTSIL910 DTSBR319
|
||||
00193 EJECT DTSBR319
|
||||
00194 ++INCLUDE DTSXL319 DTSBR319
|
||||
00195 SKIP3 DTSBR319
|
||||
00196 01 LETTER-HEADING. DTSBR319
|
||||
00197 05 HDR-LINE-1. DTSBR319
|
||||
00198 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00199 10 WS-LONG-TEXT-AREA PIC X(18). DTSBR319
|
||||
00200 05 HDR-LINE-2. DTSBR319
|
||||
00201 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00202 10 WS-FMT-LINE-1 PIC X(40). DTSBR319
|
||||
00203 05 HDR-LINE-3. DTSBR319
|
||||
00204 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00205 10 WS-FMT-LINE-2 PIC X(40). DTSBR319
|
||||
00206 05 HDR-LINE-4. DTSBR319
|
||||
00207 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00208 10 WS-FMT-LINE-3 PIC X(40). DTSBR319
|
||||
00209 05 HDR-LINE-5. DTSBR319
|
||||
00210 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00211 10 WS-FMT-LINE-4 PIC X(40). DTSBR319
|
||||
00212 05 HDR-LINE-6. DTSBR319
|
||||
00213 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00214 10 WS-FMT-LINE-5 PIC X(40). DTSBR319
|
||||
00215 05 HDR-LINE-7. DTSBR319
|
||||
00216 10 FILLER PIC X(03) VALUE SPACES. DTSBR319
|
||||
00217 10 FILLER PIC X(13) DTSBR319
|
||||
00218 VALUE 'ACCOUNT NO: '. DTSBR319
|
||||
00219 10 WS-EMP-NO PIC 999B999. DTSBR319
|
||||
00220 SKIP2 DTSBR319
|
||||
00221 05 LET-LINE-1. DTSBR319
|
||||
00222 10 FILLER PIC X(32) VALUE SPACES. DTSBR319
|
||||
00223 10 RPT-CHK-NUMBER PIC ZZZZZZZZZ9. DTSBR319
|
||||
00224 10 FILLER PIC X(15) VALUE SPACES. DTSBR319
|
||||
00225 10 RPT-CHK-DATE PIC X(10) VALUE SPACES. DTSBR319
|
||||
00226 SKIP2 DTSBR319
|
||||
00227 05 LET-LINE-2. DTSBR319
|
||||
00228 10 FILLER PIC X(25) VALUE SPACES. DTSBR319
|
||||
00229 10 RPT-CHK-AMOUNT PIC $$$,$$$,$$9.99. DTSBR319
|
||||
00230 10 FILLER PIC X(18) VALUE SPACES. DTSBR319
|
||||
00231 SKIP2 DTSBR319
|
||||
00232 05 LET-LINE-3. DTSBR319
|
||||
00233 10 FILLER PIC X(27) VALUE SPACES. DTSBR319
|
||||
00234 10 RPT-CHK-REASON PIC X(40) VALUE SPACES. DTSBR319
|
||||
00235 SKIP2 DTSBR319
|
||||
00236 05 LET-LINE-4. DTSBR319
|
||||
00237 10 FILLER PIC X(49) VALUE SPACES. DTSBR319
|
||||
00238 10 RPT-CHK-ORIG-AMT PIC ZZZ,ZZ9.99. DTSBR319
|
||||
00239 SKIP2 DTSBR319
|
||||
00240 05 LET-LINE-5. DTSBR319
|
||||
00241 10 FILLER PIC X(49) VALUE SPACES. DTSBR319
|
||||
00242 10 RPT-CHK-NSF-PAYMT PIC ZZZ,ZZ9.99. DTSBR319
|
||||
00243 SKIP2 DTSBR319
|
||||
00244 05 LET-LINE-6. DTSBR319
|
||||
00245 10 FILLER PIC X(49) VALUE SPACES. DTSBR319
|
||||
00246 10 RPT-CHK-LATE-PAYMT PIC ZZZ,ZZ9.99. DTSBR319
|
||||
00247 SKIP2 DTSBR319
|
||||
00248 05 LET-LINE-7. DTSBR319
|
||||
00249 10 FILLER PIC X(49) VALUE SPACES. DTSBR319
|
||||
00250 10 RPT-CHK-INT-PAYMT PIC ZZZ,ZZ9.99. DTSBR319
|
||||
00251 SKIP2 DTSBR319
|
||||
00252 05 LET-LINE-8. DTSBR319
|
||||
00253 10 FILLER PIC X(49) VALUE SPACES. DTSBR319
|
||||
00254 10 RPT-CHK-TOTAL-PAYMT PIC ZZZ,ZZ9.99. DTSBR319
|
||||
00255 SKIP2 DTSBR319
|
||||
00256 SKIP2 DTSBR319
|
||||
00257 05 FTR-LINE-1. DTSBR319
|
||||
00258 10 FILLER PIC X(13) VALUE SPACES. DTSBR319
|
||||
00259 10 RPT-PHO-AREA PIC X(03) VALUE SPACES. DTSBR319
|
||||
00260 10 FTR-SLASH1 PIC X(01) VALUE SPACES. DTSBR319
|
||||
00261 10 RPT-PHO-DIST PIC X(03) VALUE SPACES. DTSBR319
|
||||
00262 10 FTR-SLASH2 PIC X(01) VALUE SPACES. DTSBR319
|
||||
00263 10 RPT-PHO-NUMBR PIC X(04) VALUE SPACES. DTSBR319
|
||||
00264 10 FILLER PIC X(10) VALUE SPACES. DTSBR319
|
||||
00265 10 RPT-FAX-AREA PIC X(03) VALUE SPACES. DTSBR319
|
||||
00266 10 FTR-SLASH3 PIC X(01) VALUE SPACES. DTSBR319
|
||||
00267 10 RPT-FAX-DIST PIC X(03) VALUE SPACES. DTSBR319
|
||||
00268 10 FTR-SLASH4 PIC X(01) VALUE SPACES. DTSBR319
|
||||
00269 10 RPT-FAX-NUMBR PIC X(04) VALUE SPACES. DTSBR319
|
||||
00270 10 FILLER PIC X(18) VALUE SPACES. DTSBR319
|
||||
00271 SKIP2 DTSBR319
|
||||
00272 05 FTR-LINE-2. DTSBR319
|
||||
00273 10 FILLER PIC X(04) VALUE SPACES. DTSBR319
|
||||
00274 10 RPT-CHK-NAME PIC X(40) VALUE DTSBR319
|
||||
00275 ' TAX DIVISION'. DTSBR319
|
||||
00276 SKIP2 DTSBR319
|
||||
00277 SKIP2 DTSBR319
|
||||
00278 01 MQTR-REC. DTSBR319
|
||||
00279 ++INCLUDE DTSIMQTR DTSBR319
|
||||
00280 EJECT DTSBR319
|
||||
00281 01 MJRN-REC. DTSBR319
|
||||
00282 ++INCLUDE DTSIMJRN DTSBR319
|
||||
00283 EJECT DTSBR319
|
||||
00284 01 MSKL-REC. DTSBR319
|
||||
00285 ++INCLUDE DTSIMSKL DTSBR319
|
||||
00286 EJECT DTSBR319
|
||||
00287 *RW1 DTSBR319
|
||||
00288 01 CONVERT-BARCODE-LINE. DTSBR319
|
||||
00289 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR319
|
||||
00290 DTSBR319
|
||||
00291 01 WS-BARC-LINE. DTSBR319
|
||||
00292 05 FILLER PIC X(40) VALUE SPACES. DTSBR319
|
||||
00293 05 CONVERTED-BARCODE PIC X(50). DTSBR319
|
||||
00294 05 FILLER PIC X(30) VALUE SPACES. DTSBR319
|
||||
00295 DTSBR319
|
||||
00296 01 BARI-LINK-AREA. DTSBR319
|
||||
00297 ++INCLUDE BARIL599 DTSBR319
|
||||
00298 SKIP3 DTSBR319
|
||||
00299 *RW2 DTSBR319
|
||||
00300 LINKAGE SECTION. DTSBR319
|
||||
00301 SKIP3 DTSBR319
|
||||
00302 01 LRCM-LINK-AREA. DTSBR319
|
||||
00303 ++INCLUDE DTSILRCM DTSBR319
|
||||
00304 EJECT DTSBR319
|
||||
00305 01 R319-REC. DTSBR319
|
||||
00306 ++INCLUDE DTSIR319 DTSBR319
|
||||
00307 EJECT DTSBR319
|
||||
00308 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR319
|
||||
00309 R319-REC. DTSBR319
|
||||
00310 SKIP2 DTSBR319
|
||||
00311 IF FIRST-TIME-IND = 'Y' DTSBR319
|
||||
00312 PERFORM I1000-INITIATE DTSBR319
|
||||
00313 THRU I1000-EXIT DTSBR319
|
||||
00314 MOVE 'N' TO FIRST-TIME-IND. DTSBR319
|
||||
00315 SKIP1 DTSBR319
|
||||
00316 IF LRCM-EOR-88 DTSBR319
|
||||
00317 PERFORM T1000-TERMINATE DTSBR319
|
||||
00318 THRU T1000-EXIT DTSBR319
|
||||
00319 ELSE DTSBR319
|
||||
00320 PERFORM P1000-PROCESS DTSBR319
|
||||
00321 THRU P1000-EXIT. DTSBR319
|
||||
00322 SKIP2 DTSBR319
|
||||
00323 GOBACK. DTSBR319
|
||||
00324 EJECT DTSBR319
|
||||
00325 I1000-INITIATE. DTSBR319
|
||||
00326 DTSBR319
|
||||
00327 OPEN OUTPUT PRT-FILW. DTSBR319
|
||||
00328 MOVE SPACES TO XEROX-REPORTW. DTSBR319
|
||||
00329 DTSBR319
|
||||
00330 * WRITE XEROX-REPORTW FROM XEROX-CNTL-CLASSW DTSBR319
|
||||
00331 * AFTER ADVANCING TOP-OF-PAGE. DTSBR319
|
||||
00332 WRITE XEROX-REPORTW FROM VSCA-LINE DTSBR319
|
||||
00333 AFTER ADVANCING TOP-OF-PAGE. DTSBR319
|
||||
00334 DTSBR319
|
||||
00335 *** PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBR319
|
||||
00336 DTSBR319
|
||||
00337 I1000-EXIT. DTSBR319
|
||||
00338 EXIT. DTSBR319
|
||||
00339 DTSBR319
|
||||
00340 P1000-PROCESS. DTSBR319
|
||||
00341 MOVE R319-CURR-MAIL-DATE TO L002-DATE. DTSBR319
|
||||
00342 SET L002-MIXED-CASE TO TRUE. DTSBR319
|
||||
00343 DTSBR319
|
||||
00344 PERFORM S002-DATE-ALPHA DTSBR319
|
||||
00345 THRU S002-EXIT. DTSBR319
|
||||
00346 DTSBR319
|
||||
00347 PERFORM P1100-INT-COMP-DATE THRU P1100-EXIT. DTSBR319
|
||||
00348 DTSBR319
|
||||
00349 ** IF R319-EMP-NO = 138072 DTSBR319
|
||||
00350 * DISPLAY 'BAD EMP NO ' R319-EMP-NO DTSBR319
|
||||
00351 ** GO TO P1000-EXIT. DTSBR319
|
||||
00352 DTSBR319
|
||||
00353 PERFORM P2000-FIND-MJRN THRU P2000-EXIT. DTSBR319
|
||||
00354 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR319
|
||||
00355 PERFORM P4000-PRINT-LETTER THRU P4000-EXIT. DTSBR319
|
||||
00356 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT. DTSBR319
|
||||
00357 PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT. DTSBR319
|
||||
00358 P1000-EXIT. DTSBR319
|
||||
00359 EXIT. DTSBR319
|
||||
00360 EJECT DTSBR319
|
||||
00361 P1100-INT-COMP-DATE. DTSBR319
|
||||
00362 DISPLAY ' I1100 INT COMP DATE'. DTSBR319
|
||||
00363 MOVE LRCM-SYS-8-DATE TO WS-WRK-DATE. DTSBR319
|
||||
00364 MOVE WS-WRK-MO TO L001-FED-8-MO DTSBR319
|
||||
00365 MOVE WS-WRK-DAY TO L001-FED-8-DA DTSBR319
|
||||
00366 MOVE WS-WRK-YR TO L001-FED-8-YR DTSBR319
|
||||
00367 SET L001-FROM-FED-8 TO TRUE DTSBR319
|
||||
00368 PERFORM S001-DATE THRU S001-EXIT. DTSBR319
|
||||
00369 ADD +14 TO L001-JUL-ABS-DAY. DTSBR319
|
||||
00370 SET L001-FROM-ABS-DAY TO TRUE DTSBR319
|
||||
00371 PERFORM S001-DATE THRU S001-EXIT. DTSBR319
|
||||
00372 MOVE L001-FED-8-DATE-9 TO L101-RECEIVED-DATE. DTSBR319
|
||||
00373 P1100-EXIT. DTSBR319
|
||||
00374 EXIT. DTSBR319
|
||||
00375 DTSBR319
|
||||
00376 P2000-FIND-MJRN. DTSBR319
|
||||
00377 DISPLAY SPACE. DTSBR319
|
||||
00378 DISPLAY ' P2000 ' DTSBR319
|
||||
00379 DISPLAY ' R319 EMP ' R319-EMP-NO DTSBR319
|
||||
00380 ' ' R319-BATCH-NO ' ' R319-ITEM-NO. DTSBR319
|
||||
00381 DTSBR319
|
||||
00382 SET WRK-MJRN-FOUND-NO-88 TO TRUE. DTSBR319
|
||||
00383 DTSBR319
|
||||
00384 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBR319
|
||||
00385 MOVE R319-EMP-NO TO MSKL-EMP-NO. DTSBR319
|
||||
00386 SET MSKL-JRN-88 TO TRUE DTSBR319
|
||||
00387 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBR319
|
||||
00388 PERFORM DTSBR319
|
||||
00389 UNTIL L910-NO-REC-88 DTSBR319
|
||||
00390 MOVE MSKL-REC TO MJRN-REC DTSBR319
|
||||
00391 IF MJRN-BATCH-NO = R319-BATCH-NO DTSBR319
|
||||
00392 AND MJRN-ITEM-NO = R319-ITEM-NO DTSBR319
|
||||
00393 SET WRK-MJRN-FOUND-YES-88 TO TRUE DTSBR319
|
||||
00394 PERFORM P2100-GET-QTRS THRU P2100-EXIT DTSBR319
|
||||
00395 SET L910-NO-REC-88 TO TRUE DTSBR319
|
||||
00396 ELSE DTSBR319
|
||||
00397 MOVE MJRN-REC TO MSKL-REC DTSBR319
|
||||
00398 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBR319
|
||||
00399 END-IF DTSBR319
|
||||
00400 END-PERFORM. DTSBR319
|
||||
00401 DTSBR319
|
||||
00402 IF WRK-MJRN-FOUND-NO-88 DTSBR319
|
||||
00403 DISPLAY 'MJRN NOT FOUND ' DTSBR319
|
||||
00404 END-IF. DTSBR319
|
||||
00405 DTSBR319
|
||||
00406 PERFORM P2200-SUM-DATA THRU P2200-EXIT. DTSBR319
|
||||
00407 DTSBR319
|
||||
00408 P2000-EXIT. DTSBR319
|
||||
00409 EXIT. DTSBR319
|
||||
00410 DTSBR319
|
||||
00411 P2100-GET-QTRS. DTSBR319
|
||||
00412 PERFORM DTSBR319
|
||||
00413 VARYING QTR-SUB FROM +1 BY +1 DTSBR319
|
||||
00414 UNTIL QTR-SUB > QTR-MAX DTSBR319
|
||||
00415 MOVE ZERO TO TBL-YRQ (QTR-SUB) DTSBR319
|
||||
00416 TBL-UI-PAID (QTR-SUB) DTSBR319
|
||||
00417 TBL-LATE-PEN-AMT (QTR-SUB) DTSBR319
|
||||
00418 TBL-NSF-PEN-AMT (QTR-SUB) DTSBR319
|
||||
00419 TBL-INT (QTR-SUB) DTSBR319
|
||||
00420 SET TBL-LATE-PEN-NO-88 (QTR-SUB) TO TRUE DTSBR319
|
||||
00421 SET TBL-NSF-PEN-NO-88 (QTR-SUB) TO TRUE DTSBR319
|
||||
00422 END-PERFORM. DTSBR319
|
||||
00423 DTSBR319
|
||||
00424 PERFORM P2110-GET-AMOUNTS THRU P2110-EXIT. DTSBR319
|
||||
00425 ** PERFORM P2110-GET-TAX-PAID THRU P2110-EXIT. DTSBR319
|
||||
00426 PERFORM P2120-GET-PEN-INT THRU P2120-EXIT. DTSBR319
|
||||
00427 DTSBR319
|
||||
00428 P2100-EXIT. DTSBR319
|
||||
00429 EXIT. DTSBR319
|
||||
00430 DTSBR319
|
||||
00431 P2110-GET-AMOUNTS. DTSBR319
|
||||
00432 DISPLAY 'BR319 P2110 ' R319-EMP-NO. DTSBR319
|
||||
00433 PERFORM DTSBR319
|
||||
00434 VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBR319
|
||||
00435 UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT DTSBR319
|
||||
00436 EVALUATE TRUE DTSBR319
|
||||
00437 WHEN (MJRN-ROW-UI-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00438 AND MJRN-COL-PAID-88 (MJRN-OCC-IDX)) DTSBR319
|
||||
00439 PERFORM P2111-SAVE-TAX THRU P2111-EXIT DTSBR319
|
||||
00440 WHEN MJRN-ROW-LATE-PEN-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00441 PERFORM P2112-LATE-PEN THRU P2112-EXIT DTSBR319
|
||||
00442 WHEN MJRN-ROW-NSF-PEN-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00443 PERFORM P2113-NSF-PEN THRU P2113-EXIT DTSBR319
|
||||
00444 END-EVALUATE DTSBR319
|
||||
00445 END-PERFORM. DTSBR319
|
||||
00446 DTSBR319
|
||||
00447 *** PERFORM DTSBR319
|
||||
00448 * VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBR319
|
||||
00449 * UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT DTSBR319
|
||||
00450 * IF ((MJRN-ROW-UI-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00451 * OR MJRN-ROW-SUR-88 (MJRN-OCC-IDX)) DTSBR319
|
||||
00452 * AND MJRN-COL-PAID-88 (MJRN-OCC-IDX)) DTSBR319
|
||||
00453 * PERFORM P2111-SAVE-IN-TBL THRU P2111-EXIT DTSBR319
|
||||
00454 * END-IF DTSBR319
|
||||
00455 *** END-PERFORM. DTSBR319
|
||||
00456 DTSBR319
|
||||
00457 P2110-EXIT. DTSBR319
|
||||
00458 EXIT. DTSBR319
|
||||
00459 DTSBR319
|
||||
00460 P2111-SAVE-TAX. DTSBR319
|
||||
00461 MOVE MJRN-YRQ (MJRN-OCC-IDX) TO L004-QTR-5-9. DTSBR319
|
||||
00462 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR319
|
||||
00463 MOVE L004-ABS-QTR TO QTR-SUB. DTSBR319
|
||||
00464 MOVE L004-QTR-5-9 TO TBL-YRQ (QTR-SUB). DTSBR319
|
||||
00465 DTSBR319
|
||||
00466 COMPUTE TBL-UI-PAID (QTR-SUB) = DTSBR319
|
||||
00467 (TBL-UI-PAID (QTR-SUB) + DTSBR319
|
||||
00468 (MJRN-AMT (MJRN-OCC-IDX) * -1)). DTSBR319
|
||||
00469 DTSBR319
|
||||
00470 MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1. DTSBR319
|
||||
00471 MOVE TBL-UI-PAID (QTR-SUB) TO AMT-DISP2. DTSBR319
|
||||
00472 DISPLAY 'BR319 P2111 ' R319-EMP-NO DTSBR319
|
||||
00473 ' JRN ' AMT-DISP1 ' TBL ' AMT-DISP2 DTSBR319
|
||||
00474 ' ' TBL-YRQ (QTR-SUB). DTSBR319
|
||||
00475 P2111-EXIT. DTSBR319
|
||||
00476 EXIT. DTSBR319
|
||||
00477 DTSBR319
|
||||
00478 P2112-LATE-PEN. DTSBR319
|
||||
00479 MOVE MJRN-YRQ (MJRN-OCC-IDX) TO L004-QTR-5-9. DTSBR319
|
||||
00480 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR319
|
||||
00481 MOVE L004-ABS-QTR TO QTR-SUB. DTSBR319
|
||||
00482 MOVE L004-QTR-5-9 TO TBL-YRQ (QTR-SUB). DTSBR319
|
||||
00483 DTSBR319
|
||||
00484 SET TBL-LATE-PEN-YES-88 (QTR-SUB) TO TRUE. DTSBR319
|
||||
00485 DTSBR319
|
||||
00486 DISPLAY 'BR319 P2112 ' R319-EMP-NO. DTSBR319
|
||||
00487 P2112-EXIT. DTSBR319
|
||||
00488 EXIT. DTSBR319
|
||||
00489 DTSBR319
|
||||
00490 P2113-NSF-PEN. DTSBR319
|
||||
00491 MOVE MJRN-YRQ (MJRN-OCC-IDX) TO L004-QTR-5-9. DTSBR319
|
||||
00492 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR319
|
||||
00493 MOVE L004-ABS-QTR TO QTR-SUB. DTSBR319
|
||||
00494 MOVE L004-QTR-5-9 TO TBL-YRQ (QTR-SUB). DTSBR319
|
||||
00495 DTSBR319
|
||||
00496 SET TBL-NSF-PEN-YES-88 (QTR-SUB) TO TRUE. DTSBR319
|
||||
00497 DTSBR319
|
||||
00498 DISPLAY 'BR319 P2112 ' R319-EMP-NO. DTSBR319
|
||||
00499 P2113-EXIT. DTSBR319
|
||||
00500 EXIT. DTSBR319
|
||||
00501 DTSBR319
|
||||
00502 P2120-GET-PEN-INT. DTSBR319
|
||||
00503 PERFORM DTSBR319
|
||||
00504 VARYING QTR-SUB FROM +1 BY +1 DTSBR319
|
||||
00505 UNTIL QTR-SUB > QTR-MAX DTSBR319
|
||||
00506 IF TBL-YRQ (QTR-SUB) NOT = ZERO DTSBR319
|
||||
00507 PERFORM P2121-READ-MQTR THRU P2121-EXIT DTSBR319
|
||||
00508 END-IF DTSBR319
|
||||
00509 END-PERFORM. DTSBR319
|
||||
00510 DTSBR319
|
||||
00511 P2120-EXIT. DTSBR319
|
||||
00512 EXIT. DTSBR319
|
||||
00513 DTSBR319
|
||||
00514 P2121-READ-MQTR. DTSBR319
|
||||
00515 DISPLAY 'BR319 P2121 ' TBL-YRQ (QTR-SUB). DTSBR319
|
||||
00516 DTSBR319
|
||||
00517 MOVE LOW-VALUE TO MQTR-KEY-AREA. DTSBR319
|
||||
00518 MOVE R319-EMP-NO TO MQTR-EMP-NO. DTSBR319
|
||||
00519 SET MQTR-QTR-88 TO TRUE. DTSBR319
|
||||
00520 MOVE TBL-YRQ (QTR-SUB) TO MQTR-YRQ. DTSBR319
|
||||
00521 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR319
|
||||
00522 PERFORM S910-READ THRU S910-EXIT. DTSBR319
|
||||
00523 DTSBR319
|
||||
00524 IF L910-OK-88 DTSBR319
|
||||
00525 MOVE MSKL-REC TO MQTR-REC DTSBR319
|
||||
00526 PERFORM P2121A-INTEREST THRU P2121A-EXIT DTSBR319
|
||||
00527 PERFORM P2121B-PENALTY THRU P2121B-EXIT DTSBR319
|
||||
00528 END-IF. DTSBR319
|
||||
00529 DTSBR319
|
||||
00530 P2121-EXIT. DTSBR319
|
||||
00531 EXIT. DTSBR319
|
||||
00532 DTSBR319
|
||||
00533 P2121A-INTEREST. DTSBR319
|
||||
00534 IF TBL-UI-PAID (QTR-SUB) = ZERO DTSBR319
|
||||
00535 GO TO P2121A-EXIT DTSBR319
|
||||
00536 END-IF. DTSBR319
|
||||
00537 DTSBR319
|
||||
00538 MOVE TBL-UI-PAID (QTR-SUB) TO L101-PAID-CHNG. DTSBR319
|
||||
00539 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBR319
|
||||
00540 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBR319
|
||||
00541 PERFORM S101-CALC-INTEREST THRU S101-EXIT. DTSBR319
|
||||
00542 ADD L101-INT-CHARGE-CHNG TO TBL-INT (QTR-SUB). DTSBR319
|
||||
00543 SUBTRACT L101-INT-WAIVE-CHNG FROM TBL-INT (QTR-SUB). DTSBR319
|
||||
00544 DTSBR319
|
||||
00545 MOVE TBL-UI-PAID (QTR-SUB) TO AMT-DISP1. DTSBR319
|
||||
00546 MOVE L101-INT-CHARGE-CHNG TO AMT-DISP2. DTSBR319
|
||||
00547 MOVE TBL-INT (QTR-SUB) TO AMT-DISP3. DTSBR319
|
||||
00548 DISPLAY 'BR319 P2121A PAID ' AMT-DISP1 ' INT ' AMT-DISP2 DTSBR319
|
||||
00549 ' TBL ' AMT-DISP3. DTSBR319
|
||||
00550 P2121A-EXIT. DTSBR319
|
||||
00551 EXIT. DTSBR319
|
||||
00552 DTSBR319
|
||||
00553 P2121B-PENALTY. DTSBR319
|
||||
00554 PERFORM DTSBR319
|
||||
00555 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBR319
|
||||
00556 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBR319
|
||||
00557 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBR319
|
||||
00558 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR319
|
||||
00559 TO TBL-LATE-PEN-AMT (QTR-SUB) DTSBR319
|
||||
00560 ELSE DTSBR319
|
||||
00561 IF MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX) DTSBR319
|
||||
00562 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR319
|
||||
00563 TO TBL-NSF-PEN-AMT (QTR-SUB) DTSBR319
|
||||
00564 END-IF DTSBR319
|
||||
00565 END-IF DTSBR319
|
||||
00566 END-PERFORM. DTSBR319
|
||||
00567 DTSBR319
|
||||
00568 MOVE TBL-LATE-PEN-AMT (QTR-SUB) TO AMT-DISP1. DTSBR319
|
||||
00569 MOVE TBL-NSF-PEN-AMT (QTR-SUB) TO AMT-DISP2. DTSBR319
|
||||
00570 DISPLAY 'BR319 P2121B LP ' AMT-DISP1 ' NSF ' AMT-DISP2. DTSBR319
|
||||
00571 P2121B-EXIT. DTSBR319
|
||||
00572 EXIT. DTSBR319
|
||||
00573 DTSBR319
|
||||
00574 P2200-SUM-DATA. DTSBR319
|
||||
00575 MOVE ZEROS TO WRK-INT-AMT DTSBR319
|
||||
00576 WRK-NSF-AMT DTSBR319
|
||||
00577 WRK-PEN-AMT DTSBR319
|
||||
00578 WRK-CHK-AMOUNT DTSBR319
|
||||
00579 WRK-TOTAL-AMT. DTSBR319
|
||||
00580 DTSBR319
|
||||
00581 PERFORM DTSBR319
|
||||
00582 VARYING QTR-SUB FROM +1 BY +1 DTSBR319
|
||||
00583 UNTIL QTR-SUB > QTR-MAX DTSBR319
|
||||
00584 IF TBL-YRQ (QTR-SUB) NOT = ZERO DTSBR319
|
||||
00585 ADD TBL-INT (QTR-SUB) TO WRK-INT-AMT DTSBR319
|
||||
00586 WRK-TOTAL-AMT DTSBR319
|
||||
00587 ADD TBL-LATE-PEN-AMT (QTR-SUB) TO WRK-PEN-AMT DTSBR319
|
||||
00588 WRK-TOTAL-AMT DTSBR319
|
||||
00589 ADD TBL-NSF-PEN-AMT (QTR-SUB) TO WRK-NSF-AMT DTSBR319
|
||||
00590 WRK-TOTAL-AMT DTSBR319
|
||||
00591 END-IF DTSBR319
|
||||
00592 END-PERFORM. DTSBR319
|
||||
00593 DTSBR319
|
||||
00594 MOVE WRK-INT-AMT TO AMT-DISP1. DTSBR319
|
||||
00595 MOVE WRK-PEN-AMT TO AMT-DISP2. DTSBR319
|
||||
00596 MOVE WRK-NSF-AMT TO AMT-DISP3. DTSBR319
|
||||
00597 DISPLAY 'BR319 P2200 INT ' AMT-DISP1 DTSBR319
|
||||
00598 ' LP ' AMT-DISP2 ' NSF ' AMT-DISP3. DTSBR319
|
||||
00599 P2200-EXIT. DTSBR319
|
||||
00600 EXIT. DTSBR319
|
||||
00601 DTSBR319
|
||||
00602 *************************************** DTSBR319
|
||||
00603 *P2100-MJRN-SCAN. DTSBR319
|
||||
00604 * DISPLAY ' P21000 ' DTSBR319
|
||||
00605 * MOVE ZEROS TO WRK-MJRN-AMT DTSBR319
|
||||
00606 * WRK-INT-AMT DTSBR319
|
||||
00607 * WRK-NSF-AMT DTSBR319
|
||||
00608 * WRK-PEN-AMT DTSBR319
|
||||
00609 * WRK-UI-AMT DTSBR319
|
||||
00610 * WRK-CHK-AMOUNT DTSBR319
|
||||
00611 * WRK-TOTAL-AMT. DTSBR319
|
||||
00612 * DISPLAY ' P21100 ' DTSBR319
|
||||
00613 * MOVE MSKL-REC TO MJRN-REC. DTSBR319
|
||||
00614 * DTSBR319
|
||||
00615 * IF R319-EMP-NO = MJRN-EMP-NO DTSBR319
|
||||
00616 * NEXT SENTENCE DTSBR319
|
||||
00617 * ELSE DTSBR319
|
||||
00618 * SET L910-NO-REC-88 TO TRUE DTSBR319
|
||||
00619 * GO TO P2100-EXIT. DTSBR319
|
||||
00620 * DTSBR319
|
||||
00621 * DISPLAY ' P21311 ' MJRN-EMP-NO DTSBR319
|
||||
00622 * DISPLAY ' P21300 ' MJRN-BATCH-NO DTSBR319
|
||||
00623 * DISPLAY ' P21310 ' MJRN-ITEM-NO DTSBR319
|
||||
00624 * DISPLAY ' P21350 ' R319-BATCH-NO DTSBR319
|
||||
00625 * DISPLAY ' P21360 ' R319-ITEM-NO DTSBR319
|
||||
00626 * IF MJRN-BATCH-NO = R319-BATCH-NO AND DTSBR319
|
||||
00627 * MJRN-ITEM-NO = R319-ITEM-NO DTSBR319
|
||||
00628 * NEXT SENTENCE DTSBR319
|
||||
00629 * ELSE DTSBR319
|
||||
00630 * DISPLAY ' P21400 ' DTSBR319
|
||||
00631 * PERFORM S910-READ-NEXT THRU S910-EXIT DTSBR319
|
||||
00632 * GO TO P2100-EXIT. DTSBR319
|
||||
00633 * DTSBR319
|
||||
00634 * DISPLAY ' BATCH FOUND ' MJRN-BATCH-NO ' ' MJRN-ITEM-NO DTSBR319
|
||||
00635 * PERFORM P2200-MATCH-TABLE THRU P2200-EXIT DTSBR319
|
||||
00636 * DTSBR319
|
||||
00637 * PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBR319
|
||||
00638 * DTSBR319
|
||||
00639 *P2100-EXIT. DTSBR319
|
||||
00640 * EXIT. DTSBR319
|
||||
00641 * EJECT DTSBR319
|
||||
00642 *P2200-MATCH-TABLE. DTSBR319
|
||||
00643 * IF MJRN-TRAN-PAY-88 AND DTSBR319
|
||||
00644 * MJRN-NO-GOOD-CHECK-PAY-88 DTSBR319
|
||||
00645 * NEXT SENTENCE DTSBR319
|
||||
00646 * ELSE DTSBR319
|
||||
00647 * GO TO P2200-EXIT. DTSBR319
|
||||
00648 * DTSBR319
|
||||
00649 * PERFORM P2300-MATCH-TABLE THRU P2300-EXIT DTSBR319
|
||||
00650 * VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBR319
|
||||
00651 * UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT. DTSBR319
|
||||
00652 * DTSBR319
|
||||
00653 *P2200-EXIT. DTSBR319
|
||||
00654 * EXIT. DTSBR319
|
||||
00655 * EJECT DTSBR319
|
||||
00656 *P2300-MATCH-TABLE. DTSBR319
|
||||
00657 * DISPLAY ' P23000 ' WRK-MJRN-AMT. DTSBR319
|
||||
00658 * IF MJRN-ROW-INT-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00659 * ADD MJRN-AMT (MJRN-OCC-IDX ) TO WRK-INT-AMT DTSBR319
|
||||
00660 * ADD MJRN-AMT(MJRN-OCC-IDX) TO WRK-MJRN-AMT DTSBR319
|
||||
00661 * ELSE DTSBR319
|
||||
00662 * IF MJRN-ROW-NSF-PEN-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00663 * ADD MJRN-AMT (MJRN-OCC-IDX ) TO WRK-NSF-AMT DTSBR319
|
||||
00664 * ADD MJRN-AMT(MJRN-OCC-IDX) TO WRK-MJRN-AMT DTSBR319
|
||||
00665 * ELSE DTSBR319
|
||||
00666 * IF MJRN-ROW-LATE-PEN-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00667 * ADD MJRN-AMT (MJRN-OCC-IDX ) TO WRK-PEN-AMT DTSBR319
|
||||
00668 * ADD MJRN-AMT(MJRN-OCC-IDX) TO WRK-MJRN-AMT DTSBR319
|
||||
00669 * ELSE DTSBR319
|
||||
00670 * IF MJRN-ROW-UI-88 (MJRN-OCC-IDX) DTSBR319
|
||||
00671 * ADD MJRN-AMT (MJRN-OCC-IDX ) TO WRK-UI-AMT DTSBR319
|
||||
00672 * PERFORM P2310-CALC-INT THRU P2310-EXIT DTSBR319
|
||||
00673 * END-IF DTSBR319
|
||||
00674 * END-IF DTSBR319
|
||||
00675 * END-IF DTSBR319
|
||||
00676 * END-IF. DTSBR319
|
||||
00677 *P2300-EXIT. DTSBR319
|
||||
00678 * EXIT. DTSBR319
|
||||
00679 * EJECT DTSBR319
|
||||
00680 *P2310-CALC-INT. DTSBR319
|
||||
00681 * DISPLAY ' P23100 ' DTSBR319
|
||||
00682 * PERFORM P2320-COMP-INT-DATE THRU P2320-EXIT. DTSBR319
|
||||
00683 * SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBR319
|
||||
00684 * MOVE LOW-VALUE TO MQTR-KEY-AREA. DTSBR319
|
||||
00685 * MOVE R319-EMP-NO TO MQTR-EMP-NO. DTSBR319
|
||||
00686 * SET MQTR-QTR-88 TO TRUE. DTSBR319
|
||||
00687 * PERFORM P2350-PROCESS-MQTR THRU P2350-EXIT. DTSBR319
|
||||
00688 *P2310-EXIT. DTSBR319
|
||||
00689 * EXIT. DTSBR319
|
||||
00690 *P2320-COMP-INT-DATE. DTSBR319
|
||||
00691 * DISPLAY ' P23200 ' DTSBR319
|
||||
00692 * MOVE LRCM-SYS-8-DATE TO WS-WRK-DATE. DTSBR319
|
||||
00693 * MOVE WS-WRK-MO TO L001-FED-8-MO DTSBR319
|
||||
00694 * MOVE WS-WRK-DAY TO L001-FED-8-DA DTSBR319
|
||||
00695 * MOVE WS-WRK-YR TO L001-FED-8-YR DTSBR319
|
||||
00696 * SET L001-FROM-FED-8 TO TRUE DTSBR319
|
||||
00697 * PERFORM S001-DATE THRU S001-EXIT. DTSBR319
|
||||
00698 * ADD +14 TO L001-JUL-ABS-DAY. DTSBR319
|
||||
00699 * SET L001-FROM-ABS-DAY TO TRUE DTSBR319
|
||||
00700 * PERFORM S001-DATE THRU S001-EXIT. DTSBR319
|
||||
00701 * MOVE L001-FED-8-DATE-9 TO L101-RECEIVED-DATE. DTSBR319
|
||||
00702 *P2320-EXIT. DTSBR319
|
||||
00703 * EXIT. DTSBR319
|
||||
00704 *P2350-PROCESS-MQTR. DTSBR319
|
||||
00705 * DISPLAY ' P23500 ' DTSBR319
|
||||
00706 * MOVE MJRN-YRQ(MJRN-OCC-IDX ) TO MQTR-YRQ. DTSBR319
|
||||
00707 * MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR319
|
||||
00708 * PERFORM S910-READ THRU S910-EXIT. DTSBR319
|
||||
00709 * DTSBR319
|
||||
00710 * IF L910-OK-88 DTSBR319
|
||||
00711 * MOVE MSKL-REC TO MQTR-REC DTSBR319
|
||||
00712 * ELSE DTSBR319
|
||||
00713 * GO TO P2350-EXIT. DTSBR319
|
||||
00714 * DTSBR319
|
||||
00715 * MOVE ZEROS TO L101-PAID-CHNG. DTSBR319
|
||||
00716 * MOVE WRK-UI-AMT TO L101-PAID-CHNG DTSBR319
|
||||
00717 * MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBR319
|
||||
00718 * MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBR319
|
||||
00719 * PERFORM S101-CALC-INTEREST THRU S101-EXIT. DTSBR319
|
||||
00720 * DTSBR319
|
||||
00721 * ADD L101-INT-CHARGE-CHNG TO WRK-INT-AMT. DTSBR319
|
||||
00722 * DTSBR319
|
||||
00723 * SUBTRACT L101-INT-WAIVE-CHNG FROM WRK-INT-AMT. DTSBR319
|
||||
00724 * DTSBR319
|
||||
00725 *P2350-EXIT. DTSBR319
|
||||
00726 * EXIT. DTSBR319
|
||||
00727 P3000-PRINT-HEADER. DTSBR319
|
||||
00728 MOVE R319-EMP-NO TO BARC-EMP-NO. DTSBR319
|
||||
00729 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR319
|
||||
00730 DTSBR319
|
||||
00731 IF L599-SETB-FONT1 DTSBR319
|
||||
00732 MOVE 'MODIFY=TAXSM1,' TO WEROX-CME DTSBR319
|
||||
00733 ELSE DTSBR319
|
||||
00734 IF L599-SETB-FONT2 DTSBR319
|
||||
00735 MOVE 'MODIFY=TAXSM2,' TO WEROX-CME DTSBR319
|
||||
00736 ELSE DTSBR319
|
||||
00737 MOVE 'MODIFY=TAXSM1,' TO WEROX-CME. DTSBR319
|
||||
00738 DTSBR319
|
||||
00739 WRITE XEROX-REPORTW FROM XEROX-CNTL-CLASSW DTSBR319
|
||||
00740 AFTER ADVANCING TOP-OF-PAGE. DTSBR319
|
||||
00741 DTSBR319
|
||||
00742 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA. DTSBR319
|
||||
00743 MOVE R319-FMT-LINE (1) TO WS-FMT-LINE-1. DTSBR319
|
||||
00744 MOVE R319-FMT-LINE (2) TO WS-FMT-LINE-2. DTSBR319
|
||||
00745 MOVE R319-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR319
|
||||
00746 MOVE R319-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR319
|
||||
00747 MOVE R319-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR319
|
||||
00748 MOVE R319-EMP-NO TO WS-EMP-NO. DTSBR319
|
||||
00749 * WRITE XEROX-REPORTW FROM VSCA-LINE DTSBR319
|
||||
00750 * AFTER ADVANCING TOP-OF-PAGE. DTSBR319
|
||||
00751 * WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 07 LINES. DTSBR319
|
||||
00752 WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 07 LINES. DTSBR319
|
||||
00753 DTSBR319
|
||||
00754 WRITE XEROX-REPORTW FROM HDR-LINE-1 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00755 WRITE XEROX-REPORTW FROM HDR-LINE-2 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00756 WRITE XEROX-REPORTW FROM HDR-LINE-3 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00757 WRITE XEROX-REPORTW FROM HDR-LINE-4 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00758 WRITE XEROX-REPORTW FROM HDR-LINE-5 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00759 WRITE XEROX-REPORTW FROM HDR-LINE-6 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00760 WRITE XEROX-REPORTW FROM HDR-LINE-7 AFTER ADVANCING 3 LINE. DTSBR319
|
||||
00761 DTSBR319
|
||||
00762 P3000-EXIT. DTSBR319
|
||||
00763 EXIT. DTSBR319
|
||||
00764 DTSBR319
|
||||
00765 P4000-PRINT-LETTER. DTSBR319
|
||||
00766 DISPLAY ' P4100 ' R319-EMP-NO ' ' R319-CHECK-NO DTSBR319
|
||||
00767 ' ' R319-CHECK-AMT ' ' WRK-NSF-AMT. DTSBR319
|
||||
00768 DISPLAY ' ' WRK-PEN-AMT ' ' WRK-INT-AMT. DTSBR319
|
||||
00769 MOVE R319-CHECK-NO TO RPT-CHK-NUMBER. DTSBR319
|
||||
00770 MOVE R319-CHECK-DATE TO RPT-CHK-DATE. DTSBR319
|
||||
00771 MOVE R319-REASON TO RPT-CHK-REASON. DTSBR319
|
||||
00772 MOVE R319-CHECK-AMT TO WRK-CHK-AMOUNT. DTSBR319
|
||||
00773 DTSBR319
|
||||
00774 MOVE WRK-CHK-AMOUNT TO RPT-CHK-AMOUNT DTSBR319
|
||||
00775 RPT-CHK-ORIG-AMT. DTSBR319
|
||||
00776 MOVE WRK-NSF-AMT TO RPT-CHK-NSF-PAYMT. DTSBR319
|
||||
00777 MOVE WRK-PEN-AMT TO RPT-CHK-LATE-PAYMT DTSBR319
|
||||
00778 MOVE WRK-INT-AMT TO RPT-CHK-INT-PAYMT. DTSBR319
|
||||
00779 *& COMPUTE WRK-TOTAL-AMT =(WRK-MJRN-AMT + WRK-CHK-AMOUNT) DTSBR319
|
||||
00780 * DISPLAY ' TOTAL ' WRK-TOTAL-AMT. DTSBR319
|
||||
00781 COMPUTE WRK-TOTAL-AMT = (WRK-TOTAL-AMT + WRK-CHK-AMOUNT). DTSBR319
|
||||
00782 DISPLAY ' TOTAL2 ' WRK-TOTAL-AMT. DTSBR319
|
||||
00783 MOVE WRK-TOTAL-AMT TO RPT-CHK-TOTAL-PAYMT. DTSBR319
|
||||
00784 DTSBR319
|
||||
00785 WRITE XEROX-REPORTW FROM LET-LINE-1 AFTER ADVANCING 5 LINE. DTSBR319
|
||||
00786 WRITE XEROX-REPORTW FROM LET-LINE-2 AFTER ADVANCING 2 LINE. DTSBR319
|
||||
00787 WRITE XEROX-REPORTW FROM LET-LINE-3 AFTER ADVANCING 2 LINE. DTSBR319
|
||||
00788 WRITE XEROX-REPORTW FROM LET-LINE-4 AFTER ADVANCING 7 LINE. DTSBR319
|
||||
00789 WRITE XEROX-REPORTW FROM LET-LINE-5 AFTER ADVANCING 2 LINE. DTSBR319
|
||||
00790 WRITE XEROX-REPORTW FROM LET-LINE-6 AFTER ADVANCING 2 LINE. DTSBR319
|
||||
00791 WRITE XEROX-REPORTW FROM LET-LINE-7 AFTER ADVANCING 2 LINE. DTSBR319
|
||||
00792 WRITE XEROX-REPORTW FROM LET-LINE-8 AFTER ADVANCING 2 LINE. DTSBR319
|
||||
00793 DTSBR319
|
||||
00794 P4000-EXIT. DTSBR319
|
||||
00795 EXIT. DTSBR319
|
||||
00796 DTSBR319
|
||||
00797 P5000-PRINT-FOOTER. DTSBR319
|
||||
00798 DTSBR319
|
||||
00799 * MOVE SPACES TO RPT-CHK-NAME. DTSBR319
|
||||
00800 MOVE C119-TAX-DIV-VOICE TO WS-TAX-VOICE DTSBR319
|
||||
00801 MOVE '-' TO FTR-SLASH1 FTR-SLASH2 DTSBR319
|
||||
00802 FTR-SLASH3 FTR-SLASH4. DTSBR319
|
||||
00803 MOVE WS-TAX-VOICE-AREA TO RPT-PHO-AREA. DTSBR319
|
||||
00804 MOVE WS-TAX-VOICE-DIST TO RPT-PHO-DIST. DTSBR319
|
||||
00805 MOVE WS-TAX-VOICE-PHONE TO RPT-PHO-NUMBR. DTSBR319
|
||||
00806 DTSBR319
|
||||
00807 MOVE C119-TAX-DIV-FAX TO WS-TAX-VOICE DTSBR319
|
||||
00808 MOVE WS-TAX-VOICE-AREA TO RPT-FAX-AREA. DTSBR319
|
||||
00809 MOVE WS-TAX-VOICE-DIST TO RPT-FAX-DIST. DTSBR319
|
||||
00810 MOVE WS-TAX-VOICE-PHONE TO RPT-FAX-NUMBR. DTSBR319
|
||||
00811 DTSBR319
|
||||
00812 WRITE XEROX-REPORTW FROM FTR-LINE-1 AFTER ADVANCING 4 LINE. DTSBR319
|
||||
00813 WRITE XEROX-REPORTW FROM FTR-LINE-2 AFTER ADVANCING 5 LINE. DTSBR319
|
||||
00814 DTSBR319
|
||||
00815 P5000-EXIT. DTSBR319
|
||||
00816 EXIT. DTSBR319
|
||||
00817 DTSBR319
|
||||
00818 P6000-SELF-MAILER-RTN. DTSBR319
|
||||
00819 MOVE R319-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR319
|
||||
00820 MOVE R319-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR319
|
||||
00821 MOVE R319-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR319
|
||||
00822 MOVE R319-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR319
|
||||
00823 MOVE R319-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR319
|
||||
00824 PERFORM P7000-PRINT-MAIL-ADDR THRU P7000-EXIT. DTSBR319
|
||||
00825 P6000-EXIT. DTSBR319
|
||||
00826 EXIT. DTSBR319
|
||||
00827 EJECT DTSBR319
|
||||
00828 DTSBR319
|
||||
00829 P7000-PRINT-MAIL-ADDR. DTSBR319
|
||||
00830 *RW1 DTSBR319
|
||||
00831 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR319
|
||||
00832 DTSBR319
|
||||
00833 MOVE SPACES TO WS-REC. DTSBR319
|
||||
00834 WRITE XEROX-REPORTW FROM WS-REC DTSBR319
|
||||
00835 AFTER ADVANCING TOP-OF-PAGE. DTSBR319
|
||||
00836 DTSBR319
|
||||
00837 WRITE XEROX-REPORTW FROM WS-BARC-LINE AFTER 04. DTSBR319
|
||||
00838 *RW2 DTSBR319
|
||||
00839 * WRITE XEROX-REPORTW FROM VSCA-LINE DTSBR319
|
||||
00840 * AFTER ADVANCING TOP-OF-PAGE. DTSBR319
|
||||
00841 * WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 12 LINE. DTSBR319
|
||||
00842 WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 5 LINE. DTSBR319
|
||||
00843 *RW2 DTSBR319
|
||||
00844 WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-1 DTSBR319
|
||||
00845 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00846 WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-2 DTSBR319
|
||||
00847 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00848 WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-3 DTSBR319
|
||||
00849 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00850 WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-4 DTSBR319
|
||||
00851 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00852 WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-5 DTSBR319
|
||||
00853 AFTER ADVANCING 1 LINE. DTSBR319
|
||||
00854 DTSBR319
|
||||
00855 P7000-EXIT. DTSBR319
|
||||
00856 EXIT. DTSBR319
|
||||
00857 DTSBR319
|
||||
00858 T1000-TERMINATE. DTSBR319
|
||||
00859 SKIP1 DTSBR319
|
||||
00860 CLOSE PRT-FILW. DTSBR319
|
||||
00861 SKIP2 DTSBR319
|
||||
00862 T1000-EXIT. DTSBR319
|
||||
00863 EXIT. DTSBR319
|
||||
00864 EJECT DTSBR319
|
||||
00865 S001-DATE. DTSBR319
|
||||
00866 SKIP1 DTSBR319
|
||||
00867 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR319
|
||||
00868 SKIP2 DTSBR319
|
||||
00869 S001-EXIT. DTSBR319
|
||||
00870 EXIT. DTSBR319
|
||||
00871 SKIP3 DTSBR319
|
||||
00872 S002-DATE-ALPHA. DTSBR319
|
||||
00873 SKIP1 DTSBR319
|
||||
00874 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR319
|
||||
00875 SKIP2 DTSBR319
|
||||
00876 S002-EXIT. DTSBR319
|
||||
00877 EXIT. DTSBR319
|
||||
00878 SKIP3 DTSBR319
|
||||
00879 S004-FROM-5. DTSBR319
|
||||
00880 SET L004-FROM-5 TO TRUE. DTSBR319
|
||||
00881 GO TO S004-EDIT-QTR. DTSBR319
|
||||
00882 DTSBR319
|
||||
00883 S004-EDIT-QTR. DTSBR319
|
||||
00884 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR319
|
||||
00885 DTSBR319
|
||||
00886 S004-EXIT. DTSBR319
|
||||
00887 EXIT. DTSBR319
|
||||
00888 DTSBR319
|
||||
00889 S071-DESLASH-NAME. DTSBR319
|
||||
00890 SKIP1 DTSBR319
|
||||
00891 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR319
|
||||
00892 SKIP2 DTSBR319
|
||||
00893 S071-EXIT. DTSBR319
|
||||
00894 EXIT. DTSBR319
|
||||
00895 SKIP3 DTSBR319
|
||||
00896 S082-OP-ID-INFO. DTSBR319
|
||||
00897 SKIP1 DTSBR319
|
||||
00898 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR319
|
||||
00899 SKIP2 DTSBR319
|
||||
00900 S082-EXIT. DTSBR319
|
||||
00901 EXIT. DTSBR319
|
||||
00902 SKIP3 DTSBR319
|
||||
00903 S101-CALC-INTEREST. DTSBR319
|
||||
00904 SKIP1 DTSBR319
|
||||
00905 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBR319
|
||||
00906 SKIP2 DTSBR319
|
||||
00907 S101-EXIT. DTSBR319
|
||||
00908 EXIT. DTSBR319
|
||||
00909 SKIP3 DTSBR319
|
||||
00910 S910-OPEN-READ. DTSBR319
|
||||
00911 SET L910-OPEN-READ-88 TO TRUE. DTSBR319
|
||||
00912 GO TO S910-MSTR-IO. DTSBR319
|
||||
00913 S910-READ. DTSBR319
|
||||
00914 SET L910-READ-88 TO TRUE. DTSBR319
|
||||
00915 GO TO S910-MSTR-IO. DTSBR319
|
||||
00916 S910-START-BROWSE. DTSBR319
|
||||
00917 SET L910-START-BROWSE-88 TO TRUE DTSBR319
|
||||
00918 GO TO S910-MSTR-IO. DTSBR319
|
||||
00919 S910-READ-NEXT. DTSBR319
|
||||
00920 SET L910-READ-NEXT-88 TO TRUE DTSBR319
|
||||
00921 GO TO S910-MSTR-IO. DTSBR319
|
||||
00922 S910-CLOSE. DTSBR319
|
||||
00923 SET L910-CLOSE-88 TO TRUE DTSBR319
|
||||
00924 GO TO S910-MSTR-IO. DTSBR319
|
||||
00925 S910-MSTR-IO. DTSBR319
|
||||
00926 CALL 'DTSBU910' USING L910-LINK-AREA DTSBR319
|
||||
00927 MSKL-REC. DTSBR319
|
||||
00928 S910-EXIT. DTSBR319
|
||||
00929 EXIT. DTSBR319
|
||||
00930 S599-BARCODE. DTSBR319
|
||||
00931 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR319
|
||||
00932 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR319
|
||||
00933 MOVE 'TAX' TO L599-SYSTEM. DTSBR319
|
||||
00934 DTSBR319
|
||||
00935 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR319
|
||||
00936 DTSBR319
|
||||
00937 IF L599-NOT-CONVERTED DTSBR319
|
||||
00938 PERFORM S999-ABEND THRU S999-EXIT. DTSBR319
|
||||
00939 S599-EXIT. DTSBR319
|
||||
00940 EXIT. DTSBR319
|
||||
00941 SKIP3 DTSBR319
|
||||
00942 S999-ABEND. DTSBR319
|
||||
00943 SKIP1 DTSBR319
|
||||
00944 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR319
|
||||
00945 SKIP2 DTSBR319
|
||||
00946 S999-EXIT. DTSBR319
|
||||
00947 EXIT. DTSBR319
|
||||
00948 DTSBR319
|
||||
Reference in New Issue
Block a user