Zitat Zitat von ExAzubi
Und der Codeblock (Jetzt nur testweise, soll bei Funktionieren noch verschönert werden.
Code:
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