Hallo,

ich habe ein Programm das im IFS eine XML Datei erzeugt aber im Kopf steht dann Encoding UTF-8 ich benötige aber ISO-8859-1 .

was müsste ich ändern um ISO-8859-1 zu bekommen?

Hier das Programm
CTL-OPT OPTION(*SRCSTMT:*NODEBUGIO);
DCL-S PDebxml SQLTYPE(XML_CLOB_FILE) ccsid(273);

dcl-s wktime timestamp inz;

exec sql SET OPTION COMMIT = *NONE,
CLOSQLCSR = *ENDMOD,
DATFMT = *ISO ;

time wktime
PDebXml_Name = '/eGECKO/PRD/' + 'Debitor_1_000_' +
'_' + %trim(%char(WKtime)) + '.xml' ;
PDebXml_NL = %len(%trimr(PDebXml_Name)) ;
PDebXml_FO = SQFOVR ;
exec sql values(select
XMLELEMENT(NAME "eGeckoPersonenkonten",
XMLELEMENT(NAME "objectgroupNr", '99'),
(select xmlagg(
XMLELEMENT(NAME "Personenkonto",
XMLELEMENT(NAME "kontenart", 'D'),
XMLELEMENT(NAME "kontonummer", trim(char(kdkdnr) ) ),
XMLELEMENT(NAME "bezeichnung", trim(char(kdkuna) ) ),
XMLELEMENT(NAME "umsatzsteuerIdentNummer", trim(kdidld)
concat trim(kdidnr) ) ) )
from kdst where kdkdar = '1' ))
from sysibm.sysdummy1) into :PDebXml;

*inlr = *on;


Gruß DD3TJ
Thibaut F.