DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
735
Batch/DTSBD515.cob
Normal file
735
Batch/DTSBD515.cob
Normal file
@ -0,0 +1,735 @@
|
||||
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
|
||||
Reference in New Issue
Block a user