Re: Waiting on a record lock check

[Alan Campin <alan0307d@xxxxxxxxx>]

OVRDBF FILE(X) WAITRCD(*IMMED)

Will cause to return immediately or you can give it number of seconds. You
can do a CHGPF and change the default to the number of seconds to wait.

On Fri, Jul 30, 2010 at 8: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.