A
ankitshukla
Guest
Hi Liliana, see example below: a sample xml for your reference def var lv-refxml as handle no-undo. def var lv-refroot as handle no-undo. def var lv-refnode as handle no-undo. def var lv-hText as handle no-undo. def var lv-longchar as longchar no-undo. create x-document lv-refxml. create x-noderef lv-refroot. create x-noderef lv-refnode. lv-refxml:CREATE-NODE(lv-refroot,"root","ELEMENT"). lv-refxml:APPEND-CHILD(lv-refroot). lv-refxml:CREATE-NODE(lv-refnode,"child1","ELEMENT"). lv-refroot:APPEND-CHILD(lv-refnode). create x-noderef lv-hText. lv-refxml:create-node(lv-hText, "", "TEXT"). lv-refnode:append-child (lv-hText). lv-hText:node-value = "Child-1". delete object lv-hText. lv-refxml:CREATE-NODE(lv-refnode,"child2","ELEMENT"). lv-refroot:APPEND-CHILD(lv-refnode). lv-refnode:set-attribute("value","Child-2"). lv-refxml:SAVE("longchar",lv-longchar). copy-lob from lv-longchar to file "example.xml". ------------------------------ /* OUTPUT */ ------------------------------ Child-1 - Thanks, Ankit
Continue reading...
Continue reading...