提示消息的语法格式如下：

https://gss0.baidu.com/9vo3dSag_xI4khGko9WTAnF6hhy/zhidao/wh=450,600/sign=a0921956324e251fe2a2ecfc92b6e521/5882b2b7d0a20cf4d00b45b374094b36adaf99c7.jpg

有两种方式提示消息：1、消息类msg；2、直接提示消息text

消息类提示的方法如下：

有四种表达方式：

1.如果在程序report后指定消息类，即

  REPORT ... MESSAGE-ID ....

这时，可直接用选项tn，即消息类型加消息号，如：

MESSAGE s028

提示指定消息类的028号消息，消息类型为s

2.可手动指定消息类的某个消息tn(id)，如：

MESSAGE s028(00)

提示00消息类的028号消息，消息类型为s

3.以某种消息类型提示指定消息类的某个消息，如：

MESSAGE ID 00 TYPE 'S' NUMBER 028

提示00消息类的028号消息，消息类型为s

4. 用对象的方式提示消息，这个比较复杂，很少使用

https://gss0.baidu.com/94o3dSag_xI4khGko9WTAnF6hhy/zhidao/wh=450,600/sign=1386876f8544ebf86d246c3becc9fb1c/8b82b9014a90f6030b6b222b3b12b31bb151ed87.jpg

直接提示要提示的消息，如：

MESSAGE 'Error' TYPE 'S'

提示消息Error

https://gss0.baidu.com/-Po3dSag_xI4khGko9WTAnF6hhy/zhidao/wh=450,600/sign=d85f2038014f78f0805e92f74c012663/bd3eb13533fa828b85ac238fff1f4134960a5aca.jpg

提示消息有如下附加选项

1.DISPLAY LIKE dtype

将类种消息类型的提示改变，如：

MESSAGE s028(00) DISPLAY LIKE 'E'

这样就把消息类00的成功消息028显示成错误消息

2.RAISING exception

在提示消息的同时抛出异常，一般用于功能模块FUNCTION或METHOD中

3.INTO text

将提示的消息存放到某个程序变量中而不直接提示，如

MESSAGE s028(00) INTO g_message

将消息类00的028号消息存放到变量g_message中

4.WITH dobj1 ... dobj4

在消息类中的消息中的变量用程序中的值替代，如：

MESSAGE s007(00) WITH '订单号'

则提示消息类00的007号消息，并将其中的占位符&1用“订单号”替代，即提示“订单号为空”

https://gss0.baidu.com/-Po3dSag_xI4khGko9WTAnF6hhy/zhidao/wh=450,600/sign=a29633c5ab014c08196e20a13f4b2e3e/1ad5ad6eddc451daca79b287b4fd5266d11632ca.jpg