For the OVRDBF command, apparently default is SHARE(*YES). This did cause the problem of the file cursor being changed by a pgm down the stack.

When I changed to OVRDBF SHARE(*NO), it solved the problem - ie when pgmA calls pgmB and returns, my file cursor is where pgmA left it, which is desired in the case.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Dave
Sent: Wednesday, May 23, 2012 3:01 PM
To: Midrange Systems Technical Discussion
Subject: Re: ovrdbf scope

I don't get it. Share was causing your problem or are you saying you solved
it using share?

2012/5/22 Stone, Joel <Joel.Stone@xxxxxxxxxx>

Thanks much - worked perfectly! I thought it would the SCOPE parm, but
SHARE does the trick!


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:
midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Tuesday, May 22, 2012 2:34 PM
To: Midrange Systems Technical Discussion
Subject: Re: ovrdbf scope

Joel,

By default, an open data path (ODP) is _not_ shared across two programs.
This can be chagned by specifying SHARE(*YES) on the CRTPF/CRTLF
commands, or on an override: OVRDBF SHARE(*YES)

(But, your override doesn't seem to be doing that... at least, not in
the code you posted.)

So, by default, PGMB can't interfere with PGMA's cursor position. But,
if someone has changed the file (either via CRTPF/CHGPF/CRTLF/CHGLF or
OVRDBF) to SHARE(*YES), this is causing your grief.

I've seen this many times in the past in code that was rewritten from
S/36 OCL. The OCL/36 programmer would see
// FILE NAME-MYFILE,DISP-SHR in the OCL, and think they needed an
equivalent to DISP-SHR in CL, so they'd code SHARE(*YES). This was just
confusion on their part -- they do totally different things.

-SK


On 5/22/2012 2:17 PM, Stone, Joel wrote:
I would like to

OVRDBF FILE1 position(*KEYAE 1 *N&File1Key)

Loop1: RCVF

Process record ...

Call pgmB (which happens to read and reposition FILE1 cursor)

If not EOF goto loop1

When the pgm loops back to Loop1, the cursor has been repositioned by
pgmB, which messes up my loop.

Is there anything I can do with the top OVRDBF to ensure that it
ignores any repositioning of the file cursor in programs down the
stack?

Or must I save off the key values and reposition the file with
another ovrdbf?


Thanks!


--
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 inbound email has been scanned for all viruses by the MessageLabs
SkyScan
service.
________________________________________________________________________

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--
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 thread ...

Replies:

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

This mailing list archive is Copyright 1997-2019 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].