project BLF > class BBaseDaemon > method GetEnvVars


Parameters


ocEnvRootoutputcharacter
ocEnvAppServerURLoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BBaseDaemon.Calculate
method BBaseDaemon.InitialValues


program code (program1/bbasedaemon.p)

assign vhFcComponent = ?.
<M-1 run MainBlock  () in XML>
vhXMLC = vhFcComponent.

<M-3 run ReadXMLNodeValue
   (input  search('server.xml') (icXMLFile), 
    input  'serverConfiguration' (icStartTag), 
    input  'ENVROOT' (icNodeTag), 
    output ocEnvRoot (ocNodeValue), 
    output viFcReturnSuper (oiReturnStatus)) in XML>
    
if viFcReturnSuper < 0  or
   ocEnvRoot       = "" or
   ocEnvRoot       = ?
then assign ocEnvRoot = trim(#T-4'<Not Defined>':255(5203)T-4#).

vhFcComponent = vhXMLC.
<M-2 run ReadXMLNodeValue
   (input  search('server.xml') (icXMLFile), 
    input  'serverConfiguration' (icStartTag), 
    input  'ENVAPPSERVERURL' (icNodeTag), 
    output ocEnvAppServerURL (ocNodeValue), 
    output viFcReturnSuper (oiReturnStatus)) in XML>
    
if viFcReturnSuper   < 0  or
   ocEnvAppServerURL = "" or
   ocEnvAppServerURL = ?
then assign ocEnvAppServerURL = trim(#T-5'<Not Defined>':255(5203)T-5#).

run gipr_DeleteProcedure in vhXMLC.
delete procedure vhXMLC.