DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
531
Batch/DTSBR793.cob
Normal file
531
Batch/DTSBR793.cob
Normal file
@ -0,0 +1,531 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/16/19
|
||||
00002 PROGRAM-ID. DTSBR793. DTSBR793
|
||||
00003 AUTHOR. D.SHEPPERSON LV052
|
||||
00004 DATE-WRITTEN. JULY 1999. DTSBR793
|
||||
00005 DATE-COMPILED. DTSBR793
|
||||
00006 SKIP3 DTSBR793
|
||||
00007 ***** DTSBR793
|
||||
00008 * DTSBR793
|
||||
00009 * CALLING SEQUENCE: DTSBD640 CREATES DTSIR793 RECORDS. DTSBR793
|
||||
00010 * DTSBD800 CALLS DTSBR793 DTSBR793
|
||||
00011 * WHICH PRODUCES THE FEDERAL ID LETTER. DTSBR793
|
||||
00012 * DTSBR793
|
||||
00013 * FUNCTION: REQUEST FOR FEDERAL ID LETTER DTSBR793
|
||||
00014 * DTSBR793
|
||||
00015 * DTSBR793
|
||||
00016 * MODIFICATION HISTORY: DTSBR793
|
||||
00017 * DTSBR793
|
||||
00018 * 07-28-1999 INITIAL DEVELOPMENT DTSBR793
|
||||
00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR793
|
||||
00020 * DTSBR793
|
||||
00021 * 04-04-2006 MODIFIED PROGRAM TO PRODUCE A DETAIL REPORT. DTSBR793
|
||||
00022 * REFERENCE RFP AUTHOR OF CHANGE - ZL1 DTSBR793
|
||||
00023 * DTSBR793
|
||||
00024 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR793
|
||||
00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR793
|
||||
00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR793
|
||||
00027 * DTSBR793
|
||||
00028 * DTSBR793
|
||||
00029 * DESCRIPTION: DTSBR793
|
||||
00030 * DTSBR793
|
||||
00031 * THIS MODULE GENERATES LETTERS TO BE SENT TO EMPLOYERS DTSBR793
|
||||
00032 * FEQUESTING THEIR FEDERAL IDENTIFICATION NUMBER (FEIN). DTSBR793
|
||||
00033 * DTSBR793
|
||||
00034 * DTSBR793
|
||||
00035 * RECORDS READ: DTSBR793
|
||||
00036 * DTSBR793
|
||||
00037 * NONE. DTSBR793
|
||||
00038 * DTSBR793
|
||||
00039 * DTSBR793
|
||||
00040 * PRINTED OUTPUTS: DTSBR793
|
||||
00041 * DTSBR793
|
||||
00042 * 793R1 REQUEST FOR FEDERAL ID LETTER DTSBR793
|
||||
00043 * DTSBR793
|
||||
00044 * DTSBR793
|
||||
00045 * RECORDS WRITTEN: DTSBR793
|
||||
00046 * DTSBR793
|
||||
00047 * NONE. DTSBR793
|
||||
00048 * DTSBR793
|
||||
00049 * DTSBR793
|
||||
00050 * MODULES CALLED: DTSBR793
|
||||
00051 * DTSBR793
|
||||
00052 * DTSBR793
|
||||
00053 * DTSBR793
|
||||
00054 ***** DTSBR793
|
||||
00055 EJECT DTSBR793
|
||||
00056 ENVIRONMENT DIVISION. DTSBR793
|
||||
00057 SKIP2 DTSBR793
|
||||
00058 CONFIGURATION SECTION. DTSBR793
|
||||
00059 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR793
|
||||
00060 INPUT-OUTPUT SECTION. DTSBR793
|
||||
00061 SKIP1 DTSBR793
|
||||
00062 FILE-CONTROL. DTSBR793
|
||||
00063 SELECT FEIN-FILE ASSIGN TO RPT793R1. DTSBR793
|
||||
00064 SELECT FEIN-FILE2 ASSIGN TO RPT793R2. DTSBR793
|
||||
00065 SELECT FEIN-FILE3 ASSIGN TO RPT793R3. DTSBR793
|
||||
00066 SKIP3 DTSBR793
|
||||
00067 DATA DIVISION. DTSBR793
|
||||
00068 SKIP3 DTSBR793
|
||||
00069 FILE SECTION. DTSBR793
|
||||
00070 SKIP2 DTSBR793
|
||||
00071 FD FEIN-FILE DTSBR793
|
||||
00072 LABEL RECORDS ARE OMITTED DTSBR793
|
||||
00073 DATA RECORD IS FEIN-LETTER. DTSBR793
|
||||
00074 01 FEIN-LETTER PIC X(133). DTSBR793
|
||||
00075 DTSBR793
|
||||
00076 FD FEIN-FILE2 DTSBR793
|
||||
00077 LABEL RECORDS ARE OMITTED DTSBR793
|
||||
00078 DATA RECORD IS FEIN-REPORT. DTSBR793
|
||||
00079 01 FEIN-REPORT PIC X(200). DTSBR793
|
||||
00080 DTSBR793
|
||||
00081 FD FEIN-FILE3 DTSBR793
|
||||
00082 LABEL RECORDS ARE OMITTED DTSBR793
|
||||
00083 DATA RECORD IS FEIN-REPORT. DTSBR793
|
||||
00084 01 FEIN-REPORT3 PIC X(133). DTSBR793
|
||||
00085 DTSBR793
|
||||
00086 EJECT DTSBR793
|
||||
00087 WORKING-STORAGE SECTION. DTSBR793
|
||||
000875 77 PAN-VALET PICTURE X(24) VALUE '052DTSBR793 10/16/19'. DTSBR793
|
||||
00088 77 PAN-VALET PICTURE X(24) VALUE '045DTSBR793 09/17/19'. DTSBR793
|
||||
00089 77 PAN-VALET PICTURE X(24) VALUE '050DTSBR793 01/15/14'. DTSBR793
|
||||
00090 77 PAN-VALET PICTURE X(24) VALUE '002DTSBR793 01/15/14'. DTSBR793
|
||||
00091 77 PAN-VALET PICTURE X(24) VALUE '048DTSBR793 01/09/07'. DTSBR793
|
||||
00092 SKIP3 DTSBR793
|
||||
00093 01 WRK-AREA. DTSBR793
|
||||
00094 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +793.DTSBR793
|
||||
00095 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR793
|
||||
00096 SKIP1 DTSBR793
|
||||
00097 05 WS-EMP-NO PIC 999B999. DTSBR793
|
||||
00098 05 WS-EMP-NO-DISPLAY REDEFINES DTSBR793
|
||||
00099 WS-EMP-NO PIC X(7). DTSBR793
|
||||
00100 05 WS-FEIN-NO PIC 99B9999999. DTSBR793
|
||||
00101 05 WS-FEIN-NO-DISPLAY REDEFINES DTSBR793
|
||||
00102 WS-FEIN-NO PIC X(10). DTSBR793
|
||||
00103 05 WS-PAGE-CNT PIC 9(02) VALUE ZERO. DTSBR793
|
||||
00104 05 WS-LINE-CNT PIC S9(02) VALUE +55. DTSBR793
|
||||
00105 05 WS-PAGE-CNT3 PIC 9(02) VALUE ZERO. DTSBR793
|
||||
00106 05 WS-LINE-CNT3 PIC S9(02) VALUE +55. DTSBR793
|
||||
00107 EJECT DTSBR793
|
||||
00108 01 R793-LETTER-DATE. DTSBR793
|
||||
00109 05 FILLER PIC X(50) VALUE SPACES. DTSBR793
|
||||
00110 05 LETTER-DATE PIC X(10). DTSBR793
|
||||
00111 DTSBR793
|
||||
00112 01 R793-LETTER-FEIN. DTSBR793
|
||||
00113 05 FILLER PIC X(79) VALUE SPACES. DTSBR793
|
||||
00114 05 LTR-FEIN-NO PIC 99B9999999. DTSBR793
|
||||
00115 01 R793-REPORT. DTSBR793
|
||||
00116 * 05 FILLER PIC X(03) VALUE SPACES. DTSBR793
|
||||
00117 05 RPT-FEIN-NO PIC 99B9999999. DTSBR793
|
||||
00118 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00119 05 RPT-ADDR1 PIC X(35). DTSBR793
|
||||
00120 * 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00121 * 05 RPT-ADDR2 PIC X(35). DTSBR793
|
||||
00122 * 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00123 * 05 RPT-ADDR3 PIC X(35). DTSBR793
|
||||
00124 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00125 05 RPT-ADDR4 PIC X(35). DTSBR793
|
||||
00126 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00127 05 RPT-STREET PIC X(35). DTSBR793
|
||||
00128 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00129 05 RPT-CITY PIC X(10). DTSBR793
|
||||
00130 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00131 05 RPT-STATE PIC X(02). DTSBR793
|
||||
00132 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00133 05 RPT-ZIP PIC X(05). DTSBR793
|
||||
00134 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00135 05 RPT-ZIP4 PIC X(04). DTSBR793
|
||||
00136 DTSBR793
|
||||
00137 01 R793-REPORT3. DTSBR793
|
||||
00138 05 FILLER PIC X(03) VALUE SPACES. DTSBR793
|
||||
00139 05 RPT-FEIN-NO3 PIC 99B9999999. DTSBR793
|
||||
00140 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00141 05 RPT-EMP-NO3 PIC 9(06). DTSBR793
|
||||
00142 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00143 05 RPT-EMP-NAME3 PIC X(30). DTSBR793
|
||||
00144 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00145 * 05 RPT-ADDR2 PIC X(15). DTSBR793
|
||||
00146 * 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00147 * 05 RPT-ADDR3 PIC X(25). DTSBR793
|
||||
00148 * 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00149 05 RPT-EMP-DATE3 PIC X(10). DTSBR793
|
||||
00150 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00151 05 RPT-EMP-CLASS3 PIC X(03). DTSBR793
|
||||
00152 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00153 05 RPT-EMP-STATUS3 PIC X(02). DTSBR793
|
||||
00154 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00155 05 RPT-EMP-ORG-TYPE3 PIC X(05). DTSBR793
|
||||
00156 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00157 05 RPT-RTN-MAIL3 PIC X(05). DTSBR793
|
||||
00158 05 FILLER PIC X(07) VALUE SPACES. DTSBR793
|
||||
00159 05 RPT-NEW-ACCT-IND PIC X(01). DTSBR793
|
||||
00160 05 FILLER PIC X(08) VALUE SPACES. DTSBR793
|
||||
00161 05 RPT-FEIN-CHNG-IND PIC X(01). DTSBR793
|
||||
00162 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00163 05 RPT-NAME-CHNG-IND PIC X(01). DTSBR793
|
||||
00164 05 FILLER PIC X(05) VALUE SPACES. DTSBR793
|
||||
00165 05 RPT-TRAN-DATE PIC X(10). DTSBR793
|
||||
00166 01 HEADER1. DTSBR793
|
||||
00167 05 FILLER PIC X(03) VALUE SPACES. DTSBR793
|
||||
00168 05 HDR1-RPT PIC X(05). DTSBR793
|
||||
00169 05 FILLER PIC X(44) VALUE SPACES. DTSBR793
|
||||
00170 05 FILLER PIC X(60) VALUE DTSBR793
|
||||
00171 'DISTRICT OF COLUMBIA'. DTSBR793
|
||||
00172 05 FILLER PIC X(06) VALUE 'DATE:'. DTSBR793
|
||||
00173 05 HDR1-DATE PIC X(08). DTSBR793
|
||||
00174 01 HEADER2. DTSBR793
|
||||
00175 05 FILLER PIC X(56) VALUE SPACES. DTSBR793
|
||||
00176 05 FILLER PIC X(56) VALUE DTSBR793
|
||||
00177 'TAX DIVISION'. DTSBR793
|
||||
00178 05 FILLER PIC X(06) VALUE 'TIME:'. DTSBR793
|
||||
00179 05 HDR2-TIME PIC X(08). DTSBR793
|
||||
00180 DTSBR793
|
||||
00181 01 HEADER3. DTSBR793
|
||||
00182 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00183 05 FILLER PIC X(45) VALUE DTSBR793
|
||||
00184 'EMPLOYERS NOT IN DUTAS '. DTSBR793
|
||||
00185 05 FILLER PIC X(46) VALUE DTSBR793
|
||||
00186 'IRS (940) FUTA QUARTERLY - LETTER MAILED '. DTSBR793
|
||||
00187 05 FILLER PIC X(20) VALUE SPACES. DTSBR793
|
||||
00188 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR793
|
||||
00189 05 HDR3-PAGE PIC ZZ,ZZ9. DTSBR793
|
||||
00190 DTSBR793
|
||||
00191 DTSBR793
|
||||
00192 01 HEADER4. DTSBR793
|
||||
00193 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00194 05 FILLER PIC X(07) VALUE DTSBR793
|
||||
00195 'FEIN NO'. DTSBR793
|
||||
00196 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00197 05 FILLER PIC X(25) VALUE DTSBR793
|
||||
00198 ' EMP-NAME '. DTSBR793
|
||||
00199 05 FILLER PIC X(07) VALUE SPACES. DTSBR793
|
||||
00200 05 FILLER PIC X(25) VALUE DTSBR793
|
||||
00201 ' ATTENTION '. DTSBR793
|
||||
00202 05 FILLER PIC X(15) VALUE SPACES. DTSBR793
|
||||
00203 05 FILLER PIC X(25) VALUE DTSBR793
|
||||
00204 ' ADDR-LINE1 '. DTSBR793
|
||||
00205 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00206 05 FILLER PIC X(22) VALUE DTSBR793
|
||||
00207 ' CITY '. DTSBR793
|
||||
00208 05 FILLER PIC X(11) VALUE DTSBR793
|
||||
00209 'ST ZIP'. DTSBR793
|
||||
00210 01 HEADER31. DTSBR793
|
||||
00211 05 FILLER PIC X(01) VALUE SPACES. DTSBR793
|
||||
00212 05 FILLER PIC X(45) VALUE DTSBR793
|
||||
00213 'EMPLOYERS FOUND -DUTAS '. DTSBR793
|
||||
00214 05 FILLER PIC X(46) VALUE DTSBR793
|
||||
00215 'IRS (940) FUTA QUARTERLY - CROSS MATCH '. DTSBR793
|
||||
00216 05 FILLER PIC X(20) VALUE SPACES. DTSBR793
|
||||
00217 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR793
|
||||
00218 05 HDR31-PAGE PIC ZZ,ZZ9. DTSBR793
|
||||
00219 DTSBR793
|
||||
00220 DTSBR793
|
||||
00221 01 HEADER41. DTSBR793
|
||||
00222 05 FILLER PIC X(03) VALUE SPACES. DTSBR793
|
||||
00223 05 FILLER PIC X(07) VALUE DTSBR793
|
||||
00224 'FEIN NO'. DTSBR793
|
||||
00225 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00226 05 FILLER PIC X(25) VALUE DTSBR793
|
||||
00227 ' EMP-NO NAME '. DTSBR793
|
||||
00228 05 FILLER PIC X(02) VALUE SPACES. DTSBR793
|
||||
00229 05 FILLER PIC X(32) VALUE DTSBR793
|
||||
00230 ' DATE REG CLS '. DTSBR793
|
||||
00231 * 05 FILLER PIC X(10) VALUE SPACES. DTSBR793
|
||||
00232 05 FILLER PIC X(26) VALUE DTSBR793
|
||||
00233 'STA ORG RTN-MAIL NEW-A'. DTSBR793
|
||||
00234 05 FILLER PIC X(23) VALUE DTSBR793
|
||||
00235 'CCT FEIN/NAME IRS-TRAN'. DTSBR793
|
||||
00236 05 FILLER PIC X(05) VALUE DTSBR793
|
||||
00237 '-DATE'. DTSBR793
|
||||
00238 01 L005-LINK-AREA. DTSBR793
|
||||
00239 ++INCLUDE DTSIL005 DTSBR793
|
||||
00240 EJECT DTSBR793
|
||||
00241 01 L009-LINK-AREA. DTSBR793
|
||||
00242 ++INCLUDE DTSIL009 DTSBR793
|
||||
00243 EJECT DTSBR793
|
||||
00244 01 L071-LINK-AREA. DTSBR793
|
||||
00245 ++INCLUDE DTSIL071 DTSBR793
|
||||
00246 EJECT DTSBR793
|
||||
00247 01 L082-LINK-AREA. DTSBR793
|
||||
00248 ++INCLUDE DTSIL082 DTSBR793
|
||||
00249 EJECT DTSBR793
|
||||
00250 ++INCLUDE DTSXL793 DTSBR793
|
||||
00251 EJECT DTSBR793
|
||||
00252 LINKAGE SECTION. DTSBR793
|
||||
00253 SKIP3 DTSBR793
|
||||
00254 01 LRCM-LINK-AREA. DTSBR793
|
||||
00255 ++INCLUDE DTSILRCM DTSBR793
|
||||
00256 EJECT DTSBR793
|
||||
00257 01 R793-REC. DTSBR793
|
||||
00258 ++INCLUDE DTSIR793 DTSBR793
|
||||
00259 EJECT DTSBR793
|
||||
00260 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR793
|
||||
00261 R793-REC. DTSBR793
|
||||
00262 SKIP2 DTSBR793
|
||||
00263 IF FIRST-TIME-IND = 'Y' DTSBR793
|
||||
00264 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR793
|
||||
00265 MOVE 'N' TO FIRST-TIME-IND. DTSBR793
|
||||
00266 SKIP1 DTSBR793
|
||||
00267 IF LRCM-EOR-88 DTSBR793
|
||||
00268 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR793
|
||||
00269 ELSE DTSBR793
|
||||
00270 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR793
|
||||
00271 SKIP2 DTSBR793
|
||||
00272 GOBACK. DTSBR793
|
||||
00273 EJECT DTSBR793
|
||||
00274 I1000-INITIATE. DTSBR793
|
||||
00275 SKIP1 DTSBR793
|
||||
00276 OPEN OUTPUT FEIN-FILE FEIN-FILE2 FEIN-FILE3. DTSBR793
|
||||
00277 WRITE FEIN-LETTER FROM XF-CA-CNTL-LIN0 AFTER DTSBR793
|
||||
00278 ADVANCING TOP-OF-PAGE. DTSBR793
|
||||
00279 WRITE FEIN-LETTER FROM XF-CA-CNTL-LINE. DTSBR793
|
||||
00280 SKIP2 DTSBR793
|
||||
00281 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBR793
|
||||
00282 MOVE L005-SLASH-DATE TO HDR1-DATE LETTER-DATE. DTSBR793
|
||||
00283 MOVE L005-DISPLAY-TIME TO HDR2-TIME. DTSBR793
|
||||
00284 DTSBR793
|
||||
00285 I1000-EXIT. DTSBR793
|
||||
00286 EXIT. DTSBR793
|
||||
00287 EJECT DTSBR793
|
||||
00288 P1000-PROCESS. DTSBR793
|
||||
00289 SKIP1 DTSBR793
|
||||
00290 MOVE SPACES TO R793-REPORT. DTSBR793
|
||||
00291 DTSBR793
|
||||
00292 MOVE R793-FEIN TO WS-FEIN-NO DTSBR793
|
||||
00293 MOVE WS-FEIN-NO TO RPT-FEIN-NO. DTSBR793
|
||||
00294 DTSBR793
|
||||
00295 IF R793-RPT-TYPE = '02' DTSBR793
|
||||
00296 PERFORM P2300-GENERATE-DUTA-REPORT THRU P2300-EXIT DTSBR793
|
||||
00297 ELSE DTSBR793
|
||||
00298 PERFORM P2100-GENERATE-FEIN-LETTER THRU P2100-EXIT DTSBR793
|
||||
00299 PERFORM P2200-GENERATE-FEIN-REPORT THRU P2200-EXIT. DTSBR793
|
||||
00300 SKIP2 DTSBR793
|
||||
00301 P1000-EXIT. DTSBR793
|
||||
00302 EXIT. DTSBR793
|
||||
00303 EJECT DTSBR793
|
||||
00304 P2000-FORMAT-OPR-NAME. DTSBR793
|
||||
00305 SKIP1 DTSBR793
|
||||
00306 * MOVE R793-OP-ID TO L082-OP-ID. DTSBR793
|
||||
00307 * PERFORM S082-OP-ID-INFO THRU S082-EXIT. DTSBR793
|
||||
00308 * MOVE L082-NAME TO L071-NAM. DTSBR793
|
||||
00309 * MOVE 2 TO L071-NAME-FORMAT. DTSBR793
|
||||
00310 * PERFORM S071-DESLASH-NAME THRU S071-EXIT. DTSBR793
|
||||
00311 * MOVE L071-NAM TO L009-DATA. DTSBR793
|
||||
00312 * PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT. DTSBR793
|
||||
00313 * MOVE L009-DATA TO WS-OPR-NAME. DTSBR793
|
||||
00314 * MOVE L082-UNIT-NAME TO L009-DATA. DTSBR793
|
||||
00315 * PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT. DTSBR793
|
||||
00316 * MOVE L009-DATA TO WS-OPR-UNIT-NAME. DTSBR793
|
||||
00317 SKIP2 DTSBR793
|
||||
00318 P2000-EXIT. DTSBR793
|
||||
00319 EXIT. DTSBR793
|
||||
00320 EJECT DTSBR793
|
||||
00321 P2100-GENERATE-FEIN-LETTER. DTSBR793
|
||||
00322 * MOVE SPACES TO PRT-REC. DTSBR793
|
||||
00323 * ADD 1 TO WS-PAGE-NO. DTSBR793
|
||||
00324 * MOVE LRCM-SYS-8-DATE TO FILA. DTSBR793
|
||||
00325 * MOVE WS-PAGE-NO TO FILD. DTSBR793
|
||||
00326 * WRITE PRT-REC FROM HEAD AFTER ADVANCING TOP-OF-PAGE. DTSBR793
|
||||
00327 * WRITE PRT-REC FROM HEADA AFTER ADVANCING 2 LINES. DTSBR793
|
||||
00328 * ADD 3 TO WS-LINE-CNT. DTSBR793
|
||||
00329 * MOVE R792-EMP-NO TO E-NUM. DTSBR793
|
||||
00330 * MOVE WS-FEIN-NO TO ID-NUM. DTSBR793
|
||||
00331 * MOVE R793-STATE-CODE TO CDE. DTSBR793
|
||||
00332 * MOVE R793-NAME-LINE-1 TO ADDR. DTSBR793
|
||||
00333 * WRITE PRT-REC FROM DETAIL1 AFTER ADVANCING 2 LINES. DTSBR793
|
||||
00334 * ADD 2 TO WS-LINE-CNT. DTSBR793
|
||||
00335 * MOVE R793-NAME-LINE-2 TO ADDR1 DTSBR793
|
||||
00336 * WRITE PRT-REC FROM DETAIL2 AFTER ADVANCING 1 LINES. DTSBR793
|
||||
00337 * MOVE R793-NAME-LINE-3 TO ADDR2 DTSBR793
|
||||
00338 * WRITE PRT-REC FROM DETAIL3 AFTER ADVANCING 1 LINES. DTSBR793
|
||||
00339 * MOVE R793-NAME-LINE-4 TO ADDR3 DTSBR793
|
||||
00340 * WRITE PRT-REC FROM DETAIL4 AFTER ADVANCING 1 LINES. DTSBR793
|
||||
00341 * MOVE R793-STREET-ADDRESS TO ADDR4. DTSBR793
|
||||
00342 * WRITE PRT-REC FROM DETAIL5 AFTER ADVANCING 1 LINES. DTSBR793
|
||||
00343 * MOVE R793-CITY TO ADDR-CITY OF DETAIL6 DTSBR793
|
||||
00344 * MOVE R793-STATE-CODE TO ADDR-STATE OF DETAIL6 DTSBR793
|
||||
00345 * MOVE R793-ZIP-CODE TO ADDR-ZIP OF DETAIL6 DTSBR793
|
||||
00346 * WRITE PRT-REC FROM DETAIL6 AFTER 1. DTSBR793
|
||||
00347 DTSBR793
|
||||
00348 **> DTSBR793
|
||||
00349 * WRITE FEIN-LETTER FROM X1-CA-CNTL-LINE. DTSBR793
|
||||
00350 WRITE FEIN-LETTER FROM X2-CA-CNTL-LINE. DTSBR793
|
||||
00351 WRITE FEIN-LETTER FROM X3-CA-CNTL-LINE. DTSBR793
|
||||
00352 DTSBR793
|
||||
00353 MOVE SPACES TO FEIN-LETTER VSCA-DATA. DTSBR793
|
||||
00354 MOVE R793-CITY TO FEIN-CITY DTSBR793
|
||||
00355 MOVE R793-STATE-CODE TO FEIN-STATE DTSBR793
|
||||
00356 * MOVE R793-ZIP-CODE TO FEIN-ZIP DTSBR793
|
||||
00357 MOVE R793-ZIP-1-5 TO FEIN-ZIP-1-5 DTSBR793
|
||||
00358 MOVE R793-ZIP-6-9 TO FEIN-ZIP-6-9. DTSBR793
|
||||
00359 * MOVE R793-ZIP-10-12 TO FEIN-ZIP-10-12. DTSBR793
|
||||
00360 MOVE SPACES TO FEIN-ZIP-10-12. DTSBR793
|
||||
00361 WRITE FEIN-LETTER FROM VSCA-ADDR-LINE AFTER TOP-OF-PAGE. DTSBR793
|
||||
00362 MOVE SPACES TO VSCA-DATA. DTSBR793
|
||||
00363 WRITE FEIN-LETTER FROM VSCA-ADDR-LINE DTSBR793
|
||||
00364 AFTER ADVANCING 7 LINES DTSBR793
|
||||
00365 MOVE SPACES TO VSCA-DATA. DTSBR793
|
||||
00366 MOVE WS-FEIN-NO-DISPLAY TO PRTB. DTSBR793
|
||||
00367 * MOVE WS-FEIN-NO TO PRTB. DTSBR793
|
||||
00368 * PERFORM S060-FORM THRU S060-EXIT 27 TIMES. DTSBR793
|
||||
00369 * MOVE SPACES TO PRT1 PRT1-A. DTSBR793
|
||||
00370 DTSBR793
|
||||
00371 WRITE FEIN-LETTER FROM R793-LETTER-DATE AFTER 2 DTSBR793
|
||||
00372 * MOVE WS-FEIN-NO-DISPLAY TO LTR-FEIN-NO. DTSBR793
|
||||
00373 MOVE WS-FEIN-NO TO LTR-FEIN-NO. DTSBR793
|
||||
00374 WRITE FEIN-LETTER FROM R793-LETTER-FEIN AFTER 3 DTSBR793
|
||||
00375 DTSBR793
|
||||
00376 MOVE R793-NAME-LINE-1 TO PRT1 DTSBR793
|
||||
00377 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00378 DTSBR793
|
||||
00379 * IF R793-NAME-LINE-2 NOT = SPACES DTSBR793
|
||||
00380 * MOVE R793-NAME-LINE-2 TO PRT1 DTSBR793
|
||||
00381 * PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00382 DTSBR793
|
||||
00383 IF R793-NAME-LINE-3 NOT = SPACES DTSBR793
|
||||
00384 MOVE R793-NAME-LINE-3 TO PRT1 DTSBR793
|
||||
00385 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00386 DTSBR793
|
||||
00387 IF R793-NAME-LINE-4 NOT = SPACES DTSBR793
|
||||
00388 MOVE R793-NAME-LINE-4 TO PRT1 DTSBR793
|
||||
00389 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00390 DTSBR793
|
||||
00391 MOVE R793-STREET-ADDRESS TO PRT1. DTSBR793
|
||||
00392 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00393 DTSBR793
|
||||
00394 MOVE FEIN-DET7 TO PRT1. DTSBR793
|
||||
00395 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00396 ******************************************************************DTSBR793
|
||||
00397 * THIS AREA WILL MOVE THE ADDRESS FOR LETTER DTSBR793
|
||||
00398 ******************************************************************DTSBR793
|
||||
00399 WRITE FEIN-LETTER FROM VSCA-ADDR-LINE AFTER TOP-OF-PAGE. DTSBR793
|
||||
00400 PERFORM S060-FORM THRU S060-EXIT 17 TIMES. DTSBR793
|
||||
00401 MOVE R793-NAME-LINE-1 TO PRT2. DTSBR793
|
||||
00402 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00403 DTSBR793
|
||||
00404 IF R793-NAME-LINE-2 NOT = SPACES DTSBR793
|
||||
00405 MOVE R793-NAME-LINE-2 TO PRT2 DTSBR793
|
||||
00406 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00407 DTSBR793
|
||||
00408 IF R793-NAME-LINE-3 NOT = SPACES DTSBR793
|
||||
00409 MOVE R793-NAME-LINE-3 TO PRT2 DTSBR793
|
||||
00410 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00411 DTSBR793
|
||||
00412 IF R793-NAME-LINE-4 NOT = SPACES DTSBR793
|
||||
00413 MOVE R793-NAME-LINE-4 TO PRT2 DTSBR793
|
||||
00414 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00415 DTSBR793
|
||||
00416 MOVE R793-STREET-ADDRESS TO PRT2. DTSBR793
|
||||
00417 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00418 DTSBR793
|
||||
00419 MOVE FEIN-DET7 TO PRT2. DTSBR793
|
||||
00420 PERFORM S060-FORM THRU S060-EXIT. DTSBR793
|
||||
00421 P2100-EXIT. DTSBR793
|
||||
00422 EXIT. DTSBR793
|
||||
00423 P2200-GENERATE-FEIN-REPORT. DTSBR793
|
||||
00424 ADD 1 TO WS-LINE-CNT. DTSBR793
|
||||
00425 IF WS-LINE-CNT > 50 DTSBR793
|
||||
00426 ADD 1 TO WS-PAGE-CNT DTSBR793
|
||||
00427 MOVE WS-PAGE-CNT TO HDR3-PAGE DTSBR793
|
||||
00428 MOVE '793R1' TO HDR1-RPT DTSBR793
|
||||
00429 WRITE FEIN-REPORT FROM HEADER1 DTSBR793
|
||||
00430 AFTER ADVANCING TOP-OF-PAGE DTSBR793
|
||||
00431 WRITE FEIN-REPORT FROM HEADER2 AFTER ADVANCING 1 DTSBR793
|
||||
00432 WRITE FEIN-REPORT FROM HEADER3 AFTER ADVANCING 1 DTSBR793
|
||||
00433 WRITE FEIN-REPORT FROM HEADER4 AFTER ADVANCING 1 DTSBR793
|
||||
00434 MOVE 1 TO WS-LINE-CNT. DTSBR793
|
||||
00435 DTSBR793
|
||||
00436 * MOVE SPACES TO FEIN-REPORT. DTSBR793
|
||||
00437 MOVE R793-FEIN TO RPT-FEIN-NO DTSBR793
|
||||
00438 MOVE R793-CITY TO RPT-CITY. DTSBR793
|
||||
00439 MOVE R793-STATE-CODE TO RPT-STATE DTSBR793
|
||||
00440 MOVE R793-ZIP-1-5 TO RPT-ZIP. DTSBR793
|
||||
00441 MOVE R793-ZIP-6-9 TO RPT-ZIP4. DTSBR793
|
||||
00442 MOVE R793-NAME-LINE-1 TO RPT-ADDR1. DTSBR793
|
||||
00443 * MOVE R793-NAME-LINE-2 TO RPT-ADDR2 DTSBR793
|
||||
00444 IF R793-NAME-LINE-3 > SPACES DTSBR793
|
||||
00445 MOVE R793-NAME-LINE-3 TO RPT-ADDR4 DTSBR793
|
||||
00446 ELSE DTSBR793
|
||||
00447 MOVE R793-NAME-LINE-4 TO RPT-ADDR4. DTSBR793
|
||||
00448 MOVE R793-STREET-ADDRESS TO RPT-STREET. DTSBR793
|
||||
00449 DTSBR793
|
||||
00450 WRITE FEIN-REPORT FROM R793-REPORT AFTER ADVANCING 1. DTSBR793
|
||||
00451 P2200-EXIT. DTSBR793
|
||||
00452 EXIT. DTSBR793
|
||||
00453 P2300-GENERATE-DUTA-REPORT. DTSBR793
|
||||
00454 ADD 1 TO WS-LINE-CNT3. DTSBR793
|
||||
00455 IF WS-LINE-CNT3 > 50 DTSBR793
|
||||
00456 ADD 1 TO WS-PAGE-CNT3 DTSBR793
|
||||
00457 MOVE WS-PAGE-CNT3 TO HDR31-PAGE DTSBR793
|
||||
00458 MOVE '793R2' TO HDR1-RPT DTSBR793
|
||||
00459 WRITE FEIN-REPORT3 FROM HEADER1 DTSBR793
|
||||
00460 AFTER ADVANCING TOP-OF-PAGE DTSBR793
|
||||
00461 WRITE FEIN-REPORT3 FROM HEADER2 AFTER ADVANCING 1 DTSBR793
|
||||
00462 WRITE FEIN-REPORT3 FROM HEADER31 AFTER ADVANCING 1 DTSBR793
|
||||
00463 WRITE FEIN-REPORT3 FROM HEADER41 AFTER ADVANCING 1 DTSBR793
|
||||
00464 MOVE 1 TO WS-LINE-CNT3. DTSBR793
|
||||
00465 DTSBR793
|
||||
00466 * MOVE SPACES TO FEIN-REPORT. DTSBR793
|
||||
00467 MOVE R793-FEIN TO RPT-FEIN-NO3 DTSBR793
|
||||
00468 MOVE R793-EMP-NO TO RPT-EMP-NO3 DTSBR793
|
||||
00469 MOVE R793-EMP-NAME TO RPT-EMP-NAME3 DTSBR793
|
||||
00470 MOVE R793-EMP-DATE TO RPT-EMP-DATE3 DTSBR793
|
||||
00471 MOVE R793-EMP-CLASS TO RPT-EMP-CLASS3 DTSBR793
|
||||
00472 MOVE R793-EMP-STATUS TO RPT-EMP-STATUS3 DTSBR793
|
||||
00473 MOVE R793-ORG-TYPE TO RPT-EMP-ORG-TYPE3 DTSBR793
|
||||
00474 MOVE R793-RTN-MAIL TO RPT-RTN-MAIL3 DTSBR793
|
||||
00475 MOVE R793-NEW-ACCT-IND TO RPT-NEW-ACCT-IND DTSBR793
|
||||
00476 MOVE R793-FEIN-CHNG-IND TO RPT-FEIN-CHNG-IND DTSBR793
|
||||
00477 MOVE R793-NAME-CHNG-IND TO RPT-NAME-CHNG-IND DTSBR793
|
||||
00478 MOVE R793-TRAN-DATE TO RPT-TRAN-DATE DTSBR793
|
||||
00479 DTSBR793
|
||||
00480 WRITE FEIN-REPORT3 FROM R793-REPORT3 AFTER ADVANCING 1. DTSBR793
|
||||
00481 P2300-EXIT. DTSBR793
|
||||
00482 EXIT. DTSBR793
|
||||
00483 EJECT DTSBR793
|
||||
00484 T1000-TERMINATE. DTSBR793
|
||||
00485 SKIP1 DTSBR793
|
||||
00486 WRITE FEIN-LETTER FROM X4-CA-END-LINE. DTSBR793
|
||||
00487 CLOSE FEIN-FILE FEIN-FILE2 FEIN-FILE3. DTSBR793
|
||||
00488 SKIP2 DTSBR793
|
||||
00489 T1000-EXIT. DTSBR793
|
||||
00490 EXIT. DTSBR793
|
||||
00491 EJECT DTSBR793
|
||||
00492 S060-FORM. DTSBR793
|
||||
00493 WRITE FEIN-LETTER FROM VSCA-ADDR-LINE AFTER 1. DTSBR793
|
||||
00494 MOVE SPACES TO VSCA-DATA. DTSBR793
|
||||
00495 S060-EXIT. DTSBR793
|
||||
00496 EXIT. DTSBR793
|
||||
00497 S009-CONVERT-TO-CAPS. DTSBR793
|
||||
00498 SKIP1 DTSBR793
|
||||
00499 CALL 'DTSBU009' USING L009-LINK-AREA. DTSBR793
|
||||
00500 SKIP2 DTSBR793
|
||||
00501 S009-EXIT. DTSBR793
|
||||
00502 EXIT. DTSBR793
|
||||
00503 SKIP3 DTSBR793
|
||||
00504 S005-SYS-DATE. DTSBR793
|
||||
00505 SKIP1 DTSBR793
|
||||
00506 SET L005-FROM-SYS TO TRUE. DTSBR793
|
||||
00507 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBR793
|
||||
00508 SKIP2 DTSBR793
|
||||
00509 S005-EXIT. DTSBR793
|
||||
00510 EXIT. DTSBR793
|
||||
00511 S071-DESLASH-NAME. DTSBR793
|
||||
00512 SKIP1 DTSBR793
|
||||
00513 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR793
|
||||
00514 SKIP2 DTSBR793
|
||||
00515 S071-EXIT. DTSBR793
|
||||
00516 EXIT. DTSBR793
|
||||
00517 SKIP3 DTSBR793
|
||||
00518 S082-OP-ID-INFO. DTSBR793
|
||||
00519 SKIP1 DTSBR793
|
||||
00520 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR793
|
||||
00521 SKIP2 DTSBR793
|
||||
00522 S082-EXIT. DTSBR793
|
||||
00523 EXIT. DTSBR793
|
||||
00524 SKIP3 DTSBR793
|
||||
00525 S999-ABEND. DTSBR793
|
||||
00526 SKIP1 DTSBR793
|
||||
00527 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR793
|
||||
00528 SKIP2 DTSBR793
|
||||
00529 S999-EXIT. DTSBR793
|
||||
00530 EXIT. DTSBR793
|
||||
Reference in New Issue
Block a user