DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
386
Batch/DTSBU421.cob
Normal file
386
Batch/DTSBU421.cob
Normal file
@ -0,0 +1,386 @@
|
||||
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
|
||||
Reference in New Issue
Block a user