RE: Passing multi occurrence DS pointer to procedure - Data out ofalignment

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hello,

> When I'm in debug and eval the pointer of the multi occurrence DS and 
> occurrence one and get different pointer value (see below).  Is this 
> normal?
>
> EVAL %ADDR(MCRADD)
> %ADDR(MCRADD) = SPP:CFFC819861042450
> EVAL %ADDR(MCRADD(1))
> %ADDR(MCRADD(1)) = SPP:CFFC819861041F50

The %occur() BIF or the OCCUR op-code can be used to set the ocurrance of 
a MODS. When the occurence is set to 1, the addresses should be the same. 
When the occurrence is set to 2, then %ADDR(MCRADD) shoudl equal 
%ADDR(MCRADD(2)).  When the occurence is set to 3, then %ADDR(MCRADD) 
should match %ADDR(MCRADD(3)) and so on...

If you're passing the data to a subprocedure by pointer, make sure you set 
the occurrence to 1 before getting the address that you pass.

A much better alternative is to use data structure arrays INSTEAD OF 
multiple occurence data structures.  Then you can declare the array on the 
prototype (instead of a pointer) so that it'll always be passed correctly.