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


  1.  Home
  2. MIDRANGE-L
  3. May 2014

RE: why does DSPOVR show overrides that DSPJOB does not?

Steve,
I'm being thick headed just now - can't remember how to see your
posted code . . .
maybe this picture can help demo what is happening, although my
demo job may be running very differently than yours.

The following is from:
wrkjob, 15. Display file overrides, if active:

Display All File Overrides

Job . . : LCP970C User . . : QSYSOPR Number . . : 624084
Call level . . . . . . . . . . . . . : *

Type options, press Enter.
5=Display override details

Opt File Level Type Keyword Specifications


(No file overrides)

No file overrides, correct ? - No, there are three.

Note that:
Job LCP970C is controlled by CLLE LCP970C, which
"manages" job flow and calls two RPGLE programs,
one of which calls a third RPGLE.

LCP970C runs in: DFTACTGRP *NO ACTGRP *NEW
All RPGLE run in: DFTACTGRP *NO ACTGRP *CALLER

Here is a snip of code showing OVRDBF performed by LCP970C:
OVRDBF commands performed by LCP970C:
OVRDBF FILE(F1) TOFILE(&ALIB/F1)
OVRDBF FILE(F2) TOFILE(&ALIB/F2)
OVRDBF FILE(F3) TOFILE(&ALIB/F3)
[ the default for OVRSCOPE is *ACTGRPDFN ]

From the command line, my job cannot see the overrides because
they are within an activation group not visible to my job, but they
are recorded in the job's log with an entry like:

19000 - OVRDBF FILE(F1) TOFILE(WKLIB1/F1)

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Richter via MIDRANGE-L
Sent: Friday, May 16, 2014 11:04 AM
To: Midrange Systems Technical Discussion
Subject: Re: why does DSPOVR show overrides that DSPJOB does not?

Gary,

I posted the code I was running. Pretty basic. I call qcmdexc to run the OVRDBF command. The call qcmdexc to DSPJOB and the DSPOVR. DSPOVR shows the override and DSPJOB does not.

I don't think it is an activation group thing because the OVR exists.
DSPOVR sees it. I ask because I was running some code that was not working. I was questing if the DSPOVR was working or not, then ran DSPJOB to display the override and it did not display. So then I spent time looking for why an override did not exist when it actually did exist.




On Fri, May 16, 2014 at 12:21 PM, Gary Thompson via MIDRANGE-L < midrange-l@xxxxxxxxxxxx> wrote:

Hmm,
You write: " The thing is when the override is OVRSCOPE(*JOB) then
DSJOB will display the override."
And: "I think it has to do with the call level ..."
You lost me there.
I don't have details about your job and program(s) [OPM vs ILE] so I'm
not sure how activation group issues apply, but your first statement
seems relevant, no?
I think an activation group can be seen as "a job within a job", so
program A in activation group AG_A can have FILE1 over-ridden to
FILE_A, and program B in activation group AG_B can have FILE1
over-ridden to FILE_B; both running in Job_1.
Further, any override with OVRSCOPE(*JOB) "breaks" activation group
"walls" and applies to programs running in any/all activation groups
within that job.


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Steve Richter via MIDRANGE-L
Sent: Friday, May 16, 2014 9:42 AM
To: Midrange Systems Technical Discussion
Subject: Re: why does DSPOVR show overrides that DSPJOB does not?

The thing is when the override is OVRSCOPE(*JOB) then DSJOB will
display the override.

I think it has to do with the call level of the job. On the DSPJOB
option(*FILOVR) there is a "Call level" display field. But I do not
see a "call level" parm to the DSPJOB command.



On Fri, May 16, 2014 at 11:31 AM, Gary Thompson via MIDRANGE-L <
midrange-l@xxxxxxxxxxxx> wrote:

Total guess:
in the debugger you are "in the debug program activation group"
(different from "from the same job") and the over-ride in question
is not for *job, but another AG ?


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf
Of Steve Richter via MIDRANGE-L
Sent: Friday, May 16, 2014 9:23 AM
To: Midrange Systems Technical Discussion
Subject: why does DSPOVR show overrides that DSPJOB does not?

When I run OVRDBF from an RPG program, halt the pgm in the debugger
and then run DSPJOB ( from the same job ) the override is not visible.
But when I run DSPOVR I see the override. What is the difference?

thanks,


h option(*srcstmt)

** ------------------------- dshtest4b ----------------------------
ddshtest4b pr extpgm('DSHTEST4B')

** ---------------------- pr_qcmdexc ---------------------------------
dpr_qcmdexc pr extpgm('QCMDEXC')
d InCmds 9999a const options(*VarSize)
d InCmdsLx 15p 5 const

** -------------------------- dshtest4b ----------------------------
ddshtest4b pi

d cmds s 256a varying
d ch80 s 80a
d dec155 s 15p 5

/free
cmds = 'ovrdbf dsmast2 tofile(dtalib09/dsmast2) ' ;
pr_qcmdexc( cmds: %len(cmds)) ;

cmds = 'dspovr ' ;
pr_qcmdexc( cmds: %len(cmds)) ;

cmds = 'dspjob option(*filovr)' ;
pr_qcmdexc( cmds: %len(cmds)) ;

*inlr = '1' ;
return ;
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please
take a moment to review the archives at
http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please
take a moment to review the archives at
http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.


As an Amazon Associate we earn from qualifying purchases.

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