range 实例（输出客户名和国家）

最新推荐文章于 2025-02-18 21:22:14 发布

liangziyisheng

最新推荐文章于 2025-02-18 21:22:14 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： 01 ABAP 基础

本文链接：https://blog.youkuaiyun.com/liangziyisheng/article/details/6322665

01 ABAP 基础专栏收录该内容

93 篇文章

订阅专栏

本文介绍了一个ABAP程序的设计，该程序通过用户界面接收输入参数，并基于这些参数从kna1表中筛选数据。筛选条件包括国家代码，支持德国（DE）、英国（GB）和美国（US）。数据按名称升序或降序排列，并显示名称和对应的国家代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

TABLES: kna1.
data: begin of gt_kna1 occurs 0,
      name1 type kna1-name1,
      land1 type kna1-land1,
      end of gt_kna1.
DATA: rab TYPE RANGE OF kna1-name1 WITH HEADER LINE,
      line LIKE LINE OF rab.

PARAMETERS: s_desc RADIOBUTTON GROUP gr1,
            s_asc RADIOBUTTON GROUP gr1,
            gmn AS CHECKBOX DEFAULT 'X',
            brt AS CHECKBOX DEFAULT 'X',
            amc AS CHECKBOX DEFAULT 'X'.
AT SELECTION-SCREEN.
  IF gmn <> 'X' AND brt <> 'X' AND amc <> 'X'.
    MESSAGE e001(00) WITH text-001.
  ENDIF.
DEFINE build_range.
  rab-sign = 'I'.
  rab-option = 'EQ'.
  rab-low = &1.
  append rab.
END-OF-DEFINITION.
IF gmn EQ 'X'.
  build_range 'DE'.
ENDIF.
IF brt EQ 'X'.
  build_range 'GB'.
ENDIF.
IF amc EQ 'X'.
  build_range 'US'.
ENDIF.

START-OF-SELECTION.
  PERFORM F_GET_data tables gt_kna1 rab.
  perform f_display_data tables gt_kna1 using s_desc s_asc.
end-of-selection.

form F_GET_DATA  tables   p_kna1 structure gt_kna1
                            "Insert correct name for <...>
                          p_rab structure rab.
  select name1 land1
    into corresponding fields of table p_kna1
    from kna1
    where land1 in p_rab.
  IF sy-subrc <> 0.
    message i002(00) with text-002.
    stop.
  ENDIF.
endform.                    " F_GET_DATA

form F_DISPLAY_DATA  tables   p_gt_kna1 structure gt_kna1
                                "Insert correct name for <...>
                     using    p_s_desc
                              p_s_asc.
IF p_s_desc eq 'X'.
  sort p_gt_kna1 by name1 descending.
else.
  sort p_gt_kna1 by name1 ascending.
ENDIF.
LOOP AT p_gt_kna1.
  write:/ p_gt_kna1-name1, p_gt_kna1-land1.
ENDLOOP.

endform.                    " F_DISPLAY_DATA