Re: Get name of current procdeure

Bob Cozzi wrote:
> 
> It has been working for a year or more.
> I think you're just not seeing my full routine:
>      D szRtnData       DS
>      D  msgInfo                            Like(QMHM0300)
>      D  sndInfo                            Like(QMHRS)
>      D  szExtraData                 300A
> 
>      D szSenderInfo    S                   Like(QMHRS) BASED(pSender)
> 
>      C                   eval      QMHM0300 = szRtnData
>      C                   eval      nOffset =
>      C                              QMHLDRTN01 + QMHLMRTN01 + QMHLHRTN01
>      C                   eval      pSender = %addr(sndInfo)
>      C                   eval      pSender = pSender + nOffset

Ok, I see.

> 
> Besides, he got it working already.

Ya, but someone looking at the DS in the archives might not be able to,
if all they found was that data structure.