Re: Struggling to understand QMHSNDPM API

I see a few little problems. I can't say for sure which is causing the
RNX9998, but fixing these will get past that (but not where you want to go).

First, change the MOVE 'GENERICMSG" MsgFile to MOVEL

Second, initialize the ErrCode (following your example, insert MOVEL
X'00000000' ErrCode prior to the CALLP.

Third, while you can now get past the RNX9998 you will find you now get
CPF2407 (Message file GENERICMSG in *LIBL*LIBL not found). You need to
only set MsgFile once and then leave it alone. Right now, following the
second EXFMT, you are concatenating *LIBL to 'GENERICMSG*LIBL' from the
first EXFMT processing.

Another problem is that ERRSFL documents that the only messages shown are
those related to the use of the following DDS keywords:

ERRMSG
ERRMSGID
SFLMSG
SFLMSGID
CHECK(M10)
CHECK(M11)
CHECK(VN)
CHECK(VNE)
COMP
RANGE
VALUES

I don't see any of these keywords being used in MSGLINDF... How are you
envisioning that ERRSFL is associated with the messages found in the
external message queue?

There may be other problems, but the above are what jumped out at me. Any
reason you're not using a message subfile?

Bruce

On Wed, Jan 29, 2020 at 1:34 PM Patrik Schindler <poc@xxxxxxxxxx> wrote:

Hello,

I want to show messages from a message file in the message line of a DSPF
with ERRSFL set. I wrote a standalone program with a DSPF to learn how to
accomplish that. You can download and look here:
- https://leela.pocnet.net/~poc/msglindf.txt
- https://leela.pocnet.net/~poc/msglinpg.txt

Additionally, there's a message file QGPL/GENERICMSG (created by me) with
a message HLO0001 just containing a hello for first- and second level text
and *NONE for any answering parameters. (I'm using this very message file
to successfully show messages with ERRMSGID and ERRSFLMSGID in some DSPFs.)

Before anyone is wondering: I'm using an old box with V4R5 for tinkering,
so I can't use free or all-free. Reasons for that are out of scope for my
question. :-)

I read sources I found via Google:
-
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/apis/QMHSNDPM.htm
-
https://www.mcpressonline.com/programming/rpg/sending-a-program-message-in-rpg
-
http://newsolutions.de/forum-systemi-as400-i5-iseries/threads/1716-QMHSNDPM

They are somewhat deviant in how the prototype variables are defined.

After the first press of F10, there's no change in display, especially,
there is no message shown. After the second F10, the *PGM is ended with
RNX9998. I'm stuck here, since I can't find helpful documentation for
RNX9998, nor where I could be wrong with my API call.

May I kindly ask for advice?

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE - https://www.pocnet.net/poc-key.asc


--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com