RE: Record lock, no retry?

["Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>]

Since the location of the error doesn't appear to be in a control
boundary, I think your only options are going to the monitor/error
extender, or reconfigure your call stack so that the error occurs in a
control boundary.

>


Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550
 
-----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Justin Taylor
> Sent: Wednesday, September 5, 2018 12:26 PM
> To: RPG programming on the IBM i (AS/400 and iSeries)
> Subject: RE: Record lock, no retry?
>
> 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