Example: Execute Immediate
This example reads an SQL statement from the terminal into a host string variable, statement_buffer. If the user enters quit, the program ends. If an error occurs, the program informs the user.
exec sql include sqlca;
read statement_buffer from terminal;
loop while (statement_buffer <> 'QUIT')
exec sql execute immediate :statement_buffer;
if (sqlcode = 0) then
exec sql commit;
else if (sqlcode = 100) then
print 'No qualifying rows for statement:';
print statement_buffer;
else
print 'Error :', sqlcode;
print 'Statement :', statement_buffer;
end if;
read statement_buffer from terminal;
end loop;