550 lines
43 KiB
COBOL
550 lines
43 KiB
COBOL
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
|