Hi Norman, Can I suggest a couple of modifications. You could use the fieldstore function instead of converting to and from VMs. Using fieldstore will run exponentially faster than the VM conversion method. Also, if you want to keep the output pretty add the newline.
Eg Equ NEWLINE to char(13):char(10) ;* adjust for your op.sys STYLESHEET = '?xml-stylesheet type="text/xsl" href="http://...dcst.xsl";?' XMLEXEC.STATUS = XMLEXECUTE(CMD,OPTIONS,XML.VAR,XSD.VAR) IF NOT(XMLEXEC.STATUS) THEN FINAL.XML.DOCUMENT = FIELDSTORE(XML.VAR,'<',3,0,STYLESHEET:'>':NEWLINE) etc Cheers, Stuart Boydell -----Original Message----- STATUS = XMLExecute(CMD,OPTIONS,XML.VAR,XSD.VAR) ;* XML.VAR holds the variable that we'll use to create a dynamic array (DA) PARSE = XML.VAR ;* PARSE is now the DA PARSE = CONVERT('>',@VM,PARSE) ;* Use CONVERT function to convert all ending '>' in each XML elemetn to Value Marks LOCATE '?' IN PARSE<1,1> SETTING X ELSE ;* dimension the DA and find the first ? in the DA ;* Insert the new XML stylesheet element into the DA PARSE = INSERT(PARSE,1,2,0,'<?xml-stylesheet type="text/xsl" href="http://cicnet.celestecorp.com/cms/xml/xslt/cilstdcst.xsl";?') END PARSE = CONVERT(@VM,'>',PARSE) ;* convert the VM's back to '>' ********************************************************************** This email message and any files transmitted with it are confidential and intended solely for the use of addressed recipient(s). If you have received this communication in error, please reply to this e-mail to notify the sender of its incorrect delivery and then delete it and your reply. It is your responsibility to check this email and any attachments for viruses and defects before opening or sending them on. Spotless collects information about you to provide and market our services. For information about use, disclosure and access, see our privacy policy at http://www.spotless.com.au Please consider our environment before printing this email. ********************************************************************** _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
