$SirWarn
Send warning or message to user(s)
Note: Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $SirWarn function, because it is very easy to do the same thing using a Daemon.
The $SirWarn function is used to send a warning or message to the specified user or users. If the user invoking $SirWarn is a system manager or system administrator, $SirWarn acts like a WARN command; otherwise it acts like an MSG command.
$SirWarn accepts two arguments and returns a number.
The first argument identifies the user(s) to receive the warning. If this argument is the string OPR, the warning is sent to the operator's console (or virtual console under CMS). If this argument is a valid user number, the warning is sent to the indicated user number. If the first argument is neither OPR nor a valid user number, it is treated as a userid, and the warning is sent to every user logged on to this userid.
The second argument is the text of the warning to be sent to the user(s) indicated by the first argument.
Syntax
%rc = $SirWarn (user, message)
%RC is set to indicate the success of the function.
0 - Warning issued 1 - User(s) not logged on 2 - Insufficient storage 3 - Parameter missing (either userid or message)
$SirWarn return codes
The following statement sends a warning of an application error to the operator:
%RC = $SirWarn('OPR', - 'Severe application error for user' WITH $USER)
This statement sends a warning to user 57 to leave subsystem BARNEY:
%RC = $SirWarn(57, 'Please leave subsystem BARNEY')
This statement sends a warning to all users logged on as HOMER to call Marge:
%RC = $SirWarn('HOMER', 'Please call Marge')
Products authorizing $SirWarn