管理与程序设计指南，OS/400 版

System 语言环境示例

以下示例显示了一个使用 System 语言环境向所有工作站消息队列发出 Send Break Message (SNDBRKMSG) 命令 的宏。要发送的消息正文是从表数据构建的 (msgToSend)。

%FUNCTION(DTW_SYSTEM) sndbrkmsg () {
  %EXEC { /QSYS.LIB/SNDBRKMSG.CMD MSG('$(msgToSend)') TOMSGQ(*ALLWS) %}
%}     
%HTML(sndbrkmsg) {   
 @sndbrkmsg()  
%}