用程序把sm30维护视图做成程序调用维护

REPORT  ZBSDG004.

  CALL FUNCTION 'VIEW_MAINTENANCE_CALL'

    EXPORTING

      action                       = 'S'

      view_name                    = 'ZBST_YHLX'

*    TABLES

*      dba_sellist                  = t_vimsellist

    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.