1303 lines
103 KiB
COBOL
1303 lines
103 KiB
COBOL
00001 IDENTIFICATION DIVISION. 11/01/22
|
|
00002 PROGRAM-ID. DTSTOP03. DTSTOP03
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV015
|
|
00004 DATE-WRITTEN. DECEMBER 1998. DTSTOP03
|
|
00005 DATE-COMPILED. DTSTOP03
|
|
00006 SKIP3 DTSTOP03
|
|
00007 ***** DTSTOP03
|
|
00008 * DTSTOP03
|
|
00009 * FUNCTION: LIST EMPLOYERS WITH BALANCE GT ZERO DTSTOP03
|
|
00010 * DTSTOP03
|
|
00011 * DTSTOP03
|
|
00012 ***** DTSTOP03
|
|
00013 SKIP3 DTSTOP03
|
|
00014 ENVIRONMENT DIVISION. DTSTOP03
|
|
00015 INPUT-OUTPUT SECTION. DTSTOP03
|
|
00016 SKIP3 DTSTOP03
|
|
00017 FILE-CONTROL. DTSTOP03
|
|
00018 SELECT OUT-FILE ASSIGN TO DTSOZ058 DTSTOP03
|
|
00019 FILE STATUS IS Z057-STATUS. DTSTOP03
|
|
00020 SKIP2 DTSTOP03
|
|
00021 SELECT IN-FILE ASSIGN TO DTSIZ058 DTSTOP03
|
|
00022 FILE STATUS IS Z058-STATUS. DTSTOP03
|
|
00023 SKIP2 DTSTOP03
|
|
00024 DATA DIVISION. DTSTOP03
|
|
00025 FILE SECTION. DTSTOP03
|
|
00026 FD OUT-FILE DTSTOP03
|
|
00027 RECORD CONTAINS 23 CHARACTERS DTSTOP03
|
|
00028 DATA RECORD IS MRRA-FILE-REC. DTSTOP03
|
|
00029 01 OUT-REC PIC X(23). DTSTOP03
|
|
00030 SKIP3 DTSTOP03
|
|
00031 FD IN-FILE. DTSTOP03
|
|
00032 01 IN-REC. DTSTOP03
|
|
00033 05 IN-EMP-NO PIC X(06). DTSTOP03
|
|
00034 05 FILLER PIC X(01). DTSTOP03
|
|
00035 05 IN-QTR PIC 9(05). DTSTOP03
|
|
00036 05 FILLER PIC X(68). DTSTOP03
|
|
00037 SKIP3 DTSTOP03
|
|
00038 EJECT DTSTOP03
|
|
00039 WORKING-STORAGE SECTION. DTSTOP03
|
|
000395 77 PAN-VALET PICTURE X(24) VALUE '015DTSTOP03 11/01/22'. DTSTOP03
|
|
00040 SKIP3 DTSTOP03
|
|
00041 01 WRK-AREA. DTSTOP03
|
|
00042 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +057.DTSTOP03
|
|
00043 05 ABEND-MSG PIC X(60). DTSTOP03
|
|
00044 DTSTOP03
|
|
00045 05 W-IN-QTR PIC S9(05) COMP-3. DTSTOP03
|
|
00046 05 HOLD-LAST-USED-BATCH-NO PIC S9(05) COMP-3. DTSTOP03
|
|
00047 DTSTOP03
|
|
00048 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBZ057'.DTSTOP03
|
|
00049 05 Z057-STATUS PIC X(02). DTSTOP03
|
|
00050 88 Z057-FILE-OK-88 VALUE '00'. DTSTOP03
|
|
00051 DTSTOP03
|
|
00052 05 Z058-STATUS PIC X(02). DTSTOP03
|
|
00053 88 Z058-FILE-OK-88 VALUE '00'. DTSTOP03
|
|
00054 DTSTOP03
|
|
00055 05 SEQ PIC S9(07) COMP-3 VALUE +0. DTSTOP03
|
|
00056 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSTOP03
|
|
00057 05 WRK-UPDATE-CNT PIC S9(07) COMP-3. DTSTOP03
|
|
00058 05 WRK-EXCLUDE-CNT PIC S9(07) COMP-3. DTSTOP03
|
|
00059 05 WRK-MPRF-AMT PIC S9(09)V99 COMP-3. DTSTOP03
|
|
00060 05 WRK-INTEREST-AMT PIC S9(09)V99 COMP-3. DTSTOP03
|
|
00061 05 WRK-PENALTY-AMT PIC S9(09)V99 COMP-3 VALUE 0.DTSTOP03
|
|
00062 05 WRK-MLIN-AMT PIC S9(09)V99 COMP-3 VALUE 0.DTSTOP03
|
|
00063 05 DIS-MLIN-AMT PIC --------9.99. DTSTOP03
|
|
00064 05 DIS-MPRF-AMT PIC --------9.99. DTSTOP03
|
|
00065 05 WRK-REMIT-AMT PIC S9(09)V99 COMP-3. DTSTOP03
|
|
00066 05 WRK-UI-BAL PIC S9(09)V99 COMP-3. DTSTOP03
|
|
00067 05 WRK-MLIN-IND PIC X(01). DTSTOP03
|
|
00068 88 WRK-MLIN-OK VALUE 'Y'. DTSTOP03
|
|
00069 88 WRK-MLIN-NO-REC VALUE 'N'. DTSTOP03
|
|
00070 DTSTOP03
|
|
00071 05 WRK-OUT-REC. DTSTOP03
|
|
00072 10 OUT-EMP PIC 9(06). DTSTOP03
|
|
00073 10 FILLER PIC X(01) VALUE ','. DTSTOP03
|
|
00074 10 OUT-QTR PIC X(06). DTSTOP03
|
|
00075 10 FILLER PIC X(01) VALUE ','. DTSTOP03
|
|
00076 10 OUT-BATCH PIC 9(05). DTSTOP03
|
|
00077 10 FILLER PIC X(01) VALUE ','. DTSTOP03
|
|
00078 10 OUT-ITEM PIC 9(03). DTSTOP03
|
|
00079 DTSTOP03
|
|
00080 05 WRK-MQTR-CNT PIC S9(07) COMP-3. DTSTOP03
|
|
00081 05 EMP-ACCT-DISP PIC 9(06). DTSTOP03
|
|
00082 05 WRK-TIMELY-PMT-AREA. DTSTOP03
|
|
00083 10 WRK-ERROR-IND PIC X(01). DTSTOP03
|
|
00084 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSTOP03
|
|
00085 88 WRK-ERROR-NO-88 VALUE 'N'. DTSTOP03
|
|
00086 10 WRK-MPAY-FOUND-IND PIC X(01). DTSTOP03
|
|
00087 88 WRK-MPAY-FOUND-YES VALUE 'Y'. DTSTOP03
|
|
00088 88 WRK-MPAY-FOUND-NO VALUE 'N'. DTSTOP03
|
|
00089 10 WRK-MRPT-FOUND-IND PIC X(01). DTSTOP03
|
|
00090 88 WRK-MRPT-FOUND-YES VALUE 'Y'. DTSTOP03
|
|
00091 88 WRK-MRPT-FOUND-NO VALUE 'N'. DTSTOP03
|
|
00092 10 WRK-EMP-SELECTED-IND PIC X(01). DTSTOP03
|
|
00093 88 WRK-EMP-SELECTED-YES VALUE 'Y'. DTSTOP03
|
|
00094 88 WRK-EMP-SELECTED-NO VALUE 'N'. DTSTOP03
|
|
00095 10 WRK-SUPPL-RPT-IND PIC X(01). DTSTOP03
|
|
00096 88 WRK-SUPPL-RPT-YES VALUE 'Y'. DTSTOP03
|
|
00097 88 WRK-SUPPL-RPT-NO VALUE 'N'. DTSTOP03
|
|
00098 10 WRK-WITHDRAWN-RPT-IND PIC X(01). DTSTOP03
|
|
00099 88 WRK-WITHDRAWN-RPT-YES VALUE 'Y'. DTSTOP03
|
|
00100 88 WRK-WITHDRAWN-RPT-NO VALUE 'N'. DTSTOP03
|
|
00101 10 WRK-RPT-BATCH-NO PIC S9(05) COMP-3. DTSTOP03
|
|
00102 10 WRK-RPT-ITEM-NO PIC S9(03) COMP-3. DTSTOP03
|
|
00103 10 WRK-OPID PIC X(08). DTSTOP03
|
|
00104 10 WRITE-OFF PIC X(01) VALUE SPACES. DTSTOP03
|
|
00105 10 WRK-BALANCE-AMT PIC ----------9.99. DTSTOP03
|
|
00106 DTSTOP03
|
|
00107 05 WRK-CERTIFICATE-DATE PIC 9(8) VALUE 0. DTSTOP03
|
|
00108 05 WRK-TIMELY-RPT-AREA. DTSTOP03
|
|
00109 10 WRK-RPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSTOP03
|
|
00110 DTSTOP03
|
|
00111 05 WRK-MNTE-MSG-LINE1. DTSTOP03
|
|
00112 10 WRK-MNTE-MSG-YR PIC X(04). DTSTOP03
|
|
00113 10 FILLER PIC X(01) VALUE '/'. DTSTOP03
|
|
00114 10 WRK-MNTE-MSG-QTR PIC X(01). DTSTOP03
|
|
00115 10 FILLER PIC X(44) VALUE DTSTOP03
|
|
00116 ' QUARTER ANNUAL REPORT FROM TDEC WAS PROCESS'. DTSTOP03
|
|
00117 10 FILLER PIC X(23) VALUE DTSTOP03
|
|
00118 'ED INCORRECTLY BY ESSP '. DTSTOP03
|
|
00119 05 WRK-MNTE-MSG-LINE2. DTSTOP03
|
|
00120 10 FILLER PIC X(48) VALUE DTSTOP03
|
|
00121 'REPORT WITHDRAWN AND REPOSTED CORRECTLY. '. DTSTOP03
|
|
00122 10 FILLER PIC X(23) VALUE DTSTOP03
|
|
00123 ' '. DTSTOP03
|
|
00124 05 WRK-MNTE-MSG-LINE3. DTSTOP03
|
|
00125 10 FILLER PIC X(12) VALUE DTSTOP03
|
|
00126 ' '. DTSTOP03
|
|
00127 DTSTOP03
|
|
00128 05 WRK-MPRF-IND PIC X(01). DTSTOP03
|
|
00129 88 WRK-MPRF-OK VALUE 'Y'. DTSTOP03
|
|
00130 88 WRK-MPRF-NO-REC VALUE 'N'. DTSTOP03
|
|
00131 05 WRK-MQTR-IND PIC X(01). DTSTOP03
|
|
00132 88 WRK-MQTR-OK VALUE 'Y'. DTSTOP03
|
|
00133 88 WRK-MQTR-NO-REC VALUE 'N'. DTSTOP03
|
|
00134 05 WRK-MRPT-IND PIC X(01). DTSTOP03
|
|
00135 88 WRK-MRPT-OK VALUE 'Y'. DTSTOP03
|
|
00136 88 WRK-MRPT-NO-REC VALUE 'N'. DTSTOP03
|
|
00137 DTSTOP03
|
|
00138 05 WRK-T003-CNT PIC S9(07) COMP-3 VALUE +0. DTSTOP03
|
|
00139 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSTOP03
|
|
00140 DTSTOP03
|
|
00141 05 PARM-EOF-IND PIC X(01). DTSTOP03
|
|
00142 DTSTOP03
|
|
00143 05 WRK-EMP-NO PIC 9(06). DTSTOP03
|
|
00144 DTSTOP03
|
|
00145 05 WRK-TRACE-IND PIC X(01). DTSTOP03
|
|
00146 DTSTOP03
|
|
00147 05 WRK-MST-OPEN-IND PIC X(01). DTSTOP03
|
|
00148 DTSTOP03
|
|
00149 05 WRK-REF-OPEN-IND PIC X(01). DTSTOP03
|
|
00150 DTSTOP03
|
|
00151 EJECT DTSTOP03
|
|
00152 01 TSKL-REC. DTSTOP03
|
|
00153 ++INCLUDE DTSITSKL DTSTOP03
|
|
00154 DTSTOP03
|
|
00155 01 T003-REC. DTSTOP03
|
|
00156 ++INCLUDE DTSIT003 DTSTOP03
|
|
00157 DTSTOP03
|
|
00158 01 L005-LINK-AREA. DTSTOP03
|
|
00159 ++INCLUDE DTSIL005 DTSTOP03
|
|
00160 DTSTOP03
|
|
00161 01 L910-LINK-AREA. DTSTOP03
|
|
00162 ++INCLUDE DTSIL910 DTSTOP03
|
|
00163 EJECT DTSTOP03
|
|
00164 01 MSKL-REC. DTSTOP03
|
|
00165 ++INCLUDE DTSIMSKL DTSTOP03
|
|
00166 EJECT DTSTOP03
|
|
00167 01 MHDR-REC. DTSTOP03
|
|
00168 ++INCLUDE DTSIMHDR DTSTOP03
|
|
00169 EJECT DTSTOP03
|
|
00170 01 MPRF-REC. DTSTOP03
|
|
00171 ++INCLUDE DTSIMPRF DTSTOP03
|
|
00172 EJECT DTSTOP03
|
|
00173 01 MQTR-REC. DTSTOP03
|
|
00174 ++INCLUDE DTSIMQTR DTSTOP03
|
|
00175 EJECT DTSTOP03
|
|
00176 01 MRPT-REC. DTSTOP03
|
|
00177 ++INCLUDE DTSIMRPT DTSTOP03
|
|
00178 EJECT DTSTOP03
|
|
00179 01 MDST-REC. DTSTOP03
|
|
00180 ++INCLUDE DTSIMDST DTSTOP03
|
|
00181 EJECT DTSTOP03
|
|
00182 01 MPAY-REC. DTSTOP03
|
|
00183 ++INCLUDE DTSIMPAY DTSTOP03
|
|
00184 EJECT DTSTOP03
|
|
00185 01 MNTE-REC. DTSTOP03
|
|
00186 ++INCLUDE DTSIMNTE DTSTOP03
|
|
00187 EJECT DTSTOP03
|
|
00188 01 L923-LINK-AREA. DTSTOP03
|
|
00189 ++INCLUDE DTSIL923 DTSTOP03
|
|
00190 EJECT DTSTOP03
|
|
00191 01 ASKL-REC. DTSTOP03
|
|
00192 ++INCLUDE DTSIASKL DTSTOP03
|
|
00193 EJECT DTSTOP03
|
|
00194 01 MLIN-REC. DTSTOP03
|
|
00195 ++INCLUDE DTSIMLIN DTSTOP03
|
|
00196 EJECT DTSTOP03
|
|
00197 01 AHDR-REC. DTSTOP03
|
|
00198 ++INCLUDE DTSIAHDR DTSTOP03
|
|
00199 EJECT DTSTOP03
|
|
00200 01 ARPT-REC. DTSTOP03
|
|
00201 ++INCLUDE DTSIARPT DTSTOP03
|
|
00202 EJECT DTSTOP03
|
|
00203 01 APAY-REC. DTSTOP03
|
|
00204 ++INCLUDE DTSIAPAY DTSTOP03
|
|
00205 EJECT DTSTOP03
|
|
00206 01 L927-LINK-AREA. DTSTOP03
|
|
00207 ++INCLUDE DTSIL927 DTSTOP03
|
|
00208 DTSTOP03
|
|
00209 01 L101-LINK-AREA. DTSTOP03
|
|
00210 ++INCLUDE DTSIL101 DTSTOP03
|
|
00211 DTSTOP03
|
|
00212 01 L004-COMM-AREA. DTSTOP03
|
|
00213 ++INCLUDE DTSIL004 DTSTOP03
|
|
00214 EJECT DTSTOP03
|
|
00215 PROCEDURE DIVISION. DTSTOP03
|
|
00216 SKIP2 DTSTOP03
|
|
00217 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSTOP03
|
|
00218 DTSTOP03
|
|
00219 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSTOP03
|
|
00220 DTSTOP03
|
|
00221 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSTOP03
|
|
00222 SKIP2 DTSTOP03
|
|
00223 GOBACK. DTSTOP03
|
|
00224 EJECT DTSTOP03
|
|
00225 I0000-INITIATE. DTSTOP03
|
|
00226 SKIP2 DTSTOP03
|
|
00227 MOVE 'N' TO WRK-TRACE-IND. DTSTOP03
|
|
00228 DTSTOP03
|
|
00229 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSTOP03
|
|
00230 DTSTOP03
|
|
00231 PERFORM I3000-BATCH-HEADER THRU I3000-EXIT. DTSTOP03
|
|
00232 DTSTOP03
|
|
00233 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSTOP03
|
|
00234 DTSTOP03
|
|
00235 I0000-EXIT. DTSTOP03
|
|
00236 EXIT. DTSTOP03
|
|
00237 DTSTOP03
|
|
00238 I2000-OPEN-FILES-1. DTSTOP03
|
|
00239 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSTOP03
|
|
00240 DTSTOP03
|
|
00241 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSTOP03
|
|
00242 DTSTOP03
|
|
00243 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSTOP03
|
|
00244 ** PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. DTSTOP03
|
|
00245 ** PERFORM S910-OPEN-UPDATE-HDR THRU S910-EXIT. DTSTOP03
|
|
00246 PERFORM S923-OPEN-READ THRU S923-EXIT. DTSTOP03
|
|
00247 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DTSTOP03
|
|
00248 DTSTOP03
|
|
00249 OPEN OUTPUT OUT-FILE. DTSTOP03
|
|
00250 IF NOT Z057-FILE-OK-88 DTSTOP03
|
|
00251 DISPLAY 'OUTPUT FILE OPEN ERROR: ' Z057-STATUS DTSTOP03
|
|
00252 PERFORM S999-ABEND THRU S999-EXIT DTSTOP03
|
|
00253 END-IF. DTSTOP03
|
|
00254 DTSTOP03
|
|
00255 OPEN INPUT IN-FILE. DTSTOP03
|
|
00256 IF NOT Z058-FILE-OK-88 DTSTOP03
|
|
00257 DISPLAY 'INPUT FILE OPEN ERROR: ' Z058-STATUS DTSTOP03
|
|
00258 PERFORM S999-ABEND THRU S999-EXIT DTSTOP03
|
|
00259 END-IF. DTSTOP03
|
|
00260 DTSTOP03
|
|
00261 I2000-EXIT. DTSTOP03
|
|
00262 EXIT. DTSTOP03
|
|
00263 DTSTOP03
|
|
00264 I3000-BATCH-HEADER. DTSTOP03
|
|
00265 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSTOP03
|
|
00266 MOVE +0 TO MHDR-EMP-NO. DTSTOP03
|
|
00267 SET MHDR-HDR-88 TO TRUE. DTSTOP03
|
|
00268 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSTOP03
|
|
00269 PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
00270 DTSTOP03
|
|
00271 IF L910-NO-REC-88 DTSTOP03
|
|
00272 MOVE 'MHDR RECORD NOT FOUND (I0000)' DTSTOP03
|
|
00273 TO ABEND-MSG DTSTOP03
|
|
00274 PERFORM S999-ABEND THRU S999-EXIT. DTSTOP03
|
|
00275 DTSTOP03
|
|
00276 MOVE MSKL-REC TO MHDR-REC. DTSTOP03
|
|
00277 DTSTOP03
|
|
00278 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSTOP03
|
|
00279 DISPLAY 'FIRST BATCH: ' AHDR-BATCH-NO. DTSTOP03
|
|
00280 DTSTOP03
|
|
00281 I3000-EXIT. DTSTOP03
|
|
00282 EXIT. DTSTOP03
|
|
00283 DTSTOP03
|
|
00284 EJECT DTSTOP03
|
|
00285 P0000-PROCESS. DTSTOP03
|
|
00286 READ IN-FILE AT END GO TO P0000-EXIT. DTSTOP03
|
|
00287 DTSTOP03
|
|
00288 MOVE +0 TO WRK-MPRF-CNT DTSTOP03
|
|
00289 WRK-EXCLUDE-CNT DTSTOP03
|
|
00290 WRK-UPDATE-CNT DTSTOP03
|
|
00291 DIS-MLIN-AMT DTSTOP03
|
|
00292 DIS-MPRF-AMT DTSTOP03
|
|
00293 WRK-INTEREST-AMT. DTSTOP03
|
|
00294 SET WRK-ERROR-NO-88 TO TRUE. DTSTOP03
|
|
00295 DTSTOP03
|
|
00296 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSTOP03
|
|
00297 MOVE LOW-VALUES TO MPRF-KEY-AREA. DTSTOP03
|
|
00298 DTSTOP03
|
|
00299 MOVE +0 TO MSKL-EMP-NO. DTSTOP03
|
|
00300 DTSTOP03
|
|
00301 SET MPRF-PRF-88 TO TRUE. DTSTOP03
|
|
00302 MOVE +000001 TO MPRF-EMP-NO DTSTOP03
|
|
00303 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSTOP03
|
|
00304 PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
00305 IF L910-OK-88 DTSTOP03
|
|
00306 MOVE MSKL-REC TO MPRF-REC DTSTOP03
|
|
00307 SET WRK-MPRF-OK TO TRUE DTSTOP03
|
|
00308 ELSE DTSTOP03
|
|
00309 DISPLAY 'BAD FIRST READ ' L910-RESULT-IND DTSTOP03
|
|
00310 SET L910-NO-REC-88 TO TRUE DTSTOP03
|
|
00311 GO TO P0000-EXIT. DTSTOP03
|
|
00312 DTSTOP03
|
|
00313 DISPLAY 'LIST OF EMPLOYERS WITH BALANCE DUE GT ZERO. '. DTSTOP03
|
|
00314 * DISPLAY 'REPORT DTSBZ063 - AUTOMATIC WITHDRAWALS '. DTSTOP03
|
|
00315 DISPLAY SPACE. DTSTOP03
|
|
00316 DTSTOP03
|
|
00317 PERFORM P1000-READ-NEXT THRU P1000-EXIT DTSTOP03
|
|
00318 UNTIL WRK-MPRF-NO-REC DTSTOP03
|
|
00319 OR WRK-ERROR-YES-88. DTSTOP03
|
|
00320 ** OR MPRF-EMP-NO > 020999. DTSTOP03
|
|
00321 ** OR WRK-REL-CNT > +100. DTSTOP03
|
|
00322 P0000-EXIT. DTSTOP03
|
|
00323 EXIT. DTSTOP03
|
|
00324 EJECT DTSTOP03
|
|
00325 P1000-READ-NEXT. DTSTOP03
|
|
00326 DTSTOP03
|
|
00327 ADD +1 TO WRK-MPRF-CNT DTSTOP03
|
|
00328 DTSTOP03
|
|
00329 IF MPRF-BANKRP-OPEN-88 DTSTOP03
|
|
00330 GO TO P1000-READ-CONTINUE. DTSTOP03
|
|
00331 DTSTOP03
|
|
00332 IF MPRF-TOT-BALANCE-AMT < 99 DTSTOP03
|
|
00333 GO TO P1000-READ-CONTINUE. DTSTOP03
|
|
00334 DTSTOP03
|
|
00335 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSTOP03
|
|
00336 GO TO P1000-READ-CONTINUE. DTSTOP03
|
|
00337 DTSTOP03
|
|
00338 ** IF MPRF-ESTB-DATE < 20050101 DTSTOP03
|
|
00339 ** GO TO P1000-READ-CONTINUE. DTSTOP03
|
|
00340 DTSTOP03
|
|
00341 ** IF MPRF-ESTB-DATE > 20190501 DTSTOP03
|
|
00342 ** GO TO P1000-READ-CONTINUE. DTSTOP03
|
|
00343 DTSTOP03
|
|
00344 IF MPRF-NOT-WRITTEN-OFF-88 DTSTOP03
|
|
00345 MOVE 'N' TO WRITE-OFF DTSTOP03
|
|
00346 ELSE DTSTOP03
|
|
00347 MOVE 'Y' TO WRITE-OFF. DTSTOP03
|
|
00348 DTSTOP03
|
|
00349 MOVE ZEROS TO DIS-MLIN-AMT WRK-MLIN-AMT DTSTOP03
|
|
00350 DIS-MPRF-AMT WRK-MPRF-AMT. DTSTOP03
|
|
00351 MOVE ZEROS TO WRK-CERTIFICATE-DATE DTSTOP03
|
|
00352 CL**2
|
|
00353 IF MPRF-MLIN-IND NOT = 'Y' CL*10
|
|
00354 GO TO P1000-READ-CONTINUE. CL*10
|
|
00355 CL*11
|
|
00356 CL*12
|
|
00357 PERFORM P7000-SCAN-LIN THRU P7000-EXIT CL**2
|
|
00358 MOVE WRK-MLIN-AMT TO DIS-MLIN-AMT. CL*11
|
|
00359 * DISPLAY '>>MPRF TOT: ' MPRF-EMP-NO ' ' MPRF-TOT-BALANCE-AMT CL**2
|
|
00360 CL*11
|
|
00361 DISPLAY '>>MLIN LIN: ' MLIN-EMP-NO ' ' WRK-MLIN-IND. CL*15
|
|
00362 IF WRK-MLIN-IND = 'Y' CL**7
|
|
00363 PERFORM P5000-READ-MQTR THRU P5000-EXIT CL**8
|
|
00364 * MOVE MPRF-TOT-BALANCE-AMT TO WRK-BALANCE-AMT CL**4
|
|
00365 MOVE WRK-MPRF-AMT TO DIS-MPRF-AMT CL**4
|
|
00366 DISPLAY 'TOTAL LIEN: ' MPRF-EMP-NO ';' CL**2
|
|
00367 MPRF-PRIMARY-NAME(1:20) ';' DTSTOP03
|
|
00368 MPRF-EMP-CLASS ';' DTSTOP03
|
|
00369 MPRF-EMP-STATUS ';' DTSTOP03
|
|
00370 * MPRF-ORG-TYPE ',' DTSTOP03
|
|
00371 * WRITE-OFF ',' DTSTOP03
|
|
00372 * MPRF-PURSUED-RPT-CNT ',' DTSTOP03
|
|
00373 MPRF-BANKRUPTCY-OPEN-IND ';' DTSTOP03
|
|
00374 MPRF-MDPC-IND ';' DTSTOP03
|
|
00375 MPRF-MAPL-IND ';' DTSTOP03
|
|
00376 MPRF-MLIN-IND ';' DTSTOP03
|
|
00377 WRK-CERTIFICATE-DATE ';' DTSTOP03
|
|
00378 DIS-MPRF-AMT ';' DTSTOP03
|
|
00379 DIS-MLIN-AMT ';' DTSTOP03
|
|
00380 MPRF-RETURN-MAIL-IND ';'. DTSTOP03
|
|
00381 DTSTOP03
|
|
00382 P1000-READ-CONTINUE. DTSTOP03
|
|
00383 DTSTOP03
|
|
00384 MOVE MPRF-REC TO MSKL-REC. DTSTOP03
|
|
00385 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSTOP03
|
|
00386 DTSTOP03
|
|
00387 IF NOT L910-OK-88 DTSTOP03
|
|
00388 DISPLAY ' EMPLOYER NOT FOUND ' MPRF-EMP-NO CL*11
|
|
00389 SET WRK-MPRF-NO-REC TO TRUE DTSTOP03
|
|
00390 ELSE DTSTOP03
|
|
00391 SET WRK-MPRF-OK TO TRUE DTSTOP03
|
|
00392 MOVE MSKL-REC TO MPRF-REC. DTSTOP03
|
|
00393 DTSTOP03
|
|
00394 P1000-EXIT. DTSTOP03
|
|
00395 EXIT. DTSTOP03
|
|
00396 DTSTOP03
|
|
00397 P7000-SCAN-LIN. DTSTOP03
|
|
00398 MOVE 'N' TO WRK-MLIN-IND. CL**6
|
|
00399 MOVE ZEROS TO WRK-MLIN-AMT DTSTOP03
|
|
00400 MOVE ZEROS TO DIS-MLIN-AMT DTSTOP03
|
|
00401 MOVE LOW-VALUES TO MLIN-KEY-AREA. DTSTOP03
|
|
00402 MOVE MPRF-EMP-NO TO MLIN-EMP-NO. DTSTOP03
|
|
00403 SET MLIN-LIN-88 TO TRUE. DTSTOP03
|
|
00404 MOVE MLIN-KEY-AREA TO MSKL-KEY-AREA. DTSTOP03
|
|
00405 DTSTOP03
|
|
00406 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSTOP03
|
|
00407 PERFORM S910-READ THRU S910-EXIT. CL*15
|
|
00408 IF L910-NO-REC-88 DTSTOP03
|
|
00409 DISPLAY 'NO 1LIEN: ' MPRF-EMP-NO ';' CL*15
|
|
00410 GO TO P7000-EXIT DTSTOP03
|
|
00411 ELSE DTSTOP03
|
|
00412 PERFORM P7100-SCAN-MLIN THRU P7100-EXIT DTSTOP03
|
|
00413 UNTIL WRK-MLIN-NO-REC. DTSTOP03
|
|
00414 DTSTOP03
|
|
00415 P7000-EXIT. DTSTOP03
|
|
00416 EXIT. DTSTOP03
|
|
00417 P7100-SCAN-MLIN. DTSTOP03
|
|
00418 MOVE MSKL-REC TO MLIN-REC. DTSTOP03
|
|
00419 DISPLAY 'NO 1LIEN: ' MLIN-EMP-NO ' ' MLIN-STATUS-CD. CL*15
|
|
00420 IF MLIN-STATUS-ACTIVE-88 DTSTOP03
|
|
00421 NEXT SENTENCE CL**2
|
|
00422 ELSE CL**2
|
|
00423 GO TO P7100-CONTINUE. CL**2
|
|
00424 CL**2
|
|
00425 DISPLAY '1LIEN: ' MPRF-EMP-NO ';' CL*14
|
|
00426 IF MLIN-ESTB-DATE < 20130101 OR CL**2
|
|
00427 MLIN-ESTB-DATE > 20191231 CL**2
|
|
00428 GO TO P7100-CONTINUE. CL**2
|
|
00429 CL**2
|
|
00430 DISPLAY '2LIEN: ' MPRF-EMP-NO ';' CL*14
|
|
00431 DISPLAY ' MLIN AMT; ' MLIN-STMT-DUE-AMT. CL**9
|
|
00432 IF MLIN-STMT-DUE-AMT < .01 CL**9
|
|
00433 GO TO P7100-CONTINUE. CL**3
|
|
00434 CL**6
|
|
00435 MOVE 'Y' TO WRK-MLIN-IND. CL**6
|
|
00436 CL**3
|
|
00437 MOVE MLIN-COMP-DATE TO WRK-CERTIFICATE-DATE DTSTOP03
|
|
00438 ADD MLIN-STMT-DUE-AMT TO WRK-MLIN-AMT. DTSTOP03
|
|
00439 MOVE MLIN-STMT-DUE-AMT TO DIS-MLIN-AMT CL**2
|
|
00440 CL**2
|
|
00441 DISPLAY 'MLIEN: ' MPRF-EMP-NO ';' CL**2
|
|
00442 WRK-CERTIFICATE-DATE ';' CL**2
|
|
00443 DIS-MLIN-AMT ';' CL**2
|
|
00444 MLIN-COV-CNT ';' CL**2
|
|
00445 MLIN-COVERED-YRQ(1) ';' CL**2
|
|
00446 MLIN-COVERED-YRQ(2) ';' CL**2
|
|
00447 MLIN-COVERED-YRQ(3) ';' CL**2
|
|
00448 MLIN-COVERED-YRQ(4) ';' CL**2
|
|
00449 MLIN-COVERED-YRQ(5) ';' CL**2
|
|
00450 MLIN-COVERED-YRQ(6) ';' CL**2
|
|
00451 MLIN-COVERED-YRQ(7) ';' CL**2
|
|
00452 MLIN-COVERED-YRQ(8) ';' CL**2
|
|
00453 MLIN-COVERED-YRQ(9) ';'. CL**2
|
|
00454 * SET WRK-MLIN-NO-REC TO TRUE DTSTOP03
|
|
00455 * GO TO P7100-EXIT. DTSTOP03
|
|
00456 DTSTOP03
|
|
00457 P7100-CONTINUE. CL**2
|
|
00458 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSTOP03
|
|
00459 IF L910-NO-REC-88 DTSTOP03
|
|
00460 SET WRK-MLIN-NO-REC TO TRUE. DTSTOP03
|
|
00461 DTSTOP03
|
|
00462 P7100-EXIT. DTSTOP03
|
|
00463 EXIT. DTSTOP03
|
|
00464 P5000-READ-MQTR. DTSTOP03
|
|
00465 * DISPLAY '>>>> P5000-READ-MQTR>>>> ' MPRF-EMP-NO. DTSTOP03
|
|
00466 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSTOP03
|
|
00467 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSTOP03
|
|
00468 MOVE ZEROS TO WRK-MPRF-AMT. DTSTOP03
|
|
00469 DTSTOP03
|
|
00470 SET MQTR-QTR-88 TO TRUE. DTSTOP03
|
|
00471 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSTOP03
|
|
00472 DTSTOP03
|
|
00473 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSTOP03
|
|
00474 DTSTOP03
|
|
00475 IF L910-NO-REC-88 DTSTOP03
|
|
00476 DISPLAY ' BQTR REC NOT FOUND ' MPRF-EMP-NO DTSTOP03
|
|
00477 GO TO P5000-EXIT. DTSTOP03
|
|
00478 PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
00479 DTSTOP03
|
|
00480 IF L910-NO-REC-88 DTSTOP03
|
|
00481 DISPLAY ' RQTR REC NOT FOUND ' MPRF-EMP-NO DTSTOP03
|
|
00482 GO TO P5000-EXIT. DTSTOP03
|
|
00483 DTSTOP03
|
|
00484 MOVE MSKL-REC TO MQTR-REC. DTSTOP03
|
|
00485 PERFORM P5100-MQTR-SCAN THRU P5100-EXIT DTSTOP03
|
|
00486 UNTIL L910-NO-REC-88. DTSTOP03
|
|
00487 DTSTOP03
|
|
00488 DTSTOP03
|
|
00489 P5000-EXIT. DTSTOP03
|
|
00490 EXIT. DTSTOP03
|
|
00491 DTSTOP03
|
|
00492 P5100-MQTR-SCAN. DTSTOP03
|
|
00493 * DISPLAY '>>>> P5100-READ-MQTR>>> ' MPRF-EMP-NO. DTSTOP03
|
|
00494 MOVE ZEROS TO L101-PAID-CHNG. DTSTOP03
|
|
00495 PERFORM DTSTOP03
|
|
00496 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSTOP03
|
|
00497 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSTOP03
|
|
00498 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSTOP03
|
|
00499 TO WRK-MPRF-AMT DTSTOP03
|
|
00500 * DISPLAY 'MQTR AMT: ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSTOP03
|
|
00501 * DISPLAY 'WRK AMT: ' WRK-MPRF-AMT DTSTOP03
|
|
00502 IF MQTR-BALANCE-AMT (MQTR-ACCT-IDX) > 0 DTSTOP03
|
|
00503 PERFORM P5001-READ-MRPT THRU P5001-EXIT DTSTOP03
|
|
00504 END-IF DTSTOP03
|
|
00505 IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX) DTSTOP03
|
|
00506 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSTOP03
|
|
00507 TO L101-PAID-CHNG DTSTOP03
|
|
00508 END-IF DTSTOP03
|
|
00509 END-PERFORM. DTSTOP03
|
|
00510 IF L101-PAID-CHNG > +0 DTSTOP03
|
|
00511 NEXT SENTENCE DTSTOP03
|
|
00512 ELSE DTSTOP03
|
|
00513 GO TO P5100-CONTINUE. DTSTOP03
|
|
00514 DTSTOP03
|
|
00515 * MOVE MHDR-CURR-RUN-DATE TO L101-RECEIVED-DATE. CL**4
|
|
00516 * IF L101-RECEIVED-DATE > 0 DTSTOP03
|
|
00517 * NEXT SENTENCE DTSTOP03
|
|
00518 * ELSE DTSTOP03
|
|
00519 * DISPLAY ' RPT REC NOT FOUND- NO INT ' MPRF-EMP-NO DTSTOP03
|
|
00520 * GO TO P5100-CONTINUE. DTSTOP03
|
|
00521 DTSTOP03
|
|
00522 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSTOP03
|
|
00523 * SET L101-ABATE-PEN-NO-88 TO TRUE. DTSTOP03
|
|
00524 DTSTOP03
|
|
00525 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSTOP03
|
|
00526 DTSTOP03
|
|
00527 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSTOP03
|
|
00528 DTSTOP03
|
|
00529 PERFORM S101-PER-MONTH-YES THRU S101-EXIT. DTSTOP03
|
|
00530 DTSTOP03
|
|
00531 ADD L101-INT-CHARGE-CHNG TO WRK-MPRF-AMT. DTSTOP03
|
|
00532 DTSTOP03
|
|
00533 DISPLAY 'BAL AMT: ' MQTR-EMP-NO ' ' WRK-MPRF-AMT CL**4
|
|
00534 ' TAX AMT: ' L101-PAID-CHNG CL**4
|
|
00535 ' INT AMT: ' L101-INT-CHARGE-CHNG. CL**5
|
|
00536 P5100-CONTINUE. DTSTOP03
|
|
00537 MOVE MQTR-REC TO MSKL-REC. DTSTOP03
|
|
00538 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSTOP03
|
|
00539 IF L910-NO-REC-88 DTSTOP03
|
|
00540 SET L910-NO-REC-88 TO TRUE DTSTOP03
|
|
00541 GO TO P5100-EXIT. DTSTOP03
|
|
00542 DTSTOP03
|
|
00543 MOVE MSKL-REC TO MQTR-REC. DTSTOP03
|
|
00544 DTSTOP03
|
|
00545 P5100-EXIT. DTSTOP03
|
|
00546 EXIT. DTSTOP03
|
|
00547 DTSTOP03
|
|
00548 P5001-READ-MRPT. DTSTOP03
|
|
00549 * DISPLAY '>>>> P5001-READ-MRPT>>>>> ' MPRF-EMP-NO. DTSTOP03
|
|
00550 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSTOP03
|
|
00551 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSTOP03
|
|
00552 MOVE MQTR-YRQ TO MRPT-YRQ DTSTOP03
|
|
00553 DTSTOP03
|
|
00554 SET MRPT-RPT-88 TO TRUE. DTSTOP03
|
|
00555 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSTOP03
|
|
00556 DTSTOP03
|
|
00557 MOVE ZEROS TO L101-RECEIVED-DATE. DTSTOP03
|
|
00558 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSTOP03
|
|
00559 DTSTOP03
|
|
00560 IF L910-NO-REC-88 DTSTOP03
|
|
00561 DISPLAY ' RPT REC NOT FOUND ' MPRF-EMP-NO DTSTOP03
|
|
00562 MOVE MHDR-CURR-RUN-DATE TO L101-RECEIVED-DATE DTSTOP03
|
|
00563 GO TO P5001-EXIT. DTSTOP03
|
|
00564 DTSTOP03
|
|
00565 PERFORM P5002-MRPT-SCAN THRU P5002-EXIT DTSTOP03
|
|
00566 UNTIL L910-NO-REC-88. DTSTOP03
|
|
00567 DTSTOP03
|
|
00568 DTSTOP03
|
|
00569 P5001-EXIT. DTSTOP03
|
|
00570 EXIT. DTSTOP03
|
|
00571 DTSTOP03
|
|
00572 P5002-MRPT-SCAN. DTSTOP03
|
|
00573 * DISPLAY '>>>> P5002-SCAN-MRPT>>> ' MPRF-EMP-NO. DTSTOP03
|
|
00574 MOVE MSKL-REC TO MRPT-REC. DTSTOP03
|
|
00575 IF MRPT-ORIG-88 OR MRPT-ESTIM-88 DTSTOP03
|
|
00576 MOVE MRPT-RECEIVED-DATE TO L101-RECEIVED-DATE DTSTOP03
|
|
00577 SET L910-NO-REC-88 TO TRUE DTSTOP03
|
|
00578 GO TO P5002-EXIT. DTSTOP03
|
|
00579 DTSTOP03
|
|
00580 MOVE MRPT-REC TO MSKL-REC. DTSTOP03
|
|
00581 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSTOP03
|
|
00582 IF L910-NO-REC-88 DTSTOP03
|
|
00583 SET L910-NO-REC-88 TO TRUE DTSTOP03
|
|
00584 GO TO P5002-EXIT. DTSTOP03
|
|
00585 DTSTOP03
|
|
00586 DTSTOP03
|
|
00587 P5002-EXIT. DTSTOP03
|
|
00588 EXIT. DTSTOP03
|
|
00589 P5111-SUM-PENALTY. DTSTOP03
|
|
00590 PERFORM DTSTOP03
|
|
00591 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSTOP03
|
|
00592 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSTOP03
|
|
00593 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSTOP03
|
|
00594 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSTOP03
|
|
00595 TO WRK-PENALTY-AMT DTSTOP03
|
|
00596 ELSE DTSTOP03
|
|
00597 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSTOP03
|
|
00598 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSTOP03
|
|
00599 TO WRK-UI-BAL DTSTOP03
|
|
00600 END-IF DTSTOP03
|
|
00601 END-IF DTSTOP03
|
|
00602 END-PERFORM. DTSTOP03
|
|
00603 DTSTOP03
|
|
00604 P5111-EXIT. DTSTOP03
|
|
00605 EXIT. DTSTOP03
|
|
00606 DTSTOP03
|
|
00607 DTSTOP03
|
|
00608 P5120-FIND-REPORT. DTSTOP03
|
|
00609 DTSTOP03
|
|
00610 DISPLAY '*** P5120-1 ' MPRF-EMP-NO DTSTOP03
|
|
00611 ' ' MQTR-YRQ. DTSTOP03
|
|
00612 DTSTOP03
|
|
00613 SET WRK-EMP-SELECTED-NO TO TRUE DTSTOP03
|
|
00614 MOVE ZERO TO WRK-RPT-RECEIVED-DATE DTSTOP03
|
|
00615 WRK-RPT-BATCH-NO DTSTOP03
|
|
00616 WRK-RPT-ITEM-NO. DTSTOP03
|
|
00617 * SET WRK-SUPPL-RPT-NO TO TRUE. DTSTOP03
|
|
00618 * SET WRK-WITHDRAWN-RPT-NO TO TRUE. DTSTOP03
|
|
00619 DTSTOP03
|
|
00620 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSTOP03
|
|
00621 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSTOP03
|
|
00622 MOVE MQTR-YRQ TO MRPT-YRQ. DTSTOP03
|
|
00623 MOVE ZEROS TO MRPT-BATCH-NO. DTSTOP03
|
|
00624 MOVE ZEROS TO MRPT-ITEM-NO DTSTOP03
|
|
00625 DTSTOP03
|
|
00626 SET MRPT-RPT-88 TO TRUE. DTSTOP03
|
|
00627 MOVE MRPT-REC TO MSKL-REC. DTSTOP03
|
|
00628 DTSTOP03
|
|
00629 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSTOP03
|
|
00630 IF L910-OK-88 DTSTOP03
|
|
00631 PERFORM P5121-SCAN-MRPT THRU P5121-EXIT DTSTOP03
|
|
00632 UNTIL L910-NO-REC-88. DTSTOP03
|
|
00633 DTSTOP03
|
|
00634 IF WRK-EMP-SELECTED-YES DTSTOP03
|
|
00635 SET WRK-MRPT-OK TO TRUE DTSTOP03
|
|
00636 DISPLAY ' MRPT REPORT SELECTED ' MPRF-EMP-NO ' ' MRPT-YRQ DTSTOP03
|
|
00637 GO TO P5120-EXIT DTSTOP03
|
|
00638 END-IF. DTSTOP03
|
|
00639 DTSTOP03
|
|
00640 DTSTOP03
|
|
00641 P5120-EXIT. DTSTOP03
|
|
00642 EXIT. DTSTOP03
|
|
00643 DTSTOP03
|
|
00644 P5121-SCAN-MRPT. DTSTOP03
|
|
00645 MOVE MSKL-REC TO MRPT-REC. DTSTOP03
|
|
00646 IF MRPT-YRQ = MQTR-YRQ DTSTOP03
|
|
00647 NEXT SENTENCE DTSTOP03
|
|
00648 ELSE DTSTOP03
|
|
00649 IF MRPT-YRQ > MQTR-YRQ DTSTOP03
|
|
00650 SET WRK-EMP-SELECTED-NO TO TRUE DTSTOP03
|
|
00651 SET L910-NO-REC-88 TO TRUE DTSTOP03
|
|
00652 GO TO P5121-EXIT DTSTOP03
|
|
00653 ELSE DTSTOP03
|
|
00654 GO TO P5121-READ-NEXT DTSTOP03
|
|
00655 END-IF DTSTOP03
|
|
00656 END-IF. DTSTOP03
|
|
00657 DTSTOP03
|
|
00658 IF MRPT-ORIG-88 AND MRPT-RESPONSIBLE-OP-ID = 'WEBESSP ' DTSTOP03
|
|
00659 MOVE MRPT-BATCH-NO TO WRK-RPT-BATCH-NO DTSTOP03
|
|
00660 MOVE MRPT-ITEM-NO TO WRK-RPT-ITEM-NO DTSTOP03
|
|
00661 SET WRK-EMP-SELECTED-YES TO TRUE DTSTOP03
|
|
00662 SET L910-NO-REC-88 TO TRUE DTSTOP03
|
|
00663 GO TO P5121-EXIT DTSTOP03
|
|
00664 END-IF. DTSTOP03
|
|
00665 DTSTOP03
|
|
00666 DTSTOP03
|
|
00667 P5121-READ-NEXT. DTSTOP03
|
|
00668 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSTOP03
|
|
00669 IF L910-NO-REC-88 DTSTOP03
|
|
00670 SET WRK-MRPT-NO-REC TO TRUE. DTSTOP03
|
|
00671 DTSTOP03
|
|
00672 P5121-EXIT. DTSTOP03
|
|
00673 EXIT. DTSTOP03
|
|
00674 DTSTOP03
|
|
00675 P5130-ACCT-TRANS. DTSTOP03
|
|
00676 ** DISPLAY 'P5130 ' DTSTOP03
|
|
00677 ADD +1 TO SEQ. DTSTOP03
|
|
00678 ** MOVE MPRF-EMP-NO TO EMP-ACCT-DISP. DTSTOP03
|
|
00679 * DISPLAY SEQ ' RATED ' EMP-ACCT-DISP DTSTOP03
|
|
00680 * ' RPT DOC # ' WRK-RPT-BATCH-NO DTSTOP03
|
|
00681 ** ' ' WRK-RPT-ITEM-NO. DTSTOP03
|
|
00682 MOVE MPRF-EMP-NO TO OUT-EMP. DTSTOP03
|
|
00683 MOVE MQTR-YRQ TO L004-QTR-5-9. DTSTOP03
|
|
00684 SET L004-FROM-5 TO TRUE. DTSTOP03
|
|
00685 PERFORM S004-EDIT-QTR THRU S004-EXIT. DTSTOP03
|
|
00686 MOVE L004-SLASH-5-QTR TO OUT-QTR. DTSTOP03
|
|
00687 MOVE WRK-RPT-BATCH-NO TO OUT-BATCH. DTSTOP03
|
|
00688 MOVE WRK-RPT-ITEM-NO TO OUT-ITEM. DTSTOP03
|
|
00689 WRITE OUT-REC FROM WRK-OUT-REC. DTSTOP03
|
|
00690 IF NOT Z057-FILE-OK-88 DTSTOP03
|
|
00691 DISPLAY 'CANNOT WRITE OUTPUT FILE ' Z057-STATUS DTSTOP03
|
|
00692 SET WRK-ERROR-YES-88 TO TRUE DTSTOP03
|
|
00693 GO TO P5130-EXIT DTSTOP03
|
|
00694 END-IF. DTSTOP03
|
|
00695 PERFORM P5131-READ-MRPT-MPAY THRU P5131-EXIT. DTSTOP03
|
|
00696 PERFORM P5132-WITHDRAW-MRPT THRU P5132-EXIT. DTSTOP03
|
|
00697 PERFORM P5133-REVERSE-MPAY THRU P5133-EXIT. DTSTOP03
|
|
00698 * PERFORM P5134-ENTER-ARPT THRU P5134-EXIT. DTSTOP03
|
|
00699 DTSTOP03
|
|
00700 P5130-EXIT. DTSTOP03
|
|
00701 EXIT. DTSTOP03
|
|
00702 DTSTOP03
|
|
00703 P5131-READ-MRPT-MPAY. DTSTOP03
|
|
00704 ** DISPLAY 'P5131 READ MRPT MPAY ' DTSTOP03
|
|
00705 SET WRK-MPAY-FOUND-YES TO TRUE. DTSTOP03
|
|
00706 SET WRK-MRPT-FOUND-YES TO TRUE. DTSTOP03
|
|
00707 MOVE ZERO TO WRK-REMIT-AMT. DTSTOP03
|
|
00708 DTSTOP03
|
|
00709 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSTOP03
|
|
00710 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSTOP03
|
|
00711 MOVE MQTR-YRQ TO MRPT-YRQ. DTSTOP03
|
|
00712 MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO DTSTOP03
|
|
00713 MOVE WRK-RPT-ITEM-NO TO MRPT-ITEM-NO. DTSTOP03
|
|
00714 SET MRPT-RPT-88 TO TRUE. DTSTOP03
|
|
00715 MOVE MRPT-REC TO MSKL-REC. DTSTOP03
|
|
00716 DTSTOP03
|
|
00717 PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
00718 IF L910-OK-88 DTSTOP03
|
|
00719 DISPLAY ' MRPT-EMP-NO ' MRPT-EMP-NO DTSTOP03
|
|
00720 DISPLAY ' MRPT-YRQ ' MRPT-YRQ DTSTOP03
|
|
00721 DISPLAY ' MRPT-BATCH-NO ' MRPT-BATCH-NO DTSTOP03
|
|
00722 DISPLAY ' MRPT-ITEM-NO ' MRPT-ITEM-NO DTSTOP03
|
|
00723 MOVE MSKL-REC TO MRPT-REC DTSTOP03
|
|
00724 ELSE DTSTOP03
|
|
00725 DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO DTSTOP03
|
|
00726 SET WRK-MRPT-FOUND-NO TO TRUE DTSTOP03
|
|
00727 GO TO P5131-EXIT. DTSTOP03
|
|
00728 DTSTOP03
|
|
00729 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSTOP03
|
|
00730 MOVE MPRF-EMP-NO TO MPAY-EMP-NO. DTSTOP03
|
|
00731 MOVE WRK-RPT-BATCH-NO TO MPAY-BATCH-NO DTSTOP03
|
|
00732 MOVE WRK-RPT-ITEM-NO TO MPAY-ITEM-NO. DTSTOP03
|
|
00733 SET MPAY-PAY-88 TO TRUE. DTSTOP03
|
|
00734 MOVE MPAY-REC TO MSKL-REC. DTSTOP03
|
|
00735 DTSTOP03
|
|
00736 PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
00737 IF L910-OK-88 DTSTOP03
|
|
00738 MOVE MSKL-REC TO MPAY-REC DTSTOP03
|
|
00739 MOVE MPAY-REMIT-AMT TO WRK-REMIT-AMT DTSTOP03
|
|
00740 DISPLAY 'MPAY-EMP-NO ' MPAY-EMP-NO DTSTOP03
|
|
00741 DISPLAY 'MPAY-BATCH-NO ' MPAY-BATCH-NO DTSTOP03
|
|
00742 DISPLAY 'MPAY-ITEM-NO ' MPAY-ITEM-NO DTSTOP03
|
|
00743 ELSE DTSTOP03
|
|
00744 DISPLAY 'CANNOT FIND MPAY ' MPRF-EMP-NO DTSTOP03
|
|
00745 SET WRK-MPAY-FOUND-NO TO TRUE DTSTOP03
|
|
00746 GO TO P5131-EXIT. DTSTOP03
|
|
00747 DTSTOP03
|
|
00748 P5131-EXIT. DTSTOP03
|
|
00749 EXIT. DTSTOP03
|
|
00750 DTSTOP03
|
|
00751 P5132-WITHDRAW-MRPT. DTSTOP03
|
|
00752 * DISPLAY 'P5132 WITHDRAW MRPT ' DTSTOP03
|
|
00753 IF WRK-MRPT-FOUND-NO DTSTOP03
|
|
00754 GO TO P5132-EXIT. DTSTOP03
|
|
00755 DTSTOP03
|
|
00756 MOVE LOW-VALUES TO ARPT-REC. DTSTOP03
|
|
00757 DTSTOP03
|
|
00758 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSTOP03
|
|
00759 NEXT SENTENCE DTSTOP03
|
|
00760 ELSE DTSTOP03
|
|
00761 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSTOP03
|
|
00762 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSTOP03
|
|
00763 DTSTOP03
|
|
00764 MOVE AHDR-BATCH-NO TO ARPT-BATCH-NO. DTSTOP03
|
|
00765 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSTOP03
|
|
00766 MOVE AHDR-ATC-FILE-TRAN-CNT TO ARPT-ITEM-NO. DTSTOP03
|
|
00767 SET ARPT-RPT-88 TO TRUE. DTSTOP03
|
|
00768 DTSTOP03
|
|
00769 MOVE MPRF-PRIMARY-NAME TO ARPT-NAME-CHECK. DTSTOP03
|
|
00770 MOVE MPRF-EMP-NO TO ARPT-EMP-NO. DTSTOP03
|
|
00771 SET ARPT-WITHDRW-88 TO TRUE. DTSTOP03
|
|
00772 MOVE MQTR-YRQ TO ARPT-YRQ. DTSTOP03
|
|
00773 DTSTOP03
|
|
00774 COMPUTE ARPT-TOT-WAGE = DTSTOP03
|
|
00775 -1 * MRPT-TOT-WAGE. DTSTOP03
|
|
00776 COMPUTE ARPT-TAX-WAGE = DTSTOP03
|
|
00777 -1 * MRPT-TAX-WAGE. DTSTOP03
|
|
00778 COMPUTE ARPT-EXCESS-WAGE = DTSTOP03
|
|
00779 -1 * MRPT-EXCESS-WAGE. DTSTOP03
|
|
00780 DTSTOP03
|
|
00781 MOVE +0 TO ARPT-REMIT-AMT. DTSTOP03
|
|
00782 SET ARPT-WAGE-RPT-NO-ENTRY-88 TO TRUE. DTSTOP03
|
|
00783 SET ARPT-WAIVE-BOTH-NO-88 DTSTOP03
|
|
00784 ARPT-WAIVE-INT-NO-88 DTSTOP03
|
|
00785 ARPT-WAIVE-LATE-PEN-NO-88 DTSTOP03
|
|
00786 ARPT-STATUS-CHNG-NO-88 TO TRUE. DTSTOP03
|
|
00787 DTSTOP03
|
|
00788 SET ARPT-TOTAL-NO-ENTRY-88 DTSTOP03
|
|
00789 ARPT-1ST-MTH-NO-ENTRY-88 DTSTOP03
|
|
00790 ARPT-2ND-MTH-NO-ENTRY-88 DTSTOP03
|
|
00791 ARPT-3RD-MTH-NO-ENTRY-88 TO TRUE. DTSTOP03
|
|
00792 DTSTOP03
|
|
00793 SET ARPT-VERIFIED-NO-88 TO TRUE. DTSTOP03
|
|
00794 MOVE +0 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00795 ARPT-DEPOSIT-DATE. DTSTOP03
|
|
00796 MOVE 'SYS' TO ARPT-RESPONSIBLE-ACTIVITY. DTSTOP03
|
|
00797 MOVE SPACES TO ARPT-RESPONSIBLE-OP-ID. DTSTOP03
|
|
00798 MOVE SPACE TO ARPT-DISREGARD-EDITS-IND. DTSTOP03
|
|
00799 SET ARPT-PASSED-FULL-EDITS-YES-88 TO TRUE. DTSTOP03
|
|
00800 MOVE +0 TO ARPT-PROCESSED-DATE DTSTOP03
|
|
00801 ARPT-TRACE-NO DTSTOP03
|
|
00802 ARPT-PSEUDO-BATCH-NO DTSTOP03
|
|
00803 ARPT-PSEUDO-ITEM-NO. DTSTOP03
|
|
00804 DTSTOP03
|
|
00805 MOVE ARPT-REC TO ASKL-REC. DTSTOP03
|
|
00806 ** DISPLAY 'ARPT-NAME-CHECK ' ARPT-NAME-CHECK DTSTOP03
|
|
00807 ** DISPLAY 'ARPT-EMP-NO ' ARPT-EMP-NO DTSTOP03
|
|
00808 ** DISPLAY 'ARPT-YRQ ' ARPT-YRQ DTSTOP03
|
|
00809 PERFORM S923-WRITE THRU S923-EXIT. DTSTOP03
|
|
00810 DTSTOP03
|
|
00811 DISPLAY 'P5132 REPORT WITHDRAWN ' ARPT-EMP-NO ' ' ARPT-YRQ. DTSTOP03
|
|
00812 P5132-EXIT. DTSTOP03
|
|
00813 EXIT. DTSTOP03
|
|
00814 DTSTOP03
|
|
00815 P5133-REVERSE-MPAY. DTSTOP03
|
|
00816 DTSTOP03
|
|
00817 ** DISPLAY 'P5133 REVERSE MPAY ' DTSTOP03
|
|
00818 IF WRK-MPAY-FOUND-NO DTSTOP03
|
|
00819 GO TO P5133-EXIT. DTSTOP03
|
|
00820 DTSTOP03
|
|
00821 MOVE LOW-VALUES TO APAY-REC. DTSTOP03
|
|
00822 DTSTOP03
|
|
00823 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSTOP03
|
|
00824 NEXT SENTENCE DTSTOP03
|
|
00825 ELSE DTSTOP03
|
|
00826 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSTOP03
|
|
00827 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSTOP03
|
|
00828 DTSTOP03
|
|
00829 MOVE AHDR-BATCH-NO TO APAY-BATCH-NO. DTSTOP03
|
|
00830 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSTOP03
|
|
00831 MOVE AHDR-ATC-FILE-TRAN-CNT TO APAY-ITEM-NO. DTSTOP03
|
|
00832 SET APAY-PAY-88 TO TRUE. DTSTOP03
|
|
00833 DTSTOP03
|
|
00834 MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK. DTSTOP03
|
|
00835 MOVE MPRF-EMP-NO TO APAY-EMP-NO. DTSTOP03
|
|
00836 SET APAY-PAY-REV-88 TO TRUE. DTSTOP03
|
|
00837 DTSTOP03
|
|
00838 COMPUTE APAY-REMIT-AMT = DTSTOP03
|
|
00839 -1 * MPAY-REMIT-AMT. DTSTOP03
|
|
00840 DTSTOP03
|
|
00841 ADD APAY-REMIT-AMT TO AHDR-ATC-FILE-REMIT-AMT. DTSTOP03
|
|
00842 DTSTOP03
|
|
00843 SET APAY-WAIVE-INT-NO-88 DTSTOP03
|
|
00844 APAY-WAIVE-LATE-PEN-NO-88 DTSTOP03
|
|
00845 APAY-NSF-PEN-CHARGE-NO-88 TO TRUE. DTSTOP03
|
|
00846 DTSTOP03
|
|
00847 MOVE +0 TO APAY-RECEIVED-DATE DTSTOP03
|
|
00848 APAY-DEPOSIT-DATE DTSTOP03
|
|
00849 APAY-APPLIC-YRQ. DTSTOP03
|
|
00850 MOVE SPACES TO APAY-APPLIC-IND. DTSTOP03
|
|
00851 DTSTOP03
|
|
00852 MOVE MPAY-BATCH-NO TO APAY-APPLIC-BATCH-NO. DTSTOP03
|
|
00853 MOVE MPAY-ITEM-NO TO APAY-APPLIC-ITEM-NO. DTSTOP03
|
|
00854 DTSTOP03
|
|
00855 MOVE 'SYS' TO APAY-RESPONSIBLE-ACTIVITY. DTSTOP03
|
|
00856 MOVE SPACES TO APAY-RESPONSIBLE-OP-ID. DTSTOP03
|
|
00857 MOVE SPACE TO APAY-DISREGARD-EDITS-IND. DTSTOP03
|
|
00858 MOVE +0 TO APAY-PROCESSED-DATE. DTSTOP03
|
|
00859 MOVE +0 TO APAY-NSF-MNTE-ABSTIME. DTSTOP03
|
|
00860 MOVE +0 TO APAY-TRACE-NO. DTSTOP03
|
|
00861 SET APAY-ANNUAL-RPT-NULL-88 TO TRUE. DTSTOP03
|
|
00862 ** DISPLAY 'MPAY-BATCH-NO ' MPAY-BATCH-NO DTSTOP03
|
|
00863 ** DISPLAY 'MPAY-ITEM-NO ' MPAY-ITEM-NO DTSTOP03
|
|
00864 MOVE APAY-REC TO ASKL-REC. DTSTOP03
|
|
00865 DTSTOP03
|
|
00866 PERFORM S923-WRITE THRU S923-EXIT. DTSTOP03
|
|
00867 DTSTOP03
|
|
00868 DISPLAY 'MPAY REVERSED ' MPAY-BATCH-NO ' ' MPAY-ITEM-NO DTSTOP03
|
|
00869 ' ' MPAY-EMP-NO. DTSTOP03
|
|
00870 P5133-EXIT. DTSTOP03
|
|
00871 EXIT. DTSTOP03
|
|
00872 DTSTOP03
|
|
00873 P5134-ENTER-ARPT. DTSTOP03
|
|
00874 DTSTOP03
|
|
00875 ** DISPLAY 'P5134 ENTER APRT ' DTSTOP03
|
|
00876 DTSTOP03
|
|
00877 IF WRK-MRPT-FOUND-NO DTSTOP03
|
|
00878 GO TO P5134-EXIT. DTSTOP03
|
|
00879 DTSTOP03
|
|
00880 MOVE LOW-VALUES TO ARPT-REC. DTSTOP03
|
|
00881 DTSTOP03
|
|
00882 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSTOP03
|
|
00883 NEXT SENTENCE DTSTOP03
|
|
00884 ELSE DTSTOP03
|
|
00885 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSTOP03
|
|
00886 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSTOP03
|
|
00887 DTSTOP03
|
|
00888 MOVE AHDR-BATCH-NO TO ARPT-BATCH-NO. DTSTOP03
|
|
00889 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSTOP03
|
|
00890 MOVE AHDR-ATC-FILE-TRAN-CNT TO ARPT-ITEM-NO. DTSTOP03
|
|
00891 SET ARPT-RPT-88 TO TRUE. DTSTOP03
|
|
00892 DTSTOP03
|
|
00893 MOVE MPRF-PRIMARY-NAME TO ARPT-NAME-CHECK. DTSTOP03
|
|
00894 MOVE MPRF-EMP-NO TO ARPT-EMP-NO. DTSTOP03
|
|
00895 SET ARPT-ORIG-88 TO TRUE. DTSTOP03
|
|
00896 MOVE MQTR-YRQ TO ARPT-YRQ. DTSTOP03
|
|
00897 DTSTOP03
|
|
00898 COMPUTE ARPT-TOT-WAGE = DTSTOP03
|
|
00899 MRPT-TOT-WAGE. DTSTOP03
|
|
00900 COMPUTE ARPT-TAX-WAGE = DTSTOP03
|
|
00901 MRPT-TAX-WAGE. DTSTOP03
|
|
00902 COMPUTE ARPT-EXCESS-WAGE = DTSTOP03
|
|
00903 MRPT-EXCESS-WAGE. DTSTOP03
|
|
00904 DTSTOP03
|
|
00905 MOVE WRK-REMIT-AMT TO ARPT-REMIT-AMT. DTSTOP03
|
|
00906 ADD ARPT-REMIT-AMT TO AHDR-ATC-FILE-REMIT-AMT. DTSTOP03
|
|
00907 SET ARPT-WAGE-RPT-NO-ENTRY-88 TO TRUE. DTSTOP03
|
|
00908 SET ARPT-WAIVE-BOTH-NO-88 DTSTOP03
|
|
00909 ARPT-WAIVE-INT-NO-88 DTSTOP03
|
|
00910 ARPT-WAIVE-LATE-PEN-NO-88 TO TRUE. DTSTOP03
|
|
00911 DTSTOP03
|
|
00912 MOVE MRPT-TOTAL-EMPL-CNT TO ARPT-TOTAL-EMPL-CNT. DTSTOP03
|
|
00913 MOVE MRPT-1ST-MTH-EMPL-CNT TO ARPT-1ST-MTH-EMPL-CNT. DTSTOP03
|
|
00914 MOVE MRPT-2ND-MTH-EMPL-CNT TO ARPT-2ND-MTH-EMPL-CNT. DTSTOP03
|
|
00915 MOVE MRPT-3RD-MTH-EMPL-CNT TO ARPT-3RD-MTH-EMPL-CNT. DTSTOP03
|
|
00916 DTSTOP03
|
|
00917 SET ARPT-VERIFIED-NO-88 TO TRUE. DTSTOP03
|
|
00918 ****FIX RECEIVED DATE HERE DTSTOP03
|
|
00919 EVALUATE MPRF-EMP-NO DTSTOP03
|
|
00920 WHEN 179242 DTSTOP03
|
|
00921 MOVE 20131127 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00922 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00923 WHEN 173938 DTSTOP03
|
|
00924 MOVE 20131120 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00925 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00926 WHEN 178627 DTSTOP03
|
|
00927 MOVE 20131125 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00928 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00929 WHEN 178646 DTSTOP03
|
|
00930 MOVE 20131125 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00931 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00932 WHEN 178842 DTSTOP03
|
|
00933 MOVE 20131125 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00934 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00935 WHEN 179229 DTSTOP03
|
|
00936 MOVE 20131125 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00937 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00938 WHEN 179678 DTSTOP03
|
|
00939 MOVE 20131125 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00940 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00941 WHEN 179748 DTSTOP03
|
|
00942 MOVE 20131125 TO ARPT-RECEIVED-DATE DTSTOP03
|
|
00943 ARPT-DEPOSIT-DATE DTSTOP03
|
|
00944 WHEN OTHER DTSTOP03
|
|
00945 DISPLAY 'ERROR IN FIXING RECEIVED DATE' DTSTOP03
|
|
00946 END-EVALUATE. DTSTOP03
|
|
00947 DTSTOP03
|
|
00948 MOVE MRPT-RESPONSIBLE-ACTIVITY DTSTOP03
|
|
00949 TO ARPT-RESPONSIBLE-ACTIVITY DTSTOP03
|
|
00950 MOVE 'SYS' TO ARPT-RESPONSIBLE-ACTIVITY. DTSTOP03
|
|
00951 MOVE MRPT-RESPONSIBLE-OP-ID DTSTOP03
|
|
00952 TO ARPT-RESPONSIBLE-OP-ID. DTSTOP03
|
|
00953 MOVE SPACE TO ARPT-DISREGARD-EDITS-IND. DTSTOP03
|
|
00954 SET ARPT-PASSED-FULL-EDITS-YES-88 TO TRUE. DTSTOP03
|
|
00955 MOVE +0 TO ARPT-PROCESSED-DATE. DTSTOP03
|
|
00956 MOVE +0 TO ARPT-PSEUDO-BATCH-NO DTSTOP03
|
|
00957 ARPT-PSEUDO-ITEM-NO DTSTOP03
|
|
00958 ARPT-TRACE-NO. DTSTOP03
|
|
00959 SET ARPT-STATUS-CHNG-NO-88 TO TRUE. DTSTOP03
|
|
00960 DTSTOP03
|
|
00961 MOVE ARPT-REC TO ASKL-REC. DTSTOP03
|
|
00962 ** DISPLAY 'ARPT-BATCH-NO ' ARPT-BATCH-NO DTSTOP03
|
|
00963 ** DISPLAY 'ARPT-EMP-NO ' ARPT-EMP-NO DTSTOP03
|
|
00964 ** DISPLAY 'ARPT-YRQ ' ARPT-YRQ DTSTOP03
|
|
00965 PERFORM S923-WRITE THRU S923-EXIT. DTSTOP03
|
|
00966 DTSTOP03
|
|
00967 DTSTOP03
|
|
00968 P5134-EXIT. DTSTOP03
|
|
00969 EXIT. DTSTOP03
|
|
00970 DTSTOP03
|
|
00971 P5140-ACCT-TRANS. DTSTOP03
|
|
00972 MOVE ZERO TO WRK-REMIT-AMT. DTSTOP03
|
|
00973 ADD +1 TO SEQ. DTSTOP03
|
|
00974 ** MOVE MPRF-EMP-NO TO EMP-ACCT-DISP DTSTOP03
|
|
00975 * DISPLAY SEQ ' SELF INS ' EMP-ACCT-DISP DTSTOP03
|
|
00976 * ' RPT DOC # ' WRK-RPT-BATCH-NO DTSTOP03
|
|
00977 ** ' ' WRK-RPT-ITEM-NO. DTSTOP03
|
|
00978 MOVE MPRF-EMP-NO TO OUT-EMP. DTSTOP03
|
|
00979 MOVE MRPT-YRQ TO L004-QTR-5-9. DTSTOP03
|
|
00980 SET L004-FROM-5 TO TRUE. DTSTOP03
|
|
00981 PERFORM S004-EDIT-QTR THRU S004-EXIT. DTSTOP03
|
|
00982 MOVE L004-SLASH-5-QTR TO OUT-QTR. DTSTOP03
|
|
00983 MOVE WRK-RPT-BATCH-NO TO OUT-BATCH. DTSTOP03
|
|
00984 MOVE WRK-RPT-ITEM-NO TO OUT-ITEM. DTSTOP03
|
|
00985 WRITE OUT-REC FROM WRK-OUT-REC. DTSTOP03
|
|
00986 IF NOT Z058-FILE-OK-88 DTSTOP03
|
|
00987 DISPLAY 'CANNOT WRITE OUTPUT FILE ' Z058-STATUS DTSTOP03
|
|
00988 SET WRK-ERROR-YES-88 TO TRUE DTSTOP03
|
|
00989 GO TO P5140-EXIT DTSTOP03
|
|
00990 END-IF. DTSTOP03
|
|
00991 PERFORM P5141-READ-MRPT THRU P5141-EXIT. DTSTOP03
|
|
00992 PERFORM P5132-WITHDRAW-MRPT THRU P5132-EXIT. DTSTOP03
|
|
00993 * PERFORM P5134-ENTER-ARPT THRU P5134-EXIT. DTSTOP03
|
|
00994 DTSTOP03
|
|
00995 P5140-EXIT. DTSTOP03
|
|
00996 EXIT. DTSTOP03
|
|
00997 DTSTOP03
|
|
00998 P5141-READ-MRPT. DTSTOP03
|
|
00999 SET WRK-MRPT-FOUND-YES TO TRUE. DTSTOP03
|
|
01000 DTSTOP03
|
|
01001 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSTOP03
|
|
01002 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSTOP03
|
|
01003 MOVE MQTR-YRQ TO MRPT-YRQ. DTSTOP03
|
|
01004 MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO DTSTOP03
|
|
01005 MOVE WRK-RPT-ITEM-NO TO MRPT-ITEM-NO. DTSTOP03
|
|
01006 SET MRPT-RPT-88 TO TRUE. DTSTOP03
|
|
01007 MOVE MRPT-REC TO MSKL-REC. DTSTOP03
|
|
01008 DTSTOP03
|
|
01009 PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
01010 IF L910-OK-88 DTSTOP03
|
|
01011 MOVE MSKL-REC TO MRPT-REC DTSTOP03
|
|
01012 ELSE DTSTOP03
|
|
01013 ** DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO DTSTOP03
|
|
01014 SET WRK-MRPT-FOUND-NO TO TRUE DTSTOP03
|
|
01015 GO TO P5141-EXIT. DTSTOP03
|
|
01016 DTSTOP03
|
|
01017 P5141-EXIT. DTSTOP03
|
|
01018 EXIT. DTSTOP03
|
|
01019 DTSTOP03
|
|
01020 P5200-ADD-MNTE. DTSTOP03
|
|
01021 MOVE LENGTH OF T003-REC TO T003-LENGTH. DTSTOP03
|
|
01022 MOVE '003' TO T003-REC-TYPE. DTSTOP03
|
|
01023 MOVE 'SYSTEM ' TO T003-ORIGIN. DTSTOP03
|
|
01024 MOVE L005-DATE TO T003-SYS-DATE. DTSTOP03
|
|
01025 MOVE L005-TIME TO T003-SYS-TIME. DTSTOP03
|
|
01026 SET T003-ADD-MNTE-88 TO TRUE. DTSTOP03
|
|
01027 DTSTOP03
|
|
01028 MOVE LOW-VALUES TO DTSTOP03
|
|
01029 MNTE-KEY-AREA. DTSTOP03
|
|
01030 MOVE MPRF-EMP-NO TO MNTE-EMP-NO. DTSTOP03
|
|
01031 SET MNTE-NTE-88 TO TRUE. DTSTOP03
|
|
01032 MOVE +0 TO MNTE-PURGE-DATE. DTSTOP03
|
|
01033 SET MNTE-NOT-CONVERTED-88 TO TRUE. DTSTOP03
|
|
01034 DTSTOP03
|
|
01035 MOVE L005-DATE TO MNTE-ESTB-DATE DTSTOP03
|
|
01036 MNTE-CHNG-DATE. DTSTOP03
|
|
01037 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME DTSTOP03
|
|
01038 MNTE-DATA-ESTB-ABSTIME DTSTOP03
|
|
01039 MNTE-CHNG-ABSTIME. DTSTOP03
|
|
01040 MOVE 'SYSTEM ' TO MNTE-ESTB-OP-ID DTSTOP03
|
|
01041 MNTE-CHNG-OP-ID. DTSTOP03
|
|
01042 DTSTOP03
|
|
01043 MOVE '4TH QTR ANNUAL REPORT CORRECTION ' DTSTOP03
|
|
01044 TO MNTE-SUBJECT. DTSTOP03
|
|
01045 DTSTOP03
|
|
01046 MOVE +2 TO MNTE-TEXT-CNT. DTSTOP03
|
|
01047 DTSTOP03
|
|
01048 MOVE 2014 TO WRK-MNTE-MSG-YR DTSTOP03
|
|
01049 MOVE 4 TO WRK-MNTE-MSG-QTR DTSTOP03
|
|
01050 MOVE WRK-MNTE-MSG-LINE1 TO MNTE-TEXT (1). DTSTOP03
|
|
01051 MOVE WRK-MNTE-MSG-LINE2 TO MNTE-TEXT (2). DTSTOP03
|
|
01052 ** MOVE WRK-MNTE-MSG-LINE3 TO MNTE-TEXT (3). DTSTOP03
|
|
01053 DTSTOP03
|
|
01054 MOVE MPRF-EMP-NO TO T003-EMP-NO. DTSTOP03
|
|
01055 MOVE MNTE-REC TO T003-MNTE-REC. DTSTOP03
|
|
01056 DTSTOP03
|
|
01057 MOVE T003-REC TO TSKL-REC. DTSTOP03
|
|
01058 PERFORM S927-WRITE THRU S927-EXIT. DTSTOP03
|
|
01059 ADD +1 TO WRK-T003-CNT. DTSTOP03
|
|
01060 DTSTOP03
|
|
01061 P5200-EXIT. DTSTOP03
|
|
01062 EXIT. DTSTOP03
|
|
01063 DTSTOP03
|
|
01064 SKIP3 DTSTOP03
|
|
01065 T0000-TERMINATE. DTSTOP03
|
|
01066 DTSTOP03
|
|
01067 * PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT. DTSTOP03
|
|
01068 DTSTOP03
|
|
01069 PERFORM S923-CLOSE THRU S923-EXIT. DTSTOP03
|
|
01070 PERFORM S927-CLOSE THRU S927-EXIT. DTSTOP03
|
|
01071 DTSTOP03
|
|
01072 * MOVE MHDR-LAST-USED-BATCH-NO TO HOLD-LAST-USED-BATCH-NO. DTSTOP03
|
|
01073 DTSTOP03
|
|
01074 * MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSTOP03
|
|
01075 DTSTOP03
|
|
01076 * PERFORM S910-READ THRU S910-EXIT. DTSTOP03
|
|
01077 * IF L910-NO-REC-88 DTSTOP03
|
|
01078 * MOVE 'MHDR RECORD NOT FOUND (T0000)' DTSTOP03
|
|
01079 * TO ABEND-MSG DTSTOP03
|
|
01080 * PERFORM S999-ABEND THRU S999-EXIT. DTSTOP03
|
|
01081 DTSTOP03
|
|
01082 * MOVE MSKL-REC TO MHDR-REC. DTSTOP03
|
|
01083 * MOVE HOLD-LAST-USED-BATCH-NO TO MHDR-LAST-USED-BATCH-NO. DTSTOP03
|
|
01084 * MOVE MHDR-CURR-RUN-DATE TO MHDR-CHNG-DATE. DTSTOP03
|
|
01085 * MOVE MHDR-REC TO MSKL-REC. DTSTOP03
|
|
01086 DTSTOP03
|
|
01087 * PERFORM S910-REWRITE THRU S910-EXIT. DTSTOP03
|
|
01088 * DISPLAY 'LAST BATCH: ' AHDR-BATCH-NO. DTSTOP03
|
|
01089 DTSTOP03
|
|
01090 DISPLAY ' '. DTSTOP03
|
|
01091 DTSTOP03
|
|
01092 DISPLAY '*** DTSBZ058 TERMINATION STATISTICS ***'. DTSTOP03
|
|
01093 DTSTOP03
|
|
01094 DISPLAY ' '. DTSTOP03
|
|
01095 DTSTOP03
|
|
01096 DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSTOP03
|
|
01097 WRK-MPRF-CNT. DTSTOP03
|
|
01098 DTSTOP03
|
|
01099 DISPLAY 'NUMBER OF ACCOUNTS UPDATED : 'DTSTOP03
|
|
01100 WRK-UPDATE-CNT. DTSTOP03
|
|
01101 DTSTOP03
|
|
01102 DISPLAY 'NUMBER OF EMPLOYERS EXCLUDED : 'DTSTOP03
|
|
01103 WRK-EXCLUDE-CNT. DTSTOP03
|
|
01104 DTSTOP03
|
|
01105 DISPLAY 'NOTEPAD RECORDS CREATED : 'DTSTOP03
|
|
01106 WRK-T003-CNT. DTSTOP03
|
|
01107 DTSTOP03
|
|
01108 DISPLAY 'AMOUNT OF INTEREST REVERSED : 'DTSTOP03
|
|
01109 WRK-INTEREST-AMT. DTSTOP03
|
|
01110 DTSTOP03
|
|
01111 PERFORM S910-CLOSE THRU S910-EXIT. DTSTOP03
|
|
01112 CLOSE OUT-FILE IN-FILE. DTSTOP03
|
|
01113 DTSTOP03
|
|
01114 T0000-EXIT. DTSTOP03
|
|
01115 EXIT. DTSTOP03
|
|
01116 EJECT DTSTOP03
|
|
01117 DTSTOP03
|
|
01118 S1000-INITIATE-AHDR. DTSTOP03
|
|
01119 MOVE LOW-VALUES TO AHDR-REC. DTSTOP03
|
|
01120 DTSTOP03
|
|
01121 IF MHDR-LAST-USED-BATCH-NO < +99999 DTSTOP03
|
|
01122 COMPUTE AHDR-BATCH-NO = MHDR-LAST-USED-BATCH-NO + 1 DTSTOP03
|
|
01123 ELSE DTSTOP03
|
|
01124 MOVE +1 TO AHDR-BATCH-NO. DTSTOP03
|
|
01125 DTSTOP03
|
|
01126 MOVE +0 TO AHDR-ITEM-NO. DTSTOP03
|
|
01127 SET AHDR-HDR-88 TO TRUE. DTSTOP03
|
|
01128 SET AHDR-BATCH-BALANCED-YES-88 TO TRUE. DTSTOP03
|
|
01129 SET AHDR-BATCH-HELD-NO-88 TO TRUE. DTSTOP03
|
|
01130 SET AHDR-ESTB-SYSTEM-88 TO TRUE. DTSTOP03
|
|
01131 MOVE SPACES TO AHDR-CHNG-OP-ID. DTSTOP03
|
|
01132 MOVE +0 TO AHDR-CHNG-DATE. DTSTOP03
|
|
01133 MOVE MHDR-CURR-RUN-DATE TO AHDR-ESTB-DATE DTSTOP03
|
|
01134 AHDR-RECEIVED-DATE DTSTOP03
|
|
01135 AHDR-DEPOSIT-DATE. DTSTOP03
|
|
01136 MOVE +0 TO AHDR-LAST-USED-ITEM-NO DTSTOP03
|
|
01137 AHDR-CONTROL-TRAN-CNT DTSTOP03
|
|
01138 AHDR-ATC-FILE-TRAN-CNT DTSTOP03
|
|
01139 AHDR-PROC-TRAN-CNT DTSTOP03
|
|
01140 AHDR-CONTROL-REMIT-AMT DTSTOP03
|
|
01141 AHDR-ATC-FILE-REMIT-AMT DTSTOP03
|
|
01142 AHDR-PROC-REMIT-AMT DTSTOP03
|
|
01143 AHDR-BANK-BATCH-NO. DTSTOP03
|
|
01144 DTSTOP03
|
|
01145 S1000-EXIT. DTSTOP03
|
|
01146 EXIT. DTSTOP03
|
|
01147 DTSTOP03
|
|
01148 S2000-TERMINATE-AHDR. DTSTOP03
|
|
01149 IF AHDR-ATC-FILE-TRAN-CNT = +0 DTSTOP03
|
|
01150 GO TO S2000-EXIT. DTSTOP03
|
|
01151 DTSTOP03
|
|
01152 MOVE AHDR-BATCH-NO TO MHDR-LAST-USED-BATCH-NO. DTSTOP03
|
|
01153 MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-LAST-USED-ITEM-NO. DTSTOP03
|
|
01154 MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-CONTROL-TRAN-CNT. DTSTOP03
|
|
01155 MOVE AHDR-ATC-FILE-REMIT-AMT TO AHDR-CONTROL-REMIT-AMT. DTSTOP03
|
|
01156 MOVE AHDR-REC TO ASKL-REC. DTSTOP03
|
|
01157 DTSTOP03
|
|
01158 PERFORM S923-WRITE THRU S923-EXIT. DTSTOP03
|
|
01159 DTSTOP03
|
|
01160 S2000-EXIT. DTSTOP03
|
|
01161 EXIT. DTSTOP03
|
|
01162 DTSTOP03
|
|
01163 S004-EDIT-QTR. DTSTOP03
|
|
01164 CALL 'DTSBU004' USING L004-COMM-AREA. DTSTOP03
|
|
01165 DTSTOP03
|
|
01166 S004-EXIT. DTSTOP03
|
|
01167 EXIT. DTSTOP03
|
|
01168 SKIP3 DTSTOP03
|
|
01169 S005-FROM-SYS. DTSTOP03
|
|
01170 SET L005-FROM-SYS TO TRUE. DTSTOP03
|
|
01171 CALL 'DTSBU005' USING L005-LINK-AREA. DTSTOP03
|
|
01172 DTSTOP03
|
|
01173 S005-EXIT. DTSTOP03
|
|
01174 EXIT. DTSTOP03
|
|
01175 DTSTOP03
|
|
01176 S101-PER-MONTH-NO. DTSTOP03
|
|
01177 SET L101-PER-MONTH-NO-88 TO TRUE. DTSTOP03
|
|
01178 GO TO S101-INT-PEN-COMP. DTSTOP03
|
|
01179 DTSTOP03
|
|
01180 S101-PER-MONTH-YES. DTSTOP03
|
|
01181 SET L101-PER-MONTH-YES-88 TO TRUE. DTSTOP03
|
|
01182 GO TO S101-INT-PEN-COMP. DTSTOP03
|
|
01183 DTSTOP03
|
|
01184 S101-INT-PEN-COMP. DTSTOP03
|
|
01185 CALL 'DTSBU101' USING L101-LINK-AREA. DTSTOP03
|
|
01186 S101-EXIT. DTSTOP03
|
|
01187 EXIT. DTSTOP03
|
|
01188 S910-OPEN-READ. DTSTOP03
|
|
01189 SET L910-OPEN-READ-88 TO TRUE. DTSTOP03
|
|
01190 GO TO S910-MSTR-IO. DTSTOP03
|
|
01191 DTSTOP03
|
|
01192 S910-OPEN-UPDATE-NO-AIX. DTSTOP03
|
|
01193 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSTOP03
|
|
01194 GO TO S910-MSTR-IO. DTSTOP03
|
|
01195 DTSTOP03
|
|
01196 S910-OPEN-UPDATE-HDR. DTSTOP03
|
|
01197 SET L910-OPEN-UPDATE-HDR-88 TO TRUE. DTSTOP03
|
|
01198 GO TO S910-MSTR-IO. DTSTOP03
|
|
01199 DTSTOP03
|
|
01200 S910-READ. DTSTOP03
|
|
01201 SET L910-READ-88 TO TRUE. DTSTOP03
|
|
01202 GO TO S910-MSTR-IO. DTSTOP03
|
|
01203 DTSTOP03
|
|
01204 S910-START-BROWSE. DTSTOP03
|
|
01205 SET L910-START-BROWSE-88 TO TRUE. DTSTOP03
|
|
01206 GO TO S910-MSTR-IO. DTSTOP03
|
|
01207 DTSTOP03
|
|
01208 S910-READ-NEXT. DTSTOP03
|
|
01209 SET L910-READ-NEXT-88 TO TRUE. DTSTOP03
|
|
01210 GO TO S910-MSTR-IO. DTSTOP03
|
|
01211 DTSTOP03
|
|
01212 S910-COUNT. DTSTOP03
|
|
01213 SET L910-COUNT-88 TO TRUE. DTSTOP03
|
|
01214 GO TO S910-MSTR-IO. DTSTOP03
|
|
01215 DTSTOP03
|
|
01216 S910-REWRITE. DTSTOP03
|
|
01217 SET L910-REWRITE-88 TO TRUE. DTSTOP03
|
|
01218 GO TO S910-MSTR-IO. DTSTOP03
|
|
01219 DTSTOP03
|
|
01220 S910-DELETE. DTSTOP03
|
|
01221 SET L910-DELETE-88 TO TRUE. DTSTOP03
|
|
01222 GO TO S910-MSTR-IO. DTSTOP03
|
|
01223 DTSTOP03
|
|
01224 S910-CLOSE. DTSTOP03
|
|
01225 SET L910-CLOSE-88 TO TRUE. DTSTOP03
|
|
01226 GO TO S910-MSTR-IO. DTSTOP03
|
|
01227 DTSTOP03
|
|
01228 S910-MSTR-IO. DTSTOP03
|
|
01229 CALL 'DTSBU910' USING L910-LINK-AREA DTSTOP03
|
|
01230 MSKL-REC. DTSTOP03
|
|
01231 S910-EXIT. DTSTOP03
|
|
01232 EXIT. DTSTOP03
|
|
01233 SKIP3 DTSTOP03
|
|
01234 S923-OPEN-UPDATE. DTSTOP03
|
|
01235 SET L923-OPEN-UPDATE-88 TO TRUE. DTSTOP03
|
|
01236 GO TO S923-ATC-IO. DTSTOP03
|
|
01237 DTSTOP03
|
|
01238 S923-OPEN-READ. DTSTOP03
|
|
01239 SET L923-OPEN-READ-88 TO TRUE. DTSTOP03
|
|
01240 GO TO S923-ATC-IO. DTSTOP03
|
|
01241 DTSTOP03
|
|
01242 S923-READ. DTSTOP03
|
|
01243 SET L923-READ-88 TO TRUE. DTSTOP03
|
|
01244 GO TO S923-ATC-IO. DTSTOP03
|
|
01245 DTSTOP03
|
|
01246 S923-START-BROWSE. DTSTOP03
|
|
01247 SET L923-START-BROWSE-88 TO TRUE. DTSTOP03
|
|
01248 GO TO S923-ATC-IO. DTSTOP03
|
|
01249 DTSTOP03
|
|
01250 S923-READ-NEXT. DTSTOP03
|
|
01251 SET L923-READ-NEXT-88 TO TRUE. DTSTOP03
|
|
01252 GO TO S923-ATC-IO. DTSTOP03
|
|
01253 DTSTOP03
|
|
01254 S923-WRITE. DTSTOP03
|
|
01255 ** DISPLAY 'S923 WRITE ' DTSTOP03
|
|
01256 SET L923-WRITE-88 TO TRUE. DTSTOP03
|
|
01257 GO TO S923-ATC-IO. DTSTOP03
|
|
01258 DTSTOP03
|
|
01259 S923-REWRITE. DTSTOP03
|
|
01260 SET L923-REWRITE-88 TO TRUE. DTSTOP03
|
|
01261 GO TO S923-ATC-IO. DTSTOP03
|
|
01262 DTSTOP03
|
|
01263 S923-DELETE. DTSTOP03
|
|
01264 SET L923-DELETE-88 TO TRUE. DTSTOP03
|
|
01265 GO TO S923-ATC-IO. DTSTOP03
|
|
01266 DTSTOP03
|
|
01267 S923-CLOSE. DTSTOP03
|
|
01268 SET L923-CLOSE-88 TO TRUE. DTSTOP03
|
|
01269 GO TO S923-ATC-IO. DTSTOP03
|
|
01270 DTSTOP03
|
|
01271 S923-ATC-IO. DTSTOP03
|
|
01272 ** DISPLAY 'DTSBU923 ' DTSTOP03
|
|
01273 ** DISPLAY 'L923 LINK AREA ' L923-LINK-AREA DTSTOP03
|
|
01274 CALL 'DTSBU923' USING L923-LINK-AREA DTSTOP03
|
|
01275 ASKL-REC. DTSTOP03
|
|
01276 S923-EXIT. DTSTOP03
|
|
01277 EXIT. DTSTOP03
|
|
01278 SKIP3 DTSTOP03
|
|
01279 S927-OPEN-UPDATE. DTSTOP03
|
|
01280 SET L927-OPEN-UPDATE-88 TO TRUE. DTSTOP03
|
|
01281 GO TO S927-BTC-O. DTSTOP03
|
|
01282 DTSTOP03
|
|
01283 S927-WRITE. DTSTOP03
|
|
01284 SET L927-WRITE-88 TO TRUE. DTSTOP03
|
|
01285 GO TO S927-BTC-O. DTSTOP03
|
|
01286 DTSTOP03
|
|
01287 S927-CLOSE. DTSTOP03
|
|
01288 SET L927-CLOSE-88 TO TRUE. DTSTOP03
|
|
01289 GO TO S927-BTC-O. DTSTOP03
|
|
01290 DTSTOP03
|
|
01291 S927-BTC-O. DTSTOP03
|
|
01292 CALL 'DTSBU927' USING L927-LINK-AREA DTSTOP03
|
|
01293 TSKL-REC. DTSTOP03
|
|
01294 S927-EXIT. DTSTOP03
|
|
01295 EXIT. DTSTOP03
|
|
01296 DTSTOP03
|
|
01297 SKIP3 DTSTOP03
|
|
01298 S999-ABEND. DTSTOP03
|
|
01299 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSTOP03
|
|
01300 S999-EXIT. DTSTOP03
|
|
01301 EXIT. DTSTOP03
|