*----------------------------------------------------------------------*
*& 双击界面其中一行,创建一个新界面 at line-selection 事件中
*----------------------------------------------------------------------*
DESCRIBE TABLE it_tab LINES gi_lines.
DO Gi_Lines TIMES.
sy-index = sy-index + 2.
READ LINE sy-index :
FIELD VALUE ckbox INTO ckbox1,
FIELD VALUE st_tab-zzclassid INTO st_tab1-zzclassid,
FIELD VALUE st_tab-zzclassname INTO st_tab1-zzclassname.
* CHECK ckbox1 = 'X'.
APPEND st_tab1 TO it_tab1.
ENDDO.
WINDOW STARTING AT 30 10
ENDING AT 60 30.
* OTHER " Need Create screen '9000'.
* call screen '9000'
* STARTING AT 30 10
* ENDING AT 60 30.