project BLF > class TDaemonUtility > method KillDaemonProcessesInternal
Parameters
icProcesses | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program1/tdaemonutility.p)
<M-36 run GetHostName (output vcKillHostname (ocHostName)) in TDaemonUtility>
if opsys = "UNIX"
then do viPCount = 1 to num-entries(icProcesses):
if num-entries (entry(viPCount,icProcesses),":") = 2
then assign vcProcessHostname = entry (1,entry(viPCount,icProcesses),":")
vcProcessID = entry (2,entry(viPCount,icProcesses),":").
else vcProcessID = entry(viPCount,icProcesses).
if vcKillHostname = vcProcessHostname
or vcKillHostname = ""
then os-command value ("kill -9 ":U + entry(viPCount,icProcesses)).
end.
else do:
<M-1 run Main () in Win32Lib>
do viPCount = 1 to num-entries(icProcesses):
if num-entries (entry(viPCount,icProcesses),":") = 2
then assign vcProcessHostname = entry (1,entry(viPCount,icProcesses),":")
vcProcessID = entry (2,entry(viPCount,icProcesses),":").
else vcProcessID = entry(viPCount,icProcesses).
if vcKillHostname = vcProcessHostname
or vcKillHostname = ""
then do:
<M-2 run EndProcess
(input integer(entry(viPCount,icProcesses)) (iiProcessId),
output viFcReturnSuper (oiReturnStatus)) in Win32Lib>
end.
end.
run gipr_deleteprocedure in vhFcComponent.
delete procedure vhFcComponent.
end.