柱状图

来源：互联网发布：jenkins for mac 安装编辑：程序博客网时间：2024/04/28 06:23

*&---------------------------------------------------------------------*
*& Report  ZTEST_GRAPHIC
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_GRAPHIC.
DATA: BEGIN OF ITAB_DATA OCCURS 0,

DATANAME(15),

QUANTITY1 TYPE I,

QUANTITY2 TYPE I,

QUANTITY3 TYPE I,

END OF ITAB_DATA,

BEGIN OF ITAB_OPTIONS OCCURS 0,

OPTION(20),

END OF ITAB_OPTIONS.

ITAB_DATA-DATANAME = 'Electricity'.

ITAB_DATA-QUANTITY1 = 55.

ITAB_DATA-QUANTITY2 = 62.

ITAB_DATA-QUANTITY3 = 59.

APPEND ITAB_DATA.

ITAB_DATA-DATANAME = 'Gas'.

ITAB_DATA-QUANTITY1 = 35.

ITAB_DATA-QUANTITY2 = 52.

ITAB_DATA-QUANTITY3 = 44.

APPEND ITAB_DATA.

ITAB_DATA-DATANAME = 'Water'.

ITAB_DATA-QUANTITY1 = 18.

ITAB_DATA-QUANTITY2 = 22.

ITAB_DATA-QUANTITY3 = 19.

APPEND ITAB_DATA.

*ITAB_OPTIONS-OPTION = 'P2TYPE = LN'. "加这两句就将柱状图变成折线图输出
*APPEND ITAB_OPTIONS.

CALL FUNCTION 'GRAPH_MATRIX_3D'
  EXPORTING
    COL1   = 'Jan'
    COL2   = 'Feb'
    COL3   = 'Mar'
    TITL   = '中国石化'
  TABLES
    DATA   = ITAB_DATA
    OPTS   = ITAB_OPTIONS
  EXCEPTIONS
    OTHERS = 1.