00001 IDENTIFICATION DIVISION. 08/09/02 00002 PROGRAM-ID. DTSBR905. DTSBR905 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV005 00004 DATE-WRITTEN. OCTOBER 1994. DTSBR905 00005 DATE-COMPILED. DTSBR905 00006 SKIP3 DTSBR905 00007 ***** DTSBR905 00008 * DTSBR905 00009 * FUNCTION: RECOVERY/RESTART REPORT DTSBR905 00010 * DTSBR905 00011 * DTSBR905 00012 * MODIFICATION HISTORY: DTSBR905 00013 * DTSBR905 00014 * 10-31-94 INITIAL DEVELOPMENT DTSBR905 00015 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR905 00016 * DTSBR905 00017 * 10/06/1998 REVIEWED AND MODIFIED FOR DC. DTSBR905 00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBR905 00019 * DTSBR905 00020 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR905 00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR905 00022 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBR905 00023 * DTSBR905 00024 * DTSBR905 00025 * DESCRIPTION: DTSBR905 00026 * DTSBR905 00027 * THIS MODULE REPORTS ON EMPLOYERS WHOSE RECORDS ARE DTSBR905 00028 * LOCKED AGAINST UPDATE OR CHANGES IN THE LOCKED STATUS DTSBR905 00029 * OF EMPLOYER RECORDS. DTSBR905 00030 * DTSBR905 00031 * DTSBR905 00032 * RECORDS READ: DTSBR905 00033 * DTSBR905 00034 * NONE. DTSBR905 00035 * DTSBR905 00036 * DTSBR905 00037 * PRINTED OUTPUTS: DTSBR905 00038 * DTSBR905 00039 * 905R1 ONLINE RECOVERY/RESTART REPORT DTSBR905 00040 * DTSBR905 00041 * DTSBR905 00042 * RECORDS WRITTEN: DTSBR905 00043 * DTSBR905 00044 * NONE. DTSBR905 00045 * DTSBR905 00046 * DTSBR905 00047 * MODULES CALLED: DTSBR905 00048 * DTSBR905 00049 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR905 00050 * DTSBU010 TIME VALIDATE/FORMAT MODULE DTSBR905 00051 * DTSBR905 00052 * DTSBR905 00053 ***** DTSBR905 00054 EJECT DTSBR905 00055 ENVIRONMENT DIVISION. DTSBR905 00056 DTSBR905 00057 CONFIGURATION SECTION. DTSBR905 00058 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR905 00059 DTSBR905 00060 INPUT-OUTPUT SECTION. DTSBR905 00061 DTSBR905 00062 FILE-CONTROL. DTSBR905 00063 SELECT PRT-FILE ASSIGN TO RPT905R1. DTSBR905 00064 DTSBR905 00065 DATA DIVISION. DTSBR905 00066 DTSBR905 00067 FILE SECTION. DTSBR905 00068 DTSBR905 00069 FD PRT-FILE DTSBR905 00070 RECORDING MODE IS F. DTSBR905 00071 01 REPORT-LISTING1 PIC X(133). DTSBR905 00072 DTSBR905 00073 WORKING-STORAGE SECTION. DTSBR905 000735 77 PAN-VALET PICTURE X(24) VALUE '005DTSBR905 08/09/02'. DTSBR905 00074 DTSBR905 00075 01 WRK-AREA. DTSBR905 00076 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +905.DTSBR905 00077 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR905 00078 DTSBR905 00079 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR905 00080 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR905 00081 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR905 00082 DTSBR905 00083 01 L001-LINK-AREA. DTSBR905 00084 ++INCLUDE DTSIL001 DTSBR905 00085 EJECT DTSBR905 00086 01 L010-LINK-AREA. DTSBR905 00087 ++INCLUDE DTSIL010 DTSBR905 00088 EJECT DTSBR905 00089 01 PAGE-HEADING. DTSBR905 00090 05 HDR-LINE-1. DTSBR905 00091 10 FILLER PIC X(01) VALUE SPACE. DTSBR905 00092 10 FILLER PIC X(05) DTSBR905 00093 VALUE '905R1'. DTSBR905 00094 10 FILLER PIC X(35) VALUE SPACES. DTSBR905 00095 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR905 00096 * SOURCE LRCM-AGY-NAME-LINE1. DTSBR905 00097 10 FILLER PIC X(28) VALUE SPACES. DTSBR905 00098 10 FILLER PIC X(05) DTSBR905 00099 VALUE 'DATE:'. DTSBR905 00100 10 FILLER PIC X(01) VALUE SPACE. DTSBR905 00101 10 HDR-SYS-DATE PIC X(08). DTSBR905 00102 * SOURCE LRCM-SYS-DATE. DTSBR905 00103 DTSBR905 00104 05 HDR-LINE-2. DTSBR905 00105 10 FILLER PIC X(41) VALUE SPACES. DTSBR905 00106 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR905 00107 * SOURCE LRCM-AGY-NAME-LINE2. DTSBR905 00108 10 FILLER PIC X(28) VALUE SPACES. DTSBR905 00109 10 FILLER PIC X(05) DTSBR905 00110 VALUE 'TIME:'. DTSBR905 00111 10 FILLER PIC X(01) VALUE SPACE. DTSBR905 00112 10 HDR-SYS-TIME PIC X(08). DTSBR905 00113 * SOURCE LRCM-SYS-TIME. DTSBR905 00114 DTSBR905 00115 05 HDR-LINE-3. DTSBR905 00116 10 FILLER PIC X(01) VALUE SPACE. DTSBR905 00117 10 FILLER PIC X(39) DTSBR905 00118 VALUE 'ROUTE TO: UI TAX PROGRAMMERS '. DTSBR905 00119 10 FILLER PIC X(79) VALUE SPACES. DTSBR905 00120 10 FILLER PIC X(05) DTSBR905 00121 VALUE 'PAGE:'. DTSBR905 00122 10 FILLER PIC X(03) VALUE SPACES. DTSBR905 00123 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR905 00124 * SOURCE PAGE-COUNTER. DTSBR905 00125 DTSBR905 00126 05 HDR-LINE-4. DTSBR905 00127 10 FILLER PIC X(50) VALUE SPACES. DTSBR905 00128 10 FILLER PIC X(30) DTSBR905 00129 VALUE 'ONLINE RECOVERY/RESTART REPORT'. DTSBR905 00130 DTSBR905 00131 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR905 00132 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR905 00133 05 HDR-LINE-7. DTSBR905 00134 10 FILLER PIC X(48) VALUE SPACES. DTSBR905 00135 10 FILLER PIC X(24) DTSBR905 00136 VALUE ALL '*'. DTSBR905 00137 10 FILLER PIC X(35) DTSBR905 00138 VALUE ' IN PROGRESS OR MOST RECENT UPDATE '. DTSBR905 00139 10 FILLER PIC X(24) DTSBR905 00140 VALUE ALL '*'. DTSBR905 00141 DTSBR905 00142 05 HDR-LINE-8. DTSBR905 00143 10 FILLER PIC X(48) VALUE SPACES. DTSBR905 00144 10 FILLER PIC X(06) DTSBR905 00145 VALUE 'UPDATE'. DTSBR905 00146 10 FILLER PIC X(25) VALUE SPACES. DTSBR905 00147 10 FILLER PIC X(28) DTSBR905 00148 VALUE 'TERM NET SCR FUNC'. DTSBR905 00149 DTSBR905 00150 05 HDR-LINE-9. DTSBR905 00151 10 FILLER PIC X(01) VALUE SPACE. DTSBR905 00152 10 FILLER PIC X(40) DTSBR905 00153 VALUE 'EMP NO DATE TIME OPID '. DTSBR905 00154 10 FILLER PIC X(40) DTSBR905 00155 VALUE ' IND TASK ID OPID I'. DTSBR905 00156 10 FILLER PIC X(40) DTSBR905 00157 VALUE 'D NAME ID TION DATE '. DTSBR905 00158 10 FILLER PIC X(12) DTSBR905 00159 VALUE ' TIME '. DTSBR905 00160 DTSBR905 00161 01 DETAIL-LINE. DTSBR905 00162 05 DTL-LINE-2. DTSBR905 00163 10 FILLER PIC X(01) VALUE SPACE. DTSBR905 00164 10 DTL-EMP-NO PIC 999B999. DTSBR905 00165 10 FILLER PIC X(04) VALUE SPACES. DTSBR905 00166 10 WS-SYS-DATE PIC X(08). DTSBR905 00167 10 FILLER PIC X(03) VALUE SPACES. DTSBR905 00168 10 WS-SYS-TIME PIC X(08). DTSBR905 00169 10 FILLER PIC X(04) VALUE SPACES. DTSBR905 00170 10 DTL-OP-ID PIC X(08). DTSBR905 00171 10 FILLER PIC X(08) VALUE SPACES. DTSBR905 00172 10 DTL-UPDATE-IND PIC X(01). DTSBR905 00173 10 FILLER PIC X(05) VALUE SPACES. DTSBR905 00174 10 DTL-UPDATE-TASK-ID PIC Z(07)9. DTSBR905 00175 10 FILLER PIC X(03) VALUE SPACES. DTSBR905 00176 10 DTL-UPDATE-OP-ID PIC X(08). DTSBR905 00177 10 FILLER PIC X(03) VALUE SPACES. DTSBR905 00178 10 DTL-UPDATE-TERMID PIC X(04). DTSBR905 00179 10 FILLER PIC X(03) VALUE SPACES. DTSBR905 00180 10 DTL-UPDATE-NETNAME PIC X(08). DTSBR905 00181 10 FILLER PIC X(04) VALUE SPACES. DTSBR905 00182 10 DTL-UPDATE-SCR-ID PIC X(02). DTSBR905 00183 * SOURCE R905-UPDATE-SCR-ID. DTSBR905 00184 10 FILLER PIC X(05) VALUE SPACES. DTSBR905 00185 10 DTL-UPDATE-FUNCTION PIC X(01). DTSBR905 00186 * SOURCE R905-UPDATE-FUNCTION. DTSBR905 00187 10 FILLER PIC X(05) VALUE SPACES. DTSBR905 00188 10 WS-UPDATE-START-DATE PIC X(08). DTSBR905 00189 * SOURCE WS-UPDATE-START-DATE. DTSBR905 00190 10 FILLER PIC X(04) VALUE SPACES. DTSBR905 00191 10 WS-UPDATE-START-TIME PIC X(08). DTSBR905 00192 * SOURCE WS-UPDATE-START-TIME. DTSBR905 00193 DTSBR905 00194 01 CONTROL-FOOTING-FINAL. DTSBR905 00195 05 CTF-LINE-3. DTSBR905 00196 10 FILLER PIC X(26) VALUE SPACES. DTSBR905 00197 10 FILLER PIC X(17) DTSBR905 00198 VALUE '*** END OF REPORT'. DTSBR905 00199 EJECT DTSBR905 00200 LINKAGE SECTION. DTSBR905 00201 DTSBR905 00202 01 LRCM-LINK-AREA. DTSBR905 00203 ++INCLUDE DTSILRCM DTSBR905 00204 EJECT DTSBR905 00205 01 R905-REC. DTSBR905 00206 ++INCLUDE DTSIR905 DTSBR905 00207 EJECT DTSBR905 00208 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR905 00209 R905-REC. DTSBR905 00210 DTSBR905 00211 IF FIRST-TIME-IND = 'Y' DTSBR905 00212 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR905 00213 MOVE 'N' TO FIRST-TIME-IND. DTSBR905 00214 DTSBR905 00215 IF LRCM-EOR-88 DTSBR905 00216 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR905 00217 ELSE DTSBR905 00218 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR905 00219 DTSBR905 00220 GOBACK. DTSBR905 00221 DTSBR905 00222 I1000-INITIATE. DTSBR905 00223 DTSBR905 00224 OPEN OUTPUT PRT-FILE. DTSBR905 00225 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR905 00226 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR905 00227 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR905 00228 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR905 00229 MOVE SPACES TO REPORT-LISTING1. DTSBR905 00230 DTSBR905 00231 I1000-EXIT. DTSBR905 00232 EXIT. DTSBR905 00233 DTSBR905 00234 P1000-PROCESS. DTSBR905 00235 MOVE R905-SYS-DATE TO L001-FED-8-DATE-9. DTSBR905 00236 SET L001-FROM-FED-8 TO TRUE. DTSBR905 00237 PERFORM S001-DATE THRU S001-EXIT. DTSBR905 00238 MOVE L001-SLASH-DATE TO WS-SYS-DATE. DTSBR905 00239 MOVE R905-UPDATE-START-DATE TO L001-FED-8-DATE-9. DTSBR905 00240 DTSBR905 00241 SET L001-FROM-FED-8 TO TRUE. DTSBR905 00242 PERFORM S001-DATE THRU S001-EXIT. DTSBR905 00243 MOVE L001-SLASH-DATE TO WS-UPDATE-START-DATE. DTSBR905 00244 MOVE R905-SYS-TIME TO L010-TIME. DTSBR905 00245 PERFORM S010-TIME THRU S010-EXIT. DTSBR905 00246 MOVE L010-DOTS-TIME TO WS-SYS-TIME. DTSBR905 00247 MOVE R905-UPDATE-START-TIME TO L010-TIME. DTSBR905 00248 PERFORM S010-TIME THRU S010-EXIT. DTSBR905 00249 MOVE L010-DOTS-TIME TO WS-UPDATE-START-TIME. DTSBR905 00250 DTSBR905 00251 MOVE R905-EMP-NO TO DTL-EMP-NO. DTSBR905 00252 MOVE R905-OP-ID TO DTL-OP-ID. DTSBR905 00253 MOVE R905-UPDATE-IND TO DTL-UPDATE-IND. DTSBR905 00254 MOVE R905-UPDATE-TASK-ID TO DTL-UPDATE-TASK-ID. DTSBR905 00255 MOVE R905-UPDATE-OP-ID TO DTL-UPDATE-OP-ID. DTSBR905 00256 MOVE R905-UPDATE-TERMID TO DTL-UPDATE-TERMID. DTSBR905 00257 MOVE R905-UPDATE-NETNAME TO DTL-UPDATE-NETNAME. DTSBR905 00258 MOVE R905-UPDATE-SCR-ID TO DTL-UPDATE-SCR-ID. DTSBR905 00259 MOVE R905-UPDATE-FUNCTION TO DTL-UPDATE-FUNCTION. DTSBR905 00260 DTSBR905 00261 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR905 00262 WRITE REPORT-LISTING1 FROM DTL-LINE-2 AFTER 2. DTSBR905 00263 ADD +2 TO WS-LINE-CNT2. DTSBR905 00264 DTSBR905 00265 * GENERATE DETAIL-LINE. DTSBR905 00266 DTSBR905 00267 P1000-EXIT. DTSBR905 00268 EXIT. DTSBR905 00269 DTSBR905 00270 P2000-PRINT-HEADER. DTSBR905 00271 DTSBR905 00272 IF WS-LINE-CNT GREATER 58 OR DTSBR905 00273 WS-LINE-CNT2 GREATER 58 DTSBR905 00274 MOVE +0 TO WS-LINE-CNT DTSBR905 00275 MOVE +0 TO WS-LINE-CNT2 DTSBR905 00276 ADD +1 TO WS-PAGE-CNT DTSBR905 00277 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR905 00278 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR905 00279 AFTER TOP-OF-PAGE DTSBR905 00280 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR905 00281 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR905 00282 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR905 00283 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR905 00284 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR905 00285 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR905 00286 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR905 00287 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR905 00288 ADD +9 TO WS-LINE-CNT2. DTSBR905 00289 DTSBR905 00290 P2000-EXIT. DTSBR905 00291 EXIT. DTSBR905 00292 DTSBR905 00293 T1000-TERMINATE. DTSBR905 00294 DTSBR905 00295 IF WS-LINE-CNT GREATER 58 OR DTSBR905 00296 WS-LINE-CNT2 GREATER 58 DTSBR905 00297 MOVE +0 TO WS-LINE-CNT DTSBR905 00298 MOVE +0 TO WS-LINE-CNT2 DTSBR905 00299 ADD +1 TO WS-PAGE-CNT DTSBR905 00300 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR905 00301 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR905 00302 DTSBR905 00303 WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3. DTSBR905 00304 CLOSE PRT-FILE. DTSBR905 00305 DTSBR905 00306 T1000-EXIT. DTSBR905 00307 EXIT. DTSBR905 00308 DTSBR905 00309 S001-DATE. DTSBR905 00310 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR905 00311 S001-EXIT. DTSBR905 00312 EXIT. DTSBR905 00313 DTSBR905 00314 S010-TIME. DTSBR905 00315 CALL 'DTSBU010' USING L010-LINK-AREA. DTSBR905 00316 S010-EXIT. DTSBR905 00317 EXIT. DTSBR905 00318 DTSBR905 00319 *S999-ABEND. DTSBR905 00320 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR905 00321 *S999-EXIT. DTSBR905 00322 * EXIT. DTSBR905 00323 DTSBR905