00001 IDENTIFICATION DIVISION. 08/14/02 00002 PROGRAM-ID. DTSBR731. DTSBR731 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV013 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR731 00005 DATE-COMPILED. DTSBR731 00006 DTSBR731 00007 ***** DTSBR731 00008 * DTSBR731 00009 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR731 00010 * DTSBD920 WHICH UPDATES DTSIR731 DTSBR731 00011 * DTSBR731 READS DTSIR731 RECORDS. DTSBR731 00012 * DTSBR731 00013 * FUNCTION: PURGED PRIMARY NAMES LIST. DTSBR731 00014 * DTSBR731 00015 * DTSBR731 00016 * MODIFICATION HISTORY: DTSBR731 00017 * DTSBR731 00018 * 12-11-94 INITIAL DEVELOPMENT DTSBR731 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR731 00020 * DTSBR731 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR731 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR731 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR731 00024 * DTSBR731 00025 * DTSBR731 00026 * DESCRIPTION: DTSBR731 00027 * DTSBR731 00028 * THE MODULE PRODUCES A LIST OF ALL PRIMARY NAMES AND DTSBR731 00029 * ALTERNATE NAMES FOR ALL ACCOUNTS THAT HAVE BEEN PURGED DTSBR731 00030 * FROM THE ACTIVE EMPLOYER MASTER FILE. DTSBR731 00031 * DTSBR731 00032 * DTSBR731 00033 * RECORDS READ: DTSBR731 00034 * DTSBR731 00035 * NONE. DTSBR731 00036 * DTSBR731 00037 * DTSBR731 00038 * PRINTED OUTPUTS: DTSBR731 00039 * DTSBR731 00040 * 731R1 PURGED PRIMARY NAMES LIST DTSBR731 00041 * DTSBR731 00042 * DTSBR731 00043 * RECORDS WRITTEN: DTSBR731 00044 * DTSBR731 00045 * NONE. DTSBR731 00046 * DTSBR731 00047 * DTSBR731 00048 * MODULES CALLED: DTSBR731 00049 * DTSBR731 00050 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR731 00051 * DTSBR731 00052 * DTSBR731 00053 ***** DTSBR731 00054 EJECT DTSBR731 00055 ENVIRONMENT DIVISION. DTSBR731 00056 DTSBR731 00057 CONFIGURATION SECTION. DTSBR731 00058 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR731 00059 DTSBR731 00060 INPUT-OUTPUT SECTION. DTSBR731 00061 DTSBR731 00062 FILE-CONTROL. DTSBR731 00063 SELECT PRT-FILE ASSIGN TO RPT731R1. DTSBR731 00064 DTSBR731 00065 DATA DIVISION. DTSBR731 00066 DTSBR731 00067 FILE SECTION. DTSBR731 00068 DTSBR731 00069 FD PRT-FILE DTSBR731 00070 RECORDING MODE IS F. DTSBR731 00071 01 REPORT-LISTING1 PIC X(133). DTSBR731 00072 DTSBR731 00073 EJECT DTSBR731 00074 WORKING-STORAGE SECTION. DTSBR731 000745 77 PAN-VALET PICTURE X(24) VALUE '013DTSBR731 08/14/02'. DTSBR731 00075 DTSBR731 00076 01 WRK-AREA. DTSBR731 00077 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +731.DTSBR731 00078 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR731 00079 DTSBR731 00080 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR731 00081 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR731 00082 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR731 00083 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR731 00084 DTSBR731 00085 * 05 WS-EMP-CLASS-DSCR PIC X(13). DTSBR731 00086 * 05 WS-LIAB-DATE PIC X(08). DTSBR731 00087 * 05 WS-INACT-DATE PIC X(08). DTSBR731 00088 * 05 WS-PURGE-DATE PIC X(08). DTSBR731 00089 EJECT DTSBR731 00090 01 L001-LINK-AREA. DTSBR731 00091 ++INCLUDE DTSIL001 DTSBR731 00092 EJECT DTSBR731 00093 DTSBR731 00094 01 PAGE-HEADING. DTSBR731 00095 05 HDR-LINE-1. DTSBR731 00096 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00097 10 FILLER PIC X(05) DTSBR731 00098 VALUE '731R1'. DTSBR731 00099 10 FILLER PIC X(35) VALUE SPACES. DTSBR731 00100 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR731 00101 10 FILLER PIC X(28) VALUE SPACES. DTSBR731 00102 10 FILLER PIC X(05) DTSBR731 00103 VALUE 'DATE:'. DTSBR731 00104 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00105 10 HDR-SYS-DATE PIC X(08). DTSBR731 00106 DTSBR731 00107 05 HDR-LINE-2. DTSBR731 00108 10 FILLER PIC X(41) VALUE SPACES. DTSBR731 00109 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR731 00110 10 FILLER PIC X(28) VALUE SPACES. DTSBR731 00111 10 FILLER PIC X(05) DTSBR731 00112 VALUE 'TIME:'. DTSBR731 00113 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00114 10 HDR-SYS-TIME PIC X(08). DTSBR731 00115 DTSBR731 00116 05 HDR-LINE-3. DTSBR731 00117 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00118 10 FILLER PIC X(33) DTSBR731 00119 VALUE 'ROUTE TO: CHIEF, TAX DIVISION '. DTSBR731 00120 10 FILLER PIC X(85) VALUE SPACES. DTSBR731 00121 10 FILLER PIC X(05) DTSBR731 00122 VALUE 'PAGE:'. DTSBR731 00123 10 FILLER PIC X(03) VALUE SPACES. DTSBR731 00124 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR731 00125 DTSBR731 00126 05 HDR-LINE-4. DTSBR731 00127 10 FILLER PIC X(12) VALUE SPACES. DTSBR731 00128 10 FILLER PIC X(20) DTSBR731 00129 VALUE ' '. DTSBR731 00130 10 FILLER PIC X(20) VALUE SPACES. DTSBR731 00131 10 FILLER PIC X(26) DTSBR731 00132 VALUE ' PURGED EMPLOYER LIST '. DTSBR731 00133 DTSBR731 00134 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR731 00135 DTSBR731 00136 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR731 00137 DTSBR731 00138 05 HDR-LINE-7. DTSBR731 00139 10 FILLER PIC X(13) VALUE SPACES. DTSBR731 00140 10 FILLER PIC X(08) DTSBR731 00141 VALUE 'EMPLOYER'. DTSBR731 00142 10 FILLER PIC X(17) VALUE SPACES. DTSBR731 00143 10 FILLER PIC X(14) DTSBR731 00144 VALUE 'PRIMARY NAME/'. DTSBR731 00145 10 FILLER PIC X(46) VALUE SPACES. DTSBR731 00146 10 FILLER PIC X(32) DTSBR731 00147 VALUE 'ZIP LIAB INACTIVE PURGE'. DTSBR731 00148 DTSBR731 00149 05 HDR-LINE-8. DTSBR731 00150 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00151 10 FILLER PIC X(18) DTSBR731 00152 VALUE 'EMP NO CLASS'. DTSBR731 00153 10 FILLER PIC X(06) VALUE SPACES. DTSBR731 00154 10 FILLER PIC X(40) DTSBR731 00155 VALUE 'TAX ALTERNATE NAME/BENEFIT ALTERNATE NAM'. DTSBR731 00156 10 FILLER PIC X(14) DTSBR731 00157 VALUE 'E CITY/STATE'. DTSBR731 00158 10 FILLER PIC X(18) VALUE SPACES. DTSBR731 00159 10 FILLER PIC X(33) DTSBR731 00160 VALUE 'CODE DATE DATE DATE'. DTSBR731 00161 DTSBR731 00162 05 HDR-LINE-9 PIC X(133) VALUE SPACES. DTSBR731 00163 DTSBR731 00164 01 DETAIL-LINE. DTSBR731 00165 05 DTL-LINE-1. DTSBR731 00166 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00167 10 DTL-EMP-NO PIC 999B999. DTSBR731 00168 * SOURCE R731-EMP-NO. DTSBR731 00169 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00170 10 WS-EMP-CLASS-DSCR PIC X(13). DTSBR731 00171 * SOURCE WS-EMP-CLASS-DSCR. DTSBR731 00172 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00173 10 DTL-NAME PIC X(40). DTSBR731 00174 * SOURCE R731-NAME. DTSBR731 00175 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00176 10 DTL-CITY PIC X(25). DTSBR731 00177 * SOURCE R731-CITY. DTSBR731 00178 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00179 10 DTL-ST PIC X(02). DTSBR731 00180 * SOURCE R731-ST. DTSBR731 00181 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00182 10 DTL-ZIP-FIRST5 PIC X(05). DTSBR731 00183 * SOURCE R731-ZIP-FIRST5. DTSBR731 00184 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00185 10 WS-LIAB-DATE PIC X(08). DTSBR731 00186 * SOURCE WS-LIAB-DATE. DTSBR731 00187 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00188 10 WS-INACT-DATE PIC X(08). DTSBR731 00189 * SOURCE WS-INACT-DATE. DTSBR731 00190 10 FILLER PIC X(02) VALUE SPACES. DTSBR731 00191 10 WS-PURGE-DATE PIC X(08). DTSBR731 00192 * SOURCE WS-PURGE-DATE. DTSBR731 00193 DTSBR731 00194 01 CONTROL-FOOTING-FINAL. DTSBR731 00195 05 CFF-LINE-3. DTSBR731 00196 10 FILLER PIC X(26) VALUE SPACES. DTSBR731 00197 10 CFF-NUMBER-ONE PIC ZZ,ZZ9. DTSBR731 00198 10 FILLER PIC X(01) VALUE SPACE. DTSBR731 00199 10 FILLER PIC X(15) DTSBR731 00200 VALUE 'PURGED ACCOUNTS'. DTSBR731 00201 DTSBR731 00202 05 CFF-LINE-7. DTSBR731 00203 10 FILLER PIC X(26) VALUE SPACES. DTSBR731 00204 10 FILLER PIC X(17) DTSBR731 00205 VALUE '*** END OF REPORT'. DTSBR731 00206 DTSBR731 00207 EJECT DTSBR731 00208 LINKAGE SECTION. DTSBR731 00209 DTSBR731 00210 01 LRCM-LINK-AREA. DTSBR731 00211 ++INCLUDE DTSILRCM DTSBR731 00212 EJECT DTSBR731 00213 01 R731-REC. DTSBR731 00214 ++INCLUDE DTSIR731 DTSBR731 00215 EJECT DTSBR731 00216 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR731 00217 R731-REC. DTSBR731 00218 DTSBR731 00219 IF FIRST-TIME-IND = 'Y' DTSBR731 00220 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR731 00221 MOVE 'N' TO FIRST-TIME-IND. DTSBR731 00222 DTSBR731 00223 IF LRCM-EOR-88 DTSBR731 00224 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR731 00225 ELSE DTSBR731 00226 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR731 00227 DTSBR731 00228 GOBACK. DTSBR731 00229 DTSBR731 00230 EJECT DTSBR731 00231 I1000-INITIATE. DTSBR731 00232 DTSBR731 00233 OPEN OUTPUT PRT-FILE. DTSBR731 00234 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR731 00235 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR731 00236 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR731 00237 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR731 00238 MOVE SPACES TO REPORT-LISTING1. DTSBR731 00239 DTSBR731 00240 I1000-EXIT. DTSBR731 00241 EXIT. DTSBR731 00242 DTSBR731 00243 P1000-PROCESS. DTSBR731 00244 DTSBR731 00245 EVALUATE TRUE DTSBR731 00246 WHEN R731-CLASS-REG-88 DTSBR731 00247 MOVE 'REGULAR' TO WS-EMP-CLASS-DSCR DTSBR731 00248 WHEN R731-CLASS-GOV-88 DTSBR731 00249 MOVE 'GOVERNMENTAL' TO WS-EMP-CLASS-DSCR DTSBR731 00250 WHEN R731-CLASS-REIMB-88 DTSBR731 00251 MOVE 'REIMBURSABLE' TO WS-EMP-CLASS-DSCR DTSBR731 00252 WHEN R731-CLASS-NEVER-SUB-88 DTSBR731 00253 MOVE 'NEVER SUBJECT' TO WS-EMP-CLASS-DSCR DTSBR731 00254 END-EVALUATE. DTSBR731 00255 DTSBR731 00256 MOVE R731-LIAB-DATE TO L001-FED-8-DATE-9. DTSBR731 00257 SET L001-FROM-FED-8 TO TRUE. DTSBR731 00258 PERFORM S001-DATE THRU S001-EXIT. DTSBR731 00259 IF L001-INVALID-DATE DTSBR731 00260 MOVE SPACES TO WS-LIAB-DATE DTSBR731 00261 ELSE DTSBR731 00262 MOVE L001-SLASH-DATE TO WS-LIAB-DATE. DTSBR731 00263 DTSBR731 00264 MOVE R731-INACT-DATE TO L001-FED-8-DATE-9. DTSBR731 00265 SET L001-FROM-FED-8 TO TRUE. DTSBR731 00266 PERFORM S001-DATE THRU S001-EXIT. DTSBR731 00267 IF L001-INVALID-DATE DTSBR731 00268 MOVE SPACES TO WS-INACT-DATE DTSBR731 00269 ELSE DTSBR731 00270 MOVE L001-SLASH-DATE TO WS-INACT-DATE. DTSBR731 00271 DTSBR731 00272 MOVE R731-PURGE-DATE TO L001-FED-8-DATE-9. DTSBR731 00273 SET L001-FROM-FED-8 TO TRUE. DTSBR731 00274 PERFORM S001-DATE THRU S001-EXIT. DTSBR731 00275 IF L001-INVALID-DATE DTSBR731 00276 MOVE SPACES TO WS-PURGE-DATE DTSBR731 00277 ELSE DTSBR731 00278 MOVE L001-SLASH-DATE TO WS-PURGE-DATE. DTSBR731 00279 DTSBR731 00280 MOVE R731-EMP-NO TO DTL-EMP-NO. DTSBR731 00281 MOVE R731-NAME TO DTL-NAME. DTSBR731 00282 MOVE R731-CITY TO DTL-CITY. DTSBR731 00283 MOVE R731-ST TO DTL-ST. DTSBR731 00284 MOVE R731-ZIP-FIRST5 TO DTL-ZIP-FIRST5. DTSBR731 00285 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR731 00286 WRITE REPORT-LISTING1 FROM DTL-LINE-1 AFTER 1. DTSBR731 00287 ADD +1 TO WS-LINE-CNT2. DTSBR731 00288 ADD +1 TO WS-NUMBER-ONE. DTSBR731 00289 DTSBR731 00290 * GENERATE DETAIL-LINE. DTSBR731 00291 DTSBR731 00292 P1000-EXIT. DTSBR731 00293 EXIT. DTSBR731 00294 DTSBR731 00295 P2000-PRINT-HEADER. DTSBR731 00296 DTSBR731 00297 IF WS-LINE-CNT GREATER 58 OR DTSBR731 00298 WS-LINE-CNT2 GREATER 58 DTSBR731 00299 MOVE +0 TO WS-LINE-CNT DTSBR731 00300 MOVE +0 TO WS-LINE-CNT2 DTSBR731 00301 ADD +1 TO WS-PAGE-CNT DTSBR731 00302 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR731 00303 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR731 00304 AFTER TOP-OF-PAGE DTSBR731 00305 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR731 00306 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR731 00307 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR731 00308 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR731 00309 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR731 00310 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR731 00311 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR731 00312 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR731 00313 ADD +9 TO WS-LINE-CNT2. DTSBR731 00314 DTSBR731 00315 P2000-EXIT. DTSBR731 00316 EXIT. DTSBR731 00317 DTSBR731 00318 T1000-TERMINATE. DTSBR731 00319 DTSBR731 00320 IF WS-LINE-CNT2 GREATER 52 DTSBR731 00321 MOVE +0 TO WS-LINE-CNT2 DTSBR731 00322 ADD +1 TO WS-PAGE-CNT DTSBR731 00323 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR731 00324 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR731 00325 AFTER TOP-OF-PAGE DTSBR731 00326 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR731 00327 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR731 00328 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR731 00329 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR731 00330 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR731 00331 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR731 00332 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR731 00333 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR731 00334 ADD +9 TO WS-LINE-CNT2. DTSBR731 00335 DTSBR731 00336 MOVE WS-NUMBER-ONE TO CFF-NUMBER-ONE. DTSBR731 00337 WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3. DTSBR731 00338 WRITE REPORT-LISTING1 FROM CFF-LINE-7 AFTER 4. DTSBR731 00339 DTSBR731 00340 CLOSE PRT-FILE. DTSBR731 00341 DTSBR731 00342 T1000-EXIT. DTSBR731 00343 EXIT. DTSBR731 00344 DTSBR731 00345 S001-DATE. DTSBR731 00346 DTSBR731 00347 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR731 00348 DTSBR731 00349 S001-EXIT. DTSBR731 00350 EXIT. DTSBR731 00351 DTSBR731 00352 *S999-ABEND. DTSBR731 00353 * DTSBR731 00354 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR731 00355 * DTSBR731 00356 *S999-EXIT. DTSBR731 00357 * EXIT. DTSBR731 00358 DTSBR731