关闭

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

1681人阅读 评论(0) 收藏 举报
分类:

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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:3158126次
    • 积分:51020
    • 等级:
    • 排名:第57名
    • 原创:1895篇
    • 转载:2447篇
    • 译文:101篇
    • 评论:253条
    博客专栏
    最新评论
    微信公众号
      为你推荐最新的博文~更有惊喜等着你