ABAP 的message 的创建及使用

  • se91创建一个message,

图1:

ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

图2:

  • ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

  •    由于作的小测试,代码的命名不太规范   

 *测试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:

 ABAP 的message 的创建及使用 - Lisa - My SAP Road

  • 弹出结果。因为类型 是‘I’,所以是弹出来的对话框,也可以设置为类型‘e’等。

  图4:

   ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

PS: 不创建message ,直接运用message:

    

  • se91创建一个message,

图1:

ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

图2:

  • ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

  •    由于作的小测试,代码的命名不太规范   

 *测试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:

 ABAP 的message 的创建及使用 - Lisa - My SAP Road

  • 弹出结果。因为类型 是‘I’,所以是弹出来的对话框,也可以设置为类型‘e’等。

  图4:

   ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

PS:  不创建message ,直接运用消息:

             lMESSAGE 'Test message type I' TYPE 'I'.

结果:图5

ABAP 的message 的创建及使用 - Lisa - My SAP Road

 

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/

posted on 2011-06-16 15:54  cnlmjer  阅读(3233)  评论(0编辑  收藏  举报