The following example shows how to retrieve a collection of all authorization tags and the associated user-defined roles using the GetAuthTags() method:
USING OpenEdge.DataAdmin.*.
USING OpenEdge.DataAdmin.Lang.Collections.*.

VAR DataAdminService oDAS.
VAR IAuthTagSet oTags.
VAR IAuthTag oTag.
VAR IIterator iter.

ASSIGN oDAS = NEW DataAdminService(LDBNAME("DICTDB")).
oTags = oDAS:GetAuthTags(""). // fetch all authtags
iter = oTags:Iterator().
DO WHILE iter:HasNext():
      oTag = cast(iter:Next(), IAuthTag).
      // oTag:Name & oTag:RoleName will display AuthTag 
		 and role name associated with it.
END.