Re: likerec by extname from copybook

[Barbara Morris <bmorris@xxxxxxxxxx>]

"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;