Defining an array over a group of fields in a file

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;