DATA:f_picture TYPE REF TO cl_gui_picture,
r_picture TYPE REF TO cl_gui_picture,
z_picture TYPE REF TO cl_gui_picture,
y_picture TYPE REF TO cl_gui_picture.
DATA: f_container TYPE REF TO cl_gui_custom_container,
r_container TYPE REF TO cl_gui_custom_container,
y_container TYPE REF TO cl_gui_custom_container,
z_container TYPE REF TO cl_gui_custom_container.
DATA:f_url TYPE cndp_url,
r_url TYPE cndp_url,
z_url TYPE cndp_url,
y_url TYPE cndp_url.
DATA:stock_url(20) TYPE c.
DATAk_code LIKE sy-ucomm.
DATA :
ls_layout TYPE slis_layout_alv,
lt_sort TYPE slis_t_sortinfo_alv,
ls_sort TYPE slis_sortinfo_alv,
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.
*-----------------------*
* ALV SYSTEM VARIABLES *
*-----------------------*
DATA: fieldtab TYPE slis_t_fieldcat_alv,
wa_fieldtab TYPE LINE OF slis_t_fieldcat_alv,
heading TYPE slis_t_listheader,
layout TYPE slis_layout_alv,
events TYPE slis_t_event,
excluding TYPE slis_t_extab,
filter TYPE slis_t_filter_alv,
repname LIKE sy-repid VALUE sy-repid,
f2code LIKE sy-ucomm VALUE '&ETA',
g_save TYPE c,
g_exit TYPE c,
g_variant LIKE disvariant,
gx_variant LIKE disvariant.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
<dyn_wa> ,
<dyn_field>.
DATA: dy_table TYPE REF TO data,
dy_line TYPE REF TO data,
xfc TYPE lvc_s_fcat,
ifc TYPE lvc_t_fcat.
DATA: num(6) TYPE c.
DATA: BEGIN OF wa_num,
num(6) TYPE c,
END OF wa_num.
DATA: BEGIN OF wa_lin,
str TYPE string,
END OF wa_lin.
DATA: it_num LIKE TABLE OF wa_num WITH HEADER LINE,
it_res LIKE TABLE OF wa_lin WITH HEADER LINE.
DATA: tmp_num(6) TYPE n,
idx TYPE i,
idx_tmp TYPE i.
TYPES: BEGIN OF ty_list,
fl(30),
END OF ty_list.
DATA: it_list TYPE TABLE OF ty_list WITH HEADER LINE.
TYPES: BEGIN OF ty_sina_live,
sname TYPE char20,"股票名字
topen TYPE char20,"今日开盘价
yclose TYPE char20,"昨日收盘价;
cprice TYPE char20,"当前价格;
thigh TYPE char20,"当日最高价
tlow TYPE char20,"今日最低价
buy TYPE char20,"竞买价,即“买一”报价;
sale TYPE char20,"竞卖价,即“卖一”报价;
number TYPE char20,"成交的股票数
buy11 TYPE char20,"买一,数量
buy12 TYPE char20,"买一,报价
buy21 TYPE char20,"买二,数量
buy22 TYPE char20,"买二,报价
buy31 TYPE char20,"买三,数量
buy32 TYPE char20,"买三,报价
buy41 TYPE char20,"买四,数量
buy42 TYPE char20,"买四,报价
buy51 TYPE char20,"买五,数量
buy52 TYPE char20,"买五,报价
sale11 type char20,"卖一,数量
sale12 type char20,"卖一,报价
sale21 type char20,"卖二,数量
sale22 type char20,"卖二,报价
sale31 type char20,"卖三,数量
sale32 type char20,"卖三,报价
sale41 type char20,"卖四,数量
sale42 type char20,"卖四,报价
sale51 type char20,"卖五,数量
sale52 type char20,"卖五,报价
date type char20,"日期
time type char20,"时间
END OF ty_sina_live.
*----------------------------------------------------------------------*
* CLASS lcl_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
handle_finished FOR EVENT finished OF cl_gui_timer.
ENDCLASS. "lcl_receiver DEFINITION