project BLF > class TDaemonUtility > method GetDaemonLogFile


Parameters


icDaemonNameinputcharacter
ocFileNameoutputcharacter
omFileContentoutputmemptr
ocErrorMessageoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDaemonFunctions.GetDaemonLogFile


program code (program1/tdaemonutility.p)

<M-68 run GetAppserverConnection
   (input  icDaemonName (icDaemonName), 
    input  '' (icDaemonAppserverURL), 
    output vhAppserver (ohDaemonAppserver), 
    output ocErrorMessage (ocMessage), 
    output oiReturnStatus (oiReturnStatus)) in TDaemonUtility>
if oiReturnStatus < 0
then return.

if valid-handle(vhAppServer)
and vhAppServer:connected()
then do:
    /* run on appserver */
    run program/tdaemonutility.p persistent set vhFcComponent on vhAppserver (input viSessionID).
    run GetDaemonLogFileInternal in vhFcComponent
       (input  icDaemonName,
        output ocFileName,
        output omFileContent, 
        output ocErrorMessage, 
        output oiReturnStatus).
    run gipr_DeleteProcedure in vhFcComponent.
    delete procedure vhFcComponent.
    vhAppServer:disconnect().
    delete object vhAppServer.
end.
else do:
    /* run locally */
    <M-43 run GetDaemonLogFileInternal
       (input  icDaemonName (icDaemonName), 
        output ocFileName (ocFileName), 
        output omFileContent (omFileContent), 
        output ocErrorMessage (ocErrorMessage), 
        output oiReturnStatus (oiReturnStatus)) in TDaemonUtility>
end.