Calling SAP Business Graphics, Without Dialog 

PROGRAM G_BUSG_1.

*------------------------------------------------------------*

* *

*------------------------------------------------------------*

* This program illustrates a call to SAP Business Graphics. *

* *

* Each row in the DATA table contains one text label and a *

* single numeric value. *

*------------------------------------------------------------*

DATA: BEGIN OF DATA OCCURS 1,

TEXT(25),

VALUE TYPE P,

END OF DATA.

DATA: TCOL1(5) VALUE '#1991'.

DATA: TITLE(25) VALUE 'Sales'.

SET PF-STATUS 'GRAF'.

DATA-TEXT = 'Product_1'.

DATA-VALUE = 153470.

APPEND DATA.

DATA-TEXT = 'Product_2'.

DATA-VALUE = 253150.

APPEND DATA.

DATA-TEXT = 'Product_3'.

DATA-VALUE = 53470.

APPEND DATA.

DATA-TEXT = 'Product_4'.

DATA-VALUE = 182000.

APPEND DATA.

DATA-TEXT = 'Product_5'.

DATA-VALUE = 92410.

APPEND DATA.

WRITE: / 'Products',22 TCOL1.

SKIP 2.

LOOP AT DATA.

WRITE: / DATA-TEXT, 12 DATA-VALUE.

ENDLOOP.

*------------------------------------------------------------*

* PF11: Put out a 2D graphic *

*------------------------------------------------------------*

AT PF11.

CALL FUNCTION 'GRAPH_2D' EXPORTING TITL = TITLE

TABLES DATA = DATA.