project BLF > class Startup > 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
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.