define variable authSys as IAuthenticationSystem no-undo.
authSys = service:NewAuthenticationSystem("MyAuthSystem"). /* Set properties */ . . . service:CreateAuthenticationSystem(authSys). . . . authSys = service:GetAuthenticationSystemAuthenticationSystem ("MyAuthSystem"). /* Set properties */ . . . service:UpdateAuthenticationSystem(authSys). . . . service:DeleteAuthenticationSystem("MyAuthSystem "). |
define variable typeSet as IAuthenticationSystemSet no-undo.
define variable authSys as IAuthenticationSystem no-undo. typeSet = service:GetAuthenticationSystems(). authSys = service:NewAuthenticationSystem("SomeSystem"). /* Set properties and optionally add elements to collections */ . . . typeSet:Add(authSys). . . . authSys = typeSet:Find("XSystem") authSys:Description = ("XSystem is for special use"). authSys = typeSet:Find("ZSystem") typeSet:Remove(authSys). service:UpdateAuthenticationSystems(typeSet). |