Sätze in Quellen über Programm einfügen

[peter.kinne]

Hallo Forum,

ich muss bei allen Quellen einen Header maschinell einfügen.

Dafür habe ich nun ein Programm erstellt, dass die neuen Sätze mit der Sequenz 0,01, 0,02, 0,03 etc. in die QRPGLESRC geschrieben hat.

Wenn ich nun SEU starte, kommt die Fehlermeldung "Sätze in falscher oder doppelter Reihenfolge. Die Sätze wurden neu sortiert."

Und schon stehen meine Sätze ganz am Ende der Quelle.

Gibt es da einen Trick um das zu realisieren. Ist ja von der Sache ehr ziemlich einfach.

Viele Grüße

Peter

[andreaspr@aon.at]

Hallo Peter,

ich musste auch mal Anpassungen automatisch durchführen lassen. Habe dafür folgenden Trick verwendet:

001 C....
002 C....
003 C*<--- Nach 002 soll der Satz hinzugefügt werden => also:

Update QRPGLESRC 
Set Sequenzen = Sequenzen + 1 
Where Sequenzen > 002 

lg

[peter.kinne]

Hallo Andreas,

das klappt leider nicht.

Ich habe die Zeilenummer mit SQL verändert und dan 3 neue Zeilen ebenfalls mit SQL eingefügt.

Das Member sieht wie folgt aus.

3,00 Zeile 1
4,00 zeile 2
1,00 Eingefügt mit SQL 001
2,00 Eingefügt mit SQL 002

Und wenn ich dann SEU starte kommt die Fehlermeldung:

"Sätze nicht in aufsteigender Reihenfolge..bla..bla..bla"

Und aus 1,00 wird 5,00 und aus 2,00 wird 6,00.

Ich lade nun des gesamten Quelltext inTabellen, füge dort ein, lösche die Quelle und lege sie dann neu an.

Eine andere Möglichkeit sehe ich im Moment nicht.

Gruß

Peter

[RobertMack]

Hallo Peter, das ist der Trick:

In einer QxxxSRC arbeiten, die bei CRTSRCPF mit ACCPTH(*KEYED) erstellt worden ist.

Gruß,
Robert

Nachtrag: http://newsolutions.de/forum-systemi...html#post68665

[peter.kinne]

Hallo Robert,

vielen dank für den Tipp und natürlich liebe Grüße.

Aber es ist schon zu spät, ich mache es wie beschrieben.

LG Peter

[RobertMack]

...aber hoffentlich mit Sicherheitskopie und/oder COMIT

[peter.kinne]

aber sicher doch!!!!!

[Fuerchau]

Das war schon immer so, dass man in sequentielle Dateien keine Sätze einfügen sondern nur anhängen konnte.
Deshalb gibts auch (was eher selten verwendet wird) die *Keyed-SRCPF.
Auch SEU arbeitet da nicht anders.

[andreaspr@aon.at]

Hallo Andreas,

das klappt leider nicht.

Ich habe die Zeilenummer mit SQL verändert und dan 3 neue Zeilen ebenfalls mit SQL eingefügt.

Das Member sieht wie folgt aus.

3,00 Zeile 1
4,00 zeile 2
1,00 Eingefügt mit SQL 001
2,00 Eingefügt mit SQL 002

Hallo Peter,
willst sollen die eingefügten Zeilen mit 5 und 6 nummeriert werden?

Ich habe gerade mein PGM angeschaut und war doch etwas aufwändiger. Habe es wie folgt gemacht:

1. Teildatei bearbeiten
beim Insert die gewünschte Sequenznummer mit angeben aber davor das Update mit SeqNr. + 1.

2. Teildatei in ein Temp-File einfügen (sortiert) und wieder zurück.

// Daten herumkopieren,
// damit die Reihnfolge wieder stimmt
Exec Sql Delete From QTEMP/TEMPMBR;

Exec Sql Insert Into QTEMP/TEMPMBR
(Select SRCSEQ, SRCDAT, SRCDTA
From QTEMP/MEMBER Order By SRCSEQ);

Exec Sql Delete From QTEMP/MEMBER;

Exec Sql Insert Into QTEMP/MEMBER
(Select SRCSEQ, SRCDAT, SRCDTA
From QTEMP/TEMPMBR Order By SRCSEQ); 

lg