/* There is no need for a FROM clause in this ** SELECT */exec sql select date_part('year', date('now')) into :current_year;next_year = current_year + 1;statement_buffer = 'save ' + table_name + ' until Jan 1 ' + next_year;exec sql execute immediate :statement_buffer;
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;