Das folgende Beispiel zeigt ein Makro, das die SYSTEM-Sprachumgebung zum Absetzen des Befehls Send Break Message (SNDBRKMSG) an alle Nachrichtenwarteschlangen für Workstations verwendet. Der Text der zu sendenden Nachricht wird aus den Formulardaten (msgToSend) erstellt.
%FUNCTION(DTW_SYSTEM) sndbrkmsg () {
%EXEC { /QSYS.LIB/SNDBRKMSG.CMD MSG('$(msgToSend)') TOMSGQ(*ALLWS) %}
%}
%HTML(sndbrkmsg) {
@sndbrkmsg()
%}