Array has 100 Elements.
Because it is overlayed by num an array element is defined with the same
length as the num field.
If something overlays an array, it is also defined as array with the same
number of elements as the array.
But an DS Array is not the same as an overlayed array!
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Roger
Harman
Sent: Freitag, 8. Dezember 2017 06:04
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: RE: %XFoot a DS array
Maybe it's just the end of a long day, but this confuses me. I meant to try
it before I left work today but didn't get to it.
What is "array"? There is no data type. How does "num" get translated to a
100 element array? It looks like a single int(5).
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Thursday, December 07, 2017 9:34 AM
To: Rpg400 Rpg400-L
Subject: Re: %XFoot a DS array
Nope - but this works as it does at most any release.
Dcl-ds x;
array dim(100);
num int(5) overlay(array);
end-ds;
dcl-s tot int(10);
tot = %Xfoot(num);
Jon Paris
www.partner400.com
www.SystemiDeveloper.com
On Dec 7, 2017, at 11:18 AM, Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>
wrote:
On 7.1.
I'm wanting to %XFoot a DS array. Compiler complains with:
RNF7591 An operand of a qualified name expression is not valid.
RNF0555 The parameter for %XFOOT is not valid; %XFOOT is ignored.
I found a thread from 2013 stating that one cannot %XFoot a DS array at
7.1.
I won't be at 7.3 for a month at least. Is %XFoot a DS array allowed
at 7.3?
Thanks.
--
Jeff Crosby
VP Information Systems
UniPro FoodService/Dilgard
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531
www.dilgardfoods.com
The opinions expressed are my own and not necessarily the opinion of
my company. Unless I say so.
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
https://archive.midrange.com/rpg400-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
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-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
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-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
midrange.com
