524 lines
41 KiB
COBOL
524 lines
41 KiB
COBOL
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
|