ProDataSet Write-XML() XSL-Stylesheet

[Mike Rasch]

Hello,

I write a ProDataSet with write-xml() method.
I want that the result xml document have a
xml-stylesheet instruction.
For example:
<?xml-stylesheet type="text/xsl" href="test.xsl" ?>
How can I do this with progress code ?

 

[Mike Rasch]

Ok I have found a solution:
I first write the ProDataSet to X-DOCUMENT object
then I add PROCESSING-INSTRUCTION and finaly
save all to xml.
Not good but it works.
snippet:

DEFINE VARIABLE hDoc AS HANDLE.
DEFINE VARIABLE hRoot AS HANDLE.
DEFINE VARIABLE hRoot1 AS HANDLE.
CREATE X-DOCUMENT hDoc.
CREATE X-NODEREF hRoot.
CREATE X-NODEREF hRoot1.

lreturnValue = hPDS:WRITE-XML ("handle", hdoc, NO, ?, ?, NO, FALSE, FALSE ).
hDoc:GET-DOCUMENT-ELEMENT(hRoot1).
hDoc:CREATE-NODE(hRoot, "xml-stylesheet":U, "PROCESSING- INSTRUCTION":U).
hRoot:NODE-VALUE = "type=~"text/xsl~" href=~"formular.xsl~"":U.
hDoc:INSERT-BEFORE(hRoot, hRoot1).
lreturnValue = hDoc:SAVE ("FILE", cFile ).