s NSpace=$ZNSPACE
s $ZNSPACE = "%SYS"
s Rspec = ##class(%Library.ResultSet).%New("SYS.Database:FreeSpace")
d Rspec.Execute("*",0)
Set stat = Rspec.Next(.sc)
s val = Rspec.Get("DiskFreeSpace")
w val
s $ZNSPACE = NSpace