RE: Data Area Locking

["Joel Fritz" <JFritz@xxxxxxxxxxxxxxxx>]

I agree.  I was going to suggest a counter but thought it would
complicate the example.

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
> Sent: Monday, May 09, 2005 12:50 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Data Area Locking
>
> If you stick with a loop like this, I'll make a suggestion.
> dou NOT %error;
>   count=*zeros;
>   dou NOT %error or count>1000;
>     count+=1;
>     in (e) *lock data_darea;
>   enddo;
>   if count>1000;
>     // alert the troops to handle a long lock on the data area
>     LongDataAreaLock();
>   endif;
> enddo;
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> "Joel Fritz" <JFritz@xxxxxxxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 05/09/2005 02:19 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> RE: Data Area Locking
>
>
>
>
>
>
>
> Hmm...We do this all the time.  This may be pointing out the obvious,
> but are you doing it in a loop?
>
> e. g.
>
> dou NOT %error;
>     in (e) *lock data_darea;
> enddo;
> //code to use the data area value....
>
> Among other things, we use this for order numbers. The probability of
> contention for the data area is high. We've never had a problem.
>
> Do you have ghost sessions?  Someone's pc crashes when the emulation
> session has a lock on the data area or someone clicks the close box on
> an emulation session.
>
> BTW, if the id number is necessary, the program should halt if it's
> impossible to get at the data area.
>
>
>
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brown,
> > Keith (MAN-Corporate)
> > Sent: Monday, May 09, 2005 11:31 AM
> > To: 'rpg400-l@xxxxxxxxxxxx'
> > Subject: Data Area Locking
> >
> > We use a data to maintain an unique ID number - Application
> > RPG programs call a dedicated RPG program that uses the data
> > area to generate a new ID.
> > The RPG program to generate the ID uses the data area in
> the following
> > manner:  1.) retrieve the data-area to import the current ID
> > number 2.) increment the current ID number by one to generate
> > a new ID and 3.) update the data-area for the new ID number
> > 4.) release the data area.
> >
> > On occasion we get the following sequence of messages when
> > the RPG program that locks the data-area is unable to execute
> > the IN operation against the
> > data-area:
> > MCH5802       20     Lock operation for object &1 not satisfied.
> > RNQ0431       99     Data area &6 was allocated to another
> > process (C G D F)
> >
> > The RPG program will go into MSGW until the RNQ0431 message
> > is answered.  I have tried to use the Error Indicator and
> > Error extender on the IN operation to prevent the message
> > wait state be no such luck.  What can I do to prevent the
> > programs from going into the message wait state when unable
> > to allocate the data area?  I thought using the error
> > indicator/extender on the IN operation would prevent the
> > MSGW; much like what happens on database file I/O operations.
> >
> > Thanks,
> > Keith
> > --
> > This is the RPG programming on the AS400 / 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.
> >
> >
>
> *****************************
> NOTICE:
> All e-mail sent to or from this e-mail address will be received or
> otherwise recorded by
> The Sharper Image corporate e-mail system and is subject to archival,
> monitoring,
> and review by and/or disclosure to Sharper Image security and other
> management.
> This message is intended only for the use of the addressee
> and may contain
> information
> that is privileged and confidential.
>
> The contents of this message may contain personal views which
> are not the
> views of The Sharper Image.
> If you are not the intended recipient, dissemination of this
> communication
> is prohibited.
> *****************************
>
> --
> This is the RPG programming on the AS400 / 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.
>
>
> --
> This is the RPG programming on the AS400 / 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.
>
>

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************