PHP-Code:
d zzinh           s            132                                 
d zzinhz          s            132                                 
d                                                                  
d zzlaen          s              3  0                              
                                                                   
 /free                                                             
   zzinh  = 'abc';                                                 
   zzlaen = 20;                                                    
                                                                   
   %SubSt( zzinhz : %Int(( zzlaen - %Len(%trim( zzinh))) /2)+1:    
           %len( %trim( zzinh)) ) = %Trim( zzinh);                 
 /end-free                                                         
c                   eval      *inlr  =  *on