project BLF > class Startup > method StartComponent

Description

Start a certain business component, in order to cache it on the appserver.


Parameters


icBusinessComponentinputcharacterShort name of the business component
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method Startup.MainBlock


program code (program1/startup.p)

assign viClassId = 0.

if search("ins/ins__":U + lc(icBusinessComponent) + ".r":U) <> ?
then do :
    run value("ins/ins__":U + lc(icBusinessComponent) + ".p":U)
            persistent set vhClassInst.
    run Mainblock in vhClassInst
       (input        0, /* session Id*/
        input        0, /*no subtransaction possible*/
        input        0,
        input        false,
        input        "", /* user-defined context */
        input-output viClassId,
              output viFcIncludeReturn).
    run StopInstance in vhClassInst
       (input "", input "", input "", input no,
        output viFcIncludeReturn).
    delete procedure vhClassInst.
    assign vhClassInst = ?.
end.