Du kannst natürlich auch für deine anderen Programme den nächsten Wert in der Sequence über eine SET-Anweisung ermitteln und anschließend in das Original-Datei-Feld umladen.

Ich habe z.T. solche Ermittlungen in eine eigene Prozedur gepackt, dann muss man die bestehenden Programme nicht auf embedded SQL ändern.

Beispiel:
Code:
 /Free
    Exec SQL  Set :MyField = Next Value For MySequence;
    Write MyFileF;
 /End-Free
Birgitta