project BLF > class BBaseDaemon > method GetEnvVars
Parameters
ocEnvRoot | output | character | |
ocEnvAppServerURL | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
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.