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