1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH041
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh042.
10 
11 DATA: BEGIN OF data OCCURS 1,
12         text(25),
13         value1 TYPE p,
14         value2 TYPE p,
15         value3 TYPE p,
16         value4 TYPE p,
17       END OF data.
18 
19 
20 PERFORM frm_get_data.
21 PERFORM frm_show_data.
22 
23 
24 *&---------------------------------------------------------------------*
25 *&      Form  FRM_GET_DATA
26 *&---------------------------------------------------------------------*
27 *       text
28 *----------------------------------------------------------------------*
29 *  -->  p1        text
30 *  <--  p2        text
31 *----------------------------------------------------------------------*
32 FORM frm_get_data .
33   data-text = '苹果'.
34   data-value1 = 11111.
35   data-value2 = 12345.
36   data-value3 = 15678.
37   data-value4 = 19876.
38   APPEND data.
39 
40   data-text = '华为'.
41   data-value1 = 22222.
42   data-value2 = 23456.
43   data-value3 = 26789.
44   data-value4 = 29876.
45   APPEND data.
46 
47   data-text = '小米'.
48   data-value1 = 33333.
49   data-value2 = 34567.
50   data-value3 = 36789.
51   data-value4 = 39876.
52   APPEND data.
53 
54   data-text = '魅族'.
55   data-value1 = 54321.
56   data-value2 = 55555.
57   data-value3 = 56789.
58   data-value4 = 59876.
59   APPEND data.
60 
61   data-text = '联想'.
62   data-value1 = 67890.
63   data-value2 = 66666.
64   data-value3 = 65432.
65   data-value4 = 61234.
66   APPEND data.
67 ENDFORM.                    " FRM_GET_DATA
68 *&---------------------------------------------------------------------*
69 *&      Form  FRM_SHOW_DATA
70 *&---------------------------------------------------------------------*
71 *       text
72 *----------------------------------------------------------------------*
73 *  -->  p1        text
74 *  <--  p2        text
75 *----------------------------------------------------------------------*
76 FORM frm_show_data .
77   CALL FUNCTION 'GRAPH_3D'
78     EXPORTING
79       dim1       = '手机品牌'
80       dim2       = '月销量'
81       mail_allow = 'X'
82       titl       = '国产手机五大厂商手机销量对比'
83     TABLES
84       data       = data.
85 ENDFORM.                    " FRM_SHOW_DATA

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZCHENH041
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 
 9 REPORT zchenh041.
10 
11 DATA: BEGIN OF data OCCURS 1,
12         text(25),
13         value TYPE p,
14       END OF data.
15 
16 
17 PERFORM frm_get_data.
18 PERFORM frm_show_data.
19 
20 
21 *&---------------------------------------------------------------------*
22 *&      Form  FRM_GET_DATA
23 *&---------------------------------------------------------------------*
24 *       text
25 *----------------------------------------------------------------------*
26 *  -->  p1        text
27 *  <--  p2        text
28 *----------------------------------------------------------------------*
29 FORM frm_get_data .
30   data-text = '苹果'.
31   data-value = 12345.
32   APPEND data.
33 
34   data-text = '华为'.
35   data-value = 22222.
36   APPEND data.
37 
38   data-text = '小米'.
39   data-value = 11111.
40   APPEND data.
41 
42   data-text = '魅族'.
43   data-value = 54321.
44   APPEND data.
45 
46   data-text = '联想'.
47   data-value = 63625.
48   APPEND data.
49 ENDFORM.                    " FRM_GET_DATA
50 *&---------------------------------------------------------------------*
51 *&      Form  FRM_SHOW_DATA
52 *&---------------------------------------------------------------------*
53 *       text
54 *----------------------------------------------------------------------*
55 *  -->  p1        text
56 *  <--  p2        text
57 *----------------------------------------------------------------------*
58 FORM frm_show_data .
59   CALL FUNCTION 'GRAPH_2D'
60     EXPORTING
61       mail_allow = 'X'
62       so_title   = '标题'
63       titl       = '2D标题'
64       valt       = '手机月销量（中国大陆）'
65       winszx     = '60'
66       winszy     = '50'
67     TABLES
68       data       = data.
69 ENDFORM.                    " FRM_SHOW_DATA