*& Demo Program for ABAPers

* Sreeni Meka's Graphic Display

REPORT ZGRAPH.

DATA: BEGIN OF TAB OCCURS 5,

CLASS(12) TYPE C,

VAL1(2) TYPE I,

VAL2(2) TYPE I,

VAL3(2) TYPE I,

END OF TAB.

DATA: BEGIN OF OPTTAB OCCURS 1,

C(20),

END OF OPTTAB.

MOVE: 'MAGAZINES' TO TAB-CLASS,

12 TO TAB-VAL1, 8 TO TAB-VAL2, 15 TO TAB-VAL3.

APPEND TAB.

CLEAR TAB.

MOVE: 'NEWS PAPERS' TO TAB-CLASS,

15 TO TAB-VAL1, 10 TO TAB-VAL2, 18 TO TAB-VAL3.

APPEND TAB.

CLEAR TAB.

MOVE: 'NOVELS' TO TAB-CLASS,

17 TO TAB-VAL1, 11 TO TAB-VAL2, 20 TO TAB-VAL3.

APPEND TAB.

CLEAR TAB.

OPTTAB = 'FIFRST = 3D'. APPEND OPTTAB.

OPTTAB = 'P3TYPE = TO'. APPEND OPTTAB.

OPTTAB = 'P3CTYP = RO'. APPEND OPTTAB.

OPTTAB = 'TISIZE = 2'. APPEND OPTTAB.

OPTTAB = 'CLBACK = X'. APPEND OPTTAB. "// Background Color

CALL FUNCTION 'GRAPH_MATRIX_3D'

EXPORTING

* AUTO_CMD_1 = ' '

* AUTO_CMD_2 = ' '

COL1 = '1997'

COL2 = '1998'

COL3 = '1999'

* COL4 = ' '

* COL5 = ' '

* COL6 = ' '

DIM2 = 'Products'

DIM1 = 'Years'

* INBUF = ' '

* INFORM = ' '

* MAIL_ALLOW = ' '

* PWDID = ' '

* SET_FOCUS = 'x'

* SMFONT = ' '

* SO_CONTENTS = ' '

* SO_RECEIVER = ' '

* SO_SEND = ' '

* SO_TITLE = ' '

* STAT = ' '

* SUPER = ' '

* TIMER = ' '

TITL = 'Sales in Millions ($)'

* VALT = ' '

* WDID = ' '

* WINID = ' '

* WINPOS = ' '

* WINSZX = '50'

* WINSZY = '50'

* X_OPT = ' '

* NOTIFY = ' '

* importing

* b_key =

* b_typ =

* cua_id =

* mod_col =

* mod_row =

* mod_val =

* m_typ =

* ** rbuff =

* rwnid =

TABLES

DATA = TAB

OPTS = OPTTAB

EXCEPTIONS

OTHERS = 1.

LEAVE PROGRAM.