736 lines
58 KiB
COBOL
736 lines
58 KiB
COBOL
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
|