Make your own free website on Tripod.com
SAP ABAP Programming, Functional and Basis Components Books


*
*  Author by  : SAP Hints and Tips on Configuration and ABAP/4 Programming
*                http://sapr3.tripod.com
*
*  Drawing Graph with ABAP
*
REPORT ZGRAPH .

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.

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.