RE: Can I use a field in a DS that is already defined in the PI?

I haven't tried, but couldn't you even have a local data structure based
on the parameter? Although this may add unnecessary complexity. Just
brainstorming.

Something like this:
P VldFld1 B
D PI n
D Fld1 10a

D pFld1 S *
D Fld1DS DS Based( pFld1 )
D subParm1 5a
D subParm2 5a

/Free
pFld1 = %addr( Fld1 );

Though for this to work, Fld1 can't be Const.

Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
Sent: Tuesday, July 17, 2007 5:06 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Can I use a field in a DS that is already defined in the
PI?


On 18/07/2007, at 7:11 AM, Glenn Gundermann wrote:

I'm sure this is a simple question but I can't get around this for
some reason.

If I have an incoming field defined in the PI, I thought I could have
it also defined in a DS in order to split it up without doing any
%subst.

It's not compiling due to "The Name entry is already defined on a
Definition Specification".

What am I doing wrong?

You're not accepting that the compiler is correct.

You have never been able to use a DS sub-field as a parameter (even on a
program call). You can use the DS itself--just not the sub-fields.

Open your heart to the compiler, accept it's truth, use a different name
for one of the variables, and copy the input parameter to the sub-field
prior to processing.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.