Chris,

Thank you.. I tried before submit the issue.  I just tried again and didn't work.

XML Declaration option values is not saved as part of dwsyntax and I believe it was designed for Templates.

MY PB Version : PowerBuilder 2017 Build 1666 . 

Thank You,

Jahir.

Miguel Leeuwe ,

I will try as you mentioned and keep you update.

Thank You,

Jahir.

Hi Jahir;

   Here is how I made it work as a workaround for the non-UTF-8 issue ...

1) Extract the DW XML into a variable (it will still say UTF-16LE even if you changed it in the DW Painter).

2) Replace the UTF-16LE signature with a UTF-8 one

3) Write the XML data variable now to a UTF-8 file.

String     ls_xml
Int         li_pos
Int         li_file
ls_xml  =  dc_data.Describe("DataWindow.Data.XML")
li_pos  =  Pos ( ls_xml, "UTF-16LE")
ls_xml  =  Replace ( ls_xml, li_pos, 8,  "UTF-8")
li_file    =    FileOpen (  "CIPTEST.xml", LineMode! , Write! , LockWrite!, Replace!, EncodingUTF8!   )
IF    li_file > 0 THEN
    FileWrite ( li_file, ls_xml )
    FileClose ( li_file )
END IF

4) Here is what the final result looks for me in UTF-8 format. It verifies OK too  ...

HTH

Regards ... Chris

Hi,

Just a warning. Before I said to use the FileEncoding function. Be careful with that one as there's a bug:

https://www.appeon.com/standardsupport/search/view?id=3573

Chris' solution also seems easier to implement than mine.

Cheers!

Hi Jahir, that's surprising. I would expect it to be saved as ANSI, since the parameter is not supposed to do anything for XML format. 

From the PB help on SaveAs() it's supposed to end up as ANSI:

long ll_filenum
integer li_bytes
string ls_unicode
blob  lb_ansi
encoding eRet

ll_filenum = FileOpen("employee.dat", StreamMode!, Read!, LockWrite!, Replace!)

// test the file's encoding
eRet = FileEncoding("employee.dat")

if eRet = EncodingANSI! then
   li_ bytes = FileReadEx(ll_filenum, lb_ansi)
   ls_unicode = string(lb_ansi, EncodingANSI!)
else 
   li_ bytes = FileReadEx(ll_filenum, ls_unicode)
end if
FileClose(ll_filenum)

Hi Jahir;

    The SaveAs() command does not control the XML encoding scheme. The encoding option at the end of the SaveAs() command is meant for more for text, SQL, CSV, etc file types. The DataWindow object will always default to UTF-16LE internally for any XML generation.

  The XML encoding is actually controlled within the DataWindow object's properties from the Export/Import XML pane. You can change the encoding type in the DW painter, as follows ...

HTH

Regards ... Chris

Hi Jahir,

A DataWindow will be saved as XML based on the XML Template configured in it. If it is Encoding UTF-8 in the XML template, it will be saved as Encoding UTP-8.

Steps:

1. Go to DataWindow Painter > Template – XML Window.
2. Refer to Chris’s method to modify the XML’s Encoding to UTF-8.
3. Save the template as ‘template_utf8’.
4. Go to the Export Painter of the DataWindow, set the Use Template to ‘template_utf8’.

Of course, you can also:

1. save multiple XML templates in the Template – XML Window in DataWindow Painter.
2. Make some of them use UTF-8, while some of them use UTF-16LE.
3. Use different template names to save them separately.
4. Before the DW executes saveas XML, you can use the following Modify statements to switch the XML templates:

dw_1.modify("DataWindow.Export.XML.UseTemplate='template_utf8'")
dw_1.saveas()  //save xml with UTF8 Template

dw_1.modify("DataWindow.Export.XML.UseTemplate='template_utf16'")
dw_1.saveas()  //save xml with UTF16 Template

Regards,

Ken