RE: Program Status Message

["Joe Giusto \(E-mail\)" <juicenetdps@xxxxxxxxxxxxxx>]

You could call this from an RPG PGM

001.00              PGM        PARM(&MSGID &MSGF )
971121
0002.00              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)
971120
0003.00              DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)
971120
0004.00              DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)
950802
0005.00              SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGF) TOPGMQ(*PRV)
971121
0006.00              ENDPGM
950802

you could use MSGID CPF9898 and add the MSGDTA PARM to insert whatever text
you want.


Or just:

0058.00              SNDPGMMSG  MSG('A/R Master Listing submitted.')


Joe Giusto II
Programmer/Analyst
Ritz Camera
Beltsville, MD
301-419-3209 x347
410-813-2812 x347

 -----Original Message-----
From:   owner-midrange-l@midrange.com [mailto:owner-midrange-l@midrange.com]
On Behalf Of ekempter
Sent:   Thursday, June 07, 2001 3:52 PM
To:     MIDRANGE-L@midrange.com
Subject:        RE: Program Status Message

The job is being submitted so I capture (receive)the message (which works
find) first.  I then want the submission message to appear at the bottom of
the screen.  Users will submit multiple jobs.

Thanks for interest.



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