project BLF > class ComponentPool > method FillSettings
Description
Recursive method to read the settings from the tServerXmlNodes and store them in the simple tSetting table.
Parameters
| iiNodeId | input | integer | |
| icNameSpace | input | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program1/componentpool.p)
assign oiReturnStatus = -98.
assign icNameSpace = icNameSpace +
(if icNameSpace = "" then ""
else ".").
NodeBlock:
for each tServerXmlNodes where
tServerXmlNodes.tiNodeParentId = iiNodeId:
if true or tServerXmlNodes.tcNodeType = "N":U
then do:
if tServerXmlNodes.tcNodeValue <> ""
then do:
create tSetting.
assign tSetting.tcName = icNameSpace + tServerXmlNodes.tcNodeName
tSetting.tcValue = tServerXmlNodes.tcNodeValue.
end.
<M-1 run FillSettings
(input tServerXmlNodes.tiNodeId (iiNodeId),
input icNameSpace + tserverXmlNodes.tcNodeName (icNameSpace),
output viFcReturnSuper (oiReturnStatus)) in ComponentPool>
if viFcReturnSuper <> 0
then do:
assign oiReturnStatus = viFcReturnSuper.
leave NodeBlock.
end.
end.
end.
if oiReturnStatus = -98
then assign oiReturnStatus = 0.