project BLF > class BXmlDaemon > method GetActionForOriginator


Parameters


icOriginatorinputcharacter
ocActionoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BXmlDaemonProcessor.PerformWorkItem


program code (program1/bxmldaemon.p)

/* this method assumes config records are already loaded */
find first tXmlDaemon no-error.
if not available tXmlDaemon
then return.

/* use XML action */
if tXmlDaemon.XmlDaemonActOverruleXml
then return.

/* use default action */
assign ocAction = tXmlDaemon.XmlDaemonAct.

if tXmlDaemon.XmlDaemonActOverruleOrig = no
then return.

find first tXmlDaemonOrig where
           tXmlDaemonOrig.XmlDaemonOrigOriginator = icOriginator no-error.
if not available tXmlDaemonOrig
then return.

if tXmlDaemonOrig.XmlDaemonOrigActOverrulXml
then assign ocAction = "". /* use XML action */
else assign ocAction = tXmlDaemonOrig.XmlDaemonOrigAct. /* use originator action */