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