sorta

[philsturm]

Hallo zusammen!

Ich habe eine kurze Frage zu einem sorta im free-Format.


Ich habe ein Array, das so aufgebaut ist:

D Array DS dim(10)
D qualified
D Feld1
D Feld2


Wie kann ich jetzt nach z.B. Feld2 sortieren lassen?

Schon jetzt: Danke!

[Fuerchau]

So unterstützt der SORTA das leider nicht:

D MyDs DS
D MyArray 20 dim(10)
D Feld1 10 overlay(myArray:1)
D Feld2 10 overlay(MyArray:*next)

SORTA Feld1
SORTA Feld2

[B.Hauser]

So unterstützt der SORTA das leider nicht:

Stimmt nicht!
Ab Release 7.1 können Array-Datenstrukturen SO sortiert werden:

 /Free
    SortA Array(*).Feld2;
 /End-Free

Birgitta

[Fuerchau]

Sehr schön, aber was nützt mir das jetzt auf V5 oder V6 ?
Vor Ende 2012 habe ich da wohl keine Chance .

[philsturm]

Danke! Das ist schonmal der erste Schritt.

Aber wie kann ich dieses Array dann füllen? In dem Array mit DS konnte ich ja sagen Feld1 = Feld1; Feld2 = Feld2.

Jetzt müsste ich die Felder ja als zusammenhängendes "Element" in das Array schreiben. Wie mache ich das bei unterschiedlichen Datentypen?

[B.Hauser]

Jetzt müsste ich die Felder ja als zusammenhängendes "Element" in das Array schreiben. Wie mache ich das bei unterschiedlichen Datentypen?

Musst Du nicht! Da Feld1 und Feld2 ebenfalls Feldgruppen sind:

 
D MyDS            DS                      Qualified
D   MyArray                             Dim(10)
D     Feld1                      10A    Overlay(MyArray)
D     Feld2                      10I 0  Overlay(MyArray: *Next)
/Free
    MyDS.Feld1(1) = 'XYZ';
    MyDS.Feld1(2) = 'AAA';
   
    MyDS.Feld2(1) = 'XXX';
    MyDS.Feld2(2) = %Int(MyDS.Feld1(7));
 /End-Free

Übrigens MyArray ist allein durch die Überlagerung definiert, d.h. es ist keine weitere Definition (wie Längenangabe oder Datentyp) notwendig

@Baldur
Glaubst Du, Du bist das einzige arme Schweinchen?
Ich muss noch alles auf V5R2 runterwandeln ... und bevor der letzte unserer Kunden nicht von V5R2 weg ist, passiert da auch nichts weiter.

Birgitta

[tarkusch]

Musst Du nicht! Da Feld1 und Feld2 ebenfalls Feldgruppen sind:

 
D MyDS            DS                      Qualified
D   MyArray                             Dim(10)
D     Feld1                      10A    Overlay(MyArray)
D     Feld2                      10I 0  Overlay(MyArray: *Next)
/Free
    MyDS.Feld1(1) = 'XYZ';
    MyDS.Feld1(2) = 'AAA';
   
    MyDS.Feld2(1) = 'XXX';
    MyDS.Feld2(2) = %Int(MyDS.Feld1(7));
 /End-Free

Übrigens MyArray ist allein durch die Überlagerung definiert, d.h. es ist keine weitere Definition (wie Längenangabe oder Datentyp) notwendig

@Baldur
Glaubst Du, Du bist das einzige arme Schweinchen?
Ich muss noch alles auf V5R2 runterwandeln ... und bevor der letzte unserer Kunden nicht von V5R2 weg ist, passiert da auch nichts weiter.

Birgitta

Hallo Frau Hauser,

wollte Anhand Ihren Beispiel ein Array sortieren.
Kann das Array eigentlich Felder besitzen mit Unterschiedlichen Länge, bin da beim Probieren, aber bekomme es einfach nicht gebacken(Dezimaldatenfehler).

Gruß

Tarki

[Fuerchau]

Das ist kein Problem, allerdings musst du die Variablen initialisieren (CLEAR).
Ein automatischer Init passiert ja nur auf dem übergeordneten Feld, Overlays können nicht automatisch initialisiert werden, deshalb sind Dezimalfelder mit BLANK gefüllt.

[B.Hauser]

Hallo Frau Hauser,

wollte Anhand Ihren Beispiel ein Array sortieren.
Kann das Array eigentlich Felder besitzen mit Unterschiedlichen Länge, bin da beim Probieren, aber bekomme es einfach nicht gebacken(Dezimaldatenfehler).

Gruß

Tarki

Sicher geht das! Wenn Du genau hinschaust haben die Felder in meinem Beispiel nicht nur unterschiedliche Datentypen sondern auch unterschiedliche Längen! (Ein Integer-Feld belegt nur 4 Byte).

Hast Du auch Deine Datenstruktur initialisiert (INZ in der DS Zeile) oder vor dem Verwenden/Fülllen explizit mit CLEAR initialisiert?

Birgitta

[tarkusch]

Ich habe die Felder wie folgt initialisiert:
D QQKST1 s 5 0
D QQKST2 s 4 0
D QQTEXT s 10
D QQFINR s 2 0
D QQPENR s 4 0

D MyDsSort DS qualified
D MyFldgr DIM(999)
D QQKST1 5 0 Overlay(MyFldgr)
D QQKST2 4 0 Overlay(MyFldgr: *Next)
D QQTEXT 10 Overlay(MyFldgr: *Next)
D QQFINR 2 0 Overlay(MyFldgr: *Next)
D QQPENR 4 0 Overlay(MyFldgr: *Next)

Vor dem befüllen im SFL mach ich kein Clear.

Die DatenStruktur und Feldgruppen werden korrekt befüllt, aber bei dem Befehl SortA MyDsSort.QQFINR; tritt der Fehler auf.

Gruß

Tarki

[B.Hauser]

                     
D MyDsSort        DS                  qualified  INZ                             
D   MyFldgr                           DIM(999)                                
D     QQKST1                     5  0 Overlay(MyFldgr)                        
D     QQKST2                     4  0 Overlay(MyFldgr: *Next)                 
D     QQTEXT                    10    Overlay(MyFldgr: *Next)                 
D     QQFINR                     2  0 Overlay(MyFldgr: *Next)                 
D     QQPENR                     4  0 Overlay(MyFldgr: *Next)

Du musst die Datenstruktur initialisieren!!!
Entweder durch ein INZ in der Definition oder ein CLEAR auf die Datenstruktur vor dem Befüllen.
Sonst stehen in den numerischen Feldern *Blanks drin!

[Fuerchau]

Ich nehme mal an, dass du eben nicht alle 999 Vorkommen befüllst, somit bleiben die restlichen Vorkommen uninitialisiert so dass der SORTA halt einen Dezimalfehler meldet.

In ILE kann man (glaube ich) mit %sort() die Anzahl Einträge vorgeben, aber ein Init ist immer besser.