Re: Get name of current procdeure

[Barbara Morris <bmorris@xxxxxxxxxx>]

Bob Cozzi wrote:
> 
> Right, you need the sender data structure too.
> If you coded this, instead of hand coding it, you'll have it.
> 
> /copy qsysinc/qrpglesrc,qmhrcvpm
> 
>      D szRtnData       DS
>      D  msgInfo                            LikeDS(QMHM0300)
>      D  senderData                         LikeDS(QMHRS)
>      D  szExtraData                 500A
> 

I don't think that will work.  QMHM0300 doesn't include the sections
that precede the sender data, so the senderData subfield would be in the
wrong position in the szRtnData structure.  I think the only way to do
this reliably is to use the way that Scott suggested, to define the
sender data as a separate based structure, and set the basing pointer
using the "Length" fields in the msgInfo part of the structure.