Also der Code-Block sieht folgendermaßen aus.
Code:
D RETINF		  DS				  BASED(P2) 
D  RRETC				  1	  1			  
D  RRSV2				  2	  4			  
D  RRECO				  5	  8B 0		   
D  RSEQN				  9	 15			  
D  RRSV3				 16	 37
Paramterds für den 2 Parameter

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
Was muss ich anders machen?

Trotzdem Danke für alle bisherigen Tipps.