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