Maintance View

*&---------------------------------------------------------------------*
*& Progarm      :  ZMAINTAIN_TABLE                Author : Jimmy Wong
*& Created      :  12 Mar 2013                    App    : PP
*& Title        :  Maintain table
*& Description  :  Maintain table
*&DELE
*NEWL
*WB_EXEC
*SAVE
*SLCT
*DELM
*EXPA
*ADDR
*SCRF
*LANG
*TEXT
*GPRF
*UPRF
*BCCH
*TRSP
*ORDR
*&---------------------------------------------------------------------*
*&  Version       Author      Date        description
*&                Jimmy       12 Mar 2013 the first version
*&  the last update time  2013.03.12  12:00
*&---------------------------------------------------------------------*

report  zmaintain_table.

tables : vimexclfun.

data: gt_excl    type table of vimexclfun,
      gwa_excl   type vimexclfun.

*----------------------------------------------------------------------*
*  Parameter & Select-Options                                          *
*----------------------------------------------------------------------*
selection-screen begin of block 1 with frame title text-001.
parameters : p_action type c obligatory,
             p_tbl type dd02v-tabname obligatory.
select-options: s_excl for vimexclfun-function no intervals .
selection-screen end of block 1.

*---------------------------------------------------------------------*
* START-OF-SELECTION
*---------------------------------------------------------------------*
start-of-selection.

  loop at s_excl.
    gwa_excl-function = s_excl-low.
    append gwa_excl to gt_excl.
  endloop.

  call function 'VIEW_MAINTENANCE_CALL'
    exporting
      action                       = 'S' " 'U' 'T'
      view_name                    = 'ZRUN_CHANGE_PMC'
    tables
      excl_cua_funct               = gt_excl
    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.

*    " Fill the function codes in exclude table that you want to disable
*  GWA_EXCL-FUNCTION = 'DELE'. " Function code for delete icon
*  APPEND GWA_EXCL TO GT_EXCL.
*
* " Fill the function codes in exclude table that you want to disable
*  GWA_EXCL-FUNCTION = 'NEWL'. " Function code for NEW icon
*  APPEND GWA_EXCL TO GT_EXCL.
* " ACTION = 'S'
* " Fill the function codes in exclude table that you want to disable
*  GWA_EXCL-FUNCTION = 'AEND'. " Function code for Change icon  ANZG AEND
*  APPEND GWA_EXCL TO GT_EXCL.
**
** " ACTION = 'U'
** " Fill the function codes in exclude table that you want to disable
**  GWA_EXCL-FUNCTION = 'ANZG'. " Function code for Change icon  ANZG AEND
**  APPEND GWA_EXCL TO GT_EXCL.
*
*
* " Fill the function codes in exclude table that you want to disable
*  GWA_EXCL-FUNCTION = 'SAVE'. " Function code for SAVE icon
*  APPEND GWA_EXCL TO GT_EXCL.