00001 IDENTIFICATION DIVISION. 02/10/05 00002 PROGRAM-ID. DTSBR551. DTSBR551 00003 AUTHOR. NORTHROP GRUMMAN. LV001 00004 DATE-WRITTEN. AUGUST 2004. DTSBR551 00005 DATE-COMPILED. DTSBR551 00006 SKIP3 DTSBR551 00007 ***** DTSBR551 00008 * DTSBR551 00009 * FUNCTION: ICESA CONTRIBUTION AND WAGE REPORT EDIT-ERROR DTSBR551 00010 * RECORDS LISTING. DTSBR551 00011 * DTSBR551 00012 * CALLING SEQUENCE: DTSBD551 WHICH CREATES DTSIR551 RECORDS, DTSBR551 00013 * DTSBD800 CALLS DTSBR551 PRODUCES THE DTSBR551 00014 * THE REPORTS. DTSBR551 00015 * DTSBR551 00016 * MODIFICATION HISTORY: DTSBR551 00017 * DTSBR551 00018 * 04-19-04 INITIAL DEVELOPMENT DTSBR551 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RW1 DTSBR551 00020 * DTSBR551 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR551 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR551 00023 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR551 00024 * DTSBR551 00025 * DTSBR551 00026 * DESCRIPTION: DTSBR551 00027 * DTSBR551 00028 * THIS MODULE PRODUCES TWO REPORT FROM EDITING THE FISCAL DTSBR551 00029 * AGENT INPUT DATA OF CONTRIBUTIONS AND WAGES. IT PRODUCES DTSBR551 00030 * A FATAL AND NON-FATAL ERROR LISTINGS. DTSBR551 00031 * DTSBR551 00032 * DTSBR551 00033 * RECORDS READ: DTSBR551 00034 * DTSBR551 00035 * NONE. DTSBR551 00036 * DTSBR551 00037 * DTSBR551 00038 * PRINTED OUTPUTS: DTSBR551 00039 * DTSBR551 00040 * 551R1 FATAL ERRORS REPORT. DTSBR551 00041 * 552R2 NON FATAL ERRORS REPORT. DTSBR551 00042 * DTSBR551 00043 * DTSBR551 00044 * RECORDS WRITTEN: DTSBR551 00045 * DTSBR551 00046 * NONE. DTSBR551 00047 * DTSBR551 00048 * DTSBR551 00049 * MODULES CALLED: DTSBR551 00050 * DTSBR551 00051 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR551 00052 * DTSBU002 DATE ALPHA CONVERSION MODULE DTSBR551 00053 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR551 00054 * DTSBR551 00055 ***** DTSBR551 00056 DTSBR551 00057 ENVIRONMENT DIVISION. DTSBR551 00058 DTSBR551 00059 CONFIGURATION SECTION. DTSBR551 00060 DTSBR551 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR551 00062 DTSBR551 00063 INPUT-OUTPUT SECTION. DTSBR551 00064 DTSBR551 00065 FILE-CONTROL. DTSBR551 00066 SELECT PRT-FILE1 ASSIGN TO RPT551R1. DTSBR551 00067 SELECT PRT-FILE2 ASSIGN TO RPT551R2. DTSBR551 00068 DTSBR551 00069 DATA DIVISION. DTSBR551 00070 DTSBR551 00071 FILE SECTION. DTSBR551 00072 DTSBR551 00073 FD PRT-FILE1 DTSBR551 00074 RECORDING MODE IS F DTSBR551 00075 BLOCK CONTAINS 0 RECORDS DTSBR551 00076 LABEL RECORDS ARE OMITTED. DTSBR551 00077 DTSBR551 00078 01 PRT-RECORD1. DTSBR551 00079 05 FILLER PIC X(1). DTSBR551 00080 05 PRT-RPT1 PIC X(79). DTSBR551 00081 DTSBR551 00082 FD PRT-FILE2 DTSBR551 00083 RECORDING MODE IS F DTSBR551 00084 BLOCK CONTAINS 0 RECORDS DTSBR551 00085 LABEL RECORDS ARE OMITTED. DTSBR551 00086 DTSBR551 00087 01 PRT-RECORD2. DTSBR551 00088 05 FILLER PIC X(1). DTSBR551 00089 05 PRT-RPT2 PIC X(79). DTSBR551 00090 DTSBR551 00091 WORKING-STORAGE SECTION. DTSBR551 000915 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR551 02/10/05'. DTSBR551 00092 DTSBR551 00093 01 WRK-AREA. DTSBR551 00094 DTSBR551 00095 05 WS-LINE-CNT PIC S9(03) COMP-3 VALUE 60. DTSBR551 00096 05 WS-LINE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBR551 00097 05 WS-PAGE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR551 00098 05 WS-LINE-CNT3 PIC S9(03) COMP-3 VALUE 60. DTSBR551 00099 05 WS-LINE-CNT4 PIC S9(03) COMP-3 VALUE +0. DTSBR551 00100 05 WS-PAGE-CNT2 PIC S9(05) COMP-3 VALUE +0. DTSBR551 00101 05 WS-SUM-FOOT-CNT1 PIC S9(07) COMP-3 VALUE +0. DTSBR551 00102 05 WS-SUM-FOOT-CNT2 PIC S9(07) COMP-3 VALUE +0. DTSBR551 00103 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +551.DTSBR551 00104 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBR551 00105 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR551 00106 DTSBR551 00107 01 HEADER-1. DTSBR551 00108 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00109 05 HDR1-RPT-NO PIC X(05). DTSBR551 00110 05 FILLER PIC X(24) VALUE SPACES. DTSBR551 00111 05 FILLER PIC X(20) VALUE DTSBR551 00112 'DISTRICT OF COLUMBIA'. DTSBR551 00113 05 FILLER PIC X(16) VALUE SPACES. DTSBR551 00114 05 FILLER PIC X(05) VALUE 'DATE:'. DTSBR551 00115 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00116 05 WS-SYS-DATE PIC X(08) VALUE SPACE. DTSBR551 00117 DTSBR551 00118 01 HEADER-2. DTSBR551 00119 05 FILLER PIC X(34) VALUE SPACES. DTSBR551 00120 05 FILLER PIC X(12) VALUE DTSBR551 00121 'TAX DIVISION'. DTSBR551 00122 05 FILLER PIC X(20) VALUE SPACES. DTSBR551 00123 05 FILLER PIC X(05) VALUE 'TIME:'. DTSBR551 00124 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00125 05 WS-SYS-TIME PIC X(08) VALUE SPACE. DTSBR551 00126 DTSBR551 00127 01 HEADER-3. DTSBR551 00128 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00129 05 FILLER PIC X(25) DTSBR551 00130 VALUE 'ROUTE TO: TAX ACCOUNTING '. DTSBR551 00131 05 FILLER PIC X(40) VALUE SPACES. DTSBR551 00132 05 FILLER PIC X(05) VALUE 'PAGE:'. DTSBR551 00133 05 FILLER PIC X(03) VALUE SPACES. DTSBR551 00134 05 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR551 00135 DTSBR551 00136 01 HEADER-3B. DTSBR551 00137 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00138 05 FILLER PIC X(25) DTSBR551 00139 VALUE 'ROUTE TO: TAX ACCOUNTING '. DTSBR551 00140 05 FILLER PIC X(40) VALUE SPACES. DTSBR551 00141 05 FILLER PIC X(05) DTSBR551 00142 VALUE 'PAGE:'. DTSBR551 00143 05 FILLER PIC X(03) VALUE SPACES. DTSBR551 00144 05 HDR3-PAGE-CNT2 PIC ZZ,ZZ9. DTSBR551 00145 DTSBR551 00146 01 HEADER-4. DTSBR551 00147 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00148 05 FILLER PIC X(14) VALUE SPACE. DTSBR551 00149 05 FILLER PIC X(50) VALUE DTSBR551 00150 'ICESA CONTRIBUTION AND WAGE REPORT - FATAL ERRORS '. DTSBR551 00151 05 FILLER PIC X(15) VALUE SPACE. DTSBR551 00152 DTSBR551 00153 01 HEADER-4B. DTSBR551 00154 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00155 05 FILLER PIC X(12) VALUE SPACE. DTSBR551 00156 05 FILLER PIC X(53) VALUE DTSBR551 00157 'ICESA CONTRIBUTION AND WAGE REPORT - NON FATAL ERRORS'. DTSBR551 00158 05 FILLER PIC X(14) VALUE SPACE. DTSBR551 00159 DTSBR551 00160 01 HEADER-5 PIC X(80) VALUE SPACES. DTSBR551 00161 DTSBR551 00162 01 HEADER-6. DTSBR551 00163 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00164 05 FILLER PIC X(16) VALUE DTSBR551 00165 'SUBMITTER NAME: '. DTSBR551 00166 05 HDR6-SUBMIT-NAME PIC X(35). DTSBR551 00167 05 FILLER PIC X(02) VALUE SPACE. DTSBR551 00168 05 FILLER PIC X(06) VALUE DTSBR551 00169 'FEIN: '. DTSBR551 00170 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00171 05 HDR6-SUBMIT-FEIN PIC 99B9999999 BLANK WHEN DTSBR551 00172 ZEROS. DTSBR551 00173 05 FILLER PIC X(02) VALUE SPACES. DTSBR551 00174 DTSBR551 00175 01 HEADER-7. DTSBR551 00176 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00177 05 FILLER PIC X(16) VALUE DTSBR551 00178 ' CONTACT NAME: '. DTSBR551 00179 05 HDR7-CONTACT-NAME PIC X(35). DTSBR551 00180 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00181 05 FILLER PIC X(07) VALUE DTSBR551 00182 'PHONE: '. DTSBR551 00183 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00184 05 HDR7-AREA-CODE PIC X(03). DTSBR551 00185 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00186 05 HDR7-PREFIX PIC X(03). DTSBR551 00187 05 FILLER PIC X(01) VALUE '-'. DTSBR551 00188 05 HDR7-SUFFIX PIC X(04). DTSBR551 00189 DTSBR551 00190 01 HEADER-8 PIC X(80) VALUE SPACES. DTSBR551 00191 DTSBR551 00192 01 HEADER-9. DTSBR551 00193 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00194 05 FILLER PIC X(06) VALUE 'REC-NO'. DTSBR551 00195 05 FILLER PIC X(02) VALUE SPACES. DTSBR551 00196 05 FILLER PIC X(04) VALUE 'TYPE'. DTSBR551 00197 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00198 05 FILLER PIC X(04) VALUE 'FEIN'. DTSBR551 00199 05 FILLER PIC X(07) VALUE SPACES. DTSBR551 00200 05 FILLER PIC X(05) VALUE 'ERROR'. DTSBR551 00201 05 FILLER PIC X(50) VALUE SPACES. DTSBR551 00202 DTSBR551 00203 01 HEADER-9B. DTSBR551 00204 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00205 05 FILLER PIC X(06) VALUE 'REC-NO'. DTSBR551 00206 05 FILLER PIC X(02) VALUE SPACE. DTSBR551 00207 05 FILLER PIC X(04) VALUE 'FEIN'. DTSBR551 00208 05 FILLER PIC X(07) VALUE SPACES. DTSBR551 00209 05 FILLER PIC X(05) VALUE 'ERROR'. DTSBR551 00210 05 FILLER PIC X(55) VALUE SPACE. DTSBR551 00211 DTSBR551 00212 01 DETAIL-SPACES PIC X(80) VALUE SPACES. DTSBR551 00213 DTSBR551 00214 01 DETAIL-LINE. DTSBR551 00215 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00216 05 WS-REC-NO PIC X(07). DTSBR551 00217 05 FILLER PIC X(02) VALUE SPACES. DTSBR551 00218 05 WS-REC-TYPE PIC X(01). DTSBR551 00219 05 FILLER PIC X(03) VALUE SPACES. DTSBR551 00220 05 WS-EMP-FEIN PIC X(09). DTSBR551 00221 05 FILLER PIC X(02) VALUE SPACES. DTSBR551 00222 05 WS-ERROR PIC X(55). DTSBR551 00223 DTSBR551 00224 01 DETAIL-LINE2. DTSBR551 00225 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00226 05 WS-REC-NO2 PIC X(07). DTSBR551 00227 05 FILLER PIC X(01) VALUE SPACES. DTSBR551 00228 05 WS-EMP-FEIN2 PIC X(09). DTSBR551 00229 05 FILLER PIC X(02) VALUE SPACES. DTSBR551 00230 05 WS-ERROR2 PIC X(55). DTSBR551 00231 05 FILLER PIC X(05) VALUE SPACES. DTSBR551 00232 DTSBR551 00233 01 DETAIL-LINE3. DTSBR551 00234 05 FILLER PIC X(14) VALUE SPACES. DTSBR551 00235 05 FILLER PIC X(05) VALUE 'NAME:'. DTSBR551 00236 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00237 05 WS-EMP-NAME PIC X(50). DTSBR551 00238 05 FILLER PIC X(10) VALUE SPACES. DTSBR551 00239 DTSBR551 00240 01 DETAIL-LINE4. DTSBR551 00241 05 FILLER PIC X(11). DTSBR551 00242 05 FILLER PIC X(08) VALUE 'ADDRESS:'.DTSBR551 00243 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00244 05 WS-EMP-STREET PIC X(40). DTSBR551 00245 05 FILLER PIC X(20) VALUE SPACES. DTSBR551 00246 DTSBR551 00247 01 DETAIL-LINE5. DTSBR551 00248 05 FILLER PIC X(20) VALUE SPACES. DTSBR551 00249 05 WS-EMP-CITY PIC X(25). DTSBR551 00250 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00251 05 WS-EMP-STATE PIC X(02). DTSBR551 00252 05 FILLER PIC X(01) VALUE SPACE. DTSBR551 00253 05 WS-EMP-ZIP-5 PIC X(05). DTSBR551 00254 05 WS-EMP-ZIP-EXT PIC X(05). DTSBR551 00255 05 FILLER PIC X(21) VALUE SPACES. DTSBR551 00256 DTSBR551 00257 01 CONTROL-SUM-FOOTING. DTSBR551 00258 DTSBR551 00259 05 SUM-LINE-5 PIC X(80) VALUE SPACES. DTSBR551 00260 05 SUM-LINE-6. DTSBR551 00261 10 FILLER PIC X(20) VALUE SPACES. DTSBR551 00262 10 FILLER PIC X(30) DTSBR551 00263 VALUE 'NUMBER OF FATAL ERRORS COUNT: '. DTSBR551 00264 10 WS-SUM-FOOT-NUMBER PIC ZZ,ZZ9. DTSBR551 00265 10 FILLER PIC X(24) VALUE SPACES. DTSBR551 00266 05 SUM-LINE-6B. DTSBR551 00267 10 FILLER PIC X(18) VALUE SPACES. DTSBR551 00268 10 FILLER PIC X(34) DTSBR551 00269 VALUE 'NUMBER OF NON-FATAL ERRORS COUNT: '. DTSBR551 00270 10 WS-SUM-FOOT-NUMBER-2 PIC ZZ,ZZ9. DTSBR551 00271 10 FILLER PIC X(22) VALUE SPACES. DTSBR551 00272 DTSBR551 00273 05 SUM-ASTR-7. DTSBR551 00274 10 FILLER PIC X(24) VALUE SPACES. DTSBR551 00275 10 FILLER PIC X(26) DTSBR551 00276 VALUE ' *** END OF REPORT '. DTSBR551 00277 10 FILLER PIC X(30) VALUE SPACES. DTSBR551 00278 DTSBR551 00279 01 L001-LINK-AREA. DTSBR551 00280 ++INCLUDE DTSIL001 DTSBR551 00281 EJECT DTSBR551 00282 01 L002-LINK-AREA. DTSBR551 00283 ++INCLUDE DTSIL002 DTSBR551 00284 EJECT DTSBR551 00285 01 L004-LINK-AREA. DTSBR551 00286 ++INCLUDE DTSIL004 DTSBR551 00287 EJECT DTSBR551 00288 DTSBR551 00289 LINKAGE SECTION. DTSBR551 00290 DTSBR551 00291 01 LRCM-LINK-AREA. DTSBR551 00292 ++INCLUDE DTSILRCM DTSBR551 00293 DTSBR551 00294 01 R551-REC. DTSBR551 00295 ++INCLUDE DTSIR551 DTSBR551 00296 EJECT DTSBR551 00297 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR551 00298 R551-REC. DTSBR551 00299 DTSBR551 00300 IF FIRST-TIME-IND = 'Y' DTSBR551 00301 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR551 00302 MOVE 'N' TO FIRST-TIME-IND. DTSBR551 00303 DTSBR551 00304 IF LRCM-EOR-88 DTSBR551 00305 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR551 00306 ELSE DTSBR551 00307 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR551 00308 DTSBR551 00309 GOBACK. DTSBR551 00310 DTSBR551 00311 I1000-INITIATE. DTSBR551 00312 OPEN OUTPUT PRT-FILE1 PRT-FILE2. DTSBR551 00313 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR551 00314 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR551 00315 DTSBR551 00316 MOVE SPACES TO PRT-RECORD1. DTSBR551 00317 MOVE SPACES TO PRT-RECORD2. DTSBR551 00318 DTSBR551 00319 I1000-EXIT. DTSBR551 00320 EXIT. DTSBR551 00321 DTSBR551 00322 P1000-PROCESS. DTSBR551 00323 DTSBR551 00324 IF R551-RPT-TYPE-FATAL-88 DTSBR551 00325 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR551 00326 MOVE R551-REC-NO TO WS-REC-NO DTSBR551 00327 MOVE R551-ICESA-REC-TYPE TO WS-REC-TYPE DTSBR551 00328 MOVE R551-EMP-FEIN TO WS-EMP-FEIN DTSBR551 00329 MOVE R551-MSG-TEXT TO WS-ERROR DTSBR551 00330 WRITE PRT-RECORD1 FROM DETAIL-LINE AFTER 1 DTSBR551 00331 ADD +2 TO WS-LINE-CNT2 DTSBR551 00332 ADD +1 TO WS-SUM-FOOT-CNT1 DTSBR551 00333 ELSE DTSBR551 00334 IF R551-RPT-TYPE-NON-FATAL-88 DTSBR551 00335 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR551 00336 MOVE R551-REC-NO TO WS-REC-NO2 DTSBR551 00337 MOVE R551-EMP-FEIN TO WS-EMP-FEIN2 DTSBR551 00338 MOVE R551-MSG-TEXT TO WS-ERROR2 DTSBR551 00339 WRITE PRT-RECORD2 FROM DETAIL-LINE2 AFTER 1 DTSBR551 00340 DTSBR551 00341 MOVE R551-EMP-NAME TO WS-EMP-NAME DTSBR551 00342 WRITE PRT-RECORD2 FROM DETAIL-LINE3 AFTER 1 DTSBR551 00343 DTSBR551 00344 MOVE R551-EMP-STREET TO WS-EMP-STREET DTSBR551 00345 WRITE PRT-RECORD2 FROM DETAIL-LINE4 AFTER 1 DTSBR551 00346 DTSBR551 00347 MOVE R551-EMP-CITY TO WS-EMP-CITY DTSBR551 00348 MOVE R551-EMP-STATE TO WS-EMP-STATE DTSBR551 00349 MOVE R551-EMP-ZIP-5 TO WS-EMP-ZIP-5 DTSBR551 00350 IF R551-EMP-ZIP-EXT > SPACES DTSBR551 00351 MOVE R551-EMP-ZIP-EXT TO WS-EMP-ZIP-EXT DTSBR551 00352 ELSE DTSBR551 00353 MOVE SPACES TO WS-EMP-ZIP-EXT DTSBR551 00354 END-IF DTSBR551 00355 WRITE PRT-RECORD2 FROM DETAIL-LINE5 AFTER 1 DTSBR551 00356 WRITE PRT-RECORD2 FROM DETAIL-SPACES AFTER 1 DTSBR551 00357 DTSBR551 00358 ADD +5 TO WS-LINE-CNT4 DTSBR551 00359 ADD +1 TO WS-SUM-FOOT-CNT2 DTSBR551 00360 END-IF DTSBR551 00361 END-IF. DTSBR551 00362 DTSBR551 00363 P1000-EXIT. DTSBR551 00364 EXIT. DTSBR551 00365 DTSBR551 00366 P3000-PRINT-HEADER. DTSBR551 00367 IF WS-LINE-CNT GREATER 56 DTSBR551 00368 MOVE R551-SUBMITTER-NAME TO HDR6-SUBMIT-NAME DTSBR551 00369 MOVE R551-SUBMITTER-FEIN TO HDR6-SUBMIT-FEIN DTSBR551 00370 MOVE R551-CONTACT-NAME TO HDR7-CONTACT-NAME DTSBR551 00371 MOVE R551-CONTACT-PHONE (1:3) TO HDR7-AREA-CODE DTSBR551 00372 MOVE R551-CONTACT-PHONE (4:3) TO HDR7-PREFIX DTSBR551 00373 MOVE R551-CONTACT-PHONE (7:4) TO HDR7-SUFFIX. DTSBR551 00374 DTSBR551 00375 IF WS-LINE-CNT GREATER 56 OR DTSBR551 00376 WS-LINE-CNT2 GREATER 56 DTSBR551 00377 MOVE +0 TO WS-LINE-CNT DTSBR551 00378 MOVE +0 TO WS-LINE-CNT2 DTSBR551 00379 ADD +1 TO WS-PAGE-CNT DTSBR551 00380 MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT DTSBR551 00381 WRITE PRT-RECORD1 FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR551 00382 WRITE PRT-RECORD1 FROM HEADER-2 AFTER 1 DTSBR551 00383 WRITE PRT-RECORD1 FROM HEADER-3 AFTER 1 DTSBR551 00384 WRITE PRT-RECORD1 FROM HEADER-4 AFTER 1 DTSBR551 00385 WRITE PRT-RECORD1 FROM HEADER-5 AFTER 1 DTSBR551 00386 WRITE PRT-RECORD1 FROM HEADER-6 AFTER 1 DTSBR551 00387 WRITE PRT-RECORD1 FROM HEADER-7 AFTER 1 DTSBR551 00388 WRITE PRT-RECORD1 FROM HEADER-8 AFTER 1 DTSBR551 00389 WRITE PRT-RECORD1 FROM HEADER-9 AFTER 1 DTSBR551 00390 WRITE PRT-RECORD1 FROM HEADER-8 AFTER 1 DTSBR551 00391 ADD +10 TO WS-LINE-CNT2. DTSBR551 00392 DTSBR551 00393 P3000-EXIT. DTSBR551 00394 EXIT. DTSBR551 00395 DTSBR551 00396 P4000-PRINT-HEADER. DTSBR551 00397 IF WS-LINE-CNT3 GREATER 56 DTSBR551 00398 MOVE R551-SUBMITTER-NAME TO HDR6-SUBMIT-NAME DTSBR551 00399 MOVE R551-SUBMITTER-FEIN TO HDR6-SUBMIT-FEIN DTSBR551 00400 MOVE R551-CONTACT-NAME TO HDR7-CONTACT-NAME DTSBR551 00401 MOVE R551-CONTACT-PHONE (1:3) TO HDR7-AREA-CODE DTSBR551 00402 MOVE R551-CONTACT-PHONE (4:3) TO HDR7-PREFIX DTSBR551 00403 MOVE R551-CONTACT-PHONE (7:4) TO HDR7-SUFFIX. DTSBR551 00404 DTSBR551 00405 IF WS-LINE-CNT3 GREATER 56 OR DTSBR551 00406 WS-LINE-CNT4 GREATER 56 DTSBR551 00407 MOVE +0 TO WS-LINE-CNT3 DTSBR551 00408 MOVE +0 TO WS-LINE-CNT4 DTSBR551 00409 ADD +1 TO WS-PAGE-CNT2 DTSBR551 00410 MOVE WS-PAGE-CNT2 TO HDR3-PAGE-CNT2 DTSBR551 00411 WRITE PRT-RECORD2 FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR551 00412 WRITE PRT-RECORD2 FROM HEADER-2 AFTER 1 DTSBR551 00413 WRITE PRT-RECORD2 FROM HEADER-3B AFTER 1 DTSBR551 00414 WRITE PRT-RECORD2 FROM HEADER-4B AFTER 1 DTSBR551 00415 WRITE PRT-RECORD2 FROM HEADER-5 AFTER 1 DTSBR551 00416 WRITE PRT-RECORD2 FROM HEADER-6 AFTER 1 DTSBR551 00417 WRITE PRT-RECORD2 FROM HEADER-7 AFTER 1 DTSBR551 00418 WRITE PRT-RECORD2 FROM HEADER-8 AFTER 1 DTSBR551 00419 WRITE PRT-RECORD2 FROM HEADER-9B AFTER 1 DTSBR551 00420 WRITE PRT-RECORD2 FROM HEADER-8 AFTER 1 DTSBR551 00421 ADD +10 TO WS-LINE-CNT4. DTSBR551 00422 DTSBR551 00423 P4000-EXIT. DTSBR551 00424 EXIT. DTSBR551 00425 DTSBR551 00426 P5000-EXIT. DTSBR551 00427 EXIT. DTSBR551 00428 DTSBR551 00429 T1000-TERMINATE. DTSBR551 00430 DTSBR551 00431 IF WS-LINE-CNT > 56 DTSBR551 00432 NEXT SENTENCE DTSBR551 00433 ELSE DTSBR551 00434 IF WS-LINE-CNT2 > 56 DTSBR551 00435 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR551 00436 MOVE WS-SUM-FOOT-CNT1 TO WS-SUM-FOOT-NUMBER DTSBR551 00437 WRITE PRT-RECORD1 FROM SUM-LINE-5 AFTER 1 DTSBR551 00438 WRITE PRT-RECORD1 FROM SUM-LINE-6 AFTER 2 DTSBR551 00439 WRITE PRT-RECORD1 FROM SUM-ASTR-7 AFTER 2 DTSBR551 00440 ELSE DTSBR551 00441 MOVE WS-SUM-FOOT-CNT1 TO WS-SUM-FOOT-NUMBER DTSBR551 00442 WRITE PRT-RECORD1 FROM SUM-LINE-5 AFTER 1 DTSBR551 00443 WRITE PRT-RECORD1 FROM SUM-LINE-6 AFTER 2 DTSBR551 00444 WRITE PRT-RECORD1 FROM SUM-ASTR-7 AFTER 2 DTSBR551 00445 END-IF DTSBR551 00446 END-IF. DTSBR551 00447 DTSBR551 00448 IF WS-LINE-CNT3 > 56 DTSBR551 00449 NEXT SENTENCE DTSBR551 00450 ELSE DTSBR551 00451 IF WS-LINE-CNT4 > 56 DTSBR551 00452 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR551 00453 MOVE WS-SUM-FOOT-CNT2 TO WS-SUM-FOOT-NUMBER-2 DTSBR551 00454 WRITE PRT-RECORD2 FROM SUM-LINE-5 AFTER 1 DTSBR551 00455 WRITE PRT-RECORD2 FROM SUM-LINE-6B AFTER 2 DTSBR551 00456 WRITE PRT-RECORD2 FROM SUM-ASTR-7 AFTER 2 DTSBR551 00457 ELSE DTSBR551 00458 MOVE WS-SUM-FOOT-CNT2 TO WS-SUM-FOOT-NUMBER-2 DTSBR551 00459 WRITE PRT-RECORD2 FROM SUM-LINE-5 AFTER 1 DTSBR551 00460 WRITE PRT-RECORD2 FROM SUM-LINE-6B AFTER 2 DTSBR551 00461 WRITE PRT-RECORD2 FROM SUM-ASTR-7 AFTER 2 DTSBR551 00462 END-IF DTSBR551 00463 END-IF. DTSBR551 00464 DTSBR551 00465 * IF WS-LINE-CNT4 > 56 OR WS-LINE-CNT3 > 56 DTSBR551 00466 * PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR551 00467 * END-IF. DTSBR551 00468 * DTSBR551 00469 * MOVE WS-SUM-FOOT-CNT2 TO WS-SUM-FOOT-NUMBER-2. DTSBR551 00470 * WRITE PRT-RECORD2 FROM SUM-LINE-5 AFTER 1. DTSBR551 00471 * WRITE PRT-RECORD2 FROM SUM-LINE-6B AFTER 2. DTSBR551 00472 * WRITE PRT-RECORD2 FROM SUM-ASTR-7 AFTER 2. DTSBR551 00473 DTSBR551 00474 CLOSE PRT-FILE1 PRT-FILE2. DTSBR551 00475 DTSBR551 00476 T1000-EXIT. DTSBR551 00477 EXIT. DTSBR551 00478 DTSBR551 00479 S001-DATE. DTSBR551 00480 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR551 00481 DTSBR551 00482 S001-EXIT. DTSBR551 00483 EXIT. DTSBR551 00484 DTSBR551 00485 S002-DATE-ALPHA. DTSBR551 00486 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR551 00487 DTSBR551 00488 S002-EXIT. DTSBR551 00489 EXIT. DTSBR551 00490 DTSBR551 00491 S004-FROM-DATE. DTSBR551 00492 SET L004-FROM-DATE TO TRUE. DTSBR551 00493 GO TO S004-YRQ. DTSBR551 00494 DTSBR551 00495 S004-FROM-3. DTSBR551 00496 SET L004-FROM-3 TO TRUE. DTSBR551 00497 GO TO S004-YRQ. DTSBR551 00498 DTSBR551 00499 S004-FROM-5. DTSBR551 00500 SET L004-FROM-5 TO TRUE. DTSBR551 00501 GO TO S004-YRQ. DTSBR551 00502 DTSBR551 00503 S004-FROM-ABS. DTSBR551 00504 SET L004-FROM-ABS TO TRUE. DTSBR551 00505 GO TO S004-YRQ. DTSBR551 00506 DTSBR551 00507 S004-YRQ. DTSBR551 00508 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR551 00509 DTSBR551 00510 S004-EXIT. DTSBR551 00511 EXIT. DTSBR551 00512 DTSBR551 00513 S999-ABEND. DTSBR551 00514 DISPLAY '*** DTSBR551 ABENDING. ' DTSBR551 00515 WRK-ABEND-MSG. DTSBR551 00516 DTSBR551 00517 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR551 00518 DTSBR551 00519 S999-EXIT. DTSBR551 00520 EXIT. DTSBR551 00521 DTSBR551