Re: Message API

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

h
Hello Gade,

Without seeing your definition of the PutErrMsg procedure this is only a guess 
but I 
think your problem is with the 7th parameter.  You should be passing an integer 
0, I 
don't think *ZEROS will work.

The error message you receive says Call stack entry not found.  The call stack 
entry 
is determined from the combined 6th and 7th paramaters.  The 6th names a call 
stack 
entry and the 7th is a relative offset.  You want to send the message to 
yourself so 
you provide the program name and an offset of zero (0).

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> Date: Thu, 24 Feb 2000 08:42:04 -0600
> From: Gade_R_Reddy@consecofinance.com
> To: RPG400-L@midrange.com
> Reply-To: RPG400-L@midrange.com
> Subject: Message API

> 
> 
> Hey Paul,
> 
> Thanks for your advice.
> 
> I did what you said but still have the same problem. Here  is my code...
> 
>  D                SDS
>  D P#PNAM                  1     10
>  D P#USER                254    263
>  C                   CALLP     PutErrMsg( 'CPF9897'                           
> 
Send message.
>  C                                        : 'QCPFMSG   *LIBL     '
>  C                                        : MsgDta
>  C                                        : %Size(MsgDta)
>  C                                        : '*INFO'
>  C                                        : P#PNAM
>  C                                        : *Zeros
>  C                                        : APIMsgKey
>  C                                        : APIErr )
>  C                   Eval      MsgSflDsp = @True
>  C                   Eval      MsgSflEnd = @True
> 
> 
> I also tried the program name & left-justified '*' in the Message queue 
>field, It 
did't worked out.
> 
> Dave, could you please send me the link on midrange computing web site which 
>had 
this talked about Message API???.
> 
> Thanks Guys for all your help.
> Gade

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---