Programm schreibt in Quelle

[DEVJO]

Wie geht´s ?

Welcher Record Name muss angegeben werden?

Danke schonmal.

[BenderD]

... da gibt es auf meiner Freeware Seite mehreres dazu, das man auch als Muster nehmen kann (GENFRAME, GENFREE...)

D*B

Wie geht´s ?

Welcher Record Name muss angegeben werden?

Danke schonmal.

[DEVJO]

Okay, das klappt schonmal, aber wie bekomme ich es jetzt so hin, das mir die Zeile, die ich einfügen möchte nicht ans Ende setzt sondern an den Anfang?

[BenderD]

... braucht man doch nur abpinnen, entweder neu erzeugen oder CPYF

D*B

Okay, das klappt schonmal, aber wie bekomme ich es jetzt so hin, das mir die Zeile, die ich einfügen möchte nicht ans Ende setzt sondern an den Anfang?

[Fuerchau]

Da SRC-Files sequentielle Dateien sind, musst du dir diese halt in eine Arbeitsdatei (z.B. in QTEMP) kopieren und dann in der gewünschten Form zurückschreiben (vorher halt alle Sätze löschen).
Anders macht es der SEU auch nicht.

[Pikachu]

Ein DSPFFD auf die Quelle zeigt den Formatnamen und die einzelnen Feldnamen. Falls der Formatname gleich dem Dateinamen ist, muß er im RPG-Programm mit RENAME umbenannt werden.

[RobertMack]

Da SRC-Files sequentielle Dateien sind, musst du dir diese halt in eine Arbeitsdatei (z.B. in QTEMP) kopieren und dann in der gewünschten Form zurückschreiben (vorher halt alle Sätze löschen).
Anders macht es der SEU auch nicht.

Ich wiederhole: http://newsolutions.de/forum-systemi...html#post20847

[Fuerchau]

Das Problem ist ja wohl, dass man sich auf Keyed-SRC's nicht verlassen sollte, wer denkt schon beim Anlegen daran. Nachträglich läßt sich das nicht ändern.

[RobertMack]

Mein Weg ist immer dieser:

CPYSRCF in Sicherung Q#Version#SRC
CRTSRCPF QTEMP/QKEYSRC ... ACCPTH(*KEYED)
CPYSRCF nach QTEMP/QKEYSRC mit SRCOPT(*SEQNBR) SRCSEQ(1.00 10.00)
OVR,
CALL TOOL,
DLTOVR,
CPYSRCF zurück mit SRCOPT(*SEQNBR) SRCSEQ(1.00 1.00)

...so auf die Schnelle, aus dem Kopf ;-)

[ThomasJoachimFuchs]

Okay, das klappt schonmal, aber wie bekomme ich es jetzt so hin, das mir die Zeile, die ich einfügen möchte nicht ans Ende setzt sondern an den Anfang?

Eine neue Source in der QTEMP erzeugen, alles in der richtigen Reihenfolge da reinschreiben und es mit CPYSRCF in die originale Quellenteildatei kopieren mit MBROPT(*REPLACE)