Re: Odd problem passing a data structure to a procedure

[Barbara Morris <bmorris@xxxxxxxxxx>]

Barbara Morris wrote:
> David, here's one way to get around the problem pre-V5R3 ...

I guess if you're going to make changes to your calling code anyway, the
easiest change is to add an optional "length" parameter to
getClientData.

   moreEntries = getClientDataLen(pListId: dataQueueEntry :
%size(dataQueueEntry));

     PgetClientData...
     P                 B                   export
     D                 PI              N
     D pListId                       35    value
     D pData                       2048    options(*varsize)
     D
     D pSize                         10I 0 options(*nopass)
     D
     D rcvrSize        S             10I 0 inz(%size(pData))

       .... 
       if %parms > 2;
            rcvrSize = pSize;
       endif;

       if gotData;
         %subst(pData : 1 : rcvrSize) = %subst(data:1:dataLength);
       else;
         %subst(pData : 1 : rcvrSize) = *blank;
       endif;