SORTA läuft nicht wie gewünscht

[FNeurieser]

@Robi,

danke, das hat schon mal geholfen, hatte ich glatt übersehen. Jetzt bringt er zumindest nicht diese Fehlermeldung dafür aber

Datenstrukturfeldgruppe muss als DS_ARRAY(*).KEY_SUBF  
angegeben werden.

[Fuerchau]

Hm, vielleicht lässt du mal das Overlay weg, denn das ist ja in der DS unnötig.
Du bruchat nur ein Overlay, wenn du ein Feld innerhalb der DS redefinieren willst, was man allerdings besser mit einer geschachtelten DS machen sollte.

[B.Hauser]

Lass mal das DESCEND weg.

[camouflage]

Hast Du die Beispiele in der IBM Dok komplett durchgelesen?
SORTA(D) %subarr(emp(*).salary : 1 : numEmp);

würde einen descend Sort verursachen.
Also, Birgitta's Rat, lass den DESCEND weg.

[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);

[FNeurieser]

Seruvs,
danke dass Du Dir die Mühe gemacht hast. Ich werde das so implementieren.

LG
Franz-Georg

[Fuerchau]

Nichts zu danken, ich brauchte das nun auch um eine Subfile umzusortieren.

[camouflage]

Baldur, ich hätte da noch ein Aber.
Franz-Georg möchte das Ganze ja nach LINR und AEDT sortieren. Mit deiner Lösung geht das so nicht, es sei denn, die Felder werden in der DS entsprechend angeordnet.

Abgesehen davon, es geht überhaupt nicht mit %Fields, wenn nicht das entsprechende PTF für Rel. 7.3/4 geladen ist, da die %Fields Extension erst ab September 2021 implementiert wurde!

Die einzige Lösung dafür ist, wenn ein Release vor 7.3 installiert ist, über zwei SortA Statements zu gehen oder eine Neuanordnung der Felder.

[RobertMack]

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);

[Fuerchau]

Einen 2.Stufigen Sort kannst du ebenso erledigen.
Erst SORTA(D) für F1 und anschließend SORTA(A) für Feld 2.
I.d.R. bleibt die Reihenfolge des 1. Sorts erhalten.
(Wie oben bereits erwähnt).