SORTA läuft nicht wie gewünscht

[Fuerchau]

So, konnte es mal nachprobieren und auch anwenden:
Nicht die DS muss DIM haben, sondern ein Feld in der DS:

d ds03 DS
d DS03Sort 49a DIM(10)
d DS03ARTN 8s 0 Overlay(ds03Sort:1)
d DS03LINR 8s 0 Overlay(ds03Sort:*next)
d DS03LANR 25a Overlay(ds03Sort:*next)
d DS03AEDT 8s 0 Overlay(ds03Sort:*next)

SORTA(D) %subarr(DS03Sort : 1 : numEmp);