Hallo zusammen,

vielen Dank für die Hilfestellung.
Nach einigem Kampf und Hilfe anderer Kollegen sind
wir jetzt ein bischen weiter.
Hier ist der bisherige Lösungsansatz
PHP-Code:
D Translate       PR                  EXTPGM('QDCXLATE') 
D  TLen                          5P 0 CONST              
D  Buff                      32766A   OPTIONS(*VARSIZE)  
D  Table                        10A   CONST 
PHP-Code:
c                   eval      #buff  ='Der Wolfgang ist super'  
C                   callp     Translate(%len(%trim(#buff))      
C                                            :#BUFF :'QTCPASC') 
                                                                
C/EXEC SQL                                                      
c+  set  :xhex = hex(trim(:#buff))                              
C/END-EXEC 

Gruß
Michael