|
midrange.com
The only thing that I see wrong here is that you're passing the MsgKey
as CONST. That's a variable that's being returned from the API to
your program, and therefore should not be CONST, but should be saved
into a variable.
I don't know why this would create the problem that you're experiencing,
however.
Maybe you should try sending a non-program message, if you don't want it
to go to the job-log?
On Wed, 19 Jun 2002, Peter Colpaert wrote:
> Hi group,
>
> I am having a very weird problem in one of my programs, when using the
> QMHSNDPM API.
>
> This is a snippet from the actual code (on V4R3M0, in case it matters):
>
> D Msglen S 9B 0
> D Msgstk S 9B 0
> D vApiErrDs ds
>
> D vbytpv 10i 0 inz(%size(vApiErrDs))
> bytes provided
> D vbytav 10i 0 inz(0)
> bytes returned
> D vmsgid 7a
> error msgid
> D vresvd 1a
> reserved
>
> **************************************************************************
>
> * Prototypes
> *
>
> **************************************************************************
>
> D SendMsg PR ExtPgm('QMHSNDPM')
> SEND MESSAGES
> D 7 const
> ID
> D 20 const
> FILE
> D 76 Const
> TEXT
> D 10i 0 const
> LENGTH
> D 10 const
> TYPE
> D 10 const
> QUEUE
> D 10i 0 const
> STACK ENTRY
> D 4 const
> KEY
> Db like(vApiErrDS)
> <snip>
> c Callp SendMsg(
>
> c *blanks:
>
> c *blanks:
>
> c MsgDta:
>
> c 76:
>
> c '*INFO':
>
> c '*':
>
> c 0:
>
> c *blanks:
>
> c vApiErrDs)
>
> c* Call 'QMHSNDPM'
>
> c* Parm *blanks Msgmic 7
>
> c* Parm *blanks Msgfil 20
>
> c* Parm Msgdta 76
> c* Parm 76 Msglen
>
> c* Parm '*INFO' Msgtyp 10
>
> c* Parm '*' Msgpgq 10
>
> c* Parm 0 Msgstk
>
> c* Parm *blanks Msgkey 4
>
> c* Parm vApiErrDs
>
> When I use the normal call, the message is displayed on the screen, but
> when I use the prototyped CALLP, it only shows in the joblog.
>
> Am I missing something? I already tried playing with the message type
> entry and the call stack entry, but this does not make a difference.
>
> Any help would be highly appreciated.
>
> Peter Colpaert
> Application Developer
>
> Honda Europe NV
> Langerbruggestraat 104
> B-9000 GENT
> Peter.Colpaert@honda-eu.com
> Tel: +32 9 2501 334
> Fax: +32 9 2501 231
> ----------
> Yoda of Borg are we: Futile is resistance. Assimilate you, we will.
> ----------
>
>
>
> ______________________________________________________________________
> The information contained in this communication is confidential and may be
> legally privileged. It is intended solely for the use of the individual or
> the entity to whom it is addressed and others authorised to receive it. If
> you have received it by mistake, please let the sender know by e-mail reply
> and delete it from your system.
> If you are not the intended recipient you are hereby notified that any
> disclosure, copying, distribution or taking any action in reliance of the
> contents of this information is strictly prohibited and may be unlawful.
> Honda Europe NV is neither liable for the proper and complete transmission
> of the information contained in this communication nor for any delay in its
> receipt.
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
