Via SQL:
SELECT Settings
FROM Ens_Config.Item
WHERE Settings [ 'ReplyCodeActions'
Documentation on [.
You can also get it without SQL:
To get production setting use one of:
Set Value = ##class(Ens.Director).GetCurrProductionSettingValue("SettingName", .sc)
Set Value = ##class(Ens.Director).GetProductionSettingValue("Production", "SettingName", .sc)
To get setting of production item use:
Set Value = ##class(Ens.Director).GetItemSettingValue("ItemName", Type, "SettingName", sc)
Where Type can be Host or Adaptor.
The ItemName argument may contain the following elements:
ProductionName||ConfigName|CommentOrClassname
Notes on ItemName:
- Only the ConfigName portion is required.
- If ProductionName is not given, then the currently running or last run Production will be used.
- CommentOrClassname is the name shown in the Config page's dropdown list for multiple items having the same ConfigName. If it is not given, then if more than one item of the given ConfigName exists, all will match.
- None of the names of the items in your production should contain the '|' character.
Documentation.
Excellent!
How do i isolate the individual setting?
e.g. I'd like to search for any ID that has a setting that's not null for ReplyCodeActions and then list what that value is
Seems like this is a collection or list of some kind, but can't figure out the correct syntax
1. Get list of all items in production (via Ens.Director:getProductionItems)
2. Iterate over items local array and for each item:
Structure can be anything you want:
That mainly depends on what do you want to do with this information later.
Is it possible to isolate an item setting and its value using only SQL?
Here's a stored procedure that accepts a setting name and returns the setting value for all components that have it. It's not SQL, but can be executed from SQL :)
You can call it this way -- this example returns the port setting for all components that have it:
call Sample.Util_SettingsByName('Port')Here's the source code as XML export format. Copy this into a file and then import it using Studio, terminal, or the System Management Portal.
<?xml version="1.0" encoding="UTF-8"?> <Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1.1 (Build 108U)" ts="2016-10-12 16:15:39"> <Class name="Sample.Util"> <Super>%RegisteredObject</Super> <TimeChanged>64203,58380.929948</TimeChanged> <TimeCreated>64202,44682.614801</TimeCreated> <UDLText name="T"> <Content><![CDATA[ /* ***************************************************** * ** N O T I C E ** * * - TEST/DEMO SOFTWARE - * * This and related items are not supported by * * InterSystems as part of any released product. * * It is supplied by InterSystems as a demo/test * * tool for a specific product and version. * * The user or customer is fully responsible for * * the maintenance of this software after delivery, * * and InterSystems shall bear no responsibility nor * * liabilities for errors or misuse of this item. * * * ***************************************************** */ ]]></Content> </UDLText> <Query name="SettingsByName"> <Type>%Query</Type> <FormalSpec>SettingName:%String</FormalSpec> <SqlProc>1</SqlProc> <Parameter name="ROWSPEC" value="BusinessHost:%String,SettingName:%String,SettingValue:%String"/> </Query> <Method name="SettingsByNameExecute"> <ClassMethod>1</ClassMethod> <FormalSpec><![CDATA[&qHandle:%Binary,SettingNames:%String=""]]></FormalSpec> <ReturnType>%Status</ReturnType> <Implementation><![CDATA[ s qHandle=##class(%ArrayOfObjects).%New() &sql(select %DLIST(id) into :tHostIDs from ENS_Config.Item order by Name desc) s tHostIDList=##class(%Library.ListOfDataTypes).%New() s tSC=tHostIDList.InsertList(tHostIDs) s tSC=qHandle.SetAt(tHostIDList,"HostIDs") s tSC=qHandle.SetAt(##class(%ArrayOfDataTypes).%New(),"Counters") s tSC=qHandle.GetAt("Counters").SetAt(0,"CurrHost") s tSC=qHandle.GetAt("Counters").SetAt(0,"CurrSetting") if ($L(SettingNames)>1) { s SettingNames=$ZCONVERT(SettingNames,"U") s tFilterList=##class(%Library.ListOfDataTypes).%New() s tSC=tFilterList.InsertList($LISTFROMSTRING(SettingNames)) s tSC=qHandle.SetAt(tFilterList,"FilterList") } Quit $$$OK ]]></Implementation> </Method> <Method name="SettingsByNameClose"> <ClassMethod>1</ClassMethod> <FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec> <PlaceAfter>SettingsByNameExecute</PlaceAfter> <ReturnType>%Status</ReturnType> <Implementation><![CDATA[ Quit $$$OK ]]></Implementation> </Method> <Method name="SettingsByNameFetch"> <ClassMethod>1</ClassMethod> <FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec> <PlaceAfter>SettingsByNameExecute</PlaceAfter> <ReturnType>%Status</ReturnType> <Implementation><![CDATA[ s tCurrHost=qHandle.GetAt("Counters").GetAt("CurrHost") s tCurrSetting=qHandle.GetAt("Counters").GetAt("CurrSetting") s tHostIDs=qHandle.GetAt("HostIDs") s tFilterList=qHandle.GetAt("FilterList") s oHost=qHandle.GetAt("Host") do { if ('$IsObject(oHost)||(oHost.VirtualSettings.Count()<tCurrSetting)) { if (tCurrHost=tHostIDs.Count()) { s AtEnd=1 q } s tCurrHost=tCurrHost+1 s tCurrSetting=1 s tHostID=tHostIDs.GetAt(tCurrHost) s oHost=##class(Ens.Config.Item).%OpenId(tHostID,0) s tSC=oHost.PopulateVirtualSettings() s tSC=qHandle.SetAt(oHost,"Host") s tSC=qHandle.GetAt("Counters").SetAt(tCurrHost,"CurrHost") } s tSettings=oHost.VirtualSettings s tSetting=tSettings.GetAt(tCurrSetting) s tStngName=$LISTGET(tSetting,2) s tStngValue=$LISTGET(tSetting,3) s tCurrSetting=tCurrSetting+1 } while ($IsObject(tFilterList)&&('tFilterList.Find($ZCONVERT(tStngName,"U")))) if ('AtEnd) { s Row=$LB(oHost.Name,tStngName,tStngValue) } s tSC=qHandle.GetAt("Counters").SetAt(tCurrSetting,"CurrSetting") Quit $$$OK ]]></Implementation> </Method> </Class> </Export>