Man kann ein überlagertes Sub-Field definieren, das z.B. von Land und Ort überlagert wird und danach sortieren:

Code:
D                 DS                                             
D Adresse                             Dim(5)                     
D  Name                         15A   Overlay(Adresse)          
D  Strasse                      15A   Overlay(Adresse: *Next)   
D  LandOrt                            Overlay(Adresse: *Next)
D    Land                        3A   Overlay(LandOrt)  
D    Ort                        10A   Overlay(LandOrt: *Next) 
D  PLZ                           5A   Overlay(Adresse: *Next)   
   

 /Free
    SortA Adresse;           
    SortA LandOrt;
    SortA Ort;
    SortA PLZ;
 /End-Free

Übrigens ab 7.1 können auch Array-Datenstrukturen nach Sub-Feldern sortiert werden.

Birgitta