project BLF > class RPCRequestService > method PublishComponent

Parameters

Internal usage

program code (program1/rpcrequestservice.p)

&scoped-define INS-PROCEDURE-DATABASE "ins/ins__" + lc(icComponentName) + ".p"

/* Generic run of business method */
SOblock:
do:
    <I-6 {tFcStartAndOpenInstance
         &CLASS                = "database"
         &ERROR-STATEMENT      = "assign vlStartError = yes. leave SOblock."
         &SESSIONID            = "viSession3ID"}>
end.

if vlStartError
then do:
    create tErrors.

    assign tErrors.tcFcMessage   = subst(trim(#T-12'Unable to start component &1.':255(5151)T-12#), icComponentName)
           tErrors.tcFcMsgNumber = "BLF-RPCRS-12"
           tErrors.tiFcSeverity  = 3
           tErrors.tcFcType      = "E"
           tErrors.tcFcContext   = trim(#T-13'This message comes from program/RPCRequestService.p.':255(5142)T-13#)
           tErrors.tcFcRowid     = string(rowid(tErrors))
           oiReturnStatus        = -1.

    <I-7 {tFcStopInstance
         &CLASS                = "Session"
         &SESSIONID            = "viSession3ID"}>

    return.
end.

<M-14 run ApiForcePublish
   (input  tObjectRPCRS (tObject), 
    output viLocalReturn (oiReturnStatus)) in database>

if viLocalReturn <> 0
then run GetPublictFcMessages in vhdatabase2Inst (output dataset tErrors, output viFcReturnSuper).

<I-15 {tFcCloseAndStopInstance
     &CLASS           = "database"}>

assign oiReturnStatus = viLocalReturn.