SM30维护视图屏蔽按钮

标准维护视图  GUI状态  ESLG

编辑按钮 AEND

达到效果

  DATA: l_act  TYPE char1,
        l_name TYPE dd02v-tabname.
  DATA: lt_vimexclfun TYPE TABLE OF vimexclfun WITH HEADER LINE,
        ls_vimexclfun TYPE vimsellist.
  l_act  = 'S'.
  l_name = 'ZV_ZFIT0101'.

  lt_vimexclfun[] = VALUE #( ( function = 'AEND' )
                           ( function = 'NEWL' )
                           ( function = 'KOPE' )
                           ( function = 'DELE' ) ).

  CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
    EXPORTING
      action                       = l_act
*     CORR_NUMBER                  = '          '
*     GENERATE_MAINT_TOOL_IF_MISSING       = ' '
*     SHOW_SELECTION_POPUP         = ' '
      view_name                    = l_name
*     NO_WARNING_FOR_CLIENTINDEP   = ' '
*     RFC_DESTINATION_FOR_UPGRADE  = ' '
*     CLIENT_FOR_UPGRADE           = ' '
*     VARIANT_FOR_SELECTION        = ' '
*     COMPLEX_SELCONDS_USED        = ' '
*     CHECK_DDIC_MAINFLAG          = ' '
*     SUPPRESS_WA_POPUP            = ' '
    TABLES
*     DBA_SELLIST                  =
      excl_cua_funct               = lt_vimexclfun
    EXCEPTIONS
      client_reference             =
      foreign_lock                 =
      invalid_action               =
      no_clientindependent_auth    =
      no_database_function         =
      no_editor_function           =
      no_show_auth                 =
      no_tvdir_entry               =
      no_upd_auth                  =
      only_show_allowed            =
      system_failure               =
      unknown_field_in_dba_sellist =
      view_not_found               =
      maintenance_prohibited       =
      OTHERS                       = .
  IF sy-subrc <> .
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.