00001 IDENTIFICATION DIVISION. 10/16/03 00002 PROGRAM-ID. DTSBR612. DTSBR612 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV008 00004 DATE-WRITTEN. MARCH 1995. DTSBR612 00005 DATE-COMPILED. DTSBR612 00006 DTSBR612 00007 ***** DTSBR612 00008 * DTSBR612 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR612 00010 * DTSBE612 WHICH UPDATES DTSIR612 DTSBR612 00011 * DTSBR612 READS DTSIR612 RECORDS. DTSBR612 00012 * DTSBR612 00013 * FUNCTION: PROCESSED AUDIT ASSIGNMENTS WITH UNRECORDED DTSBR612 00014 * QUARTER RESULTS REPORT DTSBR612 00015 * DTSBR612 00016 * DTSBR612 00017 * MODIFICATION HISTORY: DTSBR612 00018 * DTSBR612 00019 * 03/24/95 INITIAL DEVELOPMENT. DTSBR612 00020 * WORK ORDER: CR060 PROGRAMMER: RHC DTSBR612 00021 * DTSBR612 00022 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR612 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR612 00024 * WORK ORDER: PROGRAMMER: XXX DTSBR612 00025 * DTSBR612 00026 * DTSBR612 00027 * DESCRIPTION: DTSBR612 00028 * DTSBR612 00029 * THIS MODULE LISTS PROCESSED AUDIT ASSIGNMENTS WITH DTSBR612 00030 * UNRECORDED QUARTER RESULTS. DTSBR612 00031 * DTSBR612 00032 * DTSBR612 00033 * RECORDS READ: DTSBR612 00034 * DTSBR612 00035 * NONE. DTSBR612 00036 * DTSBR612 00037 * DTSBR612 00038 * PRINTED OUTPUTS: DTSBR612 00039 * DTSBR612 00040 * 612R1 PROCESSED AUDIT ASSIGNMENTS WITH UNRECORDED QTRS. DTSBR612 00041 * DTSBR612 00042 * DTSBR612 00043 * RECORDS WRITTEN: DTSBR612 00044 * DTSBR612 00045 * NONE. DTSBR612 00046 * DTSBR612 00047 * DTSBR612 00048 * MODULES CALLED: DTSBR612 00049 * DTSBR612 00050 * DTSBU001 DATE EDIT/CONVERSION. DTSBR612 00051 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBR612 00052 * DTSBR612 00053 ***** DTSBR612 00054 DTSBR612 00055 ENVIRONMENT DIVISION. DTSBR612 00056 DTSBR612 00057 CONFIGURATION SECTION. DTSBR612 00058 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR612 00059 DTSBR612 00060 INPUT-OUTPUT SECTION. DTSBR612 00061 DTSBR612 00062 FILE-CONTROL. DTSBR612 00063 SELECT PRT-FILE ASSIGN TO RPT612R1. DTSBR612 00064 DTSBR612 00065 DATA DIVISION. DTSBR612 00066 DTSBR612 00067 FILE SECTION. DTSBR612 00068 DTSBR612 00069 FD PRT-FILE DTSBR612 00070 RECORDING MODE IS F. DTSBR612 00071 01 PRT-RECORD PIC X(133). DTSBR612 00072 DTSBR612 00073 WORKING-STORAGE SECTION. DTSBR612 000735 77 PAN-VALET PICTURE X(24) VALUE '008DTSBR612 10/16/03'. DTSBR612 00074 DTSBR612 00075 01 WRK-AREA. DTSBR612 00076 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +612.DTSBR612 00077 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR612 00078 05 ALL-NINES-YRQ PIC S9(05) COMP-3 DTSBR612 00079 VALUE +99999. DTSBR612 00080 DTSBR612 00081 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR612 00082 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR612 00083 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR612 00084 05 WS-FOOTER-CNT PIC S9(02) COMP-3 VALUE +0. DTSBR612 00085 05 WS-SUM-CNT PIC S9(02) COMP-3 VALUE +0. DTSBR612 00086 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR612 00087 DTSBR612 00088 05 WRK-YRQ-CNT PIC S9(04) COMP. DTSBR612 00089 05 WRK-YRQ-AREA. DTSBR612 00090 10 WRK-YRQ OCCURS 24 PIC X(04). DTSBR612 00091 DTSBR612 00092 01 L001-LINK-AREA. DTSBR612 00093 ++INCLUDE DTSIL001 DTSBR612 00094 DTSBR612 00095 01 L004-LINK-AREA. DTSBR612 00096 ++INCLUDE DTSIL004 DTSBR612 00097 DTSBR612 00098 01 PAGE-HEADING. DTSBR612 00099 05 HDR-LINE-1. DTSBR612 00100 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00101 10 FILLER PIC X(05) DTSBR612 00102 VALUE '612R1'. DTSBR612 00103 10 FILLER PIC X(34) VALUE SPACES. DTSBR612 00104 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR612 00105 10 FILLER PIC X(29) VALUE SPACES. DTSBR612 00106 10 FILLER PIC X(05) DTSBR612 00107 VALUE 'DATE:'. DTSBR612 00108 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00109 10 HDR-SYS-DATE PIC X(08). DTSBR612 00110 DTSBR612 00111 05 HDR-LINE-2. DTSBR612 00112 10 FILLER PIC X(40) VALUE SPACES. DTSBR612 00113 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR612 00114 10 FILLER PIC X(29) VALUE SPACES. DTSBR612 00115 10 FILLER PIC X(05) DTSBR612 00116 VALUE 'TIME:'. DTSBR612 00117 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00118 10 HDR-SYS-TIME PIC X(08). DTSBR612 00119 DTSBR612 00120 05 HDR-LINE-3. DTSBR612 00121 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00122 10 FILLER PIC X(28) DTSBR612 00123 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR612 00124 10 FILLER PIC X(90) VALUE SPACES. DTSBR612 00125 10 FILLER PIC X(05) DTSBR612 00126 VALUE 'PAGE:'. DTSBR612 00127 10 FILLER PIC X(03) VALUE SPACES. DTSBR612 00128 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR612 00129 DTSBR612 00130 05 HDR-LINE-4. DTSBR612 00131 10 FILLER PIC X(12) VALUE SPACES. DTSBR612 00132 10 FILLER PIC X(20) DTSBR612 00133 VALUE ' '. DTSBR612 00134 10 FILLER PIC X(18) VALUE SPACES. DTSBR612 00135 10 FILLER PIC X(32) DTSBR612 00136 VALUE 'PROCESSED AUDIT ASSIGNMENTS WITH'. DTSBR612 00137 DTSBR612 00138 05 HDR-LINE-5. DTSBR612 00139 10 FILLER PIC X(49) VALUE SPACES. DTSBR612 00140 10 FILLER PIC X(34) DTSBR612 00141 VALUE 'QUARTER AUDIT RESULTS NOT RECORDED'. DTSBR612 00142 DTSBR612 00143 05 HDR-LINE-6. DTSBR612 00144 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00145 10 FILLER PIC X(21) DTSBR612 00146 VALUE 'START PROCESSED DATE:'. DTSBR612 00147 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00148 10 WRK-START-DATE PIC X(08). DTSBR612 00149 DTSBR612 00150 05 HDR-LINE-7. DTSBR612 00151 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00152 10 FILLER PIC X(21) DTSBR612 00153 VALUE ' END PROCESSED DATE:'. DTSBR612 00154 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00155 10 WRK-END-DATE PIC X(08). DTSBR612 00156 DTSBR612 00157 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR612 00158 05 HDR-LINE-9. DTSBR612 00159 10 FILLER PIC X(23) VALUE SPACES. DTSBR612 00160 10 FILLER PIC X(11) DTSBR612 00161 VALUE 'AUDITED QTR'. DTSBR612 00162 DTSBR612 00163 05 HDR-LINE-10. DTSBR612 00164 10 FILLER PIC X(01) VALUE SPACE. DTSBR612 00165 10 FILLER PIC X(09) DTSBR612 00166 VALUE 'ASSIGN NO'. DTSBR612 00167 10 FILLER PIC X(04) VALUE SPACES. DTSBR612 00168 10 FILLER PIC X(06) DTSBR612 00169 VALUE 'EMP NO'. DTSBR612 00170 10 FILLER PIC X(03) VALUE SPACES. DTSBR612 00171 10 FILLER PIC X(11) DTSBR612 00172 VALUE 'START END'. DTSBR612 00173 10 FILLER PIC X(06) VALUE SPACES. DTSBR612 00174 10 FILLER PIC X(39) DTSBR612 00175 VALUE 'QUARTERS WITHOUT AUDIT RESULTS RECORDED'. DTSBR612 00176 DTSBR612 00177 01 DETAIL-LINE. DTSBR612 00178 05 DTL-LINE-2. DTSBR612 00179 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00180 10 DTL-ASSIGN-NO PIC 99B99999. DTSBR612 00181 10 FILLER PIC X(03) VALUE SPACES. DTSBR612 00182 10 DTL-EMP-NO PIC 999B999. DTSBR612 00183 10 FILLER PIC X(04) VALUE SPACES. DTSBR612 00184 10 WRK-START-YRQ PIC X(04). DTSBR612 00185 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00186 10 WRK-END-YRQ PIC X(04). DTSBR612 00187 10 FILLER PIC X(06) VALUE SPACES. DTSBR612 00188 10 DTL-MISSING-YRQ-1 PIC X(04). DTSBR612 00189 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00190 10 DTL-MISSING-YRQ-2 PIC X(04). DTSBR612 00191 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00192 10 DTL-MISSING-YRQ-3 PIC X(04). DTSBR612 00193 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00194 10 DTL-MISSING-YRQ-4 PIC X(04). DTSBR612 00195 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00196 10 DTL-MISSING-YRQ-5 PIC X(04). DTSBR612 00197 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00198 10 DTL-MISSING-YRQ-6 PIC X(04). DTSBR612 00199 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00200 10 DTL-MISSING-YRQ-7 PIC X(04). DTSBR612 00201 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00202 10 DTL-MISSING-YRQ-8 PIC X(04). DTSBR612 00203 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00204 10 DTL-MISSING-YRQ-9 PIC X(04). DTSBR612 00205 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00206 10 DTL-MISSING-YRQ-10 PIC X(04). DTSBR612 00207 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00208 10 DTL-MISSING-YRQ-11 PIC X(04). DTSBR612 00209 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00210 10 DTL-MISSING-YRQ-12 PIC X(04). DTSBR612 00211 * 10 COLUMN PLUS 2 OCCURS 1 TO 24 DTSBR612 00212 * DEPENDING ON R612-MISSING-YRQ-CNT DTSBR612 00213 * VARYING RPT-CNT DTSBR612 00214 * PIC 9(03) DTSBR612 00215 * SOURCE R612-MISSING-YRQ (RPT-CNT). DTSBR612 00216 05 DTL-LINE-3. DTSBR612 00217 10 FILLER PIC X(40) VALUE SPACES. DTSBR612 00218 10 DTL-MISSING-YRQ-13 PIC X(04). DTSBR612 00219 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00220 10 DTL-MISSING-YRQ-14 PIC X(04). DTSBR612 00221 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00222 10 DTL-MISSING-YRQ-15 PIC X(04). DTSBR612 00223 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00224 10 DTL-MISSING-YRQ-16 PIC X(04). DTSBR612 00225 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00226 10 DTL-MISSING-YRQ-17 PIC X(04). DTSBR612 00227 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00228 10 DTL-MISSING-YRQ-18 PIC X(04). DTSBR612 00229 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00230 10 DTL-MISSING-YRQ-19 PIC X(04). DTSBR612 00231 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00232 10 DTL-MISSING-YRQ-20 PIC X(04). DTSBR612 00233 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00234 10 DTL-MISSING-YRQ-21 PIC X(04). DTSBR612 00235 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00236 10 DTL-MISSING-YRQ-22 PIC X(04). DTSBR612 00237 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00238 10 DTL-MISSING-YRQ-23 PIC X(04). DTSBR612 00239 10 FILLER PIC X(02) VALUE SPACES. DTSBR612 00240 10 DTL-MISSING-YRQ-24 PIC X(04). DTSBR612 00241 DTSBR612 00242 05 DTL-LINE-4. DTSBR612 00243 10 FILLER PIC X(53) DTSBR612 00244 VALUE DTSBR612 00245 '(QUARTER=999: MORE QUARTERS EXIST THAN ARE DISPLAYED)'. DTSBR612 00246 DTSBR612 00247 01 NO-RECORDS-DETAIL. DTSBR612 00248 05 DTL-LINE-20. DTSBR612 00249 10 FILLER PIC X(37) VALUE SPACES. DTSBR612 00250 10 FILLER PIC X(55) DTSBR612 00251 VALUE DTSBR612 00252 'QUARTER AUDIT RESULTS RECORDED FOR ALL AUDITED QUARTERS'. DTSBR612 00253 DTSBR612 00254 01 RPT-OP-ID. DTSBR612 00255 05 CFF-LINE-3. DTSBR612 00256 10 FILLER PIC X(06) VALUE SPACES. DTSBR612 00257 10 FILLER PIC X(17) DTSBR612 00258 VALUE '*** END OF REPORT'. DTSBR612 00259 DTSBR612 00260 LINKAGE SECTION. DTSBR612 00261 DTSBR612 00262 01 LRCM-LINK-AREA. DTSBR612 00263 ++INCLUDE DTSILRCM DTSBR612 00264 EJECT DTSBR612 00265 01 R612-REC. DTSBR612 00266 ++INCLUDE DTSIR612 DTSBR612 00267 EJECT DTSBR612 00268 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR612 00269 R612-REC. DTSBR612 00270 DTSBR612 00271 IF FIRST-TIME-IND = 'Y' DTSBR612 00272 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR612 00273 MOVE 'N' TO FIRST-TIME-IND. DTSBR612 00274 DTSBR612 00275 IF LRCM-EOR-88 DTSBR612 00276 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR612 00277 ELSE DTSBR612 00278 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR612 00279 DTSBR612 00280 GOBACK. DTSBR612 00281 DTSBR612 00282 I1000-INITIATE. DTSBR612 00283 DTSBR612 00284 OPEN OUTPUT PRT-FILE. DTSBR612 00285 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR612 00286 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR612 00287 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR612 00288 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR612 00289 MOVE SPACES TO PRT-RECORD. DTSBR612 00290 DTSBR612 00291 MOVE R612-PARM-START-DATE TO L001-FED-8-DATE-9. DTSBR612 00292 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR612 00293 MOVE L001-SLASH-DATE TO WRK-START-DATE. DTSBR612 00294 DTSBR612 00295 MOVE R612-PARM-END-DATE TO L001-FED-8-DATE-9. DTSBR612 00296 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR612 00297 MOVE L001-SLASH-DATE TO WRK-END-DATE. DTSBR612 00298 DTSBR612 00299 I1000-EXIT. EXIT. DTSBR612 00300 DTSBR612 00301 P1000-PROCESS. DTSBR612 00302 DTSBR612 00303 IF R612-ASSIGN-NO = +0 DTSBR612 00304 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR612 00305 WRITE PRT-RECORD FROM DTL-LINE-20 AFTER 10 DTSBR612 00306 GO TO P1000-EXIT. DTSBR612 00307 DTSBR612 00308 MOVE R612-FIRST-YRQ TO L004-QTR-5-9. DTSBR612 00309 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR612 00310 MOVE L004-SLASH-QTR TO WRK-START-YRQ. DTSBR612 00311 DTSBR612 00312 MOVE R612-LAST-YRQ TO L004-QTR-5-9. DTSBR612 00313 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR612 00314 MOVE L004-SLASH-QTR TO WRK-END-YRQ. DTSBR612 00315 DTSBR612 00316 MOVE SPACE TO WRK-YRQ-AREA. DTSBR612 00317 DTSBR612 00318 PERFORM VARYING WRK-YRQ-CNT FROM 1 BY 1 DTSBR612 00319 UNTIL WRK-YRQ-CNT > R612-MISSING-YRQ-CNT DTSBR612 00320 IF R612-MISSING-YRQ (WRK-YRQ-CNT) > 0 DTSBR612 00321 PERFORM P1100-PICKUP-YRQ THRU P1100-EXIT DTSBR612 00322 END-IF DTSBR612 00323 END-PERFORM. DTSBR612 00324 DTSBR612 00325 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR612 00326 PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT. DTSBR612 00327 DTSBR612 00328 P1000-EXIT. EXIT. DTSBR612 00329 DTSBR612 00330 P1100-PICKUP-YRQ. DTSBR612 00331 IF LRCM-PICKUP-YRQ = R612-MISSING-YRQ (WRK-YRQ-CNT) DTSBR612 00332 MOVE 'PU ' TO WRK-YRQ (WRK-YRQ-CNT) DTSBR612 00333 ELSE DTSBR612 00334 MOVE R612-MISSING-YRQ (WRK-YRQ-CNT) TO L004-QTR-5-9 DTSBR612 00335 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR612 00336 MOVE L004-SLASH-QTR TO WRK-YRQ (WRK-YRQ-CNT) DTSBR612 00337 END-IF. DTSBR612 00338 P1100-EXIT. DTSBR612 00339 EXIT. DTSBR612 00340 DTSBR612 00341 P2000-PRINT-HEADER. DTSBR612 00342 DTSBR612 00343 IF WS-LINE-CNT GREATER 58 OR DTSBR612 00344 WS-LINE-CNT2 GREATER 58 DTSBR612 00345 MOVE +0 TO WS-LINE-CNT DTSBR612 00346 MOVE +0 TO WS-LINE-CNT2 DTSBR612 00347 ADD +1 TO WS-PAGE-CNT DTSBR612 00348 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR612 00349 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR612 00350 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR612 00351 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR612 00352 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR612 00353 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR612 00354 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR612 00355 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR612 00356 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR612 00357 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR612 00358 WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1 DTSBR612 00359 ADD +10 TO WS-LINE-CNT2. DTSBR612 00360 DTSBR612 00361 P2000-EXIT. DTSBR612 00362 EXIT. DTSBR612 00363 DTSBR612 00364 P3000-PRINT-DETAIL. DTSBR612 00365 DTSBR612 00366 MOVE R612-ASSIGN-NO TO DTL-ASSIGN-NO. DTSBR612 00367 MOVE R612-EMP-NO TO DTL-EMP-NO. DTSBR612 00368 DTSBR612 00369 MOVE WRK-YRQ (1) TO DTL-MISSING-YRQ-1. DTSBR612 00370 MOVE WRK-YRQ (2) TO DTL-MISSING-YRQ-2. DTSBR612 00371 MOVE WRK-YRQ (3) TO DTL-MISSING-YRQ-3. DTSBR612 00372 MOVE WRK-YRQ (4) TO DTL-MISSING-YRQ-4. DTSBR612 00373 MOVE WRK-YRQ (5) TO DTL-MISSING-YRQ-5. DTSBR612 00374 MOVE WRK-YRQ (6) TO DTL-MISSING-YRQ-6. DTSBR612 00375 MOVE WRK-YRQ (7) TO DTL-MISSING-YRQ-7. DTSBR612 00376 MOVE WRK-YRQ (8) TO DTL-MISSING-YRQ-8. DTSBR612 00377 MOVE WRK-YRQ (9) TO DTL-MISSING-YRQ-9. DTSBR612 00378 MOVE WRK-YRQ (10) TO DTL-MISSING-YRQ-10. DTSBR612 00379 MOVE WRK-YRQ (11) TO DTL-MISSING-YRQ-11. DTSBR612 00380 MOVE WRK-YRQ (12) TO DTL-MISSING-YRQ-12. DTSBR612 00381 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR612 00382 ADD +2 TO WS-LINE-CNT2. DTSBR612 00383 DTSBR612 00384 IF R612-MISSING-YRQ-CNT > 12 DTSBR612 00385 MOVE WRK-YRQ (13) TO DTL-MISSING-YRQ-13 DTSBR612 00386 MOVE WRK-YRQ (14) TO DTL-MISSING-YRQ-14 DTSBR612 00387 MOVE WRK-YRQ (15) TO DTL-MISSING-YRQ-15 DTSBR612 00388 MOVE WRK-YRQ (16) TO DTL-MISSING-YRQ-16 DTSBR612 00389 MOVE WRK-YRQ (17) TO DTL-MISSING-YRQ-17 DTSBR612 00390 MOVE WRK-YRQ (18) TO DTL-MISSING-YRQ-18 DTSBR612 00391 MOVE WRK-YRQ (19) TO DTL-MISSING-YRQ-19 DTSBR612 00392 MOVE WRK-YRQ (20) TO DTL-MISSING-YRQ-20 DTSBR612 00393 MOVE WRK-YRQ (21) TO DTL-MISSING-YRQ-21 DTSBR612 00394 MOVE WRK-YRQ (22) TO DTL-MISSING-YRQ-22 DTSBR612 00395 MOVE WRK-YRQ (23) TO DTL-MISSING-YRQ-23 DTSBR612 00396 MOVE WRK-YRQ (24) TO DTL-MISSING-YRQ-24 DTSBR612 00397 WRITE PRT-RECORD FROM DTL-LINE-3 AFTER 1 DTSBR612 00398 ADD +1 TO WS-LINE-CNT2. DTSBR612 00399 DTSBR612 00400 IF R612-MISSING-YRQ-CNT > 24 DTSBR612 00401 WRITE PRT-RECORD FROM DTL-LINE-4 AFTER 1 DTSBR612 00402 ADD +1 TO WS-LINE-CNT2. DTSBR612 00403 DTSBR612 00404 P3000-EXIT. DTSBR612 00405 EXIT. DTSBR612 00406 DTSBR612 00407 T1000-TERMINATE. DTSBR612 00408 DTSBR612 00409 IF WS-LINE-CNT2 > 52 DTSBR612 00410 ADD +10 TO WS-LINE-CNT2 DTSBR612 00411 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR612 00412 END-IF. DTSBR612 00413 DTSBR612 00414 WRITE PRT-RECORD FROM CFF-LINE-3 AFTER 3. DTSBR612 00415 DTSBR612 00416 CLOSE PRT-FILE. DTSBR612 00417 DTSBR612 00418 T1000-EXIT. EXIT. DTSBR612 00419 DTSBR612 00420 S001-FROM-FED-8. DTSBR612 00421 SET L001-FROM-FED-8 TO TRUE. DTSBR612 00422 GO TO S001-DATE. DTSBR612 00423 DTSBR612 00424 S001-DATE. DTSBR612 00425 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR612 00426 S001-EXIT. EXIT. DTSBR612 00427 DTSBR612 00428 S004-FROM-5. DTSBR612 00429 SET L004-FROM-5 TO TRUE. DTSBR612 00430 GO TO S004-YRQ. DTSBR612 00431 DTSBR612 00432 S004-YRQ. DTSBR612 00433 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR612 00434 S004-EXIT. EXIT. DTSBR612 00435 DTSBR612 00436 *S999-ABEND. DTSBR612 00437 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR612 00438 *S999-EXIT. EXIT. DTSBR612 00439 DTSBR612