XML -> Spool -> Fremdsystem

[Toschie]

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

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.

@Fuerchau: Vielen Dank für dein Beispiel!
Allerdings wird bei mir aus
ABCÄä
der Wert
â{CdCu

Kann es vll sein, das es Darstellungsprobleme im RDI gibt?
Eher nein oder?

[Fuerchau]

Kontrollieren kannst du den Wert nur mit Hex-Ausgabe:

41 42 43 C384 C3A4

Das ist UTF8 ABC
C384 = 'Ä'
C3A4 = 'ä'

ASCII-Zeichen lassen sich in EBCDIC halt nicht anzeigen, da kommt bei mir das selbe raus.