1、函数'G_SET_GET_ALL_VALUES'使用 实例
DATA: t_set_values TYPE TABLE OF rgsb4.
DATA: wa_set_values LIKE LINE OF t_set_values.
ranges:zhkont for ska1-saknr occurs 1.
CALL FUNCTION 'G_SET_GET_ALL_VALUES'
EXPORTING
client = sy-mandt
setnr = 'ZHKONT01'
table = 'SKA1'
class = '0000'
fieldname = 'SAKNR'
TABLES
set_values = t_set_values
EXCEPTIONS
set_not_found = 1
OTHERS = 2.
zhkont-sign = 'I'.
zhkont-option = 'BT'.
LOOP AT t_set_values INTO wa_set_values.
zhkont-low = wa_set_values-FROM.
zhkont-high = wa_set_values-to.
append zhkont.
ENDLOOP.
2、函数'G_SET_FETCH'
CONSTANTS: c_cls_0106 TYPE rgsbs-class VALUE '0106'.
DATA: l_wa_set_lines_basic TYPE rgsbv,
l_wa_hdr TYPE rgsbs,
l_i_for_lin TYPE STANDARD TABLE OF rgsbf,
l_i_set_lines_basic TYPE STANDARD TABLE OF rgsbv,
l_i_set_lines_data TYPE STANDARD TABLE OF rgsb3,
l_i_set_lines_multi TYPE STANDARD TABLE OF rgsb2,
l_i_set_lines_single TYPE STANDARD TABLE OF rgsb1.
DATA: l_v_setnr TYPE char50.
PARAMETERS: p_PCGRP type PCGRP, " Profit Centre Group
p_kokrs type kokrs. " Controlling Area
CONCATENATE p_kokrs p_pcgrp INTO l_v_setnr.
*-- Get the Set description
CALL FUNCTION 'G_SET_FETCH'
EXPORTING
class = c_cls_0106
setnr = 'ZKOSTL'
IMPORTING
set_header = l_wa_hdr
TABLES
formula_lines = l_i_for_lin
set_lines_basic = l_i_set_lines_basic
set_lines_data = l_i_set_lines_data
set_lines_multi = l_i_set_lines_multi
set_lines_single = l_i_set_lines_single
EXCEPTIONS
no_authority = 1
set_is_broken = 2
set_not_found = 3
OTHERS = 4.