Re: passing data structure as function parm

[bmorris@xxxxxxxxxx]

>Date: Thu, 11 Oct 2001 12:42:47 -0600 (MDT)
>From: James Rich <james@eaerich.com>
>
>I want to pass a data structure as one of the parameters to a function
>(oops - I mean sub procedure).  So I get something like this:
>
>caller:
>C         eval err = get_data(data_struct)
>
>then called does:
>C         z-add          data            data_struct.field1
>C         z-add          data            data_struct.field2
>...
>I don't know how to do this in RPG.  I'm at V4R1.  Any help?

James, since you're pre-V5R1, you would code something like this:

P get_data          b
D get_data          pi
D    ds_parm                  100
D ds                ds               based(pDs)
D   field1                      5p 0
D   field2                     10i 0
c           eval     pDs = %addr(ds_parm)
c           z-add    data        field1

It's better in V5R1.

(z-add???  Yikes!)

Barbara Morris