vhLib.Macro 0 %CSP.Page text/xml /csp/dev1/PRGAOrder.csp 0 1 code 0 %Status 0 Zie ^Hulp(""AAATest"",""S"")" ;Quit New CStream,rSize,i Set CStream=##class(%GlobalCharacterStream).%New() Do Ord.XMLOudWrite(Input,CStream,Taal,"ORDF;GAV","Format GAOrder.xsl") Set rSize=20000 Kill ^Hulp("AAATest","S") Set ^Hulp("AAATest","S")=CStream.Read(.rSize) Set i=0 For Do Quit:(rSize<0) . Set tmpR=CStream.Read(.rSize) . Quit:(rSize<0) . Set ^Hulp("AAATest","S",$INCREMENT(i))=tmpR Quit ]]> 1 %Boolean 1