Monday, November 15, 2010

Obtener datos de dominio

DATA: ltd_dominio TYPE TABLE OF dd07v.
  CALL FUNCTION 'DD_DD07V_GET'
    EXPORTING
      domain_name    = 'ZD_TRATAMIENTO_10'
      langu          = sy-langu
      withtext       = 'X'
    TABLES
      dd07v_tab      = ltd_dominio
    EXCEPTIONS
      access_failure = 1
      OTHERS         = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

No comments:

Post a Comment