Re: sndpgmmsg

[Jay Vaughn <jeffersonvaughn@xxxxxxxxx>]

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