00001 IDENTIFICATION DIVISION. 11/26/01 00002 PROGRAM-ID. DTSBR424. DTSBR424 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV014 00004 MODIFIED BY TRW S&ITG. DTSBR424 00005 DATE-WRITTEN. OCTOBER 1994. DTSBR424 00006 DATE-COMPILED. DTSBR424 00007 SKIP3 DTSBR424 00008 ***** DTSBR424 00009 * DTSBR424 00010 * CALLING SEQUENCE: DTSBD590 WRITES DTSIR424 RECORDS DTSBR424 00011 * DTSBR424 READS DTSIR424 RECORDS. DTSBR424 00012 * DTSBR424 00013 * FUNCTION: INCREASE IN TOTAL BALANCE DUE LIST. DTSBR424 00014 * DTSBR424 00015 * DTSBR424 00016 * MODIFICATION HISTORY: DTSBR424 00017 * DTSBR424 00018 * 10-16-94 INITIAL DEVELOPMENT. DTSBR424 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR424 00020 * DTSBR424 00021 * 06-11-95 ADD BATCH COLUMN. DTSBR424 00022 * REFERENCE RFP #CR095 AUTHOR OF CHANGE - RHC DTSBR424 00023 * DTSBR424 00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR424 00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR424 00026 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR424 00027 * DTSBR424 00028 * DTSBR424 00029 * DESCRIPTION: DTSBR424 00030 * DTSBR424 00031 * THIS MODULE LISTS EMPLOYERS FOR WHOM THE NET RESULT OF DTSBR424 00032 * ALL ACCOUNTING TRANSACTIONS PROCESSED DURING THE UPDATE DTSBR424 00033 * WAS TO INCREASE THE EMPLOYER'S TOTAL BALANCE DUE. DTSBR424 00034 * DTSBR424 00035 * DTSBR424 00036 * RECORDS READ: DTSBR424 00037 * DTSBR424 00038 * NONE. DTSBR424 00039 * DTSBR424 00040 * DTSBR424 00041 * PRINTED OUTPUTS: DTSBR424 00042 * DTSBR424 00043 * 424R1 INCREASE IN TOTAL BALANCE DUE LIST DTSBR424 00044 * DTSBR424 00045 * DTSBR424 00046 * RECORDS WRITTEN: DTSBR424 00047 * DTSBR424 00048 * NONE. DTSBR424 00049 * DTSBR424 00050 * DTSBR424 00051 * MODULES CALLED: DTSBR424 00052 * DTSBR424 00053 * NONE. DTSBR424 00054 * DTSBR424 00055 * DTSBR424 00056 ***** DTSBR424 00057 DTSBR424 00058 ENVIRONMENT DIVISION. DTSBR424 00059 DTSBR424 00060 CONFIGURATION SECTION. DTSBR424 00061 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR424 00062 DTSBR424 00063 INPUT-OUTPUT SECTION. DTSBR424 00064 DTSBR424 00065 FILE-CONTROL. DTSBR424 00066 SELECT PRT-FILE ASSIGN TO RPT424R1. DTSBR424 00067 DTSBR424 00068 DATA DIVISION. DTSBR424 00069 DTSBR424 00070 FILE SECTION. DTSBR424 00071 DTSBR424 00072 FD PRT-FILE DTSBR424 00073 RECORDING MODE IS F. DTSBR424 00074 01 PRT-RECORD PIC X(133). DTSBR424 00075 DTSBR424 00076 EJECT DTSBR424 00077 WORKING-STORAGE SECTION. DTSBR424 000775 77 PAN-VALET PICTURE X(24) VALUE '014DTSBR424 11/26/01'. DTSBR424 00078 SKIP3 DTSBR424 00079 01 WRK-AREA. DTSBR424 00080 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +424.DTSBR424 00081 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR424 00082 DTSBR424 00083 05 HOLD-FIELD-REP-ID PIC X(02). DTSBR424 00084 05 HOLD-FIELD-REP-NAME PIC X(32). DTSBR424 00085 05 HOLD-EMP-NO PIC S9(07) COMP-3. DTSBR424 00086 05 HOLD-BATCH-NO PIC S9(05) COMP-3. DTSBR424 00087 DTSBR424 00088 05 FOOT-COUNT PIC S9(04) COMP. DTSBR424 00089 05 FOOT-AMT PIC S9(09)V9(02) COMP-3. DTSBR424 00090 DTSBR424 00091 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR424 00092 05 WS-SUM-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR424 00093 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR424 00094 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR424 00095 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR424 00096 DTSBR424 00097 EJECT DTSBR424 00098 01 L062-LINK-AREA. DTSBR424 00099 ++INCLUDE DTSIL062 DTSBR424 00100 EJECT DTSBR424 00101 01 PAGE-HEADING. DTSBR424 00102 05 HDR-LINE-1. DTSBR424 00103 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00104 10 FILLER PIC X(05) DTSBR424 00105 VALUE '424R1'. DTSBR424 00106 10 FILLER PIC X(34) VALUE SPACES. DTSBR424 00107 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR424 00108 10 FILLER PIC X(28) VALUE SPACES. DTSBR424 00109 10 FILLER PIC X(05) DTSBR424 00110 VALUE 'DATE:'. DTSBR424 00111 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00112 10 HDR-SYS-DATE PIC X(08). DTSBR424 00113 05 HDR-LINE-2. DTSBR424 00114 10 FILLER PIC X(40) VALUE SPACES. DTSBR424 00115 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR424 00116 10 FILLER PIC X(28) VALUE SPACES. DTSBR424 00117 10 FILLER PIC X(05) DTSBR424 00118 VALUE 'TIME:'. DTSBR424 00119 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00120 10 HDR-SYS-TIME PIC X(08). DTSBR424 00121 05 HDR-LINE-3. DTSBR424 00122 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00123 10 FILLER PIC X(35) DTSBR424 00124 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR424 00125 10 FILLER PIC X(82) VALUE SPACES. DTSBR424 00126 10 FILLER PIC X(05) DTSBR424 00127 VALUE 'PAGE:'. DTSBR424 00128 10 FILLER PIC X(03) VALUE SPACES. DTSBR424 00129 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR424 00130 05 HDR-LINE-4. DTSBR424 00131 10 FILLER PIC X(48) VALUE SPACES. DTSBR424 00132 10 FILLER PIC X(34) DTSBR424 00133 VALUE 'INCREASE IN TOTAL BALANCE DUE LIST'. DTSBR424 00134 10 FILLER PIC X(51) VALUE SPACES. DTSBR424 00135 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR424 00136 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR424 00137 05 HDR-LINE-7. DTSBR424 00138 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00139 10 FILLER PIC X(12) DTSBR424 00140 VALUE 'FIELD REP: '. DTSBR424 00141 10 HDR-FIELD-REP-ID PIC X(02). DTSBR424 00142 10 FILLER PIC X(01) DTSBR424 00143 VALUE ' '. DTSBR424 00144 10 HDR-FIELD-REP-NAME PIC X(32). DTSBR424 00145 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR424 00146 05 HDR-LINE-9 PIC X(133) VALUE SPACES. DTSBR424 00147 05 HDR-LINE-10. DTSBR424 00148 10 FILLER PIC X(09) VALUE SPACES. DTSBR424 00149 10 FILLER PIC X(06) DTSBR424 00150 VALUE 'EMP NO'. DTSBR424 00151 10 FILLER PIC X(06) VALUE SPACES. DTSBR424 00152 10 FILLER PIC X(13) DTSBR424 00153 VALUE 'PRIMARY NAME'. DTSBR424 00154 10 FILLER PIC X(29) VALUE SPACES. DTSBR424 00155 10 FILLER PIC X(23) DTSBR424 00156 VALUE 'INCREASE IN BALANCE DUE'. DTSBR424 00157 10 FILLER PIC X(08) VALUE SPACES. DTSBR424 00158 10 FILLER PIC X(05) DTSBR424 00159 VALUE 'BATCH'. DTSBR424 00160 05 HDR-LINE-11 PIC X(133) VALUE SPACES. DTSBR424 00161 DTSBR424 00162 01 DETAIL-LINE. DTSBR424 00163 05 DTL-LINE-1. DTSBR424 00164 10 FILLER PIC X(09) VALUE SPACES. DTSBR424 00165 10 DTL-EMP-NO PIC 999B999. DTSBR424 00166 10 FILLER PIC X(05) VALUE SPACES. DTSBR424 00167 10 DTL-PRIMARY-NAME PIC X(40). DTSBR424 00168 10 FILLER PIC X(05) VALUE SPACES. DTSBR424 00169 10 RPT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR424 00170 10 FILLER PIC X(14) VALUE SPACES. DTSBR424 00171 10 DTL-BATCH-NO PIC X(05). DTSBR424 00172 SKIP2 DTSBR424 00173 DTSBR424 00174 01 CONTROL-FOOTING-FINAL. DTSBR424 00175 05 CFF-LINE-4. DTSBR424 00176 10 FILLER PIC X(34) VALUE SPACES. DTSBR424 00177 10 CFF-FOOT-COUNT PIC Z,ZZ9. DTSBR424 00178 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00179 10 FILLER PIC X(15) DTSBR424 00180 VALUE 'ACCOUNTS LISTED'. DTSBR424 00181 05 CFF-LINE-6. DTSBR424 00182 10 FILLER PIC X(25) VALUE SPACES. DTSBR424 00183 10 CFF-FOOT-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBR424 00184 10 FILLER PIC X(01) VALUE SPACE. DTSBR424 00185 10 FILLER PIC X(23) DTSBR424 00186 VALUE 'INCREASE IN BALANCE DUE'. DTSBR424 00187 EJECT DTSBR424 00188 LINKAGE SECTION. DTSBR424 00189 SKIP3 DTSBR424 00190 01 LRCM-LINK-AREA. DTSBR424 00191 ++INCLUDE DTSILRCM DTSBR424 00192 EJECT DTSBR424 00193 01 R424-REC. DTSBR424 00194 ++INCLUDE DTSIR424 DTSBR424 00195 EJECT DTSBR424 00196 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR424 00197 R424-REC. DTSBR424 00198 SKIP2 DTSBR424 00199 IF FIRST-TIME-IND = 'Y' DTSBR424 00200 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR424 00201 MOVE 'N' TO FIRST-TIME-IND. DTSBR424 00202 SKIP1 DTSBR424 00203 IF LRCM-EOR-88 DTSBR424 00204 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR424 00205 ELSE DTSBR424 00206 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR424 00207 SKIP2 DTSBR424 00208 GOBACK. DTSBR424 00209 EJECT DTSBR424 00210 I1000-INITIATE. DTSBR424 00211 DTSBR424 00212 OPEN OUTPUT PRT-FILE. DTSBR424 00213 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR424 00214 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR424 00215 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR424 00216 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR424 00217 MOVE SPACES TO PRT-RECORD. DTSBR424 00218 DTSBR424 00219 MOVE +0 TO HOLD-EMP-NO DTSBR424 00220 HOLD-BATCH-NO DTSBR424 00221 FOOT-COUNT DTSBR424 00222 FOOT-AMT. DTSBR424 00223 MOVE SPACES TO HOLD-FIELD-REP-NAME HOLD-FIELD-REP-ID. DTSBR424 00224 DTSBR424 00225 I1000-EXIT. DTSBR424 00226 EXIT. DTSBR424 00227 EJECT DTSBR424 00228 P1000-PROCESS. DTSBR424 00229 SKIP1 DTSBR424 00230 IF R424-EMP-NO = HOLD-EMP-NO DTSBR424 00231 IF R424-BATCH-NO = HOLD-BATCH-NO DTSBR424 00232 GO TO P1000-EXIT DTSBR424 00233 ELSE DTSBR424 00234 NEXT SENTENCE DTSBR424 00235 ELSE DTSBR424 00236 ADD +1 TO FOOT-COUNT DTSBR424 00237 ADD R424-INCREASED-AMT TO FOOT-AMT DTSBR424 00238 MOVE R424-EMP-NO TO HOLD-EMP-NO. DTSBR424 00239 DTSBR424 00240 IF R424-FLD-REP-ID NOT = HOLD-FIELD-REP-ID DTSBR424 00241 IF WS-NUMBER-ONE = +0 DTSBR424 00242 MOVE +99 TO WS-NUMBER-ONE DTSBR424 00243 ELSE MOVE +60 TO WS-LINE-CNT2 DTSBR424 00244 END-IF DTSBR424 00245 END-IF. DTSBR424 00246 DTSBR424 00247 MOVE R424-BATCH-NO TO HOLD-BATCH-NO. DTSBR424 00248 MOVE R424-FLD-REP-ID TO HOLD-FIELD-REP-ID. DTSBR424 00249 MOVE R424-FLD-REP-ID TO HDR-FIELD-REP-ID. DTSBR424 00250 PERFORM FIND-FIELD-REP THRU FIND-REP-EXIT. DTSBR424 00251 DTSBR424 00252 MOVE HOLD-EMP-NO TO DTL-EMP-NO. DTSBR424 00253 MOVE R424-PRIMARY-NAME TO DTL-PRIMARY-NAME. DTSBR424 00254 MOVE R424-BATCH-NO TO DTL-BATCH-NO. DTSBR424 00255 MOVE R424-INCREASED-AMT TO RPT-AMT. DTSBR424 00256 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR424 00257 WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1. DTSBR424 00258 ADD +1 TO WS-LINE-CNT2. DTSBR424 00259 DTSBR424 00260 P1000-EXIT. DTSBR424 00261 EXIT. DTSBR424 00262 DTSBR424 00263 P2000-PRINT-HEADER. DTSBR424 00264 IF WS-LINE-CNT GREATER 58 OR DTSBR424 00265 WS-LINE-CNT2 GREATER 58 DTSBR424 00266 MOVE +0 TO WS-LINE-CNT DTSBR424 00267 MOVE +0 TO WS-LINE-CNT2 DTSBR424 00268 ADD +1 TO WS-PAGE-CNT DTSBR424 00269 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR424 00270 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR424 00271 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR424 00272 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR424 00273 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR424 00274 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR424 00275 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR424 00276 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR424 00277 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR424 00278 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR424 00279 WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1 DTSBR424 00280 WRITE PRT-RECORD FROM HDR-LINE-11 AFTER 1 DTSBR424 00281 ADD +11 TO WS-LINE-CNT2. DTSBR424 00282 P2000-EXIT. DTSBR424 00283 EXIT. DTSBR424 00284 DTSBR424 00285 T1000-TERMINATE. DTSBR424 00286 DTSBR424 00287 IF WS-LINE-CNT2 > 52 DTSBR424 00288 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR424 00289 END-IF. DTSBR424 00290 DTSBR424 00291 MOVE FOOT-COUNT TO CFF-FOOT-COUNT. DTSBR424 00292 MOVE FOOT-AMT TO CFF-FOOT-AMT. DTSBR424 00293 WRITE PRT-RECORD FROM CFF-LINE-4 AFTER 4. DTSBR424 00294 WRITE PRT-RECORD FROM CFF-LINE-6 AFTER 2. DTSBR424 00295 DTSBR424 00296 CLOSE PRT-FILE. DTSBR424 00297 DTSBR424 00298 T1000-EXIT. DTSBR424 00299 EXIT. DTSBR424 00300 EJECT DTSBR424 00301 FIND-FIELD-REP. DTSBR424 00302 MOVE R424-FLD-REP-ID TO L062-FLD-REP-ID. DTSBR424 00303 PERFORM S062-FLD-REP THRU S062-EXIT. DTSBR424 00304 MOVE L062-NAME TO HOLD-FIELD-REP-NAME DTSBR424 00305 HDR-FIELD-REP-NAME. DTSBR424 00306 FIND-REP-EXIT. DTSBR424 00307 EXIT. DTSBR424 00308 S062-FLD-REP. DTSBR424 00309 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR424 00310 S062-EXIT. DTSBR424 00311 EXIT. DTSBR424 00312 SKIP3 DTSBR424 00313 *S999-ABEND. DTSBR424 00314 * SKIP1 DTSBR424 00315 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR424 00316 * SKIP2 DTSBR424 00317 *S999-EXIT. DTSBR424 00318 * EXIT. DTSBR424 00319 DTSBR424