RE: SNDPGMMSG to show message while something is running...

["Dan Bale" <dbale@xxxxxxxxxxxxx>]

Impressive, Booth!

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / Booth Martin
> Sent: Tuesday, August 03, 2004 3:58 PM
>
> This isn't an answer to the question, but maybe it's something
> that'll twirl
> your beanie's propeller.
> http://www.martinvt.com/Code_Samples/Progress_Bar/progress_bar.htm
> l      --------------------------------- Booth Martin
http://www.martinvt.com --------------------------------- -------Original
Message-------   From: Midrange Systems Technical Discussion Date: 08/03/04
14:47:44 To: midrange-l@xxxxxxxxxxxx Subject: SNDPGMMSG to show message
while something is running...   Trying to use SNDPGMMSG in a CL program that
gets run interactively to flash a message on the message line while the
program is still running.  As an example of what I'm attempting to
accomplish, the CPYF command does this with message:     Copying member or
label CMMAST in CMMAST in DUROLIB.   It appears on the message line as long
as the CPYF command is running.  But I haven't figured out how.  Using
SNDPGMMSG, I've tried:   ToPgmQ( *Prv )  MsgType( *Info ) ToPgmQ( *Same )
MsgType( *Info ) ToPgmQ( *Prv )  MsgType( *Status ) ToPgmQ( *Same )
MsgType( *Status )   None of the other options look like solutions.
Essentially, I'd like to do this in CL:   SNDPGMMSG CPF9898 MsgDta('Program
to match drawings is now running...') CALL   MATCHDRWS ENDPGM   I want the
message to appear on the screen's message line as long as the MATCHDRWS
program is running.   tia, db   -- This is the Midrange Systems Technical
Discussion (MIDRANGE-L) mailing list To post a message email:
MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email:
MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to
review the archives at http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.