method GetDaemonStatusCustom

Description

Sub method of GetDaemonStatus. This should be used to extend in the dependent project to add information about a specific daemon if required.
For al information a record in tDaemonStatus needs to be created.

Parameters

iiDaemonId	input	integer
icDaemonName	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method TDaemonUtility.GetDaemonStatus

program code (program1/tdaemonutility.p)

case icDaemonName:
    when {&XMLDAEMON}
    then do:
        <Q-1 run XmlDaemonInfo (all) (Read) (NoCache)
           (input iiDaemonId, (DaemonId)
            output dataset tqXmlDaemonInfo) in BXmlDaemon >

        find first tqXmlDaemonInfo no-error.
        if available tqXmlDaemonInfo
        then do :
            create tDaemonStatus.
            assign tDaemonStatus.tcProperty = "[Config] XML input folder:":U
                   tDaemonStatus.tcValue = tqXmlDaemonInfo.tcXmlDaemonDirectory.
        end.
    end.
    when {&REPORTDAEMON}
    then do:
        <Q-2 run ReportDaemonData (all) (Read) (NoCache)
           (input iiDaemonId, (DaemonID)
            output dataset tqReportDaemonData) in BReportDaemon >

        find first tqReportDaemonData no-error.
        if available tqReportDaemonData
        then do:
            create tDaemonStatus.
            assign tDaemonStatus.tcProperty = "[Config] .Net report server host:":U
                   tDaemonStatus.tcValue = tqReportDaemonData.tcReportDaemonSocketServer.
            create tDaemonStatus.
            assign tDaemonStatus.tcProperty = "[Config] .Net report server connection port number:":U
                   tDaemonStatus.tcValue = string(tqReportDaemonData.tiReportDaemonSocketPort).
        end.
    end.
end case.