RE: procedures

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

There's no trick.  Just define the arrays as parameters on the d specs of
the procedure prototype and procedure interface being sure to include the
dim keyword so the procedure knows it's an array.  Otherwise it's just the
same as passsing any other parameter.  You probably don't want to pass them
by value.  If you don't need to change any of the values, define them using
the const keyword.  Here's a prototype and procedure that takes an array of
100 cells three characters long:

D*  Prototype
D takesanarray    pr                           
D arrayparm                      3    dim(100) 

******Procedure
P takesanarray    b                                                    
D takesanarray    pi                                                   
D arrayparm                      3    dim(100)                         
D                                                                      
D index                          5u 0                                  
D                                                                      
C                   do        100           index                      
C                   eval      arrayparm(index) = 'IBM'                 
C                   enddo                                              
C                   return                                             
P takesanarray    e 


You'd call it with: callp takesanarray(yourarray)
where yourarray is an array you're using in the main program that is defined
the same as the procedure parameter.  
                                                   
****************** End of data ****************************************


> -----Original Message-----
> From: Graves, Chuck [mailto:cgraves@RODDAPAINT.COM]
> Sent: Wednesday, December 06, 2000 1:23 PM
> To: 'MIDRANGE-L@midrange.com'
> Subject: procedures
> 
> 
> can anyone direct me to where can i find an example of using 
> procedures/sub-procedures....specifically passing multiple 
> arrays back and forth between calling RPGLE program and 
> called procedure
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---