Description
create component (for versioning only)
Parameters
| icComponentName | input | character | |
| oiReturnStatus | output | integer | Return 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>