Also hier mal ein simples Beispiel für das API CDRCVRT:

Code:
d CDRCVRT         pr                  extpgm('CDRCVRT')       
d   CCSID1                      10I 0                         
d   ST1                         10I 0                         
d   S1                       32766    options(*varsize)       
d   L1                          10I 0                         
d   CCSID2                      10I 0                         
d   ST2                         10I 0                         
d   GCCASN                      10I 0                         
d   L2                          10I 0                         
d   S2                       32766    options(*varsize)       
d   L3                          10I 0                         
d   L4                          10I 0                         
d   FB                          12                            
 
d ConvParm        ds                                      
d   CCSID1                      10I 0 inz(273)            
d   ST1                         10I 0 inz(0)              
d   S1                         100    inz                 
d   L1                          10I 0 inz(%size(S1))      
d   CCSID2                      10I 0 inz(1208)           
d   ST2                         10I 0 inz(0)              
d   GCCASN                      10I 0 inz(0)              
d   L2                          10I 0 inz(%size(S2))      
d   S2                         100    inz                 
d   L3                          10I 0 inz                 
d   L4                          10I 0 inz                 
d   FB                          12                        
d   FBCodes                     10I 0 overlay(FB) dim(3)  
 
c/free             
    S1='ABCÄä';    
    L1 = 5;        
    CDRCVRT(       
         CCSID1    
        :ST1       
        :S1        
        :L1        
        :CCSID2    
        :ST2       
        :GCCASN    
        :L2        
        :S2        
        :L3        
        :L4        
        :FB        
    );             
    return;        
 /end-free
S2 enthält den UTF8-Code und L3 dann die Länge.