00001 IDENTIFICATION DIVISION. 08/28/02 00002 PROGRAM-ID. DESBR102. DESBR102 00003 AUTHOR. TRW INC. LV003 00004 DATE-WRITTEN. MARCH 2001. DESBR102 00005 DATE-COMPILED. DESBR102 00006 DESBR102 00007 ***** DESBR102 00008 * DESBR102 00009 * CALLING SEQUENCE: DESBE101 CREATES DESIR102 RECORDS. DESBR102 00010 * DTSBD200 CALLS DESBR102 DESBR102 00011 * WHICH PRODUCES THE ELECTRONIC DESBR102 00012 * MEDIA PACKING LIST. DESBR102 00013 * DESBR102 00014 * FUNCTION: WAGE PROCESSING CONFIRMATION REPORT AND DESBR102 00015 * WAGE PROCESSING PROBLEM REPORT. DESBR102 00016 * DESBR102 00017 * DESBR102 00018 * MODIFICATION HISTORY: DESBR102 00019 * DESBR102 00020 * 12-20-94 INITIAL DEVELOPMENT DESBR102 00021 * REFERENCE TAPE TRCKING SYSTEM AUTHOR OF CHANGE - RW1 DESBR102 00022 * DESBR102 00023 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBR102 00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBR102 00025 * REFERENCE RFP #**** PROGRAMMER: XXX DESBR102 00026 * DESBR102 00027 * DESBR102 00028 * DESCRIPTION: DESBR102 00029 * DESBR102 00030 * THIS MODULE PRODUCES THE WAGE PROCESSING CONFIRMATION DESBR102 00031 * REPORT AND WAGE PROCESSING PROBLEM REPORT. DESBR102 00032 * DESBR102 00033 * DESBR102 00034 * RECORDS READ: DESBR102 00035 * DESBR102 00036 * NONE. DESBR102 00037 * DESBR102 00038 * DESBR102 00039 * PRINTED OUTPUTS: DESBR102 00040 * DESBR102 00041 * 102R1 WAGE PROCESSING CONFIRMATION REPORT AND DESBR102 00042 * 102R2 WAGE PROCESSING PROBLEM REPORT. DESBR102 00043 * DESBR102 00044 * DESBR102 00045 * RECORDS WRITTEN: DESBR102 00046 * DESBR102 00047 * NONE. DESBR102 00048 * DESBR102 00049 * DESBR102 00050 * MODULES CALLED: DESBR102 00051 * DESBR102 00052 * DTSBU001 DATE CONVERT. DESBR102 00053 * DESBR102 00054 ***** DESBR102 00055 EJECT DESBR102 00056 ENVIRONMENT DIVISION. DESBR102 00057 DESBR102 00058 CONFIGURATION SECTION. DESBR102 00059 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DESBR102 00060 DESBR102 00061 INPUT-OUTPUT SECTION. DESBR102 00062 FILE-CONTROL. DESBR102 00063 SELECT RPT-FILE1 ASSIGN TO RPT102R1. DESBR102 00064 SELECT RPT-FILE2 ASSIGN TO RPT102R2. DESBR102 00065 DESBR102 00066 DATA DIVISION. DESBR102 00067 FILE SECTION. DESBR102 00068 DESBR102 00069 FD RPT-FILE1 DESBR102 00070 RECORDING MODE IS F. DESBR102 00071 01 REPORT-LISTING1 PIC X(133). DESBR102 00072 DESBR102 00073 FD RPT-FILE2 DESBR102 00074 RECORDING MODE IS F. DESBR102 00075 01 REPORT-LISTING2 PIC X(133). DESBR102 00076 DESBR102 00077 WORKING-STORAGE SECTION. DESBR102 000775 77 PAN-VALET PICTURE X(24) VALUE '003DESBR102 08/28/02'. DESBR102 00078 DESBR102 00079 01 WRK-AREA. DESBR102 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +102.DESBR102 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DESBR102 00082 DESBR102 00083 05 WRK-SUB PIC S9(04) COMP. DESBR102 00084 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DESBR102 00085 05 WS-LINE-CNT1 PIC S9(02) COMP-3 VALUE +60.DESBR102 00086 05 WS-PAGE-CNT1 PIC S9(03) COMP-3 VALUE +0. DESBR102 00087 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +60.DESBR102 00088 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DESBR102 00089 DESBR102 00090 05 HOLD-ELF-ID PIC S9(07) COMP-3 VALUE +0. DESBR102 00091 DESBR102 00092 01 PAGE-HEADING1. DESBR102 00093 05 HDR1-LINE-1. DESBR102 00094 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00095 10 FILLER PIC X(10) DESBR102 00096 VALUE 'EMT102R1'. DESBR102 00097 10 FILLER PIC X(30) VALUE SPACES.DESBR102 00098 10 HDR1-AGY-NAME-LINE1 PIC X(50). DESBR102 00099 10 FILLER PIC X(27) VALUE SPACES.DESBR102 00100 10 FILLER PIC X(05) DESBR102 00101 VALUE 'DATE:'. DESBR102 00102 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00103 10 HDR1-SYS-DATE PIC X(08). DESBR102 00104 DESBR102 00105 05 HDR1-LINE-2. DESBR102 00106 10 FILLER PIC X(41) VALUE SPACES.DESBR102 00107 10 HDR1-AGY-NAME-LINE2 PIC X(50). DESBR102 00108 10 FILLER PIC X(27) VALUE SPACES.DESBR102 00109 10 FILLER PIC X(05) DESBR102 00110 VALUE 'TIME:'. DESBR102 00111 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00112 10 HDR1-SYS-TIME PIC X(08). DESBR102 00113 DESBR102 00114 05 HDR1-LINE-3. DESBR102 00115 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00116 10 FILLER PIC X(35) VALUE SPACES.DESBR102 00117 10 FILLER PIC X(82) VALUE SPACES.DESBR102 00118 10 FILLER PIC X(05) DESBR102 00119 VALUE 'PAGE:'. DESBR102 00120 10 FILLER PIC X(03) VALUE SPACES.DESBR102 00121 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DESBR102 00122 DESBR102 00123 05 HDR1-LINE-4. DESBR102 00124 10 FILLER PIC X(49) VALUE SPACES.DESBR102 00125 10 FILLER PIC X(35) VALUE DESBR102 00126 'WAGE PROCESSING CONFIRMATION REPORT'. DESBR102 00127 10 FILLER PIC X(49) VALUE SPACES.DESBR102 00128 DESBR102 00129 05 HDR1-LINE-5 PIC X(133). DESBR102 00130 05 HDR1-LINE-6 PIC X(133). DESBR102 00131 DESBR102 00132 05 HDR1-LINE-7. DESBR102 00133 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00134 10 FILLER PIC X(11) DESBR102 00135 VALUE 'ACCOUNT NBR'. DESBR102 00136 10 FILLER PIC X(02) VALUE SPACES.DESBR102 00137 10 FILLER PIC X(04) VALUE SPACES.DESBR102 00138 10 FILLER PIC X(16) VALUE DESBR102 00139 'NAME AND ADDRESS'. DESBR102 00140 10 FILLER PIC X(20) VALUE SPACES.DESBR102 00141 10 FILLER PIC X(10) VALUE SPACES.DESBR102 00142 10 FILLER PIC X(06) VALUE DESBR102 00143 'FORMAT'. DESBR102 00144 10 FILLER PIC X(63) VALUE SPACES.DESBR102 00145 DESBR102 00146 05 HDR1-LINE-8 PIC X(133). DESBR102 00147 DESBR102 00148 01 DETAIL1-LINE. DESBR102 00149 DESBR102 00150 05 DTL1-LINE-1. DESBR102 00151 10 FILLER PIC X(03) VALUE SPACE. DESBR102 00152 10 DTL1-ACCT-NBR PIC 999B999. DESBR102 00153 10 FILLER PIC X(04) VALUE SPACES.DESBR102 00154 10 DTL1-NAME-ADDR-1 PIC X(40) VALUE SPACES.DESBR102 00155 10 FILLER PIC X(02) VALUE SPACES.DESBR102 00156 10 DTL1-FORMAT PIC X(60). DESBR102 00157 10 FILLER PIC X(17) VALUE SPACES.DESBR102 00158 DESBR102 00159 05 DTL1-LINE-2. DESBR102 00160 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00161 10 DTL1-NAME-ADDR-2 PIC X(40) VALUE SPACES.DESBR102 00162 10 FILLER PIC X(79) VALUE SPACES.DESBR102 00163 DESBR102 00164 05 DTL1-LINE-3. DESBR102 00165 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00166 10 DTL1-NAME-ADDR-3 PIC X(40) VALUE SPACES.DESBR102 00167 10 FILLER PIC X(79) VALUE SPACES.DESBR102 00168 DESBR102 00169 05 DTL1-LINE-4. DESBR102 00170 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00171 10 DTL1-NAME-ADDR-4 PIC X(40) VALUE SPACES.DESBR102 00172 10 FILLER PIC X(79) VALUE SPACES.DESBR102 00173 DESBR102 00174 05 DTL1-LINE-5. DESBR102 00175 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00176 10 DTL1-NAME-ADDR-5 PIC X(40) VALUE SPACES.DESBR102 00177 10 FILLER PIC X(79) VALUE SPACES.DESBR102 00178 DESBR102 00179 01 PAGE-HEADING2. DESBR102 00180 05 HDR2-LINE-1. DESBR102 00181 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00182 10 FILLER PIC X(10) DESBR102 00183 VALUE 'EMT102R2'. DESBR102 00184 10 FILLER PIC X(30) VALUE SPACES.DESBR102 00185 10 HDR2-AGY-NAME-LINE1 PIC X(50). DESBR102 00186 10 FILLER PIC X(27) VALUE SPACES.DESBR102 00187 10 FILLER PIC X(05) DESBR102 00188 VALUE 'DATE:'. DESBR102 00189 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00190 10 HDR2-SYS-DATE PIC X(08). DESBR102 00191 05 HDR2-LINE-2. DESBR102 00192 10 FILLER PIC X(41) VALUE SPACES.DESBR102 00193 10 HDR2-AGY-NAME-LINE2 PIC X(50). DESBR102 00194 10 FILLER PIC X(27) VALUE SPACES.DESBR102 00195 10 FILLER PIC X(05) DESBR102 00196 VALUE 'TIME:'. DESBR102 00197 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00198 10 HDR2-SYS-TIME PIC X(08). DESBR102 00199 05 HDR2-LINE-3. DESBR102 00200 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00201 10 FILLER PIC X(35) VALUE SPACES.DESBR102 00202 10 FILLER PIC X(82) VALUE SPACES.DESBR102 00203 10 FILLER PIC X(05) DESBR102 00204 VALUE 'PAGE:'. DESBR102 00205 10 FILLER PIC X(03) VALUE SPACES.DESBR102 00206 10 HDR2-PAGE-CNT PIC ZZ,ZZ9. DESBR102 00207 DESBR102 00208 05 HDR2-LINE-4. DESBR102 00209 10 FILLER PIC X(51) VALUE SPACES.DESBR102 00210 10 FILLER PIC X(30) VALUE DESBR102 00211 'WAGE PROCESSING PROBLEM REPORT'. DESBR102 00212 10 FILLER PIC X(52) VALUE SPACES.DESBR102 00213 DESBR102 00214 05 HDR2-LINE-5 PIC X(133). DESBR102 00215 05 HDR2-LINE-6 PIC X(133). DESBR102 00216 DESBR102 00217 05 HDR2-LINE-7. DESBR102 00218 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00219 10 FILLER PIC X(11) DESBR102 00220 VALUE 'ACCOUNT NBR'. DESBR102 00221 10 FILLER PIC X(02) VALUE SPACES.DESBR102 00222 10 FILLER PIC X(04) VALUE SPACES.DESBR102 00223 10 FILLER PIC X(16) VALUE DESBR102 00224 'NAME AND ADDRESS'. DESBR102 00225 10 FILLER PIC X(20) VALUE SPACES.DESBR102 00226 10 FILLER PIC X(10) VALUE SPACES.DESBR102 00227 10 FILLER PIC X(06) VALUE DESBR102 00228 'FORMAT'. DESBR102 00229 10 FILLER PIC X(63) VALUE SPACES.DESBR102 00230 DESBR102 00231 05 HDR2-LINE-8 PIC X(133). DESBR102 00232 DESBR102 00233 01 DETAIL2-LINE. DESBR102 00234 DESBR102 00235 05 DTL2-LINE-1. DESBR102 00236 10 FILLER PIC X(03) VALUE SPACE. DESBR102 00237 10 DTL2-ACCT-NBR PIC 999B999. DESBR102 00238 10 FILLER PIC X(04) VALUE SPACES.DESBR102 00239 10 DTL2-NAME-ADDR-1 PIC X(40) VALUE SPACES.DESBR102 00240 10 FILLER PIC X(02) VALUE SPACES.DESBR102 00241 10 DTL2-FORMAT PIC X(60). DESBR102 00242 10 FILLER PIC X(17) VALUE SPACES.DESBR102 00243 DESBR102 00244 05 DTL2-LINE-2. DESBR102 00245 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00246 10 DTL2-NAME-ADDR-2 PIC X(40) VALUE SPACES.DESBR102 00247 10 FILLER PIC X(16) VALUE SPACES.DESBR102 00248 10 FILLER PIC X(60) VALUE SPACES.DESBR102 00249 10 FILLER PIC X(03) VALUE SPACES.DESBR102 00250 DESBR102 00251 05 DTL2-LINE-3. DESBR102 00252 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00253 10 DTL2-NAME-ADDR-3 PIC X(40) VALUE SPACES.DESBR102 00254 10 FILLER PIC X(16) VALUE SPACES.DESBR102 00255 10 FILLER PIC X(60) VALUE SPACES.DESBR102 00256 10 FILLER PIC X(03) VALUE SPACES.DESBR102 00257 DESBR102 00258 05 DTL2-LINE-4. DESBR102 00259 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00260 10 DTL2-NAME-ADDR-4 PIC X(40) VALUE SPACES.DESBR102 00261 10 FILLER PIC X(16) VALUE SPACES.DESBR102 00262 10 FILLER PIC X(60) VALUE SPACES.DESBR102 00263 10 FILLER PIC X(03) VALUE SPACES.DESBR102 00264 DESBR102 00265 05 DTL2-LINE-5. DESBR102 00266 10 FILLER PIC X(14) VALUE SPACE. DESBR102 00267 10 DTL2-NAME-ADDR-5 PIC X(40) VALUE SPACES.DESBR102 00268 10 FILLER PIC X(16) VALUE SPACES.DESBR102 00269 10 FILLER PIC X(60) VALUE SPACES.DESBR102 00270 10 FILLER PIC X(03) VALUE SPACES.DESBR102 00271 DESBR102 00272 05 DTL2-LINE-6 PIC X(133). DESBR102 00273 DESBR102 00274 05 DTL2-LINE-7. DESBR102 00275 10 FILLER PIC X(01) VALUE SPACE. DESBR102 00276 10 FILLER PIC X(15) VALUE DESBR102 00277 'PROBLEMS FOUND:'. DESBR102 00278 10 FILLER PIC X(117) VALUE SPACES.DESBR102 00279 DESBR102 00280 05 DTL2-LINE-8 PIC X(133). DESBR102 00281 DESBR102 00282 05 DTL2-LINE-9. DESBR102 00283 10 FILLER PIC X(05) VALUE SPACE. DESBR102 00284 10 DTL2-ERROR-MSG PIC X(60) VALUE SPACES.DESBR102 00285 10 FILLER PIC X(68) VALUE SPACES.DESBR102 00286 DESBR102 00287 01 L041-LINK-AREA. DESBR102 00288 ++INCLUDE DTSIL041 DESBR102 00289 DESBR102 00290 EJECT DESBR102 00291 LINKAGE SECTION. DESBR102 00292 DESBR102 00293 01 LRCM-LINK-AREA. DESBR102 00294 ++INCLUDE DTSILRCM DESBR102 00295 EJECT DESBR102 00296 01 R102-REC. DESBR102 00297 ++INCLUDE DESIR102 DESBR102 00298 EJECT DESBR102 00299 PROCEDURE DIVISION USING LRCM-LINK-AREA DESBR102 00300 R102-REC. DESBR102 00301 DESBR102 00302 IF FIRST-TIME-IND = 'Y' DESBR102 00303 PERFORM I1000-INITIATE THRU I1000-EXIT DESBR102 00304 MOVE 'N' TO FIRST-TIME-IND. DESBR102 00305 DESBR102 00306 IF LRCM-EOR-88 DESBR102 00307 PERFORM T1000-TERMINATE THRU T1000-EXIT DESBR102 00308 ELSE DESBR102 00309 PERFORM P1000-PROCESS THRU P1000-EXIT. DESBR102 00310 DESBR102 00311 GOBACK. DESBR102 00312 DESBR102 00313 I1000-INITIATE. DESBR102 00314 DESBR102 00315 OPEN OUTPUT RPT-FILE1 DESBR102 00316 RPT-FILE2. DESBR102 00317 DESBR102 00318 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE DESBR102 00319 HDR2-SYS-DATE. DESBR102 00320 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME DESBR102 00321 HDR2-SYS-TIME. DESBR102 00322 MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1 DESBR102 00323 HDR2-AGY-NAME-LINE1. DESBR102 00324 MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2 DESBR102 00325 HDR2-AGY-NAME-LINE2. DESBR102 00326 MOVE SPACES TO REPORT-LISTING1 DESBR102 00327 REPORT-LISTING2. DESBR102 00328 DESBR102 00329 I1000-EXIT. DESBR102 00330 EXIT. DESBR102 00331 DESBR102 00332 P1000-PROCESS. DESBR102 00333 DESBR102 00334 IF R102-ELF-ID NOT = HOLD-ELF-ID DESBR102 00335 MOVE R102-ELF-ID TO HOLD-ELF-ID DESBR102 00336 MOVE +0 TO WS-PAGE-CNT1 WS-PAGE-CNT2 DESBR102 00337 DESBR102 00338 IF WS-NUMBER-ONE = +0 DESBR102 00339 MOVE +99 TO WS-NUMBER-ONE DESBR102 00340 ELSE DESBR102 00341 IF R102-RPT-TYPE-CONFIRM-88 DESBR102 00342 MOVE +60 TO WS-LINE-CNT1 DESBR102 00343 END-IF DESBR102 00344 IF R102-RPT-TYPE-ERROR-88 DESBR102 00345 MOVE +60 TO WS-LINE-CNT2 DESBR102 00346 END-IF DESBR102 00347 END-IF DESBR102 00348 END-IF. DESBR102 00349 DESBR102 00350 IF R102-RPT-TYPE-CONFIRM-88 DESBR102 00351 PERFORM P1100-CONFIRM THRU P1100-EXIT DESBR102 00352 ELSE DESBR102 00353 IF R102-RPT-TYPE-ERROR-88 DESBR102 00354 PERFORM P1200-ERROR THRU P1200-EXIT. DESBR102 00355 DESBR102 00356 P1000-EXIT. DESBR102 00357 EXIT. DESBR102 00358 DESBR102 00359 P1100-CONFIRM. DESBR102 00360 MOVE R102-ELF-ID TO DTL1-ACCT-NBR. DESBR102 00361 MOVE R102-FMT-LINE (1) TO DTL1-NAME-ADDR-1. DESBR102 00362 MOVE R102-FMT-LINE (2) TO DTL1-NAME-ADDR-2. DESBR102 00363 MOVE R102-FMT-LINE (3) TO DTL1-NAME-ADDR-3. DESBR102 00364 MOVE R102-FMT-LINE (4) TO DTL1-NAME-ADDR-4. DESBR102 00365 MOVE R102-FMT-LINE (5) TO DTL1-NAME-ADDR-5. DESBR102 00366 DESBR102 00367 SET L041-EPRF-FORMAT-CD TO TRUE. DESBR102 00368 MOVE R102-FORMAT-CD TO L041-CD-3. DESBR102 00369 PERFORM S041-FORMAT-INFO THRU S041-EXIT. DESBR102 00370 IF L041-VALID DESBR102 00371 MOVE L041-LONG-DSCR TO DTL1-FORMAT DESBR102 00372 ELSE DESBR102 00373 MOVE SPACES TO DTL1-FORMAT DESBR102 00374 END-IF. DESBR102 00375 DESBR102 00376 PERFORM P2000-PRINT-HEADER1 THRU P2000-EXIT. DESBR102 00377 DESBR102 00378 WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 1. DESBR102 00379 WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 1. DESBR102 00380 WRITE REPORT-LISTING1 FROM DTL1-LINE-3 AFTER 1. DESBR102 00381 WRITE REPORT-LISTING1 FROM DTL1-LINE-4 AFTER 1. DESBR102 00382 WRITE REPORT-LISTING1 FROM DTL1-LINE-5 AFTER 1. DESBR102 00383 ADD +5 TO WS-LINE-CNT1. DESBR102 00384 DESBR102 00385 P1100-EXIT. DESBR102 00386 EXIT. DESBR102 00387 DESBR102 00388 P1200-ERROR. DESBR102 00389 MOVE R102-ELF-ID TO DTL2-ACCT-NBR. DESBR102 00390 MOVE R102-FMT-LINE (1) TO DTL2-NAME-ADDR-1. DESBR102 00391 MOVE R102-FMT-LINE (2) TO DTL2-NAME-ADDR-2. DESBR102 00392 MOVE R102-FMT-LINE (3) TO DTL2-NAME-ADDR-3. DESBR102 00393 MOVE R102-FMT-LINE (4) TO DTL2-NAME-ADDR-4. DESBR102 00394 MOVE R102-FMT-LINE (5) TO DTL2-NAME-ADDR-5. DESBR102 00395 DESBR102 00396 SET L041-EPRF-FORMAT-CD TO TRUE. DESBR102 00397 MOVE R102-FORMAT-CD TO L041-CD-3. DESBR102 00398 PERFORM S041-FORMAT-INFO THRU S041-EXIT. DESBR102 00399 IF L041-VALID DESBR102 00400 MOVE L041-LONG-DSCR TO DTL2-FORMAT DESBR102 00401 ELSE DESBR102 00402 MOVE SPACES TO DTL2-FORMAT DESBR102 00403 END-IF. DESBR102 00404 DESBR102 00405 PERFORM P3000-PRINT-HEADER2 THRU P3000-EXIT. DESBR102 00406 WRITE REPORT-LISTING2 FROM DTL2-LINE-1 AFTER 1. DESBR102 00407 WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 1. DESBR102 00408 WRITE REPORT-LISTING2 FROM DTL2-LINE-3 AFTER 1. DESBR102 00409 WRITE REPORT-LISTING2 FROM DTL2-LINE-4 AFTER 1. DESBR102 00410 WRITE REPORT-LISTING2 FROM DTL2-LINE-5 AFTER 1. DESBR102 00411 WRITE REPORT-LISTING2 FROM DTL2-LINE-6 AFTER 1. DESBR102 00412 WRITE REPORT-LISTING2 FROM DTL2-LINE-7 AFTER 1. DESBR102 00413 WRITE REPORT-LISTING2 FROM DTL2-LINE-8 AFTER 1. DESBR102 00414 ADD +8 TO WS-LINE-CNT2. DESBR102 00415 DESBR102 00416 PERFORM DESBR102 00417 VARYING WRK-SUB FROM +1 BY +1 DESBR102 00418 UNTIL WRK-SUB > R102-ERR-CNT DESBR102 00419 MOVE R102-ERROR (WRK-SUB) TO DTL2-ERROR-MSG DESBR102 00420 WRITE REPORT-LISTING2 FROM DTL2-LINE-9 AFTER 1 DESBR102 00421 END-PERFORM. DESBR102 00422 DESBR102 00423 ADD R102-ERR-CNT TO WS-LINE-CNT2. DESBR102 00424 DESBR102 00425 P1200-EXIT. DESBR102 00426 EXIT. DESBR102 00427 DESBR102 00428 P2000-PRINT-HEADER1. DESBR102 00429 DESBR102 00430 IF WS-LINE-CNT1 GREATER 58 DESBR102 00431 MOVE +0 TO WS-LINE-CNT1 DESBR102 00432 ADD +1 TO WS-PAGE-CNT1 DESBR102 00433 MOVE WS-PAGE-CNT1 TO HDR1-PAGE-CNT DESBR102 00434 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 AFTER TOP-OF-PAGE DESBR102 00435 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DESBR102 00436 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DESBR102 00437 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DESBR102 00438 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1 DESBR102 00439 WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1 DESBR102 00440 WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1 DESBR102 00441 WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1 DESBR102 00442 ADD +8 TO WS-LINE-CNT1. DESBR102 00443 DESBR102 00444 P2000-EXIT. DESBR102 00445 EXIT. DESBR102 00446 DESBR102 00447 P3000-PRINT-HEADER2. DESBR102 00448 DESBR102 00449 IF WS-LINE-CNT2 GREATER 58 DESBR102 00450 MOVE +0 TO WS-LINE-CNT2 DESBR102 00451 ADD +1 TO WS-PAGE-CNT2 DESBR102 00452 MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT DESBR102 00453 WRITE REPORT-LISTING2 FROM HDR2-LINE-1 AFTER TOP-OF-PAGE DESBR102 00454 WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1 DESBR102 00455 WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1 DESBR102 00456 WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1 DESBR102 00457 WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1 DESBR102 00458 WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1 DESBR102 00459 WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1 DESBR102 00460 WRITE REPORT-LISTING2 FROM HDR2-LINE-8 AFTER 1 DESBR102 00461 ADD +8 TO WS-LINE-CNT2. DESBR102 00462 DESBR102 00463 P3000-EXIT. DESBR102 00464 EXIT. DESBR102 00465 DESBR102 00466 S041-FORMAT-INFO. DESBR102 00467 DESBR102 00468 CALL 'DTSBU041' USING L041-LINK-AREA. DESBR102 00469 DESBR102 00470 S041-EXIT. DESBR102 00471 EXIT. DESBR102 00472 DESBR102 00473 T1000-TERMINATE. DESBR102 00474 DESBR102 00475 CLOSE RPT-FILE1 DESBR102 00476 RPT-FILE2. DESBR102 00477 DESBR102 00478 T1000-EXIT. DESBR102 00479 EXIT. DESBR102 00480 DESBR102 00481 *S999-ABEND. DESBR102 00482 * DESBR102 00483 * CALL 'DTSBU999' USING WRK-ABEND-CD. DESBR102 00484 * DESBR102 00485 *S999-EXIT. DESBR102 00486 * EXIT. DESBR102 00487 DESBR102