Re: Waiting on a record lock check

[Michael Ryan <michaelrtr@xxxxxxxxx>]

I wonder if you did an OVRDBF <file> WAITRCD(*IMMED)? And then change it
back afterwards.

On Fri, Jul 30, 2010 at 10:00 AM, <daparnin@xxxxxxxxxxxxxx> wrote:

> Greetings,
>
> I have a routine to check to see if a record is locked in a file.  It
> works but takes about 30 seconds before it returns with the results that
> the record is locked.  Is there anything that I can do, either in the RPG
> or CL program that calls the RPG to get a faster determination that the
> record is locked?  Thanks.
>
>       Chain(E)  CHGKEY   NSCHGRQFL1;
>       If %Status = 1218;
>          XMSG = 'Record in use';
>          Else;
>          ExSr INFLDS;
>          EndIf;
>
>
>
> Dave Parnin
> --
> Nishikawa Standard Company
> 324 Morrow Street
> Topeka, IN  46571
> daparnin@xxxxxxxxxxxxxx
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.