Re: Data area in a service program (was Re: Pointer Question)

Hi Phil,

You don't need the 'u' on the 'uds'. Get rid of it and all should work fine.

The 'u' means that there is an automatic IN of the data area when the program
loads, and an automatic OUT when the program ends. But this is controlled by the
RPG cycle, and with NOMAIN specified.........

If you do need to update the data area, then you need to specify *LOCK in factor
1 of the IN operation.

HTH

Paul Tuohy
ComCon

Phil wrote:

> All,
>
> I'm using a data area in a service pgm.  It is defined outside of all the
> procedures.
>
>      H nomain
>      D cgi_libr       uds                  dtaara(cgilibda)
>      D  cgi_lib                1     10
>
> Inside the procedure, I have this:
>
>      C                   in(e)     cgi_libr
>
> Normally this doesn't lock the data area, but the compiler gives me a
> warning that I should also use OUT when nomain is specified.  OK, I'll do
> it.
>
> When the srvpgm, which is in a named activation group, runs the first time
> ok.  But the second call in the same job I get this error:
>
> RNX0412 Data area CGILIBDA is not allocated for output.  There's no updating
> going on.  Before I added the e extender, I was getting a *LOCK not
> satisfied error (didn't keep the msgid.).
>
> Is this something I can't do with service pgms?  Or have I overlooked
> something obvious which once pointed out will make me ashamed? :)
>
> This as400 is at V4R4.
>
> Thanks for your help,
>
> Phil
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.