1622 lines
128 KiB
COBOL
1622 lines
128 KiB
COBOL
00001 IDENTIFICATION DIVISION. 02/27/13
|
|
00002 PROGRAM-ID. DTSBE713. DTSBE713
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV010
|
|
00004 DATE-WRITTEN. SEPTEMBER 1994. DTSBE713
|
|
00005 DATE-COMPILED. DTSBE713
|
|
00006 SKIP3 DTSBE713
|
|
00007 ************************************************************* CL*10
|
|
00008 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10
|
|
00009 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10
|
|
00010 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10
|
|
00011 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10
|
|
00012 ************************************************************* CL*10
|
|
00013 * DTSBE713
|
|
00014 * FUNCTION: ETA-581 PROCESSING. DTSBE713
|
|
00015 * DTSBE713
|
|
00016 * DTSBE713
|
|
00017 * MODIFICATION LOG: DTSBE713
|
|
00018 * DTSBE713
|
|
00019 * 02/25/99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. CL**3
|
|
00020 * WORK ORDER: PROGRAMMER: DVS CL**3
|
|
00021 * DTSBE713
|
|
00022 * 05/24/1999 PICKUP MODIFICATION. WHEN MQTR-YRQ IS EQUAL TO CL**8
|
|
00023 * LECM-PICKUP-YRQ, BYPASS RECEIVABLES PROCESSING. CL**8
|
|
00024 * REFERENCE: PICKUP DIR PROGRAMMER: EHH CL**8
|
|
00025 * CL**8
|
|
00026 * 02/23/2000 ADDED *-INDCON-TO-EMPL-CNT PROCESSING. CL**9
|
|
00027 * REFERENCE: UIPL 03-99 PROGRAMMER: EHH CL**9
|
|
00028 * CL**9
|
|
00029 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9
|
|
00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9
|
|
00031 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX CL**9
|
|
00032 * CL**3
|
|
00033 * DTSBE713
|
|
00034 * DESCRIPTION: DTSBE713
|
|
00035 * DTSBE713
|
|
00036 * DTSBE713
|
|
00037 * INITIATION: DTSBE713
|
|
00038 * DTSBE713
|
|
00039 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE713
|
|
00040 * SET LECM-REF-OPEN-UPDATE-88 TO TRUE. DTSBE713
|
|
00041 * DTSBE713
|
|
00042 * EDIT AND DEFAULT PARAMETERS. DTSBE713
|
|
00043 * DTSBE713
|
|
00044 * DTSBE713
|
|
00045 * PROCESSING: DTSBE713
|
|
00046 * DTSBE713
|
|
00047 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (713R1). DTSBE713
|
|
00048 * DTSBE713
|
|
00049 * DTSBE713
|
|
00050 * TERMINATION: DTSBE713
|
|
00051 * DTSBE713
|
|
00052 * WRITE A R713 RECORD AND WRITE (OR REWRITE A F581 RECORD). DTSBE713
|
|
00053 * DTSBE713
|
|
00054 * DTSBE713
|
|
00055 * RECORDS READ: DTSBE713
|
|
00056 * DTSBE713
|
|
00057 * MASTER: DTSBE713
|
|
00058 * DTSBE713
|
|
00059 * MSOL DTSBE713
|
|
00060 * MERD DTSBE713
|
|
00061 * MQTR DTSBE713
|
|
00062 * MRPT DTSBE713
|
|
00063 * MJRN DTSBE713
|
|
00064 * MFAS DTSBE713
|
|
00065 * MAUR DTSBE713
|
|
00066 * MAUY DTSBE713
|
|
00067 * DTSBE713
|
|
00068 * DTSBE713
|
|
00069 * ALTERNATE INDEX: DTSBE713
|
|
00070 * DTSBE713
|
|
00071 * NONE. DTSBE713
|
|
00072 * DTSBE713
|
|
00073 * DTSBE713
|
|
00074 * REFERENCE: DTSBE713
|
|
00075 * DTSBE713
|
|
00076 * F581. DTSBE713
|
|
00077 * FQTR. DTSBE713
|
|
00078 * DTSBE713
|
|
00079 * DTSBE713
|
|
00080 * RECORDS UPDATED: DTSBE713
|
|
00081 * DTSBE713
|
|
00082 * F581 (WRITE, REWRITE). DTSBE713
|
|
00083 * DTSBE713
|
|
00084 * DTSBE713
|
|
00085 * REPORT RECORDS WRITTEN: DTSBE713
|
|
00086 * DTSBE713
|
|
00087 * R713 ETA-581 DOWNLOAD TRIGGER. DTSBE713
|
|
00088 * DTSBE713
|
|
00089 * DTSBE713
|
|
00090 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE713
|
|
00091 * DTSBE713
|
|
00092 * NONE. DTSBE713
|
|
00093 * DTSBE713
|
|
00094 * DTSBE713
|
|
00095 * MODULES CALLED: DTSBE713
|
|
00096 * DTSBE713
|
|
00097 * DTSBU001 DATE EDIT/CONVERSION. CL**2
|
|
00098 * DTSBU004 QUARTER EDIT/CONVERSION. CL**2
|
|
00099 * DTSBU005 ABSOLUTE TIME CONVERSION/EDIT. CL**2
|
|
00100 * DTSBU910 MASTER FILE I/O. CL**2
|
|
00101 * DTSBU931 REFERENCE FILE I/O. CL**2
|
|
00102 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. CL**2
|
|
00103 * DTSBE713
|
|
00104 * DTSBE713
|
|
00105 * VERMONT REFERENCE: DTSBE713
|
|
00106 * DTSBE713
|
|
00107 * TXBE395 DTSBE713
|
|
00108 * DTSBE713
|
|
00109 ***** DTSBE713
|
|
00110 SKIP3 DTSBE713
|
|
00111 ENVIRONMENT DIVISION. DTSBE713
|
|
00112 EJECT DTSBE713
|
|
00113 DATA DIVISION. DTSBE713
|
|
00114 SKIP3 DTSBE713
|
|
00115 WORKING-STORAGE SECTION. DTSBE713
|
|
001155 77 PAN-VALET PICTURE X(24) VALUE '010DTSBE713 02/27/13'. DTSBE713
|
|
00116 SKIP3 DTSBE713
|
|
00117 01 WRK-AREA. DTSBE713
|
|
00118 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +713.DTSBE713
|
|
00119 DTSBE713
|
|
00120 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE713'. CL**2
|
|
00121 DTSBE713
|
|
00122 05 ALL-NINES-YRQ PIC S9(05) COMP-3 DTSBE713
|
|
00123 VALUE +99999. DTSBE713
|
|
00124 SKIP3 DTSBE713
|
|
00125 05 ABEND-MSG PIC X(60). DTSBE713
|
|
00126 SKIP3 DTSBE713
|
|
00127 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00128 DTSBE713
|
|
00129 05 WRK-PARM-EST-AVG-DUE PIC S9(05) COMP-3. DTSBE713
|
|
00130 DTSBE713
|
|
00131 05 WRK-PARM-TIMING-EDITS-IND PIC X(01). DTSBE713
|
|
00132 88 WRK-PARM-TIMING-EDITS-YES-88 VALUE 'Y'. DTSBE713
|
|
00133 88 WRK-PARM-TIMING-EDITS-NO-88 VALUE 'N'. DTSBE713
|
|
00134 DTSBE713
|
|
00135 05 WRK-PARM-MSTR-UPDATE-IND PIC X(01). DTSBE713
|
|
00136 88 WRK-PARM-MSTR-UPDATE-YES-88 VALUE 'Y'. DTSBE713
|
|
00137 88 WRK-PARM-MSTR-UPDATE-NO-88 VALUE 'N'. DTSBE713
|
|
00138 SKIP3 DTSBE713
|
|
00139 05 WRK-PERIOD-START-DATE PIC S9(09) COMP-3. DTSBE713
|
|
00140 DTSBE713
|
|
00141 05 WRK-PERIOD-END-DATE PIC S9(09) COMP-3. DTSBE713
|
|
00142 SKIP3 DTSBE713
|
|
00143 05 WRK-ZERO-TOT-WAGE-START-YRQ DTSBE713
|
|
00144 PIC S9(05) COMP-3. DTSBE713
|
|
00145 05 WRK-ZERO-TOT-WAGE-END-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00146 SKIP3 DTSBE713
|
|
00147 05 WRK-DEL-NOTICE-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00148 DTSBE713
|
|
00149 05 WRK-DEL-NOTICE-DATE PIC S9(09) COMP-3. DTSBE713
|
|
00150 DTSBE713
|
|
00151 05 WRK-DEL-NOTICE-MINUS-ONE-YRQ DTSBE713
|
|
00152 PIC S9(05) COMP-3. DTSBE713
|
|
00153 DTSBE713
|
|
00154 05 WRK-ITEM13-YRQ-CNT PIC S9(07) COMP-3. DTSBE713
|
|
00155 SKIP3 DTSBE713
|
|
00156 05 WRK-CON-RECVBL-BEG-PERIOD PIC S9(11)V9(02) COMP-3. DTSBE713
|
|
00157 DTSBE713
|
|
00158 05 WRK-REIMB-RECVBL-BEG-PERIOD PIC S9(11)V9(02) COMP-3. DTSBE713
|
|
00159 DTSBE713
|
|
00160 05 WRK-RECVBL-9-MOS-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00161 DTSBE713
|
|
00162 05 WRK-RECVBL-12-MOS-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00163 DTSBE713
|
|
00164 05 WRK-RECVBL-15-MOS-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00165 DTSBE713
|
|
00166 05 WRK-REMOVED-YRQ-1 PIC S9(05) COMP-3. DTSBE713
|
|
00167 DTSBE713
|
|
00168 05 WRK-REMOVED-YRQ-2 PIC S9(05) COMP-3. DTSBE713
|
|
00169 SKIP3 DTSBE713
|
|
00170 05 WRK-PERIOD-START-ABSTIME PIC S9(15) COMP-3. DTSBE713
|
|
00171 SKIP3 DTSBE713
|
|
00172 05 WRK-ACTIVE-DURING-PERIOD-IND DTSBE713
|
|
00173 PIC X(01). DTSBE713
|
|
00174 DTSBE713
|
|
00175 05 WRK-ALL-ZERO-TOT-WAGE-IND PIC X(01). DTSBE713
|
|
00176 88 WRK-ALL-ZERO-TOT-WAGE-YES-88 VALUE 'Y'. DTSBE713
|
|
00177 88 WRK-ALL-ZERO-TOT-WAGE-NO-88 VALUE 'N'. DTSBE713
|
|
00178 DTSBE713
|
|
00179 05 WRK-ENTRY-JUL-ABS-DAY PIC S9(08) COMP. DTSBE713
|
|
00180 DTSBE713
|
|
00181 05 WRK-TIME-LAPSE-DAYS PIC S9(08) COMP. DTSBE713
|
|
00182 SKIP3 DTSBE713
|
|
00183 05 WRK-ORIG-RPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSBE713
|
|
00184 SKIP3 DTSBE713
|
|
00185 05 WRK-TOT-UI-BALANCE-OVERDUE PIC S9(09)V9(02) COMP-3. DTSBE713
|
|
00186 SKIP3 DTSBE713
|
|
00187 05 WRK-QTR-MAX PIC S9(04) COMP VALUE +400.DTSBE713
|
|
00188 DTSBE713
|
|
00189 05 WRK-QTR-SUB PIC S9(04) COMP. DTSBE713
|
|
00190 DTSBE713
|
|
00191 05 WRK-QTR-CNT PIC S9(04) COMP. DTSBE713
|
|
00192 DTSBE713
|
|
00193 05 WRK-QTR-AREA OCCURS 400 TIMES DTSBE713
|
|
00194 INDEXED BY WRK-QTR-IDX. DTSBE713
|
|
00195 10 WRK-QTR-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00196 10 WRK-QTR-PREV-REMOVED-IND PIC X(01). DTSBE713
|
|
00197 88 WRK-QTR-PREV-REMOVED-YES-88 VALUE 'Y'. DTSBE713
|
|
00198 88 WRK-QTR-PREV-REMOVED-NO-88 VALUE 'N'. DTSBE713
|
|
00199 10 WRK-QTR-PREV-UNCOLLECT-IND PIC X(01). DTSBE713
|
|
00200 88 WRK-QTR-PREV-UNCOLLECT-YES-88 VALUE 'Y'. DTSBE713
|
|
00201 88 WRK-QTR-PREV-UNCOLLECT-NO-88 VALUE 'N'. DTSBE713
|
|
00202 10 WRK-QTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSBE713
|
|
00203 DTSBE713
|
|
00204 05 WRK-QTR-UI-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBE713
|
|
00205 DTSBE713
|
|
00206 05 WRK-QTR-UI-WRITTEN-OFF-AMT PIC S9(09)V9(02) COMP-3. CL**4
|
|
00207 DTSBE713
|
|
00208 05 WRK-MJRN-YRQ PIC S9(05) COMP-3. DTSBE713
|
|
00209 SKIP3 DTSBE713
|
|
00210 05 WRK-CHANGE-AUDIT-IND PIC X(01). DTSBE713
|
|
00211 DTSBE713
|
|
00212 05 DISPLAY-AMT-X PIC X(15). DTSBE713
|
|
00213 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBE713
|
|
00214 PIC ZZZ,ZZZ,ZZ9.99-. DTSBE713
|
|
00215 EJECT DTSBE713
|
|
00216 01 L001-LINK-AREA. DTSBE713
|
|
00217 ++INCLUDE DTSIL001 CL**2
|
|
00218 EJECT DTSBE713
|
|
00219 01 L004-LINK-AREA. DTSBE713
|
|
00220 ++INCLUDE DTSIL004 CL**2
|
|
00221 EJECT DTSBE713
|
|
00222 01 L005-LINK-AREA. DTSBE713
|
|
00223 ++INCLUDE DTSIL005 CL**2
|
|
00224 EJECT DTSBE713
|
|
00225 01 L910-LINK-AREA. DTSBE713
|
|
00226 ++INCLUDE DTSIL910 CL**2
|
|
00227 SKIP3 DTSBE713
|
|
00228 01 MSKL-REC. DTSBE713
|
|
00229 ++INCLUDE DTSIMSKL CL**2
|
|
00230 SKIP3 DTSBE713
|
|
00231 01 MSOL-REC. DTSBE713
|
|
00232 ++INCLUDE DTSIMSOL CL**2
|
|
00233 SKIP3 DTSBE713
|
|
00234 01 MERD-REC. DTSBE713
|
|
00235 ++INCLUDE DTSIMERD CL**2
|
|
00236 SKIP3 DTSBE713
|
|
00237 01 MQTR-REC. DTSBE713
|
|
00238 ++INCLUDE DTSIMQTR CL**2
|
|
00239 SKIP3 DTSBE713
|
|
00240 01 MRPT-REC. DTSBE713
|
|
00241 ++INCLUDE DTSIMRPT CL**2
|
|
00242 SKIP3 DTSBE713
|
|
00243 01 MJRN-REC. DTSBE713
|
|
00244 ++INCLUDE DTSIMJRN CL**2
|
|
00245 SKIP3 DTSBE713
|
|
00246 01 MFAS-REC. DTSBE713
|
|
00247 ++INCLUDE DTSIMFAS CL**2
|
|
00248 SKIP3 DTSBE713
|
|
00249 01 MAUR-REC. DTSBE713
|
|
00250 ++INCLUDE DTSIMAUR CL**2
|
|
00251 SKIP3 DTSBE713
|
|
00252 01 MAUY-REC. DTSBE713
|
|
00253 ++INCLUDE DTSIMAUY CL**2
|
|
00254 EJECT DTSBE713
|
|
00255 01 L931-LINK-AREA. DTSBE713
|
|
00256 ++INCLUDE DTSIL931 CL**2
|
|
00257 SKIP3 DTSBE713
|
|
00258 01 FSKL-REC. DTSBE713
|
|
00259 ++INCLUDE DTSIFSKL CL**2
|
|
00260 SKIP3 DTSBE713
|
|
00261 01 F581-REC. DTSBE713
|
|
00262 ++INCLUDE DTSIF581 CL**2
|
|
00263 SKIP3 DTSBE713
|
|
00264 01 FQTR-REC. DTSBE713
|
|
00265 ++INCLUDE DTSIFQTR CL**2
|
|
00266 EJECT DTSBE713
|
|
00267 01 R713-REC. DTSBE713
|
|
00268 ++INCLUDE DTSIR713 CL**2
|
|
00269 EJECT DTSBE713
|
|
00270 01 MMAX-LITERALS. DTSBE713
|
|
00271 ++INCLUDE DTSIMMAX CL**2
|
|
00272 EJECT DTSBE713
|
|
00273 LINKAGE SECTION. DTSBE713
|
|
00274 SKIP3 DTSBE713
|
|
00275 01 LECM-LINK-AREA. DTSBE713
|
|
00276 ++INCLUDE DTSILECM CL**2
|
|
00277 SKIP3 DTSBE713
|
|
00278 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE713
|
|
00279 15 LECM-PARM-SUBJECT-YRQ PIC X(03). DTSBE713
|
|
00280 15 FILLER PIC X(01). DTSBE713
|
|
00281 15 LECM-PARM-EST-AVG-DUE PIC X(05). DTSBE713
|
|
00282 15 LECM-PARM-EST-AVG-DUE-9 DTSBE713
|
|
00283 REDEFINES LECM-PARM-EST-AVG-DUE DTSBE713
|
|
00284 PIC 9(05). DTSBE713
|
|
00285 15 FILLER PIC X(01). DTSBE713
|
|
00286 15 LECM-PARM-TIMING-EDITS-IND PIC X(01). DTSBE713
|
|
00287 15 FILLER PIC X(01). DTSBE713
|
|
00288 15 LECM-PARM-MSTR-UPDATE-IND PIC X(01). DTSBE713
|
|
00289 15 FILLER PIC X(55). DTSBE713
|
|
00290 EJECT DTSBE713
|
|
00291 01 MPRF-LINK-REC. DTSBE713
|
|
00292 ++INCLUDE DTSIMPRF CL**2
|
|
00293 EJECT DTSBE713
|
|
00294 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE713
|
|
00295 MPRF-LINK-REC. DTSBE713
|
|
00296 SKIP2 DTSBE713
|
|
00297 MOVE LENGTH OF R713-REC TO R713-LENGTH. CL**4
|
|
00298 MOVE '713' TO R713-REC-TYPE. CL**4
|
|
00299 IF LECM-PROCESS-88 DTSBE713
|
|
00300 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE713
|
|
00301 ELSE DTSBE713
|
|
00302 IF LECM-INITIALIZE-88 DTSBE713
|
|
00303 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE713
|
|
00304 ELSE DTSBE713
|
|
00305 IF LECM-TERMINATE-88 DTSBE713
|
|
00306 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE713
|
|
00307 ELSE DTSBE713
|
|
00308 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE713
|
|
00309 TO ABEND-MSG DTSBE713
|
|
00310 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00311 SKIP2 DTSBE713
|
|
00312 GOBACK. DTSBE713
|
|
00313 EJECT DTSBE713
|
|
00314 I0000-INITIALIZE. DTSBE713
|
|
00315 SKIP2 DTSBE713
|
|
00316 MOVE LECM-TRACE-IND TO L910-TRACE-IND DTSBE713
|
|
00317 L931-TRACE-IND. DTSBE713
|
|
00318 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBE713
|
|
00319 L931-MOD-NAME. DTSBE713
|
|
00320 DTSBE713
|
|
00321 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE713
|
|
00322 DTSBE713
|
|
00323 PERFORM I2100-PERIOD-DATES THRU I2100-EXIT. DTSBE713
|
|
00324 DTSBE713
|
|
00325 IF WRK-PARM-TIMING-EDITS-YES-88 DTSBE713
|
|
00326 PERFORM I2200-TIMING-EDITS THRU I2200-EXIT. DTSBE713
|
|
00327 DTSBE713
|
|
00328 PERFORM I2300-DEL-NOTICE-INFO THRU I2300-EXIT. DTSBE713
|
|
00329 DTSBE713
|
|
00330 PERFORM I2400-ZERO-TOT-WAGE-YRQS THRU I2400-EXIT. DTSBE713
|
|
00331 DTSBE713
|
|
00332 MOVE +0 TO WRK-ITEM13-YRQ-CNT. DTSBE713
|
|
00333 DTSBE713
|
|
00334 PERFORM I2700-PERIOD-START-ABSTIME THRU I2700-EXIT. DTSBE713
|
|
00335 DTSBE713
|
|
00336 PERFORM I2800-RECVBL-YRQS THRU I2800-EXIT. DTSBE713
|
|
00337 DTSBE713
|
|
00338 PERFORM I2900-BEG-PERIOD-RECEIVABLES THRU I2900-EXIT. DTSBE713
|
|
00339 DTSBE713
|
|
00340 PERFORM I3100-INITIALIZE-F581 THRU I3100-EXIT. DTSBE713
|
|
00341 DTSBE713
|
|
00342 PERFORM I4100-DISPLAY THRU I4100-EXIT. DTSBE713
|
|
00343 DTSBE713
|
|
00344 IF WRK-PARM-MSTR-UPDATE-YES-88 DTSBE713
|
|
00345 SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE713
|
|
00346 ELSE DTSBE713
|
|
00347 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE713
|
|
00348 DTSBE713
|
|
00349 SET LECM-REF-OPEN-UPDATE-88 TO TRUE. DTSBE713
|
|
00350 SKIP2 DTSBE713
|
|
00351 I0000-EXIT. DTSBE713
|
|
00352 EXIT. DTSBE713
|
|
00353 EJECT DTSBE713
|
|
00354 I1000-EDIT-AND-DEFAULT-PARMS. DTSBE713
|
|
00355 PERFORM I1100-SUBJECT-YRQ THRU I1100-EXIT. DTSBE713
|
|
00356 DTSBE713
|
|
00357 PERFORM I1200-EST-AVG-DUE THRU I1200-EXIT. DTSBE713
|
|
00358 DTSBE713
|
|
00359 PERFORM I1300-TIMING-EDITS-IND THRU I1300-EXIT. DTSBE713
|
|
00360 DTSBE713
|
|
00361 PERFORM I1400-MSTR-UPDATE-IND THRU I1400-EXIT. DTSBE713
|
|
00362 I1000-EXIT. DTSBE713
|
|
00363 EXIT. DTSBE713
|
|
00364 SKIP3 DTSBE713
|
|
00365 I1100-SUBJECT-YRQ. DTSBE713
|
|
00366 IF LECM-PARM-SUBJECT-YRQ = SPACES DTSBE713
|
|
00367 IF LECM-QTR-END DTSBE713
|
|
00368 MOVE LECM-PERIOD-END-DATE TO L004-DATE DTSBE713
|
|
00369 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBE713
|
|
00370 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
00371 ELSE DTSBE713
|
|
00372 MOVE 'LECM-PARM-SUBJECT-YRQ SPACES AND NOT LECM-QTR-END' DTSBE713
|
|
00373 TO ABEND-MSG DTSBE713
|
|
00374 PERFORM S999-ABEND THRU S999-EXIT DTSBE713
|
|
00375 ELSE DTSBE713
|
|
00376 MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X DTSBE713
|
|
00377 PERFORM S004-FROM-3 THRU S004-EXIT DTSBE713
|
|
00378 IF L004-INVALID-QTR DTSBE713
|
|
00379 MOVE 'LECM-PARM-SUBJECT-YRQ NOT VALID' DTSBE713
|
|
00380 TO ABEND-MSG DTSBE713
|
|
00381 PERFORM S999-ABEND THRU S999-EXIT DTSBE713
|
|
00382 ELSE DTSBE713
|
|
00383 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ. DTSBE713
|
|
00384 I1100-EXIT. DTSBE713
|
|
00385 EXIT. DTSBE713
|
|
00386 SKIP3 DTSBE713
|
|
00387 I1200-EST-AVG-DUE. DTSBE713
|
|
00388 IF LECM-PARM-EST-AVG-DUE = SPACES DTSBE713
|
|
00389 MOVE +157.20 TO WRK-PARM-EST-AVG-DUE DTSBE713
|
|
00390 ELSE DTSBE713
|
|
00391 IF LECM-PARM-EST-AVG-DUE NUMERIC DTSBE713
|
|
00392 MOVE LECM-PARM-EST-AVG-DUE-9 DTSBE713
|
|
00393 TO WRK-PARM-EST-AVG-DUE DTSBE713
|
|
00394 ELSE DTSBE713
|
|
00395 MOVE 'LECM-PARM-EST-AVG-DUE NOT NUMERIC' DTSBE713
|
|
00396 TO ABEND-MSG DTSBE713
|
|
00397 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00398 I1200-EXIT. DTSBE713
|
|
00399 EXIT. DTSBE713
|
|
00400 SKIP3 DTSBE713
|
|
00401 I1300-TIMING-EDITS-IND. DTSBE713
|
|
00402 IF LECM-PARM-TIMING-EDITS-IND = SPACES DTSBE713
|
|
00403 SET WRK-PARM-TIMING-EDITS-YES-88 TO TRUE DTSBE713
|
|
00404 ELSE DTSBE713
|
|
00405 IF LECM-PARM-TIMING-EDITS-IND = 'Y' OR 'N' DTSBE713
|
|
00406 MOVE LECM-PARM-TIMING-EDITS-IND DTSBE713
|
|
00407 TO WRK-PARM-TIMING-EDITS-IND DTSBE713
|
|
00408 ELSE DTSBE713
|
|
00409 MOVE 'LECM-PARM-TIMING-EDITS-IND NOT VALID' DTSBE713
|
|
00410 TO ABEND-MSG DTSBE713
|
|
00411 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00412 I1300-EXIT. DTSBE713
|
|
00413 EXIT. DTSBE713
|
|
00414 SKIP3 DTSBE713
|
|
00415 I1400-MSTR-UPDATE-IND. DTSBE713
|
|
00416 IF LECM-PARM-MSTR-UPDATE-IND = SPACES DTSBE713
|
|
00417 SET WRK-PARM-MSTR-UPDATE-YES-88 TO TRUE DTSBE713
|
|
00418 ELSE DTSBE713
|
|
00419 IF LECM-PARM-MSTR-UPDATE-IND = 'Y' OR 'N' DTSBE713
|
|
00420 MOVE LECM-PARM-MSTR-UPDATE-IND DTSBE713
|
|
00421 TO WRK-PARM-MSTR-UPDATE-IND DTSBE713
|
|
00422 ELSE DTSBE713
|
|
00423 MOVE 'LECM-PARM-MSTR-UPDATE-IND NO VALID' DTSBE713
|
|
00424 TO ABEND-MSG DTSBE713
|
|
00425 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00426 I1400-EXIT. DTSBE713
|
|
00427 EXIT. DTSBE713
|
|
00428 EJECT DTSBE713
|
|
00429 I2100-PERIOD-DATES. DTSBE713
|
|
00430 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00431 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00432 MOVE L004-QTR-START-DATE TO WRK-PERIOD-START-DATE. DTSBE713
|
|
00433 MOVE L004-QTR-END-DATE TO WRK-PERIOD-END-DATE. DTSBE713
|
|
00434 DTSBE713
|
|
00435 IF WRK-PERIOD-START-DATE > LECM-LAST-MJRN-PURGE-DATE DTSBE713
|
|
00436 NEXT SENTENCE DTSBE713
|
|
00437 ELSE DTSBE713
|
|
00438 MOVE DTSBE713
|
|
00439 'PERIOD-START-DATE NOT GREATER THAN LAST-MJRN-PURGE-DATE' DTSBE713
|
|
00440 TO ABEND-MSG DTSBE713
|
|
00441 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00442 I2100-EXIT. DTSBE713
|
|
00443 EXIT. DTSBE713
|
|
00444 EJECT DTSBE713
|
|
00445 I2200-TIMING-EDITS. DTSBE713
|
|
00446 IF (LECM-PRIOR-RUN-DATE NOT > WRK-PERIOD-END-DATE) DTSBE713
|
|
00447 AND DTSBE713
|
|
00448 (LECM-CURR-RUN-DATE > WRK-PERIOD-END-DATE) DTSBE713
|
|
00449 NEXT SENTENCE DTSBE713
|
|
00450 ELSE DTSBE713
|
|
00451 MOVE 'TIMING OF RUN IS NOT VALID' DTSBE713
|
|
00452 TO ABEND-MSG DTSBE713
|
|
00453 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00454 I2200-EXIT. DTSBE713
|
|
00455 EXIT. DTSBE713
|
|
00456 EJECT DTSBE713
|
|
00457 I2300-DEL-NOTICE-INFO. DTSBE713
|
|
00458 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00459 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00460 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00461 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00462 IF L004-QTR-5-9 > LECM-LAST-UC30-DEL-MAIL-YRQ CL**5
|
|
00463 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-DEL-NOTICE-YRQ CL**5
|
|
00464 ELSE DTSBE713
|
|
00465 MOVE L004-QTR-5-9 TO WRK-DEL-NOTICE-YRQ. DTSBE713
|
|
00466 DTSBE713
|
|
00467 MOVE WRK-DEL-NOTICE-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00468 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00469 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00470 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00471 MOVE L004-QTR-5-9 TO WRK-DEL-NOTICE-MINUS-ONE-YRQ. DTSBE713
|
|
00472 DTSBE713
|
|
00473 MOVE LOW-VALUES TO FQTR-KEY-AREA. DTSBE713
|
|
00474 SET FQTR-QTR-88 TO TRUE. DTSBE713
|
|
00475 MOVE WRK-DEL-NOTICE-YRQ TO FQTR-YRQ. DTSBE713
|
|
00476 MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA. DTSBE713
|
|
00477 PERFORM S931-READ THRU S931-EXIT. DTSBE713
|
|
00478 IF L931-NO-REC-88 DTSBE713
|
|
00479 MOVE 'DEL-NOTICE-YRQ FQTR RECORD NOT FOUND' DTSBE713
|
|
00480 TO ABEND-MSG DTSBE713
|
|
00481 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00482 DTSBE713
|
|
00483 MOVE FSKL-REC TO FQTR-REC. DTSBE713
|
|
00484 DTSBE713
|
|
00485 IF FQTR-UC30-FIRST-DEL-DATE = +0 CL**5
|
|
00486 MOVE 'WRK-DEL-NOTICE-DATE NOT FOUND' DTSBE713
|
|
00487 TO ABEND-MSG DTSBE713
|
|
00488 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00489 DTSBE713
|
|
00490 MOVE FQTR-UC30-FIRST-DEL-DATE TO WRK-DEL-NOTICE-DATE. CL**5
|
|
00491 I2300-EXIT. DTSBE713
|
|
00492 EXIT. DTSBE713
|
|
00493 EJECT DTSBE713
|
|
00494 I2400-ZERO-TOT-WAGE-YRQS. DTSBE713
|
|
00495 MOVE WRK-DEL-NOTICE-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00496 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00497 MOVE L004-QTR-5-9 TO WRK-ZERO-TOT-WAGE-END-YRQ. DTSBE713
|
|
00498 SUBTRACT 7 FROM L004-ABS-QTR. DTSBE713
|
|
00499 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00500 MOVE L004-QTR-5-9 TO WRK-ZERO-TOT-WAGE-START-YRQ. DTSBE713
|
|
00501 I2400-EXIT. DTSBE713
|
|
00502 EXIT. DTSBE713
|
|
00503 EJECT DTSBE713
|
|
00504 I2700-PERIOD-START-ABSTIME. DTSBE713
|
|
00505 MOVE WRK-PERIOD-START-DATE TO L001-FED-8-DATE-9. DTSBE713
|
|
00506 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE713
|
|
00507 SUBTRACT 7 FROM L001-JUL-ABS-DAY. DTSBE713
|
|
00508 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT. DTSBE713
|
|
00509 MOVE L001-FED-8-DATE-9 TO L005-DATE. DTSBE713
|
|
00510 MOVE +0 TO L005-TIME. DTSBE713
|
|
00511 PERFORM S005-FROM-DATE-TIME THRU S005-EXIT. DTSBE713
|
|
00512 MOVE L005-ABSTIME TO WRK-PERIOD-START-ABSTIME. DTSBE713
|
|
00513 I2700-EXIT. DTSBE713
|
|
00514 EXIT. DTSBE713
|
|
00515 EJECT DTSBE713
|
|
00516 I2800-RECVBL-YRQS. DTSBE713
|
|
00517 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00518 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00519 SUBTRACT 3 FROM L004-ABS-QTR. DTSBE713
|
|
00520 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00521 MOVE L004-QTR-5-9 TO WRK-RECVBL-9-MOS-YRQ. DTSBE713
|
|
00522 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00523 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00524 MOVE L004-QTR-5-9 TO WRK-RECVBL-12-MOS-YRQ. DTSBE713
|
|
00525 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00526 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00527 MOVE L004-QTR-5-9 TO WRK-RECVBL-15-MOS-YRQ. DTSBE713
|
|
00528 DTSBE713
|
|
00529 ***** DTSBE713
|
|
00530 * DTSBE713
|
|
00531 * LYNNETTE STERN STATES THAT PER A PHONE CONVERSATION WITH DTSBE713
|
|
00532 * GAIL EULIENSTIEN "THE FIRST QUARTER YOU SHOULD SHOW DTSBE713
|
|
00533 * ANYTHING IN ITEMS 25 AND 37 IS THE QUARTER ENDING 9/30/95". DTSBE713
|
|
00534 * DTSBE713
|
|
00535 * THIS CONFLICTS WITH THE ITEM 25 INSTRUCTIONS, BUT DTSBE713
|
|
00536 * LYNNETTE SAYS TO GO WITH THE PHONE CONVERSATION. DTSBE713
|
|
00537 * DTSBE713
|
|
00538 * THUS, THE TWO GOOFY IF STATEMENTS BELOW. DTSBE713
|
|
00539 * DTSBE713
|
|
00540 ***** DTSBE713
|
|
00541 DTSBE713
|
|
00542 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00543 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00544 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00545 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00546 IF L004-QTR-5-9 < 19951 DTSBE713
|
|
00547 MOVE ALL-NINES-YRQ TO WRK-REMOVED-YRQ-1 DTSBE713
|
|
00548 ELSE DTSBE713
|
|
00549 MOVE L004-QTR-5-9 TO WRK-REMOVED-YRQ-1. DTSBE713
|
|
00550 DTSBE713
|
|
00551 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00552 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00553 IF L004-QTR-5-9 < 19951 DTSBE713
|
|
00554 MOVE ALL-NINES-YRQ TO WRK-REMOVED-YRQ-2 DTSBE713
|
|
00555 ELSE DTSBE713
|
|
00556 MOVE L004-QTR-5-9 TO WRK-REMOVED-YRQ-2. DTSBE713
|
|
00557 I2800-EXIT. DTSBE713
|
|
00558 EXIT. DTSBE713
|
|
00559 EJECT DTSBE713
|
|
00560 I2900-BEG-PERIOD-RECEIVABLES. DTSBE713
|
|
00561 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00562 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00563 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713
|
|
00564 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00565 DTSBE713
|
|
00566 MOVE LOW-VALUES TO F581-KEY-AREA. DTSBE713
|
|
00567 SET F581-581-88 TO TRUE. DTSBE713
|
|
00568 MOVE L004-QTR-5-9 TO F581-YRQ. DTSBE713
|
|
00569 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBE713
|
|
00570 PERFORM S931-READ THRU S931-EXIT. DTSBE713
|
|
00571 IF L931-NO-REC-88 DTSBE713
|
|
00572 MOVE DTSBE713
|
|
00573 'PRIOR PERIOD END PERIOD RECEIVABLE AMOUNTS NOT AVAILABLE' DTSBE713
|
|
00574 TO ABEND-MSG DTSBE713
|
|
00575 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
00576 MOVE FSKL-REC TO F581-REC. DTSBE713
|
|
00577 MOVE F581-CON-RECVBL-END-PERIOD DTSBE713
|
|
00578 TO WRK-CON-RECVBL-BEG-PERIOD. DTSBE713
|
|
00579 MOVE F581-REIMB-RECVBL-END-PERIOD DTSBE713
|
|
00580 TO WRK-REIMB-RECVBL-BEG-PERIOD. DTSBE713
|
|
00581 I2900-EXIT. DTSBE713
|
|
00582 EXIT. DTSBE713
|
|
00583 EJECT DTSBE713
|
|
00584 I3100-INITIALIZE-F581. DTSBE713
|
|
00585 MOVE LOW-VALUES TO F581-KEY-AREA. DTSBE713
|
|
00586 SET F581-581-88 TO TRUE. DTSBE713
|
|
00587 MOVE WRK-PARM-SUBJECT-YRQ TO F581-YRQ. DTSBE713
|
|
00588 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBE713
|
|
00589 PERFORM S931-READ THRU S931-EXIT. DTSBE713
|
|
00590 IF L931-NO-REC-88 DTSBE713
|
|
00591 MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9 DTSBE713
|
|
00592 ELSE DTSBE713
|
|
00593 MOVE FSKL-REC TO F581-REC DTSBE713
|
|
00594 MOVE F581-ESTB-DATE TO L001-FED-8-DATE-9. DTSBE713
|
|
00595 MOVE LOW-VALUES TO F581-REC. DTSBE713
|
|
00596 SET F581-581-88 TO TRUE. DTSBE713
|
|
00597 MOVE WRK-PARM-SUBJECT-YRQ TO F581-YRQ. DTSBE713
|
|
00598 INITIALIZE F581-DATA-AREA. DTSBE713
|
|
00599 MOVE L001-FED-8-DATE-9 TO F581-ESTB-DATE. DTSBE713
|
|
00600 MOVE LECM-CURR-RUN-DATE TO F581-CHNG-DATE. DTSBE713
|
|
00601 I3100-EXIT. DTSBE713
|
|
00602 EXIT. DTSBE713
|
|
00603 EJECT DTSBE713
|
|
00604 I4100-DISPLAY. DTSBE713
|
|
00605 DISPLAY ' WRK-PARM-SUBJECT-YRQ: ' DTSBE713
|
|
00606 WRK-PARM-SUBJECT-YRQ. DTSBE713
|
|
00607 DISPLAY ' WRK-PARM-EST-AVG-DUE: ' DTSBE713
|
|
00608 WRK-PARM-EST-AVG-DUE. DTSBE713
|
|
00609 DISPLAY ' WRK-PARM-TIMING-EDITS-IND: ' DTSBE713
|
|
00610 WRK-PARM-TIMING-EDITS-IND. DTSBE713
|
|
00611 DISPLAY ' WRK-PARM-MSTR-UPDATE-IND: ' DTSBE713
|
|
00612 WRK-PARM-MSTR-UPDATE-IND. DTSBE713
|
|
00613 DISPLAY ' WRK-PERIOD-START-DATE: ' DTSBE713
|
|
00614 WRK-PERIOD-START-DATE. DTSBE713
|
|
00615 DISPLAY ' WRK-PERIOD-END-DATE: ' DTSBE713
|
|
00616 WRK-PERIOD-END-DATE. DTSBE713
|
|
00617 DISPLAY ' WRK-ZERO-TOT-WAGE-START-YRQ: ' DTSBE713
|
|
00618 WRK-ZERO-TOT-WAGE-START-YRQ. DTSBE713
|
|
00619 DISPLAY ' WRK-ZERO-TOT-WAGE-END-YRQ: ' DTSBE713
|
|
00620 WRK-ZERO-TOT-WAGE-END-YRQ. DTSBE713
|
|
00621 DISPLAY ' WRK-DEL-NOTICE-YRQ: ' DTSBE713
|
|
00622 WRK-DEL-NOTICE-YRQ. DTSBE713
|
|
00623 DISPLAY ' WRK-DEL-NOTICE-DATE: ' DTSBE713
|
|
00624 WRK-DEL-NOTICE-DATE. DTSBE713
|
|
00625 DISPLAY ' WRK-DEL-NOTICE-MINUS-ONE-YRQ: ' DTSBE713
|
|
00626 WRK-DEL-NOTICE-MINUS-ONE-YRQ. DTSBE713
|
|
00627 DISPLAY ' WRK-CON-RECVBL-BEG-PERIOD: ' DTSBE713
|
|
00628 WRK-CON-RECVBL-BEG-PERIOD. DTSBE713
|
|
00629 DISPLAY ' WRK-REIMB-RECVBL-BEG-PERIOD: ' DTSBE713
|
|
00630 WRK-REIMB-RECVBL-BEG-PERIOD. DTSBE713
|
|
00631 DISPLAY ' WRK-RECVBL-9-MOS-YRQ: ' DTSBE713
|
|
00632 WRK-RECVBL-9-MOS-YRQ. DTSBE713
|
|
00633 DISPLAY ' WRK-RECVBL-12-MOS-YRQ: ' DTSBE713
|
|
00634 WRK-RECVBL-12-MOS-YRQ. DTSBE713
|
|
00635 DISPLAY ' WRK-RECVBL-15-MOS-YRQ: ' DTSBE713
|
|
00636 WRK-RECVBL-15-MOS-YRQ. DTSBE713
|
|
00637 DISPLAY ' WRK-REMOVED-YRQ-1: ' DTSBE713
|
|
00638 WRK-REMOVED-YRQ-1. DTSBE713
|
|
00639 DISPLAY ' WRK-REMOVED-YRQ-2: ' DTSBE713
|
|
00640 WRK-REMOVED-YRQ-2. DTSBE713
|
|
00641 DISPLAY ' WRK-PERIOD-START-ABSTIME: ' DTSBE713
|
|
00642 WRK-PERIOD-START-ABSTIME. DTSBE713
|
|
00643 I4100-EXIT. DTSBE713
|
|
00644 EXIT. DTSBE713
|
|
00645 EJECT DTSBE713
|
|
00646 P0000-PROCESS. DTSBE713
|
|
00647 PERFORM P1000-SUBJECTIVITY THRU P1000-EXIT. DTSBE713
|
|
00648 DTSBE713
|
|
00649 PERFORM P2000-MISSING-REPORTS THRU P2000-EXIT. DTSBE713
|
|
00650 DTSBE713
|
|
00651 PERFORM P3000-UI-TAX-RECEIVABLES THRU P3000-EXIT. DTSBE713
|
|
00652 DTSBE713
|
|
00653 PERFORM P4000-AUDIT-ACTIVITY THRU P4000-EXIT. DTSBE713
|
|
00654 P0000-EXIT. DTSBE713
|
|
00655 EXIT. DTSBE713
|
|
00656 EJECT DTSBE713
|
|
00657 P1000-SUBJECTIVITY. DTSBE713
|
|
00658 PERFORM P1100-ACTIVE THRU P1100-EXIT. DTSBE713
|
|
00659 DTSBE713
|
|
00660 MOVE LOW-VALUES TO MERD-KEY-AREA. DTSBE713
|
|
00661 MOVE MPRF-EMP-NO TO MERD-EMP-NO. DTSBE713
|
|
00662 SET MERD-ERD-88 TO TRUE. DTSBE713
|
|
00663 MOVE WRK-PERIOD-START-ABSTIME DTSBE713
|
|
00664 TO MERD-ESTB-ABSTIME. DTSBE713
|
|
00665 MOVE MERD-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00666 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
00667 PERFORM P1200-SCAN-MERD THRU P1200-EXIT DTSBE713
|
|
00668 UNTIL L910-NO-REC-88. DTSBE713
|
|
00669 P1000-EXIT. DTSBE713
|
|
00670 EXIT. DTSBE713
|
|
00671 SKIP3 DTSBE713
|
|
00672 P1100-ACTIVE. DTSBE713
|
|
00673 IF MPRF-CLASS-SUB-88 DTSBE713
|
|
00674 NEXT SENTENCE DTSBE713
|
|
00675 ELSE DTSBE713
|
|
00676 GO TO P1100-EXIT. DTSBE713
|
|
00677 DTSBE713
|
|
00678 MOVE 'N' TO WRK-ACTIVE-DURING-PERIOD-IND. DTSBE713
|
|
00679 DTSBE713
|
|
00680 MOVE LOW-VALUES TO MSOL-KEY-AREA. DTSBE713
|
|
00681 MOVE MPRF-EMP-NO TO MSOL-EMP-NO. DTSBE713
|
|
00682 SET MSOL-SOL-88 TO TRUE. DTSBE713
|
|
00683 MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00684 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
00685 PERFORM P1110-SCAN-MSOL THRU P1110-EXIT DTSBE713
|
|
00686 UNTIL (L910-NO-REC-88) DTSBE713
|
|
00687 OR DTSBE713
|
|
00688 (WRK-ACTIVE-DURING-PERIOD-IND = 'Y'). DTSBE713
|
|
00689 DTSBE713
|
|
00690 IF WRK-ACTIVE-DURING-PERIOD-IND = 'N' DTSBE713
|
|
00691 GO TO P1100-EXIT. DTSBE713
|
|
00692 DTSBE713
|
|
00693 MOVE 'Y' TO WRK-ALL-ZERO-TOT-WAGE-IND. DTSBE713
|
|
00694 DTSBE713
|
|
00695 MOVE WRK-ZERO-TOT-WAGE-START-YRQ TO L004-QTR-5-9. DTSBE713
|
|
00696 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713
|
|
00697 PERFORM P1120-READ-MQTR THRU P1120-EXIT DTSBE713
|
|
00698 UNTIL (WRK-ALL-ZERO-TOT-WAGE-IND = 'N') DTSBE713
|
|
00699 OR DTSBE713
|
|
00700 (L004-QTR-5-9 > WRK-ZERO-TOT-WAGE-END-YRQ). DTSBE713
|
|
00701 DTSBE713
|
|
00702 IF WRK-ALL-ZERO-TOT-WAGE-IND = 'Y' DTSBE713
|
|
00703 GO TO P1100-EXIT. DTSBE713
|
|
00704 DTSBE713
|
|
00705 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00706 ADD +1 TO F581-REIMB-EMP-CNT DTSBE713
|
|
00707 ELSE DTSBE713
|
|
00708 ADD +1 TO F581-CON-EMP-CNT. DTSBE713
|
|
00709 P1100-EXIT. DTSBE713
|
|
00710 EXIT. DTSBE713
|
|
00711 SKIP3 DTSBE713
|
|
00712 P1110-SCAN-MSOL. DTSBE713
|
|
00713 MOVE MSKL-REC TO MSOL-REC. DTSBE713
|
|
00714 DTSBE713
|
|
00715 ***** DTSBE713
|
|
00716 * DTSBE713
|
|
00717 * MONTANA INTERPRETS THE ETA 581 "ACTIVE EMPLOYER" DEFINITION DTSBE713
|
|
00718 * AS "ACTIVE ON THE LAST DAY OF THE REPORTING PERIOD". DTSBE713
|
|
00719 * DTSBE713
|
|
00720 ***** DTSBE713
|
|
00721 DTSBE713
|
|
00722 IF MSOL-INACT-WITHDRAWN-88 DTSBE713
|
|
00723 NEXT SENTENCE DTSBE713
|
|
00724 ELSE DTSBE713
|
|
00725 IF (MSOL-INACT-DATE < WRK-PERIOD-END-DATE) DTSBE713
|
|
00726 OR DTSBE713
|
|
00727 (MSOL-LIAB-DATE > WRK-PERIOD-END-DATE) DTSBE713
|
|
00728 NEXT SENTENCE DTSBE713
|
|
00729 ELSE DTSBE713
|
|
00730 MOVE 'Y' TO WRK-ACTIVE-DURING-PERIOD-IND DTSBE713
|
|
00731 GO TO P1110-EXIT. DTSBE713
|
|
00732 DTSBE713
|
|
00733 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713
|
|
00734 P1110-EXIT. DTSBE713
|
|
00735 EXIT. DTSBE713
|
|
00736 SKIP3 DTSBE713
|
|
00737 P1120-READ-MQTR. DTSBE713
|
|
00738 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713
|
|
00739 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713
|
|
00740 SET MQTR-QTR-88 TO TRUE. DTSBE713
|
|
00741 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBE713
|
|
00742 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00743 PERFORM S910-READ THRU S910-EXIT. DTSBE713
|
|
00744 IF L910-NO-REC-88 DTSBE713
|
|
00745 MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND DTSBE713
|
|
00746 GO TO P1120-EXIT. DTSBE713
|
|
00747 MOVE MSKL-REC TO MQTR-REC. DTSBE713
|
|
00748 IF MQTR-CURR-RCVD-88 DTSBE713
|
|
00749 NEXT SENTENCE DTSBE713
|
|
00750 ELSE DTSBE713
|
|
00751 MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND DTSBE713
|
|
00752 GO TO P1120-EXIT. DTSBE713
|
|
00753 IF MQTR-TOT-WAGE = +0 DTSBE713
|
|
00754 NEXT SENTENCE DTSBE713
|
|
00755 ELSE DTSBE713
|
|
00756 MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND DTSBE713
|
|
00757 GO TO P1120-EXIT. DTSBE713
|
|
00758 DTSBE713
|
|
00759 ADD +1 TO L004-ABS-QTR. DTSBE713
|
|
00760 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713
|
|
00761 P1120-EXIT. DTSBE713
|
|
00762 EXIT. DTSBE713
|
|
00763 SKIP3 DTSBE713
|
|
00764 P1200-SCAN-MERD. DTSBE713
|
|
00765 MOVE MSKL-REC TO MERD-REC. DTSBE713
|
|
00766 DTSBE713
|
|
00767 IF (MERD-ESTB-DATE < WRK-PERIOD-START-DATE) DTSBE713
|
|
00768 OR DTSBE713
|
|
00769 (MERD-ESTB-DATE > WRK-PERIOD-END-DATE) DTSBE713
|
|
00770 NEXT SENTENCE DTSBE713
|
|
00771 ELSE DTSBE713
|
|
00772 PERFORM P1210-COUNT-MERD THRU P1210-EXIT. DTSBE713
|
|
00773 DTSBE713
|
|
00774 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713
|
|
00775 P1200-EXIT. DTSBE713
|
|
00776 EXIT. DTSBE713
|
|
00777 SKIP3 DTSBE713
|
|
00778 P1210-COUNT-MERD. DTSBE713
|
|
00779 IF MERD-DETER-INACT-88 DTSBE713
|
|
00780 ADD +1 TO F581-TERMINATION-CNT DTSBE713
|
|
00781 GO TO P1210-EXIT. DTSBE713
|
|
00782 DTSBE713
|
|
00783 MOVE MERD-ESTB-DATE TO L001-FED-8-DATE-9. DTSBE713
|
|
00784 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE713
|
|
00785 MOVE L001-JUL-ABS-DAY TO WRK-ENTRY-JUL-ABS-DAY. DTSBE713
|
|
00786 DTSBE713
|
|
00787 MOVE MERD-EFFECTIVE-DATE TO L004-DATE. DTSBE713
|
|
00788 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE713
|
|
00789 MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9. DTSBE713
|
|
00790 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE713
|
|
00791 DTSBE713
|
|
00792 COMPUTE WRK-TIME-LAPSE-DAYS DTSBE713
|
|
00793 = WRK-ENTRY-JUL-ABS-DAY - L001-JUL-ABS-DAY. DTSBE713
|
|
00794 DTSBE713
|
|
00795 IF MERD-DETER-NEW-88 DTSBE713
|
|
00796 ADD +1 TO F581-NEW-DETERM-CNT DTSBE713
|
|
00797 IF WRK-TIME-LAPSE-DAYS > +180 DTSBE713
|
|
00798 NEXT SENTENCE DTSBE713
|
|
00799 ELSE DTSBE713
|
|
00800 ADD +1 TO F581-NEW-DETERM-T180-CNT DTSBE713
|
|
00801 IF WRK-TIME-LAPSE-DAYS > +90 DTSBE713
|
|
00802 NEXT SENTENCE DTSBE713
|
|
00803 ELSE DTSBE713
|
|
00804 ADD +1 TO F581-NEW-DETERM-T90-CNT DTSBE713
|
|
00805 ELSE DTSBE713
|
|
00806 ADD +1 TO F581-SUC-DETERM-CNT DTSBE713
|
|
00807 IF WRK-TIME-LAPSE-DAYS > +180 DTSBE713
|
|
00808 NEXT SENTENCE DTSBE713
|
|
00809 ELSE DTSBE713
|
|
00810 ADD +1 TO F581-SUC-DETERM-T180-CNT DTSBE713
|
|
00811 IF WRK-TIME-LAPSE-DAYS > +90 DTSBE713
|
|
00812 NEXT SENTENCE DTSBE713
|
|
00813 ELSE DTSBE713
|
|
00814 ADD +1 TO F581-SUC-DETERM-T90-CNT. DTSBE713
|
|
00815 P1210-EXIT. DTSBE713
|
|
00816 EXIT. DTSBE713
|
|
00817 EJECT DTSBE713
|
|
00818 P2000-MISSING-REPORTS. DTSBE713
|
|
00819 PERFORM P2100-DEL-NOTICE-YRQ THRU P2100-EXIT. DTSBE713
|
|
00820 DTSBE713
|
|
00821 PERFORM P2200-DEL-NOTICE-MINUS-ONE-YRQ THRU P2200-EXIT. DTSBE713
|
|
00822 DTSBE713
|
|
00823 PERFORM P2300-OUTSTDG-QTRS-CNT THRU P2300-EXIT. DTSBE713
|
|
00824 P2000-EXIT. DTSBE713
|
|
00825 EXIT. DTSBE713
|
|
00826 SKIP3 DTSBE713
|
|
00827 P2100-DEL-NOTICE-YRQ. DTSBE713
|
|
00828 ***** DTSBE713
|
|
00829 * DTSBE713
|
|
00830 * MONTANA INTERPRETS A "SECURED" REPORT TO BE A REPORT DTSBE713
|
|
00831 * RECEIVED FROM THE EMPLOYER. DTSBE713
|
|
00832 * DTSBE713
|
|
00833 * MONTANA INTERPRETS A "TIMELY" REPORT TO BE A "SECURED" DTSBE713
|
|
00834 * REPORT WITH A REPORT RECEIVED DATE LESS THAN OR EQUAL DTSBE713
|
|
00835 * TO THE REPORT'S DUE DATE. DTSBE713
|
|
00836 * DTSBE713
|
|
00837 ***** DTSBE713
|
|
00838 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713
|
|
00839 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713
|
|
00840 SET MQTR-QTR-88 TO TRUE. DTSBE713
|
|
00841 MOVE WRK-DEL-NOTICE-YRQ TO MQTR-YRQ. DTSBE713
|
|
00842 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00843 PERFORM S910-READ THRU S910-EXIT. DTSBE713
|
|
00844 IF L910-NO-REC-88 DTSBE713
|
|
00845 GO TO P2100-EXIT. DTSBE713
|
|
00846 DTSBE713
|
|
00847 MOVE MSKL-REC TO MQTR-REC. DTSBE713
|
|
00848 DTSBE713
|
|
00849 IF MQTR-CURR-RCVD-88 DTSBE713
|
|
00850 NEXT SENTENCE DTSBE713
|
|
00851 ELSE DTSBE713
|
|
00852 GO TO P2100-EXIT. DTSBE713
|
|
00853 DTSBE713
|
|
00854 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00855 ADD +1 TO F581-REIMB-SECURED-CNT DTSBE713
|
|
00856 ELSE DTSBE713
|
|
00857 ADD +1 TO F581-CON-SECURED-CNT. DTSBE713
|
|
00858 DTSBE713
|
|
00859 MOVE +0 TO WRK-ORIG-RPT-RECEIVED-DATE. DTSBE713
|
|
00860 DTSBE713
|
|
00861 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBE713
|
|
00862 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBE713
|
|
00863 SET MRPT-RPT-88 TO TRUE. DTSBE713
|
|
00864 MOVE WRK-DEL-NOTICE-YRQ TO MRPT-YRQ. DTSBE713
|
|
00865 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00866 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
00867 PERFORM P2110-SCAN-MRPT THRU P2110-EXIT DTSBE713
|
|
00868 UNTIL L910-NO-REC-88. DTSBE713
|
|
00869 IF (WRK-ORIG-RPT-RECEIVED-DATE = +0) DTSBE713
|
|
00870 OR DTSBE713
|
|
00871 (WRK-ORIG-RPT-RECEIVED-DATE > MQTR-RPT-DUE-DATE) DTSBE713
|
|
00872 GO TO P2100-EXIT. DTSBE713
|
|
00873 DTSBE713
|
|
00874 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00875 ADD +1 TO F581-REIMB-TIMELY-CNT DTSBE713
|
|
00876 ELSE DTSBE713
|
|
00877 ADD +1 TO F581-CON-TIMELY-CNT. DTSBE713
|
|
00878 P2100-EXIT. DTSBE713
|
|
00879 EXIT. DTSBE713
|
|
00880 SKIP3 DTSBE713
|
|
00881 P2110-SCAN-MRPT. DTSBE713
|
|
00882 MOVE MSKL-REC TO MRPT-REC. DTSBE713
|
|
00883 DTSBE713
|
|
00884 IF MRPT-YRQ = WRK-DEL-NOTICE-YRQ DTSBE713
|
|
00885 NEXT SENTENCE DTSBE713
|
|
00886 ELSE DTSBE713
|
|
00887 SET L910-NO-REC-88 TO TRUE DTSBE713
|
|
00888 GO TO P2110-EXIT. DTSBE713
|
|
00889 DTSBE713
|
|
00890 IF MRPT-ORIG-88 DTSBE713
|
|
00891 MOVE MRPT-RECEIVED-DATE TO WRK-ORIG-RPT-RECEIVED-DATE. DTSBE713
|
|
00892 DTSBE713
|
|
00893 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713
|
|
00894 P2110-EXIT. DTSBE713
|
|
00895 EXIT. DTSBE713
|
|
00896 SKIP3 DTSBE713
|
|
00897 P2200-DEL-NOTICE-MINUS-ONE-YRQ. DTSBE713
|
|
00898 ***** DTSBE713
|
|
00899 * DTSBE713
|
|
00900 * MONTANA INTERPRETS A "RESOLVED" REPORT TO BE A REPORT DTSBE713
|
|
00901 * RECEIVED FROM THE EMPLOYER, A REPORT ESTIMATED BY THE DTSBE713
|
|
00902 * DEPARTMENT, OR THE EMPLOYER HAVING BEEN LIABLE AT THE DTSBE713
|
|
00903 * MISSING REPORT CUTOFF DATE AND THE EMPLOYER NO LONGER DTSBE713
|
|
00904 * LIABLE AT ETA581 RUN TIME. DTSBE713
|
|
00905 * DTSBE713
|
|
00906 ***** DTSBE713
|
|
00907 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713
|
|
00908 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713
|
|
00909 SET MQTR-QTR-88 TO TRUE. DTSBE713
|
|
00910 MOVE WRK-DEL-NOTICE-MINUS-ONE-YRQ TO MQTR-YRQ. DTSBE713
|
|
00911 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00912 PERFORM S910-READ THRU S910-EXIT. DTSBE713
|
|
00913 IF L910-NO-REC-88 DTSBE713
|
|
00914 GO TO P2200-EXIT. DTSBE713
|
|
00915 DTSBE713
|
|
00916 MOVE MSKL-REC TO MQTR-REC. DTSBE713
|
|
00917 DTSBE713
|
|
00918 IF MQTR-CURR-RCVD-88 OR MQTR-CURR-ESTIM-88 DTSBE713
|
|
00919 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00920 ADD +1 TO F581-REIMB-RESOLVED-CNT DTSBE713
|
|
00921 GO TO P2200-EXIT DTSBE713
|
|
00922 ELSE DTSBE713
|
|
00923 ADD +1 TO F581-CON-RESOLVED-CNT DTSBE713
|
|
00924 GO TO P2200-EXIT. DTSBE713
|
|
00925 DTSBE713
|
|
00926 IF MQTR-MISS-NOT-LIABLE-88 DTSBE713
|
|
00927 GO TO P2200-EXIT. DTSBE713
|
|
00928 DTSBE713
|
|
00929 IF MQTR-CURR-NOT-LIABLE-88 DTSBE713
|
|
00930 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00931 ADD +1 TO F581-REIMB-RESOLVED-CNT DTSBE713
|
|
00932 GO TO P2200-EXIT DTSBE713
|
|
00933 ELSE DTSBE713
|
|
00934 ADD +1 TO F581-CON-RESOLVED-CNT DTSBE713
|
|
00935 GO TO P2200-EXIT. DTSBE713
|
|
00936 P2200-EXIT. DTSBE713
|
|
00937 EXIT. DTSBE713
|
|
00938 SKIP3 DTSBE713
|
|
00939 P2300-OUTSTDG-QTRS-CNT. DTSBE713
|
|
00940 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00941 GO TO P2300-EXIT. DTSBE713
|
|
00942 DTSBE713
|
|
00943 IF MPRF-PURSUED-RPT-CNT > +0 DTSBE713
|
|
00944 NEXT SENTENCE DTSBE713
|
|
00945 ELSE DTSBE713
|
|
00946 GO TO P2300-EXIT. DTSBE713
|
|
00947 DTSBE713
|
|
00948 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713
|
|
00949 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713
|
|
00950 SET MQTR-QTR-88 TO TRUE. DTSBE713
|
|
00951 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
00952 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
00953 PERFORM P2310-SCAN-MQTR THRU P2310-EXIT DTSBE713
|
|
00954 UNTIL L910-NO-REC-88. DTSBE713
|
|
00955 P2300-EXIT. DTSBE713
|
|
00956 EXIT. DTSBE713
|
|
00957 SKIP3 DTSBE713
|
|
00958 P2310-SCAN-MQTR. DTSBE713
|
|
00959 MOVE MSKL-REC TO MQTR-REC. DTSBE713
|
|
00960 DTSBE713
|
|
00961 IF MQTR-RPT-IS-PURSUED-88 DTSBE713
|
|
00962 ADD +1 TO F581-OUTSTDG-QTRS-CNT DTSBE713
|
|
00963 IF MQTR-CURR-ESTIM-88 DTSBE713
|
|
00964 NEXT SENTENCE DTSBE713
|
|
00965 ELSE DTSBE713
|
|
00966 ADD +1 TO WRK-ITEM13-YRQ-CNT. DTSBE713
|
|
00967 DTSBE713
|
|
00968 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713
|
|
00969 P2310-EXIT. DTSBE713
|
|
00970 EXIT. DTSBE713
|
|
00971 EJECT DTSBE713
|
|
00972 P3000-UI-TAX-RECEIVABLES. DTSBE713
|
|
00973 MOVE +0 TO WRK-QTR-CNT. DTSBE713
|
|
00974 DTSBE713
|
|
00975 MOVE +0 TO WRK-TOT-UI-BALANCE-OVERDUE. DTSBE713
|
|
00976 DTSBE713
|
|
00977 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE713
|
|
00978 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE713
|
|
00979 SET MSKL-QTR-88 TO TRUE. DTSBE713
|
|
00980 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
00981 PERFORM DTSBE713
|
|
00982 UNTIL L910-NO-REC-88 DTSBE713
|
|
00983 MOVE MSKL-REC TO MQTR-REC DTSBE713
|
|
00984 PERFORM P3100-PROCESS-MQTR THRU P3100-EXIT DTSBE713
|
|
00985 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE713
|
|
00986 END-PERFORM. DTSBE713
|
|
00987 DTSBE713
|
|
00988 IF WRK-TOT-UI-BALANCE-OVERDUE > +0 DTSBE713
|
|
00989 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
00990 ADD WRK-TOT-UI-BALANCE-OVERDUE DTSBE713
|
|
00991 TO F581-REIMB-RECVBL-END-PERIOD DTSBE713
|
|
00992 ADD +1 TO F581-REIMB-RECVBL-EMP-CNT DTSBE713
|
|
00993 ELSE DTSBE713
|
|
00994 ADD WRK-TOT-UI-BALANCE-OVERDUE DTSBE713
|
|
00995 TO F581-CON-RECVBL-END-PERIOD DTSBE713
|
|
00996 ADD +1 TO F581-CON-RECVBL-EMP-CNT. DTSBE713
|
|
00997 DTSBE713
|
|
00998 MOVE +0 TO WRK-QTR-SUB. DTSBE713
|
|
00999 DTSBE713
|
|
01000 MOVE LOW-VALUES TO MJRN-KEY-AREA. DTSBE713
|
|
01001 MOVE MPRF-EMP-NO TO MJRN-EMP-NO. DTSBE713
|
|
01002 SET MJRN-JRN-88 TO TRUE. DTSBE713
|
|
01003 MOVE WRK-PERIOD-START-ABSTIME TO MJRN-ESTB-ABSTIME. DTSBE713
|
|
01004 MOVE MJRN-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
01005 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
01006 DTSBE713
|
|
01007 PERFORM DTSBE713
|
|
01008 UNTIL L910-NO-REC-88 DTSBE713
|
|
01009 MOVE MSKL-REC TO MJRN-REC DTSBE713
|
|
01010 PERFORM P3200-PROCESS-MJRN THRU P3200-EXIT DTSBE713
|
|
01011 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE713
|
|
01012 END-PERFORM. DTSBE713
|
|
01013 P3000-EXIT. DTSBE713
|
|
01014 EXIT. DTSBE713
|
|
01015 SKIP3 DTSBE713
|
|
01016 P3100-PROCESS-MQTR. DTSBE713
|
|
01017 ***** CL**8
|
|
01018 * CL**8
|
|
01019 * FOR ETA581 PURPOSES, IGNORE PICKUP ACTIVITY. CL**8
|
|
01020 * CL**8
|
|
01021 ***** CL**8
|
|
01022 CL**8
|
|
01023 IF MQTR-YRQ = LECM-PICKUP-YRQ CL**8
|
|
01024 GO TO P3100-EXIT. CL**8
|
|
01025 CL**8
|
|
01026 CL**8
|
|
01027 IF WRK-QTR-CNT < WRK-QTR-MAX DTSBE713
|
|
01028 NEXT SENTENCE DTSBE713
|
|
01029 ELSE DTSBE713
|
|
01030 MOVE 'LOGIC ERROR P3100-1' TO ABEND-MSG DTSBE713
|
|
01031 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
01032 DTSBE713
|
|
01033 ADD +1 TO WRK-QTR-CNT. DTSBE713
|
|
01034 DTSBE713
|
|
01035 MOVE MQTR-YRQ TO WRK-QTR-YRQ (WRK-QTR-CNT). DTSBE713
|
|
01036 MOVE MQTR-ETA581-REMOVED-IND DTSBE713
|
|
01037 TO WRK-QTR-PREV-REMOVED-IND (WRK-QTR-CNT). DTSBE713
|
|
01038 MOVE MQTR-ETA581-UNCOLLECT-IND DTSBE713
|
|
01039 TO WRK-QTR-PREV-UNCOLLECT-IND (WRK-QTR-CNT). DTSBE713
|
|
01040 MOVE MQTR-TAX-DUE-DATE DTSBE713
|
|
01041 TO WRK-QTR-TAX-DUE-DATE (WRK-QTR-CNT). DTSBE713
|
|
01042 SKIP3 DTSBE713
|
|
01043 ***** DTSBE713
|
|
01044 * DTSBE713
|
|
01045 * PER THE 06/15/95 ZIP FROM LYNNETTE STERN, MONTANA DTSBE713
|
|
01046 * INTERPRETS THE "REMOVED" ITEM AND THE "UNCOLLECTIBLE" DTSBE713
|
|
01047 * ITEM INSTRUCTIONS TO MEAN THAT ONCE A BALANCE DUE IN A DTSBE713
|
|
01048 * QUARTER HAS BEEN REPORTED ON THE ETA581 AS REMOVED OR DTSBE713
|
|
01049 * ONCE A SUSPENDED AMOUNT IN A QUARTER HAS BEEN REPORTED CL**4
|
|
01050 * ON THE ETA581 AS UNCOLLECTIBLE, THEN ALL FURTHER DTSBE713
|
|
01051 * TRANSACTIONS AGAINST THE QUARTER ARE IGNORED FOR ETA581 DTSBE713
|
|
01052 * REPORTING PURPOSES. DTSBE713
|
|
01053 * DTSBE713
|
|
01054 * THE FOLLOWING CODE ACCOMPLISHES THE MONTANA INTERPERTATION DTSBE713
|
|
01055 * OF THE "REMOVED" ITEM AND THE MONTANA INTERPERTATION OF DTSBE713
|
|
01056 * THE "UNCOLLECTIBLE" ITEM. DTSBE713
|
|
01057 * DTSBE713
|
|
01058 ***** DTSBE713
|
|
01059 DTSBE713
|
|
01060 IF MQTR-ETA581-REMOVED-YES-88 DTSBE713
|
|
01061 GO TO P3100-EXIT. DTSBE713
|
|
01062 DTSBE713
|
|
01063 IF MQTR-ETA581-UNCOLLECT-YES-88 DTSBE713
|
|
01064 GO TO P3100-EXIT. DTSBE713
|
|
01065 DTSBE713
|
|
01066 MOVE +0 TO WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01067 WRK-QTR-UI-WRITTEN-OFF-AMT. CL**4
|
|
01068 DTSBE713
|
|
01069 PERFORM DTSBE713
|
|
01070 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBE713
|
|
01071 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBE713
|
|
01072 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBE713
|
|
01073 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBE713
|
|
01074 TO WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01075 ADD MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-IDX) CL**4
|
|
01076 TO WRK-QTR-UI-WRITTEN-OFF-AMT CL**4
|
|
01077 END-IF DTSBE713
|
|
01078 END-PERFORM. DTSBE713
|
|
01079 DTSBE713
|
|
01080 IF WRK-QTR-UI-WRITTEN-OFF-AMT > +0 CL**4
|
|
01081 PERFORM P3130-UNCOLLECT THRU P3130-EXIT DTSBE713
|
|
01082 GO TO P3100-EXIT. DTSBE713
|
|
01083 DTSBE713
|
|
01084 IF WRK-QTR-UI-BALANCE-AMT > +0 DTSBE713
|
|
01085 NEXT SENTENCE DTSBE713
|
|
01086 ELSE DTSBE713
|
|
01087 GO TO P3100-EXIT. DTSBE713
|
|
01088 DTSBE713
|
|
01089 IF (MQTR-ETA581-OVR15MNTH-RPT-CNT = +2) DTSBE713
|
|
01090 AND DTSBE713
|
|
01091 (MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713
|
|
01092 = WRK-REMOVED-YRQ-1 OR WRK-REMOVED-YRQ-2) DTSBE713
|
|
01093 AND DTSBE713
|
|
01094 (MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713
|
|
01095 = WRK-REMOVED-YRQ-1 OR WRK-REMOVED-YRQ-2) DTSBE713
|
|
01096 PERFORM P3110-REMOVE-QTR THRU P3110-EXIT DTSBE713
|
|
01097 GO TO P3100-EXIT. DTSBE713
|
|
01098 DTSBE713
|
|
01099 IF MQTR-YRQ < WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01100 NEXT SENTENCE DTSBE713
|
|
01101 ELSE DTSBE713
|
|
01102 GO TO P3100-EXIT. DTSBE713
|
|
01103 DTSBE713
|
|
01104 IF MQTR-TAX-DUE-DATE > WRK-PERIOD-END-DATE DTSBE713
|
|
01105 GO TO P3100-EXIT. DTSBE713
|
|
01106 DTSBE713
|
|
01107 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
01108 IF MQTR-YRQ > WRK-RECVBL-9-MOS-YRQ DTSBE713
|
|
01109 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01110 TO F581-REIMB-RECVBL-6-MOS DTSBE713
|
|
01111 ELSE DTSBE713
|
|
01112 IF MQTR-YRQ = WRK-RECVBL-9-MOS-YRQ DTSBE713
|
|
01113 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01114 TO F581-REIMB-RECVBL-9-MOS DTSBE713
|
|
01115 ELSE DTSBE713
|
|
01116 IF MQTR-YRQ = WRK-RECVBL-12-MOS-YRQ DTSBE713
|
|
01117 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01118 TO F581-REIMB-RECVBL-12-MOS DTSBE713
|
|
01119 ELSE DTSBE713
|
|
01120 IF MQTR-YRQ = WRK-RECVBL-15-MOS-YRQ DTSBE713
|
|
01121 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01122 TO F581-REIMB-RECVBL-15-MOS DTSBE713
|
|
01123 ELSE DTSBE713
|
|
01124 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01125 TO F581-REIMB-RECVBL-OVER15-MOS DTSBE713
|
|
01126 PERFORM P3120-OVER15MNTH THRU P3120-EXIT DTSBE713
|
|
01127 ELSE DTSBE713
|
|
01128 IF MQTR-YRQ > WRK-RECVBL-9-MOS-YRQ DTSBE713
|
|
01129 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01130 TO F581-CON-RECVBL-6-MOS DTSBE713
|
|
01131 ELSE DTSBE713
|
|
01132 IF MQTR-YRQ = WRK-RECVBL-9-MOS-YRQ DTSBE713
|
|
01133 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01134 TO F581-CON-RECVBL-9-MOS DTSBE713
|
|
01135 ELSE DTSBE713
|
|
01136 IF MQTR-YRQ = WRK-RECVBL-12-MOS-YRQ DTSBE713
|
|
01137 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01138 TO F581-CON-RECVBL-12-MOS DTSBE713
|
|
01139 ELSE DTSBE713
|
|
01140 IF MQTR-YRQ = WRK-RECVBL-15-MOS-YRQ DTSBE713
|
|
01141 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01142 TO F581-CON-RECVBL-15-MOS DTSBE713
|
|
01143 ELSE DTSBE713
|
|
01144 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713
|
|
01145 TO F581-CON-RECVBL-OVER15-MOS DTSBE713
|
|
01146 PERFORM P3120-OVER15MNTH THRU P3120-EXIT. DTSBE713
|
|
01147 DTSBE713
|
|
01148 ADD WRK-QTR-UI-BALANCE-AMT TO WRK-TOT-UI-BALANCE-OVERDUE. DTSBE713
|
|
01149 P3100-EXIT. DTSBE713
|
|
01150 EXIT. DTSBE713
|
|
01151 SKIP3 DTSBE713
|
|
01152 P3110-REMOVE-QTR. DTSBE713
|
|
01153 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
01154 ADD WRK-QTR-UI-BALANCE-AMT TO F581-REIMB-RECVBL-REMOVED DTSBE713
|
|
01155 ELSE DTSBE713
|
|
01156 ADD WRK-QTR-UI-BALANCE-AMT TO F581-CON-RECVBL-REMOVED. DTSBE713
|
|
01157 DTSBE713
|
|
01158 SET MQTR-ETA581-REMOVED-YES-88 TO TRUE. DTSBE713
|
|
01159 DTSBE713
|
|
01160 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT. DTSBE713
|
|
01161 P3110-EXIT. DTSBE713
|
|
01162 EXIT. DTSBE713
|
|
01163 SKIP3 DTSBE713
|
|
01164 P3120-OVER15MNTH. DTSBE713
|
|
01165 IF MQTR-ETA581-OVR15MNTH-RPT-CNT = +0 DTSBE713
|
|
01166 MOVE +1 TO MQTR-ETA581-OVR15MNTH-RPT-CNT DTSBE713
|
|
01167 MOVE WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01168 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713
|
|
01169 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT DTSBE713
|
|
01170 ELSE DTSBE713
|
|
01171 IF MQTR-ETA581-OVR15MNTH-RPT-CNT = +1 DTSBE713
|
|
01172 IF WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01173 = MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713
|
|
01174 NEXT SENTENCE DTSBE713
|
|
01175 ELSE DTSBE713
|
|
01176 MOVE +2 TO MQTR-ETA581-OVR15MNTH-RPT-CNT DTSBE713
|
|
01177 MOVE WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01178 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713
|
|
01179 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT DTSBE713
|
|
01180 ELSE DTSBE713
|
|
01181 IF WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01182 = MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713
|
|
01183 OR MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713
|
|
01184 NEXT SENTENCE DTSBE713
|
|
01185 ELSE DTSBE713
|
|
01186 PERFORM P3121-MOVE-OVR15MNTH-YRQ THRU P3121-EXIT DTSBE713
|
|
01187 MOVE +2 TO MQTR-ETA581-OVR15MNTH-RPT-CNT DTSBE713
|
|
01188 MOVE WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01189 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713
|
|
01190 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT. DTSBE713
|
|
01191 P3120-EXIT. DTSBE713
|
|
01192 EXIT. DTSBE713
|
|
01193 SKIP3 DTSBE713
|
|
01194 P3121-MOVE-OVR15MNTH-YRQ. DTSBE713
|
|
01195 IF MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713
|
|
01196 < MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713
|
|
01197 MOVE MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713
|
|
01198 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (1). DTSBE713
|
|
01199 P3121-EXIT. DTSBE713
|
|
01200 EXIT. DTSBE713
|
|
01201 SKIP3 DTSBE713
|
|
01202 P3130-UNCOLLECT. DTSBE713
|
|
01203 SET MQTR-ETA581-UNCOLLECT-YES-88 TO TRUE. DTSBE713
|
|
01204 DTSBE713
|
|
01205 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT. DTSBE713
|
|
01206 DTSBE713
|
|
01207 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
01208 ADD WRK-QTR-UI-WRITTEN-OFF-AMT CL**6
|
|
01209 TO F581-REIMB-RECVBL-UNCOLLECT CL**6
|
|
01210 ELSE DTSBE713
|
|
01211 ADD WRK-QTR-UI-WRITTEN-OFF-AMT CL**6
|
|
01212 TO F581-CON-RECVBL-UNCOLLECT. CL**7
|
|
01213 P3130-EXIT. DTSBE713
|
|
01214 EXIT. DTSBE713
|
|
01215 SKIP3 DTSBE713
|
|
01216 P3190-REWRITE-MQTR. DTSBE713
|
|
01217 IF WRK-PARM-MSTR-UPDATE-YES-88 DTSBE713
|
|
01218 MOVE LECM-CURR-RUN-DATE TO MQTR-CHNG-DATE DTSBE713
|
|
01219 MOVE MQTR-REC TO MSKL-REC DTSBE713
|
|
01220 PERFORM S910-REWRITE THRU S910-EXIT. DTSBE713
|
|
01221 P3190-EXIT. DTSBE713
|
|
01222 EXIT. DTSBE713
|
|
01223 SKIP3 DTSBE713
|
|
01224 P3200-PROCESS-MJRN. DTSBE713
|
|
01225 IF MJRN-TRAN-CNVR-88 DTSBE713
|
|
01226 GO TO P3200-EXIT. DTSBE713
|
|
01227 DTSBE713
|
|
01228 IF (MJRN-ESTB-DATE < WRK-PERIOD-START-DATE) DTSBE713
|
|
01229 OR DTSBE713
|
|
01230 (MJRN-ESTB-DATE > WRK-PERIOD-END-DATE) DTSBE713
|
|
01231 GO TO P3200-EXIT. DTSBE713
|
|
01232 DTSBE713
|
|
01233 PERFORM P3210-ACCT-GROUP THRU P3210-EXIT DTSBE713
|
|
01234 VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBE713
|
|
01235 UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT. DTSBE713
|
|
01236 P3200-EXIT. DTSBE713
|
|
01237 EXIT. DTSBE713
|
|
01238 SKIP3 DTSBE713
|
|
01239 P3210-ACCT-GROUP. DTSBE713
|
|
01240 IF MJRN-ROW-UI-88 (MJRN-OCC-IDX) DTSBE713
|
|
01241 NEXT SENTENCE DTSBE713
|
|
01242 ELSE DTSBE713
|
|
01243 GO TO P3210-EXIT. DTSBE713
|
|
01244 DTSBE713
|
|
01245 IF (MJRN-COL-PAID-88 (MJRN-OCC-IDX)) DTSBE713
|
|
01246 OR DTSBE713
|
|
01247 (MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX)) CL**4
|
|
01248 NEXT SENTENCE DTSBE713
|
|
01249 ELSE DTSBE713
|
|
01250 GO TO P3210-EXIT. DTSBE713
|
|
01251 DTSBE713
|
|
01252 MOVE MJRN-YRQ (MJRN-OCC-IDX) TO WRK-MJRN-YRQ. DTSBE713
|
|
01253 DTSBE713
|
|
01254 IF WRK-MJRN-YRQ = LECM-PICKUP-YRQ CL**8
|
|
01255 GO TO P3210-EXIT. CL**8
|
|
01256 CL**8
|
|
01257 IF WRK-MJRN-YRQ < WRK-PARM-SUBJECT-YRQ DTSBE713
|
|
01258 NEXT SENTENCE DTSBE713
|
|
01259 ELSE DTSBE713
|
|
01260 GO TO P3210-EXIT. DTSBE713
|
|
01261 DTSBE713
|
|
01262 IF (WRK-QTR-SUB = +0) DTSBE713
|
|
01263 OR DTSBE713
|
|
01264 (WRK-QTR-YRQ (WRK-QTR-SUB) NOT = WRK-MJRN-YRQ) DTSBE713
|
|
01265 MOVE +0 TO WRK-QTR-SUB DTSBE713
|
|
01266 PERFORM DTSBE713
|
|
01267 VARYING WRK-QTR-IDX FROM 1 BY 1 DTSBE713
|
|
01268 UNTIL (WRK-QTR-IDX > WRK-QTR-CNT) DTSBE713
|
|
01269 OR DTSBE713
|
|
01270 (WRK-QTR-SUB NOT = +0) DTSBE713
|
|
01271 IF WRK-MJRN-YRQ = WRK-QTR-YRQ (WRK-QTR-IDX) DTSBE713
|
|
01272 SET WRK-QTR-SUB TO WRK-QTR-IDX DTSBE713
|
|
01273 END-IF DTSBE713
|
|
01274 END-PERFORM. DTSBE713
|
|
01275 SKIP3 DTSBE713
|
|
01276 ***** DTSBE713
|
|
01277 * DTSBE713
|
|
01278 * FOR INTERPERTATION OF THE FOLLOWING SENTENCE, PLEASE DTSBE713
|
|
01279 * SEE THE COMMENT IN P3100. DTSBE713
|
|
01280 * DTSBE713
|
|
01281 ***** DTSBE713
|
|
01282 DTSBE713
|
|
01283 IF WRK-QTR-SUB = +0 DTSBE713
|
|
01284 NEXT SENTENCE DTSBE713
|
|
01285 ELSE DTSBE713
|
|
01286 IF (WRK-QTR-PREV-REMOVED-YES-88 (WRK-QTR-SUB)) DTSBE713
|
|
01287 OR DTSBE713
|
|
01288 (WRK-QTR-PREV-UNCOLLECT-YES-88 (WRK-QTR-SUB)) DTSBE713
|
|
01289 GO TO P3210-EXIT. DTSBE713
|
|
01290 DTSBE713
|
|
01291 ***** DTSBE713
|
|
01292 * PER LYNNETTE ON 06/01/95, ONLY AN INCREASE IN PAID AMT DTSBE713
|
|
01293 * OR AN INCREASE IN TOLERATED AMT IS TO BE COUNTED IN DTSBE713
|
|
01294 * LIQUIDATED. DTSBE713
|
|
01295 ***** DTSBE713
|
|
01296 IF MJRN-AMT (MJRN-OCC-IDX) > +0 DTSBE713
|
|
01297 NEXT SENTENCE DTSBE713
|
|
01298 ELSE DTSBE713
|
|
01299 GO TO P3210-EXIT. DTSBE713
|
|
01300 DTSBE713
|
|
01301 IF (WRK-QTR-SUB = +0) DTSBE713
|
|
01302 OR DTSBE713
|
|
01303 (MJRN-RECEIVED-DATE DTSBE713
|
|
01304 > WRK-QTR-TAX-DUE-DATE (WRK-QTR-SUB)) DTSBE713
|
|
01305 IF MPRF-CLASS-SELF-INS-88 CL**6
|
|
01306 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE713
|
|
01307 TO F581-REIMB-RECVBL-LIQUID DTSBE713
|
|
01308 ELSE DTSBE713
|
|
01309 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE713
|
|
01310 TO F581-CON-RECVBL-LIQUID. DTSBE713
|
|
01311 P3210-EXIT. DTSBE713
|
|
01312 EXIT. DTSBE713
|
|
01313 EJECT DTSBE713
|
|
01314 P4000-AUDIT-ACTIVITY. DTSBE713
|
|
01315 IF MPRF-NO-MFAS-88 DTSBE713
|
|
01316 GO TO P4000-EXIT. DTSBE713
|
|
01317 DTSBE713
|
|
01318 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBE713
|
|
01319 MOVE MPRF-EMP-NO TO MFAS-EMP-NO. DTSBE713
|
|
01320 SET MFAS-FAS-88 TO TRUE. DTSBE713
|
|
01321 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
01322 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
01323 PERFORM P4100-SCAN-MFAS THRU P4100-EXIT DTSBE713
|
|
01324 UNTIL L910-NO-REC-88. DTSBE713
|
|
01325 P4000-EXIT. DTSBE713
|
|
01326 EXIT. DTSBE713
|
|
01327 SKIP3 DTSBE713
|
|
01328 P4100-SCAN-MFAS. DTSBE713
|
|
01329 MOVE MSKL-REC TO MFAS-REC. DTSBE713
|
|
01330 DTSBE713
|
|
01331 IF (MFAS-PROCESSED-DATE < WRK-PERIOD-START-DATE) DTSBE713
|
|
01332 OR DTSBE713
|
|
01333 (MFAS-PROCESSED-DATE > WRK-PERIOD-END-DATE) DTSBE713
|
|
01334 NEXT SENTENCE DTSBE713
|
|
01335 ELSE DTSBE713
|
|
01336 PERFORM P4110-AUDIT-RESULTS THRU P4110-EXIT DTSBE713
|
|
01337 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA DTSBE713
|
|
01338 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE713
|
|
01339 IF L910-NO-REC-88 DTSBE713
|
|
01340 MOVE 'LOGIC ERROR IN P4100' TO ABEND-MSG DTSBE713
|
|
01341 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713
|
|
01342 DTSBE713
|
|
01343 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713
|
|
01344 P4100-EXIT. DTSBE713
|
|
01345 EXIT. DTSBE713
|
|
01346 SKIP3 DTSBE713
|
|
01347 P4110-AUDIT-RESULTS. DTSBE713
|
|
01348 MOVE LOW-VALUES TO MAUR-KEY-AREA. DTSBE713
|
|
01349 MOVE MPRF-EMP-NO TO MAUR-EMP-NO. DTSBE713
|
|
01350 SET MAUR-AUR-88 TO TRUE. DTSBE713
|
|
01351 MOVE MFAS-ASSIGN-NO TO MAUR-ASSIGN-NO. DTSBE713
|
|
01352 MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
01353 PERFORM S910-READ THRU S910-EXIT. DTSBE713
|
|
01354 IF L910-NO-REC-88 DTSBE713
|
|
01355 GO TO P4110-EXIT. DTSBE713
|
|
01356 DTSBE713
|
|
01357 MOVE MSKL-REC TO MAUR-REC. DTSBE713
|
|
01358 DTSBE713
|
|
01359 ADD +1 TO F581-AUDIT-TOT-EMP-CNT. DTSBE713
|
|
01360 DTSBE713
|
|
01361 IF MAUR-EMP-SIZE-LARGE-88 DTSBE713
|
|
01362 ADD +1 TO F581-AUDIT-LARGE-EMP-CNT. DTSBE713
|
|
01363 DTSBE713
|
|
01364 ADD MAUR-QTRS-AUDITED-CNT TO F581-AUDIT-QTR-CNT. DTSBE713
|
|
01365 DTSBE713
|
|
01366 ADD MAUR-AUDIT-HRS TO F581-AUDIT-HOURS-CNT. DTSBE713
|
|
01367 DTSBE713
|
|
01368 ADD MAUR-INDCON-TO-EMPL-CNT CL**9
|
|
01369 TO F581-AUDIT-INDCON-TO-EMPL-CNT. CL**9
|
|
01370 CL**9
|
|
01371 MOVE 'N' TO WRK-CHANGE-AUDIT-IND. DTSBE713
|
|
01372 DTSBE713
|
|
01373 MOVE LOW-VALUES TO MAUY-KEY-AREA. DTSBE713
|
|
01374 MOVE MPRF-EMP-NO TO MAUY-EMP-NO. DTSBE713
|
|
01375 SET MAUY-AUY-88 TO TRUE. DTSBE713
|
|
01376 MOVE MFAS-ASSIGN-NO TO MAUY-ASSIGN-NO. DTSBE713
|
|
01377 MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA. DTSBE713
|
|
01378 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713
|
|
01379 PERFORM P4111-SCAN-MAUY THRU P4111-EXIT DTSBE713
|
|
01380 UNTIL L910-NO-REC-88. DTSBE713
|
|
01381 DTSBE713
|
|
01382 IF WRK-CHANGE-AUDIT-IND = 'Y' DTSBE713
|
|
01383 ADD +1 TO F581-AUDIT-CHANGE-CNT. DTSBE713
|
|
01384 P4110-EXIT. DTSBE713
|
|
01385 EXIT. DTSBE713
|
|
01386 SKIP3 DTSBE713
|
|
01387 P4111-SCAN-MAUY. DTSBE713
|
|
01388 MOVE MSKL-REC TO MAUY-REC. DTSBE713
|
|
01389 DTSBE713
|
|
01390 IF MAUY-ASSIGN-NO = MFAS-ASSIGN-NO DTSBE713
|
|
01391 NEXT SENTENCE DTSBE713
|
|
01392 ELSE DTSBE713
|
|
01393 SET L910-NO-REC-88 TO TRUE DTSBE713
|
|
01394 GO TO P4111-EXIT. DTSBE713
|
|
01395 DTSBE713
|
|
01396 PERFORM P4111A-QTR-LOOP THRU P4111A-EXIT DTSBE713
|
|
01397 VARYING MAUY-QTR-IDX FROM 1 BY 1 DTSBE713
|
|
01398 UNTIL MAUY-QTR-IDX > MMAX-AUY-QTR-MAX. DTSBE713
|
|
01399 DTSBE713
|
|
01400 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713
|
|
01401 P4111-EXIT. DTSBE713
|
|
01402 EXIT. DTSBE713
|
|
01403 SKIP3 DTSBE713
|
|
01404 P4111A-QTR-LOOP. DTSBE713
|
|
01405 IF MAUY-QTR-NOT-AUDITED-88 (MAUY-QTR-IDX) DTSBE713
|
|
01406 GO TO P4111A-EXIT. DTSBE713
|
|
01407 DTSBE713
|
|
01408 ADD MAUY-QTR-GROSS-PAYROLL (MAUY-QTR-IDX) DTSBE713
|
|
01409 TO F581-AUDIT-TOT-WAGES-POST. DTSBE713
|
|
01410 DTSBE713
|
|
01411 IF (MAUY-QTR-UNDER-TOT-WAGE (MAUY-QTR-IDX) = +0) DTSBE713
|
|
01412 AND DTSBE713
|
|
01413 (MAUY-QTR-UNDER-TAX-WAGE (MAUY-QTR-IDX) = +0) DTSBE713
|
|
01414 AND DTSBE713
|
|
01415 (MAUY-QTR-UNDER-CONTRIB (MAUY-QTR-IDX) = +0) DTSBE713
|
|
01416 AND DTSBE713
|
|
01417 (MAUY-QTR-OVER-TOT-WAGE (MAUY-QTR-IDX) = +0) DTSBE713
|
|
01418 AND DTSBE713
|
|
01419 (MAUY-QTR-OVER-TAX-WAGE (MAUY-QTR-IDX) = +0) DTSBE713
|
|
01420 AND DTSBE713
|
|
01421 (MAUY-QTR-OVER-CONTRIB (MAUY-QTR-IDX) = +0) DTSBE713
|
|
01422 GO TO P4111A-EXIT. DTSBE713
|
|
01423 DTSBE713
|
|
01424 MOVE 'Y' TO WRK-CHANGE-AUDIT-IND. DTSBE713
|
|
01425 DTSBE713
|
|
01426 ADD MAUY-QTR-UNDER-TOT-WAGE (MAUY-QTR-IDX) DTSBE713
|
|
01427 TO F581-AUDIT-UNDERRPT-TOT-WAGES. DTSBE713
|
|
01428 DTSBE713
|
|
01429 ADD MAUY-QTR-UNDER-TAX-WAGE (MAUY-QTR-IDX) DTSBE713
|
|
01430 TO F581-AUDIT-UNDERRPT-TAX-WAGES. DTSBE713
|
|
01431 DTSBE713
|
|
01432 ADD MAUY-QTR-UNDER-CONTRIB (MAUY-QTR-IDX) DTSBE713
|
|
01433 TO F581-AUDIT-UNDERRPT-CONTRIB. DTSBE713
|
|
01434 DTSBE713
|
|
01435 ADD MAUY-QTR-OVER-TOT-WAGE (MAUY-QTR-IDX) DTSBE713
|
|
01436 TO F581-AUDIT-OVERRPT-TOT-WAGES. DTSBE713
|
|
01437 DTSBE713
|
|
01438 ADD MAUY-QTR-OVER-TAX-WAGE (MAUY-QTR-IDX) DTSBE713
|
|
01439 TO F581-AUDIT-OVERRPT-TAX-WAGES. DTSBE713
|
|
01440 DTSBE713
|
|
01441 ADD MAUY-QTR-OVER-CONTRIB (MAUY-QTR-IDX) DTSBE713
|
|
01442 TO F581-AUDIT-OVERRPT-CONTRIB. DTSBE713
|
|
01443 P4111A-EXIT. DTSBE713
|
|
01444 EXIT. DTSBE713
|
|
01445 EJECT DTSBE713
|
|
01446 T0000-TERMINATE. DTSBE713
|
|
01447 MOVE WRK-PERIOD-START-DATE TO F581-PERIOD-BEGIN-DATE. DTSBE713
|
|
01448 MOVE WRK-PERIOD-END-DATE TO F581-PERIOD-END-DATE. DTSBE713
|
|
01449 DTSBE713
|
|
01450 ADD F581-CON-EMP-CNT DTSBE713
|
|
01451 F581-REIMB-EMP-CNT DTSBE713
|
|
01452 GIVING F581-TOTAL-EMP-CNT. DTSBE713
|
|
01453 DTSBE713
|
|
01454 MOVE WRK-DEL-NOTICE-DATE TO F581-DEL-CUTOFF-DATE. DTSBE713
|
|
01455 DTSBE713
|
|
01456 COMPUTE F581-EST-UI-DUE-AMT DTSBE713
|
|
01457 = WRK-PARM-EST-AVG-DUE * WRK-ITEM13-YRQ-CNT. DTSBE713
|
|
01458 DTSBE713
|
|
01459 MOVE WRK-CON-RECVBL-BEG-PERIOD TO F581-CON-RECVBL-BEG-PERIOD.DTSBE713
|
|
01460 DTSBE713
|
|
01461 COMPUTE F581-CON-RECVBL-DETERM DTSBE713
|
|
01462 = F581-CON-RECVBL-LIQUID DTSBE713
|
|
01463 + F581-CON-RECVBL-UNCOLLECT DTSBE713
|
|
01464 + F581-CON-RECVBL-REMOVED DTSBE713
|
|
01465 + F581-CON-RECVBL-END-PERIOD DTSBE713
|
|
01466 - F581-CON-RECVBL-BEG-PERIOD. DTSBE713
|
|
01467 DTSBE713
|
|
01468 MOVE WRK-REIMB-RECVBL-BEG-PERIOD DTSBE713
|
|
01469 TO F581-REIMB-RECVBL-BEG-PERIOD. DTSBE713
|
|
01470 DTSBE713
|
|
01471 COMPUTE F581-REIMB-RECVBL-DETERM DTSBE713
|
|
01472 = F581-REIMB-RECVBL-LIQUID DTSBE713
|
|
01473 + F581-REIMB-RECVBL-UNCOLLECT DTSBE713
|
|
01474 + F581-REIMB-RECVBL-REMOVED DTSBE713
|
|
01475 + F581-REIMB-RECVBL-END-PERIOD DTSBE713
|
|
01476 - F581-REIMB-RECVBL-BEG-PERIOD. DTSBE713
|
|
01477 DTSBE713
|
|
01478 COMPUTE F581-AUDIT-TOT-WAGES-PRE DTSBE713
|
|
01479 = F581-AUDIT-TOT-WAGES-POST DTSBE713
|
|
01480 - F581-AUDIT-UNDERRPT-TOT-WAGES DTSBE713
|
|
01481 + F581-AUDIT-OVERRPT-TOT-WAGES. DTSBE713
|
|
01482 DTSBE713
|
|
01483 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBE713
|
|
01484 PERFORM S931-READ THRU S931-EXIT. DTSBE713
|
|
01485 IF L931-NO-REC-88 DTSBE713
|
|
01486 MOVE F581-REC TO FSKL-REC DTSBE713
|
|
01487 PERFORM S931-WRITE THRU S931-EXIT DTSBE713
|
|
01488 ELSE DTSBE713
|
|
01489 MOVE F581-REC TO FSKL-REC DTSBE713
|
|
01490 PERFORM S931-REWRITE THRU S931-EXIT. DTSBE713
|
|
01491 DTSBE713
|
|
01492 MOVE WRK-PARM-SUBJECT-YRQ TO R713-YRQ. DTSBE713
|
|
01493 PERFORM S946-WRITE-R713 THRU S946-EXIT. DTSBE713
|
|
01494 T0000-EXIT. DTSBE713
|
|
01495 EXIT. DTSBE713
|
|
01496 EJECT DTSBE713
|
|
01497 S001-FROM-FED-8. DTSBE713
|
|
01498 SET L001-FROM-FED-8 TO TRUE. DTSBE713
|
|
01499 GO TO S001-DATE. DTSBE713
|
|
01500 DTSBE713
|
|
01501 S001-FROM-ABS-DAY. DTSBE713
|
|
01502 SET L001-FROM-ABS-DAY TO TRUE. DTSBE713
|
|
01503 GO TO S001-DATE. DTSBE713
|
|
01504 DTSBE713
|
|
01505 S001-FROM-CAL-6. DTSBE713
|
|
01506 SET L001-FROM-CAL-6 TO TRUE. DTSBE713
|
|
01507 GO TO S001-DATE. DTSBE713
|
|
01508 DTSBE713
|
|
01509 S001-DATE. DTSBE713
|
|
01510 CALL 'DTSBU001' USING L001-LINK-AREA. CL**2
|
|
01511 S001-EXIT. DTSBE713
|
|
01512 EXIT. DTSBE713
|
|
01513 SKIP3 DTSBE713
|
|
01514 S004-FROM-5. DTSBE713
|
|
01515 SET L004-FROM-5 TO TRUE. DTSBE713
|
|
01516 GO TO S004-QTR. DTSBE713
|
|
01517 DTSBE713
|
|
01518 S004-FROM-ABS. DTSBE713
|
|
01519 SET L004-FROM-ABS TO TRUE. DTSBE713
|
|
01520 GO TO S004-QTR. DTSBE713
|
|
01521 DTSBE713
|
|
01522 S004-FROM-3. DTSBE713
|
|
01523 SET L004-FROM-3 TO TRUE. DTSBE713
|
|
01524 GO TO S004-QTR. DTSBE713
|
|
01525 DTSBE713
|
|
01526 S004-FROM-DATE. DTSBE713
|
|
01527 SET L004-FROM-DATE TO TRUE. DTSBE713
|
|
01528 GO TO S004-QTR. DTSBE713
|
|
01529 DTSBE713
|
|
01530 S004-QTR. DTSBE713
|
|
01531 DTSBE713
|
|
01532 CALL 'DTSBU004' USING L004-LINK-AREA. CL**2
|
|
01533 DTSBE713
|
|
01534 S004-EXIT. DTSBE713
|
|
01535 EXIT. DTSBE713
|
|
01536 SKIP3 DTSBE713
|
|
01537 S005-FROM-ABSTIME. DTSBE713
|
|
01538 SET L005-FROM-ABSTIME TO TRUE. DTSBE713
|
|
01539 GO TO S005-ABSTIME. DTSBE713
|
|
01540 DTSBE713
|
|
01541 S005-FROM-DATE-TIME. DTSBE713
|
|
01542 SET L005-FROM-DATE-TIME TO TRUE. DTSBE713
|
|
01543 GO TO S005-ABSTIME. DTSBE713
|
|
01544 DTSBE713
|
|
01545 S005-ABSTIME. DTSBE713
|
|
01546 CALL 'DTSBU005' USING L005-LINK-AREA. CL**2
|
|
01547 S005-EXIT. DTSBE713
|
|
01548 EXIT. DTSBE713
|
|
01549 SKIP3 DTSBE713
|
|
01550 S910-READ. DTSBE713
|
|
01551 SET L910-READ-88 TO TRUE. DTSBE713
|
|
01552 GO TO S910-MSTR-IO. DTSBE713
|
|
01553 DTSBE713
|
|
01554 S910-START-BROWSE. DTSBE713
|
|
01555 SET L910-START-BROWSE-88 TO TRUE. DTSBE713
|
|
01556 GO TO S910-MSTR-IO. DTSBE713
|
|
01557 DTSBE713
|
|
01558 S910-READ-NEXT. DTSBE713
|
|
01559 SET L910-READ-NEXT-88 TO TRUE. DTSBE713
|
|
01560 GO TO S910-MSTR-IO. DTSBE713
|
|
01561 DTSBE713
|
|
01562 *S910-COUNT. DTSBE713
|
|
01563 *****SET L910-COUNT-88 TO TRUE. DTSBE713
|
|
01564 *****GO TO S910-MSTR-IO. DTSBE713
|
|
01565 DTSBE713
|
|
01566 S910-REWRITE. DTSBE713
|
|
01567 SET L910-REWRITE-88 TO TRUE. DTSBE713
|
|
01568 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE713
|
|
01569 GO TO S910-MSTR-IO. DTSBE713
|
|
01570 DTSBE713
|
|
01571 S910-MSTR-IO. DTSBE713
|
|
01572 CALL 'DTSBU910' USING L910-LINK-AREA CL**2
|
|
01573 MSKL-REC. DTSBE713
|
|
01574 S910-EXIT. DTSBE713
|
|
01575 EXIT. DTSBE713
|
|
01576 SKIP3 DTSBE713
|
|
01577 S931-READ. DTSBE713
|
|
01578 SET L931-READ-88 TO TRUE. DTSBE713
|
|
01579 GO TO S931-REF-I. DTSBE713
|
|
01580 DTSBE713
|
|
01581 *S931-START-BROWSE. DTSBE713
|
|
01582 *****SET L931-START-BROWSE-88 TO TRUE. DTSBE713
|
|
01583 *****GO TO S931-REF-I. DTSBE713
|
|
01584 DTSBE713
|
|
01585 *S931-READ-NEXT. DTSBE713
|
|
01586 *****SET L931-READ-NEXT-88 TO TRUE. DTSBE713
|
|
01587 *****GO TO S931-REF-I. DTSBE713
|
|
01588 DTSBE713
|
|
01589 S931-WRITE. DTSBE713
|
|
01590 SET L931-WRITE-88 TO TRUE. DTSBE713
|
|
01591 GO TO S931-REF-I. DTSBE713
|
|
01592 DTSBE713
|
|
01593 S931-REWRITE. DTSBE713
|
|
01594 SET L931-REWRITE-88 TO TRUE. DTSBE713
|
|
01595 GO TO S931-REF-I. DTSBE713
|
|
01596 DTSBE713
|
|
01597 *S931-DELETE. DTSBE713
|
|
01598 *****SET L931-DELETE-88 TO TRUE. DTSBE713
|
|
01599 *****GO TO S931-REF-I. DTSBE713
|
|
01600 DTSBE713
|
|
01601 S931-REF-I. DTSBE713
|
|
01602 CALL 'DTSBU931' USING L931-LINK-AREA CL**2
|
|
01603 FSKL-REC. DTSBE713
|
|
01604 S931-EXIT. DTSBE713
|
|
01605 EXIT. DTSBE713
|
|
01606 SKIP3 DTSBE713
|
|
01607 S946-WRITE-R713. DTSBE713
|
|
01608 CALL 'DTSBU946' USING R713-REC. CL**2
|
|
01609 GO TO S946-EXIT. DTSBE713
|
|
01610 DTSBE713
|
|
01611 S946-EXIT. DTSBE713
|
|
01612 EXIT. DTSBE713
|
|
01613 SKIP3 DTSBE713
|
|
01614 S999-ABEND. DTSBE713
|
|
01615 DISPLAY '*** DTSBE713 ABENDING. ' CL**2
|
|
01616 ABEND-MSG. DTSBE713
|
|
01617 DTSBE713
|
|
01618 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2
|
|
01619 S999-EXIT. DTSBE713
|
|
01620 EXIT. DTSBE713
|