Wie erstelle ich ein SEU UserExit Programm?

[AS400.lehrling]

Und der Codeblock (Jetzt nur testweise, soll bei Funktionieren noch verschönert werden.

C	 SKOMB		 BEGSR							 
*													 
C	 1			 DO 3						
C				 IF HRLEN<100			 
C				 MOVEL *ALL'*'	LTXT1	 
C				 ELSE							 
C				 MOVEL	 *ALL'*'	 LTXT2	 
C				 ENDIF							 
*													 
C				 MOVEL	 '0000001'	 RSEQN	 
C				 EVAL	 RRECO = 1				
C				 EVAL	 RRETC = '0'			 
C				 ENDDO							 
C				 EVAL	 LCMD1 = *BLANK		 
*													 
C	 EKOMB		 
ENDSR

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

Was muss ich anders machen?

Trotzdem Danke für alle bisherigen Tipps.

Gruß AS400.lehrling

[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.