method StartComponent

Description

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

Parameters

icBusinessComponent	input	character	Short name of the business component
oiReturnStatus	output	integer	Return 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.