DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
563
Batch/DTSBR303.cob
Normal file
563
Batch/DTSBR303.cob
Normal file
@ -0,0 +1,563 @@
|
||||
00001 IDENTIFICATION DIVISION. 09/13/16
|
||||
00002 PROGRAM-ID. DTSBR303. DTSBR303
|
||||
00003 AUTHOR. TRW S&ITG LV076
|
||||
00004 DATE-WRITTEN. DECEMBER 1998 DTSBR303
|
||||
00005 DATE-COMPILED. DTSBR303
|
||||
00006 DTSBR303
|
||||
00007 ***** DTSBR303
|
||||
00008 * DTSBR303
|
||||
00009 * CALLING SEQUENCE: DTSBD300 CALLS DTSBD370 DTSBR303
|
||||
00010 * WHICH CALLS DTSBD372 DTSBR303
|
||||
00011 * WHICH CREATES DTSIR303 RECORDS. DTSBR303
|
||||
00012 * DTSBD800 CALLS DTSBR303 DTSBR303
|
||||
00013 * WHICH PRODUCES THE VOUCHER REPORTDTSBR303
|
||||
00014 * DTSBR303
|
||||
00015 * FUNCTION: REVENUE REFUND VOUCHER. DTSBR303
|
||||
00016 * DTSBR303
|
||||
00017 * DTSBR303
|
||||
00018 * MODIFICATION HISTORY: DTSBR303
|
||||
00019 * DTSBR303
|
||||
00020 * DTSBR303
|
||||
00021 * 01-28-2008 MODIFIED TO PRODUCE AN OUTPUT FILE OF REFUNDS TO BE DTSBR303
|
||||
00022 * TRANSMITTED THROUGH FTP TO THE CFO. DTSBR303
|
||||
00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD DTSBR303
|
||||
00024 * DTSBR303
|
||||
00025 * 07-22-2008 RECOMPILED WITH NEW VERSION OF DTSIX304 - ADDRESS DTSBR303
|
||||
00026 * LINES REDUCED TO 30 BYTES. DTSBR303
|
||||
00027 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD DTSBR303
|
||||
00028 * DTSBR303
|
||||
00029 * 10-16-2008 CORRECTED X304-EFFECTIVE-DATE. IT WAS BASED ON THE DTSBR303
|
||||
00030 * FISCAL YEAR, BUT SHOULD BE THE SAME AS X303-BATCH-DATDTSBR303
|
||||
00031 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD DTSBR303
|
||||
00032 * DTSBR303
|
||||
00033 * 06-03-2009 ADDED P1200 TO ADD ANY PART OF THE SECOND ADDRESS DTSBR303
|
||||
00034 * LINE THAT MIGHT BE TRUNCATED TO THE FIRST LINE. DTSBR303
|
||||
00035 * REFERENCE RFP ENH139 AUTHOR OF CHANGE - GD DTSBR303
|
||||
00036 * DTSBR303
|
||||
00037 * 06-19-2009 CORRECTED PROBLEM WITH ADDRESS: THE DAFRIN FORMAT DTSBR303
|
||||
00038 * REQUIRES THAT THE FIRST STREET ADDRESS LINE BE USED DTSBR303
|
||||
00039 * FIRST, WITH OVERFLOW GOING INTO THE SECOND LINE. DTSBR303
|
||||
00040 * REFERENCE RFP AUTHOR OF CHANGE - GD DTSBR303
|
||||
00041 * DTSBR303
|
||||
00042 * 09-16-2009 MODIFIED TO SET DOC DATE EQUAL TO BATCH DATE. DTSBR303
|
||||
00043 * THE DOC DATE FIELD IS NOW REQUIRED. DTSBR303
|
||||
00044 * REFERENCE RFP AUTHOR OF CHANGE - GD DTSBR303
|
||||
00045 * DTSBR303
|
||||
00046 * 02-02-2010 RECOMPILED FOR CHANGE IN BANK ID FROM 121 TO 150. DTSBR303
|
||||
00047 * THE ID IS HARD-CODED IN DTSIX304. DTSBR303
|
||||
00048 * REFERENCE; EMAIL FROM LASHAWN AUTHOR OF CHANGE - GD DTSBR303
|
||||
00049 * 07-20-2016 CORRECTED ISSUE WITH ADDRESS USING MOVE INSTEAD OF DTSBR303
|
||||
00050 * PERFORM. DTSBR303
|
||||
00051 * REFERENCE; MEETING WITH SIA AUTHOR OF CHANGE - NH DTSBR303
|
||||
00052 * DTSBR303
|
||||
00053 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR303
|
||||
00054 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR303
|
||||
00055 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXXDTSBR303
|
||||
00056 * DTSBR303
|
||||
00057 * DTSBR303
|
||||
00058 * DESCRIPTION: DTSBR303
|
||||
00059 * DTSBR303
|
||||
00060 * THIS MODULE PRODUCES PRINTOUTS OF REFUND VOUCHERS. DTSBR303
|
||||
00061 * DTSBR303
|
||||
00062 * DTSBR303
|
||||
00063 * RECORDS READ: DTSBR303
|
||||
00064 * DTSBR303
|
||||
00065 * DTSIR303. DTSBR303
|
||||
00066 * DTSBR303
|
||||
00067 * DTSBR303
|
||||
00068 * PRINTED OUTPUTS: DTSBR303
|
||||
00069 * DTSBR303
|
||||
00070 * DTSBR303 REFUND VOUCHER. DTSBR303
|
||||
00071 * DTSBR303
|
||||
00072 * DTSBR303
|
||||
00073 * RECORDS WRITTEN: DTSBR303
|
||||
00074 * DTSBR303
|
||||
00075 * NONE. DTSBR303
|
||||
00076 * DTSBR303
|
||||
00077 * DTSBR303
|
||||
00078 * MODULES CALLED: DTSBR303
|
||||
00079 * DTSBR303
|
||||
00080 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR303
|
||||
00081 * DTSBR303
|
||||
00082 ***** DTSBR303
|
||||
00083 EJECT DTSBR303
|
||||
00084 ENVIRONMENT DIVISION. DTSBR303
|
||||
00085 DTSBR303
|
||||
00086 CONFIGURATION SECTION. DTSBR303
|
||||
00087 SPECIAL-NAMES. DTSBR303
|
||||
00088 C01 IS TOP-OF-PAGE. DTSBR303
|
||||
00089 INPUT-OUTPUT SECTION. DTSBR303
|
||||
00090 DTSBR303
|
||||
00091 FILE-CONTROL. DTSBR303
|
||||
00092 SELECT CFO-FILE ASSIGN TO RPT303R3. DTSBR303
|
||||
00093 SELECT MEMO-FILE ASSIGN TO RPT303R2. DTSBR303
|
||||
00094 DTSBR303
|
||||
00095 DATA DIVISION. DTSBR303
|
||||
00096 DTSBR303
|
||||
00097 FILE SECTION. DTSBR303
|
||||
00098 FD CFO-FILE DTSBR303
|
||||
00099 RECORDING MODE IS F DTSBR303
|
||||
00100 LABEL RECORDS ARE OMITTED DTSBR303
|
||||
00101 RECORD CONTAINS 750 CHARACTERS DTSBR303
|
||||
00102 DATA RECORD IS PRINT-RCD. DTSBR303
|
||||
00103 01 CFO-RCD PIC X(750). DTSBR303
|
||||
00104 DTSBR303
|
||||
00105 FD MEMO-FILE DTSBR303
|
||||
00106 RECORDING MODE IS F DTSBR303
|
||||
00107 LABEL RECORDS ARE OMITTED DTSBR303
|
||||
00108 RECORD CONTAINS 133 CHARACTERS DTSBR303
|
||||
00109 DATA RECORD IS MEMO-RCD. DTSBR303
|
||||
00110 01 MEMO-RCD PIC X(133). DTSBR303
|
||||
00111 EJECT DTSBR303
|
||||
00112 WORKING-STORAGE SECTION. DTSBR303
|
||||
001125 77 PAN-VALET PICTURE X(24) VALUE '076DTSBR303 09/13/16'. DTSBR303
|
||||
00113 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR303 09/13/16'. DTSBR303
|
||||
00114 77 PAN-VALET PICTURE X(24) VALUE '074DTSBR303 09/13/16'. DTSBR303
|
||||
00115 77 PAN-VALET PICTURE X(24) VALUE '004DTSBR303 09/13/16'. DTSBR303
|
||||
00116 77 PAN-VALET PICTURE X(24) VALUE '072DTSBR303 02/02/10'. DTSBR303
|
||||
00117 DTSBR303
|
||||
00118 01 WRK-AREA. DTSBR303
|
||||
00119 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +303. DTSBR303
|
||||
00120 05 PROG-FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR303
|
||||
00121 88 PROG-FIRST-TIME-YES-88 VALUE 'Y'. DTSBR303
|
||||
00122 88 PROG-FIRST-TIME-NO-88 VALUE 'N'. DTSBR303
|
||||
00123 05 FIRST-R303-IND PIC X(01) VALUE 'Y'. DTSBR303
|
||||
00124 88 FIRST-R303-YES-88 VALUE 'Y'. DTSBR303
|
||||
00125 88 FIRST-R303-NO-88 VALUE 'N'. DTSBR303
|
||||
00126 05 WRK-FEIN PIC S9(09) VALUE ZEROS. DTSBR303
|
||||
00127 05 SUB1 PIC S9(04) COMP. DTSBR303
|
||||
00128 05 SUB2 PIC S9(04) COMP. DTSBR303
|
||||
00129 05 SUB3 PIC S9(04) COMP. DTSBR303
|
||||
00130 05 SUB4 PIC S9(04) COMP. DTSBR303
|
||||
00131 05 SUB5 PIC S9(04) COMP. DTSBR303
|
||||
00132 05 SUB6 PIC S9(04) COMP. DTSBR303
|
||||
00133 05 WRK-SUITE-FOUND-IND PIC X(01). DTSBR303
|
||||
00134 88 WRK-SUITE-FOUND-YES-88 VALUE 'Y'. DTSBR303
|
||||
00135 88 WRK-SUITE-FOUND-NO-88 VALUE 'N'. DTSBR303
|
||||
00136 DTSBR303
|
||||
00137 01 WRK-KEY-CFO-DATA. DTSBR303
|
||||
00138 05 WRK-BATCH-DATE PIC 9(08) VALUE 0. DTSBR303
|
||||
00139 05 WRK-JUL-DATE PIC 9(07). DTSBR303
|
||||
00140 05 FILLER REDEFINES WRK-JUL-DATE. DTSBR303
|
||||
00141 10 FILLER PIC X(02). DTSBR303
|
||||
00142 10 WRK-SYSTEM-DATE PIC 9(05). DTSBR303
|
||||
00143 05 WRK-EFF-DATE PIC 9(08) VALUE 0. DTSBR303
|
||||
00144 05 WRK-CFO-BATCH PIC 9(03) VALUE 0. DTSBR303
|
||||
00145 05 WRK-MAX-SEQ PIC 9(05) VALUE 0. DTSBR303
|
||||
00146 05 WRK-TOT-REFUND PIC 9(11)V99 VALUE 0. DTSBR303
|
||||
00147 05 WRK-EMP-NO PIC 9(06). DTSBR303
|
||||
00148 DTSBR303
|
||||
00149 01 WRK-R309-AREA. DTSBR303
|
||||
00150 05 WS-CTR PIC S9(07) COMP-3 VALUE ZEROS. DTSBR303
|
||||
00151 05 WRK-R309-STMT-DATE PIC X(10) VALUE SPACES. DTSBR303
|
||||
00152 05 WRK-R309-ADDR5 PIC X(40) VALUE SPACES. DTSBR303
|
||||
00153 05 WRK-R309-ADDR4 PIC X(40) VALUE SPACES. DTSBR303
|
||||
00154 05 WRK-R309-ADDR3 PIC X(40) VALUE SPACES. DTSBR303
|
||||
00155 05 WRK-R309-ADDR2 PIC X(40) VALUE SPACES. DTSBR303
|
||||
00156 05 WRK-R309-ADDR1 PIC X(40) VALUE SPACES. DTSBR303
|
||||
00157 05 WS-AMT PIC X(14). DTSBR303
|
||||
00158 05 WS-AMT-EDIT REDEFINES WS-AMT DTSBR303
|
||||
00159 PIC ZZZ,ZZZ,ZZ9.99. DTSBR303
|
||||
00160 DTSBR303
|
||||
00161 01 WRK-HEADING-LINE. DTSBR303
|
||||
00162 05 FILLER PIC X(01) VALUE SPACE. DTSBR303
|
||||
00163 01 WRK-PRINT-LINE-1. DTSBR303
|
||||
00164 05 FILLER1 PIC X(75). DTSBR303
|
||||
00165 05 WRK-ACCT-NUM PIC 999B999. DTSBR303
|
||||
00166 05 FILLER2 PIC X(35). DTSBR303
|
||||
00167 05 WRK-VOUCHER-NUM PIC ZZZZZZZZ. DTSBR303
|
||||
00168 05 FILLER3 PIC X(09). DTSBR303
|
||||
00169 01 WRK-PRINT-LINE-2. DTSBR303
|
||||
00170 05 FILLER4 PIC X(72). DTSBR303
|
||||
00171 05 WRK-EMPLOYER-NAME PIC X(40). DTSBR303
|
||||
00172 05 FILLER5 PIC X(17). DTSBR303
|
||||
00173 01 WRK-PRINT-LINE-3. DTSBR303
|
||||
00174 05 FILLER6 PIC X(41). DTSBR303
|
||||
00175 05 WRK-TODAY-MONTH PIC X(02). DTSBR303
|
||||
00176 05 FILLER7 PIC X(02). DTSBR303
|
||||
00177 05 WRK-TODAY-DAY PIC X(02). DTSBR303
|
||||
00178 05 FILLER8 PIC X(02). DTSBR303
|
||||
00179 05 WRK-TODAY-YEAR PIC X(04). DTSBR303
|
||||
00180 01 WRK-PRINT-LINE-3A. DTSBR303
|
||||
00181 05 FILLER9 PIC X(72). DTSBR303
|
||||
00182 05 WRK-ADDRESS-1 PIC X(40). DTSBR303
|
||||
00183 05 FILLER10 PIC X(27). DTSBR303
|
||||
00184 01 WRK-PRINT-LINE-4. DTSBR303
|
||||
00185 05 FILLER11 PIC X(73). DTSBR303
|
||||
00186 05 WRK-ADDRESS-2 PIC X(40). DTSBR303
|
||||
00187 05 FILLER12 PIC X(24). DTSBR303
|
||||
00188 01 WRK-PRINT-LINE-5. DTSBR303
|
||||
00189 05 FILLER13 PIC X(80). DTSBR303
|
||||
00190 05 WRK-CITY PIC X(25). DTSBR303
|
||||
00191 05 FILLER14 PIC X(02). DTSBR303
|
||||
00192 05 WRK-STATE PIC X(02). DTSBR303
|
||||
00193 05 FILLER15 PIC X(10). DTSBR303
|
||||
00194 05 WRK-ZIP PIC X(10). DTSBR303
|
||||
00195 05 FILLER16 PIC X(11). DTSBR303
|
||||
00196 01 WRK-PRINT-LINE-6. DTSBR303
|
||||
00197 05 FILLER17 PIC X(119). DTSBR303
|
||||
00198 05 WRK-REFUND-AMT PIC --,---,--9.99. DTSBR303
|
||||
00199 05 FILLER18 PIC X(02). DTSBR303
|
||||
00200 01 WRK-PRINT-LINE-7. DTSBR303
|
||||
00201 05 FILLER19 PIC X(119). DTSBR303
|
||||
00202 05 WRK-TOTAL-AMT PIC --,---,--9.99. DTSBR303
|
||||
00203 05 FILLER20 PIC X(02). DTSBR303
|
||||
00204 DTSBR303
|
||||
00205 01 C072-LINK-AREA. DTSBR303
|
||||
00206 ++INCLUDE DTSIC072 DTSBR303
|
||||
00207 DTSBR303
|
||||
00208 ++INCLUDE DTSXL303 DTSBR303
|
||||
00209 EJECT DTSBR303
|
||||
00210 ++INCLUDE DTSXD303 DTSBR303
|
||||
00211 EJECT DTSBR303
|
||||
00212 ++INCLUDE DTSXL30A DTSBR303
|
||||
00213 EJECT DTSBR303
|
||||
00214 01 L001-LINK-AREA. DTSBR303
|
||||
00215 ++INCLUDE DTSIL001 DTSBR303
|
||||
00216 EJECT DTSBR303
|
||||
00217 01 L090-LINK-AREA. DTSBR303
|
||||
00218 ++INCLUDE DTSIL090 DTSBR303
|
||||
00219 EJECT DTSBR303
|
||||
00220 01 X303-REC. DTSBR303
|
||||
00221 ++INCLUDE DTSIX303 DTSBR303
|
||||
00222 EJECT DTSBR303
|
||||
00223 01 X304-REC. DTSBR303
|
||||
00224 ++INCLUDE DTSIX304 DTSBR303
|
||||
00225 EJECT DTSBR303
|
||||
00226 EJECT DTSBR303
|
||||
00227 LINKAGE SECTION. DTSBR303
|
||||
00228 DTSBR303
|
||||
00229 01 LRCM-LINK-AREA. DTSBR303
|
||||
00230 ++INCLUDE DTSILRCM DTSBR303
|
||||
00231 EJECT DTSBR303
|
||||
00232 01 R303-REC. DTSBR303
|
||||
00233 ++INCLUDE DTSIR303 DTSBR303
|
||||
00234 EJECT DTSBR303
|
||||
00235 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR303
|
||||
00236 R303-REC. DTSBR303
|
||||
00237 DTSBR303
|
||||
00238 IF PROG-FIRST-TIME-YES-88 DTSBR303
|
||||
00239 PERFORM I1000-INITIATE DTSBR303
|
||||
00240 THRU I1000-EXIT DTSBR303
|
||||
00241 SET PROG-FIRST-TIME-NO-88 TO TRUE DTSBR303
|
||||
00242 END-IF. DTSBR303
|
||||
00243 DTSBR303
|
||||
00244 IF LRCM-EOR-88 DTSBR303
|
||||
00245 PERFORM T1000-TERMINATE DTSBR303
|
||||
00246 THRU T1000-EXIT DTSBR303
|
||||
00247 ELSE DTSBR303
|
||||
00248 PERFORM P1000-PROCESS DTSBR303
|
||||
00249 THRU P1000-EXIT. DTSBR303
|
||||
00250 DTSBR303
|
||||
00251 GOBACK. DTSBR303
|
||||
00252 EJECT DTSBR303
|
||||
00253 I1000-INITIATE. DTSBR303
|
||||
00254 DTSBR303
|
||||
00255 OPEN OUTPUT CFO-FILE DTSBR303
|
||||
00256 MEMO-FILE. DTSBR303
|
||||
00257 DTSBR303
|
||||
00258 WRITE MEMO-RCD FROM LINE-13 AFTER 12. DTSBR303
|
||||
00259 WRITE MEMO-RCD FROM LINE-14. DTSBR303
|
||||
00260 WRITE MEMO-RCD FROM LINE-15. DTSBR303
|
||||
00261 WRITE MEMO-RCD FROM LINE-16. DTSBR303
|
||||
00262 WRITE MEMO-RCD FROM LINE-17. DTSBR303
|
||||
00263 WRITE MEMO-RCD FROM XEROX-XD303-LINE1. DTSBR303
|
||||
00264 WRITE MEMO-RCD FROM XEROX-XD303-LINE2. DTSBR303
|
||||
00265 I1000-EXIT. DTSBR303
|
||||
00266 EXIT. DTSBR303
|
||||
00267 EJECT DTSBR303
|
||||
00268 P1000-PROCESS. DTSBR303
|
||||
00269 MOVE R303-CFO-AGENCY TO X304-BATCH-AGY. DTSBR303
|
||||
00270 MOVE R303-CFO-TYPE TO X304-BATCH-TYPE. DTSBR303
|
||||
00271 MOVE R303-CFO-REQUEST-DATE TO L001-FED-8-DATE-9. DTSBR303
|
||||
00272 SET L001-FROM-FED-8 TO TRUE. DTSBR303
|
||||
00273 PERFORM S001-DATE THRU S001-EXIT. DTSBR303
|
||||
00274 MOVE L001-FED-8-DATE-X TO X304-BATCH-DATE DTSBR303
|
||||
00275 X304-INVOICE-DATE DTSBR303
|
||||
00276 X304-DUE-DATE DTSBR303
|
||||
00277 X304-SERVICE-DATE DTSBR303
|
||||
00278 X304-EFFECTIVE-DATE DTSBR303
|
||||
00279 X304-DOC-DATE. DTSBR303
|
||||
00280 DISPLAY 'DOC DATE ' X304-DOC-DATE. DTSBR303
|
||||
00281 DTSBR303
|
||||
00282 IF L001-FED-8-MO = 10 OR 11 OR 12 DTSBR303
|
||||
00283 ADD 1 TO L001-FED-8-YR DTSBR303
|
||||
00284 MOVE L001-FED-8-YR (3:2) TO X304-APPN-YEAR DTSBR303
|
||||
00285 ELSE DTSBR303
|
||||
00286 MOVE L001-FED-8-YR (3:2) TO X304-APPN-YEAR DTSBR303
|
||||
00287 END-IF. DTSBR303
|
||||
00288 MOVE X304-APPN-YEAR TO X304-DOC-YEAR. DTSBR303
|
||||
00289 MOVE R303-CFO-BATCH-NO TO X304-BATCH-NUMBER. DTSBR303
|
||||
00290 MOVE R303-CFO-SEQ-NO TO X304-BATCH-SEQUENCE DTSBR303
|
||||
00291 WRK-MAX-SEQ. DTSBR303
|
||||
00292 MOVE R303-EMP-NO TO WRK-EMP-NO. DTSBR303
|
||||
00293 STRING DTSBR303
|
||||
00294 'EMP NBR ', DTSBR303
|
||||
00295 WRK-EMP-NO DTSBR303
|
||||
00296 DELIMITED BY SIZE DTSBR303
|
||||
00297 INTO X304-INVOICE-NO. DTSBR303
|
||||
00298 MOVE R303-FEIN TO X304-FEIN. DTSBR303
|
||||
00299 MOVE R303-CURR-DOC-NO TO X304-CURR-DOC-NO. DTSBR303
|
||||
00300 ** MOVE R303-CURR-DOC-NO-SFX TO X304-CURR-DOC-NO-SFX. DTSBR303
|
||||
00301 MOVE R303-REFUND-AMT TO X304-TRANS-AMT. DTSBR303
|
||||
00302 ADD R303-REFUND-AMT TO WRK-TOT-REFUND. DTSBR303
|
||||
00303 MOVE R303-PRIMARY-NAME (1:30) TO X304-VENDOR-NAME. DTSBR303
|
||||
00304 ***COMMENTING OUT THE P1200 ADDRESS AND USING THE MOVES INSTEAD DTSBR303
|
||||
00305 ** PERFORM P1200-ADDRESS THRU P1200-EXIT. DTSBR303
|
||||
00306 IF R303-DELIV-LINE-1 > SPACES DTSBR303
|
||||
00307 MOVE R303-DELIV-LINE-1 (1:30) TO X304-VENDOR-ADDR-1 DTSBR303
|
||||
00308 MOVE R303-DELIV-LINE-2 (1:30) TO X304-VENDOR-ADDR-2 DTSBR303
|
||||
00309 ELSE DTSBR303
|
||||
00310 IF R303-DELIV-LINE-1 = SPACES DTSBR303
|
||||
00311 MOVE R303-DELIV-LINE-2 (1:30) TO X304-VENDOR-ADDR-1 DTSBR303
|
||||
00312 MOVE R303-DELIV-LINE-1 (1:30) TO X304-VENDOR-ADDR-2 DTSBR303
|
||||
00313 END-IF DTSBR303
|
||||
00314 END-IF. DTSBR303
|
||||
00315 ***COMMENTING OUT THE P1200 ADDRESS AND USING THE MOVES INSTEAD DTSBR303
|
||||
00316 MOVE SPACES TO X304-VENDOR-ADDR-3 DTSBR303
|
||||
00317 X304-VENDOR-ADDR-4. DTSBR303
|
||||
00318 MOVE R303-CITY TO X304-VENDOR-CITY. DTSBR303
|
||||
00319 MOVE R303-ST TO X304-VENDOR-STATE. DTSBR303
|
||||
00320 MOVE R303-ZIP (1:5) TO X304-VENDOR-ZIP-1-5. DTSBR303
|
||||
00321 MOVE R303-ZIP (7:4) TO X304-VENDOR-ZIP-6-9. DTSBR303
|
||||
00322 MOVE R303-ST TO C072-ST. DTSBR303
|
||||
00323 IF C072-US-88 DTSBR303
|
||||
00324 MOVE 'US' TO X304-COUNTRY-CODE DTSBR303
|
||||
00325 ELSE DTSBR303
|
||||
00326 IF C072-CANADA-88 DTSBR303
|
||||
00327 MOVE 'CN' TO X304-COUNTRY-CODE DTSBR303
|
||||
00328 ELSE DTSBR303
|
||||
00329 MOVE SPACES TO X304-COUNTRY-CODE DTSBR303
|
||||
00330 END-IF DTSBR303
|
||||
00331 END-IF. DTSBR303
|
||||
00332 DTSBR303
|
||||
00333 WRITE CFO-RCD FROM X304-REC. DTSBR303
|
||||
00334 DTSBR303
|
||||
00335 IF FIRST-R303-YES-88 DTSBR303
|
||||
00336 PERFORM P1100-SAVE-KEY-DATA THRU P1100-EXIT DTSBR303
|
||||
00337 SET FIRST-R303-NO-88 TO TRUE DTSBR303
|
||||
00338 END-IF. DTSBR303
|
||||
00339 DTSBR303
|
||||
00340 MOVE R303-FMT-LINE(1) TO WRK-R309-ADDR1. DTSBR303
|
||||
00341 MOVE R303-FMT-LINE(2) TO WRK-R309-ADDR2. DTSBR303
|
||||
00342 MOVE R303-FMT-LINE(3) TO WRK-R309-ADDR3. DTSBR303
|
||||
00343 MOVE R303-FMT-LINE(4) TO WRK-R309-ADDR4. DTSBR303
|
||||
00344 MOVE R303-FMT-LINE(5) TO WRK-R309-ADDR5. DTSBR303
|
||||
00345 MOVE R303-EMP-NO TO WRK-ACCT-NUM. DTSBR303
|
||||
00346 MOVE R303-FEIN TO WRK-FEIN. DTSBR303
|
||||
00347 SET L001-FROM-FED-8 TO TRUE. DTSBR303
|
||||
00348 MOVE R303-CURR-MAIL-DATE TO L001-FED-8-DATE-9. DTSBR303
|
||||
00349 PERFORM S001-DATE THRU S001-EXIT. DTSBR303
|
||||
00350 MOVE L001-FED-6-YR TO WRK-TODAY-YEAR. DTSBR303
|
||||
00351 MOVE L001-FED-6-DA TO WRK-TODAY-DAY. DTSBR303
|
||||
00352 MOVE L001-FED-6-MO TO WRK-TODAY-MONTH. DTSBR303
|
||||
00353 MOVE L001-SLASH-8-DATE TO WRK-R309-STMT-DATE. DTSBR303
|
||||
00354 MOVE R303-REFUND-AMT TO WS-AMT-EDIT. DTSBR303
|
||||
00355 PERFORM S2000-WRITE-CREDIT-MEMO THRU S2000-EXIT. DTSBR303
|
||||
00356 DTSBR303
|
||||
00357 DISPLAY SPACE. DTSBR303
|
||||
00358 DISPLAY 'X304 DETAIL'. DTSBR303
|
||||
00359 DISPLAY ' BATCH NO ' X304-BATCH-NUMBER. DTSBR303
|
||||
00360 DISPLAY ' DOC DATE ' X304-DOC-DATE. DTSBR303
|
||||
00361 DISPLAY ' DOC NO ' X304-CURR-DOC-NO. DTSBR303
|
||||
00362 DISPLAY ' SEQUENCE ' X304-BATCH-SEQUENCE. DTSBR303
|
||||
00363 DISPLAY ' REFUND ' X304-TRANS-AMT. DTSBR303
|
||||
00364 DTSBR303
|
||||
00365 P1000-EXIT. DTSBR303
|
||||
00366 EXIT. DTSBR303
|
||||
00367 DTSBR303
|
||||
00368 P1100-SAVE-KEY-DATA. DTSBR303
|
||||
00369 MOVE X304-BATCH-DATE TO WRK-BATCH-DATE. DTSBR303
|
||||
00370 MOVE X304-EFFECTIVE-DATE TO WRK-EFF-DATE. DTSBR303
|
||||
00371 MOVE X304-BATCH-DATE TO L001-FED-8-DATE-9. DTSBR303
|
||||
00372 SET L001-FROM-FED-8 TO TRUE. DTSBR303
|
||||
00373 PERFORM S001-DATE THRU S001-EXIT. DTSBR303
|
||||
00374 MOVE L001-JUL-DATE TO WRK-JUL-DATE. DTSBR303
|
||||
00375 MOVE X304-BATCH-NUMBER TO WRK-CFO-BATCH. DTSBR303
|
||||
00376 DTSBR303
|
||||
00377 P1100-EXIT. DTSBR303
|
||||
00378 EXIT. DTSBR303
|
||||
00379 DTSBR303
|
||||
00380 P1200-ADDRESS. DTSBR303
|
||||
00381 SET WRK-SUITE-FOUND-NO-88 TO TRUE. DTSBR303
|
||||
00382 MOVE +0 TO SUB2 DTSBR303
|
||||
00383 SUB3 DTSBR303
|
||||
00384 SUB4 DTSBR303
|
||||
00385 SUB5 DTSBR303
|
||||
00386 SUB6. DTSBR303
|
||||
00387 DTSBR303
|
||||
00388 PERFORM DTSBR303
|
||||
00389 VARYING SUB1 FROM +1 BY +1 DTSBR303
|
||||
00390 UNTIL SUB1 > +40 DTSBR303
|
||||
00391 IF WRK-SUITE-FOUND-NO-88 DTSBR303
|
||||
00392 IF R303-DELIV-LINE-2 (SUB1:4) = 'STE ' DTSBR303
|
||||
00393 SET WRK-SUITE-FOUND-YES-88 TO TRUE DTSBR303
|
||||
00394 MOVE SUB1 TO SUB6 DTSBR303
|
||||
00395 END-IF DTSBR303
|
||||
00396 END-IF DTSBR303
|
||||
00397 IF R303-DELIV-LINE-2 (SUB1:1) = SPACE DTSBR303
|
||||
00398 IF SUB1 <= 30 DTSBR303
|
||||
00399 MOVE SUB1 TO SUB2 DTSBR303
|
||||
00400 END-IF DTSBR303
|
||||
00401 ELSE DTSBR303
|
||||
00402 IF R303-DELIV-LINE-2 (SUB1:1) > SPACE DTSBR303
|
||||
00403 MOVE SUB1 TO SUB3 DTSBR303
|
||||
00404 END-IF DTSBR303
|
||||
00405 END-IF DTSBR303
|
||||
00406 END-PERFORM. DTSBR303
|
||||
00407 DTSBR303
|
||||
00408 IF SUB3 > +30 DTSBR303
|
||||
00409 IF SUB6 > 1 DTSBR303
|
||||
00410 SUBTRACT +1 FROM SUB6 DTSBR303
|
||||
00411 IF SUB6 < SUB2 DTSBR303
|
||||
00412 MOVE SUB6 TO SUB2 DTSBR303
|
||||
00413 END-IF DTSBR303
|
||||
00414 END-IF DTSBR303
|
||||
00415 MOVE R303-DELIV-LINE-2 (1:SUB2) TO X304-VENDOR-ADDR-1 DTSBR303
|
||||
00416 COMPUTE SUB1 = SUB3 - SUB2 + 1 DTSBR303
|
||||
00417 PERFORM DTSBR303
|
||||
00418 VARYING SUB4 FROM +1 BY +1 DTSBR303
|
||||
00419 UNTIL SUB4 > +40 DTSBR303
|
||||
00420 IF R303-DELIV-LINE-1 (SUB4:1) NOT = SPACE DTSBR303
|
||||
00421 MOVE SUB4 TO SUB5 DTSBR303
|
||||
00422 END-IF DTSBR303
|
||||
00423 END-PERFORM DTSBR303
|
||||
00424 STRING DTSBR303
|
||||
00425 R303-DELIV-LINE-2 (SUB2:SUB1) DTSBR303
|
||||
00426 ' ' DTSBR303
|
||||
00427 R303-DELIV-LINE-1 (1:SUB5) DTSBR303
|
||||
00428 DELIMITED BY SIZE DTSBR303
|
||||
00429 INTO X304-VENDOR-ADDR-2 DTSBR303
|
||||
00430 END-STRING DTSBR303
|
||||
00431 ELSE DTSBR303
|
||||
00432 MOVE R303-DELIV-LINE-1 (1:30) TO X304-VENDOR-ADDR-2 DTSBR303
|
||||
00433 MOVE R303-DELIV-LINE-2 (1:30) TO X304-VENDOR-ADDR-1 DTSBR303
|
||||
00434 END-IF. DTSBR303
|
||||
00435 DTSBR303
|
||||
00436 P1200-EXIT. DTSBR303
|
||||
00437 EXIT. DTSBR303
|
||||
00438 DTSBR303
|
||||
00439 T1000-TERMINATE. DTSBR303
|
||||
00440 MOVE WRK-BATCH-DATE TO X303-BATCH-DATE DTSBR303
|
||||
00441 MOVE WRK-CFO-BATCH TO X303-BATCH-NO. DTSBR303
|
||||
00442 MOVE ZERO TO X303-BATCH-SEQ-NO. DTSBR303
|
||||
00443 MOVE WRK-EFF-DATE TO X303-BATCH-EFF-DATE. DTSBR303
|
||||
00444 MOVE WRK-MAX-SEQ TO X303-BATCH-LAST-SEQ-NO DTSBR303
|
||||
00445 X303-ENTERED-BATCH-CNT-N. DTSBR303
|
||||
00446 MOVE WRK-SYSTEM-DATE TO X303-BATCH-SYSTEM-DATE. DTSBR303
|
||||
00447 MOVE WRK-TOT-REFUND TO X303-ENTERED-BATCH-AMT-N. DTSBR303
|
||||
00448 DTSBR303
|
||||
00449 WRITE CFO-RCD FROM X303-REC. DTSBR303
|
||||
00450 DISPLAY SPACE. DTSBR303
|
||||
00451 DISPLAY 'X303 HEADER'. DTSBR303
|
||||
00452 DISPLAY ' BATCH NO ' X303-BATCH-NO. DTSBR303
|
||||
00453 DISPLAY ' SYSTEM DATE ' X303-BATCH-SYSTEM-DATE. DTSBR303
|
||||
00454 DISPLAY ' LAST SEQ ' X303-BATCH-LAST-SEQ-NO. DTSBR303
|
||||
00455 DISPLAY ' TOT REFUND ' X303-ENTERED-BATCH-AMT-N. DTSBR303
|
||||
00456 DTSBR303
|
||||
00457 CLOSE CFO-FILE DTSBR303
|
||||
00458 MEMO-FILE. DTSBR303
|
||||
00459 DTSBR303
|
||||
00460 T1000-EXIT. DTSBR303
|
||||
00461 EXIT. DTSBR303
|
||||
00462 EJECT DTSBR303
|
||||
00463 DTSBR303
|
||||
00464 S2000-WRITE-CREDIT-MEMO. DTSBR303
|
||||
00465 DTSBR303
|
||||
00466 MOVE WRK-R309-ADDR1 TO MSH-FMT-LINE-1. DTSBR303
|
||||
00467 MOVE WRK-R309-ADDR2 TO MSH-FMT-LINE-2. DTSBR303
|
||||
00468 MOVE WRK-R309-ADDR3 TO MSH-FMT-LINE-3. DTSBR303
|
||||
00469 MOVE WRK-R309-ADDR4 TO MSH-FMT-LINE-4. DTSBR303
|
||||
00470 MOVE WRK-R309-ADDR5 TO MSH-FMT-LINE-5. DTSBR303
|
||||
00471 MOVE WRK-ACCT-NUM TO MSH-EMP-NO. DTSBR303
|
||||
00472 MOVE WRK-FEIN TO MSH-EMP-FEIN. DTSBR303
|
||||
00473 MOVE WRK-R309-STMT-DATE TO MSH-STMT-DATE. DTSBR303
|
||||
00474 WRITE MEMO-RCD FROM BLANK-LINE AFTER DTSBR303
|
||||
00475 ADVANCING TOP-OF-PAGE. DTSBR303
|
||||
00476 WRITE MEMO-RCD FROM BLANK-LINE AFTER ADVANCING 10 LINE. DTSBR303
|
||||
00477 WRITE MEMO-RCD FROM MSH-LINE-12 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00478 WRITE MEMO-RCD FROM MSH-LINE-13 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00479 WRITE MEMO-RCD FROM MSH-LINE-14 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00480 WRITE MEMO-RCD FROM MSH-LINE-15 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00481 WRITE MEMO-RCD FROM MSH-LINE-16 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00482 WRITE MEMO-RCD FROM MSH-LINE-17 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00483 WRITE MEMO-RCD FROM MSH-LINE-18 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00484 DTSBR303
|
||||
00485 MOVE 'YOUR ACCOUNT HAS A CREDIT BALANCE OF $' DTSBR303
|
||||
00486 TO L090-PHRASE-TABLE (1). DTSBR303
|
||||
00487 DTSBR303
|
||||
00488 MOVE +0 TO WS-CTR. DTSBR303
|
||||
00489 INSPECT WS-AMT TALLYING WS-CTR FOR LEADING SPACES. DTSBR303
|
||||
00490 MOVE WS-AMT (WS-CTR + 1:) TO L090-PHRASE-TABLE (2). DTSBR303
|
||||
00491 DTSBR303
|
||||
00492 MOVE '. YOU EITHER NEED TO DEDUCT THIS AMOUNT' DTSBR303
|
||||
00493 TO L090-PHRASE-TABLE (3). DTSBR303
|
||||
00494 MOVE 'FROM YOUR NEXT UNEMPLOYMENT INSURANCE' DTSBR303
|
||||
00495 TO L090-PHRASE-TABLE (4). DTSBR303
|
||||
00496 MOVE 'EMPLOYER''S QUARTERLY WAGE REPORT' DTSBR303
|
||||
00497 TO L090-PHRASE-TABLE (5). DTSBR303
|
||||
00498 MOVE 'OR REQUEST A REFUND. TO REQUEST A REFUND,' DTSBR303
|
||||
00499 TO L090-PHRASE-TABLE (6). DTSBR303
|
||||
00500 MOVE 'SIGN BELOW AND RETURN THIS FORM TO THE' DTSBR303
|
||||
00501 TO L090-PHRASE-TABLE (7). DTSBR303
|
||||
00502 MOVE 'DISTRICT''S UNEMPLOYMENT INSURANCE DIVISION.' DTSBR303
|
||||
00503 TO L090-PHRASE-TABLE (8). DTSBR303
|
||||
00504 MOVE +8 TO L090-PHRASE-CNT. DTSBR303
|
||||
00505 MOVE +77 TO L090-DESIRED-LINE-LIMIT. DTSBR303
|
||||
00506 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR303
|
||||
00507 DTSBR303
|
||||
00508 MOVE L090-PARAGRAPH-LINE (1) TO MSF-PARA-LINE-1. DTSBR303
|
||||
00509 MOVE L090-PARAGRAPH-LINE (2) TO MSF-PARA-LINE-2. DTSBR303
|
||||
00510 MOVE L090-PARAGRAPH-LINE (3) TO MSF-PARA-LINE-3. DTSBR303
|
||||
00511 MOVE L090-PARAGRAPH-LINE (4) TO MSF-PARA-LINE-4. DTSBR303
|
||||
00512 WRITE MEMO-RCD FROM BLANK-LINE AFTER ADVANCING 7 LINE. DTSBR303
|
||||
00513 WRITE MEMO-RCD FROM MSF-LINE-26 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00514 WRITE MEMO-RCD FROM MSF-LINE-27 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00515 WRITE MEMO-RCD FROM MSF-LINE-28 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00516 WRITE MEMO-RCD FROM MSF-LINE-29 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00517 WRITE MEMO-RCD FROM MSF-LINE-30 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00518 WRITE MEMO-RCD FROM MSF-LINE-31 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00519 WRITE MEMO-RCD FROM MSF-LINE-32 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00520 WRITE MEMO-RCD FROM MSF-LINE-33 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00521 WRITE MEMO-RCD FROM MSF-LINE-34 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00522 WRITE MEMO-RCD FROM MSF-LINE-37 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00523 WRITE MEMO-RCD FROM MSF-LINE-38 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00524 WRITE MEMO-RCD FROM MSF-LINE-39 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00525 WRITE MEMO-RCD FROM MSF-LINE-40 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00526 WRITE MEMO-RCD FROM MSF-LINE-41 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00527 WRITE MEMO-RCD FROM MSF-LINE-42 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00528 WRITE MEMO-RCD FROM MSF-LINE-43 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00529 WRITE MEMO-RCD FROM MSF-LINE-44 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00530 WRITE MEMO-RCD FROM MSF-LINE-45 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00531 WRITE MEMO-RCD FROM MSF-LINE-46 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00532 WRITE MEMO-RCD FROM MSF-LINE-47 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00533 WRITE MEMO-RCD FROM MSF-LINE-48 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00534 WRITE MEMO-RCD FROM MSF-LINE-49 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00535 WRITE MEMO-RCD FROM MSF-LINE-50 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00536 WRITE MEMO-RCD FROM MSF-LINE-51 AFTER ADVANCING 1 LINE. DTSBR303
|
||||
00537 DTSBR303
|
||||
00538 DTSBR303
|
||||
00539 S2000-EXIT. DTSBR303
|
||||
00540 EXIT. DTSBR303
|
||||
00541 EJECT DTSBR303
|
||||
00542 S001-DATE. DTSBR303
|
||||
00543 DTSBR303
|
||||
00544 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR303
|
||||
00545 DTSBR303
|
||||
00546 S001-EXIT. DTSBR303
|
||||
00547 EXIT. DTSBR303
|
||||
00548 DTSBR303
|
||||
00549 S090-PARAGRAPH-FORMAT. DTSBR303
|
||||
00550 SKIP1 DTSBR303
|
||||
00551 MOVE +0 TO L090-INDENT. DTSBR303
|
||||
00552 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR303
|
||||
00553 DTSBR303
|
||||
00554 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR303
|
||||
00555 SKIP2 DTSBR303
|
||||
00556 S090-EXIT. DTSBR303
|
||||
00557 *S999-ABEND. DTSBR303
|
||||
00558 * DTSBR303
|
||||
00559 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR303
|
||||
00560 * DTSBR303
|
||||
00561 *S999-EXIT. DTSBR303
|
||||
00562 * EXIT. DTSBR303
|
||||
Reference in New Issue
Block a user