本文主要是介绍程序调用维护SM30表,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
程序调用维护SM30表
前提:此表维护了维护了表生成器;
此表设置了可维护类型
"1声明table:sscrfieldsTABLES: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 = ' '
-
TABLESSUPPRESS_WA_POPUP = ' '
-
EXCEPTIONSDBA_SELLIST = excl_cua_funct = excl_cua_funct
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.
这篇关于程序调用维护SM30表的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!