Convertierung nach ASCII HEX Code

[mk]

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

D Translate       PR                  EXTPGM('QDCXLATE') 
D  TLen                          5P 0 CONST              
D  Buff                      32766A   OPTIONS(*VARSIZE)  
D  Table                        10A   CONST 

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

[Fuerchau]

%trim ist soweit gefährlich, dass die Länge falsch berechnet wird, wenn Leerzeichen am Anfang stehen.
%checkr(' ':MyVar) wäre die bessere Alternative, wenn Leerzeichen am Ende nicht übersetzt werden müssen.

QDRCVRT ist insoweit besser, wenn verschiedene JOB-CCSID's relevant werden können und das Ziel ggf. Windows (1252) statt 850 wie in QTCPASC nötig sein sollte.

[B.Hauser]

%trim ist soweit gefährlich, dass die Länge falsch berechnet wird, wenn Leerzeichen am Anfang stehen.

%checkr(' ':MyVar) wäre die bessere Alternative, wenn Leerzeichen am Ende nicht übersetzt werden müssen.

... ich würde %TrimR bevorzugen.

Birgitta