DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
549
Batch/DTSBD513.cob
Normal file
549
Batch/DTSBD513.cob
Normal file
@ -0,0 +1,549 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/29/15
|
||||
00002 PROGRAM-ID. DTSBD513. DTSBD513
|
||||
00003 AUTHOR. NORTHROP GRUMMAN (SCM) LV009
|
||||
00004 DATE-WRITTEN. JULY 2003. DTSBD513
|
||||
00005 *DATE-MODIFIED. DTSBD513
|
||||
00006 DATE-COMPILED. DTSBD513
|
||||
00007 DTSBD513
|
||||
00008 ***** DTSBD513
|
||||
00009 * DTSBD513
|
||||
00010 * CALLING SEQUENCE: NONE, DTSBD513 PROCESSES MONTHLY REPORT DTSBD513
|
||||
00011 * RECORDS DTSIR305 AND DTSIR306 TO GET DTSBD513
|
||||
00012 * THE DATA TO BE REPORTED. DTSBD513
|
||||
00013 * DTSBD513
|
||||
00014 * FUNCTION: GENERATE MONTHLY PENALTY AND INTEREST REPORT FOR DTSBD513
|
||||
00015 * CFO. DTSBD513
|
||||
00016 * DTSBD513
|
||||
00017 * MODIFICATION HISTORY: DTSBD513
|
||||
00018 * DTSBD513
|
||||
00019 * 03-01-2006 ADDED ADMINISTRATIVE ASSESSMENT. DTSBD513
|
||||
00020 * REFERENCE: AUTHOR OF CHANGE - GD DTSBD513
|
||||
00021 * DTSBD513
|
||||
00022 * 04-12-2006 ADDED ENDING BALANCE ON TAXABLE AND REIMBURSABLE DTSBD513
|
||||
00023 * EMPLOYERS INFORMATION ON THE DOWNLOAD FILE. DTSBD513
|
||||
00024 * REFERENCE: AUTHOR OF CHANGE - RW1 DTSBD513
|
||||
00025 * DTSBD513
|
||||
00026 * 10-27-2015 CHANGED THE PARA P1120 TO ADD THE R305 BALANCE AMT DTSBD513
|
||||
00027 * WHEN THE ACCT-SUB EQUALS 2 TO BE ADDED TO THE DTSBD513
|
||||
00028 * SELF ASSESSMENT AMOUNT INSTEAD OF THE CONT DTSBD513
|
||||
00029 * REFERENCE: AUTHOR OF CHANGE - NH DTSBD513
|
||||
00030 * DTSBD513
|
||||
00031 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD513
|
||||
00032 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD513
|
||||
00033 * REFERENCE: AUTHOR OF CHANGE - XXX DTSBD513
|
||||
00034 * DTSBD513
|
||||
00035 * DESCRIPTION: DTSBD513
|
||||
00036 * DTSBD513
|
||||
00037 * DTSBD513 READS THE R305 AND R306 REPORT RECORDS CREATED DTSBD513
|
||||
00038 * DURING MONTH END PROCESSING. A REPORT IS GENERATED FOR DTSBD513
|
||||
00039 * THE CFO OFFICE DETAILING THE AMOUNT OF INTEREST AND DTSBD513
|
||||
00040 * PENALTY PAID TO DOES DURING THE MONTH AS WELL AS VARIOUS DTSBD513
|
||||
00041 * MONTH-END BALANCES. IF THE PREVIOUS MONTHEND DEFAULT DTSBD513
|
||||
00042 * DATE IS NOT TO BE USED, ENTER THE DESIRED MONTHEND DATE DTSBD513
|
||||
00043 * IN THE JCL PARM CARD. DON'T FORGET TO CHANGE THE GDG DTSBD513
|
||||
00044 * DSN TO MATCH THE MONTHEND TO BE PROCESSED. DTSBD513
|
||||
00045 * DTSBD513
|
||||
00046 * RECORDS READ: DTSBD513
|
||||
00047 * DTSBD513
|
||||
00048 * NONE. DTSBD513
|
||||
00049 * DTSBD513
|
||||
00050 * PRINTED OUTPUTS: DTSBD513
|
||||
00051 * DTSBD513
|
||||
00052 * BD513R1 PENALTY, INTEREST, RECEIVABLES AND PAYABLES DTSBD513
|
||||
00053 * FOR CFO DTSBD513
|
||||
00054 * DTSBD513
|
||||
00055 * RECORDS WRITTEN: DTSBD513
|
||||
00056 * DTSBD513
|
||||
00057 * NONE. DTSBD513
|
||||
00058 * DTSBD513
|
||||
00059 * MODULES CALLED: DTSBD513
|
||||
00060 * DTSBD513
|
||||
00061 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBD513
|
||||
00062 * DTSBU005 DATE EDIT/CONVERSION MODULE DTSBD513
|
||||
00063 * DTSBU941 VARIABLE LENGTH RECORD READ DTSBD513
|
||||
00064 * DTSBD513
|
||||
00065 ***** DTSBD513
|
||||
00066 EJECT DTSBD513
|
||||
00067 ENVIRONMENT DIVISION. DTSBD513
|
||||
00068 SKIP2 DTSBD513
|
||||
00069 CONFIGURATION SECTION. DTSBD513
|
||||
00070 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBD513
|
||||
00071 DTSBD513
|
||||
00072 INPUT-OUTPUT SECTION. DTSBD513
|
||||
00073 DTSBD513
|
||||
00074 FILE-CONTROL. DTSBD513
|
||||
00075 SELECT PRT-FILE ASSIGN TO RPT513R1. DTSBD513
|
||||
00076 DTSBD513
|
||||
00077 SELECT DOWNLOAD-FILE ASSIGN TO DTSF513 DTSBD513
|
||||
00078 FILE STATUS IS DOWNLOAD-STATUS. DTSBD513
|
||||
00079 DTSBD513
|
||||
00080 DATA DIVISION. DTSBD513
|
||||
00081 DTSBD513
|
||||
00082 FILE SECTION. DTSBD513
|
||||
00083 DTSBD513
|
||||
00084 FD PRT-FILE DTSBD513
|
||||
00085 RECORDING MODE IS F. DTSBD513
|
||||
00086 01 PRT-RECORD PIC X(133). DTSBD513
|
||||
00087 DTSBD513
|
||||
00088 FD DOWNLOAD-FILE DTSBD513
|
||||
00089 RECORDING MODE IS F. DTSBD513
|
||||
00090 01 DOWNLOAD-REC PIC X(80). DTSBD513
|
||||
00091 DTSBD513
|
||||
00092 WORKING-STORAGE SECTION. DTSBD513
|
||||
000925 77 PAN-VALET PICTURE X(24) VALUE '009DTSBD513 10/29/15'. DTSBD513
|
||||
00093 77 PAN-VALET PICTURE X(24) VALUE '004DTSBD513 10/27/15'. DTSBD513
|
||||
00094 77 PAN-VALET PICTURE X(24) VALUE '007DTSBD513 04/13/06'. DTSBD513
|
||||
00095 01 WRK-AREA. DTSBD513
|
||||
00096 05 DOWNLOAD-STATUS PIC X(02) VALUE ZEROS. DTSBD513
|
||||
00097 88 DOWNLOAD-STATUS-OK-88 VALUE '00'. DTSBD513
|
||||
00098 DTSBD513
|
||||
00099 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD513'. DTSBD513
|
||||
00100 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +513.DTSBD513
|
||||
00101 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBD513
|
||||
00102 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBD513
|
||||
00103 05 WRK-REPORT-DATE PIC S9(09) COMP-3 VALUE +0. DTSBD513
|
||||
00104 DTSBD513
|
||||
00105 05 WS-DETAIL-AMTS. DTSBD513
|
||||
00106 10 WS-INTEREST-XFER PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00107 10 WS-PENALTY-XFER PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00108 10 WS-SURTAX-XFER PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00109 10 WS-BAL-RATED-CONT PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00110 10 WS-BAL-RATED-SUR PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00111 10 WS-BAL-RATED-INT PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00112 10 WS-BAL-RATED-PEN PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00113 10 WS-BAL-SELF-CONT PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00114 10 WS-BAL-SELF-SUR PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00115 10 WS-BAL-SELF-INT PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00116 10 WS-BAL-SELF-PEN PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00117 10 WS-BAL-AP-RATED PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00118 10 WS-BAL-AP-SELF PIC S9(11)V99 COMP-3 VALUE +0.DTSBD513
|
||||
00119 DTSBD513
|
||||
00120 01 L001-LINK-AREA. DTSBD513
|
||||
00121 ++INCLUDE DTSIL001 DTSBD513
|
||||
00122 DTSBD513
|
||||
00123 01 L005-LINK-AREA. DTSBD513
|
||||
00124 ++INCLUDE DTSIL005 DTSBD513
|
||||
00125 DTSBD513
|
||||
00126 01 L032-LINK-AREA. DTSBD513
|
||||
00127 ++INCLUDE DTSIL032 DTSBD513
|
||||
00128 DTSBD513
|
||||
00129 01 L910-LINK-AREA. DTSBD513
|
||||
00130 ++INCLUDE DTSIL910 DTSBD513
|
||||
00131 DTSBD513
|
||||
00132 01 L941-LINK-AREA. DTSBD513
|
||||
00133 ++INCLUDE DTSIL941 DTSBD513
|
||||
00134 DTSBD513
|
||||
00135 01 HOLD-ISKL-REC. DTSBD513
|
||||
00136 ++INCLUDE DTSIRSK1 DTSBD513
|
||||
00137 DTSBD513
|
||||
00138 01 HEADER-1. DTSBD513
|
||||
00139 05 FILLER PIC X(01) VALUE SPACES. DTSBD513
|
||||
00140 05 HDR1-RUN-DATE PIC X(25). DTSBD513
|
||||
00141 05 FILLER PIC X(53) VALUE DTSBD513
|
||||
00142 'DEPARTMENT OF EMPLOYMENT SERVICES'. DTSBD513
|
||||
00143 DTSBD513
|
||||
00144 01 HEADER-2. DTSBD513
|
||||
00145 05 FILLER PIC X(16) DTSBD513
|
||||
00146 VALUE ' DTSBD513'. DTSBD513
|
||||
00147 05 FILLER PIC X(64) VALUE DTSBD513
|
||||
00148 'MONTHEND PENALTY, INTEREST, RECEIVABLES AND PAYABLES'. DTSBD513
|
||||
00149 DTSBD513
|
||||
00150 01 HEADER-2A. DTSBD513
|
||||
00151 05 FILLER PIC X(16) DTSBD513
|
||||
00152 VALUE ' DTSBD513'. DTSBD513
|
||||
00153 05 FILLER PIC X(64) VALUE DTSBD513
|
||||
00154 'MONTH-END PENALTY, INTEREST AND PAYABLES'. DTSBD513
|
||||
00155 DTSBD513
|
||||
00156 01 DETAIL-MONTH-END. DTSBD513
|
||||
00157 05 FILLER PIC X(10) VALUE SPACES. DTSBD513
|
||||
00158 05 FILLER PIC X(15) VALUE ' MONTH ENDING:'. DTSBD513
|
||||
00159 05 DTL-ME-DATE PIC X(13). DTSBD513
|
||||
00160 DTSBD513
|
||||
00161 01 DETAIL-LINE1. DTSBD513
|
||||
00162 05 FILLER PIC X(12) VALUE SPACE. DTSBD513
|
||||
00163 05 DTL1-LITERAL PIC X(22) JUSTIFIED RIGHT. DTSBD513
|
||||
00164 05 DTL1-AMOUNT PIC $$$$$,$$$,$$$.99-. DTSBD513
|
||||
00165 DTSBD513
|
||||
00166 01 DETAIL-LINE2. DTSBD513
|
||||
00167 05 FILLER PIC X(16) VALUE SPACE. DTSBD513
|
||||
00168 05 DTL2-LITERAL PIC X(12) JUSTIFIED RIGHT. DTSBD513
|
||||
00169 05 DTL2-AMOUNT PIC $$$$$,$$$,$$$.99-. DTSBD513
|
||||
00170 DTSBD513
|
||||
00171 01 MSKL-REC. DTSBD513
|
||||
00172 ++INCLUDE DTSIMSKL DTSBD513
|
||||
00173 DTSBD513
|
||||
00174 01 MHDR-REC. DTSBD513
|
||||
00175 ++INCLUDE DTSIMHDR DTSBD513
|
||||
00176 DTSBD513
|
||||
00177 01 R305-REC. DTSBD513
|
||||
00178 ++INCLUDE DTSIR305 DTSBD513
|
||||
00179 DTSBD513
|
||||
00180 01 R306-REC. DTSBD513
|
||||
00181 ++INCLUDE DTSIR306 DTSBD513
|
||||
00182 DTSBD513
|
||||
00183 DTSBD513
|
||||
00184 PROCEDURE DIVISION. DTSBD513
|
||||
00185 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD513
|
||||
00186 DTSBD513
|
||||
00187 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD513
|
||||
00188 DTSBD513
|
||||
00189 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD513
|
||||
00190 DTSBD513
|
||||
00191 GOBACK. DTSBD513
|
||||
00192 DTSBD513
|
||||
00193 I0000-INITIATE. DTSBD513
|
||||
00194 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DTSBD513
|
||||
00195 DTSBD513
|
||||
00196 I0000-EXIT. DTSBD513
|
||||
00197 EXIT. DTSBD513
|
||||
00198 DTSBD513
|
||||
00199 I1000-OPEN-FILES. DTSBD513
|
||||
00200 MOVE 'N' TO L941-TRACE-IND. DTSBD513
|
||||
00201 MOVE WRK-MOD-NAME TO L941-MOD-NAME. DTSBD513
|
||||
00202 PERFORM S941-OPEN THRU S941-EXIT. DTSBD513
|
||||
00203 DTSBD513
|
||||
00204 OPEN OUTPUT PRT-FILE DTSBD513
|
||||
00205 DOWNLOAD-FILE DTSBD513
|
||||
00206 IF DOWNLOAD-STATUS-OK-88 DTSBD513
|
||||
00207 NEXT SENTENCE DTSBD513
|
||||
00208 ELSE DTSBD513
|
||||
00209 DISPLAY 'CANNOT OPEN DOWNLOAD FILE ' DOWNLOAD-STATUS DTSBD513
|
||||
00210 PERFORM S999-ABEND THRU S999-EXIT DTSBD513
|
||||
00211 END-IF. DTSBD513
|
||||
00212 DTSBD513
|
||||
00213 I1000-EXIT. DTSBD513
|
||||
00214 EXIT. DTSBD513
|
||||
00215 DTSBD513
|
||||
00216 P0000-PROCESS. DTSBD513
|
||||
00217 PERFORM P1000-READ-SRTMONTH THRU P1000-EXIT DTSBD513
|
||||
00218 UNTIL L941-NO-REC-88. DTSBD513
|
||||
00219 DTSBD513
|
||||
00220 PERFORM P3000-PRINT-REPORT THRU P3000-EXIT. DTSBD513
|
||||
00221 PERFORM P4000-DOWNLOAD-DATA THRU P4000-EXIT. DTSBD513
|
||||
00222 DTSBD513
|
||||
00223 P0000-EXIT. DTSBD513
|
||||
00224 EXIT. DTSBD513
|
||||
00225 DTSBD513
|
||||
00226 P1000-READ-SRTMONTH. DTSBD513
|
||||
00227 PERFORM S941-READ THRU S941-EXIT. DTSBD513
|
||||
00228 DTSBD513
|
||||
00229 IF L941-NO-REC-88 DTSBD513
|
||||
00230 GO TO P1000-EXIT. DTSBD513
|
||||
00231 DTSBD513
|
||||
00232 IF RSK1-REC-TYPE GREATER THAN '306' DTSBD513
|
||||
00233 SET L941-NO-REC-88 TO TRUE DTSBD513
|
||||
00234 GO TO P1000-EXIT. DTSBD513
|
||||
00235 DTSBD513
|
||||
00236 IF RSK1-REC-TYPE EQUAL '305' DTSBD513
|
||||
00237 MOVE HOLD-ISKL-REC TO R305-REC DTSBD513
|
||||
00238 PERFORM P1100-PROCESS-R305 THRU P1100-EXIT DTSBD513
|
||||
00239 ELSE DTSBD513
|
||||
00240 IF RSK1-REC-TYPE EQUAL '306' DTSBD513
|
||||
00241 MOVE HOLD-ISKL-REC TO R306-REC DTSBD513
|
||||
00242 PERFORM P1200-PROCESS-R306 THRU P1200-EXIT. DTSBD513
|
||||
00243 DTSBD513
|
||||
00244 P1000-EXIT. DTSBD513
|
||||
00245 EXIT. DTSBD513
|
||||
00246 DTSBD513
|
||||
00247 P1100-PROCESS-R305. DTSBD513
|
||||
00248 IF R305-CLASS-RATED-88 DTSBD513
|
||||
00249 PERFORM P1110-RATED THRU P1110-EXIT DTSBD513
|
||||
00250 ELSE DTSBD513
|
||||
00251 IF R305-CLASS-SELF-INS-88 DTSBD513
|
||||
00252 PERFORM P1120-SELF-INS THRU P1120-EXIT. DTSBD513
|
||||
00253 DTSBD513
|
||||
00254 P1100-EXIT. DTSBD513
|
||||
00255 EXIT. DTSBD513
|
||||
00256 DTSBD513
|
||||
00257 P1110-RATED. DTSBD513
|
||||
00258 EVALUATE TRUE DTSBD513
|
||||
00259 WHEN R305-ACCT-SUB EQUAL 1 DTSBD513
|
||||
00260 ADD R305-BALANCE-AMT TO WS-BAL-RATED-CONT DTSBD513
|
||||
00261 DTSBD513
|
||||
00262 WHEN R305-ACCT-SUB EQUAL 2 DTSBD513
|
||||
00263 ADD R305-BALANCE-AMT TO WS-BAL-RATED-SUR DTSBD513
|
||||
00264 DTSBD513
|
||||
00265 WHEN R305-ACCT-SUB EQUAL 3 DTSBD513
|
||||
00266 ADD R305-BALANCE-AMT TO WS-BAL-RATED-INT DTSBD513
|
||||
00267 DTSBD513
|
||||
00268 WHEN R305-ACCT-SUB EQUAL 4 OR 5 OR 6 DTSBD513
|
||||
00269 ADD R305-BALANCE-AMT TO WS-BAL-RATED-PEN DTSBD513
|
||||
00270 DTSBD513
|
||||
00271 WHEN R305-ACCT-SUB EQUAL 7 DTSBD513
|
||||
00272 ADD R305-BALANCE-AMT TO WS-BAL-AP-RATED DTSBD513
|
||||
00273 END-EVALUATE. DTSBD513
|
||||
00274 DTSBD513
|
||||
00275 P1110-EXIT. DTSBD513
|
||||
00276 EXIT. DTSBD513
|
||||
00277 DTSBD513
|
||||
00278 P1120-SELF-INS. DTSBD513
|
||||
00279 EVALUATE TRUE DTSBD513
|
||||
00280 WHEN R305-ACCT-SUB EQUAL 1 DTSBD513
|
||||
00281 ADD R305-BALANCE-AMT TO WS-BAL-SELF-CONT DTSBD513
|
||||
00282 DTSBD513
|
||||
00283 WHEN R305-ACCT-SUB EQUAL 2 DTSBD513
|
||||
00284 *NH ADD R305-BALANCE-AMT TO WS-BAL-SELF-CONT DTSBD513
|
||||
00285 ADD R305-BALANCE-AMT TO WS-BAL-SELF-SUR DTSBD513
|
||||
00286 DTSBD513
|
||||
00287 WHEN R305-ACCT-SUB EQUAL 3 DTSBD513
|
||||
00288 ADD R305-BALANCE-AMT TO WS-BAL-SELF-INT DTSBD513
|
||||
00289 DTSBD513
|
||||
00290 WHEN R305-ACCT-SUB EQUAL 4 OR 5 OR 6 DTSBD513
|
||||
00291 ADD R305-BALANCE-AMT TO WS-BAL-SELF-PEN DTSBD513
|
||||
00292 DTSBD513
|
||||
00293 WHEN R305-ACCT-SUB EQUAL 7 DTSBD513
|
||||
00294 ADD R305-BALANCE-AMT TO WS-BAL-AP-SELF DTSBD513
|
||||
00295 END-EVALUATE. DTSBD513
|
||||
00296 DTSBD513
|
||||
00297 P1120-EXIT. DTSBD513
|
||||
00298 EXIT. DTSBD513
|
||||
00299 DTSBD513
|
||||
00300 P1200-PROCESS-R306. DTSBD513
|
||||
00301 MOVE R306-END-PROCESS-DATE TO WRK-REPORT-DATE. DTSBD513
|
||||
00302 DTSBD513
|
||||
00303 IF R306-CLASS-ALL-88 DTSBD513
|
||||
00304 EVALUATE TRUE DTSBD513
|
||||
00305 WHEN R306-ACCT-IND EQUAL 'I' DTSBD513
|
||||
00306 ADD R306-PAID-AMT TO WS-INTEREST-XFER DTSBD513
|
||||
00307 DTSBD513
|
||||
00308 WHEN R306-ACCT-IND EQUAL 'LP' OR 'NP' OR 'MP' DTSBD513
|
||||
00309 ADD R306-PAID-AMT TO WS-PENALTY-XFER DTSBD513
|
||||
00310 DTSBD513
|
||||
00311 WHEN R306-ACCT-IND EQUAL 'SU' DTSBD513
|
||||
00312 ADD R306-PAID-AMT TO WS-SURTAX-XFER DTSBD513
|
||||
00313 DTSBD513
|
||||
00314 END-EVALUATE. DTSBD513
|
||||
00315 DTSBD513
|
||||
00316 P1200-EXIT. DTSBD513
|
||||
00317 EXIT. DTSBD513
|
||||
00318 DTSBD513
|
||||
00319 P3000-PRINT-REPORT. DTSBD513
|
||||
00320 PERFORM P3100-REPORT-DATES THRU P3100-EXIT. DTSBD513
|
||||
00321 DTSBD513
|
||||
00322 WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE. DTSBD513
|
||||
00323 WRITE PRT-RECORD FROM HEADER-2 AFTER 1. DTSBD513
|
||||
00324 DTSBD513
|
||||
00325 WRITE PRT-RECORD FROM DETAIL-MONTH-END AFTER 3. DTSBD513
|
||||
00326 DTSBD513
|
||||
00327 MOVE ' ADMINISTRATIVE ACCOUNT, SPECIAL TRANSFER' DTSBD513
|
||||
00328 TO PRT-RECORD. DTSBD513
|
||||
00329 WRITE PRT-RECORD AFTER 2. DTSBD513
|
||||
00330 DTSBD513
|
||||
00331 MOVE 'INTEREST' TO DTL1-LITERAL. DTSBD513
|
||||
00332 MOVE WS-INTEREST-XFER TO DTL1-AMOUNT. DTSBD513
|
||||
00333 WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1. DTSBD513
|
||||
00334 DTSBD513
|
||||
00335 MOVE 'PENALTY' TO DTL1-LITERAL. DTSBD513
|
||||
00336 MOVE WS-PENALTY-XFER TO DTL1-AMOUNT. DTSBD513
|
||||
00337 WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1. DTSBD513
|
||||
00338 DTSBD513
|
||||
00339 MOVE 'ADMIN ASSESSMENT' TO DTL1-LITERAL. DTSBD513
|
||||
00340 MOVE WS-SURTAX-XFER TO DTL1-AMOUNT. DTSBD513
|
||||
00341 WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1. DTSBD513
|
||||
00342 DTSBD513
|
||||
00343 MOVE ' ENDING BALANCES' TO PRT-RECORD. DTSBD513
|
||||
00344 WRITE PRT-RECORD AFTER 2. DTSBD513
|
||||
00345 DTSBD513
|
||||
00346 MOVE ' TAXABLE EMPLOYERS' TO PRT-RECORD. DTSBD513
|
||||
00347 WRITE PRT-RECORD AFTER 2. DTSBD513
|
||||
00348 DTSBD513
|
||||
00349 MOVE 'CONTRIBUTION' TO DTL2-LITERAL. DTSBD513
|
||||
00350 MOVE WS-BAL-RATED-CONT TO DTL2-AMOUNT. DTSBD513
|
||||
00351 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00352 DTSBD513
|
||||
00353 MOVE 'ADMIN ASSESS' TO DTL2-LITERAL. DTSBD513
|
||||
00354 MOVE WS-BAL-RATED-SUR TO DTL2-AMOUNT. DTSBD513
|
||||
00355 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00356 DTSBD513
|
||||
00357 MOVE 'INTEREST' TO DTL2-LITERAL. DTSBD513
|
||||
00358 MOVE WS-BAL-RATED-INT TO DTL2-AMOUNT. DTSBD513
|
||||
00359 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00360 DTSBD513
|
||||
00361 MOVE 'PENALTY' TO DTL2-LITERAL. DTSBD513
|
||||
00362 MOVE WS-BAL-RATED-PEN TO DTL2-AMOUNT. DTSBD513
|
||||
00363 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00364 DTSBD513
|
||||
00365 MOVE ' REIMBURSABLE EMPLOYERS' TO PRT-RECORD. DTSBD513
|
||||
00366 WRITE PRT-RECORD AFTER 2. DTSBD513
|
||||
00367 DTSBD513
|
||||
00368 MOVE 'CONTRIBUTION' TO DTL2-LITERAL. DTSBD513
|
||||
00369 MOVE WS-BAL-SELF-CONT TO DTL2-AMOUNT. DTSBD513
|
||||
00370 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00371 DTSBD513
|
||||
00372 MOVE 'ADMIN ASSESS' TO DTL2-LITERAL. DTSBD513
|
||||
00373 MOVE WS-BAL-SELF-SUR TO DTL2-AMOUNT. DTSBD513
|
||||
00374 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00375 DTSBD513
|
||||
00376 MOVE 'INTEREST' TO DTL2-LITERAL. DTSBD513
|
||||
00377 MOVE WS-BAL-SELF-INT TO DTL2-AMOUNT. DTSBD513
|
||||
00378 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00379 DTSBD513
|
||||
00380 MOVE 'PENALTY' TO DTL2-LITERAL. DTSBD513
|
||||
00381 MOVE WS-BAL-SELF-PEN TO DTL2-AMOUNT. DTSBD513
|
||||
00382 WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1. DTSBD513
|
||||
00383 DTSBD513
|
||||
00384 MOVE ' ACCOUNTS PAYABLE' TO PRT-RECORD. DTSBD513
|
||||
00385 WRITE PRT-RECORD AFTER 2. DTSBD513
|
||||
00386 DTSBD513
|
||||
00387 MOVE 'TAXABLE EMPLOYERS' TO DTL1-LITERAL. DTSBD513
|
||||
00388 MOVE WS-BAL-AP-RATED TO DTL1-AMOUNT. DTSBD513
|
||||
00389 WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1. DTSBD513
|
||||
00390 DTSBD513
|
||||
00391 MOVE 'REIMBURSABLE EMPLOYERS' TO DTL1-LITERAL. DTSBD513
|
||||
00392 MOVE WS-BAL-AP-SELF TO DTL1-AMOUNT. DTSBD513
|
||||
00393 WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1. DTSBD513
|
||||
00394 DTSBD513
|
||||
00395 P3000-EXIT. DTSBD513
|
||||
00396 EXIT. DTSBD513
|
||||
00397 DTSBD513
|
||||
00398 P3100-REPORT-DATES. DTSBD513
|
||||
00399 MOVE WRK-REPORT-DATE TO L001-FED-8-DATE-9. DTSBD513
|
||||
00400 SET L001-FROM-FED-8 TO TRUE. DTSBD513
|
||||
00401 PERFORM S001-DATE THRU S001-EXIT. DTSBD513
|
||||
00402 IF L001-VALID-DATE DTSBD513
|
||||
00403 MOVE L001-SLASH-8-DATE TO DTL-ME-DATE DTSBD513
|
||||
00404 ELSE DTSBD513
|
||||
00405 DISPLAY 'INVALID REPORT DATE ' WRK-REPORT-DATE DTSBD513
|
||||
00406 PERFORM S999-ABEND THRU S999-EXIT. DTSBD513
|
||||
00407 DTSBD513
|
||||
00408 SET L005-FROM-SYS TO TRUE. DTSBD513
|
||||
00409 PERFORM S005-DATE THRU S005-EXIT. DTSBD513
|
||||
00410 MOVE L005-SLASH-DATE TO HDR1-RUN-DATE. DTSBD513
|
||||
00411 DTSBD513
|
||||
00412 P3100-EXIT. DTSBD513
|
||||
00413 EXIT. DTSBD513
|
||||
00414 DTSBD513
|
||||
00415 P4000-DOWNLOAD-DATA. DTSBD513
|
||||
00416 WRITE DOWNLOAD-REC FROM HEADER-1. DTSBD513
|
||||
00417 WRITE DOWNLOAD-REC FROM HEADER-2A. DTSBD513
|
||||
00418 DTSBD513
|
||||
00419 MOVE SPACES TO DOWNLOAD-REC. DTSBD513
|
||||
00420 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00421 DTSBD513
|
||||
00422 WRITE DOWNLOAD-REC FROM DETAIL-MONTH-END. DTSBD513
|
||||
00423 DTSBD513
|
||||
00424 MOVE SPACES TO DOWNLOAD-REC. DTSBD513
|
||||
00425 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00426 DTSBD513
|
||||
00427 MOVE ' ADMINISTRATIVE ACCOUNT, SPECIAL TRANSFER' DTSBD513
|
||||
00428 TO DOWNLOAD-REC. DTSBD513
|
||||
00429 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00430 DTSBD513
|
||||
00431 MOVE 'INTEREST' TO DTL1-LITERAL. DTSBD513
|
||||
00432 MOVE WS-INTEREST-XFER TO DTL1-AMOUNT. DTSBD513
|
||||
00433 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00434 DTSBD513
|
||||
00435 MOVE 'PENALTY' TO DTL1-LITERAL. DTSBD513
|
||||
00436 MOVE WS-PENALTY-XFER TO DTL1-AMOUNT. DTSBD513
|
||||
00437 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00438 DTSBD513
|
||||
00439 MOVE 'ADMIN ASSESSMENT' TO DTL1-LITERAL. DTSBD513
|
||||
00440 MOVE WS-SURTAX-XFER TO DTL1-AMOUNT. DTSBD513
|
||||
00441 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00442 DTSBD513
|
||||
00443 MOVE SPACES TO DOWNLOAD-REC. DTSBD513
|
||||
00444 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00445 DTSBD513
|
||||
00446 MOVE ' ENDING BALANCES' TO DOWNLOAD-REC. DTSBD513
|
||||
00447 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00448 DTSBD513
|
||||
00449 MOVE ' TAXABLE EMPLOYERS' TO DOWNLOAD-REC. DTSBD513
|
||||
00450 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00451 DTSBD513
|
||||
00452 MOVE 'CONTRIBUTION' TO DTL1-LITERAL. DTSBD513
|
||||
00453 MOVE WS-BAL-RATED-CONT TO DTL1-AMOUNT. DTSBD513
|
||||
00454 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00455 DTSBD513
|
||||
00456 MOVE 'ADMIN ASSESS' TO DTL1-LITERAL. DTSBD513
|
||||
00457 MOVE WS-BAL-RATED-SUR TO DTL1-AMOUNT. DTSBD513
|
||||
00458 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00459 DTSBD513
|
||||
00460 MOVE 'INTEREST' TO DTL1-LITERAL. DTSBD513
|
||||
00461 MOVE WS-BAL-RATED-INT TO DTL1-AMOUNT. DTSBD513
|
||||
00462 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00463 DTSBD513
|
||||
00464 MOVE 'PENALTY' TO DTL1-LITERAL. DTSBD513
|
||||
00465 MOVE WS-BAL-RATED-PEN TO DTL1-AMOUNT. DTSBD513
|
||||
00466 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00467 DTSBD513
|
||||
00468 MOVE SPACES TO DOWNLOAD-REC. DTSBD513
|
||||
00469 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00470 DTSBD513
|
||||
00471 MOVE ' REIMBURSABLE EMPLOYERS' TO DOWNLOAD-REC. DTSBD513
|
||||
00472 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00473 DTSBD513
|
||||
00474 MOVE 'CONTRIBUTION' TO DTL1-LITERAL. DTSBD513
|
||||
00475 MOVE WS-BAL-SELF-CONT TO DTL1-AMOUNT. DTSBD513
|
||||
00476 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00477 DTSBD513
|
||||
00478 MOVE 'ADMIN ASSESS' TO DTL1-LITERAL. DTSBD513
|
||||
00479 MOVE WS-BAL-SELF-SUR TO DTL1-AMOUNT. DTSBD513
|
||||
00480 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00481 DTSBD513
|
||||
00482 MOVE 'INTEREST' TO DTL1-LITERAL. DTSBD513
|
||||
00483 MOVE WS-BAL-SELF-INT TO DTL1-AMOUNT. DTSBD513
|
||||
00484 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00485 DTSBD513
|
||||
00486 MOVE 'PENALTY' TO DTL1-LITERAL. DTSBD513
|
||||
00487 MOVE WS-BAL-SELF-PEN TO DTL1-AMOUNT. DTSBD513
|
||||
00488 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00489 DTSBD513
|
||||
00490 MOVE SPACES TO DOWNLOAD-REC. DTSBD513
|
||||
00491 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00492 DTSBD513
|
||||
00493 MOVE ' ACCOUNTS PAYABLE' TO DOWNLOAD-REC. DTSBD513
|
||||
00494 WRITE DOWNLOAD-REC. DTSBD513
|
||||
00495 DTSBD513
|
||||
00496 MOVE 'TAXABLE EMPLOYERS' TO DTL1-LITERAL. DTSBD513
|
||||
00497 MOVE WS-BAL-AP-RATED TO DTL1-AMOUNT. DTSBD513
|
||||
00498 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00499 DTSBD513
|
||||
00500 MOVE 'REIMBURSABLE EMPLOYERS' TO DTL1-LITERAL. DTSBD513
|
||||
00501 MOVE WS-BAL-AP-SELF TO DTL1-AMOUNT. DTSBD513
|
||||
00502 WRITE DOWNLOAD-REC FROM DETAIL-LINE1. DTSBD513
|
||||
00503 DTSBD513
|
||||
00504 P4000-EXIT. DTSBD513
|
||||
00505 EXIT. DTSBD513
|
||||
00506 DTSBD513
|
||||
00507 S001-DATE. DTSBD513
|
||||
00508 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD513
|
||||
00509 S001-EXIT. DTSBD513
|
||||
00510 EXIT. DTSBD513
|
||||
00511 DTSBD513
|
||||
00512 S005-DATE. DTSBD513
|
||||
00513 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD513
|
||||
00514 S005-EXIT. DTSBD513
|
||||
00515 EXIT. DTSBD513
|
||||
00516 DTSBD513
|
||||
00517 S941-OPEN. DTSBD513
|
||||
00518 SET L941-OPEN-READ-88 TO TRUE. DTSBD513
|
||||
00519 GO TO S941-I. DTSBD513
|
||||
00520 DTSBD513
|
||||
00521 S941-READ. DTSBD513
|
||||
00522 SET L941-READ-NEXT-88 TO TRUE. DTSBD513
|
||||
00523 GO TO S941-I. DTSBD513
|
||||
00524 DTSBD513
|
||||
00525 S941-CLOSE. DTSBD513
|
||||
00526 SET L941-CLOSE-88 TO TRUE. DTSBD513
|
||||
00527 GO TO S941-I. DTSBD513
|
||||
00528 DTSBD513
|
||||
00529 S941-I. DTSBD513
|
||||
00530 CALL 'DTSBU941' USING L941-LINK-AREA, DTSBD513
|
||||
00531 HOLD-ISKL-REC. DTSBD513
|
||||
00532 S941-EXIT. DTSBD513
|
||||
00533 EXIT. DTSBD513
|
||||
00534 DTSBD513
|
||||
00535 S999-ABEND. DTSBD513
|
||||
00536 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD513
|
||||
00537 SKIP2 DTSBD513
|
||||
00538 S999-EXIT. DTSBD513
|
||||
00539 EXIT. DTSBD513
|
||||
00540 DTSBD513
|
||||
00541 T0000-TERMINATE. DTSBD513
|
||||
00542 PERFORM S941-CLOSE THRU S941-EXIT. DTSBD513
|
||||
00543 CLOSE PRT-FILE DTSBD513
|
||||
00544 DOWNLOAD-FILE. DTSBD513
|
||||
00545 DTSBD513
|
||||
00546 T0000-EXIT. DTSBD513
|
||||
00547 EXIT. DTSBD513
|
||||
00548 DTSBD513
|
||||
Reference in New Issue
Block a user