Passing a multiple occurrence datastructure from a procedure

Hi,

 

I'm having troubles with passing a multiple occurence data structure as
a parameter to a subprocedure.  Can anybody help me ?

 

I have a subprocedure where I use a multiple occurrence datastructure
with 2 occurrences : the first occurrence is filled with the mailing
address of a client, the second with the delivery address.

However when I pass this datastructure, it seems as if I get only the
first occurrence.  My procedure interface looks like this :

 

D GetPatLoc       PI                                     

D Ref1                                Like(Ref1Kc) Const 

D Ref2                                Like(Ref2Kc) Const 

D Loca                                LikeDs(Location)   

                                                          

D Location        DS                  Occurs(2)          

D ... 

 

 

What am I doing wrong ?

 

 

 

Johan Vangilbergen

 

YUSE

Phone : +32 16 74 50 80

Fax : +32 16 74 50 89

Email : jvg@xxxxxxx <mailto:jvg@xxxxxxx> 

Web : WWW.Yuse.be <http://www.Yuse.be> 

Address : Bondgenotenlaan 138, B-3000 Leuven, Belgium