|
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;
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.