DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
522
Batch/DTSBE607.cob
Normal file
522
Batch/DTSBE607.cob
Normal file
@ -0,0 +1,522 @@
|
||||
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
|
||||
Reference in New Issue
Block a user