-- erstellen mit: -- D*B RUNSQLSTM SRCFILE(QSQLSRC) B*D -- D*B+ SRCMBR(GETKEY) B*D -- D*B+ NAMING(*SQL) B*D -- D*B+ DFTRDBCOL(KURSSQL) B*D -- generieren unique Key create function GET_KEY ( I_TABLE VARCHAR(18) , I_FIELD VARCHAR(18) ) returns int language sql modifies sql data set option dbgview = *LIST begin declare O_OUT int; declare sqlcode int; update AUTOINC set HIGHVAL = HIGHVAL + 1 where TABLENAME = I_TABLE and FIELD = I_FIELD; if sqlcode = 100 then set O_OUT = 1; insert into AUTOINC values( I_TABLE , I_FIELD , O_OUT ); else select HIGHVAL into O_OUT from AUTOINC where TABLENAME = I_TABLE and FIELD = I_FIELD; end if; return O_OUT; end ; commit ;