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.