Wie erstelle ich ein SEU UserExit Programm?

[ExAzubi]

Bist du dir Sicher das die SR zu Begin SKOMB und am Ende EKOMB heißt ?

Gruß AS400.lehrling

Ja warum nicht?

Die Benennung der SR ist nun doch ganz egal, und die des Ende TAG's ja auch!?!

[Bruno Jakob]

Versuch doch mal Folgendes:

Vor der Schleife
MOVEL 'A000001' RSEQN
Damit teilst du SEU mit, dass du nach Zeile 1 was einfügen willst. Statt der 1 kannst du aus der Eingabestruktur auslesen, in welcher Zeile der Befehl eingegeben wurde und das entsprechend setzen, damit nicht nach Zeile 1 sondern nach der aktuellen Zeile eingefügt wird.

In der Schleife
die Zeilen mit dem einzufügenden Text füllen. Den Pointer auf die Zeile dabei jeweils erhöhen.

Nach der Schleife
EVAL RRECO = Anzahl der eingefügten Zeilen
EVAL RRETC = '0'

Ich mache das in einem Cobol-Programm und das funktioniert so.

Bruno

[ExAzubi]

Danke Bruno für den Tipp, der hat geholfen.