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


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.


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

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


This thread ...


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

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