FM to get spesific domain value


Imports:

 imports

Exports:

 export

 

Tables:

 tables

 

Source Code:

 

FUNCTION ZGET_DOMAIN_VALUE.

*”———————————————————————-

*”*”Local Interface:

*”  IMPORTING

*”     REFERENCE(I_DOMAIN) TYPE  STRING

*”     REFERENCE(I_KEY) TYPE  STRING OPTIONAL

*”  EXPORTING

*”     REFERENCE(E_VALUE) TYPE  STRING

*”  TABLES

*”      RT_VALUES STRUCTURE  DD07V OPTIONAL

*”———————————————————————-

data lt_domain   type standard table of dd07v.

data ls_domain   type dd07v.

data lv_domain   type ddobjname.

lv_domain i_domain.

call function ‘DDIF_DOMA_GET’

  exporting

    name          lv_domain

    langu         sylangu

  tables

    dd07v_tab     lt_domain

  exceptions

    illegal_input 1

  others        2.

if sysubrc <> 0.

  message id symsgid type symsgty number symsgno

  with symsgv1 symsgv2 symsgv3 symsgv4.

endif.

check lt_domain is not initial.

rt_values[] lt_domain[].

if i_key is not initial.

read table lt_domain into ls_domain

  with key domvalue_l i_key.

e_value ls_domainddtext.

endif.

ENDFUNCTION.

Leave a comment

Your email address will not be published. Required fields are marked *