OS/400 版管理及程式設計指南

系統語言環境範例

下列範例顯示一個巨集，它使用「系統」語言環境，向所有工作站訊息佇列發出 「傳送中斷訊息 (SNDBRKMSG)」指令。將傳送的訊息的文字是依據格式資料而建置的 (msgToSend)。

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