RE: likerec by extname from copybook -- RPG400-L

Ah, that will do it!

Thank you Barbara. 

> -----Oorspronkelijk bericht-----
> Van: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Barbara Morris
> Verzonden: vrijdag 20 mei 2005 23:10
> Aan: rpg400-l@xxxxxxxxxxxx
> Onderwerp: Re: likerec by extname from copybook
> 
> "Simonse, Arco (CMK)" wrote:
> > 
> > I have considered to do so, but because templates are in our D-spec 
> > copybook I must use EXTNAME there. (Or else I would handle 
> outside our 
> > naming rules) I have a workaround that works, but it causes me to 
> > define the file/recordname in copybook and serviceprograms both. I 
> > would like to define the template only in the copybook, and further 
> > use the template.
> > Is that possible?
> > 
> 
> Just to clarify the "based" suggestion I made: It would allow 
> you to use EXTNAME in your copybook, and you would only need 
> to define the file in the modules where you were going to do the I/O.
> 
> Your copybook would look like this:
>  
>  d Relatie_SelectWdw...
>  d                 PR            10I 0 extproc('Relatie_SelectWdw')
>  d  ZoekArg                      40A   const
>  d  ZoekMeth                     10I 0 const
>  d  Relatie_ds                         likeds(Relatie_t)
> 
> Your procedure doing the I/O would look like this:
> 
>  p Relatie_SelectWdw...
>  p                 B                   export
>  d Relatie_SelectWdw...
>  d                 PI            10I 0
>  d  ZoekArg                      40A   const
>  d  ZoekMeth                     10I 0 const
>  d  Relatie_ds_parm...
>  d                                     likeds(Relatie_t)
> 
>  d  Relatie_ds     DS                  likerec(ALGPCNR)
>  d                                     based(pRelatie_parm)
>  d  pRelatie_parm  S               *
>   /free
>      // set the basing pointer for Relative_ds to point to
>      // Relatie_parm.  Now, use Relatie_ds in your code,
>      // and ignore Relatie_ds_parm
>      eval  pRelative_parm = %addr(Relatie_ds_parm);
>      ...
>  
>      chain relncn algpcnr Relatie_ds;
> 
> --
> 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