00001 IDENTIFICATION DIVISION. 05/16/02 00002 PROGRAM-ID. DTSBR908. DTSBR908 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV018 00004 DATE-WRITTEN. NOVEMBER 1994. DTSBR908 00005 DATE-COMPILED. DTSBR908 00006 DTSBR908 00007 ***** DTSBR908 00008 * DTSBR908 00009 * CALLING SEQUENCE: DTSBE351 WRITES DTSIR908 RECORDS DTSBR908 00010 * DTSBD800 CALLS DTSBR908 WHICH DTSBR908 00011 * PRODUCES THE UC30 TOTALS REPORT DTSBR908 00012 * DTSBR908 00013 * FUNCTION: UC30 COUNTS REPORT. DTSBR908 00014 * DTSBR908 00015 * DTSBR908 00016 * MODIFICATION HISTORY: DTSBR908 00017 * DTSBR908 00018 * 11-25-94 INITIAL DEVELOPMENT DTSBR908 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR908 00020 * DTSBR908 00021 * 12-02-96 ADDED UI-5E COUNTS TO THE REPORT FOR ELECTRONIC DTSBR908 00022 * FILERS (ALSO KNOWN AS 'ELF'). ALSO COMMENTED OUT DTSBR908 00023 * THE RW CONTROL STATEMENT SINCE COMPILER DIDN'T LIKE IT.DTSBR908 00024 * REFERENCE RFP #WARP II PROGRAMMER: MJA DTSBR908 00025 * DTSBR908 00026 * 03-30-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. DTSBR908 00027 * REFERENCE RFP #**** PROGRAMMER: DVS DTSBR908 00028 * DTSBR908 00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR908 00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR908 00031 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR908 00032 * DTSBR908 00033 * DTSBR908 00034 * DESCRIPTION: DTSBR908 00035 * DTSBR908 00036 * THIS MODULE LISTS THE TOTAL NUMBER OF EMPLOYERS FOR DTSBR908 00037 * WHICH UC30 FORMS WERE GENERATED IN THE QUARTERLY MASS DTSBR908 00038 * MAILING AND THE TOTAL NUMBER OF FORMS GENERATED BROKEN DTSBR908 00039 * DOWN BY EMPLOYER CLASS. DTSBR908 00040 * DTSBR908 00041 * DTSBR908 00042 * RECORDS READ: DTSBR908 00043 * DTSBR908 00044 * NONE. DTSBR908 00045 * DTSBR908 00046 * DTSBR908 00047 * PRINTED OUTPUTS: DTSBR908 00048 * DTSBR908 00049 * 908R1 UC30 TOTALS REPORT DTSBR908 00050 * DTSBR908 00051 * DTSBR908 00052 * RECORDS WRITTEN: DTSBR908 00053 * DTSBR908 00054 * NONE. DTSBR908 00055 * DTSBR908 00056 * DTSBR908 00057 * MODULES CALLED: DTSBR908 00058 * DTSBR908 00059 * NONE DTSBR908 00060 * DTSBR908 00061 * DTSBR908 00062 ***** DTSBR908 00063 EJECT DTSBR908 00064 ENVIRONMENT DIVISION. DTSBR908 00065 DTSBR908 00066 CONFIGURATION SECTION. DTSBR908 00067 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR908 00068 DTSBR908 00069 INPUT-OUTPUT SECTION. DTSBR908 00070 DTSBR908 00071 FILE-CONTROL. DTSBR908 00072 SELECT PRT-FILE ASSIGN TO RPT908R1. DTSBR908 00073 DTSBR908 00074 DATA DIVISION. DTSBR908 00075 DTSBR908 00076 FILE SECTION. DTSBR908 00077 DTSBR908 00078 FD PRT-FILE DTSBR908 00079 RECORDING MODE IS F. DTSBR908 00080 01 REPORT-LISTING1 PIC X(133). DTSBR908 00081 DTSBR908 00082 WORKING-STORAGE SECTION. DTSBR908 000825 77 PAN-VALET PICTURE X(24) VALUE '018DTSBR908 05/16/02'. DTSBR908 00083 DTSBR908 00084 01 WRK-AREA. DTSBR908 00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +908.DTSBR908 00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR908 00087 05 WS-YRQ PIC 9(05). DTSBR908 00088 05 WS-LAST-EMP-NO PIC S9(07) COMP-3. DTSBR908 00089 05 WS-RATED-EMP-COUNT PIC S9(07) COMP-3. DTSBR908 00090 05 WS-SELF-INS-EMP-COUNT PIC S9(07) COMP-3. DTSBR908 00091 05 WS-TOT-EMP-COUNT PIC S9(07) COMP-3. DTSBR908 00092 05 WS-RATED-UC30-COUNT PIC S9(07) COMP-3. DTSBR908 00093 05 WS-SELF-INS-UC30-COUNT PIC S9(07) COMP-3. DTSBR908 00094 05 WS-TOT-UC30-COUNT PIC S9(07) COMP-3. DTSBR908 00095 DTSBR908 00096 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR908 00097 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR908 00098 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR908 00099 DTSBR908 00100 05 WS-RATED-EMP-5E-COUNT PIC S9(07) COMP-3. DTSBR908 00101 05 WS-SELF-INS-EMP-5E-COUNT PIC S9(07) COMP-3. DTSBR908 00102 05 WS-TOT-EMP-5E-COUNT PIC S9(07) COMP-3. DTSBR908 00103 05 WS-RATED-UC30E-COUNT PIC S9(07) COMP-3. DTSBR908 00104 05 WS-SELF-INS-UC30E-COUNT PIC S9(07) COMP-3. DTSBR908 00105 05 WS-TOT-UC30E-COUNT PIC S9(07) COMP-3. DTSBR908 00106 DTSBR908 00107 05 WS-RPT-TOT-EMP-COUNT PIC S9(07) COMP-3. DTSBR908 00108 05 WS-RPT-TOT-FORMS-COUNT PIC S9(07) COMP-3. DTSBR908 00109 DTSBR908 00110 01 PAGE-HEADING. DTSBR908 00111 05 HDR1-LINE-1. DTSBR908 00112 10 FILLER PIC X(04) VALUE SPACES. DTSBR908 00113 10 FILLER PIC X(05) DTSBR908 00114 VALUE '908R1'. DTSBR908 00115 10 FILLER PIC X(22) VALUE SPACES. DTSBR908 00116 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR908 00117 10 FILLER PIC X(09) VALUE SPACES. DTSBR908 00118 10 FILLER PIC X(05) DTSBR908 00119 VALUE 'DATE:'. DTSBR908 00120 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00121 10 HDR1-SYS-DATE PIC X(08). DTSBR908 00122 05 HDR1-LINE-2. DTSBR908 00123 10 FILLER PIC X(32) VALUE SPACES. DTSBR908 00124 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR908 00125 10 FILLER PIC X(08) VALUE SPACES. DTSBR908 00126 10 FILLER PIC X(05) DTSBR908 00127 VALUE 'TIME:'. DTSBR908 00128 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00129 10 HDR1-SYS-TIME PIC X(08). DTSBR908 00130 05 HDR1-LINE-3. DTSBR908 00131 10 FILLER PIC X(04) VALUE SPACES. DTSBR908 00132 10 FILLER PIC X(30) DTSBR908 00133 VALUE 'ROUTE TO: ENFORCEMENT UNIT '. DTSBR908 00134 10 FILLER PIC X(56) VALUE SPACES. DTSBR908 00135 10 FILLER PIC X(05) DTSBR908 00136 VALUE 'PAGE:'. DTSBR908 00137 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00138 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR908 00139 05 HDR1-LINE-4 PIC X(133) VALUE SPACES. DTSBR908 00140 05 HDR1-LINE-5 PIC X(133) VALUE SPACES. DTSBR908 00141 05 HDR1-LINE-6. DTSBR908 00142 10 FILLER PIC X(04) VALUE SPACES. DTSBR908 00143 10 FILLER PIC X(11) DTSBR908 00144 VALUE 'QUARTER: '. DTSBR908 00145 10 HDR1-YRQ PIC 99/9. DTSBR908 00146 DTSBR908 00147 01 DETAIL-LINE. DTSBR908 00148 05 DTL1-LINE-10. DTSBR908 00149 10 FILLER PIC X(44) VALUE SPACES. DTSBR908 00150 10 FILLER PIC X(21) DTSBR908 00151 VALUE ' UC30 OUTPUT TOTALS '. DTSBR908 00152 05 DTL1-LINE-13. DTSBR908 00153 10 FILLER PIC X(18) VALUE SPACES. DTSBR908 00154 10 FILLER PIC X(17) DTSBR908 00155 VALUE 'EMPLOYER ACCOUNTS'. DTSBR908 00156 10 FILLER PIC X(35) VALUE SPACES. DTSBR908 00157 10 FILLER PIC X(15) DTSBR908 00158 VALUE 'FORMS GENERATED'. DTSBR908 00159 05 DTL1-LINE-16. DTSBR908 00160 10 FILLER PIC X(18) VALUE SPACES. DTSBR908 00161 10 DTL1-RATED-EMP-COUNT PIC ZZ,ZZ9. DTSBR908 00162 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00163 10 FILLER PIC X(07) DTSBR908 00164 VALUE 'RATED'. DTSBR908 00165 10 FILLER PIC X(38) VALUE SPACES. DTSBR908 00166 10 DTL1-RATED-UC30-COUNT PIC ZZ,ZZ9. DTSBR908 00167 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00168 10 FILLER PIC X(14) DTSBR908 00169 VALUE 'RATED UC30''S'. DTSBR908 00170 05 DTL1-LINE-17. DTSBR908 00171 10 FILLER PIC X(18) VALUE SPACES. DTSBR908 00172 10 DTL1-SELF-INS-EMP-COUNT PIC ZZ,ZZ9. DTSBR908 00173 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00174 10 FILLER PIC X(12) DTSBR908 00175 VALUE 'SELF-INSURED'. DTSBR908 00176 10 FILLER PIC X(33) VALUE SPACES. DTSBR908 00177 10 DTL1-SELF-INS-UC30-COUNT PIC ZZ,ZZ9. DTSBR908 00178 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00179 10 FILLER PIC X(21) DTSBR908 00180 VALUE 'SELF-INSURED UC30''S'. DTSBR908 00181 05 DTL1-LINE-20. DTSBR908 00182 10 FILLER PIC X(18) VALUE SPACES. DTSBR908 00183 10 DTL1-TOT-EMP-COUNT PIC ZZ,ZZ9. DTSBR908 00184 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00185 10 FILLER PIC X(23) DTSBR908 00186 VALUE 'TOTAL ACCOUNTS INCLUDED'. DTSBR908 00187 10 FILLER PIC X(22) VALUE SPACES. DTSBR908 00188 10 DTL1-TOT-UC30-COUNT PIC ZZ,ZZ9. DTSBR908 00189 10 FILLER PIC X(01) VALUE SPACE. DTSBR908 00190 10 FILLER PIC X(21) DTSBR908 00191 VALUE 'TOTAL FORMS GENERATED'. DTSBR908 00192 EJECT DTSBR908 00193 LINKAGE SECTION. DTSBR908 00194 DTSBR908 00195 01 LRCM-LINK-AREA. DTSBR908 00196 ++INCLUDE DTSILRCM DTSBR908 00197 EJECT DTSBR908 00198 01 R908-REC. DTSBR908 00199 ++INCLUDE DTSIR908 DTSBR908 00200 EJECT DTSBR908 00201 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR908 00202 R908-REC. DTSBR908 00203 DTSBR908 00204 IF FIRST-TIME-IND = 'Y' DTSBR908 00205 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR908 00206 MOVE 'N' TO FIRST-TIME-IND. DTSBR908 00207 DTSBR908 00208 IF LRCM-EOR-88 DTSBR908 00209 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR908 00210 ELSE DTSBR908 00211 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR908 00212 DTSBR908 00213 GOBACK. DTSBR908 00214 EJECT DTSBR908 00215 I1000-INITIATE. DTSBR908 00216 DTSBR908 00217 MOVE R908-YRQ TO WS-YRQ. DTSBR908 00218 MOVE WS-YRQ (3:3) TO HDR1-YRQ. DTSBR908 00219 MOVE ZEROES TO WS-LAST-EMP-NO DTSBR908 00220 WS-RATED-EMP-COUNT WS-SELF-INS-EMP-COUNT DTSBR908 00221 WS-RATED-UC30-COUNT WS-SELF-INS-UC30-COUNT DTSBR908 00222 WS-TOT-EMP-COUNT WS-TOT-UC30-COUNT DTSBR908 00223 DTSBR908 00224 OPEN OUTPUT PRT-FILE. DTSBR908 00225 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE. DTSBR908 00226 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME. DTSBR908 00227 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1. DTSBR908 00228 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2. DTSBR908 00229 MOVE SPACES TO REPORT-LISTING1. DTSBR908 00230 DTSBR908 00231 I1000-EXIT. DTSBR908 00232 EXIT. DTSBR908 00233 EJECT DTSBR908 00234 P1000-PROCESS. DTSBR908 00235 DTSBR908 00236 IF R908-EMP-NO NOT = WS-LAST-EMP-NO DTSBR908 00237 MOVE R908-EMP-NO TO WS-LAST-EMP-NO DTSBR908 00238 END-IF. DTSBR908 00239 EVALUATE TRUE DTSBR908 00240 WHEN R908-EMP-CLASS-RATED-88 DTSBR908 00241 ADD +1 TO WS-RATED-EMP-COUNT DTSBR908 00242 ADD +1 TO WS-RATED-UC30-COUNT DTSBR908 00243 WHEN R908-EMP-CLASS-SELF-INS-88 DTSBR908 00244 ADD +1 TO WS-SELF-INS-EMP-COUNT DTSBR908 00245 ADD +1 TO WS-SELF-INS-UC30-COUNT DTSBR908 00246 END-EVALUATE. DTSBR908 00247 DTSBR908 00248 P1000-EXIT. DTSBR908 00249 EXIT. DTSBR908 00250 DTSBR908 00251 P2000-PRINT-HEADER. DTSBR908 00252 DTSBR908 00253 IF WS-LINE-CNT GREATER 58 OR DTSBR908 00254 WS-LINE-CNT2 GREATER 58 DTSBR908 00255 MOVE +0 TO WS-LINE-CNT DTSBR908 00256 MOVE +0 TO WS-LINE-CNT2 DTSBR908 00257 ADD +1 TO WS-PAGE-CNT DTSBR908 00258 MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT DTSBR908 00259 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 DTSBR908 00260 AFTER TOP-OF-PAGE DTSBR908 00261 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DTSBR908 00262 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DTSBR908 00263 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DTSBR908 00264 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1 DTSBR908 00265 WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1 DTSBR908 00266 ADD +6 TO WS-LINE-CNT2. DTSBR908 00267 DTSBR908 00268 P2000-EXIT. DTSBR908 00269 EXIT. DTSBR908 00270 DTSBR908 00271 T1000-TERMINATE. DTSBR908 00272 DTSBR908 00273 ADD WS-RATED-EMP-COUNT WS-SELF-INS-EMP-COUNT DTSBR908 00274 GIVING WS-TOT-EMP-COUNT. DTSBR908 00275 ADD WS-RATED-UC30-COUNT WS-SELF-INS-UC30-COUNT DTSBR908 00276 GIVING WS-TOT-UC30-COUNT. DTSBR908 00277 DTSBR908 00278 * ADD WS-RATED-EMP-5E-COUNT WS-GOVT-EMP-5E-COUNT DTSBR908 00279 * WS-SELF-INS-EMP-5E-COUNT DTSBR908 00280 * GIVING WS-TOT-EMP-5E-COUNT. DTSBR908 00281 * ADD WS-RATED-UC30E-COUNT WS-GOVT-UC30E-COUNT WS-SELF-INS-UC30DTSBR908 00282 * GIVING WS-TOT-UC30E-COUNT. DTSBR908 00283 * SKIP1 DTSBR908 00284 * ADD WS-TOT-EMP-COUNT WS-TOT-EMP-5E-COUNT DTSBR908 00285 * GIVING WS-RPT-TOT-EMP-COUNT. DTSBR908 00286 * ADD WS-TOT-UC30-COUNT WS-TOT-UC30E-COUNT DTSBR908 00287 * GIVING WS-RPT-TOT-FORMS-COUNT. DTSBR908 00288 DTSBR908 00289 MOVE WS-RATED-EMP-COUNT TO DTL1-RATED-EMP-COUNT. DTSBR908 00290 MOVE WS-RATED-UC30-COUNT TO DTL1-RATED-UC30-COUNT. DTSBR908 00291 MOVE WS-SELF-INS-EMP-COUNT TO DTL1-SELF-INS-EMP-COUNT. DTSBR908 00292 MOVE WS-SELF-INS-UC30-COUNT TO DTL1-SELF-INS-UC30-COUNT. DTSBR908 00293 MOVE WS-TOT-EMP-COUNT TO DTL1-TOT-EMP-COUNT. DTSBR908 00294 MOVE WS-TOT-UC30-COUNT TO DTL1-TOT-UC30-COUNT. DTSBR908 00295 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR908 00296 WRITE REPORT-LISTING1 FROM DTL1-LINE-10 AFTER 4. DTSBR908 00297 WRITE REPORT-LISTING1 FROM DTL1-LINE-13 AFTER 3. DTSBR908 00298 WRITE REPORT-LISTING1 FROM DTL1-LINE-16 AFTER 3. DTSBR908 00299 WRITE REPORT-LISTING1 FROM DTL1-LINE-17 AFTER 1. DTSBR908 00300 WRITE REPORT-LISTING1 FROM DTL1-LINE-20 AFTER 3. DTSBR908 00301 ADD +14 TO WS-LINE-CNT2. DTSBR908 00302 DTSBR908 00303 CLOSE PRT-FILE. DTSBR908 00304 DTSBR908 00305 T1000-EXIT. DTSBR908 00306 EXIT. DTSBR908 00307 DTSBR908 00308 *S999-ABEND. DTSBR908 00309 * DTSBR908 00310 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR908 00311 * DTSBR908 00312 *S999-EXIT. DTSBR908 00313 * EXIT. DTSBR908 00314 DTSBR908