CALL-Programme als CALLP

[BenderD]

d NOP2            pr                  extpgm('NOP2')
d Kappes                        10                  
 *                                                  
d NOP2            pi                                
d Kappes                        10                  
 /free                                              
       Kappes = 'denkste';                          
       return;                                      
 /end-free 

*********************

d NOP2            pr                  extpgm('NOP2')
d Kappes                        10    const         
d noKappes        s             10                  
d                                                   
 *                                                  
 /free                                              
       noKappes = 'kein Kappes';                    
       NOP2(noKappes);                              
       dsply noKappes;                              
       return;                                      
 /end-free 

******************
call tstnop2
=> 'denkste'

D*B

PS: RPG ist und bleibt ein Wackelhaufen, der Compiler glaubt schlicht was ein Programmierer im Prototyp behauptet und wenn man nix behauptet (*entry PLIST) glaubt er alles.

=> CONST im Prototyp beim aufrufenden Programm schützt davor, dass Änderungen zurück kommen und prüft sonst nix!

CONST im Prototyp des Procedure Interfaces des aufgerufenen Programmes prüft, dass man die Finger davon lässt!