×
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.
One other little trick with that...
Originally I had
CHGVAR VAR(&pListEntry) +
VALUE(&USPtr + &GHLOffset +
+ ((&EntryNbr - 1) * &GHLEntSize))
which it didn't like because, unlike RPGLE, CL can't handle these "unlike"
types.
So I tried this
CHGVAR VAR(%offset(&pListEntry)) +
VALUE(%offset(&USPtr) + &GHLOffset +
+ ((&EntryNbr - 1) * &GHLEntSize))
And I got a MCH3601 error "Pointer not set for location referenced.".
So I had to prefix the above CHGVAR with the following to initialize
&pListEntry in order for the %offset to not bomb.
/* Initialize pListEntry to some valid entry to allow the %offset to
work shortly */
chgvar &pListEntry &USPtr
Which ends up with
/* Initialize pListEntry to some valid entry to allow the %offset to
work shortly */
chgvar &pListEntry &USPtr
DOFOR VAR(&EntryNbr) FROM(1) TO(&GHLNbr)
CHGVAR VAR(%offset(&pListEntry)) +
VALUE(%offset(&USPtr) + &GHLOffset +
+ ((&EntryNbr - 1) * &GHLEntSize))
...
Rob Berendt
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
