Re: DTAARA Lock Issue?

Are both programs locking the data area. If the second one is not, it may
be able to read the data area in READ mode hence the result you are getting.

Its been a while since I used the data areas but have not tried using LOCK
in 1 program and a simple read (IN) in another.

Darryl.

On Sat, Apr 15, 2017 at 1:33 PM, Roger Harman <roger.harman@xxxxxxxxxxx>
wrote:

3 line of code
IN
Increment
OUT

Kind of hard to fail I'd think.

No save running. IN fact the other concurrent job finished in < 1 second.

As to adding an autoincrement.... Yeah, obviously the best choice.
Changing a widely used table in an ERP... not likely. Changing it on a
system being phased out in favor of Oracle... No way.

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Steinmetz, Paul
Sent: Saturday, April 15, 2017 10:08 AM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: DTAARA Lock Issue?

If a save was running, the save will allocate the datara, and it will not
be available.

Paul

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul
Therrien
Sent: Saturday, April 15, 2017 9:27 AM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: DTAARA Lock Issue?

Is there ANY chance that the update/out logic failed and the data area did
not get incremented by the first process.


Paul


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Roger
Harman
Sent: Friday, April 14, 2017 2:07 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
<rpg400-l@xxxxxxxxxxxx>
Subject: DTAARA Lock Issue?

We had two jobs submitted for the same process - different companies.

Each (RPGLE) does an IN *LOCK of a data area for a unique identifier.
Increment and then OUT for the next use.

From the joblogs, programs were initiated .06 seconds apart (6/100th's).
Both got the same unique ID. I can't see how this could happen. Default
wait time (job) should be 30 seconds, I believe.

There is no error indicator on the IN. If the LOCK failed and no
indicator specified, would the fail just be ignored?

Thanks.

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power




--
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: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://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: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://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: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://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: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://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