ABAP图形开发

来源：互联网发布：php学费多少编辑：程序博客网时间：2024/06/06 19:51

本程序转自别人的，然后有些许改动：

*&---------------------------------------------------------------------*
*& Report ZTEST_22
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTEST_22.
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   = 'Utility Expenses inUS$.'
TABLES
    DATA   = ITAB_DATA
    OPTS   = ITAB_OPTIONS
EXCEPTIONS
    OTHERS =1.