Hier ein kleines Beispiel mit QDCXLATE.

Code:
 
 
d Translate       PR                   ExtPgm('QDCXLATE')    
d   Length                       5P 0  const                 
d   Data                       640A    options(*varsize)     
d   Table                       10A    const               
 
d string           s           256a    
 
/free
Translate(256 : string : 'QASCII');   // EBCDIC -> ASCII   
/end-free
Die Tabelle QASCII ist in der Bibliothek QSYS vorhanden.

Gruss

Jan