- se91创建一个message，
图1：
图2：
- 由于作的小测试，代码的命名不太规范
*测试message。
SELECTION-SCREEN begin of BLOCK bk2 WITH FRAME TITLE text-002.
parameters: p_budget type n,
p_area type c,
p_wemge type n.
SELECTION-SCREEN END OF BLOCK bk2.
IF p_budget IS NOT INITIAL.
MESSAGE I000(zfi01) WITH p_budget p_area p_wemge.
endif." ‘ I ’是类型；（zfi01）对应的是图1：message class；000 是对应的图2的message下的消息号：000；with 后的是三个变量，单价、面积、预算。
- 运行代码
图3：
- 弹出结果。因为类型 是‘I’,所以是弹出来的对话框，也可以设置为类型‘e’等。
图4：
PS: 不创建message ，直接运用message：
- se91创建一个message，
图1：
图2：
- 由于作的小测试，代码的命名不太规范
*测试message。
SELECTION-SCREEN begin of BLOCK bk2 WITH FRAME TITLE text-002.
parameters: p_budget type n,
p_area type c,
p_wemge type n.
SELECTION-SCREEN END OF BLOCK bk2.
IF p_budget IS NOT INITIAL.
MESSAGE I000(zfi01) WITH p_budget p_area p_wemge.
endif." ‘ I ’是类型；（zfi01）对应的是图1：message class；000 是对应的图2的message下的消息号：000；with 后的是三个变量，单价、面积、预算。
运行代码
图3：
弹出结果。因为类型 是‘I’,所以是弹出来的对话框，也可以设置为类型‘e’等。
图4：
PS: 不创建message ，直接运用消息：
lMESSAGE 'Test message type I' TYPE 'I'.
结果：图5
PS:
所有的消息都存储在系统数据表T100中，包含四个字段，语言代码，消息类，消息序列号，消息文本。进入消息的初始界面的事务代码为SE91。消息类型（与消息类不同）共六种，A,E,I S,W,X。系统消息类为00。
例： MESSAGE S001(ZMM01) WITH 'Data was not found'."S是消息类型，001是消息文本，在此处为&占位符，所以需要WITH文本来替代,ZMM01是消息类。
TYPES: BEGIN OF task_type,
name TYPE string,
dest TYPE string,
END OF task_type.
DATA: snd_jobs TYPE i,
rcv_jobs TYPE i,
exc_flag TYPE i,
info TYPE rfcsi,
mess TYPE c LENGTH 80,
indx TYPE c LENGTH 4,
name TYPE c LENGTH 8,
task_list TYPE STANDARD TABLE OF task_type,
task_wa TYPE task_type.
DO 10 TIMES.
indx = sy-index.
CONCATENATE 'Task' indx INTO name.
CALL FUNCTION 'RFC_SYSTEM_INFO'
STARTING NEW TASK name
DESTINATION IN GROUP DEFAULT
PERFORMING rfc_info ON END OF TASK
EXCEPTIONS
system_failure = 1 MESSAGE mess
communication_failure = 2 MESSAGE mess
resource_failure = 3.
CASE sy-subrc.
WHEN 0.
snd_jobs = snd_jobs + 1.
WHEN 1 OR 2.
MESSAGE mess TYPE 'I'.
WHEN 3.
IF snd_jobs >= 1 AND
exc_flag = 0.
exc_flag = 1.
WAIT UNTIL rcv_jobs >= snd_jobs
UP TO 5 SECONDS.
ENDIF.
IF sy-subrc = 0.
exc_flag = 0.
ELSE.
MESSAGE 'Resource failure' TYPE 'I'.
ENDIF.
WHEN OTHERS.
MESSAGE 'Other error' TYPE 'I'.
ENDCASE.
ENDDO.
WAIT UNTIL rcv_jobs >= snd_jobs.
LOOP AT task_list INTO task_wa.
WRITE: / task_wa-name, task_wa-dest.
ENDLOOP.
FORM rfc_info USING name.
task_wa-name = name.
rcv_jobs = rcv_jobs + 1.
RECEIVE RESULTS FROM FUNCTION 'RFC_SYSTEM_INFO'
IMPORTING
rfcsi_export = info
EXCEPTIONS
system_failure = 1 MESSAGE mess
communication_failure = 2 MESSAGE mess.
IF sy-subrc = 0.
task_wa-dest = info-rfcdest.
ELSE.
task_wa-dest = mess.
ENDIF.
APPEND task_wa TO task_list.
ENDFORM.
http://hunanlsy1983.blog.163.com/blog/static/6163411820104181044220/