原文：http://blog.csdn.net/lijunhai/article/details/1968814
box_alv type
ref to cl_gui_alv_grid.
public section.
class-methods:
method on_close.
call method
sender->free.
free: box_container, box_alv.
endmethod.
create
object box_container
exporting
width =
600
"窗口大小
height = 200
top
= 120
left =
120
caption = '提示信息' "弹出窗口标题
exceptions
others = 1.
create object box_alv
exporting
i_parent
= box_container
exceptions
others
= 1.
exporting
i_structure_name
= 'ZSTAB' "输出格式对应的结构
changing
ct_fieldcat
= lt_fieldcat "ALV的fieldcat属性内表
exceptions
inconsistent_interface
= 1
program_error
= 2
others
= 3.
"写入fieldcat的属性
ls_fcat-icon = 'X'.
...
modify lt_fieldcat from
ls_fcat.
exporting
i_structure_name
= 'ZBGER' "输出格式对应的结构
is_layout
= ls_layout "layout属性
i_default
= 'X'
changing
it_outtab
= itab "内表
it_fieldcatalog
= lt_fieldcat "fieldcat属性
exceptions
others
= 1.
modiule frm_write_out.
在系统标准程序下，有不少屏幕在检查或过帐时会弹出一个小型的ALV窗口，上面记录着错误信息，这种ALV弹出式窗口可通过以下方法做成：
（1）定义ALVBOX
data:box_container type ref
to cl_gui_dialogbox_container,
class lcl_event_handler definition.
on_close for event close of cl_gui_dialogbox_container importing
sender.
endclass.
class lcl_event_handler implementation.
endclass.
data: ls_fcat type
lvc_s_fcat., "ALV的fieldcat属性行
lt_fieldcat type lvc_t_fcat. "ALV的fieldcat属性内表
data: ls_layout type lvc_s_layo. " ALV的layout属性内表
可双击父类lvc_t_fcat、lvc_s_layo来查看所包含的属性
（2）建立ALV对象
set handler lcl_event_handler=>on_close for box_container.
（3）输出ALV的fieldcat属性和layout属性
call function 'LVC_FIELDCATALOG_MERGE'
注：要事先在se11创建一个和ALV输出字段一致的结构ZSTAB；
loop at lt_fieldcat into ls_fcat.
endloop.
"写入layout属性
ls_layout-cwidth_opt =
'X'.
...
（4）调用方法显示ALV窗口
call method box_alv->set_table_for_first_display
弹出式窗口另外做法：可使用write到屏幕的办法，如下：
（1）在程序中创建一个screen type 为“方式对话框”的屏幕；
（2）在屏幕输出前，write要输出的数据：
process before output.
（3）在module里写输出到屏幕的代码
module frm_write_out output.
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
NEW-PAGE NO-TITLE.
write ...
LEAVE SCREEN.
endmodule.