Re: ovrdbf scope

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.