Dynamic perform

Question

Dear all,
I wanted to create a dynamic perform. Here I will show u an example
      PERFORM get_correct_umlaut TABLES lt_bkpf.
      PERFORM get_correct_umlaut TABLES lt_bseg.
      PERFORM get_correct_umlaut TABLES lt_vbak.
form get_correct_umlaut TABLES pt_any_table TYPE ANY TABLE.
endform.                    " get_correct_umlaut
I have a syntax error.  What is the right way to define a dynamic PERFORM like this???

Answer 1

Hi,
According to what you wrote, I suppose you want to achieve only quasi-dynamic procedure, since you are differentiating the type with case in your Form..
Thus, I think that following approach will satisfy your requirements:
  DATA: it_mseg TYPE TABLE OF mseg,
        it_mkpf TYPE TABLE OF mkpf.
  SELECT *
    FROM mseg
    INTO TABLE it_mseg
    UP TO 100 ROWS.
  SELECT *
    FROM mkpf
    INTO TABLE it_mkpf
    UP TO 90 ROWS.
  PERFORM do_sth TABLES it_mseg.
  PERFORM do_sth TABLES it_mkpf.
*&      Form  DO_STH
FORM do_sth  TABLES   local_itab TYPE table.
  DATA: r_type TYPE REF TO cl_abap_structdescr,
        type_name TYPE string.
  FIELD-SYMBOLS: <mseg> TYPE mseg,
                 <mkpf> TYPE mkpf.
  r_type ?= cl_abap_typedescr=>describe_by_data( local_itab ).
  CALL METHOD r_type->get_relative_name
    RECEIVING  p_relative_name = type_name.
  CASE type_name.
    WHEN 'MKPF'.
      LOOP AT local_itab ASSIGNING <mkpf>.
        IF <mkpf>-budat EQ '20090101'. "just an example
*         some calculations...          
        ENDIF.
      ENDLOOP.
    WHEN 'MSEG'.
      LOOP AT local_itab ASSIGNING <mseg>.
        IF <mseg>-menge GT '1000'. "just an example
*         some calculations...          
        ENDIF.
      ENDLOOP.
    WHEN OTHERS.
* skip
  ENDCASE.
ENDFORM.                    " DO_STH
Regards,
MC
Edited by: Marcin Cudo on Apr 21, 2010 12:43 PM