SAP-Präsentationsgrafik ohne Dialog aufrufen
Das folgende ABAP-Programm veranschaulicht den Aufruf des Funktionsbausteins GRAPH_2D.. Es erlaubt keinen Benutzerdialog.
PROGRAM G_BUSG_1.
*------------------------------------------------------------*
* *
*------------------------------------------------------------*
* Dieses Programm zeigt einen Aufruf des *
* SAP-Präsentationsgrafikprogramms. *
* *
* Jede Zeile in der DATA-Tabelle enthält eine Beschriftung *
* und einen einzelnen numerischen Wert. *
*------------------------------------------------------------*
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.
*------------------------------------------------------------*
* F11: Ausgabe eines 2D-Diagramms *
*------------------------------------------------------------*
AT PF11.
CALL FUNCTION 'GRAPH_2D' EXPORTING TITL = TITLE
TABLES DATA = DATA.