The following example shows how to update an authorization tag:
USING OpenEdge.DataAdmin.*.
USING OpenEdge.DataAdmin.Lang.Collections.*.

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

ASSIGN oDAS = NEW DataAdminService(LDBNAME("DICTDB")).
// This obtains all tags using a filter against the role name. 
oTags = oDAS:GetAuthTags("").
iter = oTags:Iterator(). 
DO WHILE iter:HasNext():
	oTag = CAST(iter:NEXT(), IAuthTag).
	Assign oTag:Name = "#DDM_SEE_PersonalInfo" 
	   	oTag:RoleName = "TestRole".
END.

DELETE OBJECT oDAS.