Monday, November 15, 2010

Cargar datos de dominio con función

DATA gtd_dom_tratamiento TYPE STANDARD TABLE OF dd07v.
PERFORM cargar_datos_dominio TABLES gtd_dom_tratamiento
                               USING 'ZD_TRATAMIENTO_10'
                               CHANGING lc_rpta.
Check lc_RPTA = ‘T’.
FORM cargar_datos_dominio  TABLES p_ltd_dominio LIKE gtd_dom_tratamiento
                           USING    p_ls_dominio
                           CHANGING p_lc_rpta.
  CALL FUNCTION 'DD_DD07V_GET'
    EXPORTING
      domain_name    = p_ls_dominio
      langu          = sy-langu
      withtext       = 'X'
    TABLES
      dd07v_tab      = p_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.
    p_lc_rpta = 'F'.
  ELSE.
    p_lc_rpta = 'T'.
  ENDIF.
ENDFORM.                    " cargar_datos_dominio

No comments:

Post a Comment