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