RE: status messages

You need to send your message to the job's external message queue.

Try the following example:

SndPgmMsg MsgID(CPF9898) MsgDta('This is a test') ToPgmQ(*EXT)
MsgType(*STATUS)

If you would like to clear the status line, do the following:

SndPgmMsg MsgID(CPI9801) ToPgmQ(*EXT) MsgType(*STATUS)


Good luck.

John Taylor


> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Gwecnal@aol.com
> Sent: Friday, October 29, 1999 4:36 PM
> To: MIDRANGE-L@midrange.com
> Subject: status messages
>
>
> I want to be able to write things to the status line at the bottom of the
> screen as a CL runs ('x files processed', 'now initializing
> tape', that kind
> of thing) and I would also like to have the last one persist.
> IBM does this
> all the time, but when I try SndMsg, SndUsrMsg, or SndPgmMsg from
> inside the
> cl, the 'message waiting' light and the user has to wait until
> the cl is over
> and then DspMsg.  How is this done?
> +---
> | 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
> +---
>

+---
| 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
+---