SAP 图形页面

　　话不多说，先上炫图。

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH041
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT zchenh042.

 DATA: BEGIN OF data OCCURS ,
         text(),
         value1 TYPE p,
         value2 TYPE p,
         value3 TYPE p,
         value4 TYPE p,
       END OF data.

 PERFORM frm_get_data.
 PERFORM frm_show_data.

 *&---------------------------------------------------------------------*
 *&      Form  FRM_GET_DATA
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_get_data .
   data-text = '苹果'.
   data-value1 = .
   data-value2 = .
   data-value3 = .
   data-value4 = .
   APPEND data.

   data-text = '华为'.
   data-value1 = .
   data-value2 = .
   data-value3 = .
   data-value4 = .
   APPEND data.

   data-text = '小米'.
   data-value1 = .
   data-value2 = .
   data-value3 = .
   data-value4 = .
   APPEND data.

   data-text = '魅族'.
   data-value1 = .
   data-value2 = .
   data-value3 = .
   data-value4 = .
   APPEND data.

   data-text = '联想'.
   data-value1 = .
   data-value2 = .
   data-value3 = .
   data-value4 = .
   APPEND data.
 ENDFORM.                    " FRM_GET_DATA
 *&---------------------------------------------------------------------*
 *&      Form  FRM_SHOW_DATA
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_show_data .
   CALL FUNCTION 'GRAPH_3D'
     EXPORTING
       dim1       = '手机品牌'
       dim2       = '月销量'
       mail_allow = 'X'
       titl       = '国产手机五大厂商手机销量对比'
     TABLES
       data       = data.
 ENDFORM.                    " FRM_SHOW_DATA

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH041
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT zchenh041.

 DATA: BEGIN OF data OCCURS ,
         text(),
         value TYPE p,
       END OF data.

 PERFORM frm_get_data.
 PERFORM frm_show_data.

 *&---------------------------------------------------------------------*
 *&      Form  FRM_GET_DATA
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_get_data .
   data-text = '苹果'.
   data-value = .
   APPEND data.

   data-text = '华为'.
   data-value = .
   APPEND data.

   data-text = '小米'.
   data-value = .
   APPEND data.

   data-text = '魅族'.
   data-value = .
   APPEND data.

   data-text = '联想'.
   data-value = .
   APPEND data.
 ENDFORM.                    " FRM_GET_DATA
 *&---------------------------------------------------------------------*
 *&      Form  FRM_SHOW_DATA
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_show_data .
   CALL FUNCTION 'GRAPH_2D'
     EXPORTING
       mail_allow = 'X'
       so_title   = '标题'
       titl       = '2D标题'
       valt       = '手机月销量（中国大陆）'
       winszx     = ''
       winszy     = ''
     TABLES
       data       = data.
 ENDFORM.                    " FRM_SHOW_DATA