Falls es jemanden interessiert:
Code:
 DCL		VAR(&RTNVAR) TYPE(*CHAR) LEN(350)			  
 DCL		VAR(&B4) TYPE(*CHAR) LEN(4) VALUE(x'00000000') 
 DCL		VAR(&INTJOBIDF) TYPE(*CHAR) LEN(16) VALUE(' ') 
 DCL		VAR(&KEYF12) TYPE(*CHAR) LEN(01)			   
 DCL		VAR(&KEYF03) TYPE(*CHAR) LEN(01)			   
 DCL		VAR(&FULLJOB) TYPE(*CHAR) LEN(26) VALUE('*')   
									   
 CHGVAR	 VAR(%BIN(&B4)) VALUE(350) 														 
 
 CALL PGM(QUSRJOBI) PARM(&RTNVAR &B4 +		   
	 'JOBI0600' &FULLJOB &INTJOBIDF)			
 CHGVAR VAR(&KEYF03) VALUE(%SST(&RTNVAR 103 01)) 
 CHGVAR VAR(&KEYF12) VALUE(%SST(&RTNVAR 104 01))  
....
Hiermit fange ich jetzt nach dem Beenden F12, F3 ab