【SAP Abap】SE91 - SAP MESSAGE 消息类创建与应用

X档案库

已于 2022-12-06 11:38:01 修改

阅读量5.6k

点赞数 3

分类专栏： SAP Abap 文章标签： sap

于 2022-06-08 14:57:00 首次发布

本文链接：https://blog.csdn.net/XLevon/article/details/125177895

版权

SAP Abap 专栏收录该内容

40 篇文章 86 订阅

订阅专栏

SE91 - SAP MESSAGE 消息类创建与应用

一、创建
二、应用

一、创建

在这里插入图片描述

二、应用

在这里插入图片描述

REPORT YZLL_MSG_TEST MESSAGE-ID YZLL_MSG_DM01.

CLASS DEMO DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS ABORT.
    CLASS-METHODS INFO.
    CLASS-METHODS ERROR.
    CLASS-METHODS WARN.
    CLASS-METHODS SUCCESS.
    CLASS-METHODS EXIT.

    CLASS-METHODS SHOW.
    CLASS-METHODS USAGE.
ENDCLASS.

CLASS DEMO IMPLEMENTATION.
  METHOD ABORT.
    MESSAGE A000.
  ENDMETHOD.

  METHOD INFO.
    MESSAGE I001.
  ENDMETHOD.

  METHOD ERROR.
    MESSAGE E002.
  ENDMETHOD.

  METHOD WARN.
    MESSAGE W003.
  ENDMETHOD.

  METHOD SUCCESS.
    MESSAGE S004.
  ENDMETHOD.

  METHOD EXIT.
    MESSAGE X005.
  ENDMETHOD.

  METHOD SHOW.
    DATA:
      TEXT0 TYPE STRING,
      TEXT1 TYPE STRING,
      TEXT2 TYPE STRING,
      TEXT3 TYPE STRING,
      TEXT4 TYPE STRING.

    INFO( ).    "弹窗消息

    MESSAGE I006 INTO TEXT0.
    MESSAGE I007 WITH  'A' 'B' 'C' 'D' INTO TEXT1.      "WITH在前可以
    MESSAGE I008 INTO TEXT2.
    MESSAGE I009 INTO TEXT3 WITH  'A' 'B' 'C' 'D' .     "WITH在后也可以
    MESSAGE I010 WITH  'A' INTO TEXT4.

    WRITE:/ '不带占位符的消息：', TEXT0.
    WRITE:/ '顺序占位符的消息：', TEXT1.
    WRITE:/ '输出&符号的消息：', TEXT2.
    WRITE:/ '排序占位符的消息：', TEXT3.
    WRITE:/ '复用占位符的消息：', TEXT4.

    SUCCESS( ).   "状态栏消息
  ENDMETHOD.

  METHOD USAGE.
    "方式一：MESSAGE - msg
    MESSAGE I006.   "需在报表程序名后面定义MESSAGE-ID yzll_msg_dm01
    MESSAGE I006(YZLL_MSG_DM01).
    DATA:
      MID   TYPE SY-MSGID VALUE 'YZLL_MSG_DM01',
      MTYPE TYPE SY-MSGTY VALUE 'I',
      NUM   TYPE SY-MSGNO VALUE '006'.
    MESSAGE ID MID TYPE MTYPE NUMBER NUM.

    "方式二：MESSAGE - text
    DATA OREF TYPE REF TO CX_SY_ARITHMETIC_ERROR.
    DATA LV_VAL TYPE I.
    TRY.
        LV_VAL = 1 / 0.
      CATCH CX_SY_ARITHMETIC_ERROR INTO OREF.
        MESSAGE OREF->GET_TEXT( ) TYPE 'I'.
    ENDTRY.

    "方式三：MESSAGE - INTO
    "参考 demo=>show( )

  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  "DEMO=>ABORT( ).
  "DEMO=>EXIT( ).
  "DEMO=>ERROR( ).
  "DEMO=>WARN( ).
  DEMO=>SHOW( ).
  "DEMO=>USAGE( ).

在这里插入图片描述

改变消息默认显示方式