SQL Fehler 57017 beim Verabreiten des Cursors im SQLRPGLE

[oulbrich]

Hallo zusammen,

das folgenden SQL Statment gibt die Wechselkurse von der Deutschen Bank zurück.
Führe ich das SQL aus werden die Werte korrekt ausgeben. Wenn ich das SQL nun eingebettet in RPG verwenden wird bei auslesen des Cursors der Fehler 57017 Character conversion is not defined zurückgegeben. Hat jemand ein Idee wir der Fehler abgestellt werden kann?

SQL Script

SELECT * 
 FROM
  XMLTABLE('$doc/Envelope/Cube/Cube/Cube' PASSING XMLPARSE(DOCUMENT SYSTOOLS.HTTPGETCLOB
            ('https://www.db-markets.com/dbm/portal/FxSettlementRates/31-03-2017','')
          ) 
AS "doc"
 COLUMNS 
   Subject       VarChar(30) CCSID 1208 Path '../../../Subject',
   Sender        VarChar(30) CCSID 1208 Path  '../../../Sender/Name',
   valueDate     char(8)     Path '@valuedate',
   Currency      Char(3)     Path '@currency',
   ask           Dec(10, 4)  Path '@ask',
   bid           Dec(10, 4)  Path '@bid'  
  )
AS WebServiceResult 

Das RPG sieht so aus

// -----------------------------------------------------------------------------------------
// SQL Definitionen                                                                         
// -----------------------------------------------------------------------------------------
dcl-proc SqlDef;                                                                            
                                                                                            
  sql_txt='                                                                              -  
   SELECT *                                                                              -  
     FROM                                                                                -  
XMLTABLE(''$doc/Envelope/Cube/Cube/Cube'' PASSING XMLPARSE(DOCUMENT SYSTOOLS.HTTPGETCLOB -  
   (''https://www.db-markets.com/dbm/portal/FxSettlementRates/31-03-2017'','''')         -  
          )                                                                              -  
   AS "doc"                                                                              -  
     COLUMNS                                                                             -  
       Subject       VarChar(30) CCSID 1208 Path ''../../../Subject'',                   -  
       Sender        VarChar(30) CCSID 1208 Path ''../../../Sender/Name'',               -  
       valueDate     char(8)     Path ''@valuedate'',                                    -  
       Currency      Char(3)     Path ''@currency'',                                     -  
       ask           Dec(10, 4)  Path ''@ask'',                                          -  
       bid           Dec(10, 4)  Path ''@bid''                                           -  
     )                                                                                   -  
    AS WebServiceResult                                                                  -  
                   ';                                                                       
exec sql prepare sql_stmt from :sql_txt;      // SQL Text in Sql Statment                   
exec sql declare c1 cursor for sql_Stmt;      // Cursor C1 mit Sql Statement verknüpfen     
exec sql open c1;                             // Ausführem SQL Statement                    
                                                                                            
end-Proc;                                                                                   
// -----------------------------------------------------------------------------------------
// Lesen Cursor C1                                                                          
// -----------------------------------------------------------------------------------------
dcl-proc ReadCursorC1;                                                                      
                                                                                            
  dow sqlstt <>'02000';                                                                     
    exec Sql fetch c1 into:DDS1;                                                            
     if sqlstt ='02000';                                                                    
       return;                                                                              
     endIf ;                                                                                
   // Do something                                                                          
  enddo;                                                                                    
                                                                                            
end-proc;                                                                                   
// -----------------------------------------------------------------------------------------
// Sql Definitionen                                                                         
// -----------------------------------------------------------------------------------------
dcl-proc CloseCursor;                                                                       
                                                                                            
   exec sql close C1;                                                                       
                                                                                            
end-Proc; 

[Fuerchau]

Die Fehlermeldung besagt, dass zur Laufzeit eine CCSID nicht passt.
Prüfe die CCSID des Jobs zur Laufzeit.
Häufig ist die Ursache eine CCSID *HEX (65535).

Wie ist die Zielstruktur definiert?
Verwende hier ggf. UCS2-Felder.

[oulbrich]

Die Zielstruktur sieht so aus

dcl-ds DDS1;
ySubject varchar(30);
ySender varchar(30);
yValueDate char(8);
yCurrency char(3);
yAsk zoned(10:4);
yBid zoned(10:4);
end-Ds;


die CCSID lautet 65535

[Fuerchau]

Wie gesagt. Wie soll denn zur Laufzeit eine decodierung von 1208 in 65535 funktionieren?
Mache einen CHGJOB CCSID(1141/273) oder definiere die Variablen als nvarchar (die Syntax weiß ich jetzt nicht) für Unicode/UCS2.
Per %char() kannst du die dann später immer noch umwandeln, wobei du hier Umlautprobleme bei 65535-JobCCSID bekommst.