创建对话框．

*----------------------------------------------------------------------*
*&   双击界面其中一行，创建一个新界面   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.