表维护(Table maintenance)的Event例程

关键词:SM30，表维护，Table Maintenance，events，event AA:Instead of the standard data read routine

 

 

FORM form_aa. "Instead of the standard data read routine
  PERFORM vim_fill_wheretab.
  CLEAR:total,total[].

 

  SELECT * FROM ztest001 WHERE (vim_wheretab) .
    CHECK ztest001-matnr = 'BARRY-TEST'.
    = ztest001.
    APPEND total.
  ENDSELECT.

 

  SORT total BY .
  -alr_sorted = 'R'.

  IF x_header-selection NE space.
    PERFORM check_dynamic_select_options.
  ELSEIF x_header-delmdtflag NE space.
    PERFORM build_mainkey_tab.
  ENDIF.
  REFRESH extract.
ENDFORM.                    "form_aa

 

FORM form_05. "Creating a new entry
  SELECT SINGLE ktext INTO zrggbs000_mv-ktext
    FROM cepct
    WHERE spras = sy-langu AND
          prctr = zrggbs000_mv-prctr AND
          datbi > sy-datum.
ENDFORM.