RE: Data Area Issue

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

I think what you need is:

     c     *lock         in(e)     rec#dta
     c                   dow       %error
     c     *lock         in(e)     rec#dta
     c                   enddo
     c                   eval      rec#dta = rec#dta + 1
     c                   eval      precpt# = rec#dta
     c                   out       rec#dta 

might want to add some sort of a time out of course.

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of RPower@xxxxxxxxxx
> Sent: Tuesday, February 22, 2005 12:21 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Data Area Issue
> 
> 
> I've searched the archives, but can't quite find an answer to 
> my question 
> that I'm looking for.  I have the following piece of code:
>      ?* set receipt number
>      c     *lock         in        rec#dta
>      c                   eval      rec#dta = rec#dta + 1
>      c                   eval      precpt# = rec#dta
>      c                   out       rec#dta 
> There can be mulitple versions of this program at any given 
> time (cash 
> receipts) and it seems that if both programs hit this the 
> exact same time, 
> one blows up.  My questions are:
> 1. On the OUT opcode, does it automatically release the 
> locks?  Or should 
> I be using the UNLOCK opcode as well?
> 2. Can I use lock logic here like record lock logic that RPG has?
> 
> Thanks,
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ______________________________________________________________
> _____________
> Success is going from failure to failure without a loss of 
> enthusiasm. - 
> Sir Winston Churchill
> -- 
> 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.
> 
>