Creating an authentication system

The following code creates a new authentication system:

define variable authSys as IAuthenticationSystem no-undo.

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

service: CreateAuthenticationSystem(authSys).