如何获取系统中可用的系统DSN列表

系统类%Library.GTWCatalog有一个类查询SQLDataSources用来获取DSN，例如：

ClassMethod Test()
{
    set rs=##class(%ResultSet).%New()
    set rs.ClassName="%Library.GTWCatalog"
    set rs.QueryName="SQLDataSources"
    set sc=rs.Execute(1)  
    If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
    while rs.%Next() { do rs.%Print() }
}