project BLF > class BXmlDaemon > method CalcAllXmlDaemonInfo

query calculated fields procedure

Description

Assign a value to query calculated fields


Parameters


iiDaemonIdinputintegerDaemonID
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
query XmlDaemonInfo


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.