00001 IDENTIFICATION DIVISION. 07/29/02 00002 PROGRAM-ID. DTSBR740. DTSBR740 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV022 00004 DATE-WRITTEN. OCTOBER 1996. DTSBR740 00005 DATE-COMPILED. DTSBR740 00006 DTSBR740 00007 ***** DTSBR740 00008 * DTSBR740 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR740 00010 * DTSBE740 WHICH UPDATES DTSIR740 DTSBR740 00011 * DTSBR740 READS DTSIR740 RECORDS. DTSBR740 00012 * DTSBR740 00013 * FUNCTION: ELECTRONIC FILER LIST. DTSBR740 00014 * DTSBR740 00015 * DTSBR740 00016 * MODIFICATION HISTORY: DTSBR740 00017 * DTSBR740 00018 * 10-30-96 INITIAL DEVELOPMENT DTSBR740 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR740 00020 * DTSBR740 00021 * 03-02-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS DTSBR740 00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR740 00023 * DTSBR740 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR740 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR740 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR740 00027 * DTSBR740 00028 * DTSBR740 00029 * DESCRIPTION: DTSBR740 00030 * DTSBR740 00031 * THIS MODULE GENERATES A LIST OF ALL EMPLOYERS WHO ARE DTSBR740 00032 * SET UP AS ELECTRONIC FILERS. DTSBR740 00033 * DTSBR740 00034 * DTSBR740 00035 * RECORDS READ: DTSBR740 00036 * DTSBR740 00037 * NONE. DTSBR740 00038 * DTSBR740 00039 * DTSBR740 00040 * PRINTED OUTPUTS: DTSBR740 00041 * DTSBR740 00042 * 740R1 ELECTRONIC FILERS LIST DTSBR740 00043 * DTSBR740 00044 * DTSBR740 00045 * RECORDS WRITTEN: DTSBR740 00046 * DTSBR740 00047 * NONE. DTSBR740 00048 * DTSBR740 00049 * DTSBR740 00050 * MODULES CALLED: DTSBR740 00051 * DTSBR740 00052 * DTSBR740 00053 * DTSBR740 00054 ***** DTSBR740 00055 EJECT DTSBR740 00056 ENVIRONMENT DIVISION. DTSBR740 00057 DTSBR740 00058 CONFIGURATION SECTION. DTSBR740 00059 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR740 00060 DTSBR740 00061 INPUT-OUTPUT SECTION. DTSBR740 00062 DTSBR740 00063 FILE-CONTROL. DTSBR740 00064 SELECT PRT-FILE ASSIGN TO RPT740R1. DTSBR740 00065 DTSBR740 00066 DATA DIVISION. DTSBR740 00067 DTSBR740 00068 FILE SECTION. DTSBR740 00069 DTSBR740 00070 FD PRT-FILE DTSBR740 00071 RECORDING MODE IS F. DTSBR740 00072 01 REPORT-LISTING1 PIC X(133). DTSBR740 00073 DTSBR740 00074 WORKING-STORAGE SECTION. DTSBR740 000745 77 PAN-VALET PICTURE X(24) VALUE '022DTSBR740 07/29/02'. DTSBR740 00075 DTSBR740 00076 01 WRK-AREA. DTSBR740 00077 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +740.DTSBR740 00078 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR740 00079 05 WS-EMP-STATUS-HOLD PIC X(01) VALUE '1'. DTSBR740 00080 05 WS-MEDIA-TYPE-CD-HOLD PIC X(01) VALUE 'C'. DTSBR740 00081 05 WS-YRQ-DATE PIC X(08). DTSBR740 00082 05 WS-MEDIA-TYPE PIC X(09) DTSBR740 00083 VALUE 'CARTRIDGE'. DTSBR740 00084 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR740 00085 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR740 00086 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR740 00087 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR740 00088 DTSBR740 00089 EJECT DTSBR740 00090 01 L001-LINK-AREA. DTSBR740 00091 ++INCLUDE DTSIL001 DTSBR740 00092 EJECT DTSBR740 00093 01 L004-LINK-AREA. DTSBR740 00094 ++INCLUDE DTSIL004 DTSBR740 00095 EJECT DTSBR740 00096 DTSBR740 00097 01 PAGE-HEADING. DTSBR740 00098 05 HDR-LINE-1. DTSBR740 00099 10 FILLER PIC X(05) VALUE SPACES. DTSBR740 00100 10 FILLER PIC X(05) DTSBR740 00101 VALUE '740R1'. DTSBR740 00102 10 FILLER PIC X(13) VALUE SPACES. DTSBR740 00103 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR740 00104 10 FILLER PIC X(08) VALUE SPACES. DTSBR740 00105 10 FILLER PIC X(05) DTSBR740 00106 VALUE 'DATE:'. DTSBR740 00107 10 FILLER PIC X(01) VALUE SPACE. DTSBR740 00108 10 HDR-SYS-DATE PIC X(08). DTSBR740 00109 DTSBR740 00110 05 HDR-LINE-2. DTSBR740 00111 10 FILLER PIC X(23) VALUE SPACES. DTSBR740 00112 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR740 00113 10 FILLER PIC X(08) VALUE SPACES. DTSBR740 00114 10 FILLER PIC X(05) DTSBR740 00115 VALUE 'TIME:'. DTSBR740 00116 10 FILLER PIC X(01) VALUE SPACE. DTSBR740 00117 10 HDR-SYS-TIME PIC X(08). DTSBR740 00118 DTSBR740 00119 05 HDR-LINE-3. DTSBR740 00120 10 FILLER PIC X(05) VALUE SPACES. DTSBR740 00121 10 FILLER PIC X(39) DTSBR740 00122 VALUE 'ROUTE TO: CHIEF, TAX DIVISON '. DTSBR740 00123 10 FILLER PIC X(37) VALUE SPACES. DTSBR740 00124 10 FILLER PIC X(05) DTSBR740 00125 VALUE 'PAGE:'. DTSBR740 00126 10 FILLER PIC X(03) VALUE SPACES. DTSBR740 00127 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR740 00128 DTSBR740 00129 05 HDR-LINE-4. DTSBR740 00130 10 FILLER PIC X(38) VALUE SPACES. DTSBR740 00131 10 FILLER PIC X(21) DTSBR740 00132 VALUE 'ELECTRONIC FILER LIST'. DTSBR740 00133 DTSBR740 00134 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR740 00135 DTSBR740 00136 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR740 00137 DTSBR740 00138 05 HDR-LINE-7. DTSBR740 00139 10 FILLER PIC X(69) VALUE SPACES. DTSBR740 00140 10 FILLER PIC X(08) DTSBR740 00141 VALUE 'YEAR '. DTSBR740 00142 10 FILLER PIC X(12) VALUE SPACES. DTSBR740 00143 10 FILLER PIC X(08) DTSBR740 00144 VALUE 'TYPE OF '. DTSBR740 00145 DTSBR740 00146 05 HDR-LINE-8. DTSBR740 00147 10 FILLER PIC X(05) VALUE SPACES. DTSBR740 00148 10 FILLER PIC X(06) DTSBR740 00149 VALUE 'EMP NO'. DTSBR740 00150 10 FILLER PIC X(07) VALUE SPACES. DTSBR740 00151 10 FILLER PIC X(13) DTSBR740 00152 VALUE 'PRIMARY NAME'. DTSBR740 00153 10 FILLER PIC X(38) VALUE SPACES. DTSBR740 00154 10 FILLER PIC X(08) DTSBR740 00155 VALUE 'QTR '. DTSBR740 00156 10 FILLER PIC X(12) VALUE SPACES. DTSBR740 00157 10 FILLER PIC X(06) DTSBR740 00158 VALUE 'MEDIUM'. DTSBR740 00159 DTSBR740 00160 05 HDR-LINE-9 PIC X(133) VALUE SPACES. DTSBR740 00161 DTSBR740 00162 01 REPORT-DETAIL. DTSBR740 00163 05 DTL-LINE-1. DTSBR740 00164 10 FILLER PIC X(05) VALUE SPACES. DTSBR740 00165 10 DTL-EMP-NO PIC 999B999. DTSBR740 00166 10 FILLER PIC X(06) VALUE SPACES. DTSBR740 00167 10 DTL-PRIMARY-NAME PIC X(40) VALUE SPACES. DTSBR740 00168 10 FILLER PIC X(11) VALUE SPACES. DTSBR740 00169 10 DTL-YRQ-DATE PIC X(08) VALUE SPACES. DTSBR740 00170 10 FILLER PIC X(12) VALUE SPACES. DTSBR740 00171 10 DTL-MEDIA-TYPE PIC X(10) VALUE SPACES. DTSBR740 00172 DTSBR740 00173 *01 TYPE IS CONTROL FOOTING R740-EMP-NO DTSBR740 00174 * NEXT GROUP IS NEXT PAGE. DTSBR740 00175 DTSBR740 00176 01 CONTROL-FOOTING-FINAL. DTSBR740 00177 05 CFF-LINE-5. DTSBR740 00178 10 FILLER PIC X(51) VALUE SPACES. DTSBR740 00179 10 CFF-SUM-REC-CNT PIC ZZZ,ZZ9. DTSBR740 00180 10 FILLER PIC X(01) VALUE SPACES. DTSBR740 00181 10 FILLER PIC X(24) DTSBR740 00182 VALUE 'EMPLOYEES ON LIST '. DTSBR740 00183 EJECT DTSBR740 00184 LINKAGE SECTION. DTSBR740 00185 SKIP3 DTSBR740 00186 01 LRCM-LINK-AREA. DTSBR740 00187 ++INCLUDE DTSILRCM DTSBR740 00188 EJECT DTSBR740 00189 01 R740-REC. DTSBR740 00190 ++INCLUDE DTSIR740 DTSBR740 00191 EJECT DTSBR740 00192 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR740 00193 R740-REC. DTSBR740 00194 DTSBR740 00195 IF FIRST-TIME-IND = 'Y' DTSBR740 00196 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR740 00197 MOVE 'N' TO FIRST-TIME-IND. DTSBR740 00198 DTSBR740 00199 IF LRCM-EOR-88 DTSBR740 00200 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR740 00201 ELSE DTSBR740 00202 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR740 00203 DTSBR740 00204 GOBACK. DTSBR740 00205 DTSBR740 00206 EJECT DTSBR740 00207 I1000-INITIATE. DTSBR740 00208 DTSBR740 00209 OPEN OUTPUT PRT-FILE. DTSBR740 00210 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR740 00211 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR740 00212 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR740 00213 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR740 00214 MOVE SPACES TO REPORT-LISTING1. DTSBR740 00215 DTSBR740 00216 I1000-EXIT. DTSBR740 00217 EXIT. DTSBR740 00218 DTSBR740 00219 P1000-PROCESS. DTSBR740 00220 DTSBR740 00221 IF R740-MEDIA-TYPE-CD NOT = WS-MEDIA-TYPE-CD-HOLD DTSBR740 00222 MOVE R740-MEDIA-TYPE-CD TO WS-MEDIA-TYPE-CD-HOLD DTSBR740 00223 EVALUATE TRUE DTSBR740 00224 WHEN R740-MEDIA-CARTRIDGE-88 DTSBR740 00225 MOVE 'CARTRIDGE' TO WS-MEDIA-TYPE DTSBR740 00226 WHEN R740-MEDIA-DISKETTE-88 DTSBR740 00227 MOVE 'DISKETTE ' TO WS-MEDIA-TYPE DTSBR740 00228 WHEN R740-MEDIA-MODEM-88 DTSBR740 00229 MOVE 'MODEM ' TO WS-MEDIA-TYPE DTSBR740 00230 WHEN R740-MEDIA-PAPER-88 DTSBR740 00231 MOVE 'PAPER ' TO WS-MEDIA-TYPE DTSBR740 00232 WHEN R740-MEDIA-TAPE-88 DTSBR740 00233 MOVE 'TAPE ' TO WS-MEDIA-TYPE DTSBR740 00234 END-EVALUATE. DTSBR740 00235 DTSBR740 00236 IF R740-WAGE-YES-88 DTSBR740 00237 MOVE WS-MEDIA-TYPE TO DTL-MEDIA-TYPE. DTSBR740 00238 DTSBR740 00239 *** SET L001-FROM-FED-8 TO TRUE. DTSBR740 00240 *** PERFORM S001-DATE THRU S001-EXIT. DTSBR740 00241 *** IF L001-INVALID-DATE DTSBR740 00242 *** MOVE SPACES TO WS-LIAB-DATE DTSBR740 00243 *** ELSE DTSBR740 00244 *** MOVE L001-SLASH-DATE TO WS-LIAB-DATE. DTSBR740 00245 DTSBR740 00246 MOVE R740-WAGE-BEGIN-YRQ TO L004-QTR-5-9. DTSBR740 00247 DTSBR740 00248 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR740 00249 MOVE L004-SLASH-QTR TO WS-YRQ-DATE. DTSBR740 00250 DTSBR740 00251 IF R740-WAGE-YES-88 DTSBR740 00252 MOVE WS-YRQ-DATE TO DTL-YRQ-DATE. DTSBR740 00253 DTSBR740 00254 MOVE R740-EMP-NO TO DTL-EMP-NO. DTSBR740 00255 MOVE R740-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR740 00256 DTSBR740 00257 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR740 00258 WRITE REPORT-LISTING1 FROM DTL-LINE-1 AFTER 1. DTSBR740 00259 ADD +1 TO WS-LINE-CNT2. DTSBR740 00260 ADD +1 TO WS-NUMBER-ONE. DTSBR740 00261 DTSBR740 00262 * GENERATE REPORT-DETAIL. DTSBR740 00263 DTSBR740 00264 P1000-EXIT. DTSBR740 00265 EXIT. DTSBR740 00266 DTSBR740 00267 P2000-PRINT-HEADER. DTSBR740 00268 DTSBR740 00269 IF WS-LINE-CNT GREATER 56 OR DTSBR740 00270 WS-LINE-CNT2 GREATER 56 DTSBR740 00271 MOVE +0 TO WS-LINE-CNT DTSBR740 00272 MOVE +0 TO WS-LINE-CNT2 DTSBR740 00273 ADD +1 TO WS-PAGE-CNT DTSBR740 00274 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR740 00275 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR740 00276 AFTER TOP-OF-PAGE DTSBR740 00277 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR740 00278 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR740 00279 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR740 00280 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR740 00281 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR740 00282 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR740 00283 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR740 00284 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR740 00285 ADD +9 TO WS-LINE-CNT2. DTSBR740 00286 DTSBR740 00287 P2000-EXIT. DTSBR740 00288 EXIT. DTSBR740 00289 DTSBR740 00290 T1000-TERMINATE. DTSBR740 00291 DTSBR740 00292 IF WS-LINE-CNT2 GREATER 52 DTSBR740 00293 ADD +10 TO WS-LINE-CNT2 DTSBR740 00294 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR740 00295 DTSBR740 00296 MOVE WS-NUMBER-ONE TO CFF-SUM-REC-CNT. DTSBR740 00297 WRITE REPORT-LISTING1 FROM CFF-LINE-5 AFTER 5. DTSBR740 00298 DTSBR740 00299 CLOSE PRT-FILE. DTSBR740 00300 DTSBR740 00301 T1000-EXIT. DTSBR740 00302 EXIT. DTSBR740 00303 * DTSBR740 00304 *S001-DATE. DTSBR740 00305 ** DTSBR740 00306 ** CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR740 00307 ** DTSBR740 00308 *S001-EXIT. DTSBR740 00309 ** EXIT. DTSBR740 00310 DTSBR740 00311 S004-FROM-5. DTSBR740 00312 SET L004-FROM-5 TO TRUE. DTSBR740 00313 GO TO S004-YRQ. DTSBR740 00314 DTSBR740 00315 *S004-FROM-ABS. DTSBR740 00316 ** SET L004-FROM-ABS TO TRUE. DTSBR740 00317 ** GO TO S004-YRQ. DTSBR740 00318 DTSBR740 00319 S004-YRQ. DTSBR740 00320 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR740 00321 S004-EXIT. DTSBR740 00322 EXIT. DTSBR740 00323 DTSBR740 00324 *S999-ABEND. DTSBR740 00325 * DTSBR740 00326 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR740 00327 * DTSBR740 00328 *S999-EXIT. DTSBR740 00329 * EXIT. DTSBR740 00330 DTSBR740