method GetEnvVars

Parameters

ocEnvRoot	output	character
ocEnvAppServerURL	output	character
oiReturnStatus	output	integer	Return 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.