Hier ein RPG-Quelltext mit Prozedur nach deinem Beispiel:

Code:
 *---------------------------------------------------------------* 
 *  Main                                                         * 
 *---------------------------------------------------------------* 
              
d iZahl1          s              9s 0 inz(5)                       
                                                                   
d erhoehe         pr                                               
D iZahl2                         9s 0                              
                                                                   
 /free                                                             
   Erhoehe(iZahl1);                                                
   *inlr = *on;                                                    
 /end-free                                                         
                                                                   
 *---------------------------------------------------------------* 
 *  Prozedur                                                     * 
 *---------------------------------------------------------------* 
P Erhoehe         B                                                
D Erhoehe         PI                                                
D iZahl2                         9s 0                               
                                                                    
d prompt          s             51a   inz('')                       
d result          s              1a   inz('')                       
                                                                    
 /free                                                              
   prompt = 'iZahl1 + 5 = ' + %char(iZahl2+5);                      
   dsply prompt '' result;                                          
 /end-free                                                          

P Erhoehe         E