Alan,

I did manage to play with the different msgtype parms with no luck - Dave
Clark had it correct with compiling the dspf with DFRWRT(*NO) - thank you!

On Thu, Feb 8, 2018 at 3:09 PM, Alan Shore <ashore@xxxxxxxx> wrote:

Hi Jefferson
I believe the SNDPGMMSG should be

SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG)
MSGDTA('Your message here. ') TOPGMQ(*EXT) MSGTYPE(*STATUS)

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Jay Vaughn
Sent: Thursday, February 08, 2018 3:04 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: sndpgmmsg

CL is not my strong suit - trying to find out why the sndpgmmsg below,
when executed, does not immediately display, but instead the processing
below it runs and when it is done minutes later, the sndpgmmsg msg appears
in the mstctl...??


0179.00 IF COND(&MOPTN *EQ 01) THEN(DO)
0179.01 SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
0179.02 MSGDTA('Conversion Preparation Part 1 +
0179.03 Processing - Please Be Patient') +
0179.04 TOPGMQ(*SAME) TOMSGQ(*LIBL/&USER) +
0179.05 MSGTYPE(*INFO)
0179.06 SNDF RCDFMT(MSGCTL)
0180.00 CHGDTAARA DTAARA(CVTCTLDTA (171 2)) VALUE('I ')
0181.00 CALL CNVPREP1 PARM(&STAT)
...
--
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: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
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: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD


This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].