00001 IDENTIFICATION DIVISION. 02/07/12 00002 PROGRAM-ID. DTSBE607. DTSBE607 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV022 00004 DATE-WRITTEN. AUGUST 1994. DTSBE607 00005 DATE-COMPILED. DTSBE607 00006 SKIP3 DTSBE607 00007 ***** DTSBE607 00008 * DTSBE607 00009 * FUNCTION: ASSIGNMENT DETAIL BY FIELD REPRESENTATIVE DTSBE607 00010 * EXTRACT. DTSBE607 00011 * DTSBE607 00012 * DTSBE607 00013 * MODIFICATION LOG: DTSBE607 00014 * DTSBE607 00015 * 09/20/94 INITIAL DEVELOPMENT. DTSBE607 00016 * WORK ORDER: PROGRAMMER: RHC DTSBE607 00017 * DTSBE607 00018 * 04/03/95 CHANGE THE PARAMETER DEFAULT LOGIC AND LIMIT THE DTSBE607 00019 * EXTRCT TO AUDIT ASSIGNMENTS. DTSBE607 00020 * WORK ORDER: CR070 PROGRAMMER: EHH DTSBE607 00021 * DTSBE607 00022 * 11/25/98 MODIFIED TO MEET DUTAS PROGRAMMING REQUIREMENTS. DTSBE607 00023 * WORK ORDER: PROGRAMMER: DVS DTSBE607 00024 * DTSBE607 00025 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE607 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE607 00027 * WORK ORDER: PROGRAMMER: XXX DTSBE607 00028 * DTSBE607 00029 * DTSBE607 00030 * DESCRIPTION: DTSBE607 00031 * DTSBE607 00032 * DTSBE607 00033 * INITIATION: DTSBE607 00034 * DTSBE607 00035 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE607 00036 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE607 00037 * DTSBE607 00038 * EDIT PARAMTERS (SEE 607R1). DTSBE607 00039 * DTSBE607 00040 * DTSBE607 00041 * PROCESSING: DTSBE607 00042 * DTSBE607 00043 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (607R1). DTSBE607 00044 * DTSBE607 00045 * DTSBE607 00046 * TERMINATION: DTSBE607 00047 * DTSBE607 00048 * NONE. DTSBE607 00049 * DTSBE607 00050 * DTSBE607 00051 * RECORDS READ: DTSBE607 00052 * DTSBE607 00053 * MASTER: DTSBE607 00054 * DTSBE607 00055 * MFAS DTSBE607 00056 * MAUR DTSBE607 00057 * MAUY DTSBE607 00058 * DTSBE607 00059 * DTSBE607 00060 * ALTERNATE INDEX: DTSBE607 00061 * DTSBE607 00062 * NONE. DTSBE607 00063 * DTSBE607 00064 * DTSBE607 00065 * REFERENCE: DTSBE607 00066 * DTSBE607 00067 * NONE. DTSBE607 00068 * DTSBE607 00069 * DTSBE607 00070 * RECORDS UPDATED: DTSBE607 00071 * DTSBE607 00072 * NONE. DTSBE607 00073 * DTSBE607 00074 * DTSBE607 00075 * REPORT RECORDS WRITTEN: DTSBE607 00076 * DTSBE607 00077 * R607 ASSIGNMENT SUMMPARY BE FIELD REPRESENTATIVE. DTSBE607 00078 * DTSBE607 00079 * DTSBE607 00080 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE607 00081 * DTSBE607 00082 * NONE. DTSBE607 00083 * DTSBE607 00084 * DTSBE607 00085 * MODULES CALLED: DTSBE607 00086 * DTSBE607 00087 * DTSBU001 DATE CONVERSION/EDIT. DTSBE607 00088 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBE607 00089 * DTSBU910 MASTER FILE I/O. DTSBE607 00090 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBE607 00091 * DTSBE607 00092 * DTSBE607 00093 * VERMONT REFERENCE: DTSBE607 00094 * DTSBE607 00095 * TXBE362 DTSBE607 00096 * DTSBE607 00097 ***** DTSBE607 00098 SKIP3 DTSBE607 00099 ENVIRONMENT DIVISION. DTSBE607 00100 SKIP3 DTSBE607 00101 DATA DIVISION. DTSBE607 00102 EJECT DTSBE607 00103 WORKING-STORAGE SECTION. DTSBE607 001035 77 PAN-VALET PICTURE X(24) VALUE '022DTSBE607 02/07/12'. DTSBE607 00104 SKIP3 DTSBE607 00105 01 WRK-AREA. DTSBE607 00106 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +607.DTSBE607 00107 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE607'.DTSBE607 00108 DTSBE607 00109 05 ABEND-MSG PIC X(60). DTSBE607 00110 DTSBE607 00111 05 WRK-CNT PIC S9(04) COMP. DTSBE607 00112 DTSBE607 00113 SKIP3 DTSBE607 00114 DTSBE607 00115 EJECT DTSBE607 00116 01 L001-LINK-AREA. DTSBE607 00117 ++INCLUDE DTSIL001 DTSBE607 00118 EJECT DTSBE607 00119 01 L004-LINK-AREA. DTSBE607 00120 ++INCLUDE DTSIL004 DTSBE607 00121 EJECT DTSBE607 00122 01 L910-LINK-AREA. DTSBE607 00123 ++INCLUDE DTSIL910 DTSBE607 00124 SKIP3 DTSBE607 00125 01 MSKL-REC. DTSBE607 00126 ++INCLUDE DTSIMSKL DTSBE607 00127 SKIP3 DTSBE607 00128 01 MHDR-REC. DTSBE607 00129 ++INCLUDE DTSIMHDR DTSBE607 00130 SKIP3 DTSBE607 00131 01 MFAS-REC. DTSBE607 00132 ++INCLUDE DTSIMFAS DTSBE607 00133 SKIP3 DTSBE607 00134 01 MAUR-REC. DTSBE607 00135 ++INCLUDE DTSIMAUR DTSBE607 00136 SKIP3 DTSBE607 00137 01 MAUY-REC. DTSBE607 00138 ++INCLUDE DTSIMAUY DTSBE607 00139 EJECT DTSBE607 00140 01 MMAX-CONSTANT-AREA. DTSBE607 00141 ++INCLUDE DTSIMMAX DTSBE607 00142 EJECT DTSBE607 00143 01 R607-REC. DTSBE607 00144 ++INCLUDE DTSIR607 DTSBE607 00145 EJECT DTSBE607 00146 ++INCLUDE OJRWE607 DTSBE607 00147 EJECT DTSBE607 00148 LINKAGE SECTION. DTSBE607 00149 SKIP3 DTSBE607 00150 01 LECM-LINK-AREA. DTSBE607 00151 ++INCLUDE DTSILECM DTSBE607 00152 SKIP3 DTSBE607 00153 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE607 00154 15 LECM-PARM-PROCESSED-START-DATE PIC X(06). DTSBE607 00155 15 FILLER PIC X(01). DTSBE607 00156 15 LECM-PARM-PROCESSED-END-DATE PIC X(06). DTSBE607 00157 15 FILLER PIC X(01). DTSBE607 00158 15 LECM-PARM-COMPLETED-START-DATE PIC X(06). DTSBE607 00159 15 FILLER PIC X(01). DTSBE607 00160 15 LECM-PARM-COMPLETED-END-DATE PIC X(06). DTSBE607 00161 15 FILLER PIC X(01). DTSBE607 00162 15 LECM-PARM-ASSIGN-AREA DTSBE607 00163 OCCURS 5 TIMES DTSBE607 00164 INDEXED BY LECM-PARM-ASSIGN-IDX. DTSBE607 00165 20 LECM-PARM-ASSIGN-TYPE PIC X(02). DTSBE607 00166 20 FILLER PIC X(01). DTSBE607 00167 15 LECM-FLD-REP-ID-AREA DTSBE607 00168 OCCURS 5 TIMES DTSBE607 00169 INDEXED BY LECM-PARM-FLD-REP-IDX. DTSBE607 00170 20 LECM-PARM-FLD-REP-ID PIC X(02). DTSBE607 00171 20 FILLER PIC X(01). DTSBE607 00172 15 FILLER PIC X(10). DTSBE607 00173 EJECT DTSBE607 00174 01 MPRF-LINK-REC. DTSBE607 00175 ++INCLUDE DTSIMPRF DTSBE607 00176 EJECT DTSBE607 00177 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE607 00178 MPRF-LINK-REC. DTSBE607 00179 EVALUATE TRUE DTSBE607 00180 WHEN LECM-PROCESS-88 DTSBE607 00181 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE607 00182 DTSBE607 00183 WHEN LECM-INITIALIZE-88 DTSBE607 00184 SET WRK-EDIT-PASSED-88 TO TRUE DTSBE607 00185 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE607 00186 IF WRK-EDIT-FAILED-88 DTSBE607 00187 PERFORM S999-ABEND THRU S999-EXIT DTSBE607 00188 END-IF DTSBE607 00189 DTSBE607 00190 WHEN LECM-TERMINATE-88 DTSBE607 00191 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE607 00192 DTSBE607 00193 WHEN OTHER DTSBE607 00194 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE607 00195 TO ABEND-MSG DTSBE607 00196 PERFORM S999-ABEND THRU S999-EXIT. DTSBE607 00197 SKIP3 DTSBE607 00198 GOBACK. DTSBE607 00199 EJECT DTSBE607 00200 I0000-INITIALIZE. DTSBE607 00201 SKIP2 DTSBE607 00202 MOVE LENGTH OF R607-REC TO R607-LENGTH. DTSBE607 00203 MOVE '607' TO R607-REC-TYPE. DTSBE607 00204 DTSBE607 00205 MOVE LECM-PARM-COMPLETED-START-DATE TO DTSBE607 00206 OJR-PARM-COMPLETED-START-DATE. DTSBE607 00207 MOVE LECM-PARM-COMPLETED-END-DATE TO DTSBE607 00208 OJR-PARM-COMPLETED-END-DATE. DTSBE607 00209 MOVE LECM-PARM-PROCESSED-START-DATE TO DTSBE607 00210 OJR-PARM-PROCESSED-START-DATE. DTSBE607 00211 MOVE LECM-PARM-PROCESSED-END-DATE TO DTSBE607 00212 OJR-PARM-PROCESSED-END-DATE. DTSBE607 00213 DTSBE607 00214 PERFORM I0001-MOVE-ASSIGN THRU I0001-EXIT DTSBE607 00215 VARYING OJR-PARM-ASSIGN-IDX DTSBE607 00216 FROM 1 BY 1 UNTIL DTSBE607 00217 OJR-PARM-ASSIGN-IDX DTSBE607 00218 > 5. DTSBE607 00219 DTSBE607 00220 DTSBE607 00221 PERFORM I0002-MOVE-FLD-REP THRU I0002-EXIT DTSBE607 00222 VARYING OJR-PARM-FLD-REP-IDX DTSBE607 00223 FROM 1 BY 1 UNTIL DTSBE607 00224 OJR-PARM-FLD-REP-IDX DTSBE607 00225 > 5. DTSBE607 00226 DTSBE607 00227 MOVE LECM-TRACE-IND TO L910-TRACE-IND. DTSBE607 00228 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBE607 00229 DTSBE607 00230 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSBE607 00231 MOVE +0 TO MHDR-EMP-NO. DTSBE607 00232 SET MHDR-HDR-88 TO TRUE. DTSBE607 00233 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBE607 00234 PERFORM S910-READ THRU S910-EXIT. DTSBE607 00235 IF L910-NO-REC-88 DTSBE607 00236 MOVE 'MASTER FILE HEADER RECORD MISSING' DTSBE607 00237 TO ABEND-MSG DTSBE607 00238 PERFORM S999-ABEND THRU S999-EXIT. DTSBE607 00239 MOVE MSKL-REC TO MHDR-REC. DTSBE607 00240 DTSBE607 00241 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE607 00242 DTSBE607 00243 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE607 00244 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE607 00245 SKIP2 DTSBE607 00246 I0000-EXIT. DTSBE607 00247 EXIT. DTSBE607 00248 DTSBE607 00249 I0001-MOVE-ASSIGN. DTSBE607 00250 DTSBE607 00251 MOVE LECM-PARM-ASSIGN-TYPE (OJR-PARM-ASSIGN-IDX) TO DTSBE607 00252 OJR-PARM-ASSIGN-TYPE (OJR-PARM-ASSIGN-IDX). DTSBE607 00253 DTSBE607 00254 I0001-EXIT. DTSBE607 00255 EXIT. DTSBE607 00256 DTSBE607 00257 I0002-MOVE-FLD-REP. DTSBE607 00258 DTSBE607 00259 MOVE LECM-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX) TO DTSBE607 00260 OJR-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX). DTSBE607 00261 DTSBE607 00262 I0002-EXIT. DTSBE607 00263 EXIT. DTSBE607 00264 DTSBE607 00265 ++INCLUDE OJRPE607 DTSBE607 00266 P0000-PROCESS. DTSBE607 00267 IF MPRF-NO-MFAS-88 DTSBE607 00268 GO TO P0000-EXIT. DTSBE607 00269 DTSBE607 00270 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBE607 00271 MOVE MPRF-EMP-NO TO MFAS-EMP-NO. DTSBE607 00272 SET MFAS-FAS-88 TO TRUE. DTSBE607 00273 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBE607 00274 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE607 00275 PERFORM P1000-SCAN-MFAS THRU P1000-EXIT DTSBE607 00276 UNTIL L910-NO-REC-88. DTSBE607 00277 P0000-EXIT. DTSBE607 00278 EXIT. DTSBE607 00279 SKIP3 DTSBE607 00280 P1000-SCAN-MFAS. DTSBE607 00281 MOVE MSKL-REC TO MFAS-REC. DTSBE607 00282 DTSBE607 00283 IF (MFAS-AUDIT-88) DTSBE607 00284 AND DTSBE607 00285 (MFAS-STATUS-PROCESSED-88 OR MFAS-STATUS-COMPLETE-88) DTSBE607 00286 ****************OR DTSBE607 00287 ********((MFAS-NON-AUDIT-88) DTSBE607 00288 **************AND DTSBE607 00289 *********(MFAS-STATUS-COMPLETE-88)) DTSBE607 00290 PERFORM P1100-PROCESS-MFAS THRU P1100-EXIT DTSBE607 00291 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA DTSBE607 00292 PERFORM S910-READ THRU S910-EXIT DTSBE607 00293 IF L910-NO-REC-88 DTSBE607 00294 MOVE 'LOGIC ERROR IN P1000' TO ABEND-MSG DTSBE607 00295 PERFORM S999-ABEND THRU S999-EXIT. DTSBE607 00296 DTSBE607 00297 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE607 00298 P1000-EXIT. DTSBE607 00299 EXIT. DTSBE607 00300 SKIP3 DTSBE607 00301 P1100-PROCESS-MFAS. DTSBE607 00302 IF (MFAS-COMPLETED-DATE < WRK-PARM-COMPLETED-START-DATE) DTSBE607 00303 OR DTSBE607 00304 (MFAS-COMPLETED-DATE > WRK-PARM-COMPLETED-END-DATE) DTSBE607 00305 GO TO P1100-EXIT. DTSBE607 00306 DTSBE607 00307 *****IF MFAS-AUDIT-88 DTSBE607 00308 IF (MFAS-PROCESSED-DATE < WRK-PARM-PROCESSED-START-DATE) DTSBE607 00309 OR DTSBE607 00310 (MFAS-PROCESSED-DATE > WRK-PARM-PROCESSED-END-DATE) DTSBE607 00311 GO TO P1100-EXIT. DTSBE607 00312 SKIP3 DTSBE607 00313 MOVE 'N' TO WRK-ASSIGN-TYPE-IND. DTSBE607 00314 DTSBE607 00315 IF WRK-PARM-ASSIGN-TYPE-CNT = +0 DTSBE607 00316 MOVE 'Y' TO WRK-ASSIGN-TYPE-IND DTSBE607 00317 ELSE DTSBE607 00318 PERFORM P1110-CHECK-ASSIGN-TYPE THRU P1110-EXIT DTSBE607 00319 VARYING WRK-PARM-ASSIGN-IDX FROM 1 BY 1 DTSBE607 00320 UNTIL (WRK-ASSIGN-TYPE-IND = 'Y') DTSBE607 00321 OR DTSBE607 00322 (WRK-PARM-ASSIGN-IDX DTSBE607 00323 > WRK-PARM-ASSIGN-TYPE-CNT). DTSBE607 00324 DTSBE607 00325 IF WRK-ASSIGN-TYPE-IND = 'N' DTSBE607 00326 GO TO P1100-EXIT. DTSBE607 00327 SKIP3 DTSBE607 00328 MOVE 'N' TO WRK-FLD-REP-ID-IND. DTSBE607 00329 DTSBE607 00330 IF WRK-PARM-FLD-REP-ID-CNT = +0 DTSBE607 00331 MOVE 'Y' TO WRK-FLD-REP-ID-IND DTSBE607 00332 ELSE DTSBE607 00333 PERFORM P1120-CHECK-FLD-REP-ID THRU P1120-EXIT DTSBE607 00334 VARYING WRK-PARM-FLD-REP-IDX FROM 1 BY 1 DTSBE607 00335 UNTIL (WRK-FLD-REP-ID-IND = 'Y') DTSBE607 00336 OR DTSBE607 00337 (WRK-PARM-FLD-REP-IDX DTSBE607 00338 > WRK-PARM-FLD-REP-ID-CNT). DTSBE607 00339 DTSBE607 00340 IF WRK-FLD-REP-ID-IND = 'N' DTSBE607 00341 GO TO P1100-EXIT. DTSBE607 00342 DTSBE607 00343 ***** DTSBE607 00344 * DTSBE607 00345 * OF COURSE, IF THE ASSIGNMENT IS NOT AN AUDIT ASSIGNMENT DTSBE607 00346 * THEN NO MAUR OR MAUY RECORDS WILL EXIST. DEFAULT THE DTSBE607 00347 * R607 RECORDS APPROPRIATELY. ALSO, USE THE R607 RECORD DTSBE607 00348 * DEFAULTS IF AN AUDIT ASSIGNMENT WITH NO MAUR RECORD IS DTSBE607 00349 * ENCOUNTERED. DTSBE607 00350 * DTSBE607 00351 ***** DTSBE607 00352 DTSBE607 00353 MOVE MFAS-FLD-REP-ID TO R607-FIELD-REP-ID. DTSBE607 00354 MOVE MFAS-ASSIGN-NO TO R607-ASSIGN-NO. DTSBE607 00355 INITIALIZE R607-DATA-AREA. DTSBE607 00356 INITIALIZE R607-PARM-AREA. DTSBE607 00357 MOVE WRK-PARM-AREA TO R607-PARM-AREA. DTSBE607 00358 MOVE MPRF-PRIMARY-NAME TO R607-PRIMARY-NAME. DTSBE607 00359 MOVE MFAS-AUDIT-IND TO R607-AUDIT-IND. DTSBE607 00360 MOVE MFAS-STATUS-CD TO R607-STATUS-CD. DTSBE607 00361 MOVE MFAS-EMP-NO TO R607-EMP-NO. DTSBE607 00362 MOVE MFAS-SIC-CD TO R607-SIC-CD. DTSBE607 00363 MOVE MFAS-OWN-CD TO R607-OWN-CD. DTSBE607 00364 MOVE MFAS-NAICS-CD TO R607-NAICS-CD. DTSBE607 00365 MOVE MFAS-ASSIGN-TYPE TO R607-ASSIGN-TYPE. DTSBE607 00366 MOVE MFAS-START-DATE TO R607-START-DATE. DTSBE607 00367 MOVE MFAS-DUE-DATE TO R607-DUE-DATE. DTSBE607 00368 MOVE MFAS-COMPLETED-DATE TO R607-COMPLETED-DATE. DTSBE607 00369 MOVE MFAS-PROCESSED-DATE TO R607-PROCESSED-DATE. DTSBE607 00370 MOVE MFAS-AUDIT-SEL-AREA TO R607-AUDIT-SEL-AREA. DTSBE607 00371 MOVE MFAS-EMP-SIZE-IND TO R607-MFAS-EMP-SIZE-IND. DTSBE607 00372 DTSBE607 00373 SET R607-CHANGE-AUDIT-NO-88 TO TRUE. DTSBE607 00374 DTSBE607 00375 MOVE LOW-VALUE TO MAUR-KEY-AREA. DTSBE607 00376 MOVE MFAS-EMP-NO TO MAUR-EMP-NO. DTSBE607 00377 SET MAUR-AUR-88 TO TRUE. DTSBE607 00378 MOVE MFAS-ASSIGN-NO TO MAUR-ASSIGN-NO. DTSBE607 00379 MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA. DTSBE607 00380 PERFORM S910-READ THRU S910-EXIT. DTSBE607 00381 IF L910-OK-88 DTSBE607 00382 MOVE MSKL-REC TO MAUR-REC DTSBE607 00383 ELSE DTSBE607 00384 PERFORM S946-WRITE-R607 THRU S946-EXIT DTSBE607 00385 GO TO P1100-EXIT. DTSBE607 00386 SKIP3 DTSBE607 00387 MOVE MAUR-AUDIT-HRS TO R607-AUDIT-HRS. DTSBE607 00388 MOVE MAUR-QTRS-AUDITED-CNT TO R607-QTRS-AUDITED-CNT. DTSBE607 00389 PERFORM VARYING MAUR-ERROR-IDX FROM 1 BY 1 DTSBE607 00390 UNTIL MAUR-ERROR-IDX > 5 DTSBE607 00391 IF MAUR-ERROR-TYPE(MAUR-ERROR-IDX) > SPACES DTSBE607 00392 SET R607-ERROR-IDX TO MAUR-ERROR-IDX DTSBE607 00393 MOVE MAUR-ERROR-TYPE(MAUR-ERROR-IDX) TO DTSBE607 00394 R607-ERROR-TYPE(R607-ERROR-IDX) DTSBE607 00395 END-IF DTSBE607 00396 END-PERFORM. DTSBE607 00397 MOVE MAUR-EMP-SIZE-IND TO R607-MAUR-EMP-SIZE-IND. DTSBE607 00398 MOVE MAUR-NEW-EMPLOYEE-CNT TO R607-NEW-EMPLOYEE-CNT. DTSBE607 00399 MOVE MAUR-MONEY-DUE-AMT TO R607-MONEY-DUE-AMT. DTSBE607 00400 MOVE MAUR-MONEY-REASON-CD TO R607-MONEY-REASON-CD. DTSBE607 00401 MOVE MAUR-MONEY-COLLECT-AMT TO R607-MONEY-COLLECT-AMT. DTSBE607 00402 DTSBE607 00403 MOVE LOW-VALUE TO MAUY-KEY-AREA. DTSBE607 00404 MOVE MFAS-EMP-NO TO MAUY-EMP-NO. DTSBE607 00405 SET MAUY-AUY-88 TO TRUE. DTSBE607 00406 MOVE MFAS-ASSIGN-NO TO MAUY-ASSIGN-NO. DTSBE607 00407 MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA. DTSBE607 00408 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE607 00409 IF L910-OK-88 DTSBE607 00410 MOVE MSKL-REC TO MAUY-REC DTSBE607 00411 PERFORM P1130-SCAN-MAUY THRU P1130-EXIT DTSBE607 00412 UNTIL L910-NO-REC-88 DTSBE607 00413 OR MAUY-ASSIGN-NO NOT = MFAS-ASSIGN-NO. DTSBE607 00414 SKIP3 DTSBE607 00415 PERFORM S946-WRITE-R607 THRU S946-EXIT. DTSBE607 00416 P1100-EXIT. DTSBE607 00417 EXIT. DTSBE607 00418 EJECT DTSBE607 00419 P1110-CHECK-ASSIGN-TYPE. DTSBE607 00420 IF MFAS-ASSIGN-TYPE DTSBE607 00421 = WRK-PARM-ASSIGN-TYPE (WRK-PARM-ASSIGN-IDX) DTSBE607 00422 MOVE 'Y' TO WRK-ASSIGN-TYPE-IND. DTSBE607 00423 P1110-EXIT. DTSBE607 00424 EXIT. DTSBE607 00425 SKIP3 DTSBE607 00426 P1120-CHECK-FLD-REP-ID. DTSBE607 00427 IF MFAS-FLD-REP-ID DTSBE607 00428 = WRK-PARM-FLD-REP-ID (WRK-PARM-FLD-REP-IDX) DTSBE607 00429 MOVE 'Y' TO WRK-FLD-REP-ID-IND. DTSBE607 00430 P1120-EXIT. DTSBE607 00431 EXIT. DTSBE607 00432 EJECT DTSBE607 00433 P1130-SCAN-MAUY. DTSBE607 00434 PERFORM P1131-SCAN-QTRS THRU P1131-EXIT DTSBE607 00435 VARYING WRK-CNT FROM 1 BY 1 DTSBE607 00436 UNTIL WRK-CNT > MMAX-AUY-QTR-MAX. DTSBE607 00437 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE607 00438 MOVE MSKL-REC TO MAUY-REC. DTSBE607 00439 P1130-EXIT. DTSBE607 00440 EXIT. DTSBE607 00441 SKIP3 DTSBE607 00442 P1131-SCAN-QTRS. DTSBE607 00443 ADD MAUY-QTR-GROSS-PAYROLL (WRK-CNT) DTSBE607 00444 TO R607-TOT-GROSS-PAYROLL. DTSBE607 00445 DTSBE607 00446 IF MAUY-QTR-UNDER-TOT-WAGE (WRK-CNT) NOT = 0 DTSBE607 00447 SET R607-CHANGE-AUDIT-YES-88 TO TRUE DTSBE607 00448 ADD MAUY-QTR-UNDER-TOT-WAGE (WRK-CNT) DTSBE607 00449 TO R607-TOT-UNDER-TOT-WAGE. DTSBE607 00450 IF MAUY-QTR-UNDER-TAX-WAGE (WRK-CNT) NOT = 0 DTSBE607 00451 SET R607-CHANGE-AUDIT-YES-88 TO TRUE DTSBE607 00452 ADD MAUY-QTR-UNDER-TAX-WAGE (WRK-CNT) DTSBE607 00453 TO R607-TOT-UNDER-TAX-WAGE. DTSBE607 00454 IF MAUY-QTR-UNDER-CONTRIB (WRK-CNT) NOT = 0 DTSBE607 00455 SET R607-CHANGE-AUDIT-YES-88 TO TRUE DTSBE607 00456 ADD MAUY-QTR-UNDER-CONTRIB (WRK-CNT) DTSBE607 00457 TO R607-TOT-UNDER-CONTRIB. DTSBE607 00458 DTSBE607 00459 IF MAUY-QTR-OVER-TOT-WAGE (WRK-CNT) NOT = 0 DTSBE607 00460 SET R607-CHANGE-AUDIT-YES-88 TO TRUE DTSBE607 00461 ADD MAUY-QTR-OVER-TOT-WAGE (WRK-CNT) DTSBE607 00462 TO R607-TOT-OVER-TOT-WAGE. DTSBE607 00463 IF MAUY-QTR-OVER-TAX-WAGE (WRK-CNT) NOT = 0 DTSBE607 00464 SET R607-CHANGE-AUDIT-YES-88 TO TRUE DTSBE607 00465 ADD MAUY-QTR-OVER-TAX-WAGE (WRK-CNT) DTSBE607 00466 TO R607-TOT-OVER-TAX-WAGE. DTSBE607 00467 IF MAUY-QTR-OVER-CONTRIB (WRK-CNT) NOT = 0 DTSBE607 00468 SET R607-CHANGE-AUDIT-YES-88 TO TRUE DTSBE607 00469 ADD MAUY-QTR-OVER-CONTRIB (WRK-CNT) DTSBE607 00470 TO R607-TOT-OVER-CONTRIB. DTSBE607 00471 P1131-EXIT. DTSBE607 00472 EXIT. DTSBE607 00473 EJECT DTSBE607 00474 S001-FROM-CAL-6. DTSBE607 00475 SET L001-FROM-CAL-6 TO TRUE. DTSBE607 00476 GO TO S001-DATE. DTSBE607 00477 SKIP1 DTSBE607 00478 S001-DATE. DTSBE607 00479 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE607 00480 S001-EXIT. DTSBE607 00481 EXIT. DTSBE607 00482 SKIP3 DTSBE607 00483 S910-READ. DTSBE607 00484 SET L910-READ-88 TO TRUE. DTSBE607 00485 GO TO S910-MSTR-IO. DTSBE607 00486 SKIP1 DTSBE607 00487 S910-START-BROWSE. DTSBE607 00488 SET L910-START-BROWSE-88 TO TRUE. DTSBE607 00489 GO TO S910-MSTR-IO. DTSBE607 00490 SKIP1 DTSBE607 00491 S910-READ-NEXT. DTSBE607 00492 SET L910-READ-NEXT-88 TO TRUE. DTSBE607 00493 GO TO S910-MSTR-IO. DTSBE607 00494 SKIP1 DTSBE607 00495 *S910-COUNT. DTSBE607 00496 * SET L910-COUNT-88 TO TRUE. DTSBE607 00497 * GO TO S910-MSTR-IO. DTSBE607 00498 SKIP1 DTSBE607 00499 S910-MSTR-IO. DTSBE607 00500 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE607 00501 MSKL-REC. DTSBE607 00502 S910-EXIT. DTSBE607 00503 EXIT. DTSBE607 00504 SKIP3 DTSBE607 00505 S946-WRITE-R607. DTSBE607 00506 CALL 'DTSBU946' USING R607-REC. DTSBE607 00507 S946-EXIT. DTSBE607 00508 EXIT. DTSBE607 00509 SKIP3 DTSBE607 00510 S999-ABEND. DTSBE607 00511 DISPLAY '*** DTSBE607 ABENDING. ' ABEND-MSG. DTSBE607 00512 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE607 00513 S999-EXIT. DTSBE607 00514 EXIT. DTSBE607 00515 EJECT DTSBE607 00516 T0000-TERMINATE. DTSBE607 00517 SKIP1 DTSBE607 00518 CONTINUE. DTSBE607 00519 SKIP1 DTSBE607 00520 T0000-EXIT. DTSBE607 00521 EXIT. DTSBE607