CALL FUNCTION 'G_SET_GET_ID_FROM_NAME'
EXPORTING
shortname = 'ZF1_FI_007'
IMPORTING
new_setid = lv_setid
EXCEPTIONS
no_set_found = 1
no_set_picked_from_popup = 2
wrong_class = 3
wrong_subclass = 4
table_field_not_found = 5
fields_dont_match = 6
set_is_empty = 7
formula_in_set = 8
set_is_dynamic = 9
OTHERS = 10.
CALL FUNCTION 'G_SET_FETCH'
EXPORTING
setnr = lv_setid
TABLES
formula_lines = lit_formula_lines
set_lines_basic = lit_set_lines_basic
set_lines_data = lit_set_lines_data
set_lines_multi = lit_set_lines_multi
set_lines_single = lit_set_lines_single
EXCEPTIONS
no_authority = 1
set_is_broken = 2
set_not_found = 3
OTHERS = 4.
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 hay comentarios.:
Publicar un comentario