RE: sndpgmmsg

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