RE: *varsize array as procedure parameter

Ok, here is my problem. "Options(*varsize)" is not allowed for DS Array.


I am trying to define the array like this.  Is it possible to define
9999 array using some variable?

DDSARRY           ds                  dim(9999) qualified 
D RAKEMP                              like(CAKEMP )       
D RAKFNAM                             like(CAKFNAM)       
D RAKLNAM                             like(CAKLNAM)       
D RAKJBTTL                            like(CAKJBTTL)      



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Simonse, Arco (CMK)
Sent: Friday, September 02, 2005 2:19 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: *varsize array as procedure parameter

Well, it is solved. The codesample I posted worked, but with extra
pointer unlogic that was totally unneccessary. 
If you let the pointer references out like Scott has shown, it is
solved.

> -----Oorspronkelijk bericht-----
> Van: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Mohammad, Tanveer
> Verzonden: vrijdag 2 september 2005 22:50
> Aan: RPG programming on the AS400 / iSeries
> Onderwerp: RE: *varsize array as procedure parameter
> 
> If you have solved your problem.  Can you send the code to 
> mailing.  I have to do something similar to this :)
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Simonse, 
> Arco (CMK)
> Sent: Friday, September 02, 2005 1:35 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: *varsize array as procedure parameter
> 
> Oh oh, stupid me! So I tried to use a pointer through a 
> pointer through a pointer through a p... 
> And that without any reason. I'm going back to the books!
> 
> Thanks a lot, Arco.
> 
> > -----Oorspronkelijk bericht-----
> > Van: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Wilt, Charles
> > Verzonden: vrijdag 2 september 2005 22:25
> > Aan: RPG programming on the AS400 / iSeries
> > Onderwerp: RE: *varsize array as procedure parameter
> > 
> > Nope.
> > 
> > Const == Constant Reference == pass a pointer to a variable 
> and don't 
> > allow the contents of the variable to be changed.
> > 
> > 
> > HTH,
> > 
> > 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 Simonse,
> > Arco (CMK)
> > > Sent: Friday, September 02, 2005 4:09 PM
> > > To: RPG programming on the AS400 / iSeries
> > > Subject: RE: *varsize array as procedure parameter
> > > 
> > > 
> > > Oh yes, always when I hit the "send" button I realize 
> that I forgot 
> > > something!
> > > 
> > > The reason I introduced the pointers was that my arrays are
> > not that
> > > small as the simple 5 character field I used for the example.
> > > The real arrays consists of large datastructures, and I did
> > not want
> > > to waste space with 32767 dimensions of them in the procedure.
> > > But, maybe I
> > > might have been thinking wrong. Does the compiler reserve
> > space for a
> > > const parameter?
> > > 
> > > TIA, Arco Simonse
> > > 
> > 
> > --
DISCLAIMER:
This message contains information that may be privileged or confidential
and is the property of the sender. 
It is intended only for the person to whom it is addressed. If you are
not the intended recipient, you are not 
authorized to read, print, retain, copy,disseminate, distribute, or use
this message or any part thereof. If you
receive this message in error, please notify the sender immediately and
delete all copies of this message. 

This footnote also confirms that this email message has been swept of
the presence of computer viruses