Displaying 3D Graphs in ABAP

By Swarna S, Tata Consultancy Services

*Simple report to create graph in ABAP
*using GRAPH_MATRIX_3D function module
*The graph shows the performance of 3 companies for the Four
*quarters of a single year
*AUTHOR : Swarna.S.
REPORT Z_3DGRAPH.
*structure declaration for performance measurement
TYPES: BEGIN OF ty_performance,
      company(15) TYPE c,
      q1 TYPE i,
      q2 TYPE i,
      q3 type i,
      q4 type i,
      END OF ty_performance.
*structure declaration for options table
types : BEGIN OF ty_opttable,
        options(30) TYPE c,
        END OF ty_opttable.
*Internal table and work area declarations
DATA: it_performance TYPE STANDARD TABLE OF ty_performance,
      wa_performance TYPE ty_performance.
DATA : it_opttable type standard table of ty_opttable,
       wa_opttable type ty_opttable.
*initialization event
INITIALIZATION.
*start of selection event
START-OF-SELECTION.
*clearing the work areas
CLEAR WA_PERFORMANCE.
CLEAR wa_opttable.
*appending values into the performance internal table
wa_performance-company = 'Company A'.
wa_performance-q1      = 78.
wa_performance-q2      = 68.
wa_performance-q3      = 79.
wa_performance-q4      = 80.
append wa_performance to it_performance.
wa_performance-company = 'Company B'.
wa_performance-q1      = 48.
wa_performance-q2      = 68.
wa_performance-q3      = 69.
wa_performance-q4      = 70.
append wa_performance to it_performance.
wa_performance-company = 'Company C'.
wa_performance-q1      = 78.
wa_performance-q2      = 48.
wa_performance-q3      = 79.
wa_performance-q4      = 85.
append wa_performance to it_performance.
*appending values into the options internal table
wa_opttable-options = 'P3TYPE = TO'.
APPEND wa_opttable TO it_opttable.
wa_opttable-options = 'P2TYPE = VB'.
APPEND wa_opttable TO it_opttable.
wa_opttable-options = 'TISIZE = 1'.
APPEND wa_opttable TO it_opttable.
*calling the graph function module
  CALL FUNCTION 'GRAPH_MATRIX_3D'
    EXPORTING
      col1      = 'Quarter 1'
      col2      = 'Quarter 2'
      col3      = 'Quarter 3'
      col4      = 'Quarter 4'
       dim1      = 'In Percentage%'
      set_focus = 'X'
      titl      = 'Company Performances'
    TABLES
      data      = it_performance
      opts      = it_opttable
    EXCEPTIONS
      others    = 1.

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image