runtest
 ;Do ##class(PD.SqlObject).%DeleteExtent()
 
 Set o = ##class(PD.SqlObject).%New()
 set o.Name = "jef3"
 set o.Age = 10
 Set sc = o.%Save()
 write "retval=", sc, !
 
 Set o = ##class(PD.SqlObject).%New()
 set o.Name = "juul3"
 set o.Age = 20
 Set sc = o.%Save()
 write "retval=", sc, !
 
 
 do llOverview
 quit
 ;
 
llOverview
 write !, "overview", !
 set qry="^PD.SqlObjectD("""")"
 for  set qry=$query(@qry,1,trg) q:qry=""  do
 . write "qry=", qry
 . write " - data(1)=", $li(@qry,1)
 . write " - data(2)=", $li(@qry,2)
 . //write:$data($li(@qry,3))   " - data(3)=", $li(@qry,3)
 . write !
 quit
 ;
 
runtestderived
 Do ##class(PD.SqlObject).%DeleteExtent()
 
 Set o = ##class(PD.SqlObjectDerived).%New()
 set o.Name = "jef"
 set o.Age = 10
 set o.Major = "Chemistry"
 set o.GPA = 3.5
 Set sc = o.%Save()
 write "retval=", sc, !
 
 Set o = ##class(PD.SqlObjectDerived).%New()
 set o.Name = "juul"
 set o.Age = 20
 set o.Major = "Law"
 set o.GPA = 4.5
 Set sc = o.%Save()
 write "retval=", sc, !
 
 
 do llOverview
 quit
 ;
 
 
clear
 set sc =  ##class(PD.SqlObject).%KillExtent()
 write "retval=", sc, !
 do llOverview
 quit
 ;
 
 
runtestderived2
 Do ##class(PD.SqlObject).%DeleteExtent()
 
 Set o = ##class(PD.SqlObjectDerived2).%New()
 set o.Name = "jef"
 set o.Age = 10
 set o.Major = "Chemistry"
 set o.GPA = 3.5
 set o.prop1 = "p1"
 set o.prop2 = "p2"
 Set sc = o.%Save()
 write "retval=", sc, !
 
 Set o = ##class(PD.SqlObjectDerived2).%New()
 set o.Name = "juul"
 set o.Age = 20
 set o.Major = "Law"
 set o.GPA = 4.5
 set o.prop1 = "pp1"
 set o.prop2 = "pp2"
 Set sc = o.%Save()
 write "retval=", sc, !
 
 
 do llOverview
 quit
 ;