945 lines
75 KiB
COBOL
945 lines
75 KiB
COBOL
00001 IDENTIFICATION DIVISION. 12/26/02
|
|
00002 PROGRAM-ID. DTSBD630. DTSBD630
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV013
|
|
00004 DATE-WRITTEN. DECEMBER 1991. DTSBD630
|
|
00005 DATE-COMPILED. DTSBD630
|
|
00006 SKIP3 DTSBD630
|
|
00007 ***** DTSBD630
|
|
00008 * DTSBD630
|
|
00009 * FUNCTION: FUTA POTENTIAL NON-FEDERAL FILER DRIVER. DTSBD630
|
|
00010 * DTSBD630
|
|
00011 * DTSBD630
|
|
00012 * MODIFICATION LOG: DTSBD630
|
|
00013 * DTSBD630
|
|
00014 * 01/28/92 INITIAL DEVELOPMENT. DTSBD630
|
|
00015 * WORK ORDER: PROGRAMMER: TCL DTSBD630
|
|
00016 * DTSBD630
|
|
00017 * 12/05/94 CONVERT TO 1994/MONTANA. DTSBD630
|
|
00018 * WORK ORDER: PROGRAMMER: RHC DTSBD630
|
|
00019 * DTSBD630
|
|
00020 * 01/07/97 ZIP CODE LENGTH ON PNFF OUTPUT CHANGED TO 12 FROM DTSBD630
|
|
00021 * 9 (OVERALL LRECL CHANGED TO 373) DTSBD630
|
|
00022 * WORK ORDER: PROGRAMMER: SFW DTSBD630
|
|
00023 * DTSBD630
|
|
00024 * 11/13/97 TAX YEAR 1996 MODIFICATIONS. INCREASED RECORD DTSBD630
|
|
00025 * LENGTH: FOUR DIGIT YEAR. DTSBD630
|
|
00026 * WORK ORDER: TCL 222 PROGRAMMER: EHH DTSBD630
|
|
00027 * DTSBD630
|
|
00028 * 10/19/1998 ADD TWO NEW "PAYMENT" DATA ELEMENTS ('THRU 4/15' DTSBD630
|
|
00029 * & 'AFTER 4/15'). DTSBD630
|
|
00030 * WORK ORDER: TCL 237 PROGRAMMER: KDN DTSBD630
|
|
00031 * DTSBD630
|
|
00032 * 02/17/1999 REVIEWED AND MODIFIED FOR DC. DTSBD630
|
|
00033 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD630
|
|
00034 * DTSBD630
|
|
00035 * 02/27/1999 MODIFIED TO OPEN/CLOSE REFERENCE FILE. DTSBU516 DTSBD630
|
|
00036 * WAS MODIFIED TO READ THE REFERENCE FILE. DTSBD630
|
|
00037 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD630
|
|
00038 * DTSBD630
|
|
00039 * 08/14/2002 RECOMPILED FOR NEW VERSION OF DTSIL516. DTSBD630
|
|
00040 * NO CHANGES NEEDED FOR ESTIMATED RATES. DTSBD630
|
|
00041 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD630
|
|
00042 * DTSBD630
|
|
00043 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD630
|
|
00044 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD630
|
|
00045 * DTSBD630
|
|
00046 * DTSBD630
|
|
00047 * DESCRIPTION: DTSBD630
|
|
00048 * DTSBD630
|
|
00049 * DTSBD630 DETERMINES FUTA POTENTIAL NON-FEDERAL FILERS FOR DTSBD630
|
|
00050 * A GIVEN YEAR. A FUTA POTENTIAL NON-FEDERAL FILER IS AN DTSBD630
|
|
00051 * EMPLOYER WHO HAS FILED REPORTS FOR ONE OR MORE QUARTERS DTSBD630
|
|
00052 * OF THE PARM-YEAR (WITH TAX WAGES GREATER THAN 1500 FOR DTSBD630
|
|
00053 * YEAR) (IGNORE ESTIMATED REPORTS) BUT FOR WHOM NO SUCCESSFULDTSBD630
|
|
00054 * FUTA CERTIFICATION WAS ACCOMPLISHED (IN DTSBD610). DTSBD630
|
|
00055 * DTSBD630
|
|
00056 * READ THE EMPLOYER MASTER FILE PRF RECORDS SEQUENTIALLY. DTSBD630
|
|
00057 * DTSBD630
|
|
00058 * IF THE EMPLOYER HAS TAX WAGES GREATER THAN 1500 IN DTSBD630
|
|
00059 * PARM-YEAR AND NO RECORD EXISTS FOR THE EMPLOYER ON THE DTSBD630
|
|
00060 * "EMPLOYERS CERTIFIED FOR CURRENT YEAR" FILE, THEN DTSBD630
|
|
00061 * WRITE A "IRS FUTA POTENTIAL NON-FEDERAL FILER TAPE" DTSBD630
|
|
00062 * RECORD AND WRITE A R708 RECORD. DTSBD630
|
|
00063 * DTSBD630
|
|
00064 * DTSBD630
|
|
00065 * PARAMETERS INPUT: DTSBD630
|
|
00066 * DTSBD630
|
|
00067 * NONE. DTSBD630
|
|
00068 * DTSBD630
|
|
00069 * DTSBD630
|
|
00070 * TAPES INPUT: DTSBD630
|
|
00071 * DTSBD630
|
|
00072 * NONE. DTSBD630
|
|
00073 * DTSBD630
|
|
00074 * DTSBD630
|
|
00075 * MASTER FILE RECORDS READ: DTSBD630
|
|
00076 * DTSBD630
|
|
00077 * MPRF DTSBD630
|
|
00078 * MSOL DTSBD630
|
|
00079 * MQTR DTSBD630
|
|
00080 * MDST DTSBD630
|
|
00081 * DTSBD630
|
|
00082 * DTSBD630
|
|
00083 * ALTERNATE INDEX FILE RECORDS READ: DTSBD630
|
|
00084 * DTSBD630
|
|
00085 * NONE DTSBD630
|
|
00086 * DTSBD630
|
|
00087 * DTSBD630
|
|
00088 * MASTER FILE RECORDS UPDATED: DTSBD630
|
|
00089 * DTSBD630
|
|
00090 * NONE. DTSBD630
|
|
00091 * DTSBD630
|
|
00092 * DTSBD630
|
|
00093 * REPORT RECORDS WRITTEN: DTSBD630
|
|
00094 * DTSBD630
|
|
00095 * R708 FUTA POTENTIAL NON-FEDERAL FILER. DTSBD630
|
|
00096 * DTSBD630
|
|
00097 * DTSBD630
|
|
00098 * TAPES WRITTEN: DTSBD630
|
|
00099 * DTSBD630
|
|
00100 * IRS FUTA POTENTIAL NON-FEDERAL FILER TAPE (PNFF). DTSBD630
|
|
00101 * DTSBD630
|
|
00102 * SEE IRS DOCUMENT 6581 "SPECIFICATIONS FOR THE DTSBD630
|
|
00103 * NATIONWIDE SYSTEM FOR COMPUTERIZED CERTIFICATION DTSBD630
|
|
00104 * OF STATE FUTA CREDITS" FOR FORMAT. DTSBD630
|
|
00105 * DTSBD630
|
|
00106 * DTSBD630
|
|
00107 * DISK DATASETS READ: DTSBD630
|
|
00108 * DTSBD630
|
|
00109 * EMPLOYERS CERTIFIED FOR CURRENT YEAR DTSBD630
|
|
00110 * DTSBD630
|
|
00111 * KEY IS EMP-NO. DTSBD630
|
|
00112 * DTSBD630
|
|
00113 * DTSBD630
|
|
00114 * MODULES CALLED: DTSBD630
|
|
00115 * DTSBD630
|
|
00116 * DTSBU071 NAME FORMAT. DTSBD630
|
|
00117 * DTSBU111 ADDRESS LOOKUP. DTSBD630
|
|
00118 * DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR DTSBD630
|
|
00119 * A GIVEN QUARTER. DTSBD630
|
|
00120 * DTSBU910 MASTER FILE I/O. DTSBD630
|
|
00121 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD630
|
|
00122 * DTSBU971 BATCH CURRENT YEAR FUTA CERTIFICATION I/O. DTSBD630
|
|
00123 * DTSBD630
|
|
00124 * DTSBD630
|
|
00125 ***** DTSBD630
|
|
00126 SKIP3 DTSBD630
|
|
00127 ENVIRONMENT DIVISION. DTSBD630
|
|
00128 SKIP2 DTSBD630
|
|
00129 INPUT-OUTPUT SECTION. DTSBD630
|
|
00130 DTSBD630
|
|
00131 FILE-CONTROL. DTSBD630
|
|
00132 SELECT POT-FILE ASSIGN TO DTSFPOT. DTSBD630
|
|
00133 SKIP3 DTSBD630
|
|
00134 DATA DIVISION. DTSBD630
|
|
00135 SKIP3 DTSBD630
|
|
00136 FILE SECTION. DTSBD630
|
|
00137 SKIP2 DTSBD630
|
|
00138 FD POT-FILE DTSBD630
|
|
00139 RECORDING MODE IS F DTSBD630
|
|
00140 BLOCK CONTAINS 0 RECORDS DTSBD630
|
|
00141 LABEL RECORDS ARE STANDARD. DTSBD630
|
|
00142 DTSBD630
|
|
00143 01 POT-REC. DTSBD630
|
|
00144 05 POT-DISPLAY-ZERO-1 PIC 9(04). DTSBD630
|
|
00145 05 POT-STATE-CD PIC X(02). DTSBD630
|
|
00146 05 POT-FEIN PIC 9(09). DTSBD630
|
|
00147 05 POT-FEIN-X REDEFINES POT-FEIN DTSBD630
|
|
00148 PIC X(09). DTSBD630
|
|
00149 05 POT-EMP-NO-AREA. DTSBD630
|
|
00150 10 POT-EMP-NO PIC 9(06). DTSBD630
|
|
00151 10 FILLER PIC X(09). DTSBD630
|
|
00152 05 POT-TAX-PERIOD PIC 9(06). DTSBD630
|
|
00153 05 FILLER REDEFINES POT-TAX-PERIOD. DTSBD630
|
|
00154 10 POT-TAX-YEAR PIC 9(04). DTSBD630
|
|
00155 10 POT-TAX-MONTH PIC 9(02). DTSBD630
|
|
00156 05 POT-RATE-AREA OCCURS 4 TIMES. DTSBD630
|
|
00157 10 POT-TAX-WAGE PIC 9(11)V9(02). DTSBD630
|
|
00158 10 POT-RATE PIC V9(06). DTSBD630
|
|
00159 05 POT-PAID-PRIOR-2-1 PIC 9(11)V9(02). DTSBD630
|
|
00160 05 POT-PAID-2-1-THRU-2-10 PIC 9(11)V9(02). DTSBD630
|
|
00161 05 POT-PAID-AFTER-2-10 PIC 9(11)V9(02). DTSBD630
|
|
00162 05 POT-PAID-THRU-4-15 PIC 9(11)V9(02). DTSBD630
|
|
00163 05 POT-PAID-AFTER-4-15 PIC 9(11)V9(02). DTSBD630
|
|
00164 05 POT-DISPLAY-ZERO-2 PIC 9(02). DTSBD630
|
|
00165 05 POT-ZIP. DTSBD630
|
|
00166 10 POT-ZIP-FIRST-9. DTSBD630
|
|
00167 15 POT-ZIP-1 PIC X(05). DTSBD630
|
|
00168 15 POT-ZIP-2 PIC X(04). DTSBD630
|
|
00169 10 FILLER PIC X(03). DTSBD630
|
|
00170 05 POT-NAME OCCURS 4 TIMES PIC X(35). DTSBD630
|
|
00171 05 POT-STREET PIC X(35). DTSBD630
|
|
00172 05 POT-CITY-ST PIC X(35). DTSBD630
|
|
00173 EJECT DTSBD630
|
|
00174 WORKING-STORAGE SECTION. DTSBD630
|
|
001745 77 PAN-VALET PICTURE X(24) VALUE '013DTSBD630 12/26/02'. DTSBD630
|
|
00175 SKIP3 DTSBD630
|
|
00176 01 WRK-AREA. DTSBD630
|
|
00177 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +630.DTSBD630
|
|
00178 DTSBD630
|
|
00179 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD630'.DTSBD630
|
|
00180 DTSBD630
|
|
00181 05 WRK-POT-CHAR-CNT PIC S9(04) COMP VALUE +375.DTSBD630
|
|
00182 DTSBD630
|
|
00183 DTSBD630
|
|
00184 05 WRK-CERT-CURRENT-YEAR PIC 9(04). DTSBD630
|
|
00185 DTSBD630
|
|
00186 DTSBD630
|
|
00187 05 PRF-REC-CNT PIC S9(07) COMP-3. DTSBD630
|
|
00188 DTSBD630
|
|
00189 05 POT-REC-CNT PIC S9(07) COMP-3. DTSBD630
|
|
00190 DTSBD630
|
|
00191 DTSBD630
|
|
00192 05 WRK-DATE-9 PIC 9(08). DTSBD630
|
|
00193 05 WRK-DATE-X REDEFINES WRK-DATE-9. DTSBD630
|
|
00194 10 WRK-YR PIC 9(04). DTSBD630
|
|
00195 10 WRK-MO PIC 9(02). DTSBD630
|
|
00196 10 WRK-DA PIC 9(02). DTSBD630
|
|
00197 DTSBD630
|
|
00198 05 WRK-QTR-9 PIC 9(05). DTSBD630
|
|
00199 05 WRK-QTR-X REDEFINES WRK-QTR-9. DTSBD630
|
|
00200 10 WRK-QTR-YR PIC 9(04). DTSBD630
|
|
00201 10 WRK-QTR-Q PIC 9(01). DTSBD630
|
|
00202 DTSBD630
|
|
00203 DTSBD630
|
|
00204 05 WRK-TAX-PERIOD PIC 9(06). DTSBD630
|
|
00205 05 FILLER REDEFINES WRK-TAX-PERIOD. DTSBD630
|
|
00206 10 WRK-TAX-YEAR PIC 9(04). DTSBD630
|
|
00207 10 WRK-TAX-MONTH PIC 9(02). DTSBD630
|
|
00208 DTSBD630
|
|
00209 05 WRK-CERT-FEB-1-DATE PIC S9(09) COMP-3. DTSBD630
|
|
00210 DTSBD630
|
|
00211 05 WRK-CERT-FEB-10-DATE PIC S9(09) COMP-3. DTSBD630
|
|
00212 DTSBD630
|
|
00213 05 WRK-CERT-APR-15-DATE PIC S9(09) COMP-3. DTSBD630
|
|
00214 DTSBD630
|
|
00215 DTSBD630
|
|
00216 05 NAME-SUB PIC S9(04) COMP. DTSBD630
|
|
00217 DTSBD630
|
|
00218 DTSBD630
|
|
00219 05 RATE-CNT PIC S9(04) COMP. DTSBD630
|
|
00220 DTSBD630
|
|
00221 05 RATE-SUB PIC S9(04) COMP. DTSBD630
|
|
00222 DTSBD630
|
|
00223 05 RATE-MATCH PIC X(01). DTSBD630
|
|
00224 DTSBD630
|
|
00225 DTSBD630
|
|
00226 05 WRK-PAID-PRIOR-2-1 PIC S9(09)V9(02) COMP-3.DTSBD630
|
|
00227 DTSBD630
|
|
00228 05 WRK-PAID-2-1-THRU-2-10 PIC S9(09)V9(02) COMP-3.DTSBD630
|
|
00229 DTSBD630
|
|
00230 05 WRK-PAID-AFTER-2-10 PIC S9(09)V9(02) COMP-3.DTSBD630
|
|
00231 DTSBD630
|
|
00232 05 WRK-PAID-THRU-4-15 PIC S9(09)V9(02) COMP-3.DTSBD630
|
|
00233 DTSBD630
|
|
00234 05 WRK-PAID-AFTER-4-15 PIC S9(09)V9(02) COMP-3.DTSBD630
|
|
00235 DTSBD630
|
|
00236 DTSBD630
|
|
00237 05 WRK-YRQ-SUB PIC S9(04) COMP. DTSBD630
|
|
00238 DTSBD630
|
|
00239 05 WRK-YRQ-AREA OCCURS 4 TIMES DTSBD630
|
|
00240 INDEXED BY WRK-YRQ-IDX. DTSBD630
|
|
00241 10 WRK-YRQ PIC S9(05) COMP-3.DTSBD630
|
|
00242 10 WRK-YRQ-LIABLE-IND PIC X(01). DTSBD630
|
|
00243 10 WRK-RPT-FILED-IND PIC X(01). DTSBD630
|
|
00244 10 WRK-RATE PIC S9(01)V9(04) COMP-3.DTSBD630
|
|
00245 10 WRK-TAX-WAGE PIC S9(11)V9(02) COMP-3.DTSBD630
|
|
00246 DTSBD630
|
|
00247 DTSBD630
|
|
00248 05 WRK-LIABLE-IND PIC X(01). DTSBD630
|
|
00249 DTSBD630
|
|
00250 05 WRK-FILED-IND PIC X(01). DTSBD630
|
|
00251 DTSBD630
|
|
00252 05 WRK-YR-TAX-WAGE PIC S9(11)V9(02) COMP-3.DTSBD630
|
|
00253 DTSBD630
|
|
00254 DTSBD630
|
|
00255 05 WRK-MPRF-ZIP. DTSBD630
|
|
00256 10 WRK-MPRF-ZIP-1 PIC X(05). DTSBD630
|
|
00257 10 FILLER PIC X(01). DTSBD630
|
|
00258 10 WRK-MPRF-ZIP-2 PIC X(04). DTSBD630
|
|
00259 DTSBD630
|
|
00260 DTSBD630
|
|
00261 05 WRK-DOMESTIC-IND PIC X(01). DTSBD630
|
|
00262 EJECT DTSBD630
|
|
00263 01 L910-LINK-AREA. DTSBD630
|
|
00264 ++INCLUDE DTSIL910 DTSBD630
|
|
00265 SKIP3 DTSBD630
|
|
00266 01 MSKL-REC. DTSBD630
|
|
00267 ++INCLUDE DTSIMSKL DTSBD630
|
|
00268 SKIP3 DTSBD630
|
|
00269 01 MPRF-REC. DTSBD630
|
|
00270 ++INCLUDE DTSIMPRF DTSBD630
|
|
00271 SKIP3 DTSBD630
|
|
00272 01 MSOL-REC. DTSBD630
|
|
00273 ++INCLUDE DTSIMSOL DTSBD630
|
|
00274 SKIP3 DTSBD630
|
|
00275 01 MQTR-REC. DTSBD630
|
|
00276 ++INCLUDE DTSIMQTR DTSBD630
|
|
00277 SKIP3 DTSBD630
|
|
00278 01 MDST-REC. DTSBD630
|
|
00279 ++INCLUDE DTSIMDST DTSBD630
|
|
00280 EJECT DTSBD630
|
|
00281 01 L931-LINK-AREA. DTSBD630
|
|
00282 ++INCLUDE DTSIL931 DTSBD630
|
|
00283 SKIP3 DTSBD630
|
|
00284 01 FSKL-REC. DTSBD630
|
|
00285 ++INCLUDE DTSIFSKL DTSBD630
|
|
00286 EJECT DTSBD630
|
|
00287 01 L971-LINK-AREA. DTSBD630
|
|
00288 ++INCLUDE DTSIL971 DTSBD630
|
|
00289 SKIP3 DTSBD630
|
|
00290 01 X971-REC. DTSBD630
|
|
00291 ++INCLUDE DTSIX971 DTSBD630
|
|
00292 EJECT DTSBD630
|
|
00293 01 RSKL-REC. DTSBD630
|
|
00294 ++INCLUDE DTSIRSK1 DTSBD630
|
|
00295 SKIP3 DTSBD630
|
|
00296 01 R708-REC. DTSBD630
|
|
00297 ++INCLUDE DTSIR708 DTSBD630
|
|
00298 EJECT DTSBD630
|
|
00299 *01 L071-LINK-AREA. DTSBD630
|
|
00300 ***INCLUDE DTSIL071 DTSBD630
|
|
00301 SKIP3 DTSBD630
|
|
00302 01 L111-LINK-AREA. DTSBD630
|
|
00303 ++INCLUDE DTSIL111 DTSBD630
|
|
00304 SKIP3 DTSBD630
|
|
00305 01 L516-LINK-AREA. DTSBD630
|
|
00306 ++INCLUDE DTSIL516 DTSBD630
|
|
00307 EJECT DTSBD630
|
|
00308 PROCEDURE DIVISION. DTSBD630
|
|
00309 DTSBD630
|
|
00310 DTSBD630
|
|
00311 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DTSBD630
|
|
00312 DTSBD630
|
|
00313 DTSBD630
|
|
00314 PERFORM I2000-SET-CERT-CURRENT-YEAR THRU I2000-EXIT. DTSBD630
|
|
00315 DTSBD630
|
|
00316 DTSBD630
|
|
00317 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD630
|
|
00318 DTSBD630
|
|
00319 MOVE +0 TO MSKL-EMP-NO. DTSBD630
|
|
00320 DTSBD630
|
|
00321 SET MSKL-PRF-88 TO TRUE. DTSBD630
|
|
00322 DTSBD630
|
|
00323 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD630
|
|
00324 DTSBD630
|
|
00325 PERFORM UNTIL L910-NO-REC-88 DTSBD630
|
|
00326 MOVE MSKL-REC TO MPRF-REC DTSBD630
|
|
00327 ADD +1 TO PRF-REC-CNT DTSBD630
|
|
00328 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD630
|
|
00329 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA DTSBD630
|
|
00330 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD630
|
|
00331 END-PERFORM. DTSBD630
|
|
00332 DTSBD630
|
|
00333 DTSBD630
|
|
00334 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD630
|
|
00335 DTSBD630
|
|
00336 DTSBD630
|
|
00337 GOBACK. DTSBD630
|
|
00338 EJECT DTSBD630
|
|
00339 I1000-OPEN-FILES. DTSBD630
|
|
00340 MOVE 'N' TO L910-TRACE-IND DTSBD630
|
|
00341 L931-TRACE-IND DTSBD630
|
|
00342 L971-TRACE-IND DTSBD630
|
|
00343 L516-TRACE-IND. DTSBD630
|
|
00344 DTSBD630
|
|
00345 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBD630
|
|
00346 L931-MOD-NAME DTSBD630
|
|
00347 L971-MOD-NAME. DTSBD630
|
|
00348 DTSBD630
|
|
00349 DTSBD630
|
|
00350 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBD630
|
|
00351 DTSBD630
|
|
00352 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBD630
|
|
00353 DTSBD630
|
|
00354 PERFORM S971-OPEN-READ THRU S971-EXIT. DTSBD630
|
|
00355 DTSBD630
|
|
00356 OPEN OUTPUT POT-FILE. DTSBD630
|
|
00357 DTSBD630
|
|
00358 DTSBD630
|
|
00359 MOVE +0 TO PRF-REC-CNT DTSBD630
|
|
00360 POT-REC-CNT. DTSBD630
|
|
00361 DTSBD630
|
|
00362 DTSBD630
|
|
00363 MOVE LENGTH OF R708-REC TO R708-LENGTH. DTSBD630
|
|
00364 I1000-EXIT. DTSBD630
|
|
00365 EXIT. DTSBD630
|
|
00366 SKIP3 DTSBD630
|
|
00367 I2000-SET-CERT-CURRENT-YEAR. DTSBD630
|
|
00368 MOVE +0 TO X971-EMP-NO. DTSBD630
|
|
00369 DTSBD630
|
|
00370 PERFORM S971-START-BROWSE THRU S971-EXIT. DTSBD630
|
|
00371 DTSBD630
|
|
00372 IF L910-NO-REC-88 DTSBD630
|
|
00373 DISPLAY 'NO CURRENT YEAR CERT RECORDS EXIST' DTSBD630
|
|
00374 PERFORM S999-ABEND THRU S999-EXIT. DTSBD630
|
|
00375 DTSBD630
|
|
00376 MOVE X971-CERT-YEAR TO WRK-CERT-CURRENT-YEAR DTSBD630
|
|
00377 WRK-TAX-YEAR DTSBD630
|
|
00378 WRK-YR. DTSBD630
|
|
00379 DTSBD630
|
|
00380 DTSBD630
|
|
00381 MOVE 12 TO WRK-TAX-MONTH. DTSBD630
|
|
00382 DTSBD630
|
|
00383 DTSBD630
|
|
00384 ADD +1 TO WRK-YR. DTSBD630
|
|
00385 DTSBD630
|
|
00386 MOVE 02 TO WRK-MO. DTSBD630
|
|
00387 DTSBD630
|
|
00388 MOVE 01 TO WRK-DA. DTSBD630
|
|
00389 DTSBD630
|
|
00390 MOVE WRK-DATE-9 TO WRK-CERT-FEB-1-DATE. DTSBD630
|
|
00391 DTSBD630
|
|
00392 MOVE 10 TO WRK-DA. DTSBD630
|
|
00393 DTSBD630
|
|
00394 MOVE WRK-DATE-9 TO WRK-CERT-FEB-10-DATE. DTSBD630
|
|
00395 DTSBD630
|
|
00396 MOVE 04 TO WRK-MO. DTSBD630
|
|
00397 DTSBD630
|
|
00398 MOVE 15 TO WRK-DA. DTSBD630
|
|
00399 DTSBD630
|
|
00400 MOVE WRK-DATE-9 TO WRK-CERT-APR-15-DATE. DTSBD630
|
|
00401 I2000-EXIT. DTSBD630
|
|
00402 EXIT. DTSBD630
|
|
00403 EJECT DTSBD630
|
|
00404 P0000-PROCESS. DTSBD630
|
|
00405 IF NOT MPRF-CLASS-RATED-88 DTSBD630
|
|
00406 GO TO P0000-EXIT. DTSBD630
|
|
00407 DTSBD630
|
|
00408 DTSBD630
|
|
00409 MOVE MPRF-EMP-NO TO X971-EMP-NO. DTSBD630
|
|
00410 DTSBD630
|
|
00411 PERFORM S971-READ THRU S971-EXIT. DTSBD630
|
|
00412 DTSBD630
|
|
00413 IF L971-OK-88 DTSBD630
|
|
00414 GO TO P0000-EXIT. DTSBD630
|
|
00415 DTSBD630
|
|
00416 DTSBD630
|
|
00417 PERFORM P1000-INIT-WRK THRU P1000-EXIT. DTSBD630
|
|
00418 DTSBD630
|
|
00419 DTSBD630
|
|
00420 PERFORM P4000-PROCESS-EMP-NO THRU P4000-EXIT. DTSBD630
|
|
00421 DTSBD630
|
|
00422 IF WRK-FILED-IND = 'N' DTSBD630
|
|
00423 OR DTSBD630
|
|
00424 WRK-YR-TAX-WAGE < 1000.00 DTSBD630
|
|
00425 GO TO P0000-EXIT. DTSBD630
|
|
00426 DTSBD630
|
|
00427 DTSBD630
|
|
00428 ***** DTSBD630
|
|
00429 * DTSBD630
|
|
00430 * MONTANA DETERMINED WHETHER AN EMPLOYER FIT THE "DOMESTIC" DTSBD630
|
|
00431 * FUTA CATEGORY BASED ON MSOL-LIAB-CD. DTSBD630
|
|
00432 * DTSBD630
|
|
00433 * DC DETERMINES WHETHER AN EMPLOYER FITS THE "DOMESTIC" FUTA DTSBD630
|
|
00434 * CATEGORY BASED ON MPRF-NAICS-CD AND MPRF-SIC-CD. DTSBD630
|
|
00435 * DTSBD630
|
|
00436 ***** DTSBD630
|
|
00437 DTSBD630
|
|
00438 *****IF WRK-YR-TAX-WAGE < 1500.00 DTSBD630
|
|
00439 *********MOVE 'N' TO WRK-DOMESTIC-IND DTSBD630
|
|
00440 *********MOVE LOW-VALUE TO MSKL-KEY-AREA DTSBD630
|
|
00441 *********MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBD630
|
|
00442 *********SET MSKL-SOL-88 TO TRUE DTSBD630
|
|
00443 *********PERFORM S910-START-BROWSE THRU S910-EXIT DTSBD630
|
|
00444 *********MOVE MSKL-REC TO MSOL-REC DTSBD630
|
|
00445 *********PERFORM UNTIL L910-NO-REC-88 DTSBD630
|
|
00446 *****************OR WRK-DOMESTIC-IND = 'Y' DTSBD630
|
|
00447 *************IF WRK-YRQ (4) < MSOL-FIRST-LIAB-YRQ DTSBD630
|
|
00448 *************OR WRK-YRQ (1) > MSOL-LAST-LIAB-YRQ DTSBD630
|
|
00449 *************OR NOT MSOL-LIAB-REG-DOMEST-88 DTSBD630
|
|
00450 *****************PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD630
|
|
00451 *****************MOVE MSKL-REC TO MSOL-REC DTSBD630
|
|
00452 *************ELSE DTSBD630
|
|
00453 *****************MOVE 'Y' TO WRK-DOMESTIC-IND DTSBD630
|
|
00454 *************END-IF DTSBD630
|
|
00455 *********END-PERFORM DTSBD630
|
|
00456 *********IF WRK-DOMESTIC-IND = 'N' DTSBD630
|
|
00457 *************GO TO P0000-EXIT. DTSBD630
|
|
00458 DTSBD630
|
|
00459 DTSBD630
|
|
00460 IF WRK-YR-TAX-WAGE < 1500.00 DTSBD630
|
|
00461 MOVE 'N' TO WRK-DOMESTIC-IND DTSBD630
|
|
00462 PERFORM P0100-DETERMINE-DOMESTIC THRU P0100-EXIT DTSBD630
|
|
00463 IF WRK-DOMESTIC-IND = 'N' DTSBD630
|
|
00464 GO TO P0000-EXIT. DTSBD630
|
|
00465 DTSBD630
|
|
00466 DTSBD630
|
|
00467 PERFORM P5100-WRITE-POT THRU P5100-EXIT. DTSBD630
|
|
00468 DTSBD630
|
|
00469 DTSBD630
|
|
00470 PERFORM P5200-WRITE-R708 THRU P5200-EXIT. DTSBD630
|
|
00471 P0000-EXIT. DTSBD630
|
|
00472 EXIT. DTSBD630
|
|
00473 SKIP3 DTSBD630
|
|
00474 P0100-DETERMINE-DOMESTIC. DTSBD630
|
|
00475 IF MPRF-NAICS-CD-NONCLASSIF-88 DTSBD630
|
|
00476 IF MPRF-SIC-PRIV-HOUSEHOLDS-88 DTSBD630
|
|
00477 MOVE 'Y' TO WRK-DOMESTIC-IND DTSBD630
|
|
00478 ELSE DTSBD630
|
|
00479 NEXT SENTENCE DTSBD630
|
|
00480 ELSE DTSBD630
|
|
00481 IF MPRF-NAICS-PRIV-HOUSEHOLDS-88 DTSBD630
|
|
00482 MOVE 'Y' TO WRK-DOMESTIC-IND DTSBD630
|
|
00483 ELSE DTSBD630
|
|
00484 NEXT SENTENCE. DTSBD630
|
|
00485 P0100-EXIT. DTSBD630
|
|
00486 EXIT. DTSBD630
|
|
00487 EJECT DTSBD630
|
|
00488 P1000-INIT-WRK. DTSBD630
|
|
00489 MOVE +0 TO WRK-YR-TAX-WAGE DTSBD630
|
|
00490 WRK-PAID-PRIOR-2-1 DTSBD630
|
|
00491 WRK-PAID-2-1-THRU-2-10 DTSBD630
|
|
00492 WRK-PAID-AFTER-2-10 DTSBD630
|
|
00493 WRK-PAID-THRU-4-15 DTSBD630
|
|
00494 WRK-PAID-AFTER-4-15. DTSBD630
|
|
00495 DTSBD630
|
|
00496 DTSBD630
|
|
00497 MOVE 'N' TO WRK-LIABLE-IND DTSBD630
|
|
00498 WRK-FILED-IND. DTSBD630
|
|
00499 DTSBD630
|
|
00500 DTSBD630
|
|
00501 MOVE WRK-CERT-CURRENT-YEAR TO WRK-QTR-YR. DTSBD630
|
|
00502 DTSBD630
|
|
00503 DTSBD630
|
|
00504 PERFORM P1100-INIT-WRK-YRQ THRU P1100-EXIT DTSBD630
|
|
00505 VARYING WRK-YRQ-SUB FROM 1 BY 1 DTSBD630
|
|
00506 UNTIL WRK-YRQ-SUB > +4. DTSBD630
|
|
00507 DTSBD630
|
|
00508 DTSBD630
|
|
00509 INITIALIZE R708-DATA-AREA. DTSBD630
|
|
00510 P1000-EXIT. DTSBD630
|
|
00511 EXIT. DTSBD630
|
|
00512 SKIP3 DTSBD630
|
|
00513 P1100-INIT-WRK-YRQ. DTSBD630
|
|
00514 MOVE WRK-YRQ-SUB TO WRK-QTR-Q. DTSBD630
|
|
00515 DTSBD630
|
|
00516 MOVE WRK-QTR-9 TO WRK-YRQ (WRK-YRQ-SUB). DTSBD630
|
|
00517 DTSBD630
|
|
00518 MOVE 'N' TO WRK-YRQ-LIABLE-IND (WRK-YRQ-SUB) DTSBD630
|
|
00519 WRK-RPT-FILED-IND (WRK-YRQ-SUB). DTSBD630
|
|
00520 DTSBD630
|
|
00521 MOVE +0 TO WRK-RATE (WRK-YRQ-SUB) DTSBD630
|
|
00522 WRK-TAX-WAGE (WRK-YRQ-SUB). DTSBD630
|
|
00523 P1100-EXIT. DTSBD630
|
|
00524 EXIT. DTSBD630
|
|
00525 EJECT DTSBD630
|
|
00526 P4000-PROCESS-EMP-NO. DTSBD630
|
|
00527 PERFORM P4100-SET-YRQ-LIABLE THRU P4100-EXIT DTSBD630
|
|
00528 VARYING WRK-YRQ-IDX FROM 1 BY 1 DTSBD630
|
|
00529 UNTIL WRK-YRQ-IDX > 4. DTSBD630
|
|
00530 DTSBD630
|
|
00531 IF WRK-LIABLE-IND = 'N' DTSBD630
|
|
00532 GO TO P4000-EXIT. DTSBD630
|
|
00533 DTSBD630
|
|
00534 DTSBD630
|
|
00535 PERFORM P4200-MQTR-READ THRU P4200-EXIT DTSBD630
|
|
00536 VARYING WRK-YRQ-IDX FROM 1 BY 1 DTSBD630
|
|
00537 UNTIL WRK-YRQ-IDX > 4. DTSBD630
|
|
00538 DTSBD630
|
|
00539 IF WRK-FILED-IND = 'N' DTSBD630
|
|
00540 GO TO P4000-EXIT. DTSBD630
|
|
00541 DTSBD630
|
|
00542 DTSBD630
|
|
00543 MOVE LOW-VALUE TO MDST-KEY-AREA. DTSBD630
|
|
00544 DTSBD630
|
|
00545 MOVE MPRF-EMP-NO TO MDST-EMP-NO. DTSBD630
|
|
00546 DTSBD630
|
|
00547 SET MDST-DST-88 TO TRUE. DTSBD630
|
|
00548 DTSBD630
|
|
00549 MOVE WRK-YRQ (1) TO MDST-YRQ. DTSBD630
|
|
00550 DTSBD630
|
|
00551 MOVE MDST-KEY-AREA TO MSKL-KEY-AREA. DTSBD630
|
|
00552 DTSBD630
|
|
00553 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD630
|
|
00554 DTSBD630
|
|
00555 MOVE MSKL-REC TO MDST-REC. DTSBD630
|
|
00556 DTSBD630
|
|
00557 PERFORM P4300-MDST-BROWSE THRU P4300-EXIT DTSBD630
|
|
00558 UNTIL L910-NO-REC-88 DTSBD630
|
|
00559 OR MDST-YRQ > WRK-YRQ (4). DTSBD630
|
|
00560 P4000-EXIT. DTSBD630
|
|
00561 EXIT. DTSBD630
|
|
00562 EJECT DTSBD630
|
|
00563 P4100-SET-YRQ-LIABLE. DTSBD630
|
|
00564 MOVE WRK-YRQ (WRK-YRQ-IDX) TO L516-YRQ. DTSBD630
|
|
00565 DTSBD630
|
|
00566 PERFORM S516-LIABILITY THRU S516-EXIT. DTSBD630
|
|
00567 DTSBD630
|
|
00568 IF L516-LIABLE-88 DTSBD630
|
|
00569 MOVE 'Y' TO WRK-YRQ-LIABLE-IND (WRK-YRQ-IDX) DTSBD630
|
|
00570 WRK-LIABLE-IND. DTSBD630
|
|
00571 P4100-EXIT. DTSBD630
|
|
00572 EXIT. DTSBD630
|
|
00573 SKIP3 DTSBD630
|
|
00574 P4200-MQTR-READ. DTSBD630
|
|
00575 IF WRK-YRQ-LIABLE-IND (WRK-YRQ-IDX) = 'N' DTSBD630
|
|
00576 GO TO P4200-EXIT. DTSBD630
|
|
00577 DTSBD630
|
|
00578 DTSBD630
|
|
00579 MOVE LOW-VALUE TO MQTR-KEY-AREA. DTSBD630
|
|
00580 DTSBD630
|
|
00581 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD630
|
|
00582 DTSBD630
|
|
00583 SET MQTR-QTR-88 TO TRUE. DTSBD630
|
|
00584 DTSBD630
|
|
00585 MOVE WRK-YRQ (WRK-YRQ-IDX) TO MQTR-YRQ. DTSBD630
|
|
00586 DTSBD630
|
|
00587 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD630
|
|
00588 DTSBD630
|
|
00589 PERFORM S910-READ THRU S910-EXIT. DTSBD630
|
|
00590 DTSBD630
|
|
00591 IF L910-NO-REC-88 DTSBD630
|
|
00592 GO TO P4200-EXIT. DTSBD630
|
|
00593 DTSBD630
|
|
00594 MOVE MSKL-REC TO MQTR-REC. DTSBD630
|
|
00595 DTSBD630
|
|
00596 DTSBD630
|
|
00597 IF NOT MQTR-CURR-RCVD-88 DTSBD630
|
|
00598 GO TO P4200-EXIT. DTSBD630
|
|
00599 DTSBD630
|
|
00600 DTSBD630
|
|
00601 MOVE 'Y' TO WRK-RPT-FILED-IND (WRK-YRQ-IDX) DTSBD630
|
|
00602 WRK-FILED-IND. DTSBD630
|
|
00603 DTSBD630
|
|
00604 MOVE MQTR-UI-RATE TO WRK-RATE (WRK-YRQ-IDX). DTSBD630
|
|
00605 DTSBD630
|
|
00606 MOVE MQTR-TAX-WAGE TO WRK-TAX-WAGE (WRK-YRQ-IDX). DTSBD630
|
|
00607 DTSBD630
|
|
00608 ADD MQTR-TAX-WAGE TO WRK-YR-TAX-WAGE. DTSBD630
|
|
00609 P4200-EXIT. DTSBD630
|
|
00610 EXIT. DTSBD630
|
|
00611 EJECT DTSBD630
|
|
00612 P4300-MDST-BROWSE. DTSBD630
|
|
00613 MOVE MDST-YRQ TO WRK-QTR-9. DTSBD630
|
|
00614 DTSBD630
|
|
00615 IF WRK-RPT-FILED-IND (WRK-QTR-Q) = 'Y' DTSBD630
|
|
00616 PERFORM P4310-DSTRB-DATA-LOOP THRU P4310-EXIT DTSBD630
|
|
00617 VARYING MDST-ACCT-IDX FROM 1 BY 1 DTSBD630
|
|
00618 UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT. DTSBD630
|
|
00619 DTSBD630
|
|
00620 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD630
|
|
00621 DTSBD630
|
|
00622 MOVE MSKL-REC TO MDST-REC. DTSBD630
|
|
00623 P4300-EXIT. DTSBD630
|
|
00624 EXIT. DTSBD630
|
|
00625 SKIP3 DTSBD630
|
|
00626 P4310-DSTRB-DATA-LOOP. DTSBD630
|
|
00627 ***************************************************************** DTSBD630
|
|
00628 *** REPORT UI TAX PAYMENTS TWICE - (ONCE IN THE PRIOR 2/1, DTSBD630
|
|
00629 *** 2/1-2/10, AFTER 2/10 DATA ELEMENTS) AND (ONCE IN THE 4/15 OR DTSBD630
|
|
00630 *** PRIOR, AFTER 4/15 DATA ELEMENTS). DTSBD630
|
|
00631 ***************************************************************** DTSBD630
|
|
00632 IF NOT MDST-ACCT-UI-88 (MDST-ACCT-IDX) DTSBD630
|
|
00633 GO TO P4310-EXIT. DTSBD630
|
|
00634 DTSBD630
|
|
00635 DTSBD630
|
|
00636 IF MDST-RECEIVED-DATE < WRK-CERT-FEB-1-DATE DTSBD630
|
|
00637 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-PAID-PRIOR-2-1 DTSBD630
|
|
00638 ELSE DTSBD630
|
|
00639 IF MDST-RECEIVED-DATE > WRK-CERT-FEB-10-DATE DTSBD630
|
|
00640 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-PAID-AFTER-2-10 DTSBD630
|
|
00641 ELSE DTSBD630
|
|
00642 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-PAID-2-1-THRU-2-10. DTSBD630
|
|
00643 DTSBD630
|
|
00644 DTSBD630
|
|
00645 IF MDST-RECEIVED-DATE > WRK-CERT-APR-15-DATE DTSBD630
|
|
00646 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-PAID-AFTER-4-15 DTSBD630
|
|
00647 ELSE DTSBD630
|
|
00648 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-PAID-THRU-4-15. DTSBD630
|
|
00649 P4310-EXIT. DTSBD630
|
|
00650 EXIT. DTSBD630
|
|
00651 EJECT DTSBD630
|
|
00652 P5100-WRITE-POT. DTSBD630
|
|
00653 INITIALIZE POT-REC. DTSBD630
|
|
00654 DTSBD630
|
|
00655 DTSBD630
|
|
00656 MOVE 'DC' TO POT-STATE-CD. DTSBD630
|
|
00657 DTSBD630
|
|
00658 MOVE MPRF-FEIN TO POT-FEIN. DTSBD630
|
|
00659 DTSBD630
|
|
00660 MOVE SPACE TO POT-EMP-NO-AREA. DTSBD630
|
|
00661 DTSBD630
|
|
00662 MOVE MPRF-EMP-NO TO POT-EMP-NO. DTSBD630
|
|
00663 DTSBD630
|
|
00664 MOVE WRK-TAX-PERIOD TO POT-TAX-PERIOD. DTSBD630
|
|
00665 DTSBD630
|
|
00666 MOVE +0 TO RATE-CNT. DTSBD630
|
|
00667 DTSBD630
|
|
00668 PERFORM P5110-WRK-YRQ-LOOP THRU P5110-EXIT DTSBD630
|
|
00669 VARYING WRK-YRQ-IDX FROM 1 BY 1 DTSBD630
|
|
00670 UNTIL WRK-YRQ-IDX > +4. DTSBD630
|
|
00671 DTSBD630
|
|
00672 MOVE WRK-PAID-PRIOR-2-1 TO POT-PAID-PRIOR-2-1. DTSBD630
|
|
00673 DTSBD630
|
|
00674 MOVE WRK-PAID-2-1-THRU-2-10 TO POT-PAID-2-1-THRU-2-10. DTSBD630
|
|
00675 DTSBD630
|
|
00676 MOVE WRK-PAID-AFTER-2-10 TO POT-PAID-AFTER-2-10. DTSBD630
|
|
00677 DTSBD630
|
|
00678 MOVE WRK-PAID-THRU-4-15 TO POT-PAID-THRU-4-15. DTSBD630
|
|
00679 DTSBD630
|
|
00680 MOVE WRK-PAID-AFTER-4-15 TO POT-PAID-AFTER-4-15. DTSBD630
|
|
00681 DTSBD630
|
|
00682 PERFORM P5120-ADDRESS THRU P5120-EXIT. DTSBD630
|
|
00683 DTSBD630
|
|
00684 WRITE POT-REC. DTSBD630
|
|
00685 DTSBD630
|
|
00686 ADD +1 TO POT-REC-CNT. DTSBD630
|
|
00687 P5100-EXIT. DTSBD630
|
|
00688 EXIT. DTSBD630
|
|
00689 EJECT DTSBD630
|
|
00690 P5110-WRK-YRQ-LOOP. DTSBD630
|
|
00691 IF WRK-RATE (WRK-YRQ-IDX) = +0 DTSBD630
|
|
00692 AND DTSBD630
|
|
00693 WRK-TAX-WAGE (WRK-YRQ-IDX) = +0 DTSBD630
|
|
00694 GO TO P5110-EXIT. DTSBD630
|
|
00695 DTSBD630
|
|
00696 DTSBD630
|
|
00697 MOVE 'N' TO RATE-MATCH. DTSBD630
|
|
00698 DTSBD630
|
|
00699 PERFORM P5111-MATCH-LOOP THRU P5111-EXIT DTSBD630
|
|
00700 VARYING RATE-SUB FROM 1 BY 1 DTSBD630
|
|
00701 UNTIL (RATE-SUB > RATE-CNT) DTSBD630
|
|
00702 OR DTSBD630
|
|
00703 (RATE-MATCH = 'Y'). DTSBD630
|
|
00704 DTSBD630
|
|
00705 DTSBD630
|
|
00706 IF RATE-MATCH = 'Y' DTSBD630
|
|
00707 SUBTRACT 1 FROM RATE-SUB DTSBD630
|
|
00708 ADD WRK-TAX-WAGE (WRK-YRQ-IDX) DTSBD630
|
|
00709 TO POT-TAX-WAGE (RATE-SUB) DTSBD630
|
|
00710 R708-TAX-WAGE (RATE-SUB) DTSBD630
|
|
00711 ELSE DTSBD630
|
|
00712 ADD +1 TO RATE-CNT DTSBD630
|
|
00713 MOVE WRK-RATE (WRK-YRQ-IDX) DTSBD630
|
|
00714 TO POT-RATE (RATE-CNT) DTSBD630
|
|
00715 R708-RATE (RATE-CNT) DTSBD630
|
|
00716 MOVE WRK-TAX-WAGE (WRK-YRQ-IDX) DTSBD630
|
|
00717 TO POT-TAX-WAGE (RATE-CNT) DTSBD630
|
|
00718 R708-TAX-WAGE (RATE-CNT). DTSBD630
|
|
00719 P5110-EXIT. DTSBD630
|
|
00720 EXIT. DTSBD630
|
|
00721 SKIP3 DTSBD630
|
|
00722 P5111-MATCH-LOOP. DTSBD630
|
|
00723 IF WRK-RATE (WRK-YRQ-IDX) = POT-RATE (RATE-SUB) DTSBD630
|
|
00724 MOVE 'Y' TO RATE-MATCH. DTSBD630
|
|
00725 P5111-EXIT. DTSBD630
|
|
00726 EXIT. DTSBD630
|
|
00727 EJECT DTSBD630
|
|
00728 P5120-ADDRESS. DTSBD630
|
|
00729 MOVE MPRF-PRIMARY-NAME TO POT-NAME (1). DTSBD630
|
|
00730 DTSBD630
|
|
00731 DTSBD630
|
|
00732 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBD630
|
|
00733 DTSBD630
|
|
00734 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD630
|
|
00735 DTSBD630
|
|
00736 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD630
|
|
00737 DTSBD630
|
|
00738 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBD630
|
|
00739 DTSBD630
|
|
00740 IF L111-ADDR-NOT-FOUND-88 DTSBD630
|
|
00741 GO TO P5120-EXIT. DTSBD630
|
|
00742 DTSBD630
|
|
00743 DTSBD630
|
|
00744 *****IF L111-NAME = SPACE DTSBD630
|
|
00745 *********MOVE +2 TO NAME-SUB DTSBD630
|
|
00746 *****ELSE DTSBD630
|
|
00747 *********MOVE L111-NAME TO L071-NAM DTSBD630
|
|
00748 *********PERFORM S071-FROM-LAST-NAME-FIRST THRU S071-EXIT DTSBD630
|
|
00749 *********IF L111-TITLE = SPACE DTSBD630
|
|
00750 *************MOVE L071-NAM TO POT-NAME (2) DTSBD630
|
|
00751 *********ELSE DTSBD630
|
|
00752 *************STRING L071-NAM DELIMITED BY ' ' DTSBD630
|
|
00753 ********************', ' DELIMITED BY SIZE DTSBD630
|
|
00754 ********************L111-TITLE DELIMITED BY SIZE DTSBD630
|
|
00755 *****************INTO POT-NAME (2) DTSBD630
|
|
00756 *********END-IF DTSBD630
|
|
00757 *********MOVE +3 TO NAME-SUB. DTSBD630
|
|
00758 DTSBD630
|
|
00759 MOVE +1 TO NAME-SUB. DTSBD630
|
|
00760 DTSBD630
|
|
00761 IF L111-ATTN-LINE = SPACES OR LOW-VALUES DTSBD630
|
|
00762 NEXT SENTENCE DTSBD630
|
|
00763 ELSE DTSBD630
|
|
00764 ADD +1 TO NAME-SUB DTSBD630
|
|
00765 MOVE L111-ATTN-LINE TO POT-NAME (NAME-SUB). DTSBD630
|
|
00766 DTSBD630
|
|
00767 IF L111-DELIV-LINE-1 = SPACES OR LOW-VALUES DTSBD630
|
|
00768 NEXT SENTENCE DTSBD630
|
|
00769 ELSE DTSBD630
|
|
00770 ADD +1 TO NAME-SUB DTSBD630
|
|
00771 MOVE L111-DELIV-LINE-1 TO POT-NAME (NAME-SUB). DTSBD630
|
|
00772 DTSBD630
|
|
00773 MOVE L111-DELIV-LINE-2 TO POT-STREET. DTSBD630
|
|
00774 DTSBD630
|
|
00775 STRING L111-CITY DELIMITED BY ' ' DTSBD630
|
|
00776 ', ' DELIMITED BY SIZE DTSBD630
|
|
00777 L111-ST DELIMITED BY SIZE DTSBD630
|
|
00778 INTO POT-CITY-ST. DTSBD630
|
|
00779 DTSBD630
|
|
00780 MOVE SPACES TO POT-ZIP. DTSBD630
|
|
00781 DTSBD630
|
|
00782 MOVE L111-ZIP TO WRK-MPRF-ZIP DTSBD630
|
|
00783 POT-ZIP-FIRST-9. DTSBD630
|
|
00784 DTSBD630
|
|
00785 IF WRK-MPRF-ZIP-2 NUMERIC DTSBD630
|
|
00786 MOVE WRK-MPRF-ZIP-2 TO POT-ZIP-2. DTSBD630
|
|
00787 P5120-EXIT. DTSBD630
|
|
00788 EXIT. DTSBD630
|
|
00789 EJECT DTSBD630
|
|
00790 P5200-WRITE-R708. DTSBD630
|
|
00791 MOVE MPRF-FEIN TO R708-FEIN. DTSBD630
|
|
00792 DTSBD630
|
|
00793 MOVE MPRF-EMP-NO TO R708-EMP-NO. DTSBD630
|
|
00794 DTSBD630
|
|
00795 MOVE WRK-TAX-PERIOD TO R708-TAX-PERIOD. DTSBD630
|
|
00796 DTSBD630
|
|
00797 MOVE WRK-PAID-PRIOR-2-1 TO R708-ONTIME. DTSBD630
|
|
00798 DTSBD630
|
|
00799 MOVE WRK-PAID-2-1-THRU-2-10 TO R708-GRACE. DTSBD630
|
|
00800 DTSBD630
|
|
00801 MOVE WRK-PAID-AFTER-2-10 TO R708-LATE. DTSBD630
|
|
00802 DTSBD630
|
|
00803 MOVE WRK-PAID-THRU-4-15 TO R708-ONTIME-SCHED-H. DTSBD630
|
|
00804 DTSBD630
|
|
00805 MOVE WRK-PAID-AFTER-4-15 TO R708-LATE-SCHED-H. DTSBD630
|
|
00806 DTSBD630
|
|
00807 MOVE RATE-CNT TO R708-WAGE-RATE-CNT. DTSBD630
|
|
00808 DTSBD630
|
|
00809 PERFORM S946-WRITE-R708 THRU S946-EXIT. DTSBD630
|
|
00810 P5200-EXIT. DTSBD630
|
|
00811 EXIT. DTSBD630
|
|
00812 EJECT DTSBD630
|
|
00813 T0000-TERMINATE. DTSBD630
|
|
00814 DISPLAY ' '. DTSBD630
|
|
00815 DTSBD630
|
|
00816 DISPLAY '*** DTSBD630 TERMINATION STATISTICS'. DTSBD630
|
|
00817 DTSBD630
|
|
00818 DISPLAY ' '. DTSBD630
|
|
00819 DTSBD630
|
|
00820 DISPLAY '*** ' DTSBD630
|
|
00821 PRF-REC-CNT DTSBD630
|
|
00822 ' MPRF RECORDS READ'. DTSBD630
|
|
00823 DTSBD630
|
|
00824 DISPLAY '*** ' DTSBD630
|
|
00825 POT-REC-CNT DTSBD630
|
|
00826 ' POTENTIAL NON-FEDERAL FILER RECORDS WRITTEN'. DTSBD630
|
|
00827 DTSBD630
|
|
00828 CLOSE POT-FILE. DTSBD630
|
|
00829 DTSBD630
|
|
00830 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD630
|
|
00831 DTSBD630
|
|
00832 PERFORM S931-CLOSE THRU S931-EXIT. DTSBD630
|
|
00833 DTSBD630
|
|
00834 PERFORM S971-CLOSE THRU S971-EXIT. DTSBD630
|
|
00835 DTSBD630
|
|
00836 MOVE -1 TO RSK1-LENGTH. DTSBD630
|
|
00837 DTSBD630
|
|
00838 PERFORM S946-WRITE-RSKL THRU S946-EXIT. DTSBD630
|
|
00839 T0000-EXIT. DTSBD630
|
|
00840 EXIT. DTSBD630
|
|
00841 EJECT DTSBD630
|
|
00842 *S071-FROM-LAST-NAME-FIRST. DTSBD630
|
|
00843 *****SET L071-FROM-LAST-NAME-FIRST TO TRUE. DTSBD630
|
|
00844 *****CALL 'DTSBU071' USING L071-LINK-AREA. DTSBD630
|
|
00845 *S071-EXIT. DTSBD630
|
|
00846 *****EXIT. DTSBD630
|
|
00847 SKIP3 DTSBD630
|
|
00848 S111-LOOKUP-ADDR. DTSBD630
|
|
00849 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD630
|
|
00850 S111-EXIT. DTSBD630
|
|
00851 EXIT. DTSBD630
|
|
00852 SKIP3 DTSBD630
|
|
00853 S516-LIABILITY. DTSBD630
|
|
00854 CALL 'DTSBU516' USING L516-LINK-AREA DTSBD630
|
|
00855 MPRF-REC. DTSBD630
|
|
00856 S516-EXIT. DTSBD630
|
|
00857 EXIT. DTSBD630
|
|
00858 SKIP3 DTSBD630
|
|
00859 S910-OPEN-READ. DTSBD630
|
|
00860 SET L910-OPEN-READ-88 TO TRUE. DTSBD630
|
|
00861 GO TO S910-MSTR-IO. DTSBD630
|
|
00862 DTSBD630
|
|
00863 S910-READ. DTSBD630
|
|
00864 SET L910-READ-88 TO TRUE. DTSBD630
|
|
00865 GO TO S910-MSTR-IO. DTSBD630
|
|
00866 DTSBD630
|
|
00867 S910-START-BROWSE. DTSBD630
|
|
00868 SET L910-START-BROWSE-88 TO TRUE. DTSBD630
|
|
00869 GO TO S910-MSTR-IO. DTSBD630
|
|
00870 DTSBD630
|
|
00871 S910-READ-NEXT. DTSBD630
|
|
00872 SET L910-READ-NEXT-88 TO TRUE. DTSBD630
|
|
00873 GO TO S910-MSTR-IO. DTSBD630
|
|
00874 DTSBD630
|
|
00875 *S910-COUNT. DTSBD630
|
|
00876 *****SET L910-COUNT-88 TO TRUE. DTSBD630
|
|
00877 *****GO TO S910-MSTR-IO. DTSBD630
|
|
00878 DTSBD630
|
|
00879 S910-CLOSE. DTSBD630
|
|
00880 SET L910-CLOSE-88 TO TRUE. DTSBD630
|
|
00881 GO TO S910-MSTR-IO. DTSBD630
|
|
00882 DTSBD630
|
|
00883 S910-MSTR-IO. DTSBD630
|
|
00884 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD630
|
|
00885 MSKL-REC. DTSBD630
|
|
00886 S910-EXIT. DTSBD630
|
|
00887 EXIT. DTSBD630
|
|
00888 SKIP3 DTSBD630
|
|
00889 S931-OPEN-READ. DTSBD630
|
|
00890 SET L931-OPEN-READ-88 TO TRUE. DTSBD630
|
|
00891 GO TO S931-REF-IO. DTSBD630
|
|
00892 DTSBD630
|
|
00893 S931-CLOSE. DTSBD630
|
|
00894 SET L931-CLOSE-88 TO TRUE. DTSBD630
|
|
00895 GO TO S931-REF-IO. DTSBD630
|
|
00896 DTSBD630
|
|
00897 S931-REF-IO. DTSBD630
|
|
00898 CALL 'DTSBU931' USING L931-LINK-AREA DTSBD630
|
|
00899 FSKL-REC. DTSBD630
|
|
00900 S931-EXIT. DTSBD630
|
|
00901 EXIT. DTSBD630
|
|
00902 SKIP3 DTSBD630
|
|
00903 S971-OPEN-READ. DTSBD630
|
|
00904 SET L971-OPEN-READ-88 TO TRUE. DTSBD630
|
|
00905 GO TO S971-CURR-CERT-IO. DTSBD630
|
|
00906 DTSBD630
|
|
00907 S971-READ. DTSBD630
|
|
00908 SET L971-READ-88 TO TRUE. DTSBD630
|
|
00909 GO TO S971-CURR-CERT-IO. DTSBD630
|
|
00910 DTSBD630
|
|
00911 S971-START-BROWSE. DTSBD630
|
|
00912 SET L971-START-BROWSE-88 TO TRUE. DTSBD630
|
|
00913 GO TO S971-CURR-CERT-IO. DTSBD630
|
|
00914 DTSBD630
|
|
00915 *S971-READ-NEXT. DTSBD630
|
|
00916 *****SET L971-READ-NEXT-88 TO TRUE. DTSBD630
|
|
00917 *****GO TO S971-CURR-CERT-IO. DTSBD630
|
|
00918 DTSBD630
|
|
00919 S971-CLOSE. DTSBD630
|
|
00920 SET L971-CLOSE-88 TO TRUE. DTSBD630
|
|
00921 GO TO S971-CURR-CERT-IO. DTSBD630
|
|
00922 DTSBD630
|
|
00923 S971-CURR-CERT-IO. DTSBD630
|
|
00924 CALL 'DTSBU971' USING L971-LINK-AREA DTSBD630
|
|
00925 X971-REC. DTSBD630
|
|
00926 S971-EXIT. DTSBD630
|
|
00927 EXIT. DTSBD630
|
|
00928 SKIP3 DTSBD630
|
|
00929 S946-WRITE-RSKL. DTSBD630
|
|
00930 CALL 'DTSBU946' USING RSKL-REC. DTSBD630
|
|
00931 GO TO S946-EXIT. DTSBD630
|
|
00932 DTSBD630
|
|
00933 S946-WRITE-R708. DTSBD630
|
|
00934 CALL 'DTSBU946' USING R708-REC. DTSBD630
|
|
00935 GO TO S946-EXIT. DTSBD630
|
|
00936 DTSBD630
|
|
00937 S946-EXIT. DTSBD630
|
|
00938 EXIT. DTSBD630
|
|
00939 SKIP3 DTSBD630
|
|
00940 S999-ABEND. DTSBD630
|
|
00941 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD630
|
|
00942 S999-EXIT. DTSBD630
|
|
00943 EXIT. DTSBD630
|