vhLib.Macro %CSP.Page 0 text/xml /csp/admin1/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,"N","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