GS01创建信息集及其他GROUP在ABAP程序中的调用方法

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.