BW - EJECUCION CADENA EN FORMA REMOTA - ABAP

PAra la ejecución de Cadenas de BW en forma Remota , lo podemos hacer con este simple codigo :

FORM p_exec  USING    p_chain TYPE  rspc_chain.

*-Verificar Autorizacion Cadena
  AUTHORITY-CHECK OBJECT 'ZCADENA'
           ID 'ZIDCADENA' FIELD p_chain
           ID 'ACTVT' FIELD '16'.


  IF sy-subrc NE 0.
    MESSAGE i005(zbw01).
    EXIT.
  ENDIF.

*--Ejecucion Cadena a Demanda
  CALL FUNCTION 'RSPC_API_CHAIN_START' DESTINATION gv_destination
    EXPORTING
      i_chain = p_chain
    EXCEPTIONS
      failed  = 1
      OTHERS  = 2.

  IF sy-subrc <> 0.
    MESSAGE e003(zbw01).
  ELSE.
    MESSAGE s004(zbw01).
  ENDIF.

ENDFORM.                    " P_EXEC