; Get %XML.Schema instance.
		set schema=##class(%XML.Schema).%New()
		set namespace="http://tempuri.org/ISC/Samples"
		set schema.DefaultNamespace=namespace
		; Get %XML.Writer instance.
		set writer=##class(%XML.Writer).%New()
		set writer.Indent=1
		do writer.AddSchemaNamespace()
		do writer.AddNamespace(namespace,"sample")
		; Add Company.  Note that referenced types are also added.
		set status=schema.AddSchemaType("Sample.Company")
		if $system.Status.IsError(status) do $system.Status.DisplayError(status) quit
		; Add Vendor.
		set status=schema.AddSchemaType("Sample.Vendor")
		if $system.Status.IsError(status) do $system.Status.DisplayError(status) quit
		; Verify that we have just our expected namespace.
		; This is included for just for illustration.
		if (schema.Namespaces.Count()'=1) || (schema.Namespaces.GetAt(1)'=namespace) {
			write !,"Unexpected namespace found",!
			write !,"List Of Namespace: ",!
			for i=1:1:schema.Namespaces.Count() {
				write "    ",schema.Namespaces.GetAt(i),!
			}
			write !
			quit
		}
		; Output the schema.
		set status=writer.DocumentNode(schema.GetSchema(namespace))

	  // className is the name of a class which references classes defined in 
	  // multiple namespaces.  For example: className="test.A" in namespace "urn:testA",
	  // test.A references test.B (in namespace "urn:testB") and test.C (in namespace "urn:testC").
	  try {
			#; get a schema writer
			set schemaWriter = ##class(%XML.Schema).%New()
			set sc = schemaWriter.AddSchemaType(className)
			if ($$$ISOK(sc)) {
				set namespaces = schemaWriter.Namespaces
				for i=1:1:namespaces.Count() {
					set ns=namespaces.GetAt(i)
					// set file path according to application dependent formula
					set locations(ns)="c:\temp\"_$piece(ns,":",2)_".xml"
					do schemaWriter.DefineLocation(ns,locations(ns))
				}
				for i=1:1:namespaces.Count() {
					set ns=namespaces.GetAt(i)
					set schema = schemaWriter.GetSchema(ns)
					set writer = ##class(%XML.Writer).%New()
					do writer.OutputToFile(locations(ns))
					set writer.Indent = 1
					set sc=writer.DocumentNode(schema)
					If $$$ISERR(sc) do $system.OBJ.DisplayError(sc) Quit
					do writer.Reset()
				}
			} else {
				do $system.OBJ.DisplayError(sc)
			}
		  } catch(tException) {
			do $system.OBJ.DisplayError(tException.AsStatus())
		  }