|
Brad,
I would not recommend this prototype unless for some reason it makes
sense to use pointers. Forcing the use of a pointer and %ADDR() for a
regular RPG variable seems to only make the code more complicated.
If you do choose to take this route -- there is a bug in your
prototype. You need to have VALUE on the pointer. So that 2nd line
should be:
dtaVar pointer value;
Without "value", it'll pass the pointer by reference (i.e. a pointer to
a pointer) which isn't right, here.
-SK
On 7/27/2018 2:03 PM, Bradley Stone wrote:
vs
dcl-pr QtmhWrStout extproc('QtmhWrStout');
dtaVar pointer;
dtaCarLen int(10) const;
errorCode char(8000) options(*varsize);
end-pr;
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.