00001 IDENTIFICATION DIVISION. 08/31/04 00002 PROGRAM-ID. DTSBD515. DTSBD515 00003 AUTHOR. NORTHROP GRUMMAN LV001 00004 DATE-WRITTEN. AUGUST 2004. DTSBD515 00005 *DATE-MODIFIED. DTSBD515 00006 DATE-COMPILED. DTSBD515 00007 DTSBD515 00008 ***** DTSBD515 00009 * DTSBD515 00010 * CALLING SEQUENCE: NONE, DTSBD515 PROCESSES DAILY REPORT DTSBD515 00011 * RECORDS DTSIR302 TO GET THE DATA TO BE DTSBD515 00012 * REPORTED. DTSBD515 00013 * DTSBD515 00014 * FUNCTION: GENERATE DAILY DEBITS AND CREDITS REPORT. DTSBD515 00015 * DTSBD515 00016 * MODIFICATION HISTORY: DTSBD515 00017 * DTSBD515 00018 * 08-05-04 INITIAL DEVELOPMENT. DTSBD515 00019 * REFERENCE RFP #**** AUTHOR OF CHANGE - RW1 DTSBD515 00020 * DTSBD515 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD515 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD515 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBD515 00024 * DTSBD515 00025 * DESCRIPTION: DTSBD515 00026 * DTSBD515 00027 * DTSBD515 READS THE R302 REPORT RECORDS CREATED DURING DTSBD515 00028 * DAILY PROCESSING. IT PRODUCES A REPORT (319) THAT DTSBD515 00029 * LISTS THE DEBITS AND CREDITS ESTABLISHED DURING THE DTSBD515 00030 * DAILY UPDATE. DTSBD515 00031 * DTSBD515 00032 * DTSBD515 00033 * RECORDS READ: DTSBD515 00034 * DTSBD515 00035 * NONE. DTSBD515 00036 * DTSBD515 00037 * PRINTED OUTPUTS: DTSBD515 00038 * DTSBD515 00039 * RPT319R1 DAILY CREDITS AND DEBITS DTSBD515 00040 * DTSBD515 00041 * RECORDS WRITTEN: DTSBD515 00042 * DTSBD515 00043 * NONE. DTSBD515 00044 * DTSBD515 00045 * MODULES CALLED: DTSBD515 00046 * DTSBD515 00047 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBD515 00048 * DTSBU005 DATE EDIT/CONVERSION MODULE DTSBD515 00049 * DTSBU941 VARIABLE LENGTH RECORD READ DTSBD515 00050 * DTSBD515 00051 ***** DTSBD515 00052 EJECT DTSBD515 00053 ENVIRONMENT DIVISION. DTSBD515 00054 SKIP2 DTSBD515 00055 CONFIGURATION SECTION. DTSBD515 00056 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBD515 00057 DTSBD515 00058 INPUT-OUTPUT SECTION. DTSBD515 00059 DTSBD515 00060 FILE-CONTROL. DTSBD515 00061 SELECT PRT-FILE1 ASSIGN TO RPT319R1. DTSBD515 00062 SELECT PRT-FILE2 ASSIGN TO RPT319R2. DTSBD515 00063 DATA DIVISION. DTSBD515 00064 DTSBD515 00065 FILE SECTION. DTSBD515 00066 DTSBD515 00067 FD PRT-FILE1 DTSBD515 00068 RECORDING MODE IS F DTSBD515 00069 BLOCK CONTAINS 0 RECORDS DTSBD515 00070 LABEL RECORDS ARE OMITTED. DTSBD515 00071 DTSBD515 00072 01 PRT-RECORD1 PIC X(133). DTSBD515 00073 DTSBD515 00074 FD PRT-FILE2 DTSBD515 00075 RECORDING MODE IS F DTSBD515 00076 BLOCK CONTAINS 0 RECORDS DTSBD515 00077 LABEL RECORDS ARE OMITTED. DTSBD515 00078 DTSBD515 00079 01 PRT-RECORD2 PIC X(133). DTSBD515 00080 DTSBD515 00081 WORKING-STORAGE SECTION. DTSBD515 000815 77 PAN-VALET PICTURE X(24) VALUE '001DTSBD515 08/31/04'. DTSBD515 00082 01 WRK-AREA. DTSBD515 00083 05 FILE-STATUS PIC 9(02) VALUE ZEROS. DTSBD515 00084 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD515'. DTSBD515 00085 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +515. DTSBD515 00086 05 WRK-REPORT-DATE PIC S9(09) COMP-3 VALUE +0. DTSBD515 00087 DTSBD515 00088 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBD515 00089 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBD515 00090 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBD515 00091 05 WS-SUM-FOOT-CNT1 PIC S9(07) COMP-3 VALUE +0. DTSBD515 00092 DTSBD515 00093 05 WS-LINE-CNT3 PIC S9(02) COMP-3 VALUE 60. DTSBD515 00094 05 WS-LINE-CNT4 PIC S9(02) COMP-3 VALUE +0. DTSBD515 00095 05 WS-PAGE-CNT2 PIC S9(03) COMP-3 VALUE +0. DTSBD515 00096 05 WS-SUM-FOOT-CNT2 PIC S9(07) COMP-3 VALUE +0. DTSBD515 00097 DTSBD515 00098 05 WS-R302-BATCH-NO PIC S9(05) COMP-3 VALUE +0. DTSBD515 00099 05 WS-R302-ITEM-NO PIC S9(03) COMP-3 VALUE +0. DTSBD515 00100 05 WS-R302-EMP-NO PIC S9(07) COMP-3 VALUE +0. DTSBD515 00101 05 WS-R302-TRANS-TYPE PIC X(02) VALUE SPACES. DTSBD515 00102 05 WS-NET-BAL PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00103 DTSBD515 00104 05 WS-TOT-CHARGED-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00105 05 WS-TOT-PAID-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00106 05 WS-TOT-WAIVED-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00107 05 WS-TOT-WRITTEN-OFF-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00108 05 WS-TOT-TOLER-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00109 05 WS-TOT-CREDIT-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00110 05 WS-TOT-NET-BAL PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515 00111 DTSBD515 00112 05 WS-SUM-CHARGED-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00113 05 WS-SUM-PAID-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00114 05 WS-SUM-WAIVED-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00115 05 WS-SUM-WRITTEN-OFF-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00116 05 WS-SUM-TOLER-AMT PIC S9(09)V99 COMP-3 VALUE +0.DTSBD515 00117 05 WS-SUM-NET-BAL PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515 00118 05 WS-SUM-DEBITS-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515 00119 *** 05 WS-SUM-CREDIT-AMT PIC S9(11)V99 COMP-3 VALUE +0.DTSBD515 00120 DTSBD515 00121 05 DISP-WS-TOT-CHARGED-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00122 05 DISP-WS-TOT-PAID-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00123 05 DISP-WS-TOT-WAIVED-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00124 05 DISP-WS-TOT-WRITTEN-OFF-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00125 05 DISP-WS-TOT-TOLER-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00126 DTSBD515 00127 05 DISP-WS-SUM-CHARGED-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00128 05 DISP-WS-SUM-PAID-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00129 05 DISP-WS-SUM-WAIVED-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00130 05 DISP-WS-SUM-WRITTEN-OFF-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00131 05 DISP-WS-SUM-TOLER-AMT PIC $$,$$$,$$$,$$9.99-. DTSBD515 00132 05 DISP-WS-SUM-NET-BAL PIC $$,$$$,$$$,$$9.99-. DTSBD515 00133 05 DISP-WS-NET-BAL PIC $$$,$$$,$$9.99-. DTSBD515 00134 05 DISP-R302-PAID-AMT PIC $$$,$$$,$$9.99-. DTSBD515 00135 05 DISP-R302-TOLER-AMT PIC $$$,$$$,$$9.99-. DTSBD515 00136 05 DISP-R302-EMP-NO PIC 999B999 BLANK WHEN ZERO. DTSBD515 00137 05 DISP-R302-BATCH-NO PIC 99999 VALUE ZEROS. DTSBD515 00138 05 DISP-R302-ITEM-NO PIC 999 VALUE ZEROS. DTSBD515 00139 05 DISP-R302-TRANS-TYPE PIC X(02) VALUE SPACES. DTSBD515 00140 DTSBD515 00141 01 HDR1-1. DTSBD515 00142 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00143 05 HDR1-RPT-NO PIC X(05) VALUE '319R1'. DTSBD515 00144 05 FILLER PIC X(48) VALUE SPACES. DTSBD515 00145 05 FILLER PIC X(20) VALUE DTSBD515 00146 'DISTRICT OF COLUMBIA'. DTSBD515 00147 05 FILLER PIC X(44) VALUE SPACES. DTSBD515 00148 05 FILLER PIC X(05) DTSBD515 00149 VALUE 'DATE:'. DTSBD515 00150 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00151 05 WS-SYS-DATE PIC X(08) VALUE SPACE. DTSBD515 00152 DTSBD515 00153 01 HDR1-2. DTSBD515 00154 05 FILLER PIC X(58) VALUE SPACES. DTSBD515 00155 05 FILLER PIC X(12) VALUE DTSBD515 00156 'TAX DIVISION'. DTSBD515 00157 05 FILLER PIC X(48) VALUE SPACES. DTSBD515 00158 05 FILLER PIC X(05) DTSBD515 00159 VALUE 'TIME:'. DTSBD515 00160 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00161 05 WS-SYS-TIME PIC X(08) VALUE SPACE. DTSBD515 00162 DTSBD515 00163 01 HDR1-3. DTSBD515 00164 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00165 05 FILLER PIC X(27) DTSBD515 00166 VALUE 'ROUTE TO: TAX ACCOUNTING '. DTSBD515 00167 05 FILLER PIC X(90) VALUE SPACES. DTSBD515 00168 05 FILLER PIC X(05) DTSBD515 00169 VALUE 'PAGE:'. DTSBD515 00170 05 FILLER PIC X(03) VALUE SPACES. DTSBD515 00171 05 PAGE-CNT PIC ZZ,ZZ9. DTSBD515 00172 DTSBD515 00173 01 HDR1-4. DTSBD515 00174 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00175 05 FILLER PIC X(54) VALUE SPACE. DTSBD515 00176 05 FILLER PIC X(18) DTSBD515 00177 VALUE 'DEBITS ESTABLISHED'. DTSBD515 00178 05 FILLER PIC X(62) VALUE SPACE. DTSBD515 00179 DTSBD515 00180 01 HDR1-5 PIC X(133) VALUE SPACES. DTSBD515 00181 DTSBD515 00182 01 HDR1-6. DTSBD515 00183 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00184 05 FILLER PIC X(02) VALUE SPACES. DTSBD515 00185 05 FILLER PIC X(06) DTSBD515 00186 VALUE 'EMP NO'. DTSBD515 00187 05 FILLER PIC X(05) VALUE SPACES. DTSBD515 00188 05 FILLER PIC X(05) DTSBD515 00189 VALUE 'BATCH'. DTSBD515 00190 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00191 05 FILLER PIC X(04) DTSBD515 00192 VALUE 'ITEM'. DTSBD515 00193 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00194 05 FILLER PIC X(10) DTSBD515 00195 VALUE 'TRANS TYPE'. DTSBD515 00196 05 FILLER PIC X(05) VALUE SPACES. DTSBD515 00197 05 FILLER PIC X(12) DTSBD515 00198 VALUE 'DEBIT AMOUNT'. DTSBD515 00199 05 FILLER PIC X(74) VALUE SPACES. DTSBD515 00200 DTSBD515 00201 01 HDR1-7 PIC X(133) VALUE SPACES. DTSBD515 00202 DTSBD515 00203 01 DETAIL-LINE. DTSBD515 00204 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00205 05 FILLER PIC X(02) VALUE SPACES. DTSBD515 00206 05 WS-EMP-NO PIC 999B999 BLANK WHEN ZERO.DTSBD515 00207 05 FILLER PIC X(04) VALUE SPACE. DTSBD515 00208 05 WS-BATCH-NO PIC X(05). DTSBD515 00209 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00210 05 WS-ITEM-NO PIC X(03). DTSBD515 00211 05 FILLER PIC X(09) VALUE SPACES. DTSBD515 00212 05 WS-TRANS-TYPE PIC X(02). DTSBD515 00213 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00214 05 WS-DEBITS-AMT PIC $$,$$$,$$$,$$9.99. DTSBD515 00215 05 FILLER PIC X(75) VALUE SPACES. DTSBD515 00216 DTSBD515 00217 01 CONTROL-SUM-FOOTING. DTSBD515 00218 DTSBD515 00219 05 SUM-LINE-1 PIC X(133) VALUE SPACES. DTSBD515 00220 05 SUM-LINE-2. DTSBD515 00221 10 FILLER PIC X(19) VALUE SPACES. DTSBD515 00222 10 WS-SUM-FOOT-NUMBER PIC ZZ,ZZ9. DTSBD515 00223 10 FILLER PIC X(19) DTSBD515 00224 VALUE ' EMPLOYER ACCOUNTS'. DTSBD515 00225 10 FILLER PIC X(73) VALUE SPACES. DTSBD515 00226 05 SUM-LINE-3. DTSBD515 00227 10 FILLER PIC X(12) VALUE SPACES. DTSBD515 00228 10 WS-SUM-DEBITS-AMOUNT PIC $$,$$$,$$9.99-. DTSBD515 00229 10 FILLER PIC X(25) DTSBD515 00230 VALUE ' TOTAL DEBITS ESTABLISHED'. DTSBD515 00231 10 FILLER PIC X(67) VALUE SPACES. DTSBD515 00232 05 SUM-ASTR-4. DTSBD515 00233 10 FILLER PIC X(25) VALUE SPACES. DTSBD515 00234 10 FILLER PIC X(26) DTSBD515 00235 VALUE ' *** END OF REPORT '. DTSBD515 00236 10 FILLER PIC X(81) VALUE SPACES. DTSBD515 00237 DTSBD515 00238 01 HDR2-1. DTSBD515 00239 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00240 05 HDR2-RPT-NO PIC X(05) VALUE '319R2'. DTSBD515 00241 05 FILLER PIC X(48) VALUE SPACES. DTSBD515 00242 05 FILLER PIC X(20) VALUE DTSBD515 00243 'DISTRICT OF COLUMBIA'. DTSBD515 00244 05 FILLER PIC X(44) VALUE SPACES. DTSBD515 00245 05 FILLER PIC X(05) DTSBD515 00246 VALUE 'DATE:'. DTSBD515 00247 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00248 05 WS-SYS-DATE2 PIC X(08) VALUE SPACE. DTSBD515 00249 DTSBD515 00250 01 HDR2-2. DTSBD515 00251 05 FILLER PIC X(58) VALUE SPACES. DTSBD515 00252 05 FILLER PIC X(12) VALUE DTSBD515 00253 'TAX DIVISION'. DTSBD515 00254 05 FILLER PIC X(48) VALUE SPACES. DTSBD515 00255 05 FILLER PIC X(05) DTSBD515 00256 VALUE 'TIME:'. DTSBD515 00257 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00258 05 WS-SYS-TIME2 PIC X(08) VALUE SPACE. DTSBD515 00259 DTSBD515 00260 01 HDR2-3. DTSBD515 00261 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00262 05 FILLER PIC X(27) DTSBD515 00263 VALUE 'ROUTE TO: TAX ACCOUNTING '. DTSBD515 00264 05 FILLER PIC X(90) VALUE SPACES. DTSBD515 00265 05 FILLER PIC X(05) DTSBD515 00266 VALUE 'PAGE:'. DTSBD515 00267 05 FILLER PIC X(03) VALUE SPACES. DTSBD515 00268 05 PAGE-CNT2 PIC ZZ,ZZ9. DTSBD515 00269 DTSBD515 00270 01 HDR2-4. DTSBD515 00271 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00272 05 FILLER PIC X(54) VALUE SPACE. DTSBD515 00273 05 FILLER PIC X(19) DTSBD515 00274 VALUE 'CREDITS ESTABLISHED'. DTSBD515 00275 05 FILLER PIC X(61) VALUE SPACE. DTSBD515 00276 DTSBD515 00277 01 HDR2-5 PIC X(133) VALUE SPACES. DTSBD515 00278 DTSBD515 00279 01 HDR2-6. DTSBD515 00280 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00281 05 FILLER PIC X(02) VALUE SPACES. DTSBD515 00282 05 FILLER PIC X(06) DTSBD515 00283 VALUE 'EMP NO'. DTSBD515 00284 05 FILLER PIC X(05) VALUE SPACES. DTSBD515 00285 05 FILLER PIC X(05) DTSBD515 00286 VALUE 'BATCH'. DTSBD515 00287 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00288 05 FILLER PIC X(04) DTSBD515 00289 VALUE 'ITEM'. DTSBD515 00290 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00291 05 FILLER PIC X(10) DTSBD515 00292 VALUE 'TRANS TYPE'. DTSBD515 00293 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00294 05 FILLER PIC X(14) DTSBD515 00295 VALUE 'CREDITS AMOUNT'. DTSBD515 00296 05 FILLER PIC X(74) VALUE SPACES. DTSBD515 00297 DTSBD515 00298 01 HDR2-7 PIC X(133) VALUE SPACES. DTSBD515 00299 DTSBD515 00300 01 DETAIL-LINE2. DTSBD515 00301 05 FILLER PIC X(01) VALUE SPACE. DTSBD515 00302 05 FILLER PIC X(02) VALUE SPACES. DTSBD515 00303 05 WS-EMP-NO2 PIC 999B999 BLANK WHEN ZERO.DTSBD515 00304 05 FILLER PIC X(04) VALUE SPACE. DTSBD515 00305 05 WS-BATCH-NO2 PIC X(05). DTSBD515 00306 05 FILLER PIC X(04) VALUE SPACES. DTSBD515 00307 05 WS-ITEM-NO2 PIC X(03). DTSBD515 00308 05 FILLER PIC X(09) VALUE SPACES. DTSBD515 00309 05 WS-TRANS-TYPE2 PIC X(02). DTSBD515 00310 05 FILLER PIC X(05) VALUE SPACES. DTSBD515 00311 05 WS-CREDITS-AMT PIC $$,$$$,$$$,$$9.99. DTSBD515 00312 05 FILLER PIC X(75) VALUE SPACES. DTSBD515 00313 DTSBD515 00314 01 CONTROL-SUM-FOOTING2. DTSBD515 00315 DTSBD515 00316 05 SUM-LINE-5 PIC X(133) VALUE SPACES. DTSBD515 00317 05 SUM-LINE-6. DTSBD515 00318 10 FILLER PIC X(19) VALUE SPACES. DTSBD515 00319 10 WS-SUM-FOOT-NUMBER2 PIC ZZ,ZZ9. DTSBD515 00320 10 FILLER PIC X(19) DTSBD515 00321 VALUE ' EMPLOYER ACCOUNTS'. DTSBD515 00322 10 FILLER PIC X(73) VALUE SPACES. DTSBD515 00323 * 05 SUM-LINE-7. DTSBD515 00324 * 10 FILLER PIC X(12) VALUE SPACES. DTSBD515 00325 * 10 WS-SUM-CREDITS-AMOUNT PIC $$,$$$,$$9.99-. DTSBD515 00326 * 10 FILLER PIC X(26) DTSBD515 00327 * VALUE ' TOTAL CREDITS ESTABLISHED'. DTSBD515 00328 * 10 FILLER PIC X(66) VALUE SPACES. DTSBD515 00329 05 SUM-ASTR-8. DTSBD515 00330 10 FILLER PIC X(25) VALUE SPACES. DTSBD515 00331 10 FILLER PIC X(26) DTSBD515 00332 VALUE ' *** END OF REPORT '. DTSBD515 00333 10 FILLER PIC X(81) VALUE SPACES. DTSBD515 00334 DTSBD515 00335 01 L001-LINK-AREA. DTSBD515 00336 ++INCLUDE DTSIL001 DTSBD515 00337 DTSBD515 00338 01 L005-LINK-AREA. DTSBD515 00339 ++INCLUDE DTSIL005 DTSBD515 00340 DTSBD515 00341 01 L032-LINK-AREA. DTSBD515 00342 ++INCLUDE DTSIL032 DTSBD515 00343 DTSBD515 00344 01 L941-LINK-AREA. DTSBD515 00345 ++INCLUDE DTSIL941 DTSBD515 00346 DTSBD515 00347 01 HOLD-ISKL-REC. DTSBD515 00348 ++INCLUDE DTSIRSK1 DTSBD515 00349 DTSBD515 00350 01 L910-LINK-AREA. DTSBD515 00351 ++INCLUDE DTSIL910 DTSBD515 00352 DTSBD515 00353 01 MSKL-REC. DTSBD515 00354 ++INCLUDE DTSIMSKL DTSBD515 00355 DTSBD515 00356 01 MHDR-REC. DTSBD515 00357 ++INCLUDE DTSIMHDR DTSBD515 00358 DTSBD515 00359 01 MPRF-REC. DTSBD515 00360 ++INCLUDE DTSIMPRF DTSBD515 00361 DTSBD515 00362 01 R302-REC. DTSBD515 00363 ++INCLUDE DTSIR302 DTSBD515 00364 DTSBD515 00365 PROCEDURE DIVISION. DTSBD515 00366 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD515 00367 DTSBD515 00368 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD515 00369 DTSBD515 00370 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD515 00371 DTSBD515 00372 GOBACK. DTSBD515 00373 DTSBD515 00374 I0000-INITIATE. DTSBD515 00375 DTSBD515 00376 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DTSBD515 00377 SET L005-FROM-SYS TO TRUE. DTSBD515 00378 PERFORM S005-DATE THRU S005-EXIT. DTSBD515 00379 MOVE L005-SLASH-DATE TO WS-SYS-DATE WS-SYS-DATE2. DTSBD515 00380 MOVE L005-DISPLAY-TIME TO WS-SYS-TIME WS-SYS-TIME2. DTSBD515 00381 DTSBD515 00382 I0000-EXIT. DTSBD515 00383 EXIT. DTSBD515 00384 DTSBD515 00385 I1000-OPEN-FILES. DTSBD515 00386 DTSBD515 00387 OPEN OUTPUT PRT-FILE1 PRT-FILE2. DTSBD515 00388 MOVE SPACES TO PRT-RECORD1 PRT-RECORD2. DTSBD515 00389 MOVE 'N' TO L941-TRACE-IND. DTSBD515 00390 MOVE WRK-MOD-NAME TO L941-MOD-NAME. DTSBD515 00391 DTSBD515 00392 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBD515 00393 PERFORM S941-OPEN THRU S941-EXIT. DTSBD515 00394 DTSBD515 00395 I1000-EXIT. DTSBD515 00396 EXIT. DTSBD515 00397 DTSBD515 00398 P0000-PROCESS. DTSBD515 00399 PERFORM P1000-READ-SRTDAILY THRU P1000-EXIT DTSBD515 00400 UNTIL L941-NO-REC-88. DTSBD515 00401 DTSBD515 00402 *RW PERFORM P3000-PRINT-REPORT THRU P3000-EXIT. DTSBD515 00403 DTSBD515 00404 P0000-EXIT. DTSBD515 00405 EXIT. DTSBD515 00406 DTSBD515 00407 P1000-READ-SRTDAILY. DTSBD515 00408 PERFORM S941-READ THRU S941-EXIT. DTSBD515 00409 DTSBD515 00410 IF L941-NO-REC-88 DTSBD515 00411 GO TO P1000-EXIT. DTSBD515 00412 DTSBD515 00413 IF RSK1-REC-TYPE < '302' DTSBD515 00414 GO TO P1000-EXIT. DTSBD515 00415 DTSBD515 00416 IF RSK1-REC-TYPE GREATER THAN '302' DTSBD515 00417 SET L941-NO-REC-88 TO TRUE DTSBD515 00418 GO TO P1000-EXIT. DTSBD515 00419 DTSBD515 00420 IF RSK1-REC-TYPE EQUAL '302' DTSBD515 00421 MOVE HOLD-ISKL-REC TO R302-REC DTSBD515 00422 PERFORM P1100-PROCESS-R302 THRU P1100-EXIT DTSBD515 00423 END-IF. DTSBD515 00424 DTSBD515 00425 P1000-EXIT. DTSBD515 00426 EXIT. DTSBD515 00427 DTSBD515 00428 P1100-PROCESS-R302. DTSBD515 00429 DTSBD515 00430 IF R302-TRAN-DATA-88 DTSBD515 00431 IF (R302-BATCH-NO = WS-R302-BATCH-NO) AND DTSBD515 00432 (R302-ITEM-NO = WS-R302-ITEM-NO) DTSBD515 00433 NEXT SENTENCE DTSBD515 00434 ELSE DTSBD515 00435 PERFORM P1130-NET-BALANCE THRU P1130-EXIT DTSBD515 00436 IF R302-OK-88 DTSBD515 00437 ** AND (R302-TRANS-TYPE = 'OR') DTSBD515 00438 MOVE R302-EMP-NO TO WS-R302-EMP-NO DTSBD515 00439 MOVE R302-BATCH-NO TO WS-R302-BATCH-NO DTSBD515 00440 MOVE R302-ITEM-NO TO WS-R302-ITEM-NO DTSBD515 00441 MOVE R302-TRANS-TYPE TO WS-R302-TRANS-TYPE DTSBD515 00442 ELSE DTSBD515 00443 GO TO P1100-EXIT DTSBD515 00444 END-IF DTSBD515 00445 END-IF DTSBD515 00446 END-IF. DTSBD515 00447 DTSBD515 00448 IF R302-ACCT-DATA-88 DTSBD515 00449 IF (R302-BATCH-NO = WS-R302-BATCH-NO) DTSBD515 00450 AND (R302-ITEM-NO = WS-R302-ITEM-NO) DTSBD515 00451 IF (R302-ACCT-IND = 'CR') DTSBD515 00452 PERFORM P1110-CREDIT THRU P1110-EXIT DTSBD515 00453 ELSE DTSBD515 00454 PERFORM P1120-DEBIT THRU P1120-EXIT DTSBD515 00455 END-IF DTSBD515 00456 END-IF DTSBD515 00457 END-IF. DTSBD515 00458 DTSBD515 00459 P1100-EXIT. DTSBD515 00460 EXIT. DTSBD515 00461 DTSBD515 00462 P1110-CREDIT. DTSBD515 00463 IF R302-PAID-AMT > ZERO DTSBD515 00464 OR R302-TOLER-AMT NOT = ZERO DTSBD515 00465 ADD R302-PAID-AMT TO WS-TOT-CREDIT-AMT DTSBD515 00466 ADD R302-TOLER-AMT TO WS-TOT-CREDIT-AMT DTSBD515 00467 END-IF. DTSBD515 00468 P1110-EXIT. DTSBD515 00469 EXIT. DTSBD515 00470 DTSBD515 00471 P1120-DEBIT. DTSBD515 00472 ADD R302-CHARGED-AMT TO WS-TOT-CHARGED-AMT DTSBD515 00473 WS-SUM-CHARGED-AMT. DTSBD515 00474 ADD R302-PAID-AMT TO WS-TOT-PAID-AMT DTSBD515 00475 WS-SUM-PAID-AMT. DTSBD515 00476 ADD R302-WAIVED-AMT TO WS-TOT-WAIVED-AMT DTSBD515 00477 WS-SUM-WAIVED-AMT. DTSBD515 00478 ADD R302-WRITTEN-OFF-AMT TO WS-TOT-WAIVED-AMT DTSBD515 00479 WS-SUM-WAIVED-AMT. DTSBD515 00480 ADD R302-TOLER-AMT TO WS-TOT-TOLER-AMT DTSBD515 00481 WS-SUM-TOLER-AMT. DTSBD515 00482 P1120-EXIT. DTSBD515 00483 EXIT. DTSBD515 00484 DTSBD515 00485 P1130-NET-BALANCE. DTSBD515 00486 IF WS-R302-BATCH-NO = ZEROS DTSBD515 00487 GO TO P1130-EXIT DTSBD515 00488 ELSE DTSBD515 00489 IF WS-TOT-CREDIT-AMT > ZERO DTSBD515 00490 PERFORM P1300-WRITE-CREDITS-REPORT THRU P1300-EXIT DTSBD515 00491 ELSE DTSBD515 00492 COMPUTE WS-NET-BAL = (WS-TOT-CHARGED-AMT DTSBD515 00493 - WS-TOT-PAID-AMT - WS-TOT-WAIVED-AMT DTSBD515 00494 - WS-TOT-WRITTEN-OFF-AMT - WS-TOT-TOLER-AMT) DTSBD515 00495 IF WS-NET-BAL > ZERO DTSBD515 00496 PERFORM P1200-WRITE-DEBITS-REPORT THRU P1200-EXIT DTSBD515 00497 END-IF DTSBD515 00498 END-IF DTSBD515 00499 END-IF. DTSBD515 00500 DTSBD515 00501 MOVE ZEROS TO WS-TOT-CHARGED-AMT DTSBD515 00502 WS-TOT-PAID-AMT DTSBD515 00503 WS-TOT-WAIVED-AMT DTSBD515 00504 WS-TOT-WRITTEN-OFF-AMT DTSBD515 00505 WS-TOT-TOLER-AMT DTSBD515 00506 WS-TOT-CREDIT-AMT. DTSBD515 00507 DTSBD515 00508 P1130-EXIT. DTSBD515 00509 EXIT. DTSBD515 00510 DTSBD515 00511 P1200-WRITE-DEBITS-REPORT. DTSBD515 00512 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD515 00513 MOVE WS-R302-EMP-NO TO MSKL-EMP-NO. DTSBD515 00514 SET MSKL-PRF-88 TO TRUE. DTSBD515 00515 DTSBD515 00516 PERFORM S910-READ THRU S910-EXIT. DTSBD515 00517 IF L910-NO-REC-88 DTSBD515 00518 NEXT SENTENCE DTSBD515 00519 ELSE DTSBD515 00520 MOVE MSKL-REC TO MPRF-REC DTSBD515 00521 IF MPRF-TOT-BALANCE-AMT = ZERO DTSBD515 00522 GO TO P1200-EXIT DTSBD515 00523 END-IF DTSBD515 00524 END-IF. DTSBD515 00525 DTSBD515 00526 MOVE WS-R302-EMP-NO TO DISP-R302-EMP-NO. DTSBD515 00527 MOVE WS-R302-BATCH-NO TO DISP-R302-BATCH-NO. DTSBD515 00528 MOVE WS-R302-ITEM-NO TO DISP-R302-ITEM-NO. DTSBD515 00529 MOVE WS-R302-TRANS-TYPE TO DISP-R302-TRANS-TYPE. DTSBD515 00530 MOVE WS-NET-BAL TO DISP-WS-NET-BAL. DTSBD515 00531 ADD WS-NET-BAL TO WS-SUM-DEBITS-AMT. DTSBD515 00532 DTSBD515 00533 DISPLAY DISP-R302-EMP-NO ' ' DISP-R302-BATCH-NO ' ' DTSBD515 00534 DISP-R302-ITEM-NO ' ' DISP-R302-TRANS-TYPE DTSBD515 00535 ' D' DISP-WS-NET-BAL. DTSBD515 00536 DTSBD515 00537 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBD515 00538 MOVE WS-R302-EMP-NO TO WS-EMP-NO. DTSBD515 00539 MOVE WS-R302-BATCH-NO TO WS-BATCH-NO. DTSBD515 00540 MOVE WS-R302-ITEM-NO TO WS-ITEM-NO. DTSBD515 00541 MOVE WS-R302-TRANS-TYPE TO WS-TRANS-TYPE. DTSBD515 00542 MOVE WS-NET-BAL TO WS-DEBITS-AMT. DTSBD515 00543 DTSBD515 00544 WRITE PRT-RECORD1 FROM DETAIL-LINE AFTER 2. DTSBD515 00545 MOVE +0 TO WS-NET-BAL. DTSBD515 00546 ADD +2 TO WS-LINE-CNT2 DTSBD515 00547 ADD +1 TO WS-SUM-FOOT-CNT1. DTSBD515 00548 DTSBD515 00549 P1200-EXIT. DTSBD515 00550 EXIT. DTSBD515 00551 DTSBD515 00552 P1300-WRITE-CREDITS-REPORT. DTSBD515 00553 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD515 00554 MOVE WS-R302-EMP-NO TO MSKL-EMP-NO. DTSBD515 00555 SET MSKL-PRF-88 TO TRUE. DTSBD515 00556 DTSBD515 00557 PERFORM S910-READ THRU S910-EXIT. DTSBD515 00558 IF L910-NO-REC-88 DTSBD515 00559 NEXT SENTENCE DTSBD515 00560 ELSE DTSBD515 00561 MOVE MSKL-REC TO MPRF-REC DTSBD515 00562 IF MPRF-TOT-CREDIT-AMT = ZERO DTSBD515 00563 GO TO P1300-EXIT DTSBD515 00564 END-IF DTSBD515 00565 END-IF. DTSBD515 00566 DTSBD515 00567 DTSBD515 00568 MOVE WS-R302-EMP-NO TO DISP-R302-EMP-NO. DTSBD515 00569 MOVE WS-R302-BATCH-NO TO DISP-R302-BATCH-NO. DTSBD515 00570 MOVE WS-R302-ITEM-NO TO DISP-R302-ITEM-NO. DTSBD515 00571 MOVE WS-R302-TRANS-TYPE TO DISP-R302-TRANS-TYPE. DTSBD515 00572 MOVE WS-TOT-CREDIT-AMT TO DISP-R302-PAID-AMT. DTSBD515 00573 ** ADD WS-TOT-CREDIT-AMT TO WS-SUM-CREDIT-AMT. DTSBD515 00574 DTSBD515 00575 DISPLAY DISP-R302-EMP-NO ' ' DISP-R302-BATCH-NO ' ' DTSBD515 00576 DISP-R302-ITEM-NO ' ' DISP-R302-TRANS-TYPE DTSBD515 00577 ' C' DISP-R302-PAID-AMT. DTSBD515 00578 DTSBD515 00579 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBD515 00580 MOVE WS-R302-EMP-NO TO WS-EMP-NO2. DTSBD515 00581 MOVE WS-R302-BATCH-NO TO WS-BATCH-NO2. DTSBD515 00582 MOVE WS-R302-ITEM-NO TO WS-ITEM-NO2. DTSBD515 00583 MOVE WS-R302-TRANS-TYPE TO WS-TRANS-TYPE2. DTSBD515 00584 MOVE WS-TOT-CREDIT-AMT TO WS-CREDITS-AMT. DTSBD515 00585 DTSBD515 00586 WRITE PRT-RECORD2 FROM DETAIL-LINE2 AFTER 2. DTSBD515 00587 ADD +2 TO WS-LINE-CNT4 DTSBD515 00588 ADD +1 TO WS-SUM-FOOT-CNT2. DTSBD515 00589 DTSBD515 00590 P1300-EXIT. DTSBD515 00591 EXIT. DTSBD515 00592 DTSBD515 00593 P2000-PRINT-HEADER. DTSBD515 00594 IF WS-LINE-CNT GREATER 56 OR DTSBD515 00595 WS-LINE-CNT2 GREATER 56 DTSBD515 00596 MOVE +0 TO WS-LINE-CNT DTSBD515 00597 MOVE +0 TO WS-LINE-CNT2 DTSBD515 00598 ADD +1 TO WS-PAGE-CNT DTSBD515 00599 MOVE WS-PAGE-CNT TO PAGE-CNT DTSBD515 00600 WRITE PRT-RECORD1 FROM HDR1-1 AFTER TOP-OF-PAGE DTSBD515 00601 WRITE PRT-RECORD1 FROM HDR1-2 AFTER 1 DTSBD515 00602 WRITE PRT-RECORD1 FROM HDR1-3 AFTER 1 DTSBD515 00603 WRITE PRT-RECORD1 FROM HDR1-4 AFTER 1 DTSBD515 00604 WRITE PRT-RECORD1 FROM HDR1-5 AFTER 1 DTSBD515 00605 WRITE PRT-RECORD1 FROM HDR1-6 AFTER 1 DTSBD515 00606 * WRITE PRT-RECORD1 FROM HDR1-7 AFTER 1 DTSBD515 00607 ADD +6 TO WS-LINE-CNT2. DTSBD515 00608 DTSBD515 00609 P2000-EXIT. DTSBD515 00610 EXIT. DTSBD515 00611 DTSBD515 00612 P3000-PRINT-HEADER. DTSBD515 00613 IF WS-LINE-CNT3 GREATER 56 OR DTSBD515 00614 WS-LINE-CNT4 GREATER 56 DTSBD515 00615 MOVE +0 TO WS-LINE-CNT3 DTSBD515 00616 MOVE +0 TO WS-LINE-CNT4 DTSBD515 00617 ADD +1 TO WS-PAGE-CNT2 DTSBD515 00618 MOVE WS-PAGE-CNT2 TO PAGE-CNT2 DTSBD515 00619 WRITE PRT-RECORD2 FROM HDR2-1 AFTER TOP-OF-PAGE DTSBD515 00620 WRITE PRT-RECORD2 FROM HDR2-2 AFTER 1 DTSBD515 00621 WRITE PRT-RECORD2 FROM HDR2-3 AFTER 1 DTSBD515 00622 WRITE PRT-RECORD2 FROM HDR2-4 AFTER 1 DTSBD515 00623 WRITE PRT-RECORD2 FROM HDR2-5 AFTER 1 DTSBD515 00624 WRITE PRT-RECORD2 FROM HDR2-6 AFTER 1 DTSBD515 00625 * WRITE PRT-RECORD2 FROM HDR2-7 AFTER 1 DTSBD515 00626 ADD +6 TO WS-LINE-CNT4. DTSBD515 00627 DTSBD515 00628 P3000-EXIT. DTSBD515 00629 EXIT. DTSBD515 00630 DTSBD515 00631 S001-DATE. DTSBD515 00632 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD515 00633 S001-EXIT. DTSBD515 00634 EXIT. DTSBD515 00635 DTSBD515 00636 S005-DATE. DTSBD515 00637 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD515 00638 S005-EXIT. DTSBD515 00639 EXIT. DTSBD515 00640 DTSBD515 00641 S910-OPEN-READ. DTSBD515 00642 SET L910-OPEN-READ-88 TO TRUE. DTSBD515 00643 GO TO S910-MSTR-IO. DTSBD515 00644 DTSBD515 00645 S910-READ. DTSBD515 00646 SET L910-READ-88 TO TRUE. DTSBD515 00647 GO TO S910-MSTR-IO. DTSBD515 00648 DTSBD515 00649 S910-CLOSE. DTSBD515 00650 SET L910-CLOSE-88 TO TRUE. DTSBD515 00651 GO TO S910-MSTR-IO. DTSBD515 00652 DTSBD515 00653 S910-MSTR-IO. DTSBD515 00654 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD515 00655 MSKL-REC. DTSBD515 00656 S910-EXIT. DTSBD515 00657 EXIT. DTSBD515 00658 DTSBD515 00659 S941-OPEN. DTSBD515 00660 SET L941-OPEN-READ-88 TO TRUE. DTSBD515 00661 GO TO S941-I. DTSBD515 00662 DTSBD515 00663 S941-READ. DTSBD515 00664 SET L941-READ-NEXT-88 TO TRUE. DTSBD515 00665 GO TO S941-I. DTSBD515 00666 DTSBD515 00667 S941-CLOSE. DTSBD515 00668 SET L941-CLOSE-88 TO TRUE. DTSBD515 00669 GO TO S941-I. DTSBD515 00670 DTSBD515 00671 S941-I. DTSBD515 00672 CALL 'DTSBU941' USING L941-LINK-AREA, DTSBD515 00673 HOLD-ISKL-REC. DTSBD515 00674 S941-EXIT. DTSBD515 00675 EXIT. DTSBD515 00676 DTSBD515 00677 S999-ABEND. DTSBD515 00678 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD515 00679 SKIP2 DTSBD515 00680 S999-EXIT. DTSBD515 00681 EXIT. DTSBD515 00682 DTSBD515 00683 T0000-TERMINATE. DTSBD515 00684 DTSBD515 00685 IF WS-LINE-CNT2 > 52 OR WS-LINE-CNT > 52 DTSBD515 00686 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBD515 00687 END-IF. DTSBD515 00688 DTSBD515 00689 MOVE WS-SUM-DEBITS-AMT TO WS-SUM-DEBITS-AMOUNT. DTSBD515 00690 MOVE WS-SUM-FOOT-CNT1 TO WS-SUM-FOOT-NUMBER. DTSBD515 00691 WRITE PRT-RECORD1 FROM SUM-LINE-1 AFTER 1. DTSBD515 00692 WRITE PRT-RECORD1 FROM SUM-LINE-2 AFTER 2. DTSBD515 00693 WRITE PRT-RECORD1 FROM SUM-LINE-3 AFTER 2. DTSBD515 00694 WRITE PRT-RECORD1 FROM SUM-ASTR-4 AFTER 2. DTSBD515 00695 DTSBD515 00696 IF WS-LINE-CNT4 > 52 OR WS-LINE-CNT3 > 52 DTSBD515 00697 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBD515 00698 END-IF. DTSBD515 00699 DTSBD515 00700 ** MOVE WS-SUM-CREDIT-AMT TO WS-SUM-CREDITS-AMOUNT. DTSBD515 00701 MOVE WS-SUM-FOOT-CNT2 TO WS-SUM-FOOT-NUMBER2. DTSBD515 00702 WRITE PRT-RECORD2 FROM SUM-LINE-5 AFTER 1. DTSBD515 00703 WRITE PRT-RECORD2 FROM SUM-LINE-6 AFTER 2. DTSBD515 00704 ** WRITE PRT-RECORD2 FROM SUM-LINE-7 AFTER 2. DTSBD515 00705 WRITE PRT-RECORD2 FROM SUM-ASTR-8 AFTER 2. DTSBD515 00706 DTSBD515 00707 COMPUTE WS-SUM-NET-BAL = (WS-SUM-CHARGED-AMT DTSBD515 00708 - WS-SUM-PAID-AMT - WS-SUM-WAIVED-AMT DTSBD515 00709 - WS-SUM-WRITTEN-OFF-AMT - WS-SUM-TOLER-AMT). DTSBD515 00710 DTSBD515 00711 MOVE WS-SUM-NET-BAL TO DISP-WS-SUM-NET-BAL DTSBD515 00712 DTSBD515 00713 DISPLAY ' '. DTSBD515 00714 MOVE WS-SUM-CHARGED-AMT TO DISP-WS-SUM-CHARGED-AMT. DTSBD515 00715 DISPLAY 'TOTAL DAILY CHARGED AMT = ' DISP-WS-SUM-CHARGED-AMT.DTSBD515 00716 MOVE WS-SUM-PAID-AMT TO DISP-WS-SUM-PAID-AMT. DTSBD515 00717 DISPLAY 'TOTAL DAILY PAYMENT AMT = ' DISP-WS-SUM-PAID-AMT. DTSBD515 00718 MOVE WS-SUM-WAIVED-AMT TO DISP-WS-SUM-WAIVED-AMT. DTSBD515 00719 DISPLAY 'TOTAL DAILY WAIVED AMT = ' DISP-WS-SUM-WAIVED-AMT. DTSBD515 00720 MOVE WS-SUM-WRITTEN-OFF-AMT TO DISP-WS-SUM-WRITTEN-OFF-AMT. DTSBD515 00721 DISPLAY 'TOTAL WRITTEN OFF AMT = ' DTSBD515 00722 DISP-WS-SUM-WRITTEN-OFF-AMT. DTSBD515 00723 MOVE WS-SUM-TOLER-AMT TO DISP-WS-SUM-TOLER-AMT. DTSBD515 00724 DISPLAY 'TOTAL DAILY TOLER AMT = ' DISP-WS-SUM-TOLER-AMT. DTSBD515 00725 DTSBD515 00726 DISPLAY ' '. DTSBD515 00727 DISPLAY ' TOTAL NET BALANCE AMT = ' DISP-WS-SUM-NET-BAL. DTSBD515 00728 DTSBD515 00729 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD515 00730 PERFORM S941-CLOSE THRU S941-EXIT. DTSBD515 00731 CLOSE PRT-FILE1 PRT-FILE2. DTSBD515 00732 T0000-EXIT. DTSBD515 00733 EXIT. DTSBD515 00734 DTSBD515