00001 IDENTIFICATION DIVISION. 11/29/01 00002 PROGRAM-ID. DTSBR705. DTSBR705 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV013 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR705 00005 DATE-COMPILED. DTSBR705 00006 DTSBR705 00007 ***** DTSBR705 00008 * DTSBR705 00009 * FUNCTION: FAILED FUTA CERTIFICATIONS. DTSBR705 00010 * DTSBR705 00011 * DTSBR705 00012 * CALLING SEQUENCE: DTSBD300 CALLS DTSBD610 DTSBR705 00013 * WHICH CREATES DTSIR705 RECORDS. DTSBR705 00014 * DTSBD800 CALLS DTSBR705 DTSBR705 00015 * WHICH PRODUCES THE FUTA FAILED DTSBR705 00016 * CERTIFICATION LISTING. DTSBR705 00017 * MODIFICATION HISTORY: DTSBR705 00018 * DTSBR705 00019 * 12-09-94 INITIAL DEVELOPMENT DTSBR705 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR705 00021 * DTSBR705 00022 * 11-13-97 TAX YEAR 1996 MODIFICATIONS. FOUR DIGIT YEAR. DTSBR705 00023 * REFERENCE RFP #TCL 222 AUTHOR OF CHANGE - EHH DTSBR705 00024 * DTSBR705 00025 * 02-22-99 MODIFIED TO MEET DUTAS PROGRAMMING SPAECIFICATIONS. DTSBR705 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR705 00027 * DTSBR705 00028 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR705 00029 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR705 00030 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR705 00031 * DTSBR705 00032 * DTSBR705 00033 * DESCRIPTION: DTSBR705 00034 * DTSBR705 00035 * THIS MODULE GENERATES A DETAIL LINE FOR EVERY IRS FORM DTSBR705 00036 * 940 IDENTIFICATION TAPE RECORD FOR WHICH THERE WAS NO DTSBR705 00037 * MATCH ON THE MONTANA TAX SYSTEM MASTER FILE DURING DTSBR705 00038 * YEARLY FUTA PROCESSING. DTSBR705 00039 * DTSBR705 00040 * DTSBR705 00041 * RECORDS READ: DTSBR705 00042 * DTSBR705 00043 * NONE. DTSBR705 00044 * DTSBR705 00045 * DTSBR705 00046 * PRINTED OUTPUTS: DTSBR705 00047 * DTSBR705 00048 * 705R1 FAILED FUTA CERTIFICATIONS DTSBR705 00049 * DTSBR705 00050 * DTSBR705 00051 * RECORDS WRITTEN: DTSBR705 00052 * DTSBR705 00053 * NONE. DTSBR705 00054 * DTSBR705 00055 * DTSBR705 00056 * MODULES CALLED: DTSBR705 00057 * DTSBR705 00058 * NONE. DTSBR705 00059 * DTSBR705 00060 * DTSBR705 00061 ***** DTSBR705 00062 EJECT DTSBR705 00063 ENVIRONMENT DIVISION. DTSBR705 00064 DTSBR705 00065 CONFIGURATION SECTION. DTSBR705 00066 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR705 00067 DTSBR705 00068 INPUT-OUTPUT SECTION. DTSBR705 00069 DTSBR705 00070 FILE-CONTROL. DTSBR705 00071 SELECT PRT-FILE ASSIGN TO RPT705R1. DTSBR705 00072 DTSBR705 00073 DATA DIVISION. DTSBR705 00074 DTSBR705 00075 FILE SECTION. DTSBR705 00076 DTSBR705 00077 FD PRT-FILE DTSBR705 00078 RECORDING MODE IS F. DTSBR705 00079 01 REPORT-LISTING1 PIC X(133). DTSBR705 00080 DTSBR705 00081 EJECT DTSBR705 00082 WORKING-STORAGE SECTION. DTSBR705 000825 77 PAN-VALET PICTURE X(24) VALUE '013DTSBR705 11/29/01'. DTSBR705 00083 DTSBR705 00084 01 WRK-AREA. DTSBR705 00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +705.DTSBR705 00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR705 00087 05 WS-NUMBER-ONE PIC S9(05) COMP-3 DTSBR705 00088 VALUE +0. DTSBR705 00089 DTSBR705 00090 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR705 00091 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR705 00092 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR705 00093 05 BLANK-LINE PIC X(133) VALUE SPACES. DTSBR705 00094 DTSBR705 00095 05 WS-EMP-NO PIC X(07). DTSBR705 00096 05 WS-EMP-NO-EDIT REDEFINES WS-EMP-NO DTSBR705 00097 PIC 999B999. DTSBR705 00098 05 WS-SUB PIC S9(04) COMP. DTSBR705 00099 05 WS-NAME-ADD-CNT PIC S9(04) COMP. DTSBR705 00100 05 WS-NAME-ADD OCCURS 6 TIMES PIC X(35). DTSBR705 00101 EJECT DTSBR705 00102 DTSBR705 00103 01 PAGE-HEADING. DTSBR705 00104 05 HDR-LINE-1. DTSBR705 00105 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00106 10 FILLER PIC X(05) DTSBR705 00107 VALUE '705R1'. DTSBR705 00108 10 FILLER PIC X(35) VALUE SPACES. DTSBR705 00109 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR705 00110 10 FILLER PIC X(28) VALUE SPACES. DTSBR705 00111 10 FILLER PIC X(05) DTSBR705 00112 VALUE 'DATE:'. DTSBR705 00113 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00114 10 HDR-SYS-DATE PIC X(08). DTSBR705 00115 DTSBR705 00116 05 HDR-LINE-2. DTSBR705 00117 10 FILLER PIC X(41) VALUE SPACES. DTSBR705 00118 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR705 00119 10 FILLER PIC X(28) VALUE SPACES. DTSBR705 00120 10 FILLER PIC X(05) DTSBR705 00121 VALUE 'TIME:'. DTSBR705 00122 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00123 10 HDR-SYS-TIME PIC X(08). DTSBR705 00124 DTSBR705 00125 05 HDR-LINE-3. DTSBR705 00126 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00127 10 FILLER PIC X(30) DTSBR705 00128 VALUE 'ROUTE TO: CHIEF, TAX DIVISION'. DTSBR705 00129 10 FILLER PIC X(88) VALUE SPACES. DTSBR705 00130 10 FILLER PIC X(05) DTSBR705 00131 VALUE 'PAGE:'. DTSBR705 00132 10 FILLER PIC X(03) VALUE SPACES. DTSBR705 00133 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR705 00134 DTSBR705 00135 05 HDR-LINE-4. DTSBR705 00136 10 FILLER PIC X(12) VALUE SPACES. DTSBR705 00137 10 FILLER PIC X(20) DTSBR705 00138 VALUE ' '. DTSBR705 00139 10 FILLER PIC X(21) VALUE SPACES. DTSBR705 00140 10 FILLER PIC X(26) DTSBR705 00141 VALUE 'FAILED FUTA CERTIFICATIONS'. DTSBR705 00142 DTSBR705 00143 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR705 00144 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR705 00145 05 HDR-LINE-7. DTSBR705 00146 10 FILLER PIC X(11) VALUE SPACES. DTSBR705 00147 10 FILLER PIC X(03) DTSBR705 00148 VALUE 'TAX'. DTSBR705 00149 10 FILLER PIC X(15) VALUE SPACES. DTSBR705 00150 10 FILLER PIC X(14) DTSBR705 00151 VALUE ALL '*'. DTSBR705 00152 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00153 10 FILLER PIC X(24) DTSBR705 00154 VALUE 'CERT REQUEST RECORD INFO'. DTSBR705 00155 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00156 10 FILLER PIC X(13) DTSBR705 00157 VALUE ALL '*'. DTSBR705 00158 DTSBR705 00159 05 HDR-LINE-8. DTSBR705 00160 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00161 10 FILLER PIC X(40) DTSBR705 00162 VALUE 'EMP NO PER FEIN NAME/ADDRE'. DTSBR705 00163 10 FILLER PIC X(02) DTSBR705 00164 VALUE 'SS'. DTSBR705 00165 10 FILLER PIC X(23) VALUE SPACES. DTSBR705 00166 10 FILLER PIC X(34) DTSBR705 00167 VALUE 'XREF FEIN NCRL ERROR MESSAGE'. DTSBR705 00168 05 HDR-LINE-9 PIC X(133) VALUE SPACES. DTSBR705 00169 DTSBR705 00170 01 DETAIL-LINE1. DTSBR705 00171 05 DTL1-LINE-1. DTSBR705 00172 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00173 10 DTL1-EMP-NO PIC 999B999. DTSBR705 00174 10 FILLER PIC X(02) VALUE SPACES. DTSBR705 00175 10 DTL1-TAX-YEAR PIC 9(04). DTSBR705 00176 10 FILLER PIC X(03) VALUE SPACES. DTSBR705 00177 10 DTL1-FEIN PIC 99B9(07). DTSBR705 00178 10 FILLER PIC X(02) VALUE SPACES. DTSBR705 00179 10 DTL1-NAME-ADD-1 PIC X(35). DTSBR705 00180 10 FILLER PIC X(02) VALUE SPACES. DTSBR705 00181 10 DTL1-XREF-FEIN PIC 99B9(07). DTSBR705 00182 10 FILLER PIC X(02) VALUE SPACES. DTSBR705 00183 10 DTL1-NAME-CONTROL PIC X(04). DTSBR705 00184 10 FILLER PIC X(04) VALUE SPACES. DTSBR705 00185 10 DTL1-MSG-TEXT-1 PIC X(40). DTSBR705 00186 DTSBR705 00187 01 DETAIL-LINE2. DTSBR705 00188 05 DTL2-LINE-1. DTSBR705 00189 10 FILLER PIC X(29) VALUE SPACES. DTSBR705 00190 10 DTL2-NAME-ADD-2 PIC X(35). DTSBR705 00191 10 FILLER PIC X(02) VALUE SPACES. DTSBR705 00192 10 DTL2-MSG-TEXT-2 PIC X(40). DTSBR705 00193 DTSBR705 00194 01 DETAIL-LINE3. DTSBR705 00195 05 DTL3-LINE-1. DTSBR705 00196 10 FILLER PIC X(29) VALUE SPACES. DTSBR705 00197 10 DTL3-NAME-ADD-3 PIC X(35). DTSBR705 00198 DTSBR705 00199 01 CONTROL-FOOTING-FINAL. DTSBR705 00200 05 CFF-LINE-4. DTSBR705 00201 10 FILLER PIC X(11) VALUE SPACES. DTSBR705 00202 10 CFF-NUMBER-ONE PIC ZZZZ,ZZ9. DTSBR705 00203 10 FILLER PIC X(01) VALUE SPACE. DTSBR705 00204 10 FILLER PIC X(26) DTSBR705 00205 VALUE 'FAILED FUTA CERTIFICATIONS'. DTSBR705 00206 EJECT DTSBR705 00207 LINKAGE SECTION. DTSBR705 00208 DTSBR705 00209 01 LRCM-LINK-AREA. DTSBR705 00210 ++INCLUDE DTSILRCM DTSBR705 00211 EJECT DTSBR705 00212 01 R705-REC. DTSBR705 00213 ++INCLUDE DTSIR705 DTSBR705 00214 EJECT DTSBR705 00215 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR705 00216 R705-REC. DTSBR705 00217 IF FIRST-TIME-IND = 'Y' DTSBR705 00218 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR705 00219 MOVE 'N' TO FIRST-TIME-IND. DTSBR705 00220 DTSBR705 00221 IF LRCM-EOR-88 DTSBR705 00222 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR705 00223 ELSE DTSBR705 00224 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR705 00225 DTSBR705 00226 GOBACK. DTSBR705 00227 EJECT DTSBR705 00228 I1000-INITIATE. DTSBR705 00229 DTSBR705 00230 OPEN OUTPUT PRT-FILE. DTSBR705 00231 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR705 00232 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR705 00233 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR705 00234 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR705 00235 MOVE SPACES TO REPORT-LISTING1. DTSBR705 00236 DTSBR705 00237 I1000-EXIT. DTSBR705 00238 EXIT. DTSBR705 00239 EJECT DTSBR705 00240 P1000-PROCESS. DTSBR705 00241 DTSBR705 00242 IF R705-EMP-NO = ZEROES DTSBR705 00243 MOVE SPACES TO WS-EMP-NO DTSBR705 00244 ELSE DTSBR705 00245 MOVE R705-EMP-NO TO WS-EMP-NO-EDIT. DTSBR705 00246 DTSBR705 00247 MOVE +0 TO WS-NAME-ADD-CNT. DTSBR705 00248 IF R705-NAME1 NOT = SPACES DTSBR705 00249 ADD +1 TO WS-NAME-ADD-CNT DTSBR705 00250 MOVE R705-NAME1 TO WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00251 IF R705-NAME2 NOT = SPACES DTSBR705 00252 ADD +1 TO WS-NAME-ADD-CNT DTSBR705 00253 MOVE R705-NAME2 TO WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00254 IF R705-NAME3 NOT = SPACES DTSBR705 00255 ADD +1 TO WS-NAME-ADD-CNT DTSBR705 00256 MOVE R705-NAME3 TO WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00257 IF R705-NAME4 NOT = SPACES DTSBR705 00258 ADD +1 TO WS-NAME-ADD-CNT DTSBR705 00259 MOVE R705-NAME4 TO WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00260 DTSBR705 00261 ADD +1 TO WS-NAME-ADD-CNT. DTSBR705 00262 MOVE R705-STREET-ADDR TO WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00263 ADD +1 TO WS-NAME-ADD-CNT. DTSBR705 00264 MOVE SPACES TO WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00265 STRING R705-CITY DELIMITED BY SIZE DTSBR705 00266 R705-STATE DELIMITED BY SIZE DTSBR705 00267 ' ' DELIMITED BY SIZE DTSBR705 00268 R705-ZIP-CODE DELIMITED BY SIZE DTSBR705 00269 INTO DTSBR705 00270 WS-NAME-ADD (WS-NAME-ADD-CNT). DTSBR705 00271 DTSBR705 00272 MOVE WS-EMP-NO TO DTL1-EMP-NO. DTSBR705 00273 MOVE R705-TAX-YEAR TO DTL1-TAX-YEAR. DTSBR705 00274 MOVE R705-FEIN TO DTL1-FEIN. DTSBR705 00275 MOVE WS-NAME-ADD (1) TO DTL1-NAME-ADD-1. DTSBR705 00276 MOVE R705-XREF-FEIN TO DTL1-XREF-FEIN. DTSBR705 00277 MOVE R705-NAME-CONTROL TO DTL1-NAME-CONTROL. DTSBR705 00278 MOVE R705-MSG-TEXT-1 TO DTL1-MSG-TEXT-1. DTSBR705 00279 DTSBR705 00280 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR705 00281 WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 1. DTSBR705 00282 ADD +1 TO WS-NUMBER-ONE. DTSBR705 00283 ADD +1 TO WS-LINE-CNT2. DTSBR705 00284 DTSBR705 00285 MOVE WS-NAME-ADD (2) TO DTL2-NAME-ADD-2. DTSBR705 00286 MOVE R705-MSG-TEXT-2 TO DTL2-MSG-TEXT-2. DTSBR705 00287 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR705 00288 WRITE REPORT-LISTING1 FROM DTL2-LINE-1 AFTER 1. DTSBR705 00289 ADD +1 TO WS-LINE-CNT2. DTSBR705 00290 DTSBR705 00291 PERFORM DTSBR705 00292 VARYING WS-SUB FROM +3 BY +1 DTSBR705 00293 UNTIL WS-SUB > WS-NAME-ADD-CNT DTSBR705 00294 MOVE WS-NAME-ADD (WS-SUB) TO DTL3-NAME-ADD-3 DTSBR705 00295 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR705 00296 WRITE REPORT-LISTING1 FROM DTL3-LINE-1 AFTER 1 DTSBR705 00297 ADD +1 TO WS-LINE-CNT2 DTSBR705 00298 DTSBR705 00299 END-PERFORM. DTSBR705 00300 WRITE REPORT-LISTING1 FROM BLANK-LINE AFTER 1. DTSBR705 00301 ADD +1 TO WS-LINE-CNT2. DTSBR705 00302 DTSBR705 00303 P1000-EXIT. DTSBR705 00304 EXIT. DTSBR705 00305 DTSBR705 00306 P2000-PRINT-HEADER. DTSBR705 00307 DTSBR705 00308 IF WS-LINE-CNT GREATER 58 OR DTSBR705 00309 WS-LINE-CNT2 GREATER 58 DTSBR705 00310 MOVE +0 TO WS-LINE-CNT DTSBR705 00311 MOVE +0 TO WS-LINE-CNT2 DTSBR705 00312 ADD +1 TO WS-PAGE-CNT DTSBR705 00313 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR705 00314 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR705 00315 AFTER TOP-OF-PAGE DTSBR705 00316 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR705 00317 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR705 00318 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR705 00319 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR705 00320 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR705 00321 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR705 00322 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR705 00323 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR705 00324 ADD +9 TO WS-LINE-CNT2. DTSBR705 00325 DTSBR705 00326 P2000-EXIT. DTSBR705 00327 EXIT. DTSBR705 00328 DTSBR705 00329 T1000-TERMINATE. DTSBR705 00330 DTSBR705 00331 IF WS-LINE-CNT2 > 52 DTSBR705 00332 MOVE +60 TO WS-LINE-CNT2 DTSBR705 00333 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR705 00334 DTSBR705 00335 MOVE WS-NUMBER-ONE TO CFF-NUMBER-ONE. DTSBR705 00336 WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4. DTSBR705 00337 CLOSE PRT-FILE. DTSBR705 00338 DTSBR705 00339 T1000-EXIT. DTSBR705 00340 EXIT. DTSBR705 00341 DTSBR705 00342 *S999-ABEND. DTSBR705 00343 * DTSBR705 00344 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR705 00345 * DTSBR705 00346 *S999-EXIT. DTSBR705 00347 * EXIT. DTSBR705 00348 DTSBR705