程序调用维护SM30表

程序调用维护SM30表

前提：此表维护了维护了表生成器；
此表设置了可维护类型

      "1声明table:sscrfields
      TABLES:sscrfields.
     "2定义变量
     DATA: gs_functxt TYPE smp_dyntxt.  "功能代码文本
     DATA: excl_cua_funct TYPE TABLE OF vimexclfun.
     "3设置按钮
     SELECTION-SCREEN: FUNCTION KEY 1.
     "4设置按钮图标和描述
       gs_functxt-icon_id    = icon_tools.
      gs_functxt-quickinfo  = '库位分组对照表'.
      gs_functxt-icon_text  = '库位分组对照表'.
      sscrfields-functxt_01 = gs_functxt.
      “5设置按钮功能
      AT SELECTION-SCREEN.
   IF sscrfields-ucomm = 'FC01'.
        PERFORM frm_view_maintenance_call TABLES excl_cua_funct USING              'ZTPP007A'   'S'.
   ENDIF.

FORM frm_view_maintenance_call TABLES excl_cua_funct STRUCTURE vimexclfun
USING p_view_name LIKE dd02v-tabname
p_action TYPE char1.

CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
EXPORTING
action = p_action

• CORR_NUMBER                  = '          '
  

• GENERATE_MAINT_TOOL_IF_MISSING       = ' '
  

• SHOW_SELECTION_POPUP         = ' '
  view_name                    = p_view_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               = excl_cua_funct
  

  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.
• Implement suitable error handling here
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.