aboutsummaryrefslogtreecommitdiff
path: root/src/interfaces/ecpg/test/stp.pgc
blob: 6021ae0db40ff14673e936a2771a8fa855ad66ea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
EXEC SQL INCLUDE sqlca;

int my_fun (void)
	{
	EXEC SQL BEGIN DECLARE SECTION;
	int			sql_index = 0;
	EXEC SQL END DECLARE SECTION;	

	EXEC SQL WHENEVER SQLERROR GOTO Error;
	EXEC SQL SELECT MIN(index) INTO :sql_index FROM tab;

	return (sql_index);

Error:
	return (sqlca.sqlcode);	
	}