Re: QRCVDTAQ (Receive Data Queue) program

"Bartell, Aaron L. (TC)" wrote:
> ...
>
>      D dqName          s             10    inz('JMDTAQ')
>      D dqLib           s             10    inz('QGPL')
>      D dqLen           s              5  0 inz(10000)
>      D dqData          s          10000
>      D dqWait          s              5  0 inz(5)
> ...
>      C     $qRcvDtaQ     begsr
>      C                   call      'QRCVDTAQ'
>      C                   parm                    dqName
>      C                   parm                    dqLib
>      C                   parm                    dqLen
>      C                   parm                    dqData
>      C                   parm                    dqWait
> ...

Aaron, just a warning about this API: the third (length) parameter isn't
a way for you to tell the API how big your receiver is.  It's a way for
the API to tell you how long the entry is.  The API assumes your
receiver is big enough (there's an optional parameter, something like
parm 12, that allows you to give your buffer length).  If dqData isn't
at least as big as your data-queue maximum, you could have a
storage-corruption problem.

Maybe your code is ok - the reason I suspect you have a misunderstanding
about that parm is that you have initialized the length parm to the
length of the buffer.

(I always go on alert when I see this API as the subject in a forum.
Not so much lately, but MCH3601 and MCH0601 due to misuse of this API
used to be a very commonly reported problem in forums and in PMRs.)