|
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-2024 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.