Классы для "поиграться"Class test.testB Extends %Stream.Object [ OdbcType = LONGVARBINARY ]
{
Method Write(data As %CacheString = "") As %Status
{
  quit $$$OK
}
}

Class test.testC Extends test.testB [ OdbcType = LONGVARCHAR ]
{

/*
Method Write(data As %CacheString = "") As %Status
{
  quit $$$OK
}
*/

/*
Method Write(data As %Binary = "") As %Status
{
  quit $$$OK
}
*/

}

Class test.test Extends test.testC [ OdbcType = LONGVARCHAR ]
{

Method Write(data As %CacheString = "") As %Status
{
  quit $$$OK
}

/*
Method Write(data As %String = "") As %Status
{
  quit $$$OK
}
*/

}