1427 lines
113 KiB
COBOL
1427 lines
113 KiB
COBOL
00001 IDENTIFICATION DIVISION. 12/17/03
|
|
00002 PROGRAM-ID. DTSBZ261. DTSBZ261
|
|
00003 AUTHOR. NGC. LV001
|
|
00004 DATE-WRITTEN. OCTOBER 2003. DTSBZ261
|
|
00005 DATE-COMPILED. DTSBZ261
|
|
00006 SKIP3 DTSBZ261
|
|
00007 ***** DTSBZ261
|
|
00008 * DTSBZ261
|
|
00009 * FUNCTION: CORRECT 2000/1 BATCHES ENTERED AS LATE. DTSBZ261
|
|
00010 * DTSBZ261
|
|
00011 * CLONED FROM DTSBZ057 (CONV) DTSBZ261
|
|
00012 * DTSBZ261
|
|
00013 * WITHDRAWAL RCVD DATE = 6/30/2003 DTSBZ261
|
|
00014 * PAYMENT REVERSAL DATE = 6/30/2003 DTSBZ261
|
|
00015 * NEW ORIGINAL RCVD DATE = 4/15/2003 DTSBZ261
|
|
00016 * DTSBZ261
|
|
00017 ***** DTSBZ261
|
|
00018 SKIP3 DTSBZ261
|
|
00019 ENVIRONMENT DIVISION. DTSBZ261
|
|
00020 SKIP2 DTSBZ261
|
|
00021 DATA DIVISION. DTSBZ261
|
|
00022 SKIP3 DTSBZ261
|
|
00023 EJECT DTSBZ261
|
|
00024 WORKING-STORAGE SECTION. DTSBZ261
|
|
000245 77 PAN-VALET PICTURE X(24) VALUE '001DTSBZ261 12/17/03'. DTSBZ261
|
|
00025 SKIP3 DTSBZ261
|
|
00026 01 WRK-AREA. DTSBZ261
|
|
00027 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +261.DTSBZ261
|
|
00028 05 ABEND-MSG PIC X(60). DTSBZ261
|
|
00029 DTSBZ261
|
|
00030 05 WRK-START-BATCH PIC S9(05) COMP-3. DTSBZ261
|
|
00031 05 HOLD-LAST-USED-BATCH-NO PIC S9(05) COMP-3. DTSBZ261
|
|
00032 DTSBZ261
|
|
00033 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBZ261'.DTSBZ261
|
|
00034 DTSBZ261
|
|
00035 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBZ261
|
|
00036 05 WRK-UPDATE-CNT PIC S9(07) COMP-3. DTSBZ261
|
|
00037 05 WRK-EXCLUDE-CNT PIC S9(07) COMP-3. DTSBZ261
|
|
00038 05 WRK-INTEREST-CHG PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00039 05 WRK-INTEREST-PD PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00040 05 WRK-INTEREST-BAL PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00041 05 WRK-REMIT-AMT PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00042 05 WRK-REV-AMT PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00043 05 WRK-TOT-WAGE PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00044 05 WRK-TAX-WAGE PIC S9(09)V99 COMP-3. DTSBZ261
|
|
00045 05 WRK-TOT-REMIT PIC S9(11)V99 COMP-3 DTSBZ261
|
|
00046 VALUE +0. DTSBZ261
|
|
00047 05 WRK-TOT-REVERSE PIC S9(11)V99 COMP-3 DTSBZ261
|
|
00048 VALUE +0. DTSBZ261
|
|
00049 05 SUB PIC S9(04) COMP. DTSBZ261
|
|
00050 05 WRK-SEQ-NO PIC S9(04) COMP VALUE +0. DTSBZ261
|
|
00051 05 WRK-EVENT-TXT PIC X(50) VALUE DTSBZ261
|
|
00052 '2002 ANNUAL REPORT DATES SET TO TIMELY BY DEFAULT'. DTSBZ261
|
|
00053 DTSBZ261
|
|
00054 05 WRK-MQTR-CNT PIC S9(07) COMP-3. DTSBZ261
|
|
00055 05 EMP-ACCT-DISP PIC 9(06). DTSBZ261
|
|
00056 05 AMT-DISP PIC --------9.99. DTSBZ261
|
|
00057 05 AMT-DISP1 PIC --------9.99. DTSBZ261
|
|
00058 05 WRK-TIMELY-PMT-AREA. DTSBZ261
|
|
00059 10 WRK-ERROR-IND PIC X(01). DTSBZ261
|
|
00060 88 WRK-ERROR-YES VALUE 'Y'. DTSBZ261
|
|
00061 88 WRK-ERROR-NO VALUE 'N'. DTSBZ261
|
|
00062 10 WRK-MPAY-FOUND-IND PIC X(01). DTSBZ261
|
|
00063 88 WRK-MPAY-FOUND-YES VALUE 'Y'. DTSBZ261
|
|
00064 88 WRK-MPAY-FOUND-NO VALUE 'N'. DTSBZ261
|
|
00065 10 WRK-MRPT-FOUND-IND PIC X(01). DTSBZ261
|
|
00066 88 WRK-MRPT-FOUND-YES VALUE 'Y'. DTSBZ261
|
|
00067 88 WRK-MRPT-FOUND-NO VALUE 'N'. DTSBZ261
|
|
00068 10 WRK-EMP-SELECTED-IND PIC X(01). DTSBZ261
|
|
00069 88 WRK-EMP-SELECTED-YES VALUE 'Y'. DTSBZ261
|
|
00070 88 WRK-EMP-SELECTED-NO VALUE 'N'. DTSBZ261
|
|
00071 10 WRK-SUPPL-RPT-IND PIC X(01). DTSBZ261
|
|
00072 88 WRK-SUPPL-RPT-YES VALUE 'Y'. DTSBZ261
|
|
00073 88 WRK-SUPPL-RPT-NO VALUE 'N'. DTSBZ261
|
|
00074 10 WRK-WITHDRAWN-RPT-IND PIC X(01). DTSBZ261
|
|
00075 88 WRK-WITHDRAWN-RPT-YES VALUE 'Y'. DTSBZ261
|
|
00076 88 WRK-WITHDRAWN-RPT-NO VALUE 'N'. DTSBZ261
|
|
00077 10 WRK-RPT-BATCH-NO PIC S9(05) COMP-3. DTSBZ261
|
|
00078 10 WRK-RPT-ITEM-NO PIC S9(03) COMP-3. DTSBZ261
|
|
00079 DTSBZ261
|
|
00080 05 WRK-EMPL-CNT-AREA. DTSBZ261
|
|
00081 10 WRK-TOT-CNT PIC S9(07) COMP-3. DTSBZ261
|
|
00082 10 WRK-JAN-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00083 10 WRK-FEB-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00084 10 WRK-MAR-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00085 10 WRK-APR-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00086 10 WRK-MAY-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00087 10 WRK-JUN-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00088 10 WRK-JUL-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00089 10 WRK-AUG-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00090 10 WRK-SEP-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00091 10 WRK-OCT-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00092 10 WRK-NOV-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00093 10 WRK-DEC-CNT PIC S9(05) COMP-3. DTSBZ261
|
|
00094 05 WRK-TIMELY-RPT-AREA. DTSBZ261
|
|
00095 10 WRK-RPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSBZ261
|
|
00096 DTSBZ261
|
|
00097 05 WRK-MPRF-IND PIC X(01). DTSBZ261
|
|
00098 88 WRK-MPRF-OK VALUE 'Y'. DTSBZ261
|
|
00099 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBZ261
|
|
00100 05 WRK-MQTR-IND PIC X(01). DTSBZ261
|
|
00101 88 WRK-MQTR-OK VALUE 'Y'. DTSBZ261
|
|
00102 88 WRK-MQTR-NO-REC VALUE 'N'. DTSBZ261
|
|
00103 05 WRK-MRPT-IND PIC X(01). DTSBZ261
|
|
00104 88 WRK-MRPT-OK VALUE 'Y'. DTSBZ261
|
|
00105 88 WRK-MRPT-NO-REC VALUE 'N'. DTSBZ261
|
|
00106 DTSBZ261
|
|
00107 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBZ261
|
|
00108 DTSBZ261
|
|
00109 05 PARM-EOF-IND PIC X(01). DTSBZ261
|
|
00110 DTSBZ261
|
|
00111 05 WRK-EMP-NO PIC 9(06). DTSBZ261
|
|
00112 DTSBZ261
|
|
00113 05 WRK-TRACE-IND PIC X(01). DTSBZ261
|
|
00114 DTSBZ261
|
|
00115 05 WRK-MST-OPEN-IND PIC X(01). DTSBZ261
|
|
00116 DTSBZ261
|
|
00117 05 WRK-REF-OPEN-IND PIC X(01). DTSBZ261
|
|
00118 DTSBZ261
|
|
00119 EJECT DTSBZ261
|
|
00120 01 L410-LINK-AREA. DTSBZ261
|
|
00121 ++INCLUDE DTSIL410 DTSBZ261
|
|
00122 DTSBZ261
|
|
00123 01 L005-LINK-AREA. DTSBZ261
|
|
00124 ++INCLUDE DTSIL005 DTSBZ261
|
|
00125 DTSBZ261
|
|
00126 01 L910-LINK-AREA. DTSBZ261
|
|
00127 ++INCLUDE DTSIL910 DTSBZ261
|
|
00128 EJECT DTSBZ261
|
|
00129 01 MSKL-REC. DTSBZ261
|
|
00130 ++INCLUDE DTSIMSKL DTSBZ261
|
|
00131 EJECT DTSBZ261
|
|
00132 01 MHDR-REC. DTSBZ261
|
|
00133 ++INCLUDE DTSIMHDR DTSBZ261
|
|
00134 EJECT DTSBZ261
|
|
00135 01 MPRF-REC. DTSBZ261
|
|
00136 ++INCLUDE DTSIMPRF DTSBZ261
|
|
00137 EJECT DTSBZ261
|
|
00138 01 MQTR-REC. DTSBZ261
|
|
00139 ++INCLUDE DTSIMQTR DTSBZ261
|
|
00140 EJECT DTSBZ261
|
|
00141 01 MRPT-REC. DTSBZ261
|
|
00142 ++INCLUDE DTSIMRPT DTSBZ261
|
|
00143 EJECT DTSBZ261
|
|
00144 01 MEVL-REC. DTSBZ261
|
|
00145 ++INCLUDE DTSIMEVL DTSBZ261
|
|
00146 EJECT DTSBZ261
|
|
00147 01 MPAY-REC. DTSBZ261
|
|
00148 ++INCLUDE DTSIMPAY DTSBZ261
|
|
00149 EJECT DTSBZ261
|
|
00150 01 MREV-REC. DTSBZ261
|
|
00151 ++INCLUDE DTSIMREV DTSBZ261
|
|
00152 EJECT DTSBZ261
|
|
00153 01 L923-LINK-AREA. DTSBZ261
|
|
00154 ++INCLUDE DTSIL923 DTSBZ261
|
|
00155 EJECT DTSBZ261
|
|
00156 01 ASKL-REC. DTSBZ261
|
|
00157 ++INCLUDE DTSIASKL DTSBZ261
|
|
00158 EJECT DTSBZ261
|
|
00159 01 AHDR-REC. DTSBZ261
|
|
00160 ++INCLUDE DTSIAHDR DTSBZ261
|
|
00161 EJECT DTSBZ261
|
|
00162 01 AATX-REC. DTSBZ261
|
|
00163 ++INCLUDE DTSIAATX DTSBZ261
|
|
00164 EJECT DTSBZ261
|
|
00165 01 APAY-REC. DTSBZ261
|
|
00166 ++INCLUDE DTSIAPAY DTSBZ261
|
|
00167 EJECT DTSBZ261
|
|
00168 01 L931-LINK-AREA. DTSBZ261
|
|
00169 ++INCLUDE DTSIL931 DTSBZ261
|
|
00170 EJECT DTSBZ261
|
|
00171 01 FSKL-REC. DTSBZ261
|
|
00172 ++INCLUDE DTSIFSKL DTSBZ261
|
|
00173 EJECT DTSBZ261
|
|
00174 01 FCYR-REC. DTSBZ261
|
|
00175 ++INCLUDE DTSIFCYR DTSBZ261
|
|
00176 EJECT DTSBZ261
|
|
00177 01 L981-LINK-AREA. DTSBZ261
|
|
00178 ++INCLUDE DTSIL981 DTSBZ261
|
|
00179 SKIP3 DTSBZ261
|
|
00180 01 WWGH-REC. DTSBZ261
|
|
00181 ++INCLUDE DTSIWWGH DTSBZ261
|
|
00182 SKIP3 DTSBZ261
|
|
00183 01 L983-LINK-AREA. DTSBZ261
|
|
00184 ++INCLUDE DTSIL983 DTSBZ261
|
|
00185 SKIP3 DTSBZ261
|
|
00186 01 WSKL-REC. DTSBZ261
|
|
00187 ++INCLUDE DTSIWSKL DTSBZ261
|
|
00188 SKIP3 DTSBZ261
|
|
00189 01 W001-REC. DTSBZ261
|
|
00190 ++INCLUDE DTSIW001 DTSBZ261
|
|
00191 DTSBZ261
|
|
00192 01 L004-COMM-AREA. DTSBZ261
|
|
00193 ++INCLUDE DTSIL004 DTSBZ261
|
|
00194 EJECT DTSBZ261
|
|
00195 01 L421-LINK-AREA. DTSBZ261
|
|
00196 ++INCLUDE DTSIL421 DTSBZ261
|
|
00197 EJECT DTSBZ261
|
|
00198 PROCEDURE DIVISION. DTSBZ261
|
|
00199 SKIP2 DTSBZ261
|
|
00200 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBZ261
|
|
00201 DTSBZ261
|
|
00202 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBZ261
|
|
00203 DTSBZ261
|
|
00204 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBZ261
|
|
00205 SKIP2 DTSBZ261
|
|
00206 GOBACK. DTSBZ261
|
|
00207 EJECT DTSBZ261
|
|
00208 I0000-INITIATE. DTSBZ261
|
|
00209 SKIP2 DTSBZ261
|
|
00210 MOVE 'N' TO WRK-TRACE-IND. DTSBZ261
|
|
00211 DTSBZ261
|
|
00212 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBZ261
|
|
00213 DTSBZ261
|
|
00214 PERFORM I3000-BATCH-HEADER THRU I3000-EXIT. DTSBZ261
|
|
00215 DTSBZ261
|
|
00216 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBZ261
|
|
00217 DTSBZ261
|
|
00218 I0000-EXIT. DTSBZ261
|
|
00219 EXIT. DTSBZ261
|
|
00220 DTSBZ261
|
|
00221 I2000-OPEN-FILES-1. DTSBZ261
|
|
00222 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBZ261
|
|
00223 DTSBZ261
|
|
00224 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBZ261
|
|
00225 DTSBZ261
|
|
00226 *** PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBZ261
|
|
00227 *** PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. DTSBZ261
|
|
00228 *** PERFORM S910-OPEN-UPDATE-HDR THRU S910-EXIT. DTSBZ261
|
|
00229 PERFORM S910-OPEN-UPDATE THRU S910-EXIT. DTSBZ261
|
|
00230 PERFORM S923-OPEN-UPDATE THRU S923-EXIT. DTSBZ261
|
|
00231 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBZ261
|
|
00232 PERFORM S981A-OPEN THRU S981A-EXIT. DTSBZ261
|
|
00233 PERFORM S983-OPEN THRU S983-EXIT. DTSBZ261
|
|
00234 DTSBZ261
|
|
00235 I2000-EXIT. DTSBZ261
|
|
00236 EXIT. DTSBZ261
|
|
00237 DTSBZ261
|
|
00238 I3000-BATCH-HEADER. DTSBZ261
|
|
00239 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSBZ261
|
|
00240 MOVE +0 TO MHDR-EMP-NO. DTSBZ261
|
|
00241 SET MHDR-HDR-88 TO TRUE. DTSBZ261
|
|
00242 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261
|
|
00243 PERFORM S910-READ THRU S910-EXIT. DTSBZ261
|
|
00244 DTSBZ261
|
|
00245 IF L910-NO-REC-88 DTSBZ261
|
|
00246 MOVE 'MHDR RECORD NOT FOUND (I0000)' DTSBZ261
|
|
00247 TO ABEND-MSG DTSBZ261
|
|
00248 PERFORM S999-ABEND THRU S999-EXIT. DTSBZ261
|
|
00249 DTSBZ261
|
|
00250 MOVE MSKL-REC TO MHDR-REC. DTSBZ261
|
|
00251 DTSBZ261
|
|
00252 COMPUTE WRK-START-BATCH = MHDR-LAST-USED-BATCH-NO + 1. DTSBZ261
|
|
00253 DTSBZ261
|
|
00254 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261
|
|
00255 I3000-EXIT. DTSBZ261
|
|
00256 EXIT. DTSBZ261
|
|
00257 DTSBZ261
|
|
00258 EJECT DTSBZ261
|
|
00259 P0000-PROCESS. DTSBZ261
|
|
00260 DTSBZ261
|
|
00261 MOVE +0 TO WRK-MPRF-CNT DTSBZ261
|
|
00262 WRK-EXCLUDE-CNT DTSBZ261
|
|
00263 WRK-UPDATE-CNT. DTSBZ261
|
|
00264 DTSBZ261
|
|
00265 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBZ261
|
|
00266 DTSBZ261
|
|
00267 MOVE +0 TO MSKL-EMP-NO. DTSBZ261
|
|
00268 DTSBZ261
|
|
00269 SET MSKL-PRF-88 TO TRUE. DTSBZ261
|
|
00270 DTSBZ261
|
|
00271 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261
|
|
00272 IF L910-OK-88 DTSBZ261
|
|
00273 MOVE MSKL-REC TO MPRF-REC DTSBZ261
|
|
00274 SET WRK-MPRF-OK TO TRUE DTSBZ261
|
|
00275 ELSE DTSBZ261
|
|
00276 DISPLAY 'BAD FIRST READ ' L910-RESULT-IND DTSBZ261
|
|
00277 SET L910-NO-REC-88 TO TRUE DTSBZ261
|
|
00278 GO TO P0000-EXIT. DTSBZ261
|
|
00279 DTSBZ261
|
|
00280 DISPLAY 'CORRECTION 2002 ANNUAL REPORTS '. DTSBZ261
|
|
00281 DISPLAY ' DTSBZ261 '. DTSBZ261
|
|
00282 DISPLAY SPACE. DTSBZ261
|
|
00283 DTSBZ261
|
|
00284 PERFORM P1000-READ-NEXT THRU P1000-EXIT DTSBZ261
|
|
00285 UNTIL WRK-MPRF-NO-REC. DTSBZ261
|
|
00286 ** OR MPRF-EMP-NO > 120000. DTSBZ261
|
|
00287 ** OR WRK-REL-CNT > +100. DTSBZ261
|
|
00288 P0000-EXIT. DTSBZ261
|
|
00289 EXIT. DTSBZ261
|
|
00290 EJECT DTSBZ261
|
|
00291 P1000-READ-NEXT. DTSBZ261
|
|
00292 IF MPRF-EMP-NO = 136190 DTSBZ261
|
|
00293 NEXT SENTENCE DTSBZ261
|
|
00294 ELSE DTSBZ261
|
|
00295 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBZ261
|
|
00296 SET L410-MODE-INPUT-YRQ-88 TO TRUE DTSBZ261
|
|
00297 MOVE MPRF-EMP-NO TO L410-EMP-NO DTSBZ261
|
|
00298 MOVE 20021 TO L410-YRQ DTSBZ261
|
|
00299 PERFORM S410-FILING-SCHED THRU S410-EXIT DTSBZ261
|
|
00300 IF L410-ANN-SCHED-88 DTSBZ261
|
|
00301 ADD +1 TO WRK-MPRF-CNT DTSBZ261
|
|
00302 PERFORM P5000-READ-QTR THRU P5000-EXIT DTSBZ261
|
|
00303 IF WRK-EMP-SELECTED-YES DTSBZ261
|
|
00304 ADD +1 TO WRK-UPDATE-CNT DTSBZ261
|
|
00305 END-IF DTSBZ261
|
|
00306 END-IF DTSBZ261
|
|
00307 END-IF DTSBZ261
|
|
00308 END-IF. DTSBZ261
|
|
00309 DTSBZ261
|
|
00310 MOVE MPRF-REC TO MSKL-REC. DTSBZ261
|
|
00311 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBZ261
|
|
00312 IF NOT L910-OK-88 DTSBZ261
|
|
00313 SET WRK-MPRF-NO-REC TO TRUE DTSBZ261
|
|
00314 ELSE DTSBZ261
|
|
00315 MOVE MSKL-REC TO MPRF-REC. DTSBZ261
|
|
00316 DTSBZ261
|
|
00317 P1000-EXIT. DTSBZ261
|
|
00318 EXIT. DTSBZ261
|
|
00319 DTSBZ261
|
|
00320 P5000-READ-QTR. DTSBZ261
|
|
00321 SET WRK-EMP-SELECTED-NO TO TRUE. DTSBZ261
|
|
00322 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBZ261
|
|
00323 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBZ261
|
|
00324 MOVE 20021 TO MQTR-YRQ. DTSBZ261
|
|
00325 SET MQTR-QTR-88 TO TRUE. DTSBZ261
|
|
00326 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261
|
|
00327 DTSBZ261
|
|
00328 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261
|
|
00329 IF L910-NO-REC-88 DTSBZ261
|
|
00330 GO TO P5000-EXIT DTSBZ261
|
|
00331 ELSE DTSBZ261
|
|
00332 MOVE MSKL-REC TO MQTR-REC DTSBZ261
|
|
00333 IF MQTR-YRQ > 20024 DTSBZ261
|
|
00334 SET L910-NO-REC-88 TO TRUE DTSBZ261
|
|
00335 ELSE DTSBZ261
|
|
00336 PERFORM P5120-FIND-REPORT THRU P5120-EXIT DTSBZ261
|
|
00337 IF WRK-EMP-SELECTED-YES DTSBZ261
|
|
00338 PERFORM P5130-ACCT-TRANS THRU P5130-EXIT DTSBZ261
|
|
00339 PERFORM P5200-EVL THRU P5200-EXIT DTSBZ261
|
|
00340 END-IF DTSBZ261
|
|
00341 END-IF DTSBZ261
|
|
00342 END-IF. DTSBZ261
|
|
00343 DTSBZ261
|
|
00344 * PERFORM DTSBZ261
|
|
00345 * UNTIL L910-NO-REC-88 DTSBZ261
|
|
00346 * MOVE MSKL-REC TO MQTR-REC DTSBZ261
|
|
00347 * DTSBZ261
|
|
00348 * IF MQTR-YRQ > 20024 DTSBZ261
|
|
00349 * SET L910-NO-REC-88 TO TRUE DTSBZ261
|
|
00350 * ELSE DTSBZ261
|
|
00351 * MOVE ZERO TO WRK-INTEREST-CHG DTSBZ261
|
|
00352 * WRK-INTEREST-PD DTSBZ261
|
|
00353 * WRK-INTEREST-BAL DTSBZ261
|
|
00354 * PERFORM P5120-FIND-REPORT THRU P5120-EXIT DTSBZ261
|
|
00355 * IF WRK-EMP-SELECTED-YES DTSBZ261
|
|
00356 * PERFORM P5110-SUM-INTEREST THRU P5110-EXIT DTSBZ261
|
|
00357 * ADD +1 TO WRK-UPDATE-CNT DTSBZ261
|
|
00358 * PERFORM P5130-ACCT-TRANS THRU P5130-EXIT DTSBZ261
|
|
00359 * END-IF DTSBZ261
|
|
00360 * END-IF DTSBZ261
|
|
00361 * MOVE MQTR-REC TO MSKL-REC DTSBZ261
|
|
00362 * PERFORM S910-START-BROWSE THRU S910-EXIT DTSBZ261
|
|
00363 * PERFORM S910-READ-NEXT THRU S910-EXIT DTSBZ261
|
|
00364 * END-PERFORM. DTSBZ261
|
|
00365 DTSBZ261
|
|
00366 P5000-EXIT. DTSBZ261
|
|
00367 EXIT. DTSBZ261
|
|
00368 DTSBZ261
|
|
00369 P5110-SUM-INTEREST. DTSBZ261
|
|
00370 PERFORM DTSBZ261
|
|
00371 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBZ261
|
|
00372 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBZ261
|
|
00373 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBZ261
|
|
00374 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBZ261
|
|
00375 TO WRK-INTEREST-CHG DTSBZ261
|
|
00376 ADD MQTR-PAID-AMT (MQTR-ACCT-IDX) DTSBZ261
|
|
00377 TO WRK-INTEREST-PD DTSBZ261
|
|
00378 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBZ261
|
|
00379 TO WRK-INTEREST-BAL DTSBZ261
|
|
00380 END-IF DTSBZ261
|
|
00381 END-PERFORM. DTSBZ261
|
|
00382 DTSBZ261
|
|
00383 P5110-EXIT. DTSBZ261
|
|
00384 EXIT. DTSBZ261
|
|
00385 DTSBZ261
|
|
00386 DTSBZ261
|
|
00387 P5120-FIND-REPORT. DTSBZ261
|
|
00388 *& DTSBZ261
|
|
00389 * DISPLAY '*** P5120-1 ' MPRF-EMP-NO DTSBZ261
|
|
00390 * ' ' DISP-QTR. DTSBZ261
|
|
00391 *& DTSBZ261
|
|
00392 MOVE ZERO TO WRK-RPT-RECEIVED-DATE DTSBZ261
|
|
00393 WRK-RPT-BATCH-NO DTSBZ261
|
|
00394 WRK-RPT-ITEM-NO DTSBZ261
|
|
00395 WRK-JAN-CNT DTSBZ261
|
|
00396 WRK-FEB-CNT DTSBZ261
|
|
00397 WRK-MAR-CNT DTSBZ261
|
|
00398 WRK-APR-CNT DTSBZ261
|
|
00399 WRK-MAY-CNT DTSBZ261
|
|
00400 WRK-JUN-CNT DTSBZ261
|
|
00401 WRK-JUL-CNT DTSBZ261
|
|
00402 WRK-AUG-CNT DTSBZ261
|
|
00403 WRK-SEP-CNT DTSBZ261
|
|
00404 WRK-OCT-CNT DTSBZ261
|
|
00405 WRK-NOV-CNT DTSBZ261
|
|
00406 WRK-DEC-CNT. DTSBZ261
|
|
00407 SET WRK-SUPPL-RPT-NO TO TRUE. DTSBZ261
|
|
00408 SET WRK-WITHDRAWN-RPT-NO TO TRUE. DTSBZ261
|
|
00409 SET WRK-MRPT-OK TO TRUE. DTSBZ261
|
|
00410 DTSBZ261
|
|
00411 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBZ261
|
|
00412 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBZ261
|
|
00413 MOVE MQTR-YRQ TO MRPT-YRQ. DTSBZ261
|
|
00414 SET MRPT-RPT-88 TO TRUE. DTSBZ261
|
|
00415 MOVE MRPT-REC TO MSKL-REC. DTSBZ261
|
|
00416 DTSBZ261
|
|
00417 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261
|
|
00418 IF L910-OK-88 DTSBZ261
|
|
00419 PERFORM P5121-SCAN-MRPT THRU P5121-EXIT DTSBZ261
|
|
00420 UNTIL WRK-MRPT-NO-REC. DTSBZ261
|
|
00421 DTSBZ261
|
|
00422 * IF WRK-RPT-RECEIVED-DATE = ZERO DTSBZ261
|
|
00423 * ADD +1 TO WRK-EXCLUDE-CNT DTSBZ261
|
|
00424 * GO TO P5120-EXIT. DTSBZ261
|
|
00425 DTSBZ261
|
|
00426 *& DTSBZ261
|
|
00427 * DISPLAY '*** P5120-2 ' MPRF-EMP-NO DTSBZ261
|
|
00428 * ' ' DISP-QTR DTSBZ261
|
|
00429 * ' ' WRK-RPT-RECEIVED-DATE DTSBZ261
|
|
00430 * ' ' WRK-SUPPL-RPT-IND. DTSBZ261
|
|
00431 *& DTSBZ261
|
|
00432 DTSBZ261
|
|
00433 IF WRK-RPT-RECEIVED-DATE > 20030415 DTSBZ261
|
|
00434 SET WRK-EMP-SELECTED-YES TO TRUE DTSBZ261
|
|
00435 ELSE DTSBZ261
|
|
00436 ADD +1 TO WRK-EXCLUDE-CNT. DTSBZ261
|
|
00437 DTSBZ261
|
|
00438 P5120-EXIT. DTSBZ261
|
|
00439 EXIT. DTSBZ261
|
|
00440 DTSBZ261
|
|
00441 P5121-SCAN-MRPT. DTSBZ261
|
|
00442 MOVE MSKL-REC TO MRPT-REC. DTSBZ261
|
|
00443 *& DTSBZ261
|
|
00444 * DISPLAY '*** P5121 ' MPRF-EMP-NO DTSBZ261
|
|
00445 * ' ' MRPT-YRQ DTSBZ261
|
|
00446 * ' ' MRPT-RPT-TYPE DTSBZ261
|
|
00447 * ' ' MRPT-RECEIVED-DATE DTSBZ261
|
|
00448 * ' ' MRPT-BATCH-NO DTSBZ261
|
|
00449 * ' ' MRPT-ITEM-NO. DTSBZ261
|
|
00450 *& DTSBZ261
|
|
00451 * IF MRPT-YRQ = MQTR-YRQ DTSBZ261
|
|
00452 * NEXT SENTENCE DTSBZ261
|
|
00453 * ELSE DTSBZ261
|
|
00454 IF MRPT-YRQ > 20024 DTSBZ261
|
|
00455 SET WRK-MRPT-NO-REC TO TRUE DTSBZ261
|
|
00456 GO TO P5121-EXIT DTSBZ261
|
|
00457 END-IF. DTSBZ261
|
|
00458 * END-IF. DTSBZ261
|
|
00459 DTSBZ261
|
|
00460 IF MRPT-WITHDRW-88 DTSBZ261
|
|
00461 MOVE ZERO TO WRK-RPT-RECEIVED-DATE DTSBZ261
|
|
00462 ELSE DTSBZ261
|
|
00463 IF MRPT-ORIG-88 DTSBZ261
|
|
00464 MOVE MRPT-RECEIVED-DATE DTSBZ261
|
|
00465 TO WRK-RPT-RECEIVED-DATE DTSBZ261
|
|
00466 MOVE MRPT-BATCH-NO TO WRK-RPT-BATCH-NO DTSBZ261
|
|
00467 MOVE MRPT-ITEM-NO TO WRK-RPT-ITEM-NO DTSBZ261
|
|
00468 PERFORM P5131A-EMPL-CNTS THRU P5131A-EXIT DTSBZ261
|
|
00469 END-IF DTSBZ261
|
|
00470 END-IF. DTSBZ261
|
|
00471 DTSBZ261
|
|
00472 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBZ261
|
|
00473 IF L910-NO-REC-88 DTSBZ261
|
|
00474 SET WRK-MRPT-NO-REC TO TRUE. DTSBZ261
|
|
00475 DTSBZ261
|
|
00476 P5121-EXIT. DTSBZ261
|
|
00477 EXIT. DTSBZ261
|
|
00478 DTSBZ261
|
|
00479 P5130-ACCT-TRANS. DTSBZ261
|
|
00480 DTSBZ261
|
|
00481 ** IF WRK-INTEREST-CHG > ZERO DTSBZ261
|
|
00482 * MOVE MPRF-EMP-NO TO EMP-ACCT-DISP DTSBZ261
|
|
00483 * DISPLAY EMP-ACCT-DISP DTSBZ261
|
|
00484 * ' RPT DOC # ' WRK-RPT-BATCH-NO DTSBZ261
|
|
00485 * ' ' WRK-RPT-ITEM-NO DTSBZ261
|
|
00486 * ' ' WRK-RPT-RECEIVED-DATE. DTSBZ261
|
|
00487 * ' ' WRK-INTEREST-CHG DTSBZ261
|
|
00488 * ' ' WRK-INTEREST-PD DTSBZ261
|
|
00489 * ' ' WRK-INTEREST-BAL DTSBZ261
|
|
00490 ** END-IF. DTSBZ261
|
|
00491 DTSBZ261
|
|
00492 PERFORM P5131-READ-MPAY THRU P5131-EXIT. DTSBZ261
|
|
00493 PERFORM P5132-WITHDRAW-ATX THRU P5132-EXIT. DTSBZ261
|
|
00494 PERFORM P5133-REVERSE-MPAY THRU P5133-EXIT. DTSBZ261
|
|
00495 PERFORM P5134-ENTER-AATX THRU P5134-EXIT. DTSBZ261
|
|
00496 DTSBZ261
|
|
00497 P5130-EXIT. DTSBZ261
|
|
00498 EXIT. DTSBZ261
|
|
00499 DTSBZ261
|
|
00500 P5131-READ-MPAY. DTSBZ261
|
|
00501 SET WRK-MPAY-FOUND-YES TO TRUE. DTSBZ261
|
|
00502 *** SET WRK-MRPT-FOUND-YES TO TRUE. DTSBZ261
|
|
00503 MOVE ZERO TO WRK-REMIT-AMT DTSBZ261
|
|
00504 WRK-REV-AMT. DTSBZ261
|
|
00505 DTSBZ261
|
|
00506 * MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBZ261
|
|
00507 * MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBZ261
|
|
00508 * MOVE MQTR-YRQ TO MRPT-YRQ. DTSBZ261
|
|
00509 * MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO DTSBZ261
|
|
00510 * MOVE WRK-RPT-ITEM-NO TO MRPT-ITEM-NO. DTSBZ261
|
|
00511 * SET MRPT-RPT-88 TO TRUE. DTSBZ261
|
|
00512 * MOVE MRPT-REC TO MSKL-REC. DTSBZ261
|
|
00513 * DTSBZ261
|
|
00514 * PERFORM S910-READ THRU S910-EXIT. DTSBZ261
|
|
00515 * IF L910-OK-88 DTSBZ261
|
|
00516 * MOVE MSKL-REC TO MRPT-REC DTSBZ261
|
|
00517 * PERFORM P5131A-EMPL-CNTS THRU P5131A-EXIT DTSBZ261
|
|
00518 * ELSE DTSBZ261
|
|
00519 * DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO DTSBZ261
|
|
00520 * SET WRK-MRPT-FOUND-NO TO TRUE DTSBZ261
|
|
00521 * GO TO P5131-EXIT. DTSBZ261
|
|
00522 DTSBZ261
|
|
00523 DTSBZ261
|
|
00524 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSBZ261
|
|
00525 MOVE MPRF-EMP-NO TO MPAY-EMP-NO. DTSBZ261
|
|
00526 MOVE WRK-RPT-BATCH-NO TO MPAY-BATCH-NO DTSBZ261
|
|
00527 MOVE WRK-RPT-ITEM-NO TO MPAY-ITEM-NO. DTSBZ261
|
|
00528 SET MPAY-PAY-88 TO TRUE. DTSBZ261
|
|
00529 MOVE MPAY-REC TO MSKL-REC. DTSBZ261
|
|
00530 DTSBZ261
|
|
00531 PERFORM S910-READ THRU S910-EXIT. DTSBZ261
|
|
00532 IF L910-OK-88 DTSBZ261
|
|
00533 MOVE MSKL-REC TO MPAY-REC DTSBZ261
|
|
00534 MOVE MPAY-REMIT-AMT TO WRK-REMIT-AMT DTSBZ261
|
|
00535 ELSE DTSBZ261
|
|
00536 DISPLAY 'CANNOT FIND MPAY ' MPRF-EMP-NO DTSBZ261
|
|
00537 SET WRK-MPAY-FOUND-NO TO TRUE DTSBZ261
|
|
00538 GO TO P5131-EXIT. DTSBZ261
|
|
00539 DTSBZ261
|
|
00540 MOVE LOW-VALUE TO MREV-REC. DTSBZ261
|
|
00541 MOVE MPAY-EMP-NO TO MREV-EMP-NO. DTSBZ261
|
|
00542 SET MREV-REV-88 TO TRUE. DTSBZ261
|
|
00543 MOVE MPAY-BATCH-NO TO MREV-PA-BATCH-NO. DTSBZ261
|
|
00544 MOVE MPAY-ITEM-NO TO MREV-PA-ITEM-NO. DTSBZ261
|
|
00545 MOVE MREV-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261
|
|
00546 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261
|
|
00547 DTSBZ261
|
|
00548 PERFORM DTSBZ261
|
|
00549 UNTIL L910-NO-REC-88 DTSBZ261
|
|
00550 MOVE MSKL-REC TO MREV-REC DTSBZ261
|
|
00551 ADD MREV-AMT TO WRK-REV-AMT DTSBZ261
|
|
00552 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBZ261
|
|
00553 END-PERFORM. DTSBZ261
|
|
00554 DTSBZ261
|
|
00555 DISPLAY SPACE. DTSBZ261
|
|
00556 MOVE MPRF-EMP-NO TO EMP-ACCT-DISP. DTSBZ261
|
|
00557 DISPLAY EMP-ACCT-DISP DTSBZ261
|
|
00558 ' RPT DOC # ' WRK-RPT-BATCH-NO DTSBZ261
|
|
00559 ' ' WRK-RPT-ITEM-NO DTSBZ261
|
|
00560 ' ' WRK-RPT-RECEIVED-DATE. DTSBZ261
|
|
00561 MOVE WRK-REV-AMT TO AMT-DISP. DTSBZ261
|
|
00562 MOVE WRK-REMIT-AMT TO AMT-DISP1. DTSBZ261
|
|
00563 DISPLAY ' REMIT ' AMT-DISP1 DTSBZ261
|
|
00564 ' REV ' AMT-DISP. DTSBZ261
|
|
00565 DTSBZ261
|
|
00566 COMPUTE WRK-REMIT-AMT = DTSBZ261
|
|
00567 (WRK-REMIT-AMT - WRK-REV-AMT). DTSBZ261
|
|
00568 DTSBZ261
|
|
00569 DTSBZ261
|
|
00570 P5131-EXIT. DTSBZ261
|
|
00571 EXIT. DTSBZ261
|
|
00572 DTSBZ261
|
|
00573 P5131A-EMPL-CNTS. DTSBZ261
|
|
00574 *& DTSBZ261
|
|
00575 IF MRPT-EMP-NO = 133080 OR 135921 DTSBZ261
|
|
00576 DISPLAY 'P5131A ' MRPT-EMP-NO ' ' MRPT-YRQ DTSBZ261
|
|
00577 ' 1 ' MRPT-1ST-MTH-EMPL-CNT DTSBZ261
|
|
00578 ' 2 ' MRPT-2ND-MTH-EMPL-CNT DTSBZ261
|
|
00579 ' 3 ' MRPT-3RD-MTH-EMPL-CNT. DTSBZ261
|
|
00580 *& DTSBZ261
|
|
00581 DTSBZ261
|
|
00582 EVALUATE TRUE DTSBZ261
|
|
00583 WHEN MRPT-YRQ = 20021 DTSBZ261
|
|
00584 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-JAN-CNT DTSBZ261
|
|
00585 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-FEB-CNT DTSBZ261
|
|
00586 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-MAR-CNT DTSBZ261
|
|
00587 WHEN MRPT-YRQ = 20022 DTSBZ261
|
|
00588 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-APR-CNT DTSBZ261
|
|
00589 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-MAY-CNT DTSBZ261
|
|
00590 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-JUN-CNT DTSBZ261
|
|
00591 WHEN MRPT-YRQ = 20023 DTSBZ261
|
|
00592 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-JUL-CNT DTSBZ261
|
|
00593 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-AUG-CNT DTSBZ261
|
|
00594 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-SEP-CNT DTSBZ261
|
|
00595 WHEN MRPT-YRQ = 20024 DTSBZ261
|
|
00596 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-OCT-CNT DTSBZ261
|
|
00597 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-NOV-CNT DTSBZ261
|
|
00598 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-DEC-CNT DTSBZ261
|
|
00599 END-EVALUATE. DTSBZ261
|
|
00600 P5131A-EXIT. DTSBZ261
|
|
00601 EXIT. DTSBZ261
|
|
00602 DTSBZ261
|
|
00603 P5132-WITHDRAW-ATX. DTSBZ261
|
|
00604 * IF WRK-MRPT-FOUND-NO DTSBZ261
|
|
00605 * GO TO P5132-EXIT. DTSBZ261
|
|
00606 DTSBZ261
|
|
00607 PERFORM P5132A-FIND-WAGES THRU P5132A-EXIT. DTSBZ261
|
|
00608 DTSBZ261
|
|
00609 MOVE LOW-VALUES TO AATX-REC. DTSBZ261
|
|
00610 DTSBZ261
|
|
00611 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSBZ261
|
|
00612 NEXT SENTENCE DTSBZ261
|
|
00613 ELSE DTSBZ261
|
|
00614 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSBZ261
|
|
00615 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261
|
|
00616 DTSBZ261
|
|
00617 MOVE AHDR-BATCH-NO TO AATX-BATCH-NO. DTSBZ261
|
|
00618 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSBZ261
|
|
00619 MOVE AHDR-ATC-FILE-TRAN-CNT TO AATX-ITEM-NO. DTSBZ261
|
|
00620 SET AATX-ATX-88 TO TRUE. DTSBZ261
|
|
00621 DTSBZ261
|
|
00622 MOVE MPRF-PRIMARY-NAME TO AATX-NAME-CHECK. DTSBZ261
|
|
00623 MOVE MPRF-EMP-NO TO AATX-EMP-NO. DTSBZ261
|
|
00624 SET AATX-WITHDRW-88 TO TRUE. DTSBZ261
|
|
00625 MOVE 20021 TO AATX-YRQ. DTSBZ261
|
|
00626 DTSBZ261
|
|
00627 *& DTSBZ261
|
|
00628 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
00629 DISPLAY 'WITHDRAW ' EMP-ACCT-DISP DTSBZ261
|
|
00630 ' BTC ' AATX-BATCH-NO DTSBZ261
|
|
00631 ' ITM ' AATX-ITEM-NO DTSBZ261
|
|
00632 ' TOT ' WRK-TOT-WAGE DTSBZ261
|
|
00633 ' TAX ' WRK-TAX-WAGE DTSBZ261
|
|
00634 END-IF. DTSBZ261
|
|
00635 *& DTSBZ261
|
|
00636 COMPUTE AATX-TOT-WAGE = WRK-TOT-WAGE * -1. DTSBZ261
|
|
00637 DTSBZ261
|
|
00638 COMPUTE AATX-TAX-WAGE = WRK-TAX-WAGE * -1. DTSBZ261
|
|
00639 DTSBZ261
|
|
00640 COMPUTE AATX-EXCESS-WAGE = DTSBZ261
|
|
00641 (WRK-TOT-WAGE - WRK-TAX-WAGE). DTSBZ261
|
|
00642 DTSBZ261
|
|
00643 MOVE +0 TO AATX-REMIT-AMT. DTSBZ261
|
|
00644 SET AATX-WAIVE-BOTH-NO-88 DTSBZ261
|
|
00645 AATX-WAIVE-INT-NO-88 DTSBZ261
|
|
00646 AATX-WAIVE-LATE-PEN-NO-88 TO TRUE. DTSBZ261
|
|
00647 DTSBZ261
|
|
00648 SET AATX-TOTAL-NO-ENTRY-88 DTSBZ261
|
|
00649 AATX-JAN-NO-ENTRY-88 DTSBZ261
|
|
00650 AATX-FEB-NO-ENTRY-88 DTSBZ261
|
|
00651 AATX-MAR-NO-ENTRY-88 DTSBZ261
|
|
00652 AATX-APR-NO-ENTRY-88 DTSBZ261
|
|
00653 AATX-MAY-NO-ENTRY-88 DTSBZ261
|
|
00654 AATX-JUN-NO-ENTRY-88 DTSBZ261
|
|
00655 AATX-JUL-NO-ENTRY-88 DTSBZ261
|
|
00656 AATX-AUG-NO-ENTRY-88 DTSBZ261
|
|
00657 AATX-SEP-NO-ENTRY-88 DTSBZ261
|
|
00658 AATX-OCT-NO-ENTRY-88 DTSBZ261
|
|
00659 AATX-NOV-NO-ENTRY-88 DTSBZ261
|
|
00660 AATX-DEC-NO-ENTRY-88 TO TRUE. DTSBZ261
|
|
00661 DTSBZ261
|
|
00662 SET AATX-VERIFIED-NO-88 TO TRUE. DTSBZ261
|
|
00663 MOVE 20030630 TO DTSBZ261
|
|
00664 AATX-RECEIVED-DATE DTSBZ261
|
|
00665 AATX-DEPOSIT-DATE. DTSBZ261
|
|
00666 MOVE 'SYS' TO AATX-RESPONSIBLE-ACTIVITY. DTSBZ261
|
|
00667 MOVE SPACES TO AATX-RESPONSIBLE-OP-ID. DTSBZ261
|
|
00668 MOVE SPACE TO AATX-DISREGARD-EDITS-IND. DTSBZ261
|
|
00669 SET AATX-PASSED-FULL-EDITS-YES-88 TO TRUE. DTSBZ261
|
|
00670 MOVE +0 TO AATX-PROCESSED-DATE. DTSBZ261
|
|
00671 DTSBZ261
|
|
00672 MOVE AATX-REC TO ASKL-REC. DTSBZ261
|
|
00673 DTSBZ261
|
|
00674 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261
|
|
00675 DTSBZ261
|
|
00676 PERFORM P5132B-WITHDRAW-WAGES THRU P5132B-EXIT. DTSBZ261
|
|
00677 DTSBZ261
|
|
00678 P5132-EXIT. DTSBZ261
|
|
00679 EXIT. DTSBZ261
|
|
00680 DTSBZ261
|
|
00681 P5132A-FIND-WAGES. DTSBZ261
|
|
00682 MOVE ZERO TO WRK-TOT-WAGE DTSBZ261
|
|
00683 WRK-TAX-WAGE. DTSBZ261
|
|
00684 DTSBZ261
|
|
00685 SET L421-RPT-TYPE-SUPPL-88 TO TRUE. DTSBZ261
|
|
00686 MOVE MPRF-EMP-NO TO L421-EMP-NO. DTSBZ261
|
|
00687 MOVE 20021 TO L421-QTR1. DTSBZ261
|
|
00688 MOVE 20022 TO L421-QTR2. DTSBZ261
|
|
00689 MOVE 20023 TO L421-QTR3. DTSBZ261
|
|
00690 MOVE 20024 TO L421-QTR4. DTSBZ261
|
|
00691 DTSBZ261
|
|
00692 PERFORM S421-FIND-WAGES THRU S421-EXIT. DTSBZ261
|
|
00693 DTSBZ261
|
|
00694 PERFORM DTSBZ261
|
|
00695 VARYING SUB FROM +1 BY +1 DTSBZ261
|
|
00696 UNTIL SUB > L421-WAGE-TBL-CNT DTSBZ261
|
|
00697 ADD L421-QTR1-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261
|
|
00698 ADD L421-QTR1-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261
|
|
00699 ADD L421-QTR2-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261
|
|
00700 ADD L421-QTR2-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261
|
|
00701 ADD L421-QTR3-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261
|
|
00702 ADD L421-QTR3-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261
|
|
00703 ADD L421-QTR4-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261
|
|
00704 ADD L421-QTR4-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261
|
|
00705 END-PERFORM. DTSBZ261
|
|
00706 DTSBZ261
|
|
00707 P5132A-EXIT. DTSBZ261
|
|
00708 EXIT. DTSBZ261
|
|
00709 DTSBZ261
|
|
00710 P5132B-WITHDRAW-WAGES. DTSBZ261
|
|
00711 MOVE ZERO TO WRK-SEQ-NO. DTSBZ261
|
|
00712 DTSBZ261
|
|
00713 PERFORM P5132B1-ADD-W001 THRU P5132B1-EXIT DTSBZ261
|
|
00714 VARYING SUB FROM +1 BY +1 DTSBZ261
|
|
00715 UNTIL SUB > L421-WAGE-TBL-CNT. DTSBZ261
|
|
00716 DTSBZ261
|
|
00717 P5132B-EXIT. DTSBZ261
|
|
00718 EXIT. DTSBZ261
|
|
00719 DTSBZ261
|
|
00720 P5132B1-ADD-W001. DTSBZ261
|
|
00721 MOVE LOW-VALUES TO W001-REC. DTSBZ261
|
|
00722 DTSBZ261
|
|
00723 MOVE AATX-BATCH-NO TO W001-BATCH-NO. DTSBZ261
|
|
00724 DTSBZ261
|
|
00725 MOVE AATX-ITEM-NO TO W001-ITEM-NO. DTSBZ261
|
|
00726 DTSBZ261
|
|
00727 MOVE MPRF-EMP-NO TO W001-EMP-NO. DTSBZ261
|
|
00728 DTSBZ261
|
|
00729 MOVE 20021 TO L004-QTR-5-9. DTSBZ261
|
|
00730 DTSBZ261
|
|
00731 MOVE L421-SSN (SUB) TO W001-SSN. DTSBZ261
|
|
00732 SET W001-SSN-VALID-88 TO TRUE. DTSBZ261
|
|
00733 DTSBZ261
|
|
00734 MOVE SPACES TO W001-NAME. DTSBZ261
|
|
00735 SET W001-NAME-VALID-88 TO TRUE. DTSBZ261
|
|
00736 DTSBZ261
|
|
00737 MOVE MHDR-CURR-RUN-DATE TO W001-RECEIVED-DATE. DTSBZ261
|
|
00738 DTSBZ261
|
|
00739 MOVE ZERO TO W001-RECEIVED-TIME. DTSBZ261
|
|
00740 DTSBZ261
|
|
00741 MOVE 'SYSTEM' TO W001-RESPONSIBLE-OP-ID. DTSBZ261
|
|
00742 DTSBZ261
|
|
00743 SET W001-SOURCE-RPT-88 TO TRUE. DTSBZ261
|
|
00744 DTSBZ261
|
|
00745 MOVE 1 TO L004-QTR-5-Q. DTSBZ261
|
|
00746 COMPUTE W001-WAGE-CHNG = DTSBZ261
|
|
00747 (L421-QTR1-CURR-WAGE (SUB) * -1). DTSBZ261
|
|
00748 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
00749 W001-TAX-WAGE DTSBZ261
|
|
00750 W001-PRIOR-WAGE. DTSBZ261
|
|
00751 DTSBZ261
|
|
00752 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
00753 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
00754 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
00755 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
00756 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
00757 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
00758 *& DTSBZ261
|
|
00759 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
00760 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
00761 MOVE L421-QTR1-CURR-WAGE (SUB) TO AMT-DISP1 DTSBZ261
|
|
00762 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
00763 ' ' AMT-DISP ' ' W001-YRQ DTSBZ261
|
|
00764 ' L421 ' AMT-DISP1. DTSBZ261
|
|
00765 *& DTSBZ261
|
|
00766 DTSBZ261
|
|
00767 MOVE 2 TO L004-QTR-5-Q DTSBZ261
|
|
00768 COMPUTE W001-WAGE-CHNG = DTSBZ261
|
|
00769 (L421-QTR2-CURR-WAGE (SUB) * -1). DTSBZ261
|
|
00770 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
00771 W001-TAX-WAGE DTSBZ261
|
|
00772 W001-PRIOR-WAGE. DTSBZ261
|
|
00773 DTSBZ261
|
|
00774 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
00775 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
00776 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
00777 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
00778 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
00779 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
00780 *& DTSBZ261
|
|
00781 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
00782 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
00783 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
00784 ' ' AMT-DISP ' ' W001-YRQ. DTSBZ261
|
|
00785 *& DTSBZ261
|
|
00786 DTSBZ261
|
|
00787 MOVE 3 TO L004-QTR-5-Q DTSBZ261
|
|
00788 COMPUTE W001-WAGE-CHNG = DTSBZ261
|
|
00789 (L421-QTR3-CURR-WAGE (SUB) * -1). DTSBZ261
|
|
00790 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
00791 W001-TAX-WAGE DTSBZ261
|
|
00792 W001-PRIOR-WAGE. DTSBZ261
|
|
00793 DTSBZ261
|
|
00794 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
00795 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
00796 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
00797 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
00798 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
00799 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
00800 *& DTSBZ261
|
|
00801 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
00802 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
00803 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
00804 ' ' AMT-DISP ' ' W001-YRQ. DTSBZ261
|
|
00805 *& DTSBZ261
|
|
00806 DTSBZ261
|
|
00807 MOVE 4 TO L004-QTR-5-Q DTSBZ261
|
|
00808 COMPUTE W001-WAGE-CHNG = DTSBZ261
|
|
00809 (L421-QTR4-CURR-WAGE (SUB) * -1). DTSBZ261
|
|
00810 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
00811 W001-TAX-WAGE DTSBZ261
|
|
00812 W001-PRIOR-WAGE. DTSBZ261
|
|
00813 DTSBZ261
|
|
00814 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
00815 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
00816 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
00817 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
00818 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
00819 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
00820 *& DTSBZ261
|
|
00821 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
00822 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
00823 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
00824 ' ' AMT-DISP ' ' W001-YRQ. DTSBZ261
|
|
00825 *& DTSBZ261
|
|
00826 DTSBZ261
|
|
00827 P5132B1-EXIT. DTSBZ261
|
|
00828 EXIT. DTSBZ261
|
|
00829 DTSBZ261
|
|
00830 P5133-REVERSE-MPAY. DTSBZ261
|
|
00831 IF WRK-MPAY-FOUND-NO DTSBZ261
|
|
00832 OR WRK-REMIT-AMT = ZERO DTSBZ261
|
|
00833 GO TO P5133-EXIT. DTSBZ261
|
|
00834 DTSBZ261
|
|
00835 MOVE LOW-VALUES TO APAY-REC. DTSBZ261
|
|
00836 DTSBZ261
|
|
00837 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSBZ261
|
|
00838 NEXT SENTENCE DTSBZ261
|
|
00839 ELSE DTSBZ261
|
|
00840 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSBZ261
|
|
00841 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261
|
|
00842 DTSBZ261
|
|
00843 MOVE AHDR-BATCH-NO TO APAY-BATCH-NO. DTSBZ261
|
|
00844 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSBZ261
|
|
00845 MOVE AHDR-ATC-FILE-TRAN-CNT TO APAY-ITEM-NO. DTSBZ261
|
|
00846 SET APAY-PAY-88 TO TRUE. DTSBZ261
|
|
00847 DTSBZ261
|
|
00848 MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK. DTSBZ261
|
|
00849 MOVE MPRF-EMP-NO TO APAY-EMP-NO. DTSBZ261
|
|
00850 SET APAY-PAY-REV-88 TO TRUE. DTSBZ261
|
|
00851 DTSBZ261
|
|
00852 COMPUTE APAY-REMIT-AMT = DTSBZ261
|
|
00853 -1 * WRK-REMIT-AMT. DTSBZ261
|
|
00854 COMPUTE WRK-TOT-REVERSE = DTSBZ261
|
|
00855 (WRK-TOT-REVERSE + APAY-REMIT-AMT). DTSBZ261
|
|
00856 DTSBZ261
|
|
00857 SET APAY-WAIVE-INT-NO-88 DTSBZ261
|
|
00858 APAY-WAIVE-LATE-PEN-NO-88 DTSBZ261
|
|
00859 APAY-NSF-PEN-CHARGE-NO-88 TO TRUE. DTSBZ261
|
|
00860 DTSBZ261
|
|
00861 MOVE 20030630 TO DTSBZ261
|
|
00862 APAY-RECEIVED-DATE DTSBZ261
|
|
00863 APAY-DEPOSIT-DATE. DTSBZ261
|
|
00864 MOVE +0 TO APAY-APPLIC-YRQ. DTSBZ261
|
|
00865 MOVE SPACES TO APAY-APPLIC-IND. DTSBZ261
|
|
00866 DTSBZ261
|
|
00867 MOVE MPAY-BATCH-NO TO APAY-APPLIC-BATCH-NO. DTSBZ261
|
|
00868 MOVE MPAY-ITEM-NO TO APAY-APPLIC-ITEM-NO. DTSBZ261
|
|
00869 DTSBZ261
|
|
00870 MOVE 'SYS' TO APAY-RESPONSIBLE-ACTIVITY. DTSBZ261
|
|
00871 MOVE SPACES TO APAY-RESPONSIBLE-OP-ID. DTSBZ261
|
|
00872 MOVE SPACE TO APAY-DISREGARD-EDITS-IND. DTSBZ261
|
|
00873 MOVE +0 TO APAY-PROCESSED-DATE. DTSBZ261
|
|
00874 COMPUTE AHDR-ATC-FILE-REMIT-AMT = DTSBZ261
|
|
00875 (WRK-TOT-REMIT + WRK-TOT-REVERSE). DTSBZ261
|
|
00876 DTSBZ261
|
|
00877 MOVE APAY-REC TO ASKL-REC. DTSBZ261
|
|
00878 DTSBZ261
|
|
00879 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261
|
|
00880 DTSBZ261
|
|
00881 P5133-EXIT. DTSBZ261
|
|
00882 EXIT. DTSBZ261
|
|
00883 DTSBZ261
|
|
00884 P5134-ENTER-AATX. DTSBZ261
|
|
00885 * IF WRK-MRPT-FOUND-NO DTSBZ261
|
|
00886 * GO TO P5134-EXIT. DTSBZ261
|
|
00887 DTSBZ261
|
|
00888 *& DTSBZ261
|
|
00889 * DISPLAY 'P5134 ADD ' MPRF-EMP-NO. DTSBZ261
|
|
00890 *& DTSBZ261
|
|
00891 MOVE LOW-VALUES TO AATX-REC. DTSBZ261
|
|
00892 DTSBZ261
|
|
00893 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSBZ261
|
|
00894 NEXT SENTENCE DTSBZ261
|
|
00895 ELSE DTSBZ261
|
|
00896 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSBZ261
|
|
00897 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261
|
|
00898 DTSBZ261
|
|
00899 MOVE AHDR-BATCH-NO TO AATX-BATCH-NO. DTSBZ261
|
|
00900 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSBZ261
|
|
00901 MOVE AHDR-ATC-FILE-TRAN-CNT TO AATX-ITEM-NO. DTSBZ261
|
|
00902 SET AATX-ATX-88 TO TRUE. DTSBZ261
|
|
00903 DTSBZ261
|
|
00904 MOVE MPRF-PRIMARY-NAME TO AATX-NAME-CHECK. DTSBZ261
|
|
00905 MOVE MPRF-EMP-NO TO AATX-EMP-NO. DTSBZ261
|
|
00906 SET AATX-ORIG-88 TO TRUE. DTSBZ261
|
|
00907 MOVE 20021 TO AATX-YRQ. DTSBZ261
|
|
00908 DTSBZ261
|
|
00909 MOVE WRK-TOT-WAGE TO AATX-TOT-WAGE. DTSBZ261
|
|
00910 MOVE WRK-TAX-WAGE TO AATX-TAX-WAGE. DTSBZ261
|
|
00911 COMPUTE AATX-EXCESS-WAGE = DTSBZ261
|
|
00912 (AATX-TOT-WAGE - AATX-TAX-WAGE). DTSBZ261
|
|
00913 *& DTSBZ261
|
|
00914 * DISPLAY 'ADD ' EMP-ACCT-DISP DTSBZ261
|
|
00915 * ' BTC ' AATX-BATCH-NO DTSBZ261
|
|
00916 * ' ITM ' AATX-ITEM-NO DTSBZ261
|
|
00917 * ' TOT ' WRK-TOT-WAGE DTSBZ261
|
|
00918 * ' TAX ' WRK-TAX-WAGE DTSBZ261
|
|
00919 * ' REMIT ' AATX-REMIT-AMT. DTSBZ261
|
|
00920 *& DTSBZ261
|
|
00921 DTSBZ261
|
|
00922 MOVE WRK-REMIT-AMT TO AATX-REMIT-AMT. DTSBZ261
|
|
00923 COMPUTE WRK-TOT-REMIT = DTSBZ261
|
|
00924 (WRK-TOT-REMIT + WRK-REMIT-AMT). DTSBZ261
|
|
00925 SET AATX-WAIVE-BOTH-NO-88 DTSBZ261
|
|
00926 AATX-WAIVE-INT-NO-88 DTSBZ261
|
|
00927 AATX-WAIVE-LATE-PEN-NO-88 TO TRUE. DTSBZ261
|
|
00928 DTSBZ261
|
|
00929 MOVE WRK-JAN-CNT TO AATX-JAN-EMPL-CNT. DTSBZ261
|
|
00930 MOVE WRK-FEB-CNT TO AATX-FEB-EMPL-CNT. DTSBZ261
|
|
00931 MOVE WRK-MAR-CNT TO AATX-MAR-EMPL-CNT. DTSBZ261
|
|
00932 MOVE WRK-APR-CNT TO AATX-APR-EMPL-CNT. DTSBZ261
|
|
00933 MOVE WRK-MAY-CNT TO AATX-MAY-EMPL-CNT. DTSBZ261
|
|
00934 MOVE WRK-JUN-CNT TO AATX-JUN-EMPL-CNT. DTSBZ261
|
|
00935 MOVE WRK-JUL-CNT TO AATX-JUL-EMPL-CNT. DTSBZ261
|
|
00936 MOVE WRK-AUG-CNT TO AATX-AUG-EMPL-CNT. DTSBZ261
|
|
00937 MOVE WRK-SEP-CNT TO AATX-SEP-EMPL-CNT. DTSBZ261
|
|
00938 MOVE WRK-OCT-CNT TO AATX-OCT-EMPL-CNT. DTSBZ261
|
|
00939 MOVE WRK-NOV-CNT TO AATX-NOV-EMPL-CNT. DTSBZ261
|
|
00940 MOVE WRK-DEC-CNT TO AATX-DEC-EMPL-CNT. DTSBZ261
|
|
00941 DTSBZ261
|
|
00942 *& DTSBZ261
|
|
00943 IF MRPT-EMP-NO = 133080 OR 135921 DTSBZ261
|
|
00944 DISPLAY 'P5134 ' AATX-EMP-NO DTSBZ261
|
|
00945 ' ' AATX-JAN-EMPL-CNT DTSBZ261
|
|
00946 ' ' AATX-FEB-EMPL-CNT DTSBZ261
|
|
00947 ' ' AATX-MAR-EMPL-CNT DTSBZ261
|
|
00948 DISPLAY AATX-APR-EMPL-CNT DTSBZ261
|
|
00949 ' ' AATX-MAY-EMPL-CNT DTSBZ261
|
|
00950 ' ' AATX-JUN-EMPL-CNT DTSBZ261
|
|
00951 ' ' AATX-JUL-EMPL-CNT DTSBZ261
|
|
00952 DISPLAY AATX-AUG-EMPL-CNT DTSBZ261
|
|
00953 ' ' AATX-SEP-EMPL-CNT DTSBZ261
|
|
00954 ' ' AATX-OCT-EMPL-CNT DTSBZ261
|
|
00955 ' ' AATX-NOV-EMPL-CNT DTSBZ261
|
|
00956 ' ' AATX-DEC-EMPL-CNT. DTSBZ261
|
|
00957 *& DTSBZ261
|
|
00958 COMPUTE MRPT-TOTAL-EMPL-CNT = DTSBZ261
|
|
00959 WRK-JAN-CNT + DTSBZ261
|
|
00960 WRK-FEB-CNT + DTSBZ261
|
|
00961 WRK-MAR-CNT + DTSBZ261
|
|
00962 WRK-APR-CNT + DTSBZ261
|
|
00963 WRK-MAY-CNT + DTSBZ261
|
|
00964 WRK-JUN-CNT + DTSBZ261
|
|
00965 WRK-JUL-CNT + DTSBZ261
|
|
00966 WRK-AUG-CNT + DTSBZ261
|
|
00967 WRK-SEP-CNT + DTSBZ261
|
|
00968 WRK-OCT-CNT + DTSBZ261
|
|
00969 WRK-NOV-CNT + DTSBZ261
|
|
00970 WRK-DEC-CNT. DTSBZ261
|
|
00971 DTSBZ261
|
|
00972 SET AATX-VERIFIED-NO-88 TO TRUE. DTSBZ261
|
|
00973 *& MOVE MHDR-CURR-RUN-DATE TO DTSBZ261
|
|
00974 MOVE 20030415 TO DTSBZ261
|
|
00975 AATX-RECEIVED-DATE DTSBZ261
|
|
00976 AATX-DEPOSIT-DATE. DTSBZ261
|
|
00977 MOVE 'SYS' TO AATX-RESPONSIBLE-ACTIVITY. DTSBZ261
|
|
00978 MOVE SPACES TO AATX-RESPONSIBLE-OP-ID. DTSBZ261
|
|
00979 MOVE SPACE TO AATX-DISREGARD-EDITS-IND. DTSBZ261
|
|
00980 SET AATX-PASSED-FULL-EDITS-YES-88 TO TRUE. DTSBZ261
|
|
00981 MOVE +0 TO AATX-PROCESSED-DATE. DTSBZ261
|
|
00982 COMPUTE AHDR-ATC-FILE-REMIT-AMT = DTSBZ261
|
|
00983 (WRK-TOT-REMIT + WRK-TOT-REVERSE). DTSBZ261
|
|
00984 DTSBZ261
|
|
00985 MOVE AATX-REC TO ASKL-REC. DTSBZ261
|
|
00986 DTSBZ261
|
|
00987 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261
|
|
00988 DTSBZ261
|
|
00989 PERFORM P5134A-ADD-WAGES THRU P5134A-EXIT. DTSBZ261
|
|
00990 DTSBZ261
|
|
00991 P5134-EXIT. DTSBZ261
|
|
00992 EXIT. DTSBZ261
|
|
00993 DTSBZ261
|
|
00994 P5134A-ADD-WAGES. DTSBZ261
|
|
00995 MOVE ZERO TO WRK-SEQ-NO. DTSBZ261
|
|
00996 DTSBZ261
|
|
00997 PERFORM P5134A1-ADD-W001 THRU P5134A1-EXIT DTSBZ261
|
|
00998 VARYING SUB FROM +1 BY +1 DTSBZ261
|
|
00999 UNTIL SUB > L421-WAGE-TBL-CNT. DTSBZ261
|
|
01000 DTSBZ261
|
|
01001 P5134A-EXIT. DTSBZ261
|
|
01002 EXIT. DTSBZ261
|
|
01003 DTSBZ261
|
|
01004 P5134A1-ADD-W001. DTSBZ261
|
|
01005 *& DTSBZ261
|
|
01006 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
01007 DISPLAY 'P5134 ' EMP-ACCT-DISP DTSBZ261
|
|
01008 ' BTC ' AATX-BATCH-NO DTSBZ261
|
|
01009 ' ITM ' AATX-ITEM-NO. DTSBZ261
|
|
01010 *& DTSBZ261
|
|
01011 MOVE LOW-VALUES TO W001-REC. DTSBZ261
|
|
01012 DTSBZ261
|
|
01013 MOVE AATX-BATCH-NO TO W001-BATCH-NO. DTSBZ261
|
|
01014 DTSBZ261
|
|
01015 MOVE AATX-ITEM-NO TO W001-ITEM-NO. DTSBZ261
|
|
01016 DTSBZ261
|
|
01017 MOVE MPRF-EMP-NO TO W001-EMP-NO. DTSBZ261
|
|
01018 DTSBZ261
|
|
01019 MOVE 20021 TO L004-QTR-5-9. DTSBZ261
|
|
01020 DTSBZ261
|
|
01021 MOVE L421-SSN (SUB) TO W001-SSN. DTSBZ261
|
|
01022 SET W001-SSN-VALID-88 TO TRUE. DTSBZ261
|
|
01023 DTSBZ261
|
|
01024 MOVE SPACES TO W001-NAME. DTSBZ261
|
|
01025 SET W001-NAME-VALID-88 TO TRUE. DTSBZ261
|
|
01026 DTSBZ261
|
|
01027 MOVE MHDR-CURR-RUN-DATE TO W001-RECEIVED-DATE. DTSBZ261
|
|
01028 DTSBZ261
|
|
01029 MOVE ZERO TO W001-RECEIVED-TIME. DTSBZ261
|
|
01030 DTSBZ261
|
|
01031 MOVE 'SYSTEM' TO W001-RESPONSIBLE-OP-ID. DTSBZ261
|
|
01032 DTSBZ261
|
|
01033 SET W001-SOURCE-RPT-88 TO TRUE. DTSBZ261
|
|
01034 DTSBZ261
|
|
01035 MOVE 1 TO L004-QTR-5-Q. DTSBZ261
|
|
01036 MOVE L421-QTR1-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261
|
|
01037 MOVE L421-QTR1-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261
|
|
01038 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
01039 W001-PRIOR-WAGE. DTSBZ261
|
|
01040 DTSBZ261
|
|
01041 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
01042 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
01043 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
01044 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
01045 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
01046 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
01047 *& DTSBZ261
|
|
01048 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
01049 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
01050 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261
|
|
01051 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
01052 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261
|
|
01053 *& DTSBZ261
|
|
01054 DTSBZ261
|
|
01055 MOVE 2 TO L004-QTR-5-Q DTSBZ261
|
|
01056 MOVE L421-QTR2-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261
|
|
01057 MOVE L421-QTR2-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261
|
|
01058 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
01059 W001-PRIOR-WAGE. DTSBZ261
|
|
01060 DTSBZ261
|
|
01061 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
01062 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
01063 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
01064 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
01065 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
01066 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
01067 *& DTSBZ261
|
|
01068 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
01069 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
01070 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261
|
|
01071 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
01072 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261
|
|
01073 *& DTSBZ261
|
|
01074 DTSBZ261
|
|
01075 MOVE 3 TO L004-QTR-5-Q DTSBZ261
|
|
01076 MOVE L421-QTR3-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261
|
|
01077 MOVE L421-QTR3-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261
|
|
01078 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
01079 W001-PRIOR-WAGE. DTSBZ261
|
|
01080 DTSBZ261
|
|
01081 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
01082 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
01083 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
01084 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
01085 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
01086 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
01087 *& DTSBZ261
|
|
01088 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
01089 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
01090 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261
|
|
01091 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
01092 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261
|
|
01093 *& DTSBZ261
|
|
01094 DTSBZ261
|
|
01095 MOVE 4 TO L004-QTR-5-Q DTSBZ261
|
|
01096 MOVE L421-QTR4-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261
|
|
01097 MOVE L421-QTR4-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261
|
|
01098 MOVE ZERO TO W001-CURR-WAGE DTSBZ261
|
|
01099 W001-PRIOR-WAGE. DTSBZ261
|
|
01100 DTSBZ261
|
|
01101 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261
|
|
01102 ADD +1 TO WRK-SEQ-NO DTSBZ261
|
|
01103 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261
|
|
01104 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261
|
|
01105 MOVE W001-REC TO WSKL-REC. DTSBZ261
|
|
01106 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261
|
|
01107 *& DTSBZ261
|
|
01108 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261
|
|
01109 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261
|
|
01110 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261
|
|
01111 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261
|
|
01112 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261
|
|
01113 *& DTSBZ261
|
|
01114 DTSBZ261
|
|
01115 P5134A1-EXIT. DTSBZ261
|
|
01116 EXIT. DTSBZ261
|
|
01117 DTSBZ261
|
|
01118 P5200-EVL. DTSBZ261
|
|
01119 ADD +1000 TO L005-ABSTIME. DTSBZ261
|
|
01120 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBZ261
|
|
01121 DTSBZ261
|
|
01122 MOVE LOW-VALUE TO MEVL-REC. DTSBZ261
|
|
01123 DTSBZ261
|
|
01124 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBZ261
|
|
01125 DTSBZ261
|
|
01126 SET MEVL-EVL-88 TO TRUE. DTSBZ261
|
|
01127 DTSBZ261
|
|
01128 MOVE L005-DATE TO MEVL-DATE. DTSBZ261
|
|
01129 DTSBZ261
|
|
01130 MOVE L005-TIME TO MEVL-TIME. DTSBZ261
|
|
01131 DTSBZ261
|
|
01132 MOVE +0 TO MEVL-PURGE-DATE. DTSBZ261
|
|
01133 DTSBZ261
|
|
01134 MOVE WRK-EVENT-TXT TO MEVL-TEXT. DTSBZ261
|
|
01135 DTSBZ261
|
|
01136 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBZ261
|
|
01137 DTSBZ261
|
|
01138 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBZ261
|
|
01139 DTSBZ261
|
|
01140 MOVE L005-DATE TO MEVL-ESTB-DATE DTSBZ261
|
|
01141 MEVL-CHNG-DATE. DTSBZ261
|
|
01142 DTSBZ261
|
|
01143 MOVE MEVL-REC TO MSKL-REC. DTSBZ261
|
|
01144 DTSBZ261
|
|
01145 PERFORM S910-WRITE THRU S910-EXIT. DTSBZ261
|
|
01146 DTSBZ261
|
|
01147 P5200-EXIT. DTSBZ261
|
|
01148 EXIT. DTSBZ261
|
|
01149 DTSBZ261
|
|
01150 T0000-TERMINATE. DTSBZ261
|
|
01151 DTSBZ261
|
|
01152 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT. DTSBZ261
|
|
01153 DTSBZ261
|
|
01154 PERFORM S923-CLOSE THRU S923-EXIT. DTSBZ261
|
|
01155 DTSBZ261
|
|
01156 MOVE MHDR-LAST-USED-BATCH-NO TO HOLD-LAST-USED-BATCH-NO. DTSBZ261
|
|
01157 DTSBZ261
|
|
01158 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261
|
|
01159 DTSBZ261
|
|
01160 PERFORM S910-READ THRU S910-EXIT. DTSBZ261
|
|
01161 IF L910-NO-REC-88 DTSBZ261
|
|
01162 MOVE 'MHDR RECORD NOT FOUND (T0000)' DTSBZ261
|
|
01163 TO ABEND-MSG DTSBZ261
|
|
01164 PERFORM S999-ABEND THRU S999-EXIT. DTSBZ261
|
|
01165 DTSBZ261
|
|
01166 MOVE MSKL-REC TO MHDR-REC. DTSBZ261
|
|
01167 MOVE HOLD-LAST-USED-BATCH-NO TO MHDR-LAST-USED-BATCH-NO. DTSBZ261
|
|
01168 MOVE MHDR-CURR-RUN-DATE TO MHDR-CHNG-DATE. DTSBZ261
|
|
01169 MOVE MHDR-REC TO MSKL-REC. DTSBZ261
|
|
01170 DTSBZ261
|
|
01171 PERFORM S910-REWRITE THRU S910-EXIT. DTSBZ261
|
|
01172 DTSBZ261
|
|
01173 DISPLAY ' '. DTSBZ261
|
|
01174 DTSBZ261
|
|
01175 DISPLAY '*** DTSBZ261 TERMINATION STATISTICS ***'. DTSBZ261
|
|
01176 DTSBZ261
|
|
01177 DISPLAY ' '. DTSBZ261
|
|
01178 DTSBZ261
|
|
01179 DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSBZ261
|
|
01180 WRK-MPRF-CNT. DTSBZ261
|
|
01181 DTSBZ261
|
|
01182 DISPLAY 'NUMBER OF ACCOUNTS UPDATED : 'DTSBZ261
|
|
01183 WRK-UPDATE-CNT. DTSBZ261
|
|
01184 DTSBZ261
|
|
01185 DISPLAY 'NUMBER OF EMPLOYERS EXCLUDED : 'DTSBZ261
|
|
01186 WRK-EXCLUDE-CNT. DTSBZ261
|
|
01187 DTSBZ261
|
|
01188 DISPLAY 'AHDR REMIT AMOUNT : 'DTSBZ261
|
|
01189 AHDR-ATC-FILE-REMIT-AMT. DTSBZ261
|
|
01190 DTSBZ261
|
|
01191 DISPLAY 'STARTING BATCH : 'DTSBZ261
|
|
01192 WRK-START-BATCH. DTSBZ261
|
|
01193 DTSBZ261
|
|
01194 DISPLAY 'ENDING BATCH : 'DTSBZ261
|
|
01195 HOLD-LAST-USED-BATCH-NO. DTSBZ261
|
|
01196 DTSBZ261
|
|
01197 * DISPLAY 'AMOUNT OF INTEREST REVERSED : 'DTSBZ261
|
|
01198 * WRK-INTEREST-AMT. DTSBZ261
|
|
01199 DTSBZ261
|
|
01200 PERFORM S910-CLOSE THRU S910-EXIT. DTSBZ261
|
|
01201 PERFORM S931-CLOSE THRU S931-EXIT. DTSBZ261
|
|
01202 PERFORM S981B-CLOSE THRU S981B-EXIT. DTSBZ261
|
|
01203 PERFORM S983-CLOSE THRU S983-EXIT. DTSBZ261
|
|
01204 DTSBZ261
|
|
01205 T0000-EXIT. DTSBZ261
|
|
01206 EXIT. DTSBZ261
|
|
01207 EJECT DTSBZ261
|
|
01208 DTSBZ261
|
|
01209 S1000-INITIATE-AHDR. DTSBZ261
|
|
01210 MOVE LOW-VALUES TO AHDR-REC. DTSBZ261
|
|
01211 DTSBZ261
|
|
01212 IF MHDR-LAST-USED-BATCH-NO < +99999 DTSBZ261
|
|
01213 COMPUTE AHDR-BATCH-NO = MHDR-LAST-USED-BATCH-NO + 1 DTSBZ261
|
|
01214 ELSE DTSBZ261
|
|
01215 MOVE +1 TO AHDR-BATCH-NO. DTSBZ261
|
|
01216 DTSBZ261
|
|
01217 MOVE +0 TO AHDR-ITEM-NO. DTSBZ261
|
|
01218 SET AHDR-HDR-88 TO TRUE. DTSBZ261
|
|
01219 SET AHDR-BATCH-BALANCED-YES-88 TO TRUE. DTSBZ261
|
|
01220 SET AHDR-BATCH-HELD-NO-88 TO TRUE. DTSBZ261
|
|
01221 SET AHDR-ESTB-SYSTEM-88 TO TRUE. DTSBZ261
|
|
01222 MOVE SPACES TO AHDR-CHNG-OP-ID. DTSBZ261
|
|
01223 MOVE +0 TO AHDR-CHNG-DATE. DTSBZ261
|
|
01224 MOVE MHDR-CURR-RUN-DATE TO AHDR-ESTB-DATE DTSBZ261
|
|
01225 AHDR-RECEIVED-DATE DTSBZ261
|
|
01226 AHDR-DEPOSIT-DATE. DTSBZ261
|
|
01227 MOVE +0 TO AHDR-LAST-USED-ITEM-NO DTSBZ261
|
|
01228 AHDR-CONTROL-TRAN-CNT DTSBZ261
|
|
01229 AHDR-ATC-FILE-TRAN-CNT DTSBZ261
|
|
01230 AHDR-PROC-TRAN-CNT DTSBZ261
|
|
01231 AHDR-CONTROL-REMIT-AMT DTSBZ261
|
|
01232 AHDR-ATC-FILE-REMIT-AMT DTSBZ261
|
|
01233 AHDR-PROC-REMIT-AMT. DTSBZ261
|
|
01234 DTSBZ261
|
|
01235 S1000-EXIT. DTSBZ261
|
|
01236 EXIT. DTSBZ261
|
|
01237 DTSBZ261
|
|
01238 S2000-TERMINATE-AHDR. DTSBZ261
|
|
01239 IF AHDR-ATC-FILE-TRAN-CNT = +0 DTSBZ261
|
|
01240 GO TO S2000-EXIT. DTSBZ261
|
|
01241 DTSBZ261
|
|
01242 MOVE AHDR-BATCH-NO TO MHDR-LAST-USED-BATCH-NO. DTSBZ261
|
|
01243 MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-LAST-USED-ITEM-NO. DTSBZ261
|
|
01244 MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-CONTROL-TRAN-CNT. DTSBZ261
|
|
01245 MOVE AHDR-ATC-FILE-REMIT-AMT TO AHDR-CONTROL-REMIT-AMT. DTSBZ261
|
|
01246 MOVE AHDR-REC TO ASKL-REC. DTSBZ261
|
|
01247 DTSBZ261
|
|
01248 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261
|
|
01249 DTSBZ261
|
|
01250 S2000-EXIT. DTSBZ261
|
|
01251 EXIT. DTSBZ261
|
|
01252 DTSBZ261
|
|
01253 S004-EDIT-QTR. DTSBZ261
|
|
01254 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBZ261
|
|
01255 DTSBZ261
|
|
01256 S004-EXIT. DTSBZ261
|
|
01257 EXIT. DTSBZ261
|
|
01258 SKIP3 DTSBZ261
|
|
01259 S410-FILING-SCHED. DTSBZ261
|
|
01260 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBZ261
|
|
01261 DTSBZ261
|
|
01262 S410-EXIT. DTSBZ261
|
|
01263 EXIT. DTSBZ261
|
|
01264 DTSBZ261
|
|
01265 S421-FIND-WAGES. DTSBZ261
|
|
01266 CALL 'DTSBU421' USING L421-LINK-AREA. DTSBZ261
|
|
01267 S421-EXIT. DTSBZ261
|
|
01268 EXIT. DTSBZ261
|
|
01269 DTSBZ261
|
|
01270 S005-FROM-SYS. DTSBZ261
|
|
01271 SET L005-FROM-SYS TO TRUE. DTSBZ261
|
|
01272 GO TO S005-TIME. DTSBZ261
|
|
01273 DTSBZ261
|
|
01274 S005-FROM-ABSTIME. DTSBZ261
|
|
01275 SET L005-FROM-ABSTIME TO TRUE. DTSBZ261
|
|
01276 GO TO S005-TIME. DTSBZ261
|
|
01277 DTSBZ261
|
|
01278 S005-TIME. DTSBZ261
|
|
01279 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBZ261
|
|
01280 S005-EXIT. DTSBZ261
|
|
01281 EXIT. DTSBZ261
|
|
01282 DTSBZ261
|
|
01283 S910-OPEN-READ. DTSBZ261
|
|
01284 SET L910-OPEN-READ-88 TO TRUE. DTSBZ261
|
|
01285 GO TO S910-MSTR-IO. DTSBZ261
|
|
01286 DTSBZ261
|
|
01287 S910-OPEN-UPDATE-NO-AIX. DTSBZ261
|
|
01288 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBZ261
|
|
01289 GO TO S910-MSTR-IO. DTSBZ261
|
|
01290 DTSBZ261
|
|
01291 S910-OPEN-UPDATE-HDR. DTSBZ261
|
|
01292 SET L910-OPEN-UPDATE-HDR-88 TO TRUE. DTSBZ261
|
|
01293 GO TO S910-MSTR-IO. DTSBZ261
|
|
01294 DTSBZ261
|
|
01295 S910-OPEN-UPDATE. DTSBZ261
|
|
01296 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBZ261
|
|
01297 GO TO S910-MSTR-IO. DTSBZ261
|
|
01298 DTSBZ261
|
|
01299 S910-READ. DTSBZ261
|
|
01300 SET L910-READ-88 TO TRUE. DTSBZ261
|
|
01301 GO TO S910-MSTR-IO. DTSBZ261
|
|
01302 DTSBZ261
|
|
01303 S910-START-BROWSE. DTSBZ261
|
|
01304 SET L910-START-BROWSE-88 TO TRUE. DTSBZ261
|
|
01305 GO TO S910-MSTR-IO. DTSBZ261
|
|
01306 DTSBZ261
|
|
01307 S910-READ-NEXT. DTSBZ261
|
|
01308 SET L910-READ-NEXT-88 TO TRUE. DTSBZ261
|
|
01309 GO TO S910-MSTR-IO. DTSBZ261
|
|
01310 DTSBZ261
|
|
01311 S910-COUNT. DTSBZ261
|
|
01312 SET L910-COUNT-88 TO TRUE. DTSBZ261
|
|
01313 GO TO S910-MSTR-IO. DTSBZ261
|
|
01314 DTSBZ261
|
|
01315 S910-WRITE. DTSBZ261
|
|
01316 SET L910-WRITE-88 TO TRUE. DTSBZ261
|
|
01317 GO TO S910-MSTR-IO. DTSBZ261
|
|
01318 DTSBZ261
|
|
01319 S910-REWRITE. DTSBZ261
|
|
01320 SET L910-REWRITE-88 TO TRUE. DTSBZ261
|
|
01321 GO TO S910-MSTR-IO. DTSBZ261
|
|
01322 DTSBZ261
|
|
01323 S910-DELETE. DTSBZ261
|
|
01324 SET L910-DELETE-88 TO TRUE. DTSBZ261
|
|
01325 GO TO S910-MSTR-IO. DTSBZ261
|
|
01326 DTSBZ261
|
|
01327 S910-CLOSE. DTSBZ261
|
|
01328 SET L910-CLOSE-88 TO TRUE. DTSBZ261
|
|
01329 GO TO S910-MSTR-IO. DTSBZ261
|
|
01330 DTSBZ261
|
|
01331 S910-MSTR-IO. DTSBZ261
|
|
01332 CALL 'DTSBU910' USING L910-LINK-AREA DTSBZ261
|
|
01333 MSKL-REC. DTSBZ261
|
|
01334 S910-EXIT. DTSBZ261
|
|
01335 EXIT. DTSBZ261
|
|
01336 SKIP3 DTSBZ261
|
|
01337 S923-OPEN-UPDATE. DTSBZ261
|
|
01338 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBZ261
|
|
01339 GO TO S923-ATC-IO. DTSBZ261
|
|
01340 DTSBZ261
|
|
01341 S923-READ. DTSBZ261
|
|
01342 SET L923-READ-88 TO TRUE. DTSBZ261
|
|
01343 GO TO S923-ATC-IO. DTSBZ261
|
|
01344 DTSBZ261
|
|
01345 S923-START-BROWSE. DTSBZ261
|
|
01346 SET L923-START-BROWSE-88 TO TRUE. DTSBZ261
|
|
01347 GO TO S923-ATC-IO. DTSBZ261
|
|
01348 DTSBZ261
|
|
01349 S923-READ-NEXT. DTSBZ261
|
|
01350 SET L923-READ-NEXT-88 TO TRUE. DTSBZ261
|
|
01351 GO TO S923-ATC-IO. DTSBZ261
|
|
01352 DTSBZ261
|
|
01353 S923-WRITE. DTSBZ261
|
|
01354 SET L923-WRITE-88 TO TRUE. DTSBZ261
|
|
01355 GO TO S923-ATC-IO. DTSBZ261
|
|
01356 DTSBZ261
|
|
01357 S923-REWRITE. DTSBZ261
|
|
01358 SET L923-REWRITE-88 TO TRUE. DTSBZ261
|
|
01359 GO TO S923-ATC-IO. DTSBZ261
|
|
01360 DTSBZ261
|
|
01361 S923-DELETE. DTSBZ261
|
|
01362 SET L923-DELETE-88 TO TRUE. DTSBZ261
|
|
01363 GO TO S923-ATC-IO. DTSBZ261
|
|
01364 DTSBZ261
|
|
01365 S923-CLOSE. DTSBZ261
|
|
01366 SET L923-CLOSE-88 TO TRUE. DTSBZ261
|
|
01367 GO TO S923-ATC-IO. DTSBZ261
|
|
01368 DTSBZ261
|
|
01369 S923-ATC-IO. DTSBZ261
|
|
01370 CALL 'DTSBU923' USING L923-LINK-AREA DTSBZ261
|
|
01371 ASKL-REC. DTSBZ261
|
|
01372 S923-EXIT. DTSBZ261
|
|
01373 EXIT. DTSBZ261
|
|
01374 SKIP3 DTSBZ261
|
|
01375 S931-OPEN-READ. DTSBZ261
|
|
01376 SET L931-OPEN-READ-88 TO TRUE. DTSBZ261
|
|
01377 GO TO S931-REF-I. DTSBZ261
|
|
01378 DTSBZ261
|
|
01379 S931-CLOSE. DTSBZ261
|
|
01380 SET L931-CLOSE-88 TO TRUE. DTSBZ261
|
|
01381 GO TO S931-REF-I. DTSBZ261
|
|
01382 DTSBZ261
|
|
01383 S931-REF-I. DTSBZ261
|
|
01384 CALL 'DTSBU931' USING L931-LINK-AREA DTSBZ261
|
|
01385 FSKL-REC. DTSBZ261
|
|
01386 S931-EXIT. DTSBZ261
|
|
01387 EXIT. DTSBZ261
|
|
01388 DTSBZ261
|
|
01389 S981A-OPEN. DTSBZ261
|
|
01390 SET L981-OPEN-READ-88 TO TRUE. DTSBZ261
|
|
01391 CALL 'DTSBU981' USING L981-LINK-AREA DTSBZ261
|
|
01392 WWGH-REC. DTSBZ261
|
|
01393 S981A-EXIT. DTSBZ261
|
|
01394 EXIT. DTSBZ261
|
|
01395 SKIP3 DTSBZ261
|
|
01396 S981B-CLOSE. DTSBZ261
|
|
01397 SET L981-CLOSE-88 TO TRUE. DTSBZ261
|
|
01398 CALL 'DTSBU981' USING L981-LINK-AREA DTSBZ261
|
|
01399 WWGH-REC. DTSBZ261
|
|
01400 S981B-EXIT. DTSBZ261
|
|
01401 EXIT. DTSBZ261
|
|
01402 SKIP3 DTSBZ261
|
|
01403 DTSBZ261
|
|
01404 S983-OPEN. DTSBZ261
|
|
01405 SET L983-OPEN-UPDATE-88 TO TRUE. DTSBZ261
|
|
01406 GO TO S983-WAGE-O. DTSBZ261
|
|
01407 DTSBZ261
|
|
01408 S983-WRITE. DTSBZ261
|
|
01409 SET L983-WRITE-88 TO TRUE. DTSBZ261
|
|
01410 GO TO S983-WAGE-O. DTSBZ261
|
|
01411 DTSBZ261
|
|
01412 S983-CLOSE. DTSBZ261
|
|
01413 SET L983-CLOSE-88 TO TRUE. DTSBZ261
|
|
01414 GO TO S983-WAGE-O. DTSBZ261
|
|
01415 DTSBZ261
|
|
01416 S983-WAGE-O. DTSBZ261
|
|
01417 CALL 'DTSBU983' USING L983-LINK-AREA DTSBZ261
|
|
01418 WSKL-REC. DTSBZ261
|
|
01419 S983-EXIT. DTSBZ261
|
|
01420 EXIT. DTSBZ261
|
|
01421 SKIP3 DTSBZ261
|
|
01422 S999-ABEND. DTSBZ261
|
|
01423 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBZ261
|
|
01424 S999-EXIT. DTSBZ261
|
|
01425 EXIT. DTSBZ261
|