--  SQL generieren
--  Version:                  	V6R1M0 080215
--  Generiert am:             	16.12.19 13:39:57
--  Relationale Datenbank:    	S06FF274
--  Standardauswahl:          	DB2 for i
SET PATH "QSYS","QSYS2","SYSPROC","SYSIBMADM","SCHJG1901" ;

CREATE PROCEDURE EVENT1901.SETKRTBEZ (
	IN IACTUSR INTEGER ,
	IN IKRTBEZ CHAR(50) ,
	OUT ERRCDE INTEGER ,
	OUT SQLERRCDE INTEGER )
	DYNAMIC RESULT SETS 1
	LANGUAGE SQL
	SPECIFIC EVENT1901.SETKRTBEZ
	NOT DETERMINISTIC
	MODIFIES SQL DATA
	CALLED ON NULL INPUT
	SET OPTION  ALWBLK = *ALLREAD ,
	ALWCPYDTA = *OPTIMIZE ,
	COMMIT = *NONE ,
	CLOSQLCSR = *ENDMOD ,
	DECRESULT = (31, 31, 00) ,
	DFTRDBCOL = EVENT1901 ,
	DLYPRP = *NO ,
	DYNDFTCOL = *NO ,
	DYNUSRPRF = *USER ,
	RDBCNNMTH = *RUW ,
	SRTSEQ = *HEX
	BEGIN
	DECLARE SQLCODE INTEGER DEFAULT 0 ;
	DECLARE ANZAHL INTEGER DEFAULT 0 ;

DECLARE CSETKRTBEZ1 CURSOR FOR
SELECT COUNT ( * ) FROM GRP
WHERE
KRTBEZ = IKRTBEZ ;

OPEN CSETKRTBEZ1 ;
FETCH CSETKRTBEZ1 INTO ANZAHL ;
CLOSE CSETKRTBEZ1 ;


IF IKRTBEZ = '' THEN
	SET ERRCDE = 7 ;
ELSE
	IF ANZAHL = 0 THEN

		INSERT INTO EVENT1901 . KRT VALUES ( DEFAULT , IKRTBEZ ) ;
		SET ERRCDE = 0 ;
	ELSE
		SET ERRCDE = 7 ;
	END IF ;


END IF ;

SET SQLERRCDE = SQLCODE ;

END  ;