Re: Procedure with multiple fields computed

[Barbara Morris <bmorris@xxxxxxxxxx>]

Jeff Crosby wrote:
>
> For future reference, can the parms be data structures?
>

Yes.  Say you have this code:

D someds          ds
D   subf1                10a
D   subf2                 5p 2

C          call   'SOMEPGM'
C          parm               someds

Then you'd code this:

D someds          ds
D   subf1                10a
D   subf2                 5p 2

D somepgm         pr         extpgm('SOMEPGM')
D   dsparm                   likeds(someds)

 /free
        somepgm (someds);

LIKEDS is new in V5R1.  Prior to that, you would just use LIKE(someds).
It wouldn't make any difference to the caller, but if the called program
was using the prototype too, there would be some ugliness involved in
using the passed data structure.  But in V5R1, with that prototype and
DS, the called program would look like this:

 /copy pr_and_ds
D somepgm         pi
D   ds                       likeds(someds)

 /free
         ds.subf1 = 'x';
         ds.subf2 = 1.0;