DECLARE
  FULL_NAME      varchar2(50);
  nIgn           PLS_INTEGER;
  nRows          PLS_INTEGER := 0;
  connection_id  EXEC_SQL.CONNTYPE;
  cursor_id      EXEC_SQL.CURSTYPE;
  sql_str        VARCHAR2(100);
BEGIN
  connection_id := EXEC_SQL.OPEN_CONNECTION('scott/tiger@orcl');
  cursor_id := EXEC_SQL.OPEN_CURSOR(connection_id);
  sql_str := 'select emp_name from '||:YEAR;
  EXEC_SQL.PARSE(connection_id,cursor_id,sql_str,EXEC_SQL.V7);
  EXEC_SQL.DEFINE_COLUMN(connection_id,cursor_id,1,FULL_NAME);
  nign := EXEC_SQL.EXECUTE(connection_id,cursor_id);
  while (EXEC_SQL.FETCH_ROWS(connection_id,cursor_id) > 0 ) loop
    EXEC_SQL.COLUMN_VALUE(connection_id,cursor_id,1,FULL_NAME);
    nrows := nrows+1;
  End Loop;
  exec_sql.close_cursor(connection_id,cursor_id);
  Exec_sql.close_connection(connection_id);
END;