project BLF > class BXmlDaemon > method CalcAllXmlDaemonInfo
query calculated fields procedure
Description
Assign a value to query calculated fields
Parameters
iiDaemonId | input | integer | DaemonID |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program1/bxmldaemon.p)
<M-1 run MainBlock () in XML>
<M-2 run ReadXMLNodeValue
(input search('server.xml') (icXMLFile),
input 'serverConfiguration' (icStartTag),
input 'ENVROOT' (icNodeTag),
output vcenvroot (ocNodeValue),
output viFcReturnSuper (oiReturnStatus)) in XML>
run gipr_deleteprocedure in vhFcComponent.
delete procedure vhFcComponent.
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
if vcenvroot <> ""
and vcenvroot <> ?
then do:
create query vhQuery in widget-pool "non-persistent".
vhQuery:forward-only = yes.
vhQuery:set-buffers(ih_Buffer).
vhQuery:query-prepare("for each ":U + ih_Buffer:table).
vhQuery:query-open().
vhQuery:get-first().
do while not vhQuery:query-off-end:
assign {&tcXmlDaemonDirectory} = replace({&tcXmlDaemonDirectory},"$ENVROOT",vcenvroot).
vhQuery:get-next().
end.
vhQuery:query-close().
delete object vhQuery.
end.