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 .