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             = 1
      foreign_lock                 = 2
      invalid_action               = 3
      no_clientindependent_auth    = 4
      no_database_function         = 5
      no_editor_function           = 6
      no_show_auth                 = 7
      no_tvdir_entry               = 8
      no_upd_auth                  = 9
      only_show_allowed            = 10
      system_failure               = 11
      unknown_field_in_dba_sellist = 12
      view_not_found               = 13
      maintenance_prohibited       = 14
      OTHERS                       = 15.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

 

转载于:https://www.cnblogs.com/rainysblog/p/11507909.html