Re: Colored Break Messages

[Pat Barber <MBOCEANSIDE@xxxxxxxxxxxxxxxxxxxxxxxxxxx>]

Mark Walter wrote:
> 
> I was able to send formatted messages to a program message queue from an RPG
> program by concatenating the hex equivalent of the display attribute into
> the space before the character I wished to format. I've never tried it in a
> CL program to send a break message.

I know the following works in a SNDPGMMSG...so color attributes should
also...

DCL var(&reverse) type(*char) len(1) value(X'21')
DCL var(&normal)  type(*char) len(1) VALUE(X'20')

sndpgmmsg msgid(cpf9898) msgf(QCPFMSG) +
msgdta(&reverse *cat &msg *cat &normal) +
topgmq(*ext) msgtype(*status)
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---