-- ************************************************************
-- *** Feel free to use this SQL-code, but please           ***
-- *** do not remove these copyright lines.                 ***
-- *** (C) Roger Felix - Lund - Sweden                      ***
-- *** [roger_felix@hotmail.com, web_master@work.utfors.se] ***
-- *** URL: http://hem.fyristorg.com/publish/index.html     ***
-- ************************************************************

CREATE OR REPLACE PROCEDURE FORM_CALC( 
    i        IN VARCHAR2, 
    Res  IN OUT VARCHAR2)  
IS 
  cur INTEGER; 
  dummy  INTEGER; 
BEGIN 
  cur:= dbms_sql.open_cursor; 
  dbms_sql.parse(cur, 
  'DECLARE DummyDummyDummy VARCHAR2(500); BEGIN '||  
  ' DummyDummyDummy := :Res; ' || 
  ' select '||i||' into :res from dual; '||' END;',2); 
  dbms_sql.bind_variable(cur,'Res',Res,300); 
  dummy:= dbms_sql.execute(cur); 
  dbms_sql.variable_value(cur,'Res',Res); 
  dbms_sql.close_cursor(cur); 
END; 
/