387 lines
30 KiB
COBOL
387 lines
30 KiB
COBOL
00001 IDENTIFICATION DIVISION. 07/23/04
|
|
00002 PROGRAM-ID. DTSBU421. DTSBU421
|
|
00003 AUTHOR. TRW. LV007
|
|
00004 DATE-WRITTEN. FEBRUARY 2002. DTSBU421
|
|
00005 DATE-COMPILED. DTSBU421
|
|
00006 SKIP3 DTSBU421
|
|
00007 ***** DTSBU421
|
|
00008 * *** ANNUAL REPORT VERSION *** DTSBU421
|
|
00009 * DTSBU421
|
|
00010 * FUNCTION: DTSBU421 READ THE EMPLOYER-ORIENTED WAGE HISTORY FDTSBU421
|
|
00011 * (WGH) FOR A GIVEN EMPLOYER, AND RETURNS THE SSNS ODTSBU421
|
|
00012 * ALL WORKERS REPORTED, AND ANY WAGES PREVIOUSLY DTSBU421
|
|
00013 * REPORTED FOR THE CURRENT YEAR. DTSBU421
|
|
00014 * DTSBU421
|
|
00015 * MODIFICATION LOG: DTSBU421
|
|
00016 * DTSBU421
|
|
00017 * 02/18/2002 INITIAL DEVELOPMENT. DTSBU421
|
|
00018 * WORK ORDER: PROGRAMMER: GD DTSBU421
|
|
00019 * DTSBU421
|
|
00020 * 12/11/2003 CORRECTED PROBLEM IN P1920 - ADDED CODE TO DTSBU421
|
|
00021 * CLEAR LINES IN WAGE TABLE WHEN A NEW LINE IS DTSBU421
|
|
00022 * INSERTED. DTSBU421
|
|
00023 * INITIALIZED TBL-CNT AT BEGINNING OF PROGRAM. DTSBU421
|
|
00024 * WORK ORDER: PROGRAMMER: GD DTSBU421
|
|
00025 * DTSBU421
|
|
00026 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU421
|
|
00027 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU421
|
|
00028 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU421
|
|
00029 * DTSBU421
|
|
00030 * DTSBU421
|
|
00031 * DESCRIPTION: DTSBU421
|
|
00032 * DTSBU421
|
|
00033 * THIS PROGRAM WAS CLONED FROM DTSCU422 FOR THE BATCH DTSBU421
|
|
00034 * MODE TO READ THE EMPLOYER-ORIENTED WAGE HISTORY FILE DTSBU421
|
|
00035 * (WGH) FOR A GIVEN EMPLOYER, AND RETURNS THE SSNS OF DTSBU421
|
|
00036 * ALL WORKERS REPORTED, AND ANY WAGES PREVIOUSLY DTSBU421
|
|
00037 * REPORTED FOR THE CURRENT YEAR. DTSBU421
|
|
00038 * DTSBU421
|
|
00039 * DTSBU421
|
|
00040 * GENERAL SPECIFICATIONS: DTSBU421
|
|
00041 * DTSBU421
|
|
00042 * DTSBU421
|
|
00043 * DTSBU421
|
|
00044 * DTSBU421
|
|
00045 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU421
|
|
00046 * DTSBU421
|
|
00047 * DTSBU421
|
|
00048 * DTSBU421
|
|
00049 ***** DTSBU421
|
|
00050 SKIP3 DTSBU421
|
|
00051 DATA DIVISION. DTSBU421
|
|
00052 WORKING-STORAGE SECTION. DTSBU421
|
|
000525 77 PAN-VALET PICTURE X(24) VALUE '007DTSBU421 07/23/04'. DTSBU421
|
|
00053 SKIP3 DTSBU421
|
|
00054 01 WRK-AREA. DTSBU421
|
|
00055 DTSBU421
|
|
00056 05 WRK-ABEND-CD PIC X(04) VALUE 'U421'. DTSBU421
|
|
00057 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU421'. DTSBU421
|
|
00058 05 ABEND-MSG PIC X(60). DTSBU421
|
|
00059 DTSBU421
|
|
00060 05 TBL-SUB PIC S9(04) COMP. DTSBU421
|
|
00061 05 TBL-CNT PIC S9(04) COMP VALUE +0. DTSBU421
|
|
00062 05 TBL-MAX PIC S9(04) COMP DTSBU421
|
|
00063 VALUE +250. DTSBU421
|
|
00064 05 SSN-SUB PIC S9(04) COMP. DTSBU421
|
|
00065 05 NXT-SUB PIC S9(04) COMP. DTSBU421
|
|
00066 DTSBU421
|
|
00067 05 WRK-INDEX-IND PIC X(01). DTSBU421
|
|
00068 88 WRK-INDEX-NULL-88 VALUE '0'. DTSBU421
|
|
00069 88 WRK-INDEX-POSITION-FOUND-88 VALUE '1'. DTSBU421
|
|
00070 88 WRK-INDEX-SSN-FOUND-88 VALUE '2'. DTSBU421
|
|
00071 88 WRK-INDEX-FOUND-88 VALUE '1' '2'. DTSBU421
|
|
00072 DTSBU421
|
|
00073 05 WRK-MAX-SSN PIC S9(09) COMP-3 DTSBU421
|
|
00074 VALUE +0. DTSBU421
|
|
00075 DTSBU421
|
|
00076 EJECT DTSBU421
|
|
00077 01 L004-LINK-AREA. DTSBU421
|
|
00078 ++INCLUDE DTSIL004 DTSBU421
|
|
00079 SKIP3 DTSBU421
|
|
00080 01 L981-LINK-AREA. DTSBU421
|
|
00081 ++INCLUDE DTSIL981 DTSBU421
|
|
00082 SKIP3 DTSBU421
|
|
00083 01 WWGH-REC. DTSBU421
|
|
00084 ++INCLUDE DTSIWWGH DTSBU421
|
|
00085 EJECT DTSBU421
|
|
00086 DTSBU421
|
|
00087 01 L423-LINK-AREA. DTSBU421
|
|
00088 ++INCLUDE DTSIL423 DTSBU421
|
|
00089 EJECT DTSBU421
|
|
00090 LINKAGE SECTION. DTSBU421
|
|
00091 SKIP3 DTSBU421
|
|
00092 01 L421-LINK-AREA. DTSBU421
|
|
00093 ++INCLUDE DTSIL421 DTSBU421
|
|
00094 EJECT DTSBU421
|
|
00095 PROCEDURE DIVISION DTSBU421
|
|
00096 USING L421-LINK-AREA. DTSBU421
|
|
00097 DTSBU421
|
|
00098 PERFORM I0000-INIT-TABLE THRU I0000-EXIT. DTSBU421
|
|
00099 DTSBU421
|
|
00100 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBU421
|
|
00101 DTSBU421
|
|
00102 GOBACK. DTSBU421
|
|
00103 EJECT DTSBU421
|
|
00104 I0000-INIT-TABLE. DTSBU421
|
|
00105 PERFORM DTSBU421
|
|
00106 VARYING SSN-SUB FROM +1 BY +1 DTSBU421
|
|
00107 UNTIL SSN-SUB > TBL-MAX DTSBU421
|
|
00108 MOVE ZERO TO L421-SSN (SSN-SUB) DTSBU421
|
|
00109 L421-QTR1-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00110 L421-QTR1-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00111 L421-QTR2-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00112 L421-QTR2-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00113 L421-QTR3-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00114 L421-QTR3-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00115 L421-QTR4-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00116 L421-QTR4-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00117 END-PERFORM. DTSBU421
|
|
00118 DTSBU421
|
|
00119 I0000-EXIT. DTSBU421
|
|
00120 EXIT. DTSBU421
|
|
00121 DTSBU421
|
|
00122 P0000-PROCESS. DTSBU421
|
|
00123 DTSBU421
|
|
00124 MOVE ZERO TO TBL-SUB DTSBU421
|
|
00125 TBL-CNT DTSBU421
|
|
00126 WRK-MAX-SSN. DTSBU421
|
|
00127 SET L421-ERR-NO-88 TO TRUE. DTSBU421
|
|
00128 DTSBU421
|
|
00129 MOVE LOW-VALUE TO WWGH-REC. DTSBU421
|
|
00130 MOVE L421-EMP-NO TO WWGH-EMP-NO. DTSBU421
|
|
00131 MOVE L421-QTR1 TO WWGH-YRQ. DTSBU421
|
|
00132 DTSBU421
|
|
00133 PERFORM S981D-START-BROWSE THRU S981D-EXIT. DTSBU421
|
|
00134 DTSBU421
|
|
00135 IF L981-OK-88 DTSBU421
|
|
00136 PERFORM P1000-SCAN-WAGE-FILE THRU P1000-EXIT DTSBU421
|
|
00137 UNTIL L981-NO-REC-88 DTSBU421
|
|
00138 OR L421-ERR-IND NOT = '00'. DTSBU421
|
|
00139 DTSBU421
|
|
00140 MOVE TBL-CNT TO L421-WAGE-TBL-CNT. DTSBU421
|
|
00141 DTSBU421
|
|
00142 PERFORM P2000-TAX-WAGE THRU P2000-EXIT. DTSBU421
|
|
00143 DTSBU421
|
|
00144 DTSBU421
|
|
00145 P0000-EXIT. DTSBU421
|
|
00146 EXIT. DTSBU421
|
|
00147 DTSBU421
|
|
00148 P1000-SCAN-WAGE-FILE. DTSBU421
|
|
00149 IF WWGH-EMP-NO NOT = L421-EMP-NO DTSBU421
|
|
00150 OR WWGH-YRQ > L421-QTR4 DTSBU421
|
|
00151 SET L981-NO-REC-88 TO TRUE DTSBU421
|
|
00152 GO TO P1000-EXIT DTSBU421
|
|
00153 ELSE DTSBU421
|
|
00154 IF WWGH-SSN = +0 DTSBU421
|
|
00155 NEXT SENTENCE DTSBU421
|
|
00156 ELSE DTSBU421
|
|
00157 PERFORM P1900-FIND-INDEX THRU P1900-EXIT DTSBU421
|
|
00158 IF L421-ERR-NO-88 DTSBU421
|
|
00159 PERFORM P1100-MOVE-WAGES THRU P1100-EXIT DTSBU421
|
|
00160 ELSE DTSBU421
|
|
00161 GO TO P1000-EXIT DTSBU421
|
|
00162 END-IF DTSBU421
|
|
00163 END-IF DTSBU421
|
|
00164 END-IF. DTSBU421
|
|
00165 DTSBU421
|
|
00166 PERFORM S981E-READ-NEXT THRU S981E-EXIT. DTSBU421
|
|
00167 DTSBU421
|
|
00168 P1000-EXIT. DTSBU421
|
|
00169 EXIT. DTSBU421
|
|
00170 DTSBU421
|
|
00171 P1100-MOVE-WAGES. DTSBU421
|
|
00172 *& DTSBU421
|
|
00173 * DISPLAY ' P1100 -1 ' L421-EMP-NO ' ' TBL-SUB. DTSBU421
|
|
00174 *& DTSBU421
|
|
00175 MOVE WWGH-SSN TO L421-SSN (TBL-SUB). DTSBU421
|
|
00176 DTSBU421
|
|
00177 EVALUATE TRUE DTSBU421
|
|
00178 WHEN WWGH-YRQ = L421-QTR1 DTSBU421
|
|
00179 ADD WWGH-EARNINGS TO L421-QTR1-CURR-WAGE (TBL-SUB) DTSBU421
|
|
00180 WHEN WWGH-YRQ = L421-QTR2 DTSBU421
|
|
00181 ADD WWGH-EARNINGS TO L421-QTR2-CURR-WAGE (TBL-SUB) DTSBU421
|
|
00182 WHEN WWGH-YRQ = L421-QTR3 DTSBU421
|
|
00183 ADD WWGH-EARNINGS TO L421-QTR3-CURR-WAGE (TBL-SUB) DTSBU421
|
|
00184 WHEN WWGH-YRQ = L421-QTR4 DTSBU421
|
|
00185 ADD WWGH-EARNINGS TO L421-QTR4-CURR-WAGE (TBL-SUB) DTSBU421
|
|
00186 END-EVALUATE. DTSBU421
|
|
00187 DTSBU421
|
|
00188 P1100-EXIT. DTSBU421
|
|
00189 EXIT. DTSBU421
|
|
00190 DTSBU421
|
|
00191 DTSBU421
|
|
00192 P1900-FIND-INDEX. DTSBU421
|
|
00193 *& DTSBU421
|
|
00194 * IF WWGH-EMP-NO = 050028 DTSBU421
|
|
00195 * DISPLAY 'SSN ' WWGH-SSN ' MAX ' WRK-MAX-SSN DTSBU421
|
|
00196 * ' CNT ' TBL-CNT DTSBU421
|
|
00197 * END-IF. DTSBU421
|
|
00198 *& DTSBU421
|
|
00199 SET WRK-INDEX-NULL-88 TO TRUE. DTSBU421
|
|
00200 DTSBU421
|
|
00201 IF WWGH-SSN > WRK-MAX-SSN DTSBU421
|
|
00202 IF TBL-CNT < TBL-MAX DTSBU421
|
|
00203 ADD +1 TO TBL-CNT DTSBU421
|
|
00204 MOVE TBL-CNT TO TBL-SUB DTSBU421
|
|
00205 SET WRK-INDEX-POSITION-FOUND-88 TO TRUE DTSBU421
|
|
00206 MOVE WWGH-SSN TO WRK-MAX-SSN DTSBU421
|
|
00207 ELSE DTSBU421
|
|
00208 SET L421-ERR-OVER-250-88 TO TRUE DTSBU421
|
|
00209 END-IF DTSBU421
|
|
00210 ELSE DTSBU421
|
|
00211 PERFORM P1910-SEARCH-TABLE THRU P1910-EXIT DTSBU421
|
|
00212 IF WRK-INDEX-POSITION-FOUND-88 DTSBU421
|
|
00213 IF TBL-CNT < TBL-MAX DTSBU421
|
|
00214 PERFORM P1920-INSERT-SSN THRU P1920-EXIT DTSBU421
|
|
00215 ELSE DTSBU421
|
|
00216 SET L421-ERR-OVER-250-88 TO TRUE DTSBU421
|
|
00217 END-IF DTSBU421
|
|
00218 END-IF DTSBU421
|
|
00219 END-IF. DTSBU421
|
|
00220 DTSBU421
|
|
00221 P1900-EXIT. DTSBU421
|
|
00222 EXIT. DTSBU421
|
|
00223 DTSBU421
|
|
00224 P1910-SEARCH-TABLE. DTSBU421
|
|
00225 PERFORM DTSBU421
|
|
00226 VARYING SSN-SUB FROM +1 BY +1 DTSBU421
|
|
00227 UNTIL WRK-INDEX-FOUND-88 DTSBU421
|
|
00228 OR SSN-SUB > TBL-CNT DTSBU421
|
|
00229 IF L421-SSN (SSN-SUB) = WWGH-SSN DTSBU421
|
|
00230 SET WRK-INDEX-SSN-FOUND-88 TO TRUE DTSBU421
|
|
00231 MOVE SSN-SUB TO TBL-SUB DTSBU421
|
|
00232 ELSE DTSBU421
|
|
00233 IF WWGH-SSN < L421-SSN (SSN-SUB) DTSBU421
|
|
00234 MOVE SSN-SUB TO TBL-SUB DTSBU421
|
|
00235 SET WRK-INDEX-POSITION-FOUND-88 TO TRUE DTSBU421
|
|
00236 END-IF DTSBU421
|
|
00237 END-IF DTSBU421
|
|
00238 END-PERFORM. DTSBU421
|
|
00239 DTSBU421
|
|
00240 *& DTSBU421
|
|
00241 * IF WWGH-EMP-NO = 050028 DTSBU421
|
|
00242 * DISPLAY 'P1910 ' WWGH-SSN ' ' TBL-SUB DTSBU421
|
|
00243 * END-IF. DTSBU421
|
|
00244 *& DTSBU421
|
|
00245 P1910-EXIT. DTSBU421
|
|
00246 EXIT. DTSBU421
|
|
00247 DTSBU421
|
|
00248 P1920-INSERT-SSN. DTSBU421
|
|
00249 *& DTSBU421
|
|
00250 * IF WWGH-EMP-NO = 050028 DTSBU421
|
|
00251 * DISPLAY 'P1920 ' WWGH-SSN ' SUB ' TBL-SUB DTSBU421
|
|
00252 * ' CNT ' TBL-CNT DTSBU421
|
|
00253 * END-IF. DTSBU421
|
|
00254 *& DTSBU421
|
|
00255 PERFORM DTSBU421
|
|
00256 VARYING SSN-SUB FROM TBL-CNT BY -1 DTSBU421
|
|
00257 UNTIL SSN-SUB < TBL-SUB DTSBU421
|
|
00258 COMPUTE NXT-SUB = SSN-SUB + 1 DTSBU421
|
|
00259 MOVE L421-SSN-TBL (SSN-SUB) TO DTSBU421
|
|
00260 L421-SSN-TBL (NXT-SUB) DTSBU421
|
|
00261 PERFORM P1921-CLEAR-LINE THRU P1921-EXIT DTSBU421
|
|
00262 END-PERFORM. DTSBU421
|
|
00263 DTSBU421
|
|
00264 ADD +1 TO TBL-CNT. DTSBU421
|
|
00265 DTSBU421
|
|
00266 P1920-EXIT. DTSBU421
|
|
00267 EXIT. DTSBU421
|
|
00268 DTSBU421
|
|
00269 P1921-CLEAR-LINE. DTSBU421
|
|
00270 MOVE ZERO TO L421-SSN (SSN-SUB) DTSBU421
|
|
00271 L421-QTR1-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00272 L421-QTR1-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00273 L421-QTR2-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00274 L421-QTR2-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00275 L421-QTR3-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00276 L421-QTR3-TAX-WAGE (SSN-SUB) DTSBU421
|
|
00277 L421-QTR4-CURR-WAGE (SSN-SUB) DTSBU421
|
|
00278 L421-QTR4-TAX-WAGE (SSN-SUB). DTSBU421
|
|
00279 DTSBU421
|
|
00280 P1921-EXIT. DTSBU421
|
|
00281 EXIT. DTSBU421
|
|
00282 DTSBU421
|
|
00283 P2000-TAX-WAGE. DTSBU421
|
|
00284 PERFORM P2100-CALL-BU423 THRU P2100-EXIT DTSBU421
|
|
00285 VARYING TBL-SUB FROM +1 BY +1 DTSBU421
|
|
00286 UNTIL TBL-SUB > TBL-CNT. DTSBU421
|
|
00287 DTSBU421
|
|
00288 P2000-EXIT. DTSBU421
|
|
00289 EXIT. DTSBU421
|
|
00290 DTSBU421
|
|
00291 P2100-CALL-BU423. DTSBU421
|
|
00292 MOVE L421-QTR1 TO L423-QTR1. DTSBU421
|
|
00293 MOVE L421-QTR1-CURR-WAGE (TBL-SUB) TO L423-QTR1-WAGE-CHNG. DTSBU421
|
|
00294 MOVE ZERO TO L423-QTR1-CURR-WAGE. DTSBU421
|
|
00295 MOVE L421-QTR2 TO L423-QTR2. DTSBU421
|
|
00296 MOVE L421-QTR2-CURR-WAGE (TBL-SUB) TO L423-QTR2-WAGE-CHNG. DTSBU421
|
|
00297 MOVE ZERO TO L423-QTR2-CURR-WAGE. DTSBU421
|
|
00298 MOVE L421-QTR3 TO L423-QTR3. DTSBU421
|
|
00299 MOVE L421-QTR3-CURR-WAGE (TBL-SUB) TO L423-QTR3-WAGE-CHNG. DTSBU421
|
|
00300 MOVE ZERO TO L423-QTR3-CURR-WAGE. DTSBU421
|
|
00301 MOVE L421-QTR4 TO L423-QTR4. DTSBU421
|
|
00302 MOVE L421-QTR4-CURR-WAGE (TBL-SUB) TO L423-QTR4-WAGE-CHNG. DTSBU421
|
|
00303 MOVE ZERO TO L423-QTR4-CURR-WAGE. DTSBU421
|
|
00304 DTSBU421
|
|
00305 PERFORM S423-CALC-TAX-WAGES THRU S423-EXIT. DTSBU421
|
|
00306 DTSBU421
|
|
00307 MOVE L423-QTR1-TAX-WAGES TO L421-QTR1-TAX-WAGE (TBL-SUB). DTSBU421
|
|
00308 MOVE L423-QTR2-TAX-WAGES TO L421-QTR2-TAX-WAGE (TBL-SUB). DTSBU421
|
|
00309 MOVE L423-QTR3-TAX-WAGES TO L421-QTR3-TAX-WAGE (TBL-SUB). DTSBU421
|
|
00310 MOVE L423-QTR4-TAX-WAGES TO L421-QTR4-TAX-WAGE (TBL-SUB). DTSBU421
|
|
00311 DTSBU421
|
|
00312 P2100-EXIT. DTSBU421
|
|
00313 EXIT. DTSBU421
|
|
00314 DTSBU421
|
|
00315 DTSBU421
|
|
00316 S004-FROM-5. DTSBU421
|
|
00317 SET L004-FROM-5 TO TRUE. DTSBU421
|
|
00318 GO TO S004-QTR. DTSBU421
|
|
00319 DTSBU421
|
|
00320 S004-FROM-3. DTSBU421
|
|
00321 SET L004-FROM-3 TO TRUE. DTSBU421
|
|
00322 GO TO S004-QTR. DTSBU421
|
|
00323 DTSBU421
|
|
00324 S004-QTR. DTSBU421
|
|
00325 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBU421
|
|
00326 S004-EXIT. DTSBU421
|
|
00327 EXIT. DTSBU421
|
|
00328 SKIP3 DTSBU421
|
|
00329 DTSBU421
|
|
00330 S423-CALC-TAX-WAGES. DTSBU421
|
|
00331 CALL 'DTSBU423' USING L423-LINK-AREA. DTSBU421
|
|
00332 DTSBU421
|
|
00333 S423-EXIT. DTSBU421
|
|
00334 EXIT. DTSBU421
|
|
00335 DTSBU421
|
|
00336 S981A-OPEN-READ. DTSBU421
|
|
00337 SET L981-OPEN-READ-88 TO TRUE. DTSBU421
|
|
00338 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBU421
|
|
00339 DTSBU421
|
|
00340 S981A-EXIT. DTSBU421
|
|
00341 EXIT. DTSBU421
|
|
00342 DTSBU421
|
|
00343 S981B-OPEN-UPDATE. DTSBU421
|
|
00344 SET L981-OPEN-UPDATE-88 TO TRUE. DTSBU421
|
|
00345 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBU421
|
|
00346 DTSBU421
|
|
00347 S981B-EXIT. DTSBU421
|
|
00348 EXIT. DTSBU421
|
|
00349 DTSBU421
|
|
00350 S981C-CLOSE. DTSBU421
|
|
00351 SET L981-CLOSE-88 TO TRUE. DTSBU421
|
|
00352 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBU421
|
|
00353 DTSBU421
|
|
00354 S981C-EXIT. DTSBU421
|
|
00355 EXIT. DTSBU421
|
|
00356 DTSBU421
|
|
00357 S981D-START-BROWSE. DTSBU421
|
|
00358 SET L981-START-BROWSE-88 TO TRUE. DTSBU421
|
|
00359 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBU421
|
|
00360 DTSBU421
|
|
00361 S981D-EXIT. DTSBU421
|
|
00362 EXIT. DTSBU421
|
|
00363 DTSBU421
|
|
00364 S981E-READ-NEXT. DTSBU421
|
|
00365 SET L981-READ-NEXT-88 TO TRUE. DTSBU421
|
|
00366 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBU421
|
|
00367 DTSBU421
|
|
00368 S981E-EXIT. DTSBU421
|
|
00369 EXIT. DTSBU421
|
|
00370 DTSBU421
|
|
00371 S981Z-WAGE-I. DTSBU421
|
|
00372 CALL 'DTSBU981' USING L981-LINK-AREA DTSBU421
|
|
00373 WWGH-REC. DTSBU421
|
|
00374 S981Z-EXIT. DTSBU421
|
|
00375 EXIT. DTSBU421
|
|
00376 DTSBU421
|
|
00377 S999-ABEND. DTSBU421
|
|
00378 DISPLAY '*** DTSBE453 ABENDING. ' DTSBU421
|
|
00379 ABEND-MSG. DTSBU421
|
|
00380 DTSBU421
|
|
00381 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU421
|
|
00382 S999-EXIT. DTSBU421
|
|
00383 EXIT. DTSBU421
|
|
00384 DTSBU421
|
|
00385 DTSBU421
|