Re: Program Status Message

["alan shore" <SHOREA@xxxxxxxx>]

 SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&DATEA + 
              *BCAT &TIMEA *BCAT 'Please wait while +    
              your request is being processed.') +       
              TOPGMQ(*EXT) MSGTYPE(*STATUS)              
should do the trick

>>> "ekempter" <noerick.norcal@cleancity.com> 06/07/01 12:44PM >>>
I am trying to get a program to produce a status message on line 24 of its
display.  In the display, a user hits enter and a job is submitted.  I want
the submission message to appear on line 24 of the display.

I have tried:

RCVMSG MSGTYPE(*COMP) RMV(*YES) MSGDTA(&MSGDTA) +
             MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)

SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
             MSGDTA(&MSGDTA) TOPGMQ(*PRV) MSGTYPE(*COMP)

and


RCVMSG MSGTYPE(*COMP) RMV(*YES) MSGDTA(&MSGDTA) +
       MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)

SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
             MSGDTA(&MSGDTA) TOPGMQ(*EXT) MSGTYPE(*STATUS)

Line 24 in the display is "clear".  Thanks in advance for any assistance.



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