00001 IDENTIFICATION DIVISION. 06/03/02 00002 PROGRAM-ID. DTSBR606. DTSBR606 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV068 00004 DATE-WRITTEN. JANUARY 1995. DTSBR606 00005 DATE-COMPILED. DTSBR606 00006 SKIP3 DTSBR606 00007 ***** DTSBR606 00008 * DTSBR606 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR606 00010 * DTSBE606 WHICH UPDATES DTSIR606 DTSBR606 00011 * DTSBR606 READS DTSIR606 RECORDS. DTSBR606 00012 * DTSBR606 00013 * FUNCTION: ASSIGNMENT SUMMARY BY FIELD REP EXPORT. DTSBR606 00014 * DTSBR606 00015 * DTSBR606 00016 * MODIFICATION HISTORY: DTSBR606 00017 * DTSBR606 00018 * 01-19-95 INITIAL DEVELOPMENT. DTSBR606 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RHC DTSBR606 00020 * DTSBR606 00021 * 01-30-95 ADD SELECTION CRITERIA TO RECORDS. DTSBR606 00022 * REFERENCE RFP #CR043 AUTHOR OF CHANGE - RHC DTSBR606 00023 * DTSBR606 00024 * 03-27-95 REFORMAT PARM DATES TO MMDDYY, AND/OR 000000, 999999. DTSBR606 00025 * REFERENCE RFP #TPR AUTHOR OF CHANGE - RHC DTSBR606 00026 * DTSBR606 00027 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064 DTSBR606 00028 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR606 00029 * DTSBR606 00030 * 11-20-98 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATONS. DTSBR606 00031 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR606 00032 * DTSBR606 00033 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR606 00034 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR606 00035 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR606 00036 * DTSBR606 00037 * DTSBR606 00038 * DESCRIPTION: DTSBR606 00039 * DTSBR606 00040 * ASSIGNMENT SUMMARY BY FIELD REP EXPORT FOR DOWNLOAD DTSBR606 00041 * TO A PC (DATAEASE). DTSBR606 00042 * DTSBR606 00043 * THIS IS AN "AT LEAST ONCE" MODULE. DTSBR606 00044 * DTSBR606 00045 * DTSBR606 00046 * RECORDS READ: DTSBR606 00047 * DTSBR606 00048 * NONE. DTSBR606 00049 * DTSBR606 00050 * DTSBR606 00051 * PRINTED OUTPUTS: DTSBR606 00052 * DTSBR606 00053 * NONE. DTSBR606 00054 * DTSBR606 00055 * DTSBR606 00056 * RECORDS WRITTEN: DTSBR606 00057 * DTSBR606 00058 * 606R1 ASSIGNMENT SUMMARY BY FIELD REP EXPORT DTSBR606 00059 * DTSBR606 00060 * DTSBR606 00061 * MODULES CALLED: DTSBR606 00062 * DTSBR606 00063 * GETSER DATASET INFORMATION MODULE DTSBR606 00064 * DTSBR991 EXPORT CONTROL REPORT MODULE DTSBR606 00065 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR606 00066 * DTSBU062 FIELD REP NAME LOOKUP DTSBR606 00067 * DTSBU143 VARIABLE LENGTH RECORD CONSTRUCTION MODULE DTSBR606 00068 * DTSBR606 00069 * DTSBR606 00070 ***** DTSBR606 00071 EJECT DTSBR606 00072 ENVIRONMENT DIVISION. DTSBR606 00073 CONFIGURATION SECTION. DTSBR606 00074 SPECIAL-NAMES. DTSBR606 00075 C01 IS TOP-OF-PAGE. DTSBR606 00076 INPUT-OUTPUT SECTION. DTSBR606 00077 DTSBR606 00078 FILE-CONTROL. DTSBR606 00079 SELECT PRINT-FILE ASSIGN TO RPT606R1 DTSBR606 00080 FILE STATUS IS WS-FILE-STATUS. DTSBR606 00081 SKIP3 DTSBR606 00082 DATA DIVISION. DTSBR606 00083 SKIP3 DTSBR606 00084 FILE SECTION. DTSBR606 00085 DTSBR606 00086 FD PRINT-FILE DTSBR606 00087 RECORDING MODE IS F DTSBR606 00088 BLOCK CONTAINS 0 RECORDS. DTSBR606 00089 01 PRINT-REC PIC X(133). DTSBR606 00090 EJECT DTSBR606 00091 WORKING-STORAGE SECTION. DTSBR606 000915 77 PAN-VALET PICTURE X(24) VALUE '068DTSBR606 06/03/02'. DTSBR606 00092 SKIP3 DTSBR606 00093 01 WS-WRK-AREA. DTSBR606 00094 05 WS-ABEND-CD PIC S9(04) COMP VALUE +606.DTSBR606 00095 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR606 00096 DTSBR606 00097 05 WS-FILE-STATUS PIC X(02). DTSBR606 00098 88 FILE-OK-88 VALUE '00'. DTSBR606 00099 05 WS-VAR-CHAR-CNT PIC S9(04) COMP. DTSBR606 00100 DTSBR606 00101 05 WS-SUB PIC S9(04) COMP. DTSBR606 00102 05 WS-PAGE-COUNTER PIC S9(04) VALUE ZEROES. DTSBR606 00103 05 WS-START-ABS-DAY PIC S9(08) COMP. DTSBR606 00104 SKIP3 DTSBR606 00105 01 WS-TOTAL-AREA. DTSBR606 00106 05 WS-FIELD-REP-ID PIC X(02). DTSBR606 00107 05 WS-NBR-LARGE PIC S9(05) COMP-3. DTSBR606 00108 05 WS-NBR-DUE PIC S9(05) COMP-3. DTSBR606 00109 05 WS-NBR-DUE-NOT-GT-COLL PIC S9(05) COMP-3. DTSBR606 00110 05 WS-TOT-COLL PIC S9(11)V99 COMP-3. DTSBR606 00111 05 WS-NBR-CHANGE PIC S9(05) COMP-3. DTSBR606 00112 05 WS-NBR-PEN-OR-INT PIC S9(05) COMP-3. DTSBR606 00113 05 FILLER OCCURS 3. DTSBR606 00114 10 WS-NBR-ASSI PIC S9(05) COMP-3. DTSBR606 00115 10 WS-NBR-QTRS PIC S9(05) COMP-3. DTSBR606 00116 10 WS-NBR-HRS PIC S9(04)V9 COMP-3. DTSBR606 00117 10 WS-NBR-DAYS PIC S9(09) COMP-3. DTSBR606 00118 10 WS-TOT-GROSS PIC S9(11)V99 COMP-3. DTSBR606 00119 10 WS-TOT-TOT-CHANGE PIC S9(11)V99 COMP-3. DTSBR606 00120 10 WS-TOT-TAX-CHANGE PIC S9(11)V99 COMP-3. DTSBR606 00121 10 WS-TOT-CONTRIB-CHANGE PIC S9(11)V99 COMP-3. DTSBR606 00122 10 WS-NBR-NEW-EMP PIC S9(05) COMP-3. DTSBR606 00123 SKIP3 DTSBR606 00124 01 WS-PARM-AREA. DTSBR606 00125 05 WS-PARM-COMPL-START PIC S9(09) COMP-3. DTSBR606 00126 05 WS-PARM-COMPL-END PIC S9(09) COMP-3. DTSBR606 00127 05 WS-PARM-PROCESS-START PIC S9(09) COMP-3. DTSBR606 00128 05 WS-PARM-PROCESS-END PIC S9(09) COMP-3. DTSBR606 00129 05 WS-PARM-ASSIGN-CNT PIC S9(04) COMP. DTSBR606 00130 05 WS-PARM-ASSIGN-TYPE OCCURS 5 DTSBR606 00131 INDEXED BY WS-PARM-ASSIGN-IDX DTSBR606 00132 PIC X(02). DTSBR606 00133 SKIP3 DTSBR606 00134 01 WS-EDIT-AREA. DTSBR606 00135 05 WS-EDIT-2-X PIC X(02). DTSBR606 00136 05 WS-EDIT-5 PIC 9(05). DTSBR606 00137 05 WS-EDIT-PERCENTAGE PIC 9(03).99. DTSBR606 00138 05 WS-EDIT-DATE PIC 9(09). DTSBR606 00139 88 WS-EDIT-DATE-SPECIAL VALUE 0 999999999. DTSBR606 00140 05 WS-EDIT-HRS PIC 9(05).9. DTSBR606 00141 05 WS-EDIT-AVERAGE PIC 9(04).99. DTSBR606 00142 05 WS-EDIT-AMT PIC 9(11).99-. DTSBR606 00143 SKIP3 DTSBR606 00144 01 WS-GETSER-PARAMETERS. DTSBR606 00145 05 WS-GETSER-VOL-SER PIC X(30). DTSBR606 00146 05 WS-GETSER-DATASET-NAME PIC X(44). DTSBR606 00147 05 WS-GETSER-VOLUME-COUNT PIC 9(03). DTSBR606 00148 05 WS-GETSER-DD-NAME PIC X(08). DTSBR606 00149 05 WS-GETSER-STEP-NAME PIC X(08). DTSBR606 00150 SKIP3 DTSBR606 00151 01 WS-REPORT-AREA. DTSBR606 00152 05 WS-DEFAULT-START-DATE PIC S9(09) COMP-3 VALUE 0. DTSBR606 00153 05 WS-DEFAULT-END-DATE PIC S9(09) COMP-3 VALUE DTSBR606 00154 999999999. DTSBR606 00155 05 WS-DATE-AREA PIC 9(09) VALUE 0. DTSBR606 00156 05 WS-DATE-AREA-R REDEFINES WS-DATE-AREA. DTSBR606 00157 10 FILLER PIC 9. DTSBR606 00158 10 WS-DATE-YR. DTSBR606 00159 15 WS-DATE-CENTURY PIC 9(2). DTSBR606 00160 15 WS-DATE-YEAR PIC 9(2). DTSBR606 00161 10 WS-DATE-MTH PIC 9(2). DTSBR606 00162 10 WS-DATE-DAY PIC 9(2). DTSBR606 00163 05 WS-FORMATTED-DATE. DTSBR606 00164 10 WS-DATE-MM PIC X(02). DTSBR606 00165 10 FILLER PIC X(01) VALUE '/'. DTSBR606 00166 10 WS-DATE-DD PIC X(02). DTSBR606 00167 10 FILLER PIC X(01) VALUE '/'. DTSBR606 00168 10 WS-DATE-YY PIC X(02). DTSBR606 00169 05 WS-HEADER-1. DTSBR606 00170 10 FILLER PIC X(01). DTSBR606 00171 10 WS-REPORT-TYPE PIC X(05) VALUE DTSBR606 00172 '606R1'. DTSBR606 00173 10 FILLER PIC X(35) VALUE SPACES. DTSBR606 00174 10 WS-LRCM-AGY-NAME-LINE1 PIC X(50). DTSBR606 00175 10 FILLER PIC X(28) VALUE SPACES. DTSBR606 00176 10 FILLER PIC X(05) DTSBR606 00177 VALUE 'DATE:'. DTSBR606 00178 10 WS-LRCM-SYS-DATE PIC X(08). DTSBR606 00179 05 WS-HEADER-2. DTSBR606 00180 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00181 10 FILLER PIC X(40) VALUE SPACE. DTSBR606 00182 10 WS-LRCM-AGY-NAME-LINE2 PIC X(50). DTSBR606 00183 10 FILLER PIC X(28) VALUE SPACE. DTSBR606 00184 10 FILLER PIC X(05) DTSBR606 00185 VALUE 'TIME:'. DTSBR606 00186 10 WS-LRCM-SYS-TIME PIC X(08). DTSBR606 00187 05 WS-HEADER-3. DTSBR606 00188 10 FILLER PIC X(01). DTSBR606 00189 10 FILLER PIC X(10) VALUE DTSBR606 00190 'ROUTE TO: '. DTSBR606 00191 10 WS-HEADER-3-UNIT PIC X(20). DTSBR606 00192 10 FILLER PIC X(10) VALUE SPACE. DTSBR606 00193 10 WS-HEADER-3-TITLE PIC X(50). DTSBR606 00194 * 10 FILLER PIC X(08) VALUE SPACE. DTSBR606 00195 10 FILLER PIC X(28) VALUE SPACE. DTSBR606 00196 10 FILLER PIC X(05) DTSBR606 00197 VALUE 'PAGE:'. DTSBR606 00198 10 W-PAGE-CNTR PIC ZZ,ZZ9. DTSBR606 00199 05 WS-LINE-1. DTSBR606 00200 10 FILLER PIC X(01). DTSBR606 00201 10 FILLER PIC X(19) VALUE DTSBR606 00202 'SELECTION CRITERIA:'. DTSBR606 00203 05 WS-LINE-2. DTSBR606 00204 10 FILLER PIC X(01). DTSBR606 00205 10 FILLER PIC X(40) VALUE DTSBR606 00206 ' AUDIT ASSIGNMENT?: '. DTSBR606 00207 10 W-AUDIT-ASSIGN-TYPE PIC X(01). DTSBR606 00208 05 WS-LINE-3. DTSBR606 00209 10 FILLER PIC X(01). DTSBR606 00210 10 FILLER PIC X(30) VALUE DTSBR606 00211 ' ASSIGN TYPE: '. DTSBR606 00212 10 W-ASSIGN-TYPE OCCURS 5 TIMES PIC X(03). DTSBR606 00213 05 WS-LINE-4. DTSBR606 00214 10 FILLER PIC X(01). DTSBR606 00215 10 FILLER PIC X(40) VALUE DTSBR606 00216 ' COMPLETED DATE RANGE: BEGIN: '. DTSBR606 00217 10 W-COMPL-START-DATE PIC X(10). DTSBR606 00218 10 FILLER PIC X(06) VALUE DTSBR606 00219 ' END: '. DTSBR606 00220 10 W-COMPL-END-DATE PIC X(10). DTSBR606 00221 05 WS-LINE-5. DTSBR606 00222 10 FILLER PIC X(01). DTSBR606 00223 10 FILLER PIC X(40) VALUE DTSBR606 00224 ' PROCESSED DATE RANGE: BEGIN: '. DTSBR606 00225 10 W-PROCESS-START-DATE PIC X(10). DTSBR606 00226 10 FILLER PIC X(06) VALUE DTSBR606 00227 ' END: '. DTSBR606 00228 10 W-PROCESS-END-DATE PIC X(10). DTSBR606 00229 05 WS-LINE-6. DTSBR606 00230 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00231 10 FILLER PIC X(17) VALUE DTSBR606 00232 ' FIELD REP ID: '. DTSBR606 00233 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00234 10 W-FIELD-REP-ID PIC X(03). DTSBR606 00235 10 FILLER PIC X(03) VALUE SPACE. DTSBR606 00236 10 W-FIELD-REP-NAME PIC X(50). DTSBR606 00237 05 WS-LINE-7. DTSBR606 00238 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00239 10 FILLER PIC X(17) VALUE DTSBR606 00240 ' NO LARGE EMP: '. DTSBR606 00241 10 W-EMP-CNT PIC Z,ZZ9. DTSBR606 00242 10 FILLER PIC X(11) VALUE SPACES. DTSBR606 00243 10 FILLER PIC X(40) VALUE DTSBR606 00244 '% MONEY DUE AUDITS(PAYMENTS OBTAINED) : '. DTSBR606 00245 10 W-MONEY-DUE-PYMTS PIC ZZZ.99. DTSBR606 00246 05 WS-LINE-8. DTSBR606 00247 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00248 10 FILLER PIC X(17) VALUE DTSBR606 00249 ' CHNG AUDITS: '. DTSBR606 00250 10 W-CHG-AUDIT PIC Z,ZZ9. DTSBR606 00251 10 FILLER PIC X(11) VALUE SPACES. DTSBR606 00252 10 FILLER PIC X(40) VALUE DTSBR606 00253 '% MONEY DUE AUDITS(WAIVERS GRANTED ) : '. DTSBR606 00254 10 W-MONEY-DUE-WAIVERS PIC ZZZ.99. DTSBR606 00255 05 WS-LINE-9. DTSBR606 00256 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00257 10 FILLER PIC X(17) VALUE DTSBR606 00258 'MONEY COLLECTED: '. DTSBR606 00259 10 W-MONEY-COLLECTED PIC ZZZ,ZZZ,ZZZ.ZZ. DTSBR606 00260 05 WS-BREAK-AREA PIC X(132) VALUE ALL '-'. DTSBR606 00261 05 WS-DTL-HDR-1. DTSBR606 00262 10 FILLER PIC X(53) VALUE SPACE. DTSBR606 00263 10 FILLER PIC X(10) VALUE DTSBR606 00264 'INCREASE'. DTSBR606 00265 10 FILLER PIC X(25) VALUE SPACE. DTSBR606 00266 10 FILLER PIC X(10) VALUE DTSBR606 00267 'DECREASE'. DTSBR606 00268 10 FILLER PIC X(25) VALUE SPACE. DTSBR606 00269 10 FILLER PIC X(10) VALUE DTSBR606 00270 'NO CHANGE'. DTSBR606 00271 05 WS-LINE-10. DTSBR606 00272 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00273 10 FILLER PIC X(15) VALUE DTSBR606 00274 ' NO OF AUDITS'. DTSBR606 00275 10 FILLER PIC X(40) VALUE SPACES. DTSBR606 00276 10 W-AUDIT-INCR PIC Z,ZZ9. DTSBR606 00277 10 FILLER PIC X(30) VALUE SPACES. DTSBR606 00278 10 W-AUDIT-DECR PIC Z,ZZ9. DTSBR606 00279 10 FILLER PIC X(31) VALUE SPACES. DTSBR606 00280 10 W-AUDIT-NOCHG PIC Z,ZZ9. DTSBR606 00281 05 WS-LINE-11. DTSBR606 00282 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00283 10 FILLER PIC X(15) VALUE DTSBR606 00284 'NO OF QUARTERS'. DTSBR606 00285 10 FILLER PIC X(42) VALUE SPACE. DTSBR606 00286 10 W-QTRS-INCR PIC ZZ9. DTSBR606 00287 10 FILLER PIC X(32) VALUE SPACES. DTSBR606 00288 10 W-QTRS-DECR PIC ZZ9. DTSBR606 00289 10 FILLER PIC X(33) VALUE SPACES. DTSBR606 00290 10 W-QTRS-NOCHG PIC ZZ9. DTSBR606 00291 05 WS-LINE-12. DTSBR606 00292 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00293 10 FILLER PIC X(15) VALUE DTSBR606 00294 ' NO OF HOURS'. DTSBR606 00295 10 FILLER PIC X(39) VALUE SPACES. DTSBR606 00296 10 W-HRS-INCR PIC ZZZZ.9. DTSBR606 00297 10 FILLER PIC X(29) VALUE SPACES. DTSBR606 00298 10 W-HRS-DECR PIC ZZZZ.9. DTSBR606 00299 10 FILLER PIC X(30) VALUE SPACES. DTSBR606 00300 10 W-HRS-NOCHG PIC ZZZZ.9. DTSBR606 00301 05 WS-LINE-13. DTSBR606 00302 10 FILLER PIC X(01) VALUE SPACES. DTSBR606 00303 10 FILLER PIC X(15) VALUE DTSBR606 00304 'AVG DAYS SPENT'. DTSBR606 00305 10 FILLER PIC X(38) VALUE SPACES. DTSBR606 00306 10 W-AVGDA-INCR PIC ZZZZ.99. DTSBR606 00307 10 FILLER PIC X(28) VALUE SPACES. DTSBR606 00308 10 W-AVGDA-DECR PIC ZZZZ.99. DTSBR606 00309 10 FILLER PIC X(29) VALUE SPACES. DTSBR606 00310 10 W-AVGDA-NOCHG PIC ZZZZ.99. DTSBR606 00311 05 WS-DTL-HDR-2. DTSBR606 00312 10 FILLER PIC X(53) VALUE SPACES. DTSBR606 00313 10 FILLER PIC X(24) VALUE DTSBR606 00314 '-----------------------'. DTSBR606 00315 10 FILLER PIC X(32) VALUE DTSBR606 00316 'NET CHANGES RESULTING FROM AUDIT'. DTSBR606 00317 10 FILLER PIC X(25) VALUE DTSBR606 00318 ' ----------------------'. DTSBR606 00319 05 WS-LINE-14. DTSBR606 00320 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00321 10 FILLER PIC X(15) VALUE DTSBR606 00322 ' NEW EMPLOYEES'. DTSBR606 00323 10 FILLER PIC X(40) VALUE SPACES. DTSBR606 00324 10 W-NEMPL-INCR PIC ZZZZ9. DTSBR606 00325 10 FILLER PIC X(30) VALUE SPACES. DTSBR606 00326 10 W-NEMPL-DECR PIC ZZZZ9. DTSBR606 00327 10 FILLER PIC X(31) VALUE SPACES. DTSBR606 00328 10 W-NEMPL-NOCHG PIC ZZZZ9. DTSBR606 00329 05 WS-LINE-15. DTSBR606 00330 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00331 10 FILLER PIC X(15) VALUE DTSBR606 00332 ' GROSS PAYROLL'. DTSBR606 00333 10 FILLER PIC X(34) VALUE SPACES. DTSBR606 00334 10 W-PAYRL-INCR PIC ZZZZ,ZZZ.99. DTSBR606 00335 10 FILLER PIC X(24) VALUE SPACES. DTSBR606 00336 10 W-PAYRL-DECR PIC ZZZZ,ZZZ.99. DTSBR606 00337 10 FILLER PIC X(25) VALUE SPACES. DTSBR606 00338 10 W-PAYRL-NOCHG PIC ZZZZ,ZZZ.99. DTSBR606 00339 05 WS-LINE-16. DTSBR606 00340 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00341 10 FILLER PIC X(15) VALUE DTSBR606 00342 'TOTAL WAGES '. DTSBR606 00343 10 FILLER PIC X(34) VALUE SPACE. DTSBR606 00344 10 W-WAGE-INCR PIC ZZZZ,ZZZ.99. DTSBR606 00345 10 FILLER PIC X(24) VALUE SPACE. DTSBR606 00346 10 W-WAGE-DECR PIC ZZZZ,ZZZ.99. DTSBR606 00347 10 FILLER PIC X(25) VALUE SPACES. DTSBR606 00348 10 W-WAGE-NOCHG PIC ZZZZ,ZZZ.99. DTSBR606 00349 05 WS-LINE-17. DTSBR606 00350 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00351 10 FILLER PIC X(15) VALUE DTSBR606 00352 'TAX WGE CHANGE'. DTSBR606 00353 10 FILLER PIC X(34) VALUE SPACES. DTSBR606 00354 10 W-TXWGE-INCR PIC ZZZZ,ZZZ.99. DTSBR606 00355 10 FILLER PIC X(24) VALUE SPACES. DTSBR606 00356 10 W-TXWGE-DECR PIC ZZZZ,ZZZ.99. DTSBR606 00357 10 FILLER PIC X(25) VALUE SPACES. DTSBR606 00358 10 W-TXWGE-NOCHG PIC ZZZZ,ZZZ.99. DTSBR606 00359 05 WS-LINE-18. DTSBR606 00360 10 FILLER PIC X(01) VALUE SPACE. DTSBR606 00361 10 FILLER PIC X(15) VALUE DTSBR606 00362 'CONTRIB CHANGE'. DTSBR606 00363 10 FILLER PIC X(34) VALUE SPACES. DTSBR606 00364 10 W-CONTR-INCR PIC ZZZZ,ZZZ.99. DTSBR606 00365 10 FILLER PIC X(24) VALUE SPACES. DTSBR606 00366 10 W-CONTR-DECR PIC ZZZZ,ZZZ.99. DTSBR606 00367 10 FILLER PIC X(25) VALUE SPACES. DTSBR606 00368 10 W-CONTR-NOCHG PIC ZZZZ,ZZZ.99. DTSBR606 00369 EJECT DTSBR606 00370 01 R991-REC. DTSBR606 00371 ++INCLUDE DTSIR991 DTSBR606 00372 EJECT DTSBR606 00373 01 L001-LINK-AREA. DTSBR606 00374 ++INCLUDE DTSIL001 DTSBR606 00375 EJECT DTSBR606 00376 01 L062-LINK-AREA. DTSBR606 00377 ++INCLUDE DTSIL062 DTSBR606 00378 EJECT DTSBR606 00379 01 L071-LINK-AREA. DTSBR606 00380 ++INCLUDE DTSIL071 DTSBR606 00381 EJECT DTSBR606 00382 01 L143-LINK-AREA. DTSBR606 00383 ++INCLUDE DTSIL143 DTSBR606 00384 EJECT DTSBR606 00385 LINKAGE SECTION. DTSBR606 00386 SKIP3 DTSBR606 00387 01 LRCM-LINK-AREA. DTSBR606 00388 ++INCLUDE DTSILRCM DTSBR606 00389 EJECT DTSBR606 00390 01 R606-REC. DTSBR606 00391 ++INCLUDE DTSIR606 DTSBR606 00392 EJECT DTSBR606 00393 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR606 00394 R606-REC. DTSBR606 00395 SKIP3 DTSBR606 00396 IF FIRST-TIME-IND = 'Y' DTSBR606 00397 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR606 00398 MOVE 'N' TO FIRST-TIME-IND. DTSBR606 00399 SKIP3 DTSBR606 00400 IF LRCM-EOR-88 DTSBR606 00401 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR606 00402 ELSE DTSBR606 00403 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR606 00404 SKIP3 DTSBR606 00405 GOBACK. DTSBR606 00406 EJECT DTSBR606 00407 I1000-INITIATE. DTSBR606 00408 DTSBR606 00409 * OPEN OUTPUT EXPORT-FILE. DTSBR606 00410 OPEN OUTPUT PRINT-FILE. DTSBR606 00411 MOVE '606' TO R991-MOD. DTSBR606 00412 MOVE 'ENFORCEMENT UNIT' TO R991-ROUTE1 WS-HEADER-3-UNIT. DTSBR606 00413 MOVE ' ' TO R991-ROUTE2. DTSBR606 00414 MOVE 'AUDIT ASSIGNMENT SUMMARY BY FIELD REPRESENTATIVE ' DTSBR606 00415 TO WS-HEADER-3-TITLE DTSBR606 00416 R991-DATA-TYPE. DTSBR606 00417 MOVE LRCM-AGY-NAME-LINE1 TO WS-LRCM-AGY-NAME-LINE1. DTSBR606 00418 MOVE LRCM-AGY-NAME-LINE2 TO WS-LRCM-AGY-NAME-LINE2. DTSBR606 00419 MOVE LRCM-SYS-DATE TO WS-LRCM-SYS-DATE. DTSBR606 00420 MOVE LRCM-SYS-TIME TO WS-LRCM-SYS-TIME. DTSBR606 00421 MOVE 'RECORDS' TO R991-UNIT-DSCR. DTSBR606 00422 MOVE +0 TO R991-UNIT-COUNT. DTSBR606 00423 SKIP3 DTSBR606 00424 SET L143-FIELD-DELIM-SEMI TO TRUE. DTSBR606 00425 SET L143-STRING-DELIM-NO TO TRUE. DTSBR606 00426 SET L143-EMBED-NO-REPLACE TO TRUE. DTSBR606 00427 SET L143-EDIT-FIELD-NO TO TRUE. DTSBR606 00428 SKIP3 DTSBR606 00429 INITIALIZE WS-TOTAL-AREA. DTSBR606 00430 IF LRCM-EOR-88 DTSBR606 00431 MOVE LOW-VALUE TO WS-FIELD-REP-ID DTSBR606 00432 ELSE DTSBR606 00433 MOVE R606-FIELD-REP-ID TO WS-FIELD-REP-ID DTSBR606 00434 MOVE R606-PARM-AREA TO WS-PARM-AREA. DTSBR606 00435 DTSBR606 00436 DTSBR606 00437 I1000-EXIT. DTSBR606 00438 EXIT. DTSBR606 00439 SKIP3 DTSBR606 00440 SKIP3 DTSBR606 00441 P1000-PROCESS. DTSBR606 00442 DTSBR606 00443 DTSBR606 00444 IF R606-FIELD-REP-ID NOT = WS-FIELD-REP-ID DTSBR606 00445 PERFORM P1200-WRITE THRU P1200-EXIT DTSBR606 00446 PERFORM P1250-R606 THRU P1250-EXIT DTSBR606 00447 DTSBR606 00448 INITIALIZE WS-TOTAL-AREA DTSBR606 00449 MOVE R606-FIELD-REP-ID TO WS-FIELD-REP-ID. DTSBR606 00450 SKIP3 DTSBR606 00451 PERFORM P1100-ACCUMULATE THRU P1100-EXIT. DTSBR606 00452 DTSBR606 00453 P1000-EXIT. DTSBR606 00454 EXIT. DTSBR606 00455 EJECT DTSBR606 00456 P1100-ACCUMULATE. DTSBR606 00457 DTSBR606 00458 DTSBR606 00459 IF R606-EMP-SIZE-IND = 'L' DTSBR606 00460 ADD +1 TO WS-NBR-LARGE. DTSBR606 00461 DTSBR606 00462 IF R606-MONEY-DUE-AMT > 0 DTSBR606 00463 ADD +1 TO WS-NBR-DUE DTSBR606 00464 PERFORM P1110-MONEY-DUE THRU P1110-EXIT. DTSBR606 00465 DTSBR606 00466 IF R606-CHANGE-AUDIT-YES-88 DTSBR606 00467 ADD +1 TO WS-NBR-CHANGE. DTSBR606 00468 SKIP3 DTSBR606 00469 MOVE R606-CATEGORY-9 TO WS-SUB. DTSBR606 00470 ADD +1 TO WS-NBR-ASSI (WS-SUB). DTSBR606 00471 DTSBR606 00472 ADD R606-QTRS-AUDITED-CNT TO WS-NBR-QTRS (WS-SUB). DTSBR606 00473 ADD R606-AUDIT-HRS TO WS-NBR-HRS (WS-SUB). DTSBR606 00474 DTSBR606 00475 MOVE R606-START-DATE TO L001-FED-8-DATE-9. DTSBR606 00476 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR606 00477 MOVE L001-JUL-ABS-DAY TO WS-START-ABS-DAY. DTSBR606 00478 MOVE R606-COMPLETED-DATE TO L001-FED-8-DATE-9. DTSBR606 00479 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR606 00480 IF L001-JUL-ABS-DAY > WS-START-ABS-DAY DTSBR606 00481 COMPUTE WS-NBR-DAYS (WS-SUB) = DTSBR606 00482 WS-NBR-DAYS (WS-SUB) DTSBR606 00483 + L001-JUL-ABS-DAY DTSBR606 00484 - WS-START-ABS-DAY. DTSBR606 00485 DTSBR606 00486 ADD R606-TOT-GROSS-PAYROLL TO WS-TOT-GROSS (WS-SUB). DTSBR606 00487 ADD R606-TOT-WAGE-CHANGE TO WS-TOT-TOT-CHANGE (WS-SUB). DTSBR606 00488 ADD R606-TAX-WAGE-CHANGE TO WS-TOT-TAX-CHANGE (WS-SUB). DTSBR606 00489 ADD R606-CONTRIB-CHANGE TO WS-TOT-CONTRIB-CHANGE (WS-SUB).DTSBR606 00490 ADD R606-NEW-EMPLOYEE-CNT TO WS-NBR-NEW-EMP (WS-SUB). DTSBR606 00491 DTSBR606 00492 P1100-EXIT. DTSBR606 00493 EXIT. DTSBR606 00494 SKIP3 DTSBR606 00495 P1110-MONEY-DUE. DTSBR606 00496 DTSBR606 00497 IF R606-MONEY-DUE-AMT NOT > R606-MONEY-COLLECT-AMT DTSBR606 00498 ADD +1 TO WS-NBR-DUE-NOT-GT-COLL. DTSBR606 00499 DTSBR606 00500 ADD R606-MONEY-COLLECT-AMT TO WS-TOT-COLL. DTSBR606 00501 DTSBR606 00502 IF R606-PEN-WAIVE-IND = 'Y' DTSBR606 00503 OR R606-INT-WAIVE-IND = 'Y' DTSBR606 00504 ADD +1 TO WS-NBR-PEN-OR-INT. DTSBR606 00505 DTSBR606 00506 P1110-EXIT. DTSBR606 00507 EXIT. DTSBR606 00508 EJECT DTSBR606 00509 DTSBR606 00510 EJECT DTSBR606 00511 P1200-WRITE. DTSBR606 00512 DTSBR606 00513 DTSBR606 00514 SKIP3 DTSBR606 00515 MOVE WS-FIELD-REP-ID TO L062-FLD-REP-ID W-FIELD-REP-ID. DTSBR606 00516 DTSBR606 00517 PERFORM S062-FLD-REP-NAME THRU S062-EXIT. DTSBR606 00518 MOVE L062-NAME TO L071-NAM. DTSBR606 00519 MOVE 2 TO L071-NAME-FORMAT DTSBR606 00520 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR606 00521 MOVE L071-NAM TO W-FIELD-REP-NAME. DTSBR606 00522 DTSBR606 00523 DTSBR606 00524 MOVE WS-FIELD-REP-ID TO L062-FLD-REP-ID. DTSBR606 00525 DTSBR606 00526 MOVE WS-NBR-LARGE TO WS-EDIT-5 W-EMP-CNT. DTSBR606 00527 DTSBR606 00528 IF WS-NBR-DUE = +0 DTSBR606 00529 MOVE 0 TO WS-EDIT-PERCENTAGE DTSBR606 00530 ELSE DTSBR606 00531 COMPUTE WS-EDIT-PERCENTAGE ROUNDED = DTSBR606 00532 100 DTSBR606 00533 * WS-NBR-DUE-NOT-GT-COLL DTSBR606 00534 / WS-NBR-DUE. DTSBR606 00535 MOVE WS-EDIT-PERCENTAGE TO W-MONEY-DUE-PYMTS. DTSBR606 00536 DTSBR606 00537 MOVE WS-TOT-COLL TO WS-EDIT-AMT W-MONEY-COLLECTED. DTSBR606 00538 DTSBR606 00539 MOVE WS-NBR-CHANGE TO WS-EDIT-5. DTSBR606 00540 DTSBR606 00541 IF WS-NBR-DUE = +0 DTSBR606 00542 MOVE 0 TO WS-EDIT-PERCENTAGE DTSBR606 00543 ELSE DTSBR606 00544 COMPUTE WS-EDIT-PERCENTAGE ROUNDED = DTSBR606 00545 100 DTSBR606 00546 * WS-NBR-PEN-OR-INT DTSBR606 00547 / WS-NBR-DUE. DTSBR606 00548 MOVE WS-EDIT-PERCENTAGE TO W-MONEY-DUE-WAIVERS. DTSBR606 00549 DTSBR606 00550 PERFORM P1210-INCR-DECR-NOCHG THRU P1210-EXIT DTSBR606 00551 VARYING WS-SUB FROM 1 BY 1 DTSBR606 00552 UNTIL WS-SUB > 3. DTSBR606 00553 DTSBR606 00554 MOVE WS-PARM-COMPL-START TO WS-EDIT-DATE WS-DATE-AREA. DTSBR606 00555 MOVE WS-DATE-YEAR TO WS-DATE-YY. DTSBR606 00556 MOVE WS-DATE-MTH TO WS-DATE-MM. DTSBR606 00557 MOVE WS-DATE-DAY TO WS-DATE-DD. DTSBR606 00558 MOVE WS-FORMATTED-DATE TO W-COMPL-START-DATE. DTSBR606 00559 DTSBR606 00560 MOVE WS-PARM-COMPL-END TO WS-EDIT-DATE WS-DATE-AREA. DTSBR606 00561 MOVE WS-DATE-YEAR TO WS-DATE-YY. DTSBR606 00562 MOVE WS-DATE-MTH TO WS-DATE-MM. DTSBR606 00563 MOVE WS-DATE-DAY TO WS-DATE-DD. DTSBR606 00564 MOVE WS-FORMATTED-DATE TO W-COMPL-END-DATE. DTSBR606 00565 MOVE SPACES TO W-PROCESS-START-DATE W-PROCESS-END-DATE. DTSBR606 00566 DTSBR606 00567 IF WS-PARM-PROCESS-START NOT EQUAL WS-DEFAULT-START-DATE DTSBR606 00568 MOVE WS-PARM-PROCESS-START TO WS-EDIT-DATE WS-DATE-AREA DTSBR606 00569 MOVE WS-DATE-YEAR TO WS-DATE-YY DTSBR606 00570 MOVE WS-DATE-MTH TO WS-DATE-MM DTSBR606 00571 MOVE WS-DATE-DAY TO WS-DATE-DD DTSBR606 00572 MOVE WS-FORMATTED-DATE TO W-PROCESS-START-DATE. DTSBR606 00573 DTSBR606 00574 IF WS-PARM-PROCESS-END NOT EQUAL WS-DEFAULT-END-DATE DTSBR606 00575 MOVE WS-PARM-PROCESS-END TO WS-EDIT-DATE WS-DATE-AREA DTSBR606 00576 MOVE WS-DATE-YEAR TO WS-DATE-YY DTSBR606 00577 MOVE WS-DATE-MTH TO WS-DATE-MM DTSBR606 00578 MOVE WS-DATE-DAY TO WS-DATE-DD DTSBR606 00579 MOVE WS-FORMATTED-DATE TO W-PROCESS-END-DATE. DTSBR606 00580 DTSBR606 00581 PERFORM VARYING WS-PARM-ASSIGN-IDX FROM 1 BY 1 DTSBR606 00582 UNTIL WS-PARM-ASSIGN-IDX > 5 DTSBR606 00583 SET WS-SUB TO WS-PARM-ASSIGN-IDX DTSBR606 00584 MOVE WS-PARM-ASSIGN-TYPE (WS-PARM-ASSIGN-IDX) DTSBR606 00585 TO W-ASSIGN-TYPE(WS-SUB) DTSBR606 00586 END-PERFORM. DTSBR606 00587 DTSBR606 00588 DTSBR606 00589 P1200-EXIT. DTSBR606 00590 EXIT. DTSBR606 00591 EJECT DTSBR606 00592 P1210-INCR-DECR-NOCHG. DTSBR606 00593 DTSBR606 00594 IF WS-SUB = 1 DTSBR606 00595 MOVE WS-NBR-ASSI (WS-SUB) TO W-AUDIT-INCR. DTSBR606 00596 IF WS-SUB = 2 DTSBR606 00597 MOVE WS-NBR-ASSI (WS-SUB) TO W-AUDIT-DECR. DTSBR606 00598 IF WS-SUB = 3 DTSBR606 00599 MOVE WS-NBR-ASSI (WS-SUB) TO W-AUDIT-NOCHG. DTSBR606 00600 DTSBR606 00601 * MOVE WS-NBR-ASSI (WS-SUB) TO WS-EDIT-5. DTSBR606 00602 * PERFORM S143-EDIT-5 THRU S143-EXIT. DTSBR606 00603 DTSBR606 00604 IF WS-SUB = 1 DTSBR606 00605 MOVE WS-NBR-QTRS (WS-SUB) TO W-QTRS-INCR. DTSBR606 00606 IF WS-SUB = 2 DTSBR606 00607 MOVE WS-NBR-QTRS (WS-SUB) TO W-QTRS-DECR. DTSBR606 00608 IF WS-SUB = 3 DTSBR606 00609 MOVE WS-NBR-QTRS (WS-SUB) TO W-QTRS-NOCHG. DTSBR606 00610 DTSBR606 00611 * MOVE WS-NBR-QTRS (WS-SUB) TO WS-EDIT-5. DTSBR606 00612 * PERFORM S143-EDIT-5 THRU S143-EXIT. DTSBR606 00613 DTSBR606 00614 IF WS-SUB = 1 DTSBR606 00615 MOVE WS-NBR-HRS (WS-SUB) TO W-HRS-INCR. DTSBR606 00616 IF WS-SUB = 2 DTSBR606 00617 MOVE WS-NBR-HRS (WS-SUB) TO W-HRS-DECR. DTSBR606 00618 IF WS-SUB = 3 DTSBR606 00619 MOVE WS-NBR-HRS (WS-SUB) TO W-HRS-NOCHG. DTSBR606 00620 DTSBR606 00621 * MOVE WS-NBR-HRS (WS-SUB) TO WS-EDIT-HRS. DTSBR606 00622 * PERFORM S143-EDIT-HRS THRU S143-EXIT. DTSBR606 00623 DTSBR606 00624 IF WS-NBR-ASSI (WS-SUB) = +0 DTSBR606 00625 MOVE 0 TO WS-EDIT-AVERAGE DTSBR606 00626 ELSE DTSBR606 00627 COMPUTE WS-EDIT-AVERAGE ROUNDED = DTSBR606 00628 WS-NBR-DAYS (WS-SUB) / WS-NBR-ASSI (WS-SUB). DTSBR606 00629 IF WS-SUB = 1 DTSBR606 00630 MOVE WS-EDIT-AVERAGE TO W-AVGDA-INCR. DTSBR606 00631 IF WS-SUB = 2 DTSBR606 00632 MOVE WS-EDIT-AVERAGE TO W-AVGDA-DECR. DTSBR606 00633 IF WS-SUB = 3 DTSBR606 00634 MOVE WS-EDIT-AVERAGE TO W-AVGDA-NOCHG. DTSBR606 00635 DTSBR606 00636 * PERFORM S143-EDIT-AVERAGE THRU S143-EXIT. DTSBR606 00637 DTSBR606 00638 IF WS-SUB = 1 DTSBR606 00639 MOVE WS-TOT-GROSS (WS-SUB) TO W-PAYRL-INCR. DTSBR606 00640 IF WS-SUB = 2 DTSBR606 00641 MOVE WS-TOT-GROSS (WS-SUB) TO W-PAYRL-DECR. DTSBR606 00642 IF WS-SUB = 3 DTSBR606 00643 MOVE WS-TOT-GROSS (WS-SUB) TO W-PAYRL-NOCHG. DTSBR606 00644 DTSBR606 00645 * PERFORM S143-EDIT-AMT THRU S143-EXIT. DTSBR606 00646 DTSBR606 00647 IF WS-SUB = 1 DTSBR606 00648 MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO W-WAGE-INCR. DTSBR606 00649 IF WS-SUB = 2 DTSBR606 00650 MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO W-WAGE-DECR. DTSBR606 00651 IF WS-SUB = 3 DTSBR606 00652 MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO W-WAGE-NOCHG. DTSBR606 00653 DTSBR606 00654 * MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO WS-EDIT-AMT. DTSBR606 00655 * PERFORM S143-EDIT-AMT THRU S143-EXIT. DTSBR606 00656 DTSBR606 00657 IF WS-SUB = 1 DTSBR606 00658 MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO W-TXWGE-INCR. DTSBR606 00659 IF WS-SUB = 2 DTSBR606 00660 MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO W-TXWGE-DECR. DTSBR606 00661 IF WS-SUB = 3 DTSBR606 00662 MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO W-TXWGE-NOCHG. DTSBR606 00663 DTSBR606 00664 * MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO WS-EDIT-AMT. DTSBR606 00665 * PERFORM S143-EDIT-AMT THRU S143-EXIT. DTSBR606 00666 DTSBR606 00667 IF WS-SUB = 1 DTSBR606 00668 MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO W-CONTR-INCR. DTSBR606 00669 IF WS-SUB = 2 DTSBR606 00670 MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO W-CONTR-DECR. DTSBR606 00671 IF WS-SUB = 3 DTSBR606 00672 MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO W-CONTR-NOCHG. DTSBR606 00673 DTSBR606 00674 * MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO WS-EDIT-5. DTSBR606 00675 * PERFORM S143-EDIT-AMT THRU S143-EXIT. DTSBR606 00676 DTSBR606 00677 IF WS-SUB = 1 DTSBR606 00678 MOVE WS-NBR-NEW-EMP (WS-SUB) TO W-NEMPL-INCR. DTSBR606 00679 IF WS-SUB = 2 DTSBR606 00680 MOVE WS-NBR-NEW-EMP (WS-SUB) TO W-NEMPL-DECR. DTSBR606 00681 IF WS-SUB = 3 DTSBR606 00682 MOVE WS-NBR-NEW-EMP (WS-SUB) TO W-NEMPL-NOCHG. DTSBR606 00683 DTSBR606 00684 * MOVE WS-NBR-NEW-EMP (WS-SUB) TO WS-EDIT-5. DTSBR606 00685 * PERFORM S143-EDIT-5 THRU S143-EXIT. DTSBR606 00686 DTSBR606 00687 P1210-EXIT. DTSBR606 00688 EXIT. DTSBR606 00689 DTSBR606 00690 P1250-R606. DTSBR606 00691 INITIALIZE PRINT-REC. DTSBR606 00692 MOVE SPACE TO WS-LINE-8 WS-LINE-2. DTSBR606 00693 ADD 1 TO WS-PAGE-COUNTER. DTSBR606 00694 MOVE WS-PAGE-COUNTER TO W-PAGE-CNTR. DTSBR606 00695 WRITE PRINT-REC FROM WS-HEADER-1 AFTER TOP-OF-PAGE. DTSBR606 00696 WRITE PRINT-REC FROM WS-HEADER-2 AFTER 1. DTSBR606 00697 WRITE PRINT-REC FROM WS-HEADER-3 AFTER 1. DTSBR606 00698 WRITE PRINT-REC FROM WS-LINE-1 AFTER 2. DTSBR606 00699 WRITE PRINT-REC FROM WS-LINE-2 AFTER 1. DTSBR606 00700 WRITE PRINT-REC FROM WS-LINE-3 AFTER 1. DTSBR606 00701 WRITE PRINT-REC FROM WS-LINE-4 AFTER 1. DTSBR606 00702 WRITE PRINT-REC FROM WS-LINE-5 AFTER 1. DTSBR606 00703 WRITE PRINT-REC FROM WS-LINE-6 AFTER 3. DTSBR606 00704 WRITE PRINT-REC FROM WS-LINE-7 AFTER 1. DTSBR606 00705 WRITE PRINT-REC FROM WS-LINE-8 AFTER 1. DTSBR606 00706 WRITE PRINT-REC FROM WS-LINE-9 AFTER 1. DTSBR606 00707 WRITE PRINT-REC FROM WS-BREAK-AREA AFTER 2. DTSBR606 00708 WRITE PRINT-REC FROM WS-DTL-HDR-1 AFTER 3. DTSBR606 00709 WRITE PRINT-REC FROM WS-LINE-10 AFTER 2. DTSBR606 00710 WRITE PRINT-REC FROM WS-LINE-11 AFTER 1. DTSBR606 00711 WRITE PRINT-REC FROM WS-LINE-12 AFTER 1. DTSBR606 00712 WRITE PRINT-REC FROM WS-LINE-13 AFTER 1. DTSBR606 00713 WRITE PRINT-REC FROM WS-DTL-HDR-2 AFTER 2. DTSBR606 00714 WRITE PRINT-REC FROM WS-LINE-14 AFTER 2. DTSBR606 00715 WRITE PRINT-REC FROM WS-LINE-15 AFTER 1. DTSBR606 00716 WRITE PRINT-REC FROM WS-LINE-16 AFTER 1. DTSBR606 00717 WRITE PRINT-REC FROM WS-LINE-17 AFTER 1. DTSBR606 00718 WRITE PRINT-REC FROM WS-LINE-18 AFTER 1. DTSBR606 00719 P1250-EXIT. DTSBR606 00720 EXIT. DTSBR606 00721 EJECT DTSBR606 00722 T1000-TERMINATE. DTSBR606 00723 DTSBR606 00724 IF WS-FIELD-REP-ID NOT = LOW-VALUE DTSBR606 00725 PERFORM P1200-WRITE THRU P1200-EXIT DTSBR606 00726 PERFORM P1250-R606 THRU P1250-EXIT. DTSBR606 00727 CLOSE PRINT-FILE. DTSBR606 00728 * SKIP3 DTSBR606 00729 * IF R991-UNIT-COUNT = +0 DTSBR606 00730 * MOVE SPACES TO R991-DATASET-NAME. DTSBR606 00731 * ELSE DTSBR606 00732 * CALL 'GETSER' USING EXPORT-FILE DTSBR606 00733 * WS-GETSER-VOL-SER DTSBR606 00734 * WS-GETSER-DATASET-NAME DTSBR606 00735 * WS-GETSER-VOLUME-COUNT DTSBR606 00736 * WS-GETSER-DD-NAME DTSBR606 00737 * WS-GETSER-STEP-NAME DTSBR606 00738 * MOVE WS-GETSER-DATASET-NAME TO R991-DATASET-NAME. DTSBR606 00739 * PERFORM R991-EXPORT-CONTROL-REPORT THRU R991-EXIT. DTSBR606 00740 * CLOSE EXPORT-FILE. DTSBR606 00741 DTSBR606 00742 T1000-EXIT. DTSBR606 00743 EXIT. DTSBR606 00744 SKIP3 DTSBR606 00745 SKIP3 DTSBR606 00746 *R991-EXPORT-CONTROL-REPORT. DTSBR606 00747 * DTSBR606 00748 * CALL 'DTSBR991' USING LRCM-LINK-AREA DTSBR606 00749 * R991-REC. DTSBR606 00750 * DTSBR606 00751 *R991-EXIT. DTSBR606 00752 * EXIT. DTSBR606 00753 EJECT DTSBR606 00754 S001-FROM-FED-8. DTSBR606 00755 DTSBR606 00756 SET L001-FROM-FED-8 TO TRUE. DTSBR606 00757 DTSBR606 00758 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR606 00759 DTSBR606 00760 S001-EXIT. DTSBR606 00761 EXIT. DTSBR606 00762 SKIP3 DTSBR606 00763 S062-FLD-REP-NAME. DTSBR606 00764 DTSBR606 00765 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR606 00766 DTSBR606 00767 S062-EXIT. DTSBR606 00768 EXIT. DTSBR606 00769 SKIP3 DTSBR606 00770 S071-DESLASH-NAME. DTSBR606 00771 SKIP1 DTSBR606 00772 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR606 00773 SKIP2 DTSBR606 00774 S071-EXIT. DTSBR606 00775 EXIT. DTSBR606 00776 EJECT DTSBR606 00777 S143-EDIT-AMT. DTSBR606 00778 DTSBR606 00779 MOVE +15 TO L143-FIELD-SIZE. DTSBR606 00780 MOVE WS-EDIT-AMT TO L143-FIELD. DTSBR606 00781 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00782 DTSBR606 00783 S143-EDIT-AVERAGE. DTSBR606 00784 DTSBR606 00785 MOVE +7 TO L143-FIELD-SIZE. DTSBR606 00786 MOVE WS-EDIT-AVERAGE TO L143-FIELD. DTSBR606 00787 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00788 DTSBR606 00789 S143-EDIT-DATE. DTSBR606 00790 DTSBR606 00791 MOVE +6 TO L143-FIELD-SIZE. DTSBR606 00792 IF WS-EDIT-DATE-SPECIAL DTSBR606 00793 MOVE WS-EDIT-DATE TO L001-CAL-6-DATE-9 DTSBR606 00794 ELSE DTSBR606 00795 MOVE WS-EDIT-DATE TO L001-FED-8-DATE-9 DTSBR606 00796 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR606 00797 MOVE L001-CAL-6-DATE-X TO L143-FIELD. DTSBR606 00798 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00799 DTSBR606 00800 S143-EDIT-FIELD-REP-NAME. DTSBR606 00801 DTSBR606 00802 MOVE +32 TO L143-FIELD-SIZE. DTSBR606 00803 PERFORM S062-FLD-REP-NAME THRU S062-EXIT. DTSBR606 00804 MOVE L062-NAME TO L143-FIELD. DTSBR606 00805 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00806 DTSBR606 00807 S143-EDIT-HRS. DTSBR606 00808 DTSBR606 00809 MOVE +7 TO L143-FIELD-SIZE. DTSBR606 00810 MOVE WS-EDIT-HRS TO L143-FIELD. DTSBR606 00811 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00812 DTSBR606 00813 S143-EDIT-PERCENTAGE. DTSBR606 00814 DTSBR606 00815 MOVE +6 TO L143-FIELD-SIZE. DTSBR606 00816 MOVE WS-EDIT-PERCENTAGE TO L143-FIELD. DTSBR606 00817 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00818 DTSBR606 00819 S143-EDIT-2-X. DTSBR606 00820 DTSBR606 00821 MOVE +2 TO L143-FIELD-SIZE. DTSBR606 00822 MOVE WS-EDIT-2-X TO L143-FIELD. DTSBR606 00823 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00824 DTSBR606 00825 S143-EDIT-5. DTSBR606 00826 DTSBR606 00827 MOVE +5 TO L143-FIELD-SIZE. DTSBR606 00828 MOVE WS-EDIT-5 TO L143-FIELD. DTSBR606 00829 GO TO S143-VARIABLE-RECORD-BUILD. DTSBR606 00830 SKIP3 DTSBR606 00831 S143-VARIABLE-RECORD-BUILD. DTSBR606 00832 DTSBR606 00833 CALL 'DTSBU143' USING L143-LINK-AREA. DTSBR606 00834 DTSBR606 00835 S143-EXIT. DTSBR606 00836 EXIT. DTSBR606 00837 SKIP3 DTSBR606 00838 SKIP3 DTSBR606 00839 S999-ABEND. DTSBR606 00840 DTSBR606 00841 CALL 'DTSBU999' USING WS-ABEND-CD. DTSBR606 00842 DTSBR606 00843 S999-EXIT. DTSBR606 00844 EXIT. DTSBR606