Index: zTryout/TVE/xsd.cls.xml
===================================================================
diff -u
--- zTryout/TVE/xsd.cls.xml	(revision 0)
+++ zTryout/TVE/xsd.cls.xml	(revision 37154)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="zTryout.TVE.xsd">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GenerateXSD">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>basis:TECH.String,outputfile:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+    Set schema=##class(%XML.Schema).%New()
+    Set schema.IncludeDocumentation = 0
+    Set schema.DefaultNamespace = "http://www.vanhoecke.be"
+    Do schema.AddSchemaType(basis,,"element")
+
+    Set schema = schema.GetSchema("http://www.vanhoecke.be")
+
+    //create writer
+    Set writer = ##class(%XML.Writer).%New()
+    Set writer.Indent=1
+    Do writer.OutputToFile(outputfile)
+    
+    Do writer.AddSchemaNamespace()
+    Do writer.AddNamespace("http://www.w3.org/2001/XMLSchema-instance")
+    
+    #dim status As %Status = writer.DocumentNode(schema)
+    If $$$ERROR(status) {Do $system.OBJ.DisplayError() Quit }
+]]></Implementation>
+</Method>
+</Class>
+</Export>