RE: Record lock, no retry? -- RPG400-L

This is the simplest example I could create.

Program TESTPERC2 - In QILE
/Free
Dcl-F Mins Usage (*Update:*Input) Keyed;
Dcl-Pr TestPerc3
End-Pr;

TestPerc3();

*Inlr = *On;
Return;

Dcl-Proc TestPerc3;
Chain ('PPO') Rmins;
End-Proc;
/End-Free

When I call it with the PPO record locked the first message I get is The
call to TESTPERC3 ended in error (C G D F). The job log looks like this:

CALL PGM(TESTPERC2)

Record 436 in use by job or transaction 933582/KEVIN/MN207A.

? C

Record 436 in use by job or transaction 933582/KEVIN/MN207A.

? C

Unable to allocate a record in file MINS.

Function check. RNX1218 unmonitored by TESTPERC2 at statement
0000000111,
instruction X'0000'.

The call to TESTPERC3 ended in error (C G D F).

The call to TESTPERC3 ended in error (C G D F).

Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550

-----Original Message-----

From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon
Paris
Sent: Wednesday, September 5, 2018 1:02 PM
To: Rpg400 Rpg400-L
Subject: Re: Record lock, no retry?

I don't see how this would help Justin. Somehow you need to track

down

why an error is not being signalled directly on the I/O operation.

ILE or OPM

shouldn't;t matter there surely.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Sep 5, 2018, at 1:56 PM, Justin Taylor <JUSTIN@xxxxxxxxxxxxx>

wrote:

You may be on to what's going on. "We" may just have to change our

expectations, or go back to monolithic OPM code.

Thanks

-----Original Message-----
From: Kevin Bucknum [mailto:Kevin@xxxxxxxxxxxxxxxxxxx]
Sent: Wednesday, September 05, 2018 12:35 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: 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

--
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

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