abap 维护表视图

*&---------------------------------------------------------------------*
*& Report  ZHR_PXJS_001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZHR_PXJS_001.
type-pools : tpit.
include:zsy_xy_tcus.
tables: ZPXDJ.
***********选择屏幕
*selection-screen begin of block b01 with frame  title text-001.
*
* parameters:            manual   as checkbox default 'X'.
*selection-screen end of block b01.
*
*start-of-selection.

    perform sub_manual_db .


*---------------------------------------------------------------------*
*&      Form  sub_manual_db
*&---------------------------------------------------------------------*
*       text  维护表视图，可以调用该方法
*----------------------------------------------------------------------*
form sub_manual_db .
  call function 'VIEW_MAINTENANCE_CALL'
    exporting
      action         = 'U'
      view_name      = 'ZPXDJ' " 维护的表名称
    exceptions
      foreign_lock   = 2
      no_tvdir_entry = 8.
endform.                    "sub_manual_db

**----------------------------------------------------------------------*