ABAP message的创建及使用.docVIP

ABAP 的message 的创建及使用 2010-05-18 10:44:22| 分类： ABAP学习笔记 | 标签：|字号大中小 订阅 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： 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 Oth