Re: Defining an array over a group of fields in a file

Hi Steve

I had used this approach - basing an array on a pointer to the first of several fields.

However, I've gone away from that. Apparently, there is no guarantee that the fields will be in the order you expect. So IF it has worked, this is an accident.

Another DS with the field names in the order you want, and with the array overlaying them, and no data definitions, forces the fields to be contiguous, so far as RPG is concerned.

Now maybe the LIKEREC also takes care of this.

I'm doing this from foggy memory, BTW - I think Jon Paris has some articles on this.

HTH
Vern

On 3/12/2013 10:35 AM, TheBorg wrote:

This is not posed as a question which *I* need to have answered; Instead,
it is posed as a way of sharing techniques with one another.

There are several ways for defining an array over a a group of fields coming
from a file. Which one do *you* use?

Example below...

-sjl


Example:

*----------------------------------
* Excerpt from F0902 DDS:
*----------------------------------

A R I0902
[...]
A GBAN01 R REFFLD(AN01 F98FRFA)
A GBAN02 R REFFLD(AN02 F98FRFA)
A GBAN03 R REFFLD(AN03 F98FRFA)
A GBAN04 R REFFLD(AN04 F98FRFA)
A GBAN05 R REFFLD(AN05 F98FRFA)
A GBAN06 R REFFLD(AN06 F98FRFA)
A GBAN07 R REFFLD(AN07 F98FRFA)
A GBAN08 R REFFLD(AN08 F98FRFA)
A GBAN09 R REFFLD(AN09 F98FRFA)
A GBAN10 R REFFLD(AN10 F98FRFA)
A GBAN11 R REFFLD(AN11 F98FRFA)
A GBAN12 R REFFLD(AN12 F98FRFA)
A GBAN13 R REFFLD(AN13 F98FRFA)
A GBAN14 R REFFLD(AN14 F98FRFA)
[...]

// Program Code snippet...



FF0902 IF E K DISK USROPN



D ds0902in ds likerec( I0902 : *INPUT )

d GBAN s like( ds0902in.GBAN01 )

d dim( 14 )

d Based( ptrGBAN )

d ptrGBAN...

d s * inz (%Addr(
ds0902in.gban01 ))

/Free



Open F0902;

Read I0902 DS0902in;

Close F0902;



*INLR = *On;

Return;



/End-Free;