In ILERPG gehts mit einer DIM:

d myDs ds dim(100)
d fld1 10
d fld2 5
:

c sorta fld1

OCCURS-Strukturen können nicht mit RPG sortiert werden.