ABAP实现对变式的修改

有关变式的function group：SVAR
里面基本上包含了对变式的操作，下面有个例子可以完成对变式的修改
DATA I_VALUTAB LIKE RSPARAMS OCCURS 0 WITH HEADER LINE .
DATA I_OBJECTS LIKE VANZ OCCURS 0 WITH HEADER LINE .

*-〉获得变式的内容和属性，放到内表中
CALL FUNCTION 'RS_VARIANT_CONTENTS'
    EXPORTING
*----〉这里是程序的名字
      REPORT               = 'ZPP301'    "SE38下的程序名
*----〉这里是变式的名字
      VARIANT              = 'TEST'      "变式
    TABLES
*----〉变式的内容及属性的内表
      VALUTAB              = I_VALUTAB
      OBJECTS              = I_OBJECTS.
*----->然后可以修改变式内表中的字段的值来改变变式的值。
*----->让后修改变式的值
  CALL FUNCTION 'RS_CHANGE_CREATED_VARIANT'
    EXPORTING
      CURR_REPORT               = V_REPORT
      CURR_VARIANT              = V_VARIANT
      VARI_DESC                 = I_DESC
    TABLES
      VARI_CONTENTS             = I_VALUTAB
      OBJECTS                   = I_OBJECTS  .