AANGEPASTE DATASET OM TE FUNCTIONEREN MET FLEX 2 1 %XML.DataSet 0 GEWIJZIGD VOOR FLEX 2: anyType Generate hard coded schema that is used for DataSet 1 %Status 1 ",$LB("ict admin"),"Caché version changed ("_$zu(5)_")","Update overridden routine 'XMLSchema' found in class '"_..%ClassName(1)_"'.") Set class=..%ClassName(1) If ($get(format)'="")&&(format'="literal") Quit $$$ERROR($$$XMLInvalidEncoding,format) If $get(input) Quit $$$OK Quit:$data(schema(class)) $$$OK If $get(top)="" Set top=..#XMLTYPE If top="" Set top=$$$ClassShortName(class) Write "",! Write " ",! If ..#NAMESPACE'="" { Write " ",! } Else { ;Write " ",! VERWIJDERD VOOR FLEX 2 Write " ",! } Write " ",! Write "",! Set schema(class)="" Quit $$$OK ]]>