FUNCTION Z_BAPI_ASSETNAME_SEARCH.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(ASSET_NAME) TYPE  ZBAPIAA01-TXT50 OPTIONAL
*"  EXPORTING
*"     VALUE(RETURN) LIKE  BAPIRETURN STRUCTURE  BAPIRETURN
*"  TABLES
*"      ASSET_LIST STRUCTURE  ZBAPIAA01 OPTIONAL
*"----------------------------------------------------------------------

DATA : l_name(55).

  CLEAR : asset_list, asset_list[], l_name.

  CONCATENATE '%' asset_name '%' INTO l_name.

  SELECT bukrs anln1 anln2 anlkl txt50
    INTO CORRESPONDING FIELDS OF TABLE asset_list
    FROM anla
    WHERE txt50 LIKE l_name.

ENDFUNCTION.