× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Are you trying to pass it as value ? That won't work. Pass it by
reference or as const. 

> -----Oorspronkelijk bericht-----
> Van: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Mohammad, Tanveer
> Verzonden: vrijdag 2 september 2005 23:48
> Aan: RPG programming on the AS400 / iSeries
> Onderwerp: 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
> 
> 
> --
> 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.
> 
> 
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



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.