小批量字典数据导入方法

来源：互联网发布：php在线教育系统编辑：程序博客网时间：2024/04/28 01:00

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.