Graph in ABAP

[Former Member]

Hi,

Is it possible to display 3 curves in a single graph? If so please let me know how it can be done.

[Former Member]

You can get lot of examples related to 2D and 3D graphs using GRAL transaction.

[Former Member]

Hi

You can check the FM: GRAPH_2D, GRAPH_3D and Graph_4D...

Regards

shiva

[GauthamV]

You can get lot of examples related to 2D and 3D graphs using GRAL transaction.

[Former Member]

Hi Gautham,

It was a very useful Tcode. Thank you.

[Former Member]

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 = 'Rice'.
ITAB_DATA-QUANTITY1 = 55.
ITAB_DATA-QUANTITY2 = 62.
ITAB_DATA-QUANTITY3 = 59.
APPEND ITAB_DATA.

ITAB_DATA-DATANAME = 'Wheat'.
ITAB_DATA-QUANTITY1 = 35.
ITAB_DATA-QUANTITY2 = 52.
ITAB_DATA-QUANTITY3 = 44.
APPEND ITAB_DATA.

ITAB_DATA-DATANAME = 'Sugar'.
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 = 'Quantity Consumed In KG.'
TABLES
DATA = ITAB_DATA
OPTS = ITAB_OPTIONS
EXCEPTIONS
OTHERS = 1.

[Former Member]

REPORT  Z_INVOICE_GRAPH.

TABLES : VBRK.

DATA : BEGIN OF INV OCCURS 0,
       VBELN LIKE VBRK-VBELN,
       FKDAT LIKE VBRK-FKDAT,
       END OF INV.

DATA : BEGIN OF ITAB_OPTIONS OCCURS 0,
       OPTION(20),
       END OF ITAB_OPTIONS.

DATA : BEGIN OF G OCCURS 0,
       IN(10) TYPE C,
       J TYPE I,
       F TYPE I,
       M TYPE I,
       A TYPE I,
       MA  TYPE I,
       JU TYPE I,
       END OF G.

DATA : MONTH(2) TYPE N,
       ST(50) TYPE C.

SELECT-OPTIONS S_FKDAT FOR VBRK-FKDAT NO-DISPLAY.


INITIALIZATION.
S_FKDAT-LOW = '19970101'.
S_FKDAT-HIGH = '19970631'.
S_FKDAT-SIGN = 'I'.
S_FKDAT-OPTION = 'BT'.
APPEND S_FKDAT.


START-OF-SELECTION.

SELECT VBELN
       FKDAT FROM VBRK INTO TABLE INV WHERE FKDAT IN S_FKDAT.

CONCATENATE 'No of Invoice Per Month in Year ' S_FKDAT-LOW+0(4) INTO ST.


G-IN = 'No of Invoice'.

LOOP AT INV.
  MONTH = INV-FKDAT+4(2).

  IF MONTH = '01'.
    G-J = G-J + 1.
  ELSEIF MONTH = '02'.
    G-F = G-F + 1.
  ELSEIF MONTH = '03'.
     G-M = G-M + 1.
  ELSEIF MONTH = '04'.
     G-A = G-A + 1.
  ELSEIF MONTH = '05'.
     G-MA = G-MA + 1.
  ELSEIF MONTH = '06'.
     G-JU = G-JU + 1.
  ENDIF.
ENDLOOP.

APPEND G.

CALL FUNCTION 'GRAPH_MATRIX_3D'
   EXPORTING
*     AUTO_CMD_1        = ' '
*     AUTO_CMD_2        = ' '
     COL1              = 'JAN'
     COL2              = 'FEB'
     COL3              = 'MAR'
     COL4              = 'APR'
     COL5              = 'MAY'
     COL6              = 'JUN'
*     DIM1              = ST
*     DIM2              = ST
*     INBUF             = ' '
*     INFORM            = ' '
*     MAIL_ALLOW        = ' '
*     PWDID             = ' '
*     SET_FOCUS         = 'x'
*     SMFONT            = ''
*     SO_CONTENTS       = ' '
*     SO_RECEIVER       = ' '
*     SO_SEND           = ' '
*     SO_TITLE          = ' '
*     STAT              = ' '
*     SUPER             = ' '
*     TIMER             = ' '
     TITL              = ST
     VALT              = 'No'
*     WDID              = ' '
*     WINID             = ' '
     WINPOS            = '5'
     WINSZX            = '90'
     WINSZY            = '90'
*     X_OPT             = ' '
*     NOTIFY            = ' '
*   IMPORTING
*     B_KEY             =
*     B_TYP             =
*     CUA_ID            =
*     MOD_COL           =
*     MOD_ROW           =
*     MOD_VAL           =
*     M_TYP             =
*     RBUFF             =
*     RWNID             =
    TABLES
      DATA              = G
      OPTS              = ITAB_OPTIONS
            .