DATA:LV_APPL_MODEL TYPE REF TO IF_BSP_WD_APPL_MODEL.
DATA:RV_URL TYPE STRING.
cl_bsp_wd_appl_model=>get_appl_model(
EXPORTING
iv_bsp_appl = 'CRM_UI_START '
iv_model_type = 'CL_BSP_WD_APPL_MODEL_RTTI'
RECEIVING
rv_model = lv_appl_model
EXCEPTIONS
OTHERS = 1 ).
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.
rv_url = lv_appl_model->get_start_url( ).