abap中VIEW_MAINTENANCE_GIVEN_DATA的用法

*&---------------------------------------------------------------------*
*& Report ZMM127_DEPT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zmm127_dept.

TABLES: ztdept_txt, sscrfields..


DATA: BEGIN OF gt_valuetable OCCURS 0 ,
        value(255),
      END OF gt_valuetable.

DATA: gt_zmm127 TYPE TABLE OF ztdept_txt,
      gs_zmm127 LIKE LINE OF gt_zmm127.


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN FUNCTION KEY 1."可以设置1～5五个功能键
SELECTION-SCREEN FUNCTION KEY 2."可以设置1～5五个功能键
SELECT-OPTIONS: s_type FOR  ztdept_txt-zdept_type,
                s_brsch  FOR  ztdept_txt-brsch,
                s_txt  FOR  ztdept_txt-zdept_txt.
SELECTION-SCREEN END OF BLOCK b1.


START-OF-SELECTION.
  PERFORM frm_view_maintenance.


END-OF-SELECTION.




*&---------------------------------------------------------------------*
*&      Form  FRM_VIEW_MAINTENANCE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_view_maintenance .
  SELECT *
    INTO TABLE gt_zmm127
    FROM ztdept_txt
    WHERE zdept_type IN s_type
      AND brsch IN s_brsch
      AND zdept_txt IN s_txt.

  SORT gt_zmm127 BY zseqno.

  gt_valuetable[] = gt_zmm127.


  CALL FUNCTION 'VIEW_MAINTENANCE_GIVEN_DATA'
    EXPORTING
      action             = 'U'
*     CORR_NUMBER        = '          '
*     GENERATE_MAINT_TOOL_IF_MISSING       = ' '
      view_name          = 'ZTDEPT_TXT'
*     NO_WARNING_FOR_CLIENTINDEP           = ' '
*     RFC_DESTINATION_FOR_UPGRADE          = ' '
      client_for_upgrade = 'X'
*     VARIANT_FOR_SELECTION                = ' '
*     COMPLEX_SELCONDS_USED                = ' '
    TABLES
      data               = gt_valuetable
*     DBA_SELLIST        =
*     EXCL_CUA_FUNCT     =
*   EXCEPTIONS
*     CLIENT_REFERENCE   = 1
*     FOREIGN_LOCK       = 2
*     INVALID_ACTION     = 3
*     NO_CLIENTINDEPENDENT_AUTH            = 4
*     NO_DATABASE_FUNCTION                 = 5
*     NO_SHOW_AUTH       = 6
*     NO_TVDIR_ENTRY     = 7
*     NO_UPD_AUTH        = 8
*     ONLY_SHOW_ALLOWED  = 9
*     SYSTEM_FAILURE     = 10
*     UNKNOWN_FIELD_IN_DBA_SELLIST         = 11
*     VIEW_NOT_FOUND     = 12
*     OTHERS             = 13
    .
  IF sy-subrc <> 0.
*   Implement suitable error handling here
  ENDIF.
ENDFORM.