|
Notice on the OVRDBF command you put OVRSCOPE(*JOB)? There is no
OVRSCOPE(*SYSTEM).
You have JOBA doing an OVRDBF then it submits a second job with the RPG
program. Just because you gave the second job the same job name with
&JOBA does not mean it carries over the overrides and other job
attributes. It's still a different job. Nice try though.
Solution: Change your CL to the following:
PGM
DCL &JOBTYPE *CHAR 1
RTVJOBA TYPE(&JOBTYPE)
IF (&JOBTYPE='1') DO
/* Interactive job */
SBMJOB CMD(CALL PGM(SameCLPgm))...
ELSE DO
/* Batch job */
/* OVERRIDE LFSNGCHG WITH DELAY EOF
OVRDBF FILE(LFSNGCH1) TOFILE(*FILE) MBR(*FIRST) +
RCDFMTLCK((RSNGCHG *SHRRD)) +
EOFDLY(200) OVRSCOPE(*JOB) SHARE(*YES) OPNSCOPE(*JOB)
ENDDO
ENDPGM
Rob Berendt
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.