problem with function module RS_VARIANT_CONTENTS

Hi all,

i´ve a problem by calling the FM RS_VARIANT_CONTENTS. Everytime I try to get the content of a variant the module crashes with the following dump:

Call (PERFORM) to a non-existent routine.

025730 INSERT SCREEN_PROGS INDEX L_TABIX.

025740

025750 read table f3progs_old with key

025760 table_line = p_prog

025770 binary search

025780 transporting no fields.

025790 l_tabix = sy-tabix.

025800 if sy-subrc ne 0.

025810 PERFORM %_INIT-MOVE IN PROGRAM (P_PROG). " ????

025820 endif.

> IF P_NEW_CALL EQ 'S' or flag_query_active eq 'A'.

025840 PERFORM INIT IN PROGRAM (SY-LDBPG) IF FOUND.

025850 ENDIF.

025860

025870 ENDFORM. " INIT_1_PROG

Thats the coding how I create the variant:

i_jvari_desc-report = sy-repid.

i_jvari_desc-variant = 'TESTING4'.

i_jvari_desc-ename = sy-uname.

i_jvari_desc-environmnt = 'A'.

i_jvari_desc-mlangu = 'N'.

ls_jvt-mandt = sy-mandt.

ls_jvt-report = sy-repid.

ls_jvt-variant = 'TESTING4'.

ls_jvt-langu = sy-langu.

ls_jvt-vtext = 'FUNCTION EXAMPLES'.

APPEND ls_jvt TO i_jvt.

ls_selpa-sign = ''.

ls_selpa-option = ''.

ls_selpa-kind = 'P'.

ls_selpa-selname = 'BRAND'.

ls_selpa-low = 'SL'.

APPEND ls_selpa TO i_selpa.

CALL FUNCTION 'RS_CREATE_VARIANT'

EXPORTING

curr_report = i_jvari_desc-report

curr_variant = 'TESTING4'

vari_desc = i_jvari_desc

TABLES

vari_contents = i_selpa

vari_text = i_jvt.

IF sy-subrc EQ 0.

ENDIF.

Could it be a problem that the dynpro is not a generated selection screen instead it is a normal dynrpo created with the screen painter. The parameter BRAND isn´t the only parameter on this screen. Do I´ve to pass all Paramters on the screen while creating a new variant? SY-REPID includes the name of a Function Pool!

Did anybody had the same or similar problem and can give me some hints how to solve it?

Thanks in advance,

Andy