RE: RPG400-L Digest, Vol 6, Issue 1131

["Wilt, Charles" <WiltC@xxxxxxxxxx>]

Buzz,

There's an implicit IN *LOCK done by the cycle, along with an implicit OUT, on a UDS.

To prevent, remove the U and use the DTAARA keyword on the define.

HTH,
Charles 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Buzz Fenner
> Sent: Wednesday, November 28, 2007 9:46 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: RPG400-L Digest, Vol 6, Issue 1131
>
> Jerry, the first thing I did was to ensure that there were no 
> In/Out with
> *LOCK statements, because that is what I thought was causing 
> the problem,
> too.
>
> Buzz Fenner
> Systems Analyst/Network Administrator
> 870.930.3374
> mailto:bfenner@xxxxxxxxxxxxxxxx
>
>
>
> ------------------------------
>
> message: 6
> date: Tue, 27 Nov 2007 09:32:32 -0600
> from: Jerry Adams <jerry@xxxxxxxxxxxxxxx>
> subject: Re: UDS & Allocations
>
> Never tried this, Buzz, but apparently the error message says it all:
>
> Message . . . . : &1 &2 *LOCK for data area &5 was not 
> granted (C G S D F).
> Cause . . . . . : The RPG program &1 in library &3 tried to 
> access and lock
> data area &5 at statement &2. The data area has already been 
> locked by a
> program in this process or by an ALCOBJ command in this process.
>
> You might check the program. If it is using the IN op-code with *Lock,
> you might want to re-think either the program logic or the ALCOBJ.
>
>         * Jerry C. Adams
> *IBM System i Programmer/Analyst
> B&W Wholesale Distributors, Inc.* *
> voice
>         615.995.7024
> fax
>         615.995.1201
> email
>         jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
>
>
>
> Buzz Fenner wrote:
> > I have a trio of (all of this is OPM by the way) RPG 
> programs that do
> > mundane A/P check writing.  A CL wrapper executes AlcObj?s 
> to get locks on
> > all files involved prior to executing the process (to 
> guarantee it runs
> > end-to-end).  I tried to extend it to allocating a data 
> area in the CL but
> > that causes one of the RPG programs to throw an RPG0432 at *INIT.  I
> figured
> > the allocation would work within the job step just as it 
> does with files.
> > What gives?
> >
> > Buzz Fenner
> > Systems Analyst/Network Administrator
> > 870.930.3374
> > mailto:bfenner@xxxxxxxxxxxxxxxx <mailto:bfenner@xxxxxxxxxxxxxxxx>
> >
> >
> >
> >
> > --
> >  PRIVACY WARNING: For auditing purposes, a copy of this 
> message has been
> >  saved in a permanent database.
>
>
>
>
>
>
>
>
> --
>  PRIVACY WARNING: For auditing purposes, a copy of this 
> message has been
>  saved in a permanent database.
>
> -- 
> 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 e-mail transmission contains information that is intended to be confidential and privileged.  If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful.  Please reply to the message immediately by informing the sender that the message was misdirected.  After replying, please delete and otherwise erase it and any attachments from your computer system.  Your assistance in correcting this error is appreciated.