RE: DTAARA Lock Issue?

[Roger Harman <roger.harman@xxxxxxxxxxx>]

Same program.  Jobs running concurrently for different business units.

They are Robot reacts from another job so I just put in varying DLYJOB a few seconds for each to stagger them. 

Still dumbfounded....


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Darryl Freinkel
Sent: Sunday, April 16, 2017 6:27 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: 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