refresh act_sellist.
  clear act_sellist.

 "设置查询条件
  act_sellist-viewfield  = 'ID'.
  act_sellist-operator   = 'EQ'.
  act_sellist-value      = P_ID.
  append act_sellist.

 "设置功能类型
  act_exclfun-function   = 'NEWL'.
  append act_exclfun.
  act_exclfun-function   = 'KOPE'.
  append act_exclfun.
  act_exclfun-function   = 'DELE'.
  append act_exclfun.

  call function 'VIEW_MAINTENANCE_CALL'
    exporting
      action                       = 'U'
      view_name                    = 'ZTEST_01'
    tables
      dba_sellist                  = act_sellist
      excl_cua_funct               = act_exclfun
    exceptions
      client_reference             = 01
      foreign_lock                 = 02
      invalid_action               = 03
      no_clientindependent_auth    = 04
      no_database_function         = 05
      no_editor_function           = 06
      no_show_auth                 = 07
      no_tvdir_entry               = 08
      no_upd_auth                  = 09
      only_show_allowed            = 10
      system_failure               = 11
      unknown_field_in_dba_sellist = 12
      view_not_found               = 13.