Re: Record lock, no retry?

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Are you sure there is not an auto-reply option somehow coming into play here?


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

> On Sep 5, 2018, at 1:25 PM, Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:
>
> My boss wants an OS retry option.
>
> If that turns out to be a dead end, you're right.  Either a MONITOR block or error extender would be Plan B.
>
>
> Thanks
>
>
> -----Original Message-----
> From: Luis Rodriguez [mailto:luisro58@xxxxxxxxx] 
> Sent: Wednesday, September 05, 2018 10:11 AM
> To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
> Subject: Re: Record lock, no retry?
>
> Justin,
>
> How about encapsulating your read with a MONITOR/ON-ERROR/ENDMON block?
>
>
> Regards,
>
> Luis Rodriguez
>
> -- 
>
>
>
> On Wed, 5 Sep 2018 at 10:31, Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:
>
> > We have some RPG code in a 5250 job that failed with a record lock.  
> > The joblog shows two CPF5027 (Record &6 in use by job or transaction 
> > &9.) messages, each answered with a "C" showing "Reply, message default used".
> > I'm not as familiar with RPG RLA as I used to be, but I would have 
> > expected a retry option for the record lock.
> >
> > The RPG code is a *MODULE.  It has a USROPN F-spec that is overridden 
> > in a CL to a PF.  The file is internally-described.  When the record 
> > lock occurs, that message is auto-answered and the calling program 
> > receives an
> > RNQ0202 (The call to &1 ended in error).
> >
> > Any suggestions on how to prevent the default reply so the user has a 
> > retry option?
> >
> > TIA
> > --
> > This is the RPG programming on the IBM i (AS/400 and iSeries) 
> > (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx 
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a 
> > moment to review the archives at 
> > https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxx for any subscription related 
> > questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate
> > link: http://amzn.to/2dEadiD
>
> -- 
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD