ABAP-获取变式内容函数

 1 DATA gt_valutab TYPE STANDARD TABLE OF rsparams.
 2 CALL FUNCTION 'RS_VARIANT_CONTENTS'
 3   EXPORTING
 4     report               = 'Y4_B4_TEST' "程序名
 5     variant              = '11'         "变式名
 6 *   MOVE_OR_WRITE        = 'W'
 7 *   NO_IMPORT            = ' '
 8 *   EXECUTE_DIRECT       = ' '
 9 * IMPORTING
10 *   SP                   =
11   TABLES
12 *   L_PARAMS             =
13 *   L_PARAMS_NONV        =
14 *   L_SELOP              =
15 *   L_SELOP_NONV         =
16     valutab              = gt_valutab
17 *   VALUTABL             =
18 *   OBJECTS              =
19 *   FREE_SELECTIONS_DESC =
20 *   FREE_SELECTIONS_VALUE       =
21 *   FREE_SELECTIONS_OBJ  =
22   EXCEPTIONS
23     variant_non_existent = 1
24     variant_obsolete     = 2
25     OTHERS               = 3.
26 IF sy-subrc <> 0.
27 * Implement suitable error handling here
28 ENDIF.
posted @ 2022-06-22 15:06  TigerMan  阅读(226)  评论(0编辑  收藏  举报