00001 IDENTIFICATION DIVISION. 01/20/04 00002 PROGRAM-ID. DTSBR455. DTSBR455 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV001 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR455 00005 DATE-COMPILED. DTSBR455 00006 SKIP3 DTSBR455 00007 ***** DTSBR455 00008 * DTSBR455 00009 * CALLING SEQUENCE: DTSBE455 CREATES DTSIR455 RECORDS. DTSBR455 00010 * DTSBD800 CALLS DTSBR455 DTSBR455 00011 * WHICH PRODUCES THE LIST. DTSBR455 00012 * DTSBR455 00013 * FUNCTION: ESTIMATED REPORT CANDIDATES LIST. DTSBR455 00014 * DTSBR455 00015 * DTSBR455 00016 * MODIFICATION HISTORY: DTSBR455 00017 * DTSBR455 00018 * 12-21-94 INITIAL DEVELOPMENT DTSBR455 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR455 00020 * DTSBR455 00021 * 03-29-95 MODIFY FOR DUPLEX. DTSBR455 00022 * REFERENCE RFP #CR056 AUTHOR OF CHANGE - RHC DTSBR455 00023 * DTSBR455 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR455 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR455 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR455 00027 * DTSBR455 00028 * DTSBR455 00029 * DESCRIPTION: DTSBR455 00030 * DTSBR455 00031 * THIS MODULE PRODUCES THE ESTIMATED REPORT CANDIDATES DTSBR455 00032 * LIST. DTSBR455 00033 * DTSBR455 00034 * RECORDS READ: DTSBR455 00035 * DTSBR455 00036 * NONE. DTSBR455 00037 * DTSBR455 00038 * DTSBR455 00039 * PRINTED OUTPUTS: DTSBR455 00040 * DTSBR455 00041 * 455R1 ESTIMATED REPORT CANDIDATES LIST. DTSBR455 00042 * 455R2 "NO" ESTIMATED REPORT CANDIDATES LIST. DTSBR455 00043 * DTSBR455 00044 * DTSBR455 00045 * RECORDS WRITTEN: DTSBR455 00046 * DTSBR455 00047 * NONE. DTSBR455 00048 * DTSBR455 00049 * DTSBR455 00050 * MODULES CALLED: DTSBR455 00051 * DTSBR455 00052 * DTSBU001 DATE CONVERT. DTSBR455 00053 * DTSBU004 QUARTER CONVERT. DTSBR455 00054 * DTSBR455 00055 * DTSBR455 00056 ***** DTSBR455 00057 EJECT DTSBR455 00058 ENVIRONMENT DIVISION. DTSBR455 00059 DTSBR455 00060 CONFIGURATION SECTION. DTSBR455 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR455 00062 DTSBR455 00063 INPUT-OUTPUT SECTION. DTSBR455 00064 FILE-CONTROL. DTSBR455 00065 SELECT PRT-FILE1 ASSIGN TO RPT455R1. DTSBR455 00066 SELECT PRT-FILE2 ASSIGN TO RPT455R2. DTSBR455 00067 SKIP3 DTSBR455 00068 DATA DIVISION. DTSBR455 00069 FILE SECTION. DTSBR455 00070 DTSBR455 00071 FD PRT-FILE1 DTSBR455 00072 RECORDING MODE IS F. DTSBR455 00073 01 PRT-RECORD1 PIC X(133). DTSBR455 00074 DTSBR455 00075 FD PRT-FILE2 DTSBR455 00076 RECORDING MODE IS F. DTSBR455 00077 01 PRT-RECORD2 PIC X(133). DTSBR455 00078 DTSBR455 00079 WORKING-STORAGE SECTION. DTSBR455 000795 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR455 01/20/04'. DTSBR455 00080 SKIP3 DTSBR455 00081 01 WRK-AREA. DTSBR455 00082 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +455.DTSBR455 00083 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR455 00084 DTSBR455 00085 05 WS-CTF1-NUMBER-EMPL PIC S9(03) COMP-3 VALUE +0. DTSBR455 00086 05 WS-CFF1-SUM-EMPL PIC S9(05) COMP-3 VALUE +0. DTSBR455 00087 DTSBR455 00088 05 WS-CTF2-NUMBER-EMPL PIC S9(03) COMP-3 VALUE +0. DTSBR455 00089 05 WS-CFF2-SUM-EMPL PIC S9(05) COMP-3 VALUE +0. DTSBR455 00090 DTSBR455 00091 05 WS-FIRST-455R1 PIC X(01) VALUE 'Y'. DTSBR455 00092 05 WS-FIRST-455R2 PIC X(01) VALUE 'Y'. DTSBR455 00093 05 WS-FIELD-REP-ID-HOLD PIC X(02) VALUE SPACE. DTSBR455 00094 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR455 00095 DTSBR455 00096 05 WS-LINE-CNT1 PIC S9(02) COMP-3 VALUE +0. DTSBR455 00097 05 WS-PAGE-CNT1 PIC S9(03) COMP-3 VALUE +0. DTSBR455 00098 DTSBR455 00099 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR455 00100 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBR455 00101 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR455 00102 DTSBR455 00103 05 WRK-PAGE-TRUNCATE PIC 9(01). DTSBR455 00104 88 WRK-ODD-PAGE-88 VALUE 1 3 5 7 9. DTSBR455 00105 DTSBR455 00106 05 WRK-RPT-DUE-DATES. DTSBR455 00107 10 FILLER PIC 9(4) VALUE 0430. DTSBR455 00108 10 FILLER PIC 9(4) VALUE 0731. DTSBR455 00109 10 FILLER PIC 9(4) VALUE 1031. DTSBR455 00110 10 FILLER PIC 9(4) VALUE 0131. DTSBR455 00111 05 FILLER REDEFINES WRK-RPT-DUE-DATES. DTSBR455 00112 10 WRK-MMDD OCCURS 4. DTSBR455 00113 15 WRK-MO PIC 99. DTSBR455 00114 15 WRK-DA PIC 99. DTSBR455 00115 DTSBR455 00116 01 PAGE-HEADING1. DTSBR455 00117 05 HDR1-LINE-1. DTSBR455 00118 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00119 10 FILLER PIC X(05) DTSBR455 00120 VALUE '455R1'. DTSBR455 00121 10 FILLER PIC X(34) VALUE SPACES.DTSBR455 00122 10 HDR1-AGY-NAME-LINE1 PIC X(50). DTSBR455 00123 10 FILLER PIC X(28) VALUE SPACES.DTSBR455 00124 10 FILLER PIC X(05) DTSBR455 00125 VALUE 'DATE:'. DTSBR455 00126 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00127 10 HDR1-SYS-DATE PIC X(08). DTSBR455 00128 05 HDR1-LINE-2. DTSBR455 00129 10 FILLER PIC X(40) VALUE SPACES.DTSBR455 00130 10 HDR1-AGY-NAME-LINE2 PIC X(50). DTSBR455 00131 10 FILLER PIC X(28) VALUE SPACES.DTSBR455 00132 10 FILLER PIC X(05) DTSBR455 00133 VALUE 'TIME:'. DTSBR455 00134 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00135 10 HDR1-SYS-TIME PIC X(08). DTSBR455 00136 05 HDR1-LINE-3. DTSBR455 00137 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00138 10 FILLER PIC X(35) DTSBR455 00139 VALUE 'ROUTE TO: ENFORCEMENT UNIT '. DTSBR455 00140 10 FILLER PIC X(82) VALUE SPACES.DTSBR455 00141 10 FILLER PIC X(05) DTSBR455 00142 VALUE 'PAGE:'. DTSBR455 00143 10 FILLER PIC X(03) VALUE SPACES.DTSBR455 00144 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR455 00145 05 HDR1-LINE-4. DTSBR455 00146 10 FILLER PIC X(44) VALUE SPACES.DTSBR455 00147 10 FILLER PIC X(42) DTSBR455 00148 VALUE 'HOUSEHOLD EMPLOYERS: ESTIMATED REPORT LIST'.DTSBR455 00149 05 HDR1-LINE-5 PIC X(133) VALUE SPACES.DTSBR455 00150 05 HDR1-LINE-6. DTSBR455 00151 10 FILLER PIC X(05) VALUE SPACES.DTSBR455 00152 10 FILLER PIC X(15) DTSBR455 00153 VALUE 'FIELD REP CODE:'. DTSBR455 00154 10 FILLER PIC X(02) VALUE SPACES.DTSBR455 00155 10 HDR1-FIELD-REP-ID PIC X(02). DTSBR455 00156 05 HDR1-LINE-7 PIC X(133) VALUE SPACES.DTSBR455 00157 05 HDR1-LINE-8. DTSBR455 00158 10 FILLER PIC X(75) VALUE SPACES.DTSBR455 00159 10 FILLER PIC X(08) DTSBR455 00160 VALUE 'CALENDAR'. DTSBR455 00161 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00162 10 FILLER PIC X(06) DTSBR455 00163 VALUE 'REPORT'. DTSBR455 00164 05 HDR1-LINE-9. DTSBR455 00165 10 FILLER PIC X(12) VALUE SPACES.DTSBR455 00166 10 FILLER PIC X(06) DTSBR455 00167 VALUE 'EMP NO'. DTSBR455 00168 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00169 10 FILLER PIC X(13) DTSBR455 00170 VALUE 'PRIMARY NAME'. DTSBR455 00171 10 FILLER PIC X(37) VALUE SPACES.DTSBR455 00172 10 FILLER PIC X(07) DTSBR455 00173 VALUE ' YEAR '. DTSBR455 00174 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00175 10 FILLER PIC X(08) DTSBR455 00176 VALUE 'DUE DATE'. DTSBR455 00177 DTSBR455 00178 01 DETAIL-LINE-1. DTSBR455 00179 05 DTL1-LINE-2. DTSBR455 00180 10 FILLER PIC X(11) VALUE SPACES.DTSBR455 00181 10 DTL1-EMP-NO PIC 999B999. DTSBR455 00182 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00183 10 DTL1-PRIMARY-NAME PIC X(40). DTSBR455 00184 10 FILLER PIC X(12) VALUE SPACES.DTSBR455 00185 10 DTL1-CALENDAR-YR PIC X(04). DTSBR455 00186 10 FILLER PIC X(08) VALUE SPACES.DTSBR455 00187 10 DTL1-SLASH-DATE PIC X(08). DTSBR455 00188 DTSBR455 00189 01 CONTROL-FOOTING1. DTSBR455 00190 05 CTF1-LINE-3. DTSBR455 00191 10 FILLER PIC X(25) VALUE SPACES. DTSBR455 00192 10 CTF1-NUMBER-EMPL PIC ZZ,ZZ9. DTSBR455 00193 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00194 10 FILLER PIC X(35) DTSBR455 00195 VALUE 'EMPLOYERS LISTED FOR THIS FIELD REP'. DTSBR455 00196 DTSBR455 00197 01 CONTROL-FOOTING-FINAL1. DTSBR455 00198 05 CFF1-LINE-3. DTSBR455 00199 10 FILLER PIC X(25) VALUE SPACES. DTSBR455 00200 10 CFF1-SUM-EMPL PIC ZZ,ZZ9. DTSBR455 00201 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00202 10 FILLER PIC X(26) DTSBR455 00203 VALUE 'EMPLOYERS LISTED ON REPORT'. DTSBR455 00204 DTSBR455 00205 01 PAGE-HEADING2. DTSBR455 00206 05 HDR2-LINE-1. DTSBR455 00207 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00208 10 FILLER PIC X(05) DTSBR455 00209 VALUE '455R2'. DTSBR455 00210 10 FILLER PIC X(34) VALUE SPACES.DTSBR455 00211 10 HDR2-AGY-NAME-LINE1 PIC X(50). DTSBR455 00212 10 FILLER PIC X(28) VALUE SPACES.DTSBR455 00213 10 FILLER PIC X(05) DTSBR455 00214 VALUE 'DATE:'. DTSBR455 00215 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00216 10 HDR2-SYS-DATE PIC X(08). DTSBR455 00217 05 HDR2-LINE-2. DTSBR455 00218 10 FILLER PIC X(40) VALUE SPACES.DTSBR455 00219 10 HDR2-AGY-NAME-LINE2 PIC X(50). DTSBR455 00220 10 FILLER PIC X(28) VALUE SPACES.DTSBR455 00221 10 FILLER PIC X(05) DTSBR455 00222 VALUE 'TIME:'. DTSBR455 00223 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00224 10 HDR2-SYS-TIME PIC X(08). DTSBR455 00225 05 HDR2-LINE-3. DTSBR455 00226 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00227 10 FILLER PIC X(35) DTSBR455 00228 VALUE 'ROUTE TO: ENFORCEMENT UNIT '. DTSBR455 00229 10 FILLER PIC X(82) VALUE SPACES.DTSBR455 00230 10 FILLER PIC X(05) DTSBR455 00231 VALUE 'PAGE:'. DTSBR455 00232 10 FILLER PIC X(03) VALUE SPACES.DTSBR455 00233 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DTSBR455 00234 05 HDR2-LINE-4. DTSBR455 00235 10 FILLER PIC X(45) VALUE SPACES.DTSBR455 00236 10 FILLER PIC X(40) DTSBR455 00237 VALUE 'HOUSEHOLD EMPLOYERS: NO ESTIMATED REPORT'. DTSBR455 00238 05 HDR2-LINE-5 PIC X(133) VALUE SPACES.DTSBR455 00239 05 HDR2-LINE-6. DTSBR455 00240 10 FILLER PIC X(05) VALUE SPACES.DTSBR455 00241 10 FILLER PIC X(15) DTSBR455 00242 VALUE 'FIELD REP CODE:'. DTSBR455 00243 10 FILLER PIC X(02) VALUE SPACES.DTSBR455 00244 10 HDR2-FIELD-REP-ID PIC X(02). DTSBR455 00245 05 HDR2-LINE-7 PIC X(133) VALUE SPACES.DTSBR455 00246 05 HDR2-LINE-8. DTSBR455 00247 10 FILLER PIC X(75) VALUE SPACES.DTSBR455 00248 10 FILLER PIC X(08) DTSBR455 00249 VALUE 'CALENDAR'. DTSBR455 00250 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00251 10 FILLER PIC X(06) DTSBR455 00252 VALUE 'REPORT'. DTSBR455 00253 05 HDR2-LINE-9. DTSBR455 00254 10 FILLER PIC X(12) VALUE SPACES.DTSBR455 00255 10 FILLER PIC X(06) DTSBR455 00256 VALUE 'EMP NO'. DTSBR455 00257 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00258 10 FILLER PIC X(13) DTSBR455 00259 VALUE 'PRIMARY NAME'. DTSBR455 00260 10 FILLER PIC X(37) VALUE SPACES.DTSBR455 00261 10 FILLER PIC X(07) DTSBR455 00262 VALUE ' YEAR '. DTSBR455 00263 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00264 10 FILLER PIC X(08) DTSBR455 00265 VALUE 'DUE DATE'. DTSBR455 00266 DTSBR455 00267 01 DETAIL-LINE-2. DTSBR455 00268 05 DTL2-LINE-2. DTSBR455 00269 10 FILLER PIC X(11) VALUE SPACES.DTSBR455 00270 10 DTL2-EMP-NO PIC 999B999. DTSBR455 00271 10 FILLER PIC X(07) VALUE SPACES.DTSBR455 00272 10 DTL2-PRIMARY-NAME PIC X(40). DTSBR455 00273 10 FILLER PIC X(12) VALUE SPACES.DTSBR455 00274 10 DTL2-CALENDAR-YR PIC X(04). DTSBR455 00275 10 FILLER PIC X(08) VALUE SPACES.DTSBR455 00276 10 DTL2-SLASH-DATE PIC X(08). DTSBR455 00277 DTSBR455 00278 01 CONTROL-FOOTING2. DTSBR455 00279 05 CTF2-LINE-3. DTSBR455 00280 10 FILLER PIC X(25) VALUE SPACES.DTSBR455 00281 10 CTF2-NUMBER-EMPL PIC ZZ,ZZ9. DTSBR455 00282 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00283 10 FILLER PIC X(35) DTSBR455 00284 VALUE 'EMPLOYERS LISTED FOR THIS FIELD REP'. DTSBR455 00285 DTSBR455 00286 01 CONTROL-FOOTING-FINAL2. DTSBR455 00287 05 CFF2-LINE-3. DTSBR455 00288 10 FILLER PIC X(25) VALUE SPACES.DTSBR455 00289 10 CFF2-SUM-EMPL PIC ZZ,ZZ9. DTSBR455 00290 10 FILLER PIC X(01) VALUE SPACE. DTSBR455 00291 10 FILLER PIC X(26) DTSBR455 00292 VALUE 'EMPLOYERS LISTED ON REPORT'. DTSBR455 00293 EJECT DTSBR455 00294 01 L001-LINK-AREA. DTSBR455 00295 ++INCLUDE DTSIL001 DTSBR455 00296 EJECT DTSBR455 00297 01 L004-LINK-AREA. DTSBR455 00298 ++INCLUDE DTSIL004 DTSBR455 00299 EJECT DTSBR455 00300 LINKAGE SECTION. DTSBR455 00301 SKIP3 DTSBR455 00302 01 LRCM-LINK-AREA. DTSBR455 00303 ++INCLUDE DTSILRCM DTSBR455 00304 EJECT DTSBR455 00305 01 R455-REC. DTSBR455 00306 ++INCLUDE DTSIR455 DTSBR455 00307 EJECT DTSBR455 00308 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR455 00309 R455-REC. DTSBR455 00310 IF FIRST-TIME-IND = 'Y' DTSBR455 00311 PERFORM I1000-INITIATE DTSBR455 00312 THRU I1000-EXIT DTSBR455 00313 MOVE 'N' TO FIRST-TIME-IND. DTSBR455 00314 DTSBR455 00315 IF LRCM-EOR-88 DTSBR455 00316 PERFORM T1000-TERMINATE DTSBR455 00317 THRU T1000-EXIT DTSBR455 00318 ELSE DTSBR455 00319 PERFORM P1000-PROCESS DTSBR455 00320 THRU P1000-EXIT. DTSBR455 00321 DTSBR455 00322 GOBACK. DTSBR455 00323 DTSBR455 00324 I1000-INITIATE. DTSBR455 00325 DTSBR455 00326 OPEN OUTPUT PRT-FILE1 DTSBR455 00327 OUTPUT PRT-FILE2. DTSBR455 00328 MOVE SPACES TO WS-FIELD-REP-ID-HOLD. DTSBR455 00329 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE DTSBR455 00330 HDR2-SYS-DATE. DTSBR455 00331 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME DTSBR455 00332 HDR2-SYS-TIME. DTSBR455 00333 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1 DTSBR455 00334 HDR2-AGY-NAME-LINE1. DTSBR455 00335 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2 DTSBR455 00336 HDR2-AGY-NAME-LINE2. DTSBR455 00337 MOVE SPACES TO PRT-RECORD1. DTSBR455 00338 MOVE SPACES TO PRT-RECORD2. DTSBR455 00339 DTSBR455 00340 I1000-EXIT. DTSBR455 00341 EXIT. DTSBR455 00342 EJECT DTSBR455 00343 DTSBR455 00344 P1000-PROCESS. DTSBR455 00345 DTSBR455 00346 IF R455-FIELD-REP-ID NOT = WS-FIELD-REP-ID-HOLD DTSBR455 00347 MOVE R455-FIELD-REP-ID TO WS-FIELD-REP-ID-HOLD DTSBR455 00348 DTSBR455 00349 IF R455-ESTIMATE-GENERATED-YES-88 DTSBR455 00350 IF WS-FIRST-455R1 = 'Y' DTSBR455 00351 MOVE 'N' TO WS-FIRST-455R1 DTSBR455 00352 MOVE WS-FIELD-REP-ID-HOLD TO HDR1-FIELD-REP-ID DTSBR455 00353 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR455 00354 ELSE DTSBR455 00355 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR455 00356 MOVE WS-FIELD-REP-ID-HOLD TO HDR1-FIELD-REP-ID DTSBR455 00357 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR455 00358 END-IF DTSBR455 00359 ELSE DTSBR455 00360 IF WS-FIRST-455R2 = 'Y' DTSBR455 00361 MOVE 'N' TO WS-FIRST-455R2 DTSBR455 00362 MOVE WS-FIELD-REP-ID-HOLD TO HDR2-FIELD-REP-ID DTSBR455 00363 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR455 00364 ELSE DTSBR455 00365 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR455 00366 MOVE WS-FIELD-REP-ID-HOLD TO HDR2-FIELD-REP-ID DTSBR455 00367 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR455 00368 END-IF DTSBR455 00369 END-IF DTSBR455 00370 END-IF. DTSBR455 00371 DTSBR455 00372 MOVE R455-YRQ TO L004-QTR-5-9. DTSBR455 00373 PERFORM S004-FROM-5 DTSBR455 00374 THRU S004-EXIT. DTSBR455 00375 DTSBR455 00376 IF R455-ESTIMATE-GENERATED-YES-88 DTSBR455 00377 MOVE L004-SLASH-5-YR TO DTL1-CALENDAR-YR DTSBR455 00378 ELSE DTSBR455 00379 MOVE L004-SLASH-5-YR TO DTL2-CALENDAR-YR. DTSBR455 00380 DTSBR455 00381 MOVE L004-QTR-5-YR TO L001-FED-8-YR. DTSBR455 00382 MOVE WRK-MO (L004-QTR-5-Q) TO L001-FED-8-MO. DTSBR455 00383 MOVE WRK-DA (L004-QTR-5-Q) TO L001-FED-8-DA. DTSBR455 00384 IF L004-QTR-5-Q = 4 DTSBR455 00385 ADD 1 TO L001-FED-8-YR. DTSBR455 00386 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR455 00387 DTSBR455 00388 IF R455-ESTIMATE-GENERATED-YES-88 DTSBR455 00389 MOVE L001-SLASH-DATE TO DTL1-SLASH-DATE DTSBR455 00390 ELSE DTSBR455 00391 MOVE L001-SLASH-DATE TO DTL2-SLASH-DATE. DTSBR455 00392 DTSBR455 00393 IF R455-ESTIMATE-GENERATED-YES-88 DTSBR455 00394 MOVE R455-FIELD-REP-ID TO HDR1-FIELD-REP-ID DTSBR455 00395 MOVE R455-EMP-NO TO DTL1-EMP-NO DTSBR455 00396 MOVE R455-PRIMARY-NAME TO DTL1-PRIMARY-NAME DTSBR455 00397 ADD +1 TO WS-CTF1-NUMBER-EMPL DTSBR455 00398 ADD +1 TO WS-CFF1-SUM-EMPL DTSBR455 00399 WRITE PRT-RECORD1 FROM DETAIL-LINE-1 AFTER 2 DTSBR455 00400 DTSBR455 00401 ADD +2 TO WS-LINE-CNT1 DTSBR455 00402 IF WS-LINE-CNT1 > 57 DTSBR455 00403 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR455 00404 END-IF DTSBR455 00405 ELSE DTSBR455 00406 MOVE R455-FIELD-REP-ID TO HDR2-FIELD-REP-ID DTSBR455 00407 MOVE R455-EMP-NO TO DTL2-EMP-NO DTSBR455 00408 MOVE R455-PRIMARY-NAME TO DTL2-PRIMARY-NAME DTSBR455 00409 ADD +1 TO WS-CTF2-NUMBER-EMPL DTSBR455 00410 ADD +1 TO WS-CFF2-SUM-EMPL DTSBR455 00411 WRITE PRT-RECORD2 FROM DETAIL-LINE-2 AFTER 2 DTSBR455 00412 DTSBR455 00413 ADD +2 TO WS-LINE-CNT2 DTSBR455 00414 IF WS-LINE-CNT2 > 57 DTSBR455 00415 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR455 00416 END-IF DTSBR455 00417 END-IF. DTSBR455 00418 DTSBR455 00419 P1000-EXIT. DTSBR455 00420 EXIT. DTSBR455 00421 DTSBR455 00422 P2000-PRINT-HEADER. DTSBR455 00423 MOVE +0 TO WS-LINE-CNT1 DTSBR455 00424 ADD +1 TO WS-PAGE-CNT1 DTSBR455 00425 MOVE WS-PAGE-CNT1 TO HDR1-PAGE-CNT DTSBR455 00426 WRITE PRT-RECORD1 FROM HDR1-LINE-1 AFTER TOP-OF-PAGE DTSBR455 00427 WRITE PRT-RECORD1 FROM HDR1-LINE-2 AFTER 1 DTSBR455 00428 WRITE PRT-RECORD1 FROM HDR1-LINE-3 AFTER 1 DTSBR455 00429 WRITE PRT-RECORD1 FROM HDR1-LINE-4 AFTER 1 DTSBR455 00430 WRITE PRT-RECORD1 FROM HDR1-LINE-5 AFTER 1 DTSBR455 00431 WRITE PRT-RECORD1 FROM HDR1-LINE-6 AFTER 1 DTSBR455 00432 WRITE PRT-RECORD1 FROM HDR1-LINE-7 AFTER 1 DTSBR455 00433 WRITE PRT-RECORD1 FROM HDR1-LINE-8 AFTER 1 DTSBR455 00434 WRITE PRT-RECORD1 FROM HDR1-LINE-9 AFTER 1 DTSBR455 00435 ADD +9 TO WS-LINE-CNT1. DTSBR455 00436 P2000-EXIT. DTSBR455 00437 EXIT. DTSBR455 00438 DTSBR455 00439 P3000-PRINT-HEADER. DTSBR455 00440 MOVE +0 TO WS-LINE-CNT2 DTSBR455 00441 ADD +1 TO WS-PAGE-CNT2 DTSBR455 00442 MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT DTSBR455 00443 WRITE PRT-RECORD2 FROM HDR2-LINE-1 AFTER TOP-OF-PAGE DTSBR455 00444 WRITE PRT-RECORD2 FROM HDR2-LINE-2 AFTER 1 DTSBR455 00445 WRITE PRT-RECORD2 FROM HDR2-LINE-3 AFTER 1 DTSBR455 00446 WRITE PRT-RECORD2 FROM HDR2-LINE-4 AFTER 1 DTSBR455 00447 WRITE PRT-RECORD2 FROM HDR2-LINE-5 AFTER 1 DTSBR455 00448 WRITE PRT-RECORD2 FROM HDR2-LINE-6 AFTER 1 DTSBR455 00449 WRITE PRT-RECORD2 FROM HDR2-LINE-7 AFTER 1 DTSBR455 00450 WRITE PRT-RECORD2 FROM HDR2-LINE-8 AFTER 1 DTSBR455 00451 WRITE PRT-RECORD2 FROM HDR2-LINE-9 AFTER 1 DTSBR455 00452 ADD +9 TO WS-LINE-CNT2. DTSBR455 00453 P3000-EXIT. DTSBR455 00454 EXIT. DTSBR455 00455 DTSBR455 00456 P4000-PRINT-FOOTER. DTSBR455 00457 DTSBR455 00458 MOVE WS-CTF1-NUMBER-EMPL TO CTF1-NUMBER-EMPL. DTSBR455 00459 WRITE PRT-RECORD1 FROM CTF1-LINE-3 AFTER 3. DTSBR455 00460 MOVE +0 TO WS-CTF1-NUMBER-EMPL. DTSBR455 00461 DTSBR455 00462 MOVE WS-PAGE-CNT1 TO WRK-PAGE-TRUNCATE. DTSBR455 00463 DTSBR455 00464 IF WRK-ODD-PAGE-88 DTSBR455 00465 WRITE PRT-RECORD1 FROM WS-BLANK-PAGE DTSBR455 00466 AFTER TOP-OF-PAGE DTSBR455 00467 END-IF. DTSBR455 00468 DTSBR455 00469 MOVE +0 TO WS-PAGE-CNT1. DTSBR455 00470 DTSBR455 00471 P4000-EXIT. DTSBR455 00472 EXIT. DTSBR455 00473 DTSBR455 00474 P5000-PRINT-FOOTER. DTSBR455 00475 DTSBR455 00476 MOVE WS-CTF2-NUMBER-EMPL TO CTF2-NUMBER-EMPL. DTSBR455 00477 WRITE PRT-RECORD2 FROM CTF2-LINE-3 AFTER 3. DTSBR455 00478 MOVE +0 TO WS-CTF2-NUMBER-EMPL. DTSBR455 00479 DTSBR455 00480 MOVE WS-PAGE-CNT2 TO WRK-PAGE-TRUNCATE. DTSBR455 00481 IF WRK-ODD-PAGE-88 DTSBR455 00482 WRITE PRT-RECORD2 FROM WS-BLANK-PAGE DTSBR455 00483 AFTER TOP-OF-PAGE DTSBR455 00484 END-IF. DTSBR455 00485 DTSBR455 00486 MOVE +0 TO WS-PAGE-CNT2. DTSBR455 00487 DTSBR455 00488 P5000-EXIT. DTSBR455 00489 EXIT. DTSBR455 00490 DTSBR455 00491 T1000-TERMINATE. DTSBR455 00492 DTSBR455 00493 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT DTSBR455 00494 MOVE SPACE TO HDR1-FIELD-REP-ID DTSBR455 00495 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR455 00496 MOVE WS-CFF1-SUM-EMPL TO CFF1-SUM-EMPL. DTSBR455 00497 WRITE PRT-RECORD1 FROM CFF1-LINE-3 AFTER 3. DTSBR455 00498 DTSBR455 00499 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT DTSBR455 00500 MOVE SPACE TO HDR2-FIELD-REP-ID DTSBR455 00501 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR455 00502 MOVE WS-CFF2-SUM-EMPL TO CFF2-SUM-EMPL. DTSBR455 00503 WRITE PRT-RECORD2 FROM CFF2-LINE-3 AFTER 3. DTSBR455 00504 DTSBR455 00505 CLOSE PRT-FILE1 DTSBR455 00506 PRT-FILE2. DTSBR455 00507 DTSBR455 00508 T1000-EXIT. DTSBR455 00509 EXIT. DTSBR455 00510 EJECT DTSBR455 00511 S001-FROM-FED-8. DTSBR455 00512 DTSBR455 00513 SET L001-FROM-FED-8 TO TRUE. DTSBR455 00514 DTSBR455 00515 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR455 00516 DTSBR455 00517 S001-EXIT. DTSBR455 00518 EXIT. DTSBR455 00519 SKIP3 DTSBR455 00520 S004-FROM-5. DTSBR455 00521 DTSBR455 00522 SET L004-FROM-5 TO TRUE. DTSBR455 00523 DTSBR455 00524 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR455 00525 DTSBR455 00526 S004-EXIT. DTSBR455 00527 EXIT. DTSBR455 00528 SKIP3 DTSBR455 00529 *S999-ABEND. DTSBR455 00530 * DTSBR455 00531 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR455 00532 * DTSBR455 00533 *S999-EXIT. DTSBR455 00534 * EXIT. DTSBR455 00535 DTSBR455