523 lines
41 KiB
COBOL
523 lines
41 KiB
COBOL
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
|