×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
On 10/28/2010 1:08 PM, Dennis Lovelady wrote:
pDS = %Alloc(%Size(myDS) * NBR_OF_ENTRIES)
For I = 1 to NBR_OF_ENTRIES
Clear myDS
pDS += %Size(myDS)
endfor
This code is dangerous, because the final time through the loop, pDS
will be beyond the end of the allocation.
That's dangerous, because under some circumstances, OS/400 will send an
*ESCAPE message to your program when you set a pointer beyond the end of
a space.
A better solution:
start = %Alloc(%Size(myDS) * NBR_OF_ENTRIES)
For I = 1 to NBR_OF_ENTRIES
pDS = start + (I-1) * %size(myDS);
Clear myDS
endfor
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.
midrange.com
