ABAP 实用的列表提示错误一览显示框

REPORT ZTEST_DIS_ERROR .
 *介绍：弹出错误的显示框

 DATA : GT_BAPIRET  TYPE  STANDARD  TABLE  OF BAPIRET2 ,
       GW_BAPIRET  TYPE BAPIRET2 .
 *TYPE        1 类型 BAPI_MTYPE  CHAR  1 0 消息类型: S 成功,E 错误,W 警告,I 信息,A 中断
 *ID          1 类型 SYMSGID CHAR  20  0 消息类
 *NUMBER      1 类型 SYMSGNO NUMC  3 0 消息编号
 *MESSAGE     1 类型 BAPI_MSG  CHAR  220 0 消息文本
 *LOG_NO      1 类型 BALOGNR CHAR  20  0 应用程序日志: 日志号
 *LOG_MSG_NO  1 类型 BALMNR  NUMC  6 0 应用日志：内部邮件序列号
 *MESSAGE_V1  1 类型 SYMSGV  CHAR  50  0 消息变量
 *MESSAGE_V2  1 类型 SYMSGV  CHAR  50  0 消息变量
 *MESSAGE_V3  1 类型 SYMSGV  CHAR  50  0 消息变量
 *MESSAGE_V4  1 类型 SYMSGV  CHAR  50  0 消息变量
 *PARAMETER   1 类型 BAPI_PARAM  CHAR  32  0 参数名称
 *ROW         1 类型 BAPI_LINE INT4  10  0 参数中的行
 *FIELD       1 类型 BAPI_FLD  CHAR  30  0 参数中的字段
 *SYSTEM      1 类型 BAPILOGSYS  CHAR  10  0 引发消息的逻辑系统
 DATA : GR_TABLE   TYPE  REF  TO CL_SALV_TABLE .

 *test
 REFRESH GT_BAPIRET .
 CLEAR GW_BAPIRET .
 GW_BAPIRET - TYPE  =  'S' .
 GW_BAPIRET - ID  =  '300' .
 GW_BAPIRET - NUMBER  =  20 .
 GW_BAPIRET - MESSAGE  =  '保存成功！' .
 APPEND GW_BAPIRET  TO  GT_BAPIRET .

 TRY .
     CL_SALV_TABLE =>FACTORY (
        IMPORTING
         R_SALV_TABLE  = GR_TABLE
        CHANGING
         T_TABLE       = GT_BAPIRET  ) .
    CATCH CX_SALV_MSG .                                     "#EC NO_HANDLER
 ENDTRY .

 DATA : LR_COLUMNS  TYPE  REF  TO CL_SALV_COLUMNS . "All Column Objects

 LR_COLUMNS  = GR_TABLE ->GET_COLUMNS (  ) .
 LR_COLUMNS ->SET_OPTIMIZE (  'X'  ) .

 *弹出框
 GR_TABLE ->SET_SCREEN_POPUP (
   START_COLUMN  =  1 "起始列
   END_COLUMN    =  100 "结束列
   START_LINE    =  1 "起始行
   END_LINE      =  10  ) . "结束行
 
GR_TABLE->DISPLAY( ).