Funktionsbaustein-Eingabehilfe-Festwerte...

Code: Alles auswählen.

FUNCTION swu_get_values_to_fieldname.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(LANGUAGE) LIKE  SY-LANGU DEFAULT SY-LANGU
*"     VALUE(FIELD)
*"     VALUE(VALUE) OPTIONAL
*"  EXPORTING
*"     VALUE(EX_G07TAB) TYPE  DD07V
*"  TABLES
*"      G07TAB STRUCTURE  DD07V OPTIONAL
*"  EXCEPTIONS
*"      FIELD_NOT_FOUND
*"      VALUES_NOT_FOUND
*"----------------------------------------------------------------------
* begin of local data definition
  DATA: rollname LIKE dd03l-rollname,
        domname  LIKE dd04l-domname,
        l_value  TYPE  domvalue_l.
* end of local data definition

* casting
  l_value = value.

** get rollname
*  CALL FUNCTION 'SWU_GET_ROLLNAME_TO_FIELDNAME'
*    EXPORTING
*      field           = field
*    IMPORTING
*      rollname        = rollname
*    EXCEPTIONS
*      field_not_found = 01.
*  IF sy-subrc NE 0.
*    RAISE field_not_found.
*  ENDIF.
*
** get domaine
*  CALL FUNCTION 'SWU_GET_DOMNAME_TO_ROLLNAME'
*    EXPORTING
*      rollname           = rollname
*    IMPORTING
*      domname            = domname
*    EXCEPTIONS
*      rollname_not_found = 01.
*  IF sy-subrc NE 0.
*    RAISE field_not_found.
*  ENDIF.
*  --- OSS note 1374211 ---
*  CALL FUNCTION 'SWU_GET_DOMNAME_TO_FIELDNAME'
*    EXPORTING
*      FIELD   = field
*    IMPORTING
*      DOMNAME = domname
*    EXCEPTIONS
*      OTHERS  = 01.
*
*  IF SY-SUBRC <> 0.
*    RAISE field_not_found.
*  ENDIF.
*
** get values
*  CALL FUNCTION 'SWU_GET_TABLE_TO_DOMNAME'
*    EXPORTING
*      domname        = domname
*      language       = language
*    TABLES
*      g07tab         = g07tab
*    EXCEPTIONS
*      internal_error = 01.
*  IF sy-subrc NE 0.
*    RAISE values_not_found.
*  ENDIF.

* --- note 1961034 use buffered access ---
  data lh_elem   type ref to CL_ABAP_ELEMDESCR.
  data lh_type   type ref to CL_ABAP_TYPEDESCR.
  data lt_values type DDFIXVALUES.
  data ls_values type DDFIXVALUE.
  data l_DFIES   type DFIES.
  data l_DD07V   type DD07V.

  call method CL_ABAP_TYPEDESCR=>describe_by_name
     exporting
       P_NAME      = field
     receiving
       P_DESCR_REF = lh_type
     exceptions
       others      = 1.
  IF sy-subrc NE 0.
    RAISE field_not_found.
  ENDIF.

  if lh_type is bound and
     lh_type->KIND = CL_ABAP_TYPEDESCR=>KIND_ELEM .

    lh_elem ?= lh_type.

    call method lh_elem->GET_DDIC_FIXED_VALUES
       exporting
         P_LANGU        = language
       receiving
         P_FIXED_VALUES = lt_values
       exceptions
         others         = 1.
    IF sy-subrc NE 0 or lt_values[] is initial.
      RAISE values_not_found.
    ENDIF.

    call method lh_elem->GET_DDIC_FIELD
       exporting
         P_LANGU        = language
       receiving
         P_FLDDESCR     = l_DFIES
       exceptions
         others         = 0.

    l_DD07V-DOMNAME    = l_DFIES-domname.
    l_DD07V-VALPOS     = '0000'.
    l_DD07V-DDLANGUAGE = language.

    loop at lt_values into ls_values.
      add 1 to l_DD07V-VALPOS .
      l_DD07V-DOMVALUE_L = ls_values-low.
      l_DD07V-DOMVALUE_H = ls_values-high.
      l_DD07V-DDTEXT     = ls_values-ddtext.
      append l_DD07V to g07tab.
    endloop.

  else.
    RAISE field_not_found.
  endif.
* --- end of note 1961034 ---

* get line
  IF value IS SUPPLIED.
    DELETE g07tab WHERE domvalue_l NE l_value.
    READ TABLE g07tab INDEX 1 INTO ex_g07tab.
  ENDIF.

ENDFUNCTION.