Try OpenEdge Now
skip to main content
Programming Interfaces
Database Administration Entity Interface Reference : IAuthenticationSystem interface : IAuthenticationSystem examples : Creating an authentication system
Creating an authentication system
The following code creates a new authentication system:
define variable authSys as IAuthenticationSystem no-undo.

  authSys = service:NewAuthenticationSystem("MyAuthenticationSystem")
  authSys:Description = "This auth system is for xx users."
  authSys:Callback = "myauthproc.p"
  authSys:IsEnabled = true.

service: CreateAuthenticationSystem(authSys).