DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
999
Batch/DTSBE325.cob
Normal file
999
Batch/DTSBE325.cob
Normal file
@ -0,0 +1,999 @@
|
||||
00001 IDENTIFICATION DIVISION. 07/11/11
|
||||
00002 PROGRAM-ID. DTSBE325. DTSBE325
|
||||
00003 AUTHOR. NGC LV007
|
||||
00004 DATE-WRITTEN. SEPTEMBER 2006. DTSBE325
|
||||
00005 DATE-COMPILED. DTSBE325
|
||||
00006 SKIP3 DTSBE325
|
||||
00007 ***** DTSBE325
|
||||
00008 * TESTING FOR SOC7 ABEND ***************** DTSBE325
|
||||
00009 * DTSBE325
|
||||
00010 * FUNCTION: COMPUTE ADMINISTRATIVE TAX (SUR CHARGE) FOR DTSBE325
|
||||
00011 * SELF INSURED EMPLOYERS. DTSBE325
|
||||
00012 ***** DTSBE325
|
||||
00013 SKIP3 DTSBE325
|
||||
00014 ENVIRONMENT DIVISION. DTSBE325
|
||||
00015 SKIP2 DTSBE325
|
||||
00016 CONFIGURATION SECTION. DTSBE325
|
||||
00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBE325
|
||||
00018 INPUT-OUTPUT SECTION. DTSBE325
|
||||
00019 DTSBE325
|
||||
00020 FILE-CONTROL. DTSBE325
|
||||
00021 SELECT DOWNLOAD-FILE ASSIGN TO DTSF325 DTSBE325
|
||||
00022 FILE STATUS IS DWN-STATUS. DTSBE325
|
||||
00023 DTSBE325
|
||||
00024 SELECT WESQ-FILE ASSIGN TO DTSWESQ DTSBE325
|
||||
00025 ORGANIZATION IS INDEXED DTSBE325
|
||||
00026 RECORD KEY IS WESQ-KEY-AREA DTSBE325
|
||||
00027 FILE STATUS IS WESQ-FILE-STATUS DTSBE325
|
||||
00028 ACCESS IS SEQUENTIAL. DTSBE325
|
||||
00029 DTSBE325
|
||||
00030 DATA DIVISION. DTSBE325
|
||||
00031 DTSBE325
|
||||
00032 FILE SECTION. DTSBE325
|
||||
00033 FD DOWNLOAD-FILE DTSBE325
|
||||
00034 RECORDING MODE IS F. DTSBE325
|
||||
00035 01 DOWNLOAD-REC PIC X(114). DTSBE325
|
||||
00036 DTSBE325
|
||||
00037 FD WESQ-FILE. DTSBE325
|
||||
00038 01 WESQ-REC. DTSBE325
|
||||
00039 ++INCLUDE DTSIWESQ DTSBE325
|
||||
00040 DTSBE325
|
||||
00041 DTSBE325
|
||||
00042 WORKING-STORAGE SECTION. DTSBE325
|
||||
000425 77 PAN-VALET PICTURE X(24) VALUE '007DTSBE325 07/11/11'. DTSBE325
|
||||
00043 SKIP3 DTSBE325
|
||||
00044 01 WRK-AREA. DTSBE325
|
||||
00045 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +325.DTSBE325
|
||||
00046 DTSBE325
|
||||
00047 05 ABEND-MSG PIC X(60). DTSBE325
|
||||
00048 DTSBE325
|
||||
00049 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE325'.DTSBE325
|
||||
00050 DTSBE325
|
||||
00051 05 WRK-CONSTANTS. DTSBE325
|
||||
00052 10 WRK-MAX-PCT PIC S9V9(04) COMP-3 DTSBE325
|
||||
00053 VALUE +0.1. DTSBE325
|
||||
00054 10 WRK-MAX-WAGE-DIFF PIC S9(11)V9(02) COMP-3 DTSBE325
|
||||
00055 VALUE +100000. DTSBE325
|
||||
00056 05 WESQ-FILE-STATUS PIC X(02). DTSBE325
|
||||
00057 88 WESQ-FILE-OK-88 VALUE '00'. DTSBE325
|
||||
00058 88 WESQ-FILE-NO-REC-88 VALUE '10' '23'. DTSBE325
|
||||
00059 88 WESQ-FILE-VERIFY-88 VALUE '97'. DTSBE325
|
||||
00060 DTSBE325
|
||||
00061 05 RPT-STATUS PIC X(02). DTSBE325
|
||||
00062 88 RPT-STATUS-OK-88 VALUE '00'. DTSBE325
|
||||
00063 05 DWN-STATUS PIC X(02). DTSBE325
|
||||
00064 88 DWN-STATUS-OK-88 VALUE '00'. DTSBE325
|
||||
00065 05 WRK-QTR-FOUND-IND PIC X(01). DTSBE325
|
||||
00066 88 WRK-QTR-FOUND-YES-88 VALUE 'Y'. DTSBE325
|
||||
00067 88 WRK-QTR-FOUND-NO-88 VALUE 'N'. DTSBE325
|
||||
00068 05 WRK-ERROR-IND PIC X(01). DTSBE325
|
||||
00069 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBE325
|
||||
00070 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBE325
|
||||
00071 DTSBE325
|
||||
00072 *********************************************************** DTSBE325
|
||||
00073 * THE FOLLOWING INDICATOR SHOWS THE DIFFERENCE BETWEEN DTSBE325
|
||||
00074 * THE UC-30 REPORTED WAGES AND THE WAGE FILE WAGES. DTSBE325
|
||||
00075 * EXACT: NO DIFFERENCE. DTSBE325
|
||||
00076 * TOL: WITHIN TOLERANCE ($0.99 * EMPLOYEE COUNT) DTSBE325
|
||||
00077 * UNDER MAX: DIFFERENCE < 10% AND UNDER $100,000.00 DTSBE325
|
||||
00078 * NO ASSESS: DIFFERENCE IS TOO GREAT - NO ASSESSMENT DTSBE325
|
||||
00079 * CHARGED. DTSBE325
|
||||
00080 * DTSBE325
|
||||
00081 * IF THE COMPUTED AMOUNT FROM ACTUAL EARNINGS IS DTSBE325
|
||||
00082 * GREATER THAN THE AMOUNT REPORTED ON THE UC-30, DTSBE325
|
||||
00083 * THE COMPUTED AMOUNT WILL BE USED. DTSBE325
|
||||
00084 *********************************************************** DTSBE325
|
||||
00085 05 WRK-ASSESS-STATUS PIC X(01). DTSBE325
|
||||
00086 88 WRK-ASSESS-EXACT-88 VALUE '0'. DTSBE325
|
||||
00087 88 WRK-ASSESS-TOL-88 VALUE '1'. DTSBE325
|
||||
00088 88 WRK-ASSESS-UNDER-MAX-88 VALUE '2'. DTSBE325
|
||||
00089 88 WRK-ASSESS-OVER-MAX-88 VALUE '3'. DTSBE325
|
||||
00090 88 WRK-NO-WAGES-88 VALUE '4'. DTSBE325
|
||||
00091 88 WRK-NO-ASSESS-88 VALUE '3' '4'. DTSBE325
|
||||
00092 88 WRK-CHARGE-ASSESS-88 VALUE '0' '1' '2'. DTSBE325
|
||||
00093 DTSBE325
|
||||
00094 05 WRK-STATUS-CNTS. DTSBE325
|
||||
00095 10 WRK-EXACT-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE325
|
||||
00096 10 WRK-TOL-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE325
|
||||
00097 10 WRK-UNDER-MAX-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE325
|
||||
00098 10 WRK-OVER-MAX-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE325
|
||||
00099 10 WRK-NO-WAGES-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE325
|
||||
00100 DTSBE325
|
||||
00101 05 WRK-T026-CNT PIC S9(07) COMP-3 DTSBE325
|
||||
00102 VALUE +0. DTSBE325
|
||||
00103 05 WRK-MPRF-CNT PIC S9(07) COMP-3 DTSBE325
|
||||
00104 VALUE +0. DTSBE325
|
||||
00105 DTSBE325
|
||||
00106 05 WRK-SUR-RATE PIC S9V9(04) COMP-3. DTSBE325
|
||||
00107 05 WRK-START-YRQ PIC S9(05) COMP-3 VALUE 0. DTSBE325
|
||||
00108 05 WRK-END-YRQ PIC S9(05) COMP-3 VALUE 0. DTSBE325
|
||||
00109 05 WRK-CURR-YRQ PIC S9(05) COMP-3 VALUE 0. DTSBE325
|
||||
00110 05 WRK-CURR-ASSESS PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00111 05 WRK-ASSESS-CHNG PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00112 05 WRK-EMP-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00113 05 WRK-EMP-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00114 05 WRK-TAX-REMAIN PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00115 05 WRK-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00116 DTSBE325
|
||||
00117 05 WRK-PCT PIC S9V9(04) COMP-3. DTSBE325
|
||||
00118 05 SUB PIC S9(04) COMP. DTSBE325
|
||||
00119 05 WRK-QTR-TABLE-MAX PIC S9(04) COMP VALUE +9. DTSBE325
|
||||
00120 05 WRK-QTR-TABLE OCCURS 9 TIMES. DTSBE325
|
||||
00121 10 WRK-QTR-YRQ PIC S9(05) COMP-3. DTSBE325
|
||||
00122 10 WRK-QTR-RATE PIC S9V9(04) COMP-3. DTSBE325
|
||||
00123 10 WRK-QTR-OLD-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00124 10 WRK-QTR-OLD-ASSESSMT PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00125 10 WRK-QTR-NEW-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00126 10 WRK-QTR-NEW-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00127 10 WRK-QTR-NEW-ASSESSMT PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00128 10 WRK-QTR-EMP-CNT PIC S9(07) COMP-3. DTSBE325
|
||||
00129 DTSBE325
|
||||
00130 05 WRK-WAGE-TOLERANCE PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00131 05 WRK-WAGE-DIFF PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00132 DTSBE325
|
||||
00133 05 WRK-TAX-WAGES PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00134 05 WRK-TAX-REMAINING PIC S9(11)V9(02) COMP-3. DTSBE325
|
||||
00135 05 WRK-TAX-AMT PIC S9(09)V9(02) COMP-3. DTSBE325
|
||||
00136 05 WRK-TOT-TAX-CHG PIC S9(09)V9(02) COMP-3. DTSBE325
|
||||
00137 DTSBE325
|
||||
00138 DTSBE325
|
||||
00139 05 WRK-DOWNLOAD-REC. DTSBE325
|
||||
00140 10 WRK-DWN-EMP PIC 9(06). DTSBE325
|
||||
00141 10 FILLER PIC X(01) VALUE ','. DTSBE325
|
||||
00142 10 WRK-DWN-NAME PIC X(40). DTSBE325
|
||||
00143 10 FILLER PIC X(01) VALUE ','. DTSBE325
|
||||
00144 10 WRK-DWN-YRQ PIC X(06). DTSBE325
|
||||
00145 10 FILLER PIC X(01) VALUE ','. DTSBE325
|
||||
00146 10 WRK-DWN-TAX-WAGE PIC ----------9.99. DTSBE325
|
||||
00147 10 FILLER PIC X(01) VALUE ','. DTSBE325
|
||||
00148 10 WRK-DWN-OLD-ASSESS PIC ----------9.99. DTSBE325
|
||||
00149 10 FILLER PIC X(01) VALUE ','. DTSBE325
|
||||
00150 10 WRK-DWN-NEW-ASSESS PIC ----------9.99. DTSBE325
|
||||
00151 10 FILLER PIC X(01) VALUE ','. DTSBE325
|
||||
00152 10 WRK-DWN-ASSESS-CHNG PIC ----------9.99. DTSBE325
|
||||
00153 DTSBE325
|
||||
00154 05 WRK-TAX-WAGE-BASE PIC S9(07)V99 COMP-3. DTSBE325
|
||||
00155 DTSBE325
|
||||
00156 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBE325
|
||||
00157 DTSBE325
|
||||
00158 05 WRK-TRACE-IND PIC X(01). DTSBE325
|
||||
00159 DTSBE325
|
||||
00160 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBE325
|
||||
00161 DTSBE325
|
||||
00162 05 AMT-DISP1 PIC -,---,---,--9.99. DTSBE325
|
||||
00163 05 AMT-DISP2 PIC -,---,---,--9.99. DTSBE325
|
||||
00164 05 AMT-DISP3 PIC -,---,---,--9.99. DTSBE325
|
||||
00165 05 AMT-DISP4 PIC -,---,---,--9.99. DTSBE325
|
||||
00166 05 DISP-RATE PIC 9.9999. DTSBE325
|
||||
00167 05 DISP-DATE1 PIC X(10). DTSBE325
|
||||
00168 05 DISP-DATE2 PIC X(10). DTSBE325
|
||||
00169 DTSBE325
|
||||
00170 DTSBE325
|
||||
00171 01 L001-LINK-AREA. DTSBE325
|
||||
00172 ++INCLUDE DTSIL001 DTSBE325
|
||||
00173 EJECT DTSBE325
|
||||
00174 01 L005-LINK-AREA. DTSBE325
|
||||
00175 ++INCLUDE DTSIL005 DTSBE325
|
||||
00176 EJECT DTSBE325
|
||||
00177 01 L109-LINK-AREA. DTSBE325
|
||||
00178 ++INCLUDE DTSIL109 DTSBE325
|
||||
00179 EJECT DTSBE325
|
||||
00180 01 L111-LINK-AREA. DTSBE325
|
||||
00181 ++INCLUDE DTSIL111 DTSBE325
|
||||
00182 EJECT DTSBE325
|
||||
00183 01 L112-LINK-AREA. DTSBE325
|
||||
00184 ++INCLUDE DTSIL112 DTSBE325
|
||||
00185 EJECT DTSBE325
|
||||
00186 01 L910-LINK-AREA. DTSBE325
|
||||
00187 ++INCLUDE DTSIL910 DTSBE325
|
||||
00188 EJECT DTSBE325
|
||||
00189 01 L981-LINK-AREA. DTSBE325
|
||||
00190 ++INCLUDE DTSIL981 DTSBE325
|
||||
00191 EJECT DTSBE325
|
||||
00192 01 MSKL-REC. DTSBE325
|
||||
00193 ++INCLUDE DTSIMSKL DTSBE325
|
||||
00194 EJECT DTSBE325
|
||||
00195 01 MHDR-REC. DTSBE325
|
||||
00196 ++INCLUDE DTSIMHDR DTSBE325
|
||||
00197 EJECT DTSBE325
|
||||
00198 01 MQTR-REC. DTSBE325
|
||||
00199 ++INCLUDE DTSIMQTR DTSBE325
|
||||
00200 EJECT DTSBE325
|
||||
00201 01 MRPT-REC. DTSBE325
|
||||
00202 ++INCLUDE DTSIMRPT DTSBE325
|
||||
00203 EJECT DTSBE325
|
||||
00204 01 MEVL-REC. DTSBE325
|
||||
00205 ++INCLUDE DTSIMEVL DTSBE325
|
||||
00206 EJECT DTSBE325
|
||||
00207 01 L921-LINK-AREA. DTSBE325
|
||||
00208 ++INCLUDE DTSIL921 DTSBE325
|
||||
00209 EJECT DTSBE325
|
||||
00210 01 ISKL-REC. DTSBE325
|
||||
00211 ++INCLUDE DTSIISKL DTSBE325
|
||||
00212 EJECT DTSBE325
|
||||
00213 01 L931-LINK-AREA. DTSBE325
|
||||
00214 ++INCLUDE DTSIL931 DTSBE325
|
||||
00215 EJECT DTSBE325
|
||||
00216 01 FSKL-REC. DTSBE325
|
||||
00217 ++INCLUDE DTSIFSKL DTSBE325
|
||||
00218 EJECT DTSBE325
|
||||
00219 EJECT DTSBE325
|
||||
00220 01 FQTR-REC. DTSBE325
|
||||
00221 ++INCLUDE DTSIFQTR DTSBE325
|
||||
00222 EJECT DTSBE325
|
||||
00223 01 WWGH-REC. DTSBE325
|
||||
00224 ++INCLUDE DTSIWWGH DTSBE325
|
||||
00225 EJECT DTSBE325
|
||||
00226 01 R325-REC. DTSBE325
|
||||
00227 ++INCLUDE DTSIR325 DTSBE325
|
||||
00228 EJECT DTSBE325
|
||||
00229 01 T026-REC. DTSBE325
|
||||
00230 ++INCLUDE DTSIT026 DTSBE325
|
||||
00231 EJECT DTSBE325
|
||||
00232 DTSBE325
|
||||
00233 01 L004-COMM-AREA. DTSBE325
|
||||
00234 ++INCLUDE DTSIL004 DTSBE325
|
||||
00235 EJECT DTSBE325
|
||||
00236 01 L927-LINK-AREA. DTSBE325
|
||||
00237 ++INCLUDE DTSIL927 DTSBE325
|
||||
00238 EJECT DTSBE325
|
||||
00239 LINKAGE SECTION. DTSBE325
|
||||
00240 SKIP3 DTSBE325
|
||||
00241 01 LECM-LINK-AREA. DTSBE325
|
||||
00242 ++INCLUDE DTSILECM DTSBE325
|
||||
00243 DTSBE325
|
||||
00244 01 MPRF-LINK-REC. DTSBE325
|
||||
00245 ++INCLUDE DTSIMPRF DTSBE325
|
||||
00246 DTSBE325
|
||||
00247 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE325
|
||||
00248 MPRF-LINK-REC. DTSBE325
|
||||
00249 EVALUATE TRUE DTSBE325
|
||||
00250 WHEN LECM-INITIALIZE-88 DTSBE325
|
||||
00251 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBE325
|
||||
00252 DTSBE325
|
||||
00253 WHEN LECM-PROCESS-88 DTSBE325
|
||||
00254 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE325
|
||||
00255 DTSBE325
|
||||
00256 WHEN LECM-TERMINATE-88 DTSBE325
|
||||
00257 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE325
|
||||
00258 DTSBE325
|
||||
00259 WHEN OTHER DTSBE325
|
||||
00260 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE325
|
||||
00261 TO ABEND-MSG DTSBE325
|
||||
00262 PERFORM S999-ABEND THRU S999-EXIT DTSBE325
|
||||
00263 END-EVALUATE. DTSBE325
|
||||
00264 DTSBE325
|
||||
00265 GOBACK. DTSBE325
|
||||
00266 DTSBE325
|
||||
00267 I0000-INITIATE. DTSBE325
|
||||
00268 SET WRK-ERROR-NO-88 TO TRUE. DTSBE325
|
||||
00269 DTSBE325
|
||||
00270 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBE325
|
||||
00271 DTSBE325
|
||||
00272 PERFORM I3000-SUR-TAX-INFO THRU I3000-EXIT. DTSBE325
|
||||
00273 DTSBE325
|
||||
00274 PERFORM I4000-INIT-T026 THRU I4000-EXIT. DTSBE325
|
||||
00275 DTSBE325
|
||||
00276 PERFORM I5000-INIT-WORK THRU I5000-EXIT. DTSBE325
|
||||
00277 DTSBE325
|
||||
00278 I0000-EXIT. DTSBE325
|
||||
00279 EXIT. DTSBE325
|
||||
00280 DTSBE325
|
||||
00281 I2000-OPEN-FILES-1. DTSBE325
|
||||
00282 OPEN OUTPUT DOWNLOAD-FILE DTSBE325
|
||||
00283 IF NOT DWN-STATUS-OK-88 DTSBE325
|
||||
00284 DISPLAY 'CANNOT OPEN DOWNLOAD FILE' DWN-STATUS DTSBE325
|
||||
00285 SET WRK-ERROR-YES-88 TO TRUE DTSBE325
|
||||
00286 GO TO I2000-EXIT DTSBE325
|
||||
00287 END-IF. DTSBE325
|
||||
00288 DTSBE325
|
||||
00289 OPEN INPUT WESQ-FILE. DTSBE325
|
||||
00290 IF WESQ-FILE-OK-88 OR WESQ-FILE-VERIFY-88 DTSBE325
|
||||
00291 NEXT SENTENCE DTSBE325
|
||||
00292 ELSE DTSBE325
|
||||
00293 DISPLAY 'CANNOT OPEN WESQ-FILE ' WESQ-FILE-STATUS DTSBE325
|
||||
00294 SET WRK-ERROR-YES-88 TO TRUE DTSBE325
|
||||
00295 GO TO I2000-EXIT DTSBE325
|
||||
00296 END-IF. DTSBE325
|
||||
00297 DTSBE325
|
||||
00298 DTSBE325
|
||||
00299 MOVE LECM-TRACE-IND TO L910-TRACE-IND. DTSBE325
|
||||
00300 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBE325
|
||||
00301 DTSBE325
|
||||
00302 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE325
|
||||
00303 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE325
|
||||
00304 DTSBE325
|
||||
00305 I2000-EXIT. DTSBE325
|
||||
00306 EXIT. DTSBE325
|
||||
00307 DTSBE325
|
||||
00308 I3000-SUR-TAX-INFO. DTSBE325
|
||||
00309 PERFORM I3100-READ-MHDR THRU I3100-EXIT. DTSBE325
|
||||
00310 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBE325
|
||||
00311 DTSBE325
|
||||
00312 PERFORM S109-SUR-RATE-FIRST-QTR THRU S109-FIRST-EXIT. DTSBE325
|
||||
00313 MOVE L109-TAX-WAGE-BASE TO WRK-TAX-WAGE-BASE. DTSBE325
|
||||
00314 DTSBE325
|
||||
00315 MOVE MHDR-CURR-RUN-DATE TO L004-DATE. DTSBE325
|
||||
00316 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE325
|
||||
00317 IF MHDR-CURR-RUN-DATE < L004-QTR-END-DATE DTSBE325
|
||||
00318 SUBTRACT +1 FROM L004-ABS-QTR DTSBE325
|
||||
00319 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE325
|
||||
00320 END-IF. DTSBE325
|
||||
00321 MOVE L004-QTR-5-9 TO WRK-END-YRQ. DTSBE325
|
||||
00322 DTSBE325
|
||||
00323 * MOVE L004-DATE TO L001-FED-8-DATE-9. DTSBE325
|
||||
00324 * SUBTRACT 1 FROM L001-FED-8-YR. DTSBE325
|
||||
00325 * MOVE L001-FED-8-DATE-9 TO L004-DATE. DTSBE325
|
||||
00326 * PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE325
|
||||
00327 DTSBE325
|
||||
00328 SUBTRACT +8 FROM L004-ABS-QTR. DTSBE325
|
||||
00329 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE325
|
||||
00330 IF L004-QTR-5-9 < L109-YRQ DTSBE325
|
||||
00331 MOVE L109-YRQ TO WRK-START-YRQ DTSBE325
|
||||
00332 ELSE DTSBE325
|
||||
00333 MOVE L004-QTR-5-9 TO WRK-START-YRQ DTSBE325
|
||||
00334 END-IF. DTSBE325
|
||||
00335 DTSBE325
|
||||
00336 MOVE WRK-START-YRQ TO L004-QTR-5-9. DTSBE325
|
||||
00337 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE325
|
||||
00338 DISPLAY 'DTSBE325 START QUARTER ' L004-SLASH-5-QTR. DTSBE325
|
||||
00339 DTSBE325
|
||||
00340 MOVE WRK-END-YRQ TO L004-QTR-5-9. DTSBE325
|
||||
00341 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE325
|
||||
00342 DISPLAY 'DTSBE325 END QUARTER ' L004-SLASH-5-QTR. DTSBE325
|
||||
00343 DTSBE325
|
||||
00344 MOVE MHDR-CURR-RUN-DATE TO L001-FED-8-DATE-9. DTSBE325
|
||||
00345 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE325
|
||||
00346 DISPLAY 'DTSBE325 CURR RUN DATE ' L001-SLASH-8-DATE. DTSBE325
|
||||
00347 DTSBE325
|
||||
00348 PERFORM I3200-TAX-RATES THRU I3200-EXIT. DTSBE325
|
||||
00349 DTSBE325
|
||||
00350 I3000-EXIT. DTSBE325
|
||||
00351 EXIT. DTSBE325
|
||||
00352 DTSBE325
|
||||
00353 I3100-READ-MHDR. DTSBE325
|
||||
00354 MOVE LOW-VALUES TO MSKL-REC. DTSBE325
|
||||
00355 MOVE +0 TO MSKL-EMP-NO. DTSBE325
|
||||
00356 SET MSKL-HDR-88 TO TRUE. DTSBE325
|
||||
00357 DTSBE325
|
||||
00358 PERFORM S910-READ THRU S910-EXIT. DTSBE325
|
||||
00359 IF L910-NO-REC-88 DTSBE325
|
||||
00360 DISPLAY 'DTSBE325: MHDR RECORD IS MISSING' DTSBE325
|
||||
00361 SET WRK-ERROR-YES-88 TO TRUE DTSBE325
|
||||
00362 GO TO I3100-EXIT DTSBE325
|
||||
00363 ELSE DTSBE325
|
||||
00364 MOVE MSKL-REC TO MHDR-REC DTSBE325
|
||||
00365 END-IF. DTSBE325
|
||||
00366 DTSBE325
|
||||
00367 DTSBE325
|
||||
00368 I3100-EXIT. DTSBE325
|
||||
00369 EXIT. DTSBE325
|
||||
00370 DTSBE325
|
||||
00371 I3200-TAX-RATES. DTSBE325
|
||||
00372 MOVE WRK-START-YRQ TO L004-QTR-5-9. DTSBE325
|
||||
00373 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE325
|
||||
00374 DISPLAY SPACE. DTSBE325
|
||||
00375 DISPLAY 'ASSESSMENT RATES: '. DTSBE325
|
||||
00376 DISPLAY SPACE. DTSBE325
|
||||
00377 DTSBE325
|
||||
00378 PERFORM DTSBE325
|
||||
00379 VARYING SUB FROM +1 BY +1 DTSBE325
|
||||
00380 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE325
|
||||
00381 MOVE L004-QTR-5-9 TO L109-YRQ DTSBE325
|
||||
00382 WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00383 PERFORM S109-SUR-BY-QTR THRU S109-QTR-EXIT DTSBE325
|
||||
00384 MOVE L109-SUR-RATE TO WRK-QTR-RATE (SUB) DTSBE325
|
||||
00385 DISP-RATE DTSBE325
|
||||
00386 DISPLAY ' ' L004-SLASH-5-QTR ' : ' DISP-RATE DTSBE325
|
||||
00387 ' ' L109-SUR-RATE DTSBE325
|
||||
00388 ADD +1 TO L004-ABS-QTR DTSBE325
|
||||
00389 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE325
|
||||
00390 END-PERFORM. DTSBE325
|
||||
00391 DTSBE325
|
||||
00392 I3200-EXIT. DTSBE325
|
||||
00393 EXIT. DTSBE325
|
||||
00394 DTSBE325
|
||||
00395 I4000-INIT-T026. DTSBE325
|
||||
00396 MOVE LENGTH OF T026-REC TO T026-LENGTH. DTSBE325
|
||||
00397 MOVE '026' TO T026-REC-TYPE. DTSBE325
|
||||
00398 MOVE 'DTSBE325' TO T026-ORIGIN. DTSBE325
|
||||
00399 MOVE L005-DATE TO T026-SYS-DATE. DTSBE325
|
||||
00400 MOVE L005-TIME TO T026-SYS-TIME. DTSBE325
|
||||
00401 MOVE LOW-VALUES TO T026-DATA-AREA. DTSBE325
|
||||
00402 DTSBE325
|
||||
00403 I4000-EXIT. DTSBE325
|
||||
00404 EXIT. DTSBE325
|
||||
00405 DTSBE325
|
||||
00406 I5000-INIT-WORK. DTSBE325
|
||||
00407 PERFORM DTSBE325
|
||||
00408 VARYING SUB FROM +1 BY +1 DTSBE325
|
||||
00409 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE325
|
||||
00410 MOVE ZERO TO WRK-QTR-OLD-TOT-WAGE (SUB) DTSBE325
|
||||
00411 WRK-QTR-OLD-ASSESSMT (SUB) DTSBE325
|
||||
00412 WRK-QTR-EMP-CNT (SUB) DTSBE325
|
||||
00413 WRK-QTR-NEW-TOT-WAGE (SUB) DTSBE325
|
||||
00414 WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE325
|
||||
00415 WRK-QTR-NEW-ASSESSMT (SUB) DTSBE325
|
||||
00416 END-PERFORM. DTSBE325
|
||||
00417 DTSBE325
|
||||
00418 I5000-EXIT. DTSBE325
|
||||
00419 EXIT. DTSBE325
|
||||
00420 DTSBE325
|
||||
00421 P0000-PROCESS. DTSBE325
|
||||
00422 IF WRK-ERROR-YES-88 DTSBE325
|
||||
00423 GO TO P0000-EXIT DTSBE325
|
||||
00424 END-IF. DTSBE325
|
||||
00425 DTSBE325
|
||||
00426 PERFORM I5000-INIT-WORK THRU I5000-EXIT. DTSBE325
|
||||
00427 DTSBE325
|
||||
00428 IF MPRF-CLASS-SELF-INS-88 DTSBE325
|
||||
00429 ADD +1 TO WRK-MPRF-CNT DTSBE325
|
||||
00430 PERFORM P1200-CURR-ASSESSMENT THRU P1200-EXIT DTSBE325
|
||||
00431 PERFORM P1300-NEW-ASSESSMENT THRU P1300-EXIT DTSBE325
|
||||
00432 PERFORM P2000-CHECK-FOR-UPDATE THRU P2000-EXIT DTSBE325
|
||||
00433 END-IF. DTSBE325
|
||||
00434 DTSBE325
|
||||
00435 P0000-EXIT. DTSBE325
|
||||
00436 EXIT. DTSBE325
|
||||
00437 DTSBE325
|
||||
00438 P1200-CURR-ASSESSMENT. DTSBE325
|
||||
00439 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE325
|
||||
00440 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE325
|
||||
00441 MOVE WRK-START-YRQ TO MQTR-YRQ. DTSBE325
|
||||
00442 SET MQTR-QTR-88 TO TRUE DTSBE325
|
||||
00443 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE325
|
||||
00444 DTSBE325
|
||||
00445 DISPLAY ' *****EMP NO ' MPRF-EMP-NO. DTSBE325
|
||||
00446 DISPLAY ' WRK START YRQ ' WRK-START-YRQ. DTSBE325
|
||||
00447 DISPLAY ' WRK QTR YRQ ' WRK-QTR-YRQ (SUB). DTSBE325
|
||||
00448 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE325
|
||||
00449 PERFORM UNTIL L910-NO-REC-88 DTSBE325
|
||||
00450 MOVE MSKL-REC TO MQTR-REC DTSBE325
|
||||
00451 DISPLAY 'MQTR-YRQ ' MQTR-YRQ ' END-YRQ ' WRK-END-YRQ DTSBE325
|
||||
00452 IF MQTR-YRQ > WRK-END-YRQ DTSBE325
|
||||
00453 SET L910-NO-REC-88 TO TRUE DTSBE325
|
||||
00454 ELSE DTSBE325
|
||||
00455 MOVE ZERO TO WRK-CURR-ASSESS DTSBE325
|
||||
00456 PERFORM DTSBE325
|
||||
00457 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBE325
|
||||
00458 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBE325
|
||||
00459 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBE325
|
||||
00460 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBE325
|
||||
00461 TO WRK-CURR-ASSESS DTSBE325
|
||||
00462 END-IF DTSBE325
|
||||
00463 END-PERFORM DTSBE325
|
||||
00464 PERFORM P1210-QTR-SUM THRU P1210-EXIT DTSBE325
|
||||
00465 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE325
|
||||
00466 END-IF DTSBE325
|
||||
00467 END-PERFORM. DTSBE325
|
||||
00468 DTSBE325
|
||||
00469 P1200-EXIT. DTSBE325
|
||||
00470 EXIT. DTSBE325
|
||||
00471 DTSBE325
|
||||
00472 P1210-QTR-SUM. DTSBE325
|
||||
00473 SET WRK-QTR-FOUND-NO-88 TO TRUE. DTSBE325
|
||||
00474 PERFORM DTSBE325
|
||||
00475 VARYING SUB FROM +1 BY +1 DTSBE325
|
||||
00476 UNTIL WRK-QTR-FOUND-YES-88 DTSBE325
|
||||
00477 DISPLAY ' SUB ' SUB DTSBE325
|
||||
00478 DISPLAY 'MQTR YRQ ' MQTR-YRQ DTSBE325
|
||||
00479 DISPLAY 'WRK QTR YRQ ' WRK-QTR-YRQ(SUB) DTSBE325
|
||||
00480 DISPLAY ' ' DTSBE325
|
||||
00481 IF MQTR-YRQ = WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00482 MOVE MQTR-TOT-WAGE TO WRK-QTR-OLD-TOT-WAGE (SUB) DTSBE325
|
||||
00483 MOVE WRK-CURR-ASSESS TO WRK-QTR-OLD-ASSESSMT (SUB) DTSBE325
|
||||
00484 SET WRK-QTR-FOUND-YES-88 TO TRUE DTSBE325
|
||||
00485 END-IF DTSBE325
|
||||
00486 END-PERFORM. DTSBE325
|
||||
00487 DTSBE325
|
||||
00488 P1210-EXIT. DTSBE325
|
||||
00489 EXIT. DTSBE325
|
||||
00490 DTSBE325
|
||||
00491 P1300-NEW-ASSESSMENT. DTSBE325
|
||||
00492 *** DISPLAY 'P1300 ' MPRF-EMP-NO. DTSBE325
|
||||
00493 DTSBE325
|
||||
00494 MOVE LOW-VALUES TO WESQ-REC. DTSBE325
|
||||
00495 MOVE MPRF-EMP-NO TO WESQ-EMP-NO. DTSBE325
|
||||
00496 MOVE WRK-START-YRQ TO WESQ-YRQ. DTSBE325
|
||||
00497 START WESQ-FILE KEY IS >= WESQ-KEY-AREA. DTSBE325
|
||||
00498 READ WESQ-FILE NEXT. DTSBE325
|
||||
00499 PERFORM UNTIL NOT WESQ-FILE-OK-88 DTSBE325
|
||||
00500 MOVE ZERO TO WRK-TAX-WAGE DTSBE325
|
||||
00501 IF WESQ-EMP-NO = MPRF-EMP-NO DTSBE325
|
||||
00502 AND WESQ-YRQ <= WRK-END-YRQ DTSBE325
|
||||
00503 PERFORM P1310-TAX-WAGE THRU P1310-EXIT DTSBE325
|
||||
00504 PERFORM P1320-QTR-SUM THRU P1320-EXIT DTSBE325
|
||||
00505 READ WESQ-FILE NEXT DTSBE325
|
||||
00506 ELSE DTSBE325
|
||||
00507 SET WESQ-FILE-NO-REC-88 TO TRUE DTSBE325
|
||||
00508 END-IF DTSBE325
|
||||
00509 END-PERFORM. DTSBE325
|
||||
00510 DTSBE325
|
||||
00511 PERFORM P1330-COMPUTE-ASSESS THRU P1330-EXIT. DTSBE325
|
||||
00512 DTSBE325
|
||||
00513 P1300-EXIT. DTSBE325
|
||||
00514 EXIT. DTSBE325
|
||||
00515 DTSBE325
|
||||
00516 P1310-TAX-WAGE. DTSBE325
|
||||
00517 * IF WESQ-EMP-NO = 813380 DTSBE325
|
||||
00518 * MOVE WESQ-EARNINGS TO AMT-DISP1 DTSBE325
|
||||
00519 * MOVE WESQ-YTD-EARNINGS TO AMT-DISP2 DTSBE325
|
||||
00520 * DISPLAY 'P1300 ' WESQ-SSN ' ' AMT-DISP1 DTSBE325
|
||||
00521 * ' ' WESQ-YRQ ' YTD ' AMT-DISP2 DTSBE325
|
||||
00522 * END-IF. DTSBE325
|
||||
00523 DTSBE325
|
||||
00524 IF WESQ-YTD-EARNINGS >= 9000 DTSBE325
|
||||
00525 MOVE ZERO TO WRK-TAX-WAGE DTSBE325
|
||||
00526 ELSE DTSBE325
|
||||
00527 COMPUTE WRK-TAX-REMAIN = (9000 - WESQ-YTD-EARNINGS) DTSBE325
|
||||
00528 IF WRK-TAX-REMAIN > WESQ-EARNINGS DTSBE325
|
||||
00529 MOVE WESQ-EARNINGS TO WRK-TAX-WAGE DTSBE325
|
||||
00530 ELSE DTSBE325
|
||||
00531 MOVE WRK-TAX-REMAIN TO WRK-TAX-WAGE DTSBE325
|
||||
00532 END-IF DTSBE325
|
||||
00533 END-IF. DTSBE325
|
||||
00534 DTSBE325
|
||||
00535 P1310-EXIT. DTSBE325
|
||||
00536 EXIT. DTSBE325
|
||||
00537 DTSBE325
|
||||
00538 P1320-QTR-SUM. DTSBE325
|
||||
00539 * IF MPRF-EMP-NO = 813380 DTSBE325
|
||||
00540 * MOVE WESQ-EARNINGS TO AMT-DISP1 DTSBE325
|
||||
00541 * MOVE WRK-TAX-WAGE TO AMT-DISP2 DTSBE325
|
||||
00542 * DISPLAY 'P1320 WESQ ' WESQ-SSN ' ' AMT-DISP1 DTSBE325
|
||||
00543 * ' TAX ' AMT-DISP2 DTSBE325
|
||||
00544 * ' ' WESQ-YRQ DTSBE325
|
||||
00545 * END-IF. DTSBE325
|
||||
00546 SET WRK-QTR-FOUND-NO-88 TO TRUE. DTSBE325
|
||||
00547 PERFORM DTSBE325
|
||||
00548 VARYING SUB FROM +1 BY +1 DTSBE325
|
||||
00549 UNTIL WRK-QTR-FOUND-YES-88 DTSBE325
|
||||
00550 IF WESQ-YRQ = WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00551 ADD WESQ-EARNINGS TO WRK-QTR-NEW-TOT-WAGE (SUB) DTSBE325
|
||||
00552 ADD WRK-TAX-WAGE TO WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE325
|
||||
00553 ADD +1 TO WRK-QTR-EMP-CNT (SUB) DTSBE325
|
||||
00554 SET WRK-QTR-FOUND-YES-88 TO TRUE DTSBE325
|
||||
00555 END-IF DTSBE325
|
||||
00556 END-PERFORM. DTSBE325
|
||||
00557 DTSBE325
|
||||
00558 P1320-EXIT. DTSBE325
|
||||
00559 EXIT. DTSBE325
|
||||
00560 DTSBE325
|
||||
00561 P1330-COMPUTE-ASSESS. DTSBE325
|
||||
00562 PERFORM DTSBE325
|
||||
00563 VARYING SUB FROM +1 BY +1 DTSBE325
|
||||
00564 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE325
|
||||
00565 COMPUTE WRK-QTR-NEW-ASSESSMT (SUB) ROUNDED = DTSBE325
|
||||
00566 (WRK-QTR-NEW-TAX-WAGE (SUB) * DTSBE325
|
||||
00567 WRK-QTR-RATE (SUB)) DTSBE325
|
||||
00568 END-PERFORM. DTSBE325
|
||||
00569 DTSBE325
|
||||
00570 P1330-EXIT. DTSBE325
|
||||
00571 EXIT. DTSBE325
|
||||
00572 DTSBE325
|
||||
00573 P2000-CHECK-FOR-UPDATE. DTSBE325
|
||||
00574 PERFORM DTSBE325
|
||||
00575 VARYING SUB FROM +1 BY +1 DTSBE325
|
||||
00576 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE325
|
||||
00577 *& DTSBE325
|
||||
00578 IF MPRF-EMP-NO = 150337 DTSBE325
|
||||
00579 MOVE WRK-QTR-NEW-ASSESSMT (SUB) TO AMT-DISP1 DTSBE325
|
||||
00580 MOVE WRK-QTR-OLD-ASSESSMT (SUB) TO AMT-DISP2 DTSBE325
|
||||
00581 DISPLAY 'P2000 OLD ' AMT-DISP2 ' NEW ' AMT-DISP1 DTSBE325
|
||||
00582 ' ' WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00583 END-IF DTSBE325
|
||||
00584 *& DTSBE325
|
||||
00585 IF WRK-QTR-OLD-ASSESSMT (SUB) NOT = DTSBE325
|
||||
00586 WRK-QTR-NEW-ASSESSMT (SUB) DTSBE325
|
||||
00587 PERFORM P2100-REPORT THRU P2100-EXIT DTSBE325
|
||||
00588 END-IF DTSBE325
|
||||
00589 END-PERFORM. DTSBE325
|
||||
00590 DTSBE325
|
||||
00591 DTSBE325
|
||||
00592 P2000-EXIT. DTSBE325
|
||||
00593 EXIT. DTSBE325
|
||||
00594 DTSBE325
|
||||
00595 P2100-REPORT. DTSBE325
|
||||
00596 COMPUTE WRK-WAGE-TOLERANCE = DTSBE325
|
||||
00597 (WRK-QTR-EMP-CNT (SUB) * .99) DTSBE325
|
||||
00598 DTSBE325
|
||||
00599 COMPUTE WRK-WAGE-DIFF = DTSBE325
|
||||
00600 (WRK-QTR-OLD-TOT-WAGE (SUB) - DTSBE325
|
||||
00601 WRK-QTR-NEW-TOT-WAGE (SUB)). DTSBE325
|
||||
00602 DTSBE325
|
||||
00603 ********************************************************** DTSBE325
|
||||
00604 * ALLOW THE SYSTEM TO CHARGE THE ASSESSMENT IF THE WAGES DTSBE325
|
||||
00605 * ON THE WAGE FILE ARE GREATER THAN THOSE REPORTED ON DTSBE325
|
||||
00606 * THE UC-30. (WRK-WAGE-DIFF WILL BE < 0 IN THIS CASE.) DTSBE325
|
||||
00607 ********************************************************** DTSBE325
|
||||
00608 MOVE 0 TO WRK-PCT. DTSBE325
|
||||
00609 IF WRK-WAGE-DIFF > ZERO DTSBE325
|
||||
00610 IF WRK-QTR-OLD-TOT-WAGE (SUB) > 0 DTSBE325
|
||||
00611 COMPUTE WRK-PCT = DTSBE325
|
||||
00612 (WRK-WAGE-DIFF / WRK-QTR-OLD-TOT-WAGE (SUB)) DTSBE325
|
||||
00613 END-IF DTSBE325
|
||||
00614 END-IF. DTSBE325
|
||||
00615 DTSBE325
|
||||
00616 COMPUTE WRK-ASSESS-CHNG = DTSBE325
|
||||
00617 (WRK-QTR-NEW-ASSESSMT (SUB) - DTSBE325
|
||||
00618 WRK-QTR-OLD-ASSESSMT (SUB)). DTSBE325
|
||||
00619 DTSBE325
|
||||
00620 EVALUATE TRUE DTSBE325
|
||||
00621 WHEN WRK-QTR-NEW-TOT-WAGE (SUB) = ZERO DTSBE325
|
||||
00622 SET WRK-NO-WAGES-88 TO TRUE DTSBE325
|
||||
00623 ADD +1 TO WRK-NO-WAGES-CNT DTSBE325
|
||||
00624 DTSBE325
|
||||
00625 WHEN (WRK-PCT > WRK-MAX-PCT DTSBE325
|
||||
00626 OR WRK-WAGE-DIFF > WRK-MAX-WAGE-DIFF) DTSBE325
|
||||
00627 SET WRK-ASSESS-OVER-MAX-88 TO TRUE DTSBE325
|
||||
00628 ADD +1 TO WRK-OVER-MAX-CNT DTSBE325
|
||||
00629 DTSBE325
|
||||
00630 WHEN WRK-WAGE-DIFF > WRK-WAGE-TOLERANCE DTSBE325
|
||||
00631 SET WRK-ASSESS-UNDER-MAX-88 TO TRUE DTSBE325
|
||||
00632 ADD +1 TO WRK-UNDER-MAX-CNT DTSBE325
|
||||
00633 DTSBE325
|
||||
00634 WHEN WRK-WAGE-DIFF = 0 DTSBE325
|
||||
00635 SET WRK-ASSESS-EXACT-88 TO TRUE DTSBE325
|
||||
00636 ADD +1 TO WRK-EXACT-CNT DTSBE325
|
||||
00637 DTSBE325
|
||||
00638 WHEN OTHER DTSBE325
|
||||
00639 SET WRK-ASSESS-TOL-88 TO TRUE DTSBE325
|
||||
00640 ADD +1 TO WRK-TOL-CNT DTSBE325
|
||||
00641 END-EVALUATE. DTSBE325
|
||||
00642 DTSBE325
|
||||
00643 IF WRK-CHARGE-ASSESS-88 DTSBE325
|
||||
00644 IF WRK-ASSESS-CHNG NOT = 0 DTSBE325
|
||||
00645 PERFORM P2110-WRITE-T026 THRU P2110-EXIT DTSBE325
|
||||
00646 PERFORM P2130-WRITE-DOWNLOAD THRU P2130-EXIT DTSBE325
|
||||
00647 END-IF DTSBE325
|
||||
00648 END-IF. DTSBE325
|
||||
00649 DTSBE325
|
||||
00650 PERFORM P2120-WRITE-R325 THRU P2120-EXIT. DTSBE325
|
||||
00651 DTSBE325
|
||||
00652 P2100-EXIT. DTSBE325
|
||||
00653 EXIT. DTSBE325
|
||||
00654 DTSBE325
|
||||
00655 P2110-WRITE-T026. DTSBE325
|
||||
00656 ADD 1 TO WRK-T026-CNT. DTSBE325
|
||||
00657 MOVE MPRF-EMP-NO TO T026-EMP-NO. DTSBE325
|
||||
00658 MOVE WRK-ASSESS-CHNG TO T026-AMT. DTSBE325
|
||||
00659 MOVE WRK-QTR-YRQ (SUB) TO T026-APPLIC-YRQ. DTSBE325
|
||||
00660 MOVE +0 TO T026-RECEIVED-DATE. DTSBE325
|
||||
00661 MOVE SPACES TO T026-NAME-CHECK DTSBE325
|
||||
00662 T026-INT-SPAN-IND. DTSBE325
|
||||
00663 MOVE 'SU' TO T026-APPLIC-IND. DTSBE325
|
||||
00664 SET T026-ADM-ASSESSMNT TO TRUE. DTSBE325
|
||||
00665 MOVE +0 TO T026-APPLIC-BATCH-NO DTSBE325
|
||||
00666 T026-APPLIC-ITEM-NO DTSBE325
|
||||
00667 T026-DATE-1 DTSBE325
|
||||
00668 T026-DATE-2. DTSBE325
|
||||
00669 DTSBE325
|
||||
00670 MOVE SPACES TO T026-RESPONSIBLE-ACTIVITY. DTSBE325
|
||||
00671 MOVE 'DTSBE325' TO T026-RESPONSIBLE-OP-ID. DTSBE325
|
||||
00672 DTSBE325
|
||||
00673 PERFORM S927-WRITE THRU S927-EXIT. DTSBE325
|
||||
00674 DTSBE325
|
||||
00675 P2110-EXIT. DTSBE325
|
||||
00676 EXIT. DTSBE325
|
||||
00677 DTSBE325
|
||||
00678 P2120-WRITE-R325. DTSBE325
|
||||
00679 MOVE LOW-VALUES TO R325-SORT-AREA. DTSBE325
|
||||
00680 MOVE LENGTH OF R325-REC TO R325-LENGTH. DTSBE325
|
||||
00681 MOVE '325' TO R325-REC-TYPE. DTSBE325
|
||||
00682 MOVE WRK-ASSESS-STATUS TO R325-RPT-TYPE. DTSBE325
|
||||
00683 MOVE MPRF-EMP-NO TO R325-EMP-NO. DTSBE325
|
||||
00684 MOVE MPRF-FEIN TO R325-EMP-FEIN. DTSBE325
|
||||
00685 MOVE MHDR-CURR-RUN-DATE TO R325-STMT-DATE. DTSBE325
|
||||
00686 MOVE SPACES TO R325-OP-ID DTSBE325
|
||||
00687 MOVE WRK-QTR-RATE (SUB) TO R325-ASSESSMENT-RATE. DTSBE325
|
||||
00688 MOVE WRK-QTR-YRQ (SUB) TO R325-QTR. DTSBE325
|
||||
00689 MOVE WRK-QTR-OLD-TOT-WAGE (SUB) DTSBE325
|
||||
00690 TO R325-UC30-WAGES. DTSBE325
|
||||
00691 MOVE WRK-QTR-NEW-TOT-WAGE (SUB) DTSBE325
|
||||
00692 TO R325-WAGE-FILE-WAGES. DTSBE325
|
||||
00693 MOVE WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE325
|
||||
00694 TO R325-ASSESSMENT-WAGES. DTSBE325
|
||||
00695 MOVE WRK-ASSESS-CHNG TO R325-CALC-ASSESS-DUE DTSBE325
|
||||
00696 R325-FINAL-ASSESS-DUE. DTSBE325
|
||||
00697 PERFORM P2121-GET-ADDR THRU P2121-EXIT. DTSBE325
|
||||
00698 PERFORM S946-WRITE-R325 THRU S946-EXIT. DTSBE325
|
||||
00699 DTSBE325
|
||||
00700 MOVE WRK-QTR-NEW-TOT-WAGE (SUB) TO AMT-DISP1. DTSBE325
|
||||
00701 MOVE WRK-QTR-OLD-TOT-WAGE (SUB) TO AMT-DISP2. DTSBE325
|
||||
00702 *** MOVE WRK-QTR-NEW-TAX-WAGE (SUB) TO AMT-DISP2. DTSBE325
|
||||
00703 MOVE WRK-QTR-OLD-ASSESSMT (SUB) TO AMT-DISP3. DTSBE325
|
||||
00704 MOVE WRK-QTR-NEW-ASSESSMT (SUB) TO AMT-DISP4. DTSBE325
|
||||
00705 DTSBE325
|
||||
00706 DISPLAY SPACE. DTSBE325
|
||||
00707 IF WRK-ASSESS-EXACT-88 DTSBE325
|
||||
00708 DISPLAY 'EX ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00709 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE325
|
||||
00710 ELSE DTSBE325
|
||||
00711 IF WRK-ASSESS-TOL-88 DTSBE325
|
||||
00712 DISPLAY 'TL ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00713 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE325
|
||||
00714 ELSE DTSBE325
|
||||
00715 IF WRK-ASSESS-UNDER-MAX-88 DTSBE325
|
||||
00716 DISPLAY 'MX ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00717 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE325
|
||||
00718 ELSE DTSBE325
|
||||
00719 DISPLAY 'ERR ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE325
|
||||
00720 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE325
|
||||
00721 END-IF DTSBE325
|
||||
00722 END-IF DTSBE325
|
||||
00723 END-IF. DTSBE325
|
||||
00724 DISPLAY ' OLD ' AMT-DISP2 ' NEW ' AMT-DISP1. DTSBE325
|
||||
00725 DISPLAY ' OLD ' AMT-DISP3 ' NEW ' AMT-DISP4. DTSBE325
|
||||
00726 MOVE WRK-QTR-OLD-TOT-WAGE (SUB) TO AMT-DISP1. DTSBE325
|
||||
00727 ** DISPLAY ' TAX ' AMT-DISP2 DTSBE325
|
||||
00728 ** DISPLAY ' OLD ' AMT-DISP3 ' NEW ' AMT-DISP4. DTSBE325
|
||||
00729 DTSBE325
|
||||
00730 P2120-EXIT. DTSBE325
|
||||
00731 EXIT. DTSBE325
|
||||
00732 DTSBE325
|
||||
00733 P2121-GET-ADDR. DTSBE325
|
||||
00734 MOVE LOW-VALUES TO L111-RETURN-AREA. DTSBE325
|
||||
00735 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBE325
|
||||
00736 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBE325
|
||||
00737 MOVE +001 TO L111-ID-NO. DTSBE325
|
||||
00738 DTSBE325
|
||||
00739 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBE325
|
||||
00740 DTSBE325
|
||||
00741 IF L111-ADDR-FOUND-88 DTSBE325
|
||||
00742 SET L112-TAD-ADDR-88 TO TRUE DTSBE325
|
||||
00743 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBE325
|
||||
00744 PERFORM P2122-FORMAT-ADDR THRU P2122-EXIT DTSBE325
|
||||
00745 ELSE DTSBE325
|
||||
00746 MOVE ALL '?' TO R325-FMT-ADDR DTSBE325
|
||||
00747 R325-ZIP DTSBE325
|
||||
00748 R325-ADVANCED-BARCODE. DTSBE325
|
||||
00749 P2121-EXIT. DTSBE325
|
||||
00750 EXIT. DTSBE325
|
||||
00751 P2122-FORMAT-ADDR. DTSBE325
|
||||
00752 SET L112-ANCHOR-FIRST-88 TO TRUE. DTSBE325
|
||||
00753 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBE325
|
||||
00754 DTSBE325
|
||||
00755 PERFORM S112-FORMAT-ADDR THRU S112-EXIT. DTSBE325
|
||||
00756 DTSBE325
|
||||
00757 MOVE L112-MAILING-ADDRESS TO R325-FMT-ADDR. DTSBE325
|
||||
00758 MOVE L112-ZIP TO R325-ZIP. DTSBE325
|
||||
00759 MOVE R325-ZIP TO R325-SORT-ZIP. DTSBE325
|
||||
00760 MOVE L112-ADVANCED-BARCODE TO R325-ADVANCED-BARCODE. DTSBE325
|
||||
00761 DTSBE325
|
||||
00762 P2122-EXIT. DTSBE325
|
||||
00763 EXIT. DTSBE325
|
||||
00764 DTSBE325
|
||||
00765 P2130-WRITE-DOWNLOAD. DTSBE325
|
||||
00766 MOVE MPRF-EMP-NO TO WRK-DWN-EMP. DTSBE325
|
||||
00767 MOVE MPRF-PRIMARY-NAME TO WRK-DWN-NAME. DTSBE325
|
||||
00768 MOVE WRK-QTR-YRQ (SUB) TO L004-QTR-5-9. DTSBE325
|
||||
00769 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE325
|
||||
00770 MOVE L004-SLASH-5-QTR TO WRK-DWN-YRQ. DTSBE325
|
||||
00771 MOVE WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE325
|
||||
00772 TO WRK-DWN-TAX-WAGE. DTSBE325
|
||||
00773 MOVE WRK-QTR-OLD-ASSESSMT (SUB) DTSBE325
|
||||
00774 TO WRK-DWN-OLD-ASSESS. DTSBE325
|
||||
00775 MOVE WRK-QTR-NEW-ASSESSMT (SUB) DTSBE325
|
||||
00776 TO WRK-DWN-NEW-ASSESS. DTSBE325
|
||||
00777 MOVE WRK-ASSESS-CHNG TO WRK-DWN-ASSESS-CHNG. DTSBE325
|
||||
00778 DTSBE325
|
||||
00779 WRITE DOWNLOAD-REC FROM WRK-DOWNLOAD-REC. DTSBE325
|
||||
00780 DTSBE325
|
||||
00781 P2130-EXIT. DTSBE325
|
||||
00782 EXIT. DTSBE325
|
||||
00783 DTSBE325
|
||||
00784 P2300-WRITE-MEVL. DTSBE325
|
||||
00785 MOVE LOW-VALUES TO MEVL-REC. DTSBE325
|
||||
00786 MOVE L005-DATE TO MEVL-ESTB-DATE DTSBE325
|
||||
00787 MEVL-CHNG-DATE DTSBE325
|
||||
00788 MEVL-DATE. DTSBE325
|
||||
00789 DTSBE325
|
||||
00790 ADD +1000 TO L005-ABSTIME. DTSBE325
|
||||
00791 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBE325
|
||||
00792 DTSBE325
|
||||
00793 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBE325
|
||||
00794 SET MEVL-EVL-88 TO TRUE. DTSBE325
|
||||
00795 MOVE +0 TO MEVL-PURGE-DATE. DTSBE325
|
||||
00796 MOVE 'SI ADMIN ASSESS BILL SENT' TO MEVL-TEXT. DTSBE325
|
||||
00797 MOVE 'SISUBILL' TO MEVL-SOURCE. DTSBE325
|
||||
00798 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBE325
|
||||
00799 MOVE L005-TIME TO MEVL-TIME. DTSBE325
|
||||
00800 MOVE MEVL-REC TO MSKL-REC. DTSBE325
|
||||
00801 PERFORM S910-WRITE THRU S910-EXIT. DTSBE325
|
||||
00802 DTSBE325
|
||||
00803 P2300-EXIT. DTSBE325
|
||||
00804 EXIT. DTSBE325
|
||||
00805 DTSBE325
|
||||
00806 DTSBE325
|
||||
00807 T0000-TERMINATE. DTSBE325
|
||||
00808 IF WRK-ERROR-YES-88 DTSBE325
|
||||
00809 GO TO T0000-EXIT DTSBE325
|
||||
00810 END-IF. DTSBE325
|
||||
00811 DTSBE325
|
||||
00812 DISPLAY ' '. DTSBE325
|
||||
00813 DTSBE325
|
||||
00814 DISPLAY '*** DTSBE325 TERMINATION STATISTICS ***'. DTSBE325
|
||||
00815 DTSBE325
|
||||
00816 DISPLAY ' '. DTSBE325
|
||||
00817 DTSBE325
|
||||
00818 DISPLAY 'TOTAL SELF INS READ : ' WRK-MPRF-CNT. DTSBE325
|
||||
00819 DISPLAY SPACE. DTSBE325
|
||||
00820 DISPLAY 'ASSESSED COUNTS : ' DTSBE325
|
||||
00821 DISPLAY ' WAGES EXACT : ' WRK-EXACT-CNT. DTSBE325
|
||||
00822 DISPLAY ' TOLERATED : ' WRK-TOL-CNT. DTSBE325
|
||||
00823 DISPLAY ' UNDER MAX : ' WRK-UNDER-MAX-CNT. DTSBE325
|
||||
00824 DISPLAY 'T026 TRANSACTIONS CREATED : ' WRK-T026-CNT. DTSBE325
|
||||
00825 DISPLAY SPACE. DTSBE325
|
||||
00826 DISPLAY 'NO ASSESSMENT COUNTS : ' DTSBE325
|
||||
00827 DISPLAY ' OVER MAX : ' WRK-OVER-MAX-CNT. DTSBE325
|
||||
00828 DISPLAY ' NO WAGES : ' WRK-OVER-MAX-CNT. DTSBE325
|
||||
00829 DTSBE325
|
||||
00830 CLOSE DOWNLOAD-FILE DTSBE325
|
||||
00831 WESQ-FILE. DTSBE325
|
||||
00832 DTSBE325
|
||||
00833 DTSBE325
|
||||
00834 T0000-EXIT. DTSBE325
|
||||
00835 EXIT. DTSBE325
|
||||
00836 DTSBE325
|
||||
00837 S001-FROM-FED-8. DTSBE325
|
||||
00838 SET L001-FROM-FED-8 TO TRUE. DTSBE325
|
||||
00839 GO TO S001-DATE. DTSBE325
|
||||
00840 DTSBE325
|
||||
00841 S001-FROM-ABS-DAY. DTSBE325
|
||||
00842 SET L001-FROM-ABS-DAY TO TRUE. DTSBE325
|
||||
00843 GO TO S001-DATE. DTSBE325
|
||||
00844 DTSBE325
|
||||
00845 S001-DATE. DTSBE325
|
||||
00846 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE325
|
||||
00847 DTSBE325
|
||||
00848 S001-EXIT. DTSBE325
|
||||
00849 EXIT. DTSBE325
|
||||
00850 SKIP3 DTSBE325
|
||||
00851 S004-FROM-5. DTSBE325
|
||||
00852 SET L004-FROM-5 TO TRUE. DTSBE325
|
||||
00853 GO TO S004-EDIT-QTR. DTSBE325
|
||||
00854 DTSBE325
|
||||
00855 S004-FROM-DATE. DTSBE325
|
||||
00856 SET L004-FROM-DATE TO TRUE. DTSBE325
|
||||
00857 GO TO S004-EDIT-QTR. DTSBE325
|
||||
00858 DTSBE325
|
||||
00859 S004-FROM-ABS. DTSBE325
|
||||
00860 SET L004-FROM-ABS TO TRUE. DTSBE325
|
||||
00861 GO TO S004-EDIT-QTR. DTSBE325
|
||||
00862 DTSBE325
|
||||
00863 S004-EDIT-QTR. DTSBE325
|
||||
00864 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBE325
|
||||
00865 DTSBE325
|
||||
00866 S004-EXIT. DTSBE325
|
||||
00867 EXIT. DTSBE325
|
||||
00868 SKIP3 DTSBE325
|
||||
00869 S005-SYS-DATE. DTSBE325
|
||||
00870 SET L005-FROM-SYS TO TRUE DTSBE325
|
||||
00871 GO TO S005-ABSTIME. DTSBE325
|
||||
00872 S005-FROM-ABSTIME. DTSBE325
|
||||
00873 SET L005-FROM-ABSTIME TO TRUE. DTSBE325
|
||||
00874 GO TO S005-ABSTIME. DTSBE325
|
||||
00875 S005-ABSTIME. DTSBE325
|
||||
00876 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE325
|
||||
00877 S005-EXIT. DTSBE325
|
||||
00878 EXIT. DTSBE325
|
||||
00879 SKIP3 DTSBE325
|
||||
00880 S109-SUR-RATE-FIRST-QTR. DTSBE325
|
||||
00881 SET L109-CMND-FIRST-QTR-88 TO TRUE. DTSBE325
|
||||
00882 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBE325
|
||||
00883 DTSBE325
|
||||
00884 S109-FIRST-EXIT. DTSBE325
|
||||
00885 EXIT. DTSBE325
|
||||
00886 S109-SUR-BY-QTR. DTSBE325
|
||||
00887 SET L109-CLASS-SELF-INS-88 TO TRUE. DTSBE325
|
||||
00888 SET L109-CMND-INPUT-QTR-88 TO TRUE. DTSBE325
|
||||
00889 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBE325
|
||||
00890 DTSBE325
|
||||
00891 S109-QTR-EXIT. DTSBE325
|
||||
00892 EXIT. DTSBE325
|
||||
00893 SKIP3 DTSBE325
|
||||
00894 SKIP3 DTSBE325
|
||||
00895 S111-LOOKUP-ADDR. DTSBE325
|
||||
00896 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBE325
|
||||
00897 S111-EXIT. DTSBE325
|
||||
00898 EXIT. DTSBE325
|
||||
00899 SKIP3 DTSBE325
|
||||
00900 S112-FORMAT-ADDR. DTSBE325
|
||||
00901 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBE325
|
||||
00902 S112-EXIT. DTSBE325
|
||||
00903 EXIT. DTSBE325
|
||||
00904 SKIP3 DTSBE325
|
||||
00905 DTSBE325
|
||||
00906 *S910-OPEN-READ. DTSBE325
|
||||
00907 * SET L910-OPEN-READ-88 TO TRUE. DTSBE325
|
||||
00908 * GO TO S910-MSTR-IO. DTSBE325
|
||||
00909 * DTSBE325
|
||||
00910 *S910-OPEN-UPDATE-NO-AIX. DTSBE325
|
||||
00911 * SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBE325
|
||||
00912 * GO TO S910-MSTR-IO. DTSBE325
|
||||
00913 DTSBE325
|
||||
00914 S910-READ. DTSBE325
|
||||
00915 SET L910-READ-88 TO TRUE. DTSBE325
|
||||
00916 GO TO S910-MSTR-IO. DTSBE325
|
||||
00917 DTSBE325
|
||||
00918 S910-START-BROWSE. DTSBE325
|
||||
00919 SET L910-START-BROWSE-88 TO TRUE. DTSBE325
|
||||
00920 GO TO S910-MSTR-IO. DTSBE325
|
||||
00921 DTSBE325
|
||||
00922 S910-READ-NEXT. DTSBE325
|
||||
00923 SET L910-READ-NEXT-88 TO TRUE. DTSBE325
|
||||
00924 GO TO S910-MSTR-IO. DTSBE325
|
||||
00925 DTSBE325
|
||||
00926 S910-COUNT. DTSBE325
|
||||
00927 SET L910-COUNT-88 TO TRUE. DTSBE325
|
||||
00928 GO TO S910-MSTR-IO. DTSBE325
|
||||
00929 DTSBE325
|
||||
00930 S910-REWRITE. DTSBE325
|
||||
00931 SET L910-REWRITE-88 TO TRUE. DTSBE325
|
||||
00932 GO TO S910-MSTR-IO. DTSBE325
|
||||
00933 DTSBE325
|
||||
00934 S910-WRITE. DTSBE325
|
||||
00935 SET L910-WRITE-88 TO TRUE. DTSBE325
|
||||
00936 GO TO S910-MSTR-IO. DTSBE325
|
||||
00937 DTSBE325
|
||||
00938 *S910-CLOSE. DTSBE325
|
||||
00939 * SET L910-CLOSE-88 TO TRUE. DTSBE325
|
||||
00940 * GO TO S910-MSTR-IO. DTSBE325
|
||||
00941 DTSBE325
|
||||
00942 S910-MSTR-IO. DTSBE325
|
||||
00943 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE325
|
||||
00944 MSKL-REC. DTSBE325
|
||||
00945 S910-EXIT. DTSBE325
|
||||
00946 EXIT. DTSBE325
|
||||
00947 SKIP3 DTSBE325
|
||||
00948 S927-OPEN-UPDATE. DTSBE325
|
||||
00949 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBE325
|
||||
00950 GO TO S927-IO. DTSBE325
|
||||
00951 S927-WRITE. DTSBE325
|
||||
00952 SET L927-WRITE-88 TO TRUE. DTSBE325
|
||||
00953 GO TO S927-IO. DTSBE325
|
||||
00954 S927-CLOSE. DTSBE325
|
||||
00955 SET L927-CLOSE-88 TO TRUE. DTSBE325
|
||||
00956 GO TO S927-IO. DTSBE325
|
||||
00957 S927-IO. DTSBE325
|
||||
00958 CALL 'DTSBU927' USING L927-LINK-AREA DTSBE325
|
||||
00959 T026-REC. DTSBE325
|
||||
00960 S927-EXIT. DTSBE325
|
||||
00961 EXIT. DTSBE325
|
||||
00962 DTSBE325
|
||||
00963 S946-WRITE-R325. DTSBE325
|
||||
00964 CALL 'DTSBU946' USING R325-REC. DTSBE325
|
||||
00965 S946-EXIT. DTSBE325
|
||||
00966 EXIT. DTSBE325
|
||||
00967 DTSBE325
|
||||
00968 S981-OPEN-READ. DTSBE325
|
||||
00969 SET L981-OPEN-READ-88 TO TRUE. DTSBE325
|
||||
00970 GO TO S981-MSTR-IO. DTSBE325
|
||||
00971 DTSBE325
|
||||
00972 S981-READ. DTSBE325
|
||||
00973 SET L981-READ-88 TO TRUE. DTSBE325
|
||||
00974 GO TO S981-MSTR-IO. DTSBE325
|
||||
00975 DTSBE325
|
||||
00976 S981-START-BROWSE. DTSBE325
|
||||
00977 SET L981-START-BROWSE-88 TO TRUE. DTSBE325
|
||||
00978 GO TO S981-MSTR-IO. DTSBE325
|
||||
00979 DTSBE325
|
||||
00980 S981-READ-NEXT. DTSBE325
|
||||
00981 SET L981-READ-NEXT-88 TO TRUE. DTSBE325
|
||||
00982 GO TO S981-MSTR-IO. DTSBE325
|
||||
00983 DTSBE325
|
||||
00984 S981-CLOSE. DTSBE325
|
||||
00985 SET L981-CLOSE-88 TO TRUE. DTSBE325
|
||||
00986 GO TO S981-MSTR-IO. DTSBE325
|
||||
00987 DTSBE325
|
||||
00988 S981-MSTR-IO. DTSBE325
|
||||
00989 CALL 'DTSBU981' USING L981-LINK-AREA DTSBE325
|
||||
00990 WWGH-REC. DTSBE325
|
||||
00991 S981-EXIT. DTSBE325
|
||||
00992 EXIT. DTSBE325
|
||||
00993 SKIP3 DTSBE325
|
||||
00994 DTSBE325
|
||||
00995 S999-ABEND. DTSBE325
|
||||
00996 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE325
|
||||
00997 S999-EXIT. DTSBE325
|
||||
00998 EXIT. DTSBE325
|
||||
Reference in New Issue
Block a user