perfekt, das API istgenau das, was ich gebrauchen kann, vielen Dank.


Wen es interessiert, hier ist mein Programm in CL:

Code:
  
PGM		PARM(&SPLF &JOB &SPLNRA &USRDTA &STATUS)   
 
DCL		VAR(&SPLF)   TYPE(*CHAR) LEN(10)					   
DCL		VAR(&JOB)  TYPE(*CHAR) LEN(26)						 
DCL		VAR(&SPLNRA) TYPE(*CHAR) LEN(5)	 
				   
DCL		VAR(&USRDTA) TYPE(*CHAR) LEN(10)					   
DCL		VAR(&STATUS) TYPE(*CHAR) LEN(10)					   
																  
DCL		VAR(&DATA) TYPE(*CHAR) LEN(4096)	/*  x'00010000'  */
																  
DCL		VAR(&SPLNRB) TYPE(*CHAR) LEN(4)				  
DCL		VAR(&JOBID) TYPE(*CHAR) LEN(16)				  
DCL		VAR(&SPLFID) TYPE(*CHAR) LEN(16)				 
															
															
CHGVAR	 VAR(%BIN(&SPLNRB)) VALUE(&SPLNRA)				
															
CHGVAR	 VAR(&DATA) VALUE(' ')							
CALL	   PGM(QUSRSPLA) PARM(&DATA X'00001000' +		   
			 'SPLA0100' &JOB &JOBID &SPLFID &SPLF &SPLNRB)  
  MONMSG	 MSGID(CPF0000)								 
															
CHGVAR	 VAR(&USRDTA) VALUE(%SST(&DATA   91 10))		  
CHGVAR	 VAR(&STATUS) VALUE(%SST(&DATA  101 10))		  
 
ENDPGM
Gruß
Christian