RE: likerec by extname from copybook

Hello Tim,

You did it almost the same way I did.... Only I prefered to minimize the
count of DS'es in the serviceroutines (they are large), so I placed most
of the LIKERECs on the procedure parameters.
 
Thanks for your support, Arco.

> -----Oorspronkelijk bericht-----
> Van: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Tim Kredlo
> Verzonden: vrijdag 20 mei 2005 21:30
> Aan: 'RPG programming on the AS400 / iSeries'
> Onderwerp: RE: likerec by extname from copybook
> 
> 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.
> 
> 
> 
> -- 
> 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.
> 
> 
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