DATA: lt_vimsellist LIKE vimsellist OCCURS 0 WITH HEADER LINE.
lt_vimsellist-viewfield = 'BUKRS'.
lt_vimsellist-operator = 'EQ'.
lt_vimsellist-value = anla-bukrs.
lt_vimsellist-and_or = 'AND'.
lt_vimsellist-tabix = 2.
APPEND lt_vimsellist.
lt_vimsellist-viewfield = 'ANLN1'.
lt_vimsellist-operator = 'EQ'.
lt_vimsellist-value = anla-anln1.
lt_vimsellist-and_or = 'AND'.
lt_vimsellist-tabix = 3.
APPEND lt_vimsellist.
lt_vimsellist-viewfield = 'ANLN2'.
lt_vimsellist-operator = 'EQ'.
lt_vimsellist-value = anla-anln2.
lt_vimsellist-and_or = ''.
lt_vimsellist-tabix = 4.
APPEND lt_vimsellist.
CALL FUNCTION 'VIEW_MAINTENANCE'
EXPORTING
view_action = 'U' "UPDATE
view_name = 'ZTFI281'
TABLES
x_header = lt_vimdesc
x_namtab = lt_vimnamtab
dba_sellist = lt_vimsellist
excl_cua_funct = lt_vimexclfun
EXCEPTIONS
missing_corr_number = 1
no_database_function = 2
no_editor_function = 3
no_value_for_subset_ident = 4
OTHERS = 5.
阅读(1851) | 评论(0) | 转发(0) |