*----------------------------------------------------------------------*
*& 双击界面其中一行,创建一个新界面 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.
WRITE:/'|', 2 'ClassId','|', 10 'ClassName','|'.
LOOP AT it_tab1 INTO st_tab1.
WRITE:/'|', 6 st_tab1-zzclassid,
'|', 12 st_tab1-zzclassname INPUT ON, 20 '|'.
ENDLOOP.
WRITE :/ '|'.
ULINE 1(20).
ENDIF.