project BLF > class BBusinessComponent > method CreateComponent

Description

create component (for versioning only)


Parameters


icComponentNameinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bbusinesscomponent.p)

/* ================================================================= */
/* Do not check if component already exists,                         */
/* this is done before calling this method.                          */
/* ================================================================= */
<M-1 run DataNew (output oiReturnStatus (oiReturnStatus)) in BBusinessComponent>
if oiReturnStatus <> 0
then return.

assign tBusComponent.BusComponentCode     = icComponentName
       tBusComponent.BusComponentLabel    = icComponentName
       tBusComponent.BusComponentIsActive = yes.

/* ================================================================= */
/* Do not validate but save unconditionally.                         */
/* ================================================================= */
assign vlFcDataValidated = yes.

<M-4 run DataSave (output oiReturnStatus (oiReturnStatus)) in BBusinessComponent>