Re: Sending Escape messages

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

I would set the call stack entry to *PGMBDY, and the count to 1.  The 
goal is to send the message to your program's caller, thus, one level 
before your program.

On 11/8/2013 8:57 AM, RPGLIST wrote:
> in working with my web service, it was recommended that I use escape
> messages to send back error messages to the soap client.
>
> I have been trying to test this out this morning and here is what I've got
> for code:
>
> 0066.01  *** Escape Message Prototype Declaration
> 0066.02 D SendEscMsg      pr                  extpgm('QMHSNDPM')
> 0066.03 D   MsgId                        7    const
> 0066.04 D   MsgFile                     20    const
> 0066.05 D   MsgDta                      80    const
> 0066.06 D   MsgDtaLen                   10i 0 const
> 0066.07 D   MsgType                     10    const
> 0066.08 D   MsgQ                        10    const
> 0066.09 D   MsgQNbr                     10i 0 const
> 0066.10 D   MsgKey                       4    const
> 0066.11 D   ErrorDs                     16    const
>
> 0066.14 D ErrorDs         ds            16
> 0066.15 D   BytesProv                   10i 0 inz(16)
> 0066.16 D   BytesAvail                  10i 0
> 0066.17 D   ExceptionID                  7
> 0066.18
> 0066.19 D MsgDta          s             80
> 0066.20 D Msgkey          s              4
> 0066.21
>
>
> 0097.00 P SendError       b
> 0098.00 D                 pi
> 0098.01  /Free
> 0098.02     MsgDta = 'Something went wrong';
> 0098.03
> 0098.04     SendEscMsg ('CPF9898':
> 0098.05        'QCPFMSG QSYS':
> 0098.06        MsgDta:
> 0098.07        %Len(MsgDta):
> 0098.08        '*ESCAPE':
> 0098.09        '*':
> 0098.10        1:
> 0098.11        MsgKey:
> 0098.12        ErrorDs);
> 0098.13  /End-Free
> 0100.00 P SendError       e
>
>
> I'm just calling it with a simple SendError();
>   but that never seems to generate anything.  I'm sure I have something
> wrong so any help would be appreciated.
>
> Dutch