Do ##class(Tools.SQLImporter).Import("C:\temp\users.xml") %RegisteredObject 0 1 UsersXMLBestand:%String 1 Settings:Tools.dto.SQL.Settings 1 1 Settings:Tools.dto.SQL.Settings 1 1 Role:Tools.dto.SQL.Role 1 1 Grantee:%String,Privileges:%ArrayOfObjects 1 Grantee:%String,ObjectNaam:%String,Privilege:Tools.dto.SQL.Privileges 1 Status = 0(geen), 1(toegang), 2(toegang met grant) 1 PrivilegeNaam:%String,ObjectNaam:%String,Grantee:%String,Status:%String 1 0 { Set SQL = "GRANT "_PrivilegeNaam_" ON "_ObjectNaam_" TO "_Grantee If ( Status = 2 ){ Set SQL = SQL_" WITH GRANT OPTION" } Do ..ExecuteSQL(SQL) } ]]> 1 User:Tools.dto.SQL.User 1 Role:Tools.dto.SQL.Role 1 1 User:Tools.dto.SQL.User 1 1 SQL:%String 1 %Status