Administration and Programming Guide for OS/400

System Language Environment Example

The following example shows a macro that uses the System language environment to issue the Send Break Message (SNDBRKMSG) command to all workstation message queues. The text of the message to be sent is constucted from form data (msgToSend).

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