Clamoring For Attention
July 21, 2015 Ted Holt
You know how to send a message to the system operator message queue. Here’s some code you can use when you need that message to stand out. Here’s the CL code. dcl &Message *char 434 dcl &Line1 *char 74 stg(*defined) defvar(&Message 1) dcl &Line2 *char 72 stg(*defined) defvar(&Message 75) dcl &Line3 *char 72 stg(*defined) defvar(&Message 147) dcl &Line4 *char 72 stg(*defined) defvar(&Message 219) dcl &Line5 *char 72 stg(*defined) defvar(&Message 291) dcl &Line6 *char 72 stg(*defined) defvar(&Message 363) ChgVar &Line1 ' **************************************+ *********************************' ChgVar &Line2 '*' ChgVar &Line3 '* Test message -- please ignore. ' ChgVar &Line4 '* More important information' |