REPORT Z_FI_EXEC_MAINTAIN_PROD_TABLES.
*----------------------------------------------------------------------*
* DATA DECLARATION
*----------------------------------------------------------------------*
**-> Variables
DATA: GV_VIEW_NAME TYPE DD02V-TABNAME.
*----------------------------------------------------------------------*
* SELECTION-SCREEN
*----------------------------------------------------------------------*
PARAMETERS: P_PR_LN TYPE C RADIOBUTTON GROUP RG1, " ZTFI_PROD_LINE
P_PR_CA TYPE C RADIOBUTTON GROUP RG1, " ZTFI_PROD_CATE
P_PROJ TYPE C RADIOBUTTON GROUP RG1. " ZTFI_PROJECT
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
CASE 'X'.
WHEN P_PR_LN.
GV_VIEW_NAME = 'ZTFI_PROD_LINE'.
WHEN P_PR_CA.
GV_VIEW_NAME = 'ZTFI_PROD_CATE'.
WHEN P_PROJ.
GV_VIEW_NAME = 'ZTFI_PROJECT'.
ENDCASE.
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
EXPORTING
ACTION = 'U'
* CORR_NUMBER = ' '
* GENERATE_MAINT_TOOL_IF_MISSING = ' '
* SHOW_SELECTION_POPUP = ' '
VIEW_NAME = GV_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 =
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.
小批量字典数据导入方法
最新推荐文章于 2024-07-08 15:13:28 发布