|
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.
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.