RE: Record lock, no retry?

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