Re: Record lock, no retry?

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