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

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( ).