DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
385
Batch/DTSBD317.cob
Normal file
385
Batch/DTSBD317.cob
Normal file
@ -0,0 +1,385 @@
|
||||
00001 IDENTIFICATION DIVISION. 01/29/02
|
||||
00002 PROGRAM-ID. DTSBD317. DTSBD317
|
||||
00003 AUTHOR. TRW. LV001
|
||||
00004 DATE-WRITTEN. OCTOBER 2001. DTSBD317
|
||||
00005 DATE-COMPILED. DTSBD317
|
||||
00006 SKIP3 DTSBD317
|
||||
00007 ***** DTSBD317
|
||||
00008 * DTSBD317
|
||||
00009 * FUNCTION: CREATE REPORT RECORDS FOR HOUSEHOLD NOTICES DTSBD317
|
||||
00010 * DTSBD317
|
||||
00011 * DTSBD317
|
||||
00012 * MODIFICATION LOG: DTSBD317
|
||||
00013 * DTSBD317
|
||||
00014 * 10/31/2001 INITIAL DEVELOPMENT. DTSBD317
|
||||
00015 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD317
|
||||
00016 * DTSBD317
|
||||
00017 * DTSBD317
|
||||
00018 * DESCRIPTION: DTSBD317
|
||||
00019 * DTSBD317
|
||||
00020 * IF, FOR A GIVEN EMP-NO, DTSBD317 IS CALLED MORE THAN ONCE, DTSBD317
|
||||
00021 * THEN BYPASS PROCESSING ON ALL CALLS OTHER THAN THE FIRST. DTSBD317
|
||||
00022 * DTSBD317
|
||||
00023 * PLEASE SEE PRINTED OUTPUTS DESCRIPTIONS AND LAYOUTS DTSBD317
|
||||
00024 * FOR FURTHER INFORMATION. DTSBD317
|
||||
00025 * DTSBD317
|
||||
00026 * DTSBD317
|
||||
00027 * MASTER FILE RECORDS READ: DTSBD317
|
||||
00028 * DTSBD317
|
||||
00029 * MFSC DTSBD317
|
||||
00030 * DTSBD317
|
||||
00031 * DTSBD317
|
||||
00032 * MASTER FILE RECORDS UPDATED: DTSBD317
|
||||
00033 * DTSBD317
|
||||
00034 * MFSC (REWRITE) DTSBD317
|
||||
00035 * DTSBD317
|
||||
00036 * DTSBD317
|
||||
00037 * REPORT RECORDS WRITTEN: DTSBD317
|
||||
00038 * DTSBD317
|
||||
00039 * R131 HOUSEHOLD NOTICES: DTSBD317
|
||||
00040 * POTENTIAL HOUSEHOLD SCHEDULE SELECTION DTSBD317
|
||||
00041 * EMPLOYER REQUEST SCHEDULE SELECTION DTSBD317
|
||||
00042 * QUARTERLY CONFIRMATION DTSBD317
|
||||
00043 * ANNUAL CONFIRMATION DTSBD317
|
||||
00044 * DTSBD317
|
||||
00045 * R901 LABEL. DTSBD317
|
||||
00046 * DTSBD317
|
||||
00047 * DTSBD317
|
||||
00048 * MODULES CALLED: DTSBD317
|
||||
00049 * DTSBD317
|
||||
00050 * DTSBU111 ADDRESS LOOKUP. DTSBD317
|
||||
00051 * DTSBU112 FORMAT ADDRESS FOR MAILING. DTSBD317
|
||||
00052 * DTSBU910 MASTER FILE I/O. DTSBD317
|
||||
00053 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD317
|
||||
00054 * DTSBD317
|
||||
00055 ***** DTSBD317
|
||||
00056 SKIP3 DTSBD317
|
||||
00057 ENVIRONMENT DIVISION. DTSBD317
|
||||
00058 EJECT DTSBD317
|
||||
00059 DATA DIVISION. DTSBD317
|
||||
00060 SKIP3 DTSBD317
|
||||
00061 WORKING-STORAGE SECTION. DTSBD317
|
||||
000615 77 PAN-VALET PICTURE X(24) VALUE '001DTSBD317 01/29/02'. DTSBD317
|
||||
00062 SKIP3 DTSBD317
|
||||
00063 01 WRK-AREA. DTSBD317
|
||||
00064 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +317.DTSBD317
|
||||
00065 DTSBD317
|
||||
00066 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD317'.DTSBD317
|
||||
00067 DTSBD317
|
||||
00068 DTSBD317
|
||||
00069 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD317
|
||||
00070 DTSBD317
|
||||
00071 DTSBD317
|
||||
00072 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBD317
|
||||
00073 DTSBD317
|
||||
00074 DTSBD317
|
||||
00075 05 WRK-MAILING-ADDRESS. DTSBD317
|
||||
00076 10 FILLER OCCURS 5 PIC X(40). DTSBD317
|
||||
00077 DTSBD317
|
||||
00078 05 WRK-ZIP PIC X(10). DTSBD317
|
||||
00079 DTSBD317
|
||||
00080 05 WRK-ADVANCED-BARCODE PIC X(14). DTSBD317
|
||||
00081 DTSBD317
|
||||
00082 DTSBD317
|
||||
00083 DTSBD317
|
||||
00084 EJECT DTSBD317
|
||||
00085 01 L111-LINK-AREA. DTSBD317
|
||||
00086 ++INCLUDE DTSIL111 DTSBD317
|
||||
00087 EJECT DTSBD317
|
||||
00088 01 L112-LINK-AREA. DTSBD317
|
||||
00089 ++INCLUDE DTSIL112 DTSBD317
|
||||
00090 EJECT DTSBD317
|
||||
00091 01 L910-LINK-AREA. DTSBD317
|
||||
00092 ++INCLUDE DTSIL910 DTSBD317
|
||||
00093 EJECT DTSBD317
|
||||
00094 01 MSKL-REC. DTSBD317
|
||||
00095 ++INCLUDE DTSIMSKL DTSBD317
|
||||
00096 EJECT DTSBD317
|
||||
00097 01 MFSC-REC. DTSBD317
|
||||
00098 ++INCLUDE DTSIMFSC DTSBD317
|
||||
00099 EJECT DTSBD317
|
||||
00100 01 RSKL-REC. DTSBD317
|
||||
00101 ++INCLUDE DTSIRSK1 DTSBD317
|
||||
00102 EJECT DTSBD317
|
||||
00103 01 R131-REC. DTSBD317
|
||||
00104 ++INCLUDE DTSIR131 DTSBD317
|
||||
00105 EJECT DTSBD317
|
||||
00106 LINKAGE SECTION. DTSBD317
|
||||
00107 SKIP3 DTSBD317
|
||||
00108 01 LBCM-LINK-AREA. DTSBD317
|
||||
00109 ++INCLUDE DTSILBCM DTSBD317
|
||||
00110 EJECT DTSBD317
|
||||
00111 01 MPRF-REC. DTSBD317
|
||||
00112 ++INCLUDE DTSIMPRF DTSBD317
|
||||
00113 EJECT DTSBD317
|
||||
00114 01 T001-REC. DTSBD317
|
||||
00115 ++INCLUDE DTSIT001 DTSBD317
|
||||
00116 EJECT DTSBD317
|
||||
00117 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD317
|
||||
00118 MPRF-REC DTSBD317
|
||||
00119 T001-REC. DTSBD317
|
||||
00120 DTSBD317
|
||||
00121 IF FIRST-TIME-IND = 'Y' DTSBD317
|
||||
00122 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBD317
|
||||
00123 MOVE 'N' TO FIRST-TIME-IND. DTSBD317
|
||||
00124 DTSBD317
|
||||
00125 DTSBD317
|
||||
00126 IF MPRF-EMP-NO NOT = WRK-EMP-NO DTSBD317
|
||||
00127 MOVE MPRF-EMP-NO TO WRK-EMP-NO DTSBD317
|
||||
00128 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD317
|
||||
00129 DTSBD317
|
||||
00130 DTSBD317
|
||||
00131 GOBACK. DTSBD317
|
||||
00132 EJECT DTSBD317
|
||||
00133 I0000-INITIATE. DTSBD317
|
||||
00134 MOVE +0 TO WRK-EMP-NO. DTSBD317
|
||||
00135 DTSBD317
|
||||
00136 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBD317
|
||||
00137 DTSBD317
|
||||
00138 MOVE LBCM-TRACE-IND TO L910-TRACE-IND. DTSBD317
|
||||
00139 DTSBD317
|
||||
00140 DTSBD317
|
||||
00141 MOVE LENGTH OF R131-REC TO R131-LENGTH. DTSBD317
|
||||
00142 DTSBD317
|
||||
00143 I0000-EXIT. EXIT. DTSBD317
|
||||
00144 EJECT DTSBD317
|
||||
00145 P0000-PROCESS. DTSBD317
|
||||
00146 PERFORM P1000-FIND-ADDRESS THRU P1000-EXIT. DTSBD317
|
||||
00147 DTSBD317
|
||||
00148 IF T001-HH-POT-HOUSEHOLD-88 DTSBD317
|
||||
00149 OR T001-HH-EMP-REQUEST-88 DTSBD317
|
||||
00150 PERFORM P2000-INIT-NOTICE THRU P2000-EXIT DTSBD317
|
||||
00151 ELSE DTSBD317
|
||||
00152 IF T001-HH-CONFIRM-QTR-88 DTSBD317
|
||||
00153 OR T001-HH-CONFIRM-ANN-88 DTSBD317
|
||||
00154 PERFORM P3000-CONF-NOTICE THRU P3000-EXIT. DTSBD317
|
||||
00155 DTSBD317
|
||||
00156 P0000-EXIT. EXIT. DTSBD317
|
||||
00157 EJECT DTSBD317
|
||||
00158 P1000-FIND-ADDRESS. DTSBD317
|
||||
00159 MOVE WRK-EMP-NO TO L111-EMP-NO. DTSBD317
|
||||
00160 DTSBD317
|
||||
00161 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD317
|
||||
00162 DTSBD317
|
||||
00163 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD317
|
||||
00164 DTSBD317
|
||||
00165 PERFORM S111-LOOKUP-ADDRESS THRU S111-EXIT. DTSBD317
|
||||
00166 DTSBD317
|
||||
00167 IF L111-ADDR-FOUND-88 DTSBD317
|
||||
00168 SET L112-TAD-ADDR-88 TO TRUE DTSBD317
|
||||
00169 SET L112-ANCHOR-LAST-88 TO TRUE DTSBD317
|
||||
00170 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME DTSBD317
|
||||
00171 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBD317
|
||||
00172 PERFORM S112-FORMAT-ADDRESS THRU S112-EXIT DTSBD317
|
||||
00173 ELSE DTSBD317
|
||||
00174 MOVE ALL '?' TO L112-NAME-ADDRESS-AREA. DTSBD317
|
||||
00175 DTSBD317
|
||||
00176 MOVE L112-MAILING-ADDRESS TO WRK-MAILING-ADDRESS. DTSBD317
|
||||
00177 DTSBD317
|
||||
00178 MOVE L112-ZIP TO WRK-ZIP. DTSBD317
|
||||
00179 DTSBD317
|
||||
00180 MOVE L112-ADVANCED-BARCODE TO WRK-ADVANCED-BARCODE. DTSBD317
|
||||
00181 DTSBD317
|
||||
00182 P1000-EXIT. DTSBD317
|
||||
00183 EXIT. DTSBD317
|
||||
00184 DTSBD317
|
||||
00185 P2000-INIT-NOTICE. DTSBD317
|
||||
00186 PERFORM P2100-R131-REC THRU P2100-EXIT. DTSBD317
|
||||
00187 DTSBD317
|
||||
00188 PERFORM P2300-UPD-MFSC THRU P2300-EXIT. DTSBD317
|
||||
00189 DTSBD317
|
||||
00190 P2000-EXIT. EXIT. DTSBD317
|
||||
00191 EJECT DTSBD317
|
||||
00192 P2100-R131-REC. DTSBD317
|
||||
00193 MOVE T001-RESP-OP-ID TO R131-OP-ID. DTSBD317
|
||||
00194 DTSBD317
|
||||
00195 MOVE WRK-EMP-NO TO R131-EMP-NO. DTSBD317
|
||||
00196 DTSBD317
|
||||
00197 INITIALIZE R131-DATA-AREA. DTSBD317
|
||||
00198 DTSBD317
|
||||
00199 IF T001-HH-POT-HOUSEHOLD-88 DTSBD317
|
||||
00200 SET R131-POT-HOUSEHOLD-88 TO TRUE DTSBD317
|
||||
00201 ELSE DTSBD317
|
||||
00202 IF T001-HH-EMP-REQUEST-88 DTSBD317
|
||||
00203 SET R131-EMP-REQUEST-88 TO TRUE DTSBD317
|
||||
00204 ELSE DTSBD317
|
||||
00205 GO TO P2100-EXIT. DTSBD317
|
||||
00206 DTSBD317
|
||||
00207 MOVE LBCM-CURR-RUN-DATE TO R131-RUN-DATE. DTSBD317
|
||||
00208 DTSBD317
|
||||
00209 MOVE WRK-MAILING-ADDRESS TO R131-FMT-ADDR. DTSBD317
|
||||
00210 DTSBD317
|
||||
00211 MOVE WRK-ZIP TO R131-ZIP. DTSBD317
|
||||
00212 DTSBD317
|
||||
00213 MOVE WRK-ADVANCED-BARCODE TO R131-ADVANCED-BARCODE. DTSBD317
|
||||
00214 DTSBD317
|
||||
00215 MOVE T001-HH-START-YRQ TO R131-FILE-SCHED-START. DTSBD317
|
||||
00216 DTSBD317
|
||||
00217 MOVE R131-REC TO RSKL-REC. DTSBD317
|
||||
00218 DTSBD317
|
||||
00219 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD317
|
||||
00220 P2100-EXIT. EXIT. DTSBD317
|
||||
00221 SKIP3 DTSBD317
|
||||
00222 P2300-UPD-MFSC. DTSBD317
|
||||
00223 MOVE LOW-VALUES TO MFSC-KEY-AREA. DTSBD317
|
||||
00224 MOVE WRK-EMP-NO TO MFSC-EMP-NO. DTSBD317
|
||||
00225 SET MFSC-FSC-88 TO TRUE. DTSBD317
|
||||
00226 MOVE MFSC-KEY-AREA TO MSKL-KEY-AREA. DTSBD317
|
||||
00227 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD317
|
||||
00228 IF L910-NO-REC-88 DTSBD317
|
||||
00229 GO TO P2300-EXIT DTSBD317
|
||||
00230 ELSE DTSBD317
|
||||
00231 PERFORM P2310-ADD-MAIL-DATE THRU P2310-EXIT DTSBD317
|
||||
00232 UNTIL L910-NO-REC-88. DTSBD317
|
||||
00233 DTSBD317
|
||||
00234 P2300-EXIT. DTSBD317
|
||||
00235 EXIT. DTSBD317
|
||||
00236 DTSBD317
|
||||
00237 P2310-ADD-MAIL-DATE. DTSBD317
|
||||
00238 MOVE MSKL-REC TO MFSC-REC. DTSBD317
|
||||
00239 DTSBD317
|
||||
00240 IF MFSC-STATUS-PENDING-88 DTSBD317
|
||||
00241 IF MFSC-INITIAL-MAIL-DATE = ZERO DTSBD317
|
||||
00242 MOVE LBCM-CURR-MAIL-DATE TO MFSC-INITIAL-MAIL-DATE DTSBD317
|
||||
00243 IF T001-HH-POT-HOUSEHOLD-88 DTSBD317
|
||||
00244 SET MFSC-INIT-1A-88 TO TRUE DTSBD317
|
||||
00245 ELSE DTSBD317
|
||||
00246 IF T001-HH-EMP-REQUEST-88 DTSBD317
|
||||
00247 SET MFSC-INIT-REQUEST-88 TO TRUE DTSBD317
|
||||
00248 ELSE DTSBD317
|
||||
00249 NEXT SENTENCE DTSBD317
|
||||
00250 END-IF DTSBD317
|
||||
00251 END-IF DTSBD317
|
||||
00252 MOVE MFSC-REC TO MSKL-REC DTSBD317
|
||||
00253 PERFORM S910-REWRITE THRU S910-EXIT DTSBD317
|
||||
00254 END-IF DTSBD317
|
||||
00255 END-IF. DTSBD317
|
||||
00256 DTSBD317
|
||||
00257 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD317
|
||||
00258 DTSBD317
|
||||
00259 P2310-EXIT. DTSBD317
|
||||
00260 EXIT. DTSBD317
|
||||
00261 DTSBD317
|
||||
00262 P3000-CONF-NOTICE. DTSBD317
|
||||
00263 MOVE LOW-VALUES TO MFSC-KEY-AREA. DTSBD317
|
||||
00264 MOVE WRK-EMP-NO TO MFSC-EMP-NO. DTSBD317
|
||||
00265 SET MFSC-FSC-88 TO TRUE. DTSBD317
|
||||
00266 MOVE MFSC-KEY-AREA TO MSKL-KEY-AREA. DTSBD317
|
||||
00267 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD317
|
||||
00268 IF L910-NO-REC-88 DTSBD317
|
||||
00269 GO TO P3000-EXIT DTSBD317
|
||||
00270 ELSE DTSBD317
|
||||
00271 PERFORM P3100-FIND-MFSC THRU P3100-EXIT DTSBD317
|
||||
00272 UNTIL L910-NO-REC-88. DTSBD317
|
||||
00273 DTSBD317
|
||||
00274 P3000-EXIT. DTSBD317
|
||||
00275 EXIT. DTSBD317
|
||||
00276 DTSBD317
|
||||
00277 P3100-FIND-MFSC. DTSBD317
|
||||
00278 MOVE MSKL-REC TO MFSC-REC. DTSBD317
|
||||
00279 DTSBD317
|
||||
00280 IF MFSC-STATUS-OPEN-88 DTSBD317
|
||||
00281 IF MFSC-CONFIRM-MAIL-DATE = ZERO DTSBD317
|
||||
00282 AND T001-HH-START-YRQ = MFSC-START-YRQ DTSBD317
|
||||
00283 MOVE LBCM-CURR-MAIL-DATE TO MFSC-CONFIRM-MAIL-DATE DTSBD317
|
||||
00284 IF T001-HH-CONFIRM-QTR-88 DTSBD317
|
||||
00285 SET MFSC-CONFIRM-QTR-88 TO TRUE DTSBD317
|
||||
00286 MOVE MFSC-REC TO MSKL-REC DTSBD317
|
||||
00287 PERFORM S910-REWRITE THRU S910-EXIT DTSBD317
|
||||
00288 PERFORM P3110-ADD-R131 THRU P3110-EXIT DTSBD317
|
||||
00289 ELSE DTSBD317
|
||||
00290 IF T001-HH-CONFIRM-ANN-88 DTSBD317
|
||||
00291 SET MFSC-CONFIRM-ANN-88 TO TRUE DTSBD317
|
||||
00292 MOVE MFSC-REC TO MSKL-REC DTSBD317
|
||||
00293 PERFORM S910-REWRITE THRU S910-EXIT DTSBD317
|
||||
00294 PERFORM P3110-ADD-R131 THRU P3110-EXIT DTSBD317
|
||||
00295 END-IF DTSBD317
|
||||
00296 END-IF DTSBD317
|
||||
00297 END-IF DTSBD317
|
||||
00298 END-IF. DTSBD317
|
||||
00299 DTSBD317
|
||||
00300 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD317
|
||||
00301 DTSBD317
|
||||
00302 P3100-EXIT. DTSBD317
|
||||
00303 EXIT. DTSBD317
|
||||
00304 DTSBD317
|
||||
00305 P3110-ADD-R131. DTSBD317
|
||||
00306 MOVE T001-RESP-OP-ID TO R131-OP-ID. DTSBD317
|
||||
00307 DTSBD317
|
||||
00308 MOVE WRK-EMP-NO TO R131-EMP-NO. DTSBD317
|
||||
00309 DTSBD317
|
||||
00310 INITIALIZE R131-DATA-AREA. DTSBD317
|
||||
00311 DTSBD317
|
||||
00312 IF T001-HH-CONFIRM-QTR-88 DTSBD317
|
||||
00313 SET R131-CONFIRM-QTR-88 TO TRUE DTSBD317
|
||||
00314 ELSE DTSBD317
|
||||
00315 IF T001-HH-CONFIRM-ANN-88 DTSBD317
|
||||
00316 SET R131-CONFIRM-ANN-88 TO TRUE DTSBD317
|
||||
00317 ELSE DTSBD317
|
||||
00318 GO TO P3110-EXIT. DTSBD317
|
||||
00319 DTSBD317
|
||||
00320 MOVE LBCM-CURR-RUN-DATE TO R131-RUN-DATE. DTSBD317
|
||||
00321 DTSBD317
|
||||
00322 MOVE WRK-MAILING-ADDRESS TO R131-FMT-ADDR. DTSBD317
|
||||
00323 DTSBD317
|
||||
00324 MOVE WRK-ZIP TO R131-ZIP. DTSBD317
|
||||
00325 DTSBD317
|
||||
00326 MOVE WRK-ADVANCED-BARCODE TO R131-ADVANCED-BARCODE. DTSBD317
|
||||
00327 DTSBD317
|
||||
00328 MOVE T001-HH-START-YRQ TO R131-FILE-SCHED-START. DTSBD317
|
||||
00329 DTSBD317
|
||||
00330 MOVE R131-REC TO RSKL-REC. DTSBD317
|
||||
00331 DTSBD317
|
||||
00332 PERFORM S946-RPT-O THRU S946-EXIT. DTSBD317
|
||||
00333 DTSBD317
|
||||
00334 P3110-EXIT. DTSBD317
|
||||
00335 EXIT. DTSBD317
|
||||
00336 DTSBD317
|
||||
00337 S111-LOOKUP-ADDRESS. DTSBD317
|
||||
00338 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD317
|
||||
00339 S111-EXIT. EXIT. DTSBD317
|
||||
00340 SKIP3 DTSBD317
|
||||
00341 S112-FORMAT-ADDRESS. DTSBD317
|
||||
00342 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBD317
|
||||
00343 S112-EXIT. EXIT. DTSBD317
|
||||
00344 SKIP3 DTSBD317
|
||||
00345 S910-READ. DTSBD317
|
||||
00346 SET L910-READ-88 TO TRUE. DTSBD317
|
||||
00347 GO TO S910-MSTR-IO. DTSBD317
|
||||
00348 DTSBD317
|
||||
00349 S910-START-BROWSE. DTSBD317
|
||||
00350 SET L910-START-BROWSE-88 TO TRUE. DTSBD317
|
||||
00351 GO TO S910-MSTR-IO. DTSBD317
|
||||
00352 DTSBD317
|
||||
00353 S910-READ-NEXT. DTSBD317
|
||||
00354 SET L910-READ-NEXT-88 TO TRUE. DTSBD317
|
||||
00355 GO TO S910-MSTR-IO. DTSBD317
|
||||
00356 DTSBD317
|
||||
00357 *S910-COUNT. DTSBD317
|
||||
00358 *****SET L910-COUNT-88 TO TRUE. DTSBD317
|
||||
00359 *****GO TO S910-MSTR-IO. DTSBD317
|
||||
00360 DTSBD317
|
||||
00361 *S910-WRITE. DTSBD317
|
||||
00362 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD317
|
||||
00363 *****SET L910-WRITE-88 TO TRUE. DTSBD317
|
||||
00364 *****GO TO S910-MSTR-IO. DTSBD317
|
||||
00365 DTSBD317
|
||||
00366 S910-REWRITE. DTSBD317
|
||||
00367 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD317
|
||||
00368 SET L910-REWRITE-88 TO TRUE. DTSBD317
|
||||
00369 GO TO S910-MSTR-IO. DTSBD317
|
||||
00370 DTSBD317
|
||||
00371 *S910-DELETE. DTSBD317
|
||||
00372 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD317
|
||||
00373 *****SET L910-DELETE-88 TO TRUE. DTSBD317
|
||||
00374 *****GO TO S910-MSTR-IO. DTSBD317
|
||||
00375 DTSBD317
|
||||
00376 S910-MSTR-IO. DTSBD317
|
||||
00377 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD317
|
||||
00378 MSKL-REC. DTSBD317
|
||||
00379 S910-EXIT. EXIT. DTSBD317
|
||||
00380 SKIP3 DTSBD317
|
||||
00381 S946-RPT-O. DTSBD317
|
||||
00382 CALL 'DTSBU946' USING RSKL-REC. DTSBD317
|
||||
00383 S946-EXIT. EXIT. DTSBD317
|
||||
00384 EJECT DTSBD317
|
||||
Reference in New Issue
Block a user