RPG:
IMYDS E DSMYFILE 1000

ILERPG
D MyDs E DS extname('MyFile') occurs(1000)

In beiden Varianten wird dann per

/free
occurs MyDs nnn;
/end-free

oder
C NNN OCURS MYDS

auf die Feldgruppe umgeschaltet.
Read/Write's gehen aus der aktuellen Gruppe.