DECLARE
x_msg_count NUMBER;
x_msg_data VARCHAR2(3000);
v_msg_index_out NUMBER;
v_data VARCHAR2(1000);
BEGIN
fnd_message.set_name('IBY', 'IBY_UNIQ_ACCOUNT');--设置消息名称
fnd_msg_pub.add;--添加到Global Area
fnd_message.set_name('FND', 'AFDICT- DATABASE STATS');--设置消息名称
fnd_message.set_token('UPDATES', 'Steven123');--设置消息内容中变量的值
fnd_message.set_token('INSERTS', 'Steven321');--设置消息内容中变量的值
fnd_msg_pub.add;--添加到Global Area
--当x_msg_count 为1时，直接输出x_msg_data，否则需要循环输出
fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
p_count => x_msg_count,
p_data => x_msg_data);
dbms_output.put_line('x_msg_count:' || x_msg_count);
dbms_output.put_line('x_msg_data:' || x_msg_data);
FOR k IN 1 .. x_msg_count LOOP
fnd_msg_pub.get(p_msg_index => k,
p_encoded => fnd_api.g_false,
p_data => v_data,
p_msg_index_out => v_msg_index_out);
dbms_output.put_line('(' || v_msg_index_out || ')->' || v_data);
END LOOP;
--app_exception.raise_exception;
END;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/25684327/viewspace-694126/ ，如需转载，请注明出处，否则将追究法律责任。
