ABAP-调用SM30 调用维护视图

 

*&---------------------------------------------------------------------*
*&      EVENT:AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_turn_sm30 USING 'ZMMV410_USER'.
  ENDCASE.

 

 

*&---------------------------------------------------------------------*
*& Form FRM_TURN_SM30
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&---------------------------------------------------------------------*
FORM FRM_TURN_SM30  USING    VV_TABNAME TYPE DD02V-TABNAME.

  DATA:LT_VIMSELLIST TYPE TABLE OF VIMSELLIST.
  LT_VIMSELLIST = VALUE #( BASE LT_VIMSELLIST ( VIEWFIELD = 'UNAME' VALUE = SY-UNAME OPERATOR = 'EQ' ) ).

  CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
    EXPORTING
      ACTION                         = 'U'
*     CORR_NUMBER                    = '          '
      GENERATE_MAINT_TOOL_IF_MISSING = 'X'
*     SHOW_SELECTION_POPUP           = ' '
      VIEW_NAME                      = VV_TABNAME
*     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                    = LT_VIMSELLIST
*     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 'S'
    NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4
    DISPLAY LIKE 'E'.
    LEAVE LIST-PROCESSING.
  ENDIF.


ENDFORM.