RE: Scope of variables and subprocedures.

You can create functions, even at V3R7.  Here is a sample prototype and
procedure

 *********************************************************************
 ***  Returns the patron name or *blanks if not valid.                
 *********************************************************************
d dep_patron      pr            24                                    
d   patron                            const like(cust_t)              


p dep_patron      b                   export              
d dep_patron      pi            24                        
d   patron                            const like(cust_t)  
                                                          
c     patron        chain(n)  deplpatr                    
                                                          
c                   if        %found                      
c                   return    add1                        
c                   else                                  
c                   return    *blanks                     
c                   endif                                 
                                                          
p dep_patron      e                                       

> -----Original Message-----
> From: Jim Langston [SMTP:jlangston@conexfreight.com]
> Sent: Monday, December 13, 1999 11:41 AM
> To:   RPG400-L@midrange.com
> Subject:      Re: Scope of variables and subprocedures.
> 
> The one thing I would like to see is true functions, such as the %BIFs,
> that return a value.
> 
> This may already be the case, but I've yet to find out how to code it
> (V3R7M0) and is probably just a limitation on my OS version.
> 
> Regards,
> 
> Jim Langston
> 
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---