PHP-Code:
h dftactgrp(*no)                                   
d a               s              4  0 Inz( 10 )    
d b               s              4  0 Inz(  2 )    
d c               s              4  0 Inz(  1 )    
d d               s              4  0 Inz( *Zeros )
c                   Eval      d = Wert             
c                   Eval      *InLr = *On          
p wert            b                                
d  wert           pi             4  0              
d Ergebnis        s              4  0              
                                                   
c                   Eval      ergebnis = a-b-c     
c                   Return    ergebnis             
p wert            e 
Geht doch auch ohne Werte der Funktion mit zu geben.