Chris Sharman wrote:
> 1. In the code below, is there some way to open the prices file for
> keyed access with the same options (readonly, share=write, read
> regardless) ?
> (I can't see any option, myself, so I guess I'll have a hack at the C
> code that does the open - something like "if (O_RDONLY) { }".
> Is that something I should pass back to CPAN? If so, how ?)
Didn't read it carefully enough.
It does it per-record (rather than with the open).
It doesn't do the no-query-locking, but then there's a system option to
enable that optimisation.
No change required.
> 2. Is there some way to check for EOF when I fall out of WHILE
> (<$INFILE>) ? (rather than record locked or some other rms error?)
Thanks again
Chris
> use VMS::IndexedFile;
> use VMS::Stdio qw( &vmssysopen );
>
> my $INFILE = vmssysopen("COE_FILES:PRODUCT.DAT", O_RDONLY, 0, "ctx=rec",
> "shr=get,put,upd,del,nql", "rop=nlk,rrl") or die("Can't open input");
> tie(my %hprc,VMS::IndexedFile,"COE_FILES:PRICES.DAT",0,O_RDONLY) or
> die("Can't open prices");
Any views expressed in this message are those of the sender and not necessarily
those of CCA Group. The unauthorized use, disclosure, copying or alteration of
this message is forbidden. The contents of this message may be confidential
and/or privileged, copyright CCA Group and are intended solely for the use of
the individual or entity to whom they are addressed. Whilst this message has
been scanned, CCA Group cannot guarantee that it is virus free or compatible
with your systems and accepts no responsibility for any loss or damage arising
from its use. The recipient is advised to run their own anti-virus software. If
you receive this message in error please contact [EMAIL PROTECTED] immediately,
destroy any copies and delete it from your computer systems.
