Nun denn:
D DS
D Feldgruppen x(8) dim(10) ascend
d xF2 5 0 dim(10) overlay(feldgruppen:1)
d xF2I 3 0 dim(10) overlay(feldgruppen:*next)

for x=1 to 10
xF2(x)=f2(x)
xF2I(x)=x
endfor;
sorta Feldgruppen;

=> xF2i(1) steht der Index aus F2 des kleinsten Wertes