× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.