图形开发

*&---------------------------------------------------------------------*
*& Report  Z_PICTURE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_PICTURE.
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 in US$.'
  TABLES
    DATA   = ITAB_DATA
    OPTS   = ITAB_OPTIONS
  EXCEPTIONS
    OTHERS = 1.