To set up Web Application, I need to turn on the DeepSee flag using Caché ObjectScript. How can i do it?
See class documentation for Security.Applications.
Example:
Class DC.Demo.DeepSeeEnable
{
ClassMethod SetDSFlag(pApplicationName As %String, pValue As %Boolean = 1) As %Status
{
Set tSC = $$$OK
Try {
New $Namespace
Set $Namespace = "%SYS"
Set tApplication = ##class(Security.Applications).%OpenId(pApplicationName,,.tSC)
If $$$ISERR(tSC) {
Quit
}
Set tApplication.DeepSeeEnabled = pValue
Set tSC = tApplication.%Save()
} Catch e {
Set tSC = e.AsStatus()
}
Quit tSC
}
}
Use:
USER>s sc = ##class(DC.Demo.DeepSeeEnable).SetDSFlag("/csp/user",1)
USER>w sc
1
Thank you very much!
Some of such configuration classes contains methods Modify and Get, it may help to easy modify configuration, in a few lines