%XML.Schema

  	; 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())
  	  }