RE: CEE0810 Error on Reallocate Statement

["Kurt Anderson" <kjanderson@xxxxxxxxxxxxx>]

Lorraine, just as a fyi, wa is scoped locally (to the procedure) as
opposed to globablly (to the service program).  Sorry I don't have
anything otherwise helpful to pitch in here.

Kurt Anderson
Application Developer
Highsmith

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Lorraine.Ford@xxxxxxxxxxx
Sent: Wednesday, July 30, 2008 1:59 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: CEE0810 Error on Reallocate Statement

Sorry, I guess I didn't understand your question exactly...

WA is defined in the D specs for the individual procedure that's
executing the allocate/reallocate, like this:

d Procedure... 
d                 pr                 
d  Parm1                         1a
d  Parm2                         3a

/if not defined(copy)                           
d bb              ds                  occurs(283)
 
d wa              s             10i 0
d b2              s             10i 0              
d Array           s             32a   dim(32767)   
d                                     based(arrayPtr)
d arrayPtr          s               *                

I'm not clear on what you mean by the scope of the arrayPtr, so I say
it's just defined as a standard pointer, with the '*', and the array is
the limit of 32767 elements, based on the array pointer.  

Thanks,
Lorraine

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Terrence Enger
Sent: Wednesday, July 30, 2008 2:22 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: CEE0810 Error on Reallocate Statement

On Wed, 2008-07-30 at 12:59 -0400, Lorraine.Ford@xxxxxxxxxxx wrote:
> WA is 10I o

But, where is it defined?

> Scope of arrayPtr is just the standard.  

I am sorry to be slow, but where is that?

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Terrence Enger
> Sent: Wednesday, July 30, 2008 11:20 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: CEE0810 Error on Reallocate Statement
>
> What are the scopes of `arrayPtr` and `wa`?
>
> On Wed, 2008-07-30 at 10:22 -0400, Lorraine.Ford@xxxxxxxxxxx wrote:
> > One of our developers is running into a hard halt error, CEE0810, on
a
> > reallocate statement.  This is in a service program, which another 
> > program is using CALLP to access.  She has her pointer and array
> defined
> > as follows:
> >
> >  
> >
> > d array             s             32a   dim(32767)   
> >
> > d                                     based(arrayPtr)
> >
> > d arrayPtr          s               *                
> >
> >  
> >
> > Does her initial allocation:
> >
> >  
> >
> >   // allocate storage, if necessary
> >
> >                                    
> >
> >   if wa = *zero;                   
> >
> >      wa = 100;                     
> >
> >      arrayPtr = %alloc(wa * 32);     
> >
> >   endif;                           
> >
> >  
> >
> > And then reads records from a file using SQL.  It's that data she's 
> > going to store in the array.  So, if it's determined she needs to
> store
> > more than 100 elements, the program attempts to reallocate:
> >
> >  
> >
> >    if b2 > wa;                         
> >
> >      wa += 100;                        
> >
> >      arrayPtr = %realloc(arrayPtr:wa * 32);
> >
> >    endif;
> >
> >  
> >
> > The reallocate fails with CEE0810:
> >
> >  
> >
> > The starting address for reallocation is not valid.
> >
> >
> >    Function check. CEE0810 unmonitored by PGMNAME at statement 
> > 0000000855,
> >
> >      instruction X'0000'
> >
> >  
> >
> > No one has any idea what the problem is, research has turned up
> nothing.
> > Could the problem be something like since this is a service program,
> and
> > it's on the 5th call to the service program that the reallocate
logic
> is
> > executed, somehow the program has lost the location of the original 
> > allocation so it doesn't know where to go to reallocate?  There's no

> > other logic in the program that's manipulating the value of the
> pointer
> > other than the allocate and reallocate statements above.
> >
> >
> >                               
> >
> > Thanks for any ideas,
> >
> > Lorraine
>
> --
> 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.