Code:
D NN$DS03          DS                  INZ                   
D DS$DS03                              Dim(10)               
D    DS03KEY                           Overlay(DS$DS03)       
D       DS03LINR                  8S 0 Overlay(DS03KEY:1)     
D       DS03AEDT                  8S 0 Overlay(DS03KEY:9) 
D    DS03ARTN                     8S 0 Overlay(DS$DS03:*Next) 
D    DS03LANR                    25A   Overlay(DS$DS03:*Next)

SortA %SubArr(DS03KEY:1:Zähler);