RE: likerec by extname from copybook

["Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>]

Arco,

I probably should have included the following in my previous post.
These data structures are declared in the service program.
D IvO01I          Ds                  LikeRec(IvO01 : *Input )
D IvO01K          Ds                  LikeRec(IvO01 : *Key   )
D IvO01O          Ds                  LikeRec(IvO01 : *OutPut)

And the chain is done as such:
Chain(E) %KDs(IvO01K) IvO01 IvO01I;  

One thing to be aware of that I had didn't know (but probably should have).
Filling/changing any one of these data structures does not do anything to
the others.
For example, after you successfully chain to the file, the only data
structure that reflects the new data is the one declared as " *Input ".
The others are just as they were before the chain. This is a great feature
with lots of possible uses. And if IBM gives us the 'eval corresponding'
function Bob Cozzi is suggesting, it will be even better!!!


HTH

Tim Kredlo.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Simonse, Arco (CMK)
Sent: Friday, May 20, 2005 11:47 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: likerec by extname from copybook


Tim and Jon,

Thanks for your answers. I know that the manual for V5R2 isn't correct. Have
readed this on previous postings.

What I hoped to do is to define a template datastructure in my D-specs
copybook what calling programs should use when calling the I/O routine. The
only place where I want to have F-specs is in my serviceroutines. That's why
I tried to use the copybook DS on my LIKEREC definition.

When I replace my LIKERECs with LIKEDS keywords, just like you Tim, then I
cannot chain directly into the datastructure because that requires the use
of LIKEREC. I'm curious how you solved this Tim.

Thanks, Arco.
DISCLAIMER:
This message contains information that may be privileged or confidential and
is the property of C.Meijer B.V. It is intended only for the person to whom
it is addressed. If you are not the intended recipient, you are not
authorized to read, print, retain, copy,disseminate, distribute, or use this
message or any part thereof. If you receive this message in error, please
notify the sender immediately and delete all copies of this message. 

This footnote also confirms that this email message has been swept by the
presence of computer viruses


-- 
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.