project BLF > class Business Component > method StartComponentWorker

system procedure

Description

system method for starting components
do not use


Parameters


icProclistinputcharacterInheritance list of components to start.
ohProchoutputhandleHandle to the component.
oiReturnStatusoutputinteger


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.