DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
523
Batch/DTSBX477.cob
Normal file
523
Batch/DTSBX477.cob
Normal file
@ -0,0 +1,523 @@
|
||||
00001 IDENTIFICATION DIVISION. 06/13/05
|
||||
00002 PROGRAM-ID. DTSBX477. DTSBX477
|
||||
00003 AUTHOR. NGC. LV001
|
||||
00004 DATE-WRITTEN. MARCH 2005. DTSBX477
|
||||
00005 DATE-COMPILED. DTSBX477
|
||||
00006 SKIP3 DTSBX477
|
||||
00007 ***** DTSBX477
|
||||
00008 * DTSBX477
|
||||
00009 * FUNCTION: TAX EMPLOYER EXTRACT FOR VOS DTSBX477
|
||||
00010 * DTSBX477
|
||||
00011 * DTSBX477
|
||||
00012 ***** DTSBX477
|
||||
00013 ***************************************************************** DTSBX477
|
||||
00014 * * DTSBX477
|
||||
00015 * MODIFICATION HISTORY: * DTSBX477
|
||||
00016 * * DTSBX477
|
||||
00017 * * DTSBX477
|
||||
00018 * 03-33-2005 INITIAL DEVELOPMENT * DTSBX477
|
||||
00019 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX477
|
||||
00020 * * DTSBX477
|
||||
00021 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX477
|
||||
00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX477
|
||||
00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** * DTSBX477
|
||||
00024 ***************************************************************** DTSBX477
|
||||
00025 SKIP3 DTSBX477
|
||||
00026 ENVIRONMENT DIVISION. DTSBX477
|
||||
00027 SKIP2 DTSBX477
|
||||
00028 INPUT-OUTPUT SECTION. DTSBX477
|
||||
00029 DTSBX477
|
||||
00030 FILE-CONTROL. DTSBX477
|
||||
00031 DTSBX477
|
||||
00032 SELECT TAX-FILE ASSIGN TO TAXFILE DTSBX477
|
||||
00033 FILE STATUS IS TAX-STATUS. DTSBX477
|
||||
00034 DTSBX477
|
||||
00035 DATA DIVISION. DTSBX477
|
||||
00036 DTSBX477
|
||||
00037 FILE SECTION. DTSBX477
|
||||
00038 DTSBX477
|
||||
00039 FD TAX-FILE DTSBX477
|
||||
00040 RECORDING MODE IS F DTSBX477
|
||||
00041 BLOCK CONTAINS 0 RECORDS DTSBX477
|
||||
00042 LABEL RECORDS ARE OMITTED. DTSBX477
|
||||
00043 DTSBX477
|
||||
00044 01 TAX-REC PIC X(290). DTSBX477
|
||||
00045 DTSBX477
|
||||
00046 WORKING-STORAGE SECTION. DTSBX477
|
||||
000465 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX477 06/13/05'. DTSBX477
|
||||
00047 SKIP3 DTSBX477
|
||||
00048 01 WRK-AREA. DTSBX477
|
||||
00049 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +477.DTSBX477
|
||||
00050 DTSBX477
|
||||
00051 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX477'.DTSBX477
|
||||
00052 DTSBX477
|
||||
00053 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBX477
|
||||
00054 DTSBX477
|
||||
00055 05 WRK-TAX-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX477
|
||||
00056 DTSBX477
|
||||
00057 05 TAX-STATUS PIC X(02). DTSBX477
|
||||
00058 88 TAX-STATUS-OK-88 VALUE '00'. DTSBX477
|
||||
00059 DTSBX477
|
||||
00060 05 WRK-ERROR-IND PIC X(01). DTSBX477
|
||||
00061 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX477
|
||||
00062 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX477
|
||||
00063 DTSBX477
|
||||
00064 05 WRK-RUN-TYPE PIC X(06). DTSBX477
|
||||
00065 88 WRK-RUN-TYPE-CONV-88 VALUE ' CONV'. DTSBX477
|
||||
00066 88 WRK-RUN-TYPE-UPDATE-88 VALUE 'UPDATE'. DTSBX477
|
||||
00067 DTSBX477
|
||||
00068 05 WRK-INTERVAL PIC X(01). DTSBX477
|
||||
00069 88 WRK-INTERVAL-WEEK-88 VALUE 'W'. DTSBX477
|
||||
00070 88 WRK-INTERVAL-MONTH-88 VALUE 'M'. DTSBX477
|
||||
00071 88 WRK-INTERVAL-QTR-88 VALUE 'Q'. DTSBX477
|
||||
00072 DTSBX477
|
||||
00073 05 WRK-SELECT-IND PIC X(01). DTSBX477
|
||||
00074 88 WRK-SELECT-YES-88 VALUE 'Y'. DTSBX477
|
||||
00075 88 WRK-SELECT-NO-88 VALUE 'N'. DTSBX477
|
||||
00076 DTSBX477
|
||||
00077 DTSBX477
|
||||
00078 05 WRK-CUTOFF-DATE PIC S9(09) COMP-3. DTSBX477
|
||||
00079 DTSBX477
|
||||
00080 05 WRK-AMT-DISP PIC Z(10)9.99-. DTSBX477
|
||||
00081 DTSBX477
|
||||
00082 05 WRK-TRACE-IND PIC X(01). DTSBX477
|
||||
00083 DTSBX477
|
||||
00084 01 WRK-TAX-REC. DTSBX477
|
||||
00085 ++INCLUDE DTSIXTRO DTSBX477
|
||||
00086 DTSBX477
|
||||
00087 01 L001-LINK-AREA. DTSBX477
|
||||
00088 ++INCLUDE DTSIL001 DTSBX477
|
||||
00089 DTSBX477
|
||||
00090 01 L004-LINK-AREA. DTSBX477
|
||||
00091 ++INCLUDE DTSIL004 DTSBX477
|
||||
00092 DTSBX477
|
||||
00093 01 L005-LINK-AREA. DTSBX477
|
||||
00094 ++INCLUDE DTSIL005 DTSBX477
|
||||
00095 DTSBX477
|
||||
00096 DTSBX477
|
||||
00097 01 L910-LINK-AREA. DTSBX477
|
||||
00098 ++INCLUDE DTSIL910 DTSBX477
|
||||
00099 EJECT DTSBX477
|
||||
00100 01 MSKL-REC. DTSBX477
|
||||
00101 ++INCLUDE DTSIMSKL DTSBX477
|
||||
00102 EJECT DTSBX477
|
||||
00103 01 MHDR-REC. DTSBX477
|
||||
00104 ++INCLUDE DTSIMHDR DTSBX477
|
||||
00105 EJECT DTSBX477
|
||||
00106 01 MPRF-REC. DTSBX477
|
||||
00107 ++INCLUDE DTSIMPRF DTSBX477
|
||||
00108 EJECT DTSBX477
|
||||
00109 01 MBAA-REC. DTSBX477
|
||||
00110 ++INCLUDE DTSIMBAA DTSBX477
|
||||
00111 EJECT DTSBX477
|
||||
00112 01 MTAD-REC. DTSBX477
|
||||
00113 ++INCLUDE DTSIMTAD DTSBX477
|
||||
00114 EJECT DTSBX477
|
||||
00115 01 MLOG-REC. DTSBX477
|
||||
00116 ++INCLUDE DTSIMLOG DTSBX477
|
||||
00117 EJECT DTSBX477
|
||||
00118 LINKAGE SECTION. DTSBX477
|
||||
00119 SKIP3 DTSBX477
|
||||
00120 01 PARM-AREA. DTSBX477
|
||||
00121 05 PARM-LENGTH PIC S9(04) COMP. DTSBX477
|
||||
00122 DTSBX477
|
||||
00123 05 PARM-DATA. DTSBX477
|
||||
00124 10 PARM-RUN-TYPE PIC X(06). DTSBX477
|
||||
00125 88 PARM-RUN-TYPE-CONV-88 VALUE ' CONV'. DTSBX477
|
||||
00126 88 PARM-RUN-TYPE-UPDATE-88 VALUE 'UPDATE'. DTSBX477
|
||||
00127 88 PARM-RUN-TYPE-VALID-88 VALUE ' CONV', DTSBX477
|
||||
00128 'UPDATE'. DTSBX477
|
||||
00129 10 FILLER PIC X(01). DTSBX477
|
||||
00130 10 PARM-INTERVAL PIC X(01). DTSBX477
|
||||
00131 88 PARM-INTERVAL-WEEK-88 VALUE 'W'. DTSBX477
|
||||
00132 88 PARM-INTERVAL-MONTH-88 VALUE 'M'. DTSBX477
|
||||
00133 88 PARM-INTERVAL-QTR-88 VALUE 'Q'. DTSBX477
|
||||
00134 88 PARM-INTERVAL-VALID-88 VALUE 'W' 'M' 'Q'. DTSBX477
|
||||
00135 DTSBX477
|
||||
00136 PROCEDURE DIVISION USING PARM-AREA. DTSBX477
|
||||
00137 DTSBX477
|
||||
00138 DTSBX477-MAIN. DTSBX477
|
||||
00139 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX477
|
||||
00140 IF WRK-ERROR-YES-88 DTSBX477
|
||||
00141 GO TO DTSBX477-MAIN-EXIT. DTSBX477
|
||||
00142 DTSBX477
|
||||
00143 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX477
|
||||
00144 DTSBX477
|
||||
00145 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX477
|
||||
00146 DTSBX477
|
||||
00147 DTSBX477-MAIN-EXIT. DTSBX477
|
||||
00148 GOBACK. DTSBX477
|
||||
00149 EJECT DTSBX477
|
||||
00150 I0000-INITIATE. DTSBX477
|
||||
00151 MOVE +0 TO WRK-MPRF-CNT. DTSBX477
|
||||
00152 DTSBX477
|
||||
00153 SET WRK-ERROR-NO-88 TO TRUE. DTSBX477
|
||||
00154 DTSBX477
|
||||
00155 PERFORM I1000-EDIT-PARM THRU I1000-EXIT. DTSBX477
|
||||
00156 IF WRK-ERROR-YES-88 DTSBX477
|
||||
00157 GO TO I0000-EXIT. DTSBX477
|
||||
00158 DTSBX477
|
||||
00159 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX477
|
||||
00160 IF WRK-ERROR-YES-88 DTSBX477
|
||||
00161 GO TO I0000-EXIT. DTSBX477
|
||||
00162 DTSBX477
|
||||
00163 PERFORM I3000-READ-HEADER THRU I3000-EXIT. DTSBX477
|
||||
00164 DTSBX477
|
||||
00165 I0000-EXIT. DTSBX477
|
||||
00166 EXIT. DTSBX477
|
||||
00167 DTSBX477
|
||||
00168 I1000-EDIT-PARM. DTSBX477
|
||||
00169 IF NOT PARM-RUN-TYPE-VALID-88 DTSBX477
|
||||
00170 SET WRK-ERROR-YES-88 TO TRUE DTSBX477
|
||||
00171 DISPLAY 'DTSBX477: INVALID RUN TYPE PARM ' DTSBX477
|
||||
00172 PARM-RUN-TYPE DTSBX477
|
||||
00173 GO TO I1000-EXIT DTSBX477
|
||||
00174 ELSE DTSBX477
|
||||
00175 MOVE PARM-RUN-TYPE TO WRK-RUN-TYPE DTSBX477
|
||||
00176 END-IF. DTSBX477
|
||||
00177 DTSBX477
|
||||
00178 IF WRK-RUN-TYPE-UPDATE-88 DTSBX477
|
||||
00179 IF NOT PARM-INTERVAL-VALID-88 DTSBX477
|
||||
00180 SET WRK-ERROR-YES-88 TO TRUE DTSBX477
|
||||
00181 DISPLAY 'DTSBX477: INVALID INTERVAL PARM ' DTSBX477
|
||||
00182 PARM-INTERVAL DTSBX477
|
||||
00183 GO TO I1000-EXIT DTSBX477
|
||||
00184 ELSE DTSBX477
|
||||
00185 MOVE PARM-INTERVAL TO WRK-INTERVAL DTSBX477
|
||||
00186 END-IF DTSBX477
|
||||
00187 END-IF. DTSBX477
|
||||
00188 DTSBX477
|
||||
00189 I1000-EXIT. DTSBX477
|
||||
00190 EXIT. DTSBX477
|
||||
00191 DTSBX477
|
||||
00192 I2000-OPEN-FILES. DTSBX477
|
||||
00193 DTSBX477
|
||||
00194 OPEN OUTPUT TAX-FILE. DTSBX477
|
||||
00195 IF TAX-STATUS-OK-88 DTSBX477
|
||||
00196 NEXT SENTENCE DTSBX477
|
||||
00197 ELSE DTSBX477
|
||||
00198 DISPLAY 'DTSBX477: CANNOT OPEN OUTPUT FILE ' DTSBX477
|
||||
00199 TAX-STATUS DTSBX477
|
||||
00200 SET WRK-ERROR-YES-88 TO TRUE DTSBX477
|
||||
00201 GO TO I2000-EXIT. DTSBX477
|
||||
00202 DTSBX477
|
||||
00203 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBX477
|
||||
00204 DTSBX477
|
||||
00205 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBX477
|
||||
00206 DTSBX477
|
||||
00207 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX477
|
||||
00208 DTSBX477
|
||||
00209 I2000-EXIT. DTSBX477
|
||||
00210 EXIT. DTSBX477
|
||||
00211 DTSBX477
|
||||
00212 I3000-READ-HEADER. DTSBX477
|
||||
00213 MOVE LOW-VALUES TO MSKL-REC. DTSBX477
|
||||
00214 DTSBX477
|
||||
00215 MOVE +0 TO MSKL-EMP-NO. DTSBX477
|
||||
00216 DTSBX477
|
||||
00217 SET MSKL-HDR-88 TO TRUE. DTSBX477
|
||||
00218 DTSBX477
|
||||
00219 PERFORM S910-READ THRU S910-EXIT. DTSBX477
|
||||
00220 DTSBX477
|
||||
00221 IF L910-NO-REC-88 DTSBX477
|
||||
00222 DISPLAY 'DTSBX477: MHDR RECORD IS MISSING' DTSBX477
|
||||
00223 SET WRK-ERROR-YES-88 TO TRUE DTSBX477
|
||||
00224 GO TO I3000-EXIT DTSBX477
|
||||
00225 ELSE DTSBX477
|
||||
00226 MOVE MSKL-REC TO MHDR-REC DTSBX477
|
||||
00227 END-IF. DTSBX477
|
||||
00228 DTSBX477
|
||||
00229 EVALUATE TRUE DTSBX477
|
||||
00230 WHEN WRK-INTERVAL-WEEK-88 DTSBX477
|
||||
00231 MOVE MHDR-CMPL-WEEK-END-DATE TO WRK-CUTOFF-DATE DTSBX477
|
||||
00232 DTSBX477
|
||||
00233 WHEN WRK-INTERVAL-MONTH-88 DTSBX477
|
||||
00234 MOVE MHDR-CMPL-MONTH-END-DATE TO WRK-CUTOFF-DATE DTSBX477
|
||||
00235 DTSBX477
|
||||
00236 WHEN WRK-INTERVAL-QTR-88 DTSBX477
|
||||
00237 MOVE MHDR-CMPL-QTR-END-DATE TO WRK-CUTOFF-DATE DTSBX477
|
||||
00238 DTSBX477
|
||||
00239 END-EVALUATE. DTSBX477
|
||||
00240 DTSBX477
|
||||
00241 I3000-EXIT. DTSBX477
|
||||
00242 EXIT. DTSBX477
|
||||
00243 DTSBX477
|
||||
00244 EJECT DTSBX477
|
||||
00245 P0000-PROCESS. DTSBX477
|
||||
00246 DISPLAY 'VOS EMPLOYER EXTRACT '. DTSBX477
|
||||
00247 DISPLAY SPACE. DTSBX477
|
||||
00248 DTSBX477
|
||||
00249 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX477
|
||||
00250 MOVE +0 TO MSKL-EMP-NO. DTSBX477
|
||||
00251 SET MSKL-PRF-88 TO TRUE. DTSBX477
|
||||
00252 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX477
|
||||
00253 IF NOT L910-OK-88 DTSBX477
|
||||
00254 DISPLAY 'BAD FIRST READ' DTSBX477
|
||||
00255 GO TO P0000-EXIT DTSBX477
|
||||
00256 ELSE DTSBX477
|
||||
00257 MOVE MSKL-REC TO MPRF-REC DTSBX477
|
||||
00258 END-IF. DTSBX477
|
||||
00259 DTSBX477
|
||||
00260 PERFORM P1000-SCAN-MPRF THRU P1000-EXIT DTSBX477
|
||||
00261 UNTIL L910-NO-REC-88. DTSBX477
|
||||
00262 DTSBX477
|
||||
00263 P0000-EXIT. DTSBX477
|
||||
00264 EXIT. DTSBX477
|
||||
00265 EJECT DTSBX477
|
||||
00266 P1000-SCAN-MPRF. DTSBX477
|
||||
00267 SET WRK-SELECT-NO-88 TO TRUE. DTSBX477
|
||||
00268 DTSBX477
|
||||
00269 IF MPRF-CLASS-SUB-88 DTSBX477
|
||||
00270 IF MPRF-STATUS-ACT-88 DTSBX477
|
||||
00271 IF MPRF-FEIN > ZERO DTSBX477
|
||||
00272 ADD +1 TO WRK-MPRF-CNT DTSBX477
|
||||
00273 PERFORM P2000-CHK-UPDATES THRU P2000-EXIT DTSBX477
|
||||
00274 IF WRK-SELECT-YES-88 DTSBX477
|
||||
00275 PERFORM P3000-BUILD-OUTPUT THRU P3000-EXIT DTSBX477
|
||||
00276 END-IF DTSBX477
|
||||
00277 END-IF DTSBX477
|
||||
00278 END-IF DTSBX477
|
||||
00279 END-IF. DTSBX477
|
||||
00280 DTSBX477
|
||||
00281 MOVE MPRF-REC TO MSKL-REC. DTSBX477
|
||||
00282 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX477
|
||||
00283 IF L910-OK-88 DTSBX477
|
||||
00284 MOVE MSKL-REC TO MPRF-REC DTSBX477
|
||||
00285 END-IF. DTSBX477
|
||||
00286 DTSBX477
|
||||
00287 P1000-EXIT. DTSBX477
|
||||
00288 EXIT. DTSBX477
|
||||
00289 DTSBX477
|
||||
00290 P2000-CHK-UPDATES. DTSBX477
|
||||
00291 IF WRK-RUN-TYPE-CONV-88 DTSBX477
|
||||
00292 SET WRK-SELECT-YES-88 TO TRUE DTSBX477
|
||||
00293 GO TO P2000-EXIT DTSBX477
|
||||
00294 ELSE DTSBX477
|
||||
00295 IF MPRF-ESTB-DATE > WRK-CUTOFF-DATE DTSBX477
|
||||
00296 SET WRK-SELECT-YES-88 TO TRUE DTSBX477
|
||||
00297 GO TO P2000-EXIT DTSBX477
|
||||
00298 ELSE DTSBX477
|
||||
00299 PERFORM P2100-CHECK-MLOG THRU P2100-EXIT DTSBX477
|
||||
00300 END-IF DTSBX477
|
||||
00301 END-IF. DTSBX477
|
||||
00302 DTSBX477
|
||||
00303 P2000-EXIT. DTSBX477
|
||||
00304 EXIT. DTSBX477
|
||||
00305 DTSBX477
|
||||
00306 P2100-CHECK-MLOG. DTSBX477
|
||||
00307 MOVE LOW-VALUES TO MLOG-KEY-AREA. DTSBX477
|
||||
00308 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. DTSBX477
|
||||
00309 SET MLOG-LOG-88 TO TRUE. DTSBX477
|
||||
00310 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. DTSBX477
|
||||
00311 DTSBX477
|
||||
00312 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX477
|
||||
00313 IF L910-OK-88 DTSBX477
|
||||
00314 MOVE MSKL-REC TO MLOG-REC DTSBX477
|
||||
00315 PERFORM DTSBX477
|
||||
00316 UNTIL L910-NO-REC-88 DTSBX477
|
||||
00317 PERFORM P2110-EVALUATE THRU P2110-EXIT DTSBX477
|
||||
00318 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX477
|
||||
00319 MOVE MSKL-REC TO MLOG-REC DTSBX477
|
||||
00320 END-PERFORM DTSBX477
|
||||
00321 END-IF. DTSBX477
|
||||
00322 DTSBX477
|
||||
00323 P2100-EXIT. DTSBX477
|
||||
00324 EXIT. DTSBX477
|
||||
00325 DTSBX477
|
||||
00326 P2110-EVALUATE. DTSBX477
|
||||
00327 IF ((MLOG-DATA-ELEMENT-NAME = DTSBX477
|
||||
00328 'MPRF-PRIMARY-NAME' OR 'MPRF-ENTITY-NAME' DTSBX477
|
||||
00329 OR 'MPRF-FEIN') DTSBX477
|
||||
00330 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX477
|
||||
00331 SET WRK-SELECT-YES-88 TO TRUE DTSBX477
|
||||
00332 ELSE DTSBX477
|
||||
00333 IF ((MLOG-DE-REC-TYPE = 'MTAD') DTSBX477
|
||||
00334 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX477
|
||||
00335 SET WRK-SELECT-YES-88 TO TRUE DTSBX477
|
||||
00336 END-IF DTSBX477
|
||||
00337 END-IF. DTSBX477
|
||||
00338 DTSBX477
|
||||
00339 P2110-EXIT. DTSBX477
|
||||
00340 EXIT. DTSBX477
|
||||
00341 DTSBX477
|
||||
00342 P3000-BUILD-OUTPUT. DTSBX477
|
||||
00343 INITIALIZE WRK-TAX-REC. DTSBX477
|
||||
00344 PERFORM P3100-MAIL-ADDR THRU P3100-EXIT. DTSBX477
|
||||
00345 IF WRK-ERROR-NO-88 DTSBX477
|
||||
00346 PERFORM P3200-PHYSICAL-ADDR THRU P3200-EXIT DTSBX477
|
||||
00347 PERFORM P3300-WRITE THRU P3300-EXIT DTSBX477
|
||||
00348 END-IF. DTSBX477
|
||||
00349 DTSBX477
|
||||
00350 P3000-EXIT. DTSBX477
|
||||
00351 EXIT. DTSBX477
|
||||
00352 DTSBX477
|
||||
00353 P3100-MAIL-ADDR. DTSBX477
|
||||
00354 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX477
|
||||
00355 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX477
|
||||
00356 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSBX477
|
||||
00357 SET MTAD-TAD-88 TO TRUE. DTSBX477
|
||||
00358 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX477
|
||||
00359 DTSBX477
|
||||
00360 PERFORM S910-READ THRU S910-EXIT. DTSBX477
|
||||
00361 IF L910-OK-88 DTSBX477
|
||||
00362 MOVE MSKL-REC TO MTAD-REC DTSBX477
|
||||
00363 STRING DTSBX477
|
||||
00364 MTAD-DELIV-LINE-1 DTSBX477
|
||||
00365 ' ' DTSBX477
|
||||
00366 MTAD-DELIV-LINE-2 (1:20) DTSBX477
|
||||
00367 DELIMITED BY SIZE DTSBX477
|
||||
00368 INTO XTRO-STREET-1 DTSBX477
|
||||
00369 END-STRING DTSBX477
|
||||
00370 MOVE MTAD-CITY TO XTRO-CITY-1 DTSBX477
|
||||
00371 MOVE MTAD-ST TO XTRO-STATE-1 DTSBX477
|
||||
00372 MOVE MTAD-ZIP TO XTRO-ZIP-1 DTSBX477
|
||||
00373 STRING DTSBX477
|
||||
00374 MTAD-VOICE-1-AREA-CD DTSBX477
|
||||
00375 MTAD-VOICE-1-PREFIX DTSBX477
|
||||
00376 MTAD-VOICE-1-SUFFIX DTSBX477
|
||||
00377 DELIMITED BY SIZE DTSBX477
|
||||
00378 INTO XTRO-PHONE-1 DTSBX477
|
||||
00379 END-STRING DTSBX477
|
||||
00380 ELSE DTSBX477
|
||||
00381 SET WRK-ERROR-YES-88 TO TRUE DTSBX477
|
||||
00382 END-IF. DTSBX477
|
||||
00383 DTSBX477
|
||||
00384 P3100-EXIT. DTSBX477
|
||||
00385 EXIT. DTSBX477
|
||||
00386 DTSBX477
|
||||
00387 P3200-PHYSICAL-ADDR. DTSBX477
|
||||
00388 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX477
|
||||
00389 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX477
|
||||
00390 SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE. DTSBX477
|
||||
00391 SET MTAD-TAD-88 TO TRUE. DTSBX477
|
||||
00392 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX477
|
||||
00393 DTSBX477
|
||||
00394 PERFORM S910-READ THRU S910-EXIT. DTSBX477
|
||||
00395 IF L910-OK-88 DTSBX477
|
||||
00396 MOVE MSKL-REC TO MTAD-REC DTSBX477
|
||||
00397 STRING DTSBX477
|
||||
00398 MTAD-DELIV-LINE-1 DTSBX477
|
||||
00399 ' ' DTSBX477
|
||||
00400 MTAD-DELIV-LINE-2 (1:20) DTSBX477
|
||||
00401 DELIMITED BY SIZE DTSBX477
|
||||
00402 INTO XTRO-STREET-2 DTSBX477
|
||||
00403 END-STRING DTSBX477
|
||||
00404 MOVE MTAD-CITY TO XTRO-CITY-2 DTSBX477
|
||||
00405 MOVE MTAD-ST TO XTRO-STATE-2 DTSBX477
|
||||
00406 MOVE MTAD-ZIP TO XTRO-ZIP-2 DTSBX477
|
||||
00407 STRING DTSBX477
|
||||
00408 MTAD-VOICE-1-AREA-CD DTSBX477
|
||||
00409 MTAD-VOICE-1-PREFIX DTSBX477
|
||||
00410 MTAD-VOICE-1-SUFFIX DTSBX477
|
||||
00411 DELIMITED BY SIZE DTSBX477
|
||||
00412 INTO XTRO-PHONE-2 DTSBX477
|
||||
00413 END-STRING DTSBX477
|
||||
00414 END-IF. DTSBX477
|
||||
00415 DTSBX477
|
||||
00416 P3200-EXIT. DTSBX477
|
||||
00417 EXIT. DTSBX477
|
||||
00418 DTSBX477
|
||||
00419 P3300-WRITE. DTSBX477
|
||||
00420 MOVE MPRF-FEIN TO XTRO-FEIN. DTSBX477
|
||||
00421 MOVE MPRF-EMP-NO TO XTRO-EMP-NO. DTSBX477
|
||||
00422 SET XTRO-SOURCE-DOES-88 TO TRUE. DTSBX477
|
||||
00423 DTSBX477
|
||||
00424 MOVE MPRF-PRIMARY-NAME TO XTRO-EMP-NAME. DTSBX477
|
||||
00425 INSPECT XTRO-EMP-NAME REPLACING ALL ',' BY SPACE. DTSBX477
|
||||
00426 DTSBX477
|
||||
00427 INSPECT XTRO-STREET-1 REPLACING ALL ',' BY SPACE. DTSBX477
|
||||
00428 INSPECT XTRO-STREET-2 REPLACING ALL ',' BY SPACE. DTSBX477
|
||||
00429 DTSBX477
|
||||
00430 ADD +1 TO WRK-TAX-CNT. DTSBX477
|
||||
00431 DTSBX477
|
||||
00432 WRITE TAX-REC FROM WRK-TAX-REC. DTSBX477
|
||||
00433 DTSBX477
|
||||
00434 P3300-EXIT. DTSBX477
|
||||
00435 EXIT. DTSBX477
|
||||
00436 DTSBX477
|
||||
00437 T0000-TERMINATE. DTSBX477
|
||||
00438 DTSBX477
|
||||
00439 DISPLAY ' '. DTSBX477
|
||||
00440 DTSBX477
|
||||
00441 DISPLAY '*** DTSBX477 TERMINATION STATISTICS ***'. DTSBX477
|
||||
00442 DTSBX477
|
||||
00443 DISPLAY ' '. DTSBX477
|
||||
00444 DTSBX477
|
||||
00445 DISPLAY 'NUMBER OF OUTPUT RECORDS WRITTEN: ' DTSBX477
|
||||
00446 WRK-TAX-CNT. DTSBX477
|
||||
00447 DTSBX477
|
||||
00448 DISPLAY 'NUMBER OF EMPLOYERS ENCOUNTERED: ' DTSBX477
|
||||
00449 WRK-MPRF-CNT. DTSBX477
|
||||
00450 DTSBX477
|
||||
00451 CLOSE TAX-FILE. DTSBX477
|
||||
00452 DTSBX477
|
||||
00453 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX477
|
||||
00454 DTSBX477
|
||||
00455 T0000-EXIT. DTSBX477
|
||||
00456 EXIT. DTSBX477
|
||||
00457 EJECT DTSBX477
|
||||
00458 S910-OPEN-READ. DTSBX477
|
||||
00459 SET L910-OPEN-READ-88 TO TRUE. DTSBX477
|
||||
00460 GO TO S910-MSTR-IO. DTSBX477
|
||||
00461 DTSBX477
|
||||
00462 S910-OPEN-UPDATE-NO-AIX. DTSBX477
|
||||
00463 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX477
|
||||
00464 GO TO S910-MSTR-IO. DTSBX477
|
||||
00465 DTSBX477
|
||||
00466 S910-READ. DTSBX477
|
||||
00467 SET L910-READ-88 TO TRUE. DTSBX477
|
||||
00468 GO TO S910-MSTR-IO. DTSBX477
|
||||
00469 DTSBX477
|
||||
00470 S910-START-BROWSE. DTSBX477
|
||||
00471 SET L910-START-BROWSE-88 TO TRUE. DTSBX477
|
||||
00472 GO TO S910-MSTR-IO. DTSBX477
|
||||
00473 DTSBX477
|
||||
00474 S910-READ-NEXT. DTSBX477
|
||||
00475 SET L910-READ-NEXT-88 TO TRUE. DTSBX477
|
||||
00476 GO TO S910-MSTR-IO. DTSBX477
|
||||
00477 DTSBX477
|
||||
00478 S910-COUNT. DTSBX477
|
||||
00479 SET L910-COUNT-88 TO TRUE. DTSBX477
|
||||
00480 GO TO S910-MSTR-IO. DTSBX477
|
||||
00481 DTSBX477
|
||||
00482 S910-REWRITE. DTSBX477
|
||||
00483 SET L910-REWRITE-88 TO TRUE. DTSBX477
|
||||
00484 GO TO S910-MSTR-IO. DTSBX477
|
||||
00485 DTSBX477
|
||||
00486 S910-CLOSE. DTSBX477
|
||||
00487 SET L910-CLOSE-88 TO TRUE. DTSBX477
|
||||
00488 GO TO S910-MSTR-IO. DTSBX477
|
||||
00489 DTSBX477
|
||||
00490 S910-MSTR-IO. DTSBX477
|
||||
00491 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX477
|
||||
00492 MSKL-REC. DTSBX477
|
||||
00493 S910-EXIT. DTSBX477
|
||||
00494 EXIT. DTSBX477
|
||||
00495 DTSBX477
|
||||
00496 S001-FROM-FED-8. DTSBX477
|
||||
00497 SET L001-FROM-FED-8 TO TRUE. DTSBX477
|
||||
00498 GO TO S001-DATE. DTSBX477
|
||||
00499 DTSBX477
|
||||
00500 S001-DATE. DTSBX477
|
||||
00501 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX477
|
||||
00502 S001-EXIT. DTSBX477
|
||||
00503 EXIT. DTSBX477
|
||||
00504 DTSBX477
|
||||
00505 S004-FROM-5. DTSBX477
|
||||
00506 SET L004-FROM-5 TO TRUE. DTSBX477
|
||||
00507 GO TO S004-YRQ. DTSBX477
|
||||
00508 DTSBX477
|
||||
00509 S004-YRQ. DTSBX477
|
||||
00510 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX477
|
||||
00511 DTSBX477
|
||||
00512 S004-EXIT. DTSBX477
|
||||
00513 EXIT. DTSBX477
|
||||
00514 DTSBX477
|
||||
00515 S005-FROM-DATE-TIME. DTSBX477
|
||||
00516 SET L005-FROM-DATE-TIME TO TRUE. DTSBX477
|
||||
00517 GO TO S005-ABSTIME. DTSBX477
|
||||
00518 DTSBX477
|
||||
00519 S005-ABSTIME. DTSBX477
|
||||
00520 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX477
|
||||
00521 S005-EXIT. DTSBX477
|
||||
00522 EXIT. DTSBX477
|
||||
Reference in New Issue
Block a user