project BLF > class Business Component > method StartComponentWorker
system procedure
Description
system method for starting components
do not use
Parameters
icProclist | input | character | Inheritance list of components to start. |
ohProch | output | handle | Handle to the component. |
oiReturnStatus | output | integer | |
Internal usage
unused
program code (program1/business.p)
assign vcCompname = entry(1,icProclist)
oiReturnStatus = -98.
run value(vcCompname) persistent set vhComphandle
(input this-procedure,
output viFcReturnSuper).
if viFcReturnSuper <> 0
then assign viWorkStatus = viFcReturnSuper.
if num-entries(icProclist) = 1
then assign ohProch = vhComphandle.
else do:
run StartComponentWorker in vhComphandle
(input substring(icProclist, length(entry(1,icProclist),"CHARACTER":U) + 2,-1,"CHARACTER":U),
output ohProch,
output viFcReturnSuper).
if viFcReturnSuper <> 0
then assign viWorkStatus = viFcReturnSuper.
end.
assign oiReturnStatus = viWorkStatus.