Como correr desde un Forms 6i un Procedimiento almacenado en la base de datos

jota27
03 de Enero del 2006
Declare
connection_id EXEC_SQL.CONNTYPE;
--conn_str varchar2(100) :='migracion/[email protected]';
bIsConnected BOOLEAN;
cursorID EXEC_SQL.CURSTYPE;
sqlstr VARCHAR2(1000);
nIgn PLS_INTEGER;
nRows PLS_INTEGER := 0;
nTimes PLS_INTEGER := 0;
mynum NUMBER;
mi_cadena_ejecucion VARCHAR2(200);

BEGIN
--
-- obtain the default connection and check that it is valid
--
connection_id := EXEC_SQL.DEFAULT_CONNECTION;
--conn := EXEC_SQL.OPEN_CONNECTION(conn_str);
bIsConnected := EXEC_SQL.IS_CONNECTED;
IF bIsConnected = FALSE THEN
TEXT_IO.PUT_LINE('No primary connection. Please connect before retrying.');
RETURN;
END IF;
--
-- subsequent calls to EXEC_SQL.Open_Cursor, EXEC_SQL.Parse, EXEC_SQL.Define_Column,
-- EXEC_SQL.Execute, EXEC_SQL.Fetch_Rows, EXEC_SQL.Column_Value,
-- EXEC_SQL.Close_Cursor, EXEC_SQL.Close_Connection all use this connection
-- implicitly from the cache
--
cursorID := EXEC_SQL.OPEN_CURSOR;
mi_cadena_ejecucion := :procedimiento_pr.procedimiento_ejecutar||(''||:barrio_siic.codigo_barrio||'');
EXEC_SQL.PARSE(cursorID, mi_cadena_ejecucion , exec_sql.v7);
EXEC_SQL.DEFINE_COLUMN(cursorID, 1, mynum);
nIgn := EXEC_SQL.EXECUTE(cursorID);
/*
LOOP
IF (EXEC_SQL.FETCH_ROWS(cursorID) > 0) THEN
EXEC_SQL.COLUMN_VALUE(cursorID, 1, mynum);
...
ELSE
exit;
END IF;
END LOOP;*/
EXEC_SQL.CLOSE_CURSOR(cursorID);
EXEC_SQL.CLOSE_CONNECTION;
End;
Esto lo realizado en un Botón. Pero aparece el siguiente error- FRM 40735 WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-306500, realice un procedimiento y nada. si me puede colaborar gracias.