Getting Autotrace of a sql on forms6i screen

Question

Hi,
The sql scripts from forms 6i against 10G database are running fine when we click on a forms button..
But why this Ora-00904 error comes along with the scripts results on forms 6i screen. You can see it below
Below you find the complete code which I am using on WBPT.
If you have suggestion about improving this code please let me know. I am a single
person whoc is doing this.
Your suggestion will be appreciated.
Thanks
Insbor
Following result was generate on forms screen with ORA-00904: "POSITION" error
Forms Screen
ERROR:
ORA-00904: "POSITION": invalid identifier
Error enabling EXPLAIN report
Statistics
0 recursive calls
0 db block gets
8646 consistent gets
45 physical reads
0 redo size
775383 bytes sent via SQL*Net to client
356955 bytes received via SQL*Net from client
3214 SQL*Net roundtrips to/from client
0 sorts (memory)
0 sorts (disk)
48188 rows processed
My code on forms button wbpt:
Declare
in_file Text_IO.File_Type;
linebuf VARCHAR2(1800);
output varchar2(1000);
/* New Parameter define for form_ddl */
v_create_table_sql varchar2(2000);
v_test number;
un VARCHAR2(80);
pw VARCHAR2(80);
cn VARCHAR2(80);
BEGIN
Get_Connect_Info(un,pw,cn);
v_create_table_sql := 'Create table plan_table (STATEMENT_ID varchar2(30),'||
'PLAN_ID NUMBER ,'|| 'TIMESTAMP DATE ,'|| 'remarks varchar2(80),'||
'operation varchar2(30),'||'options varchar2(30),'||'object_owner varchar2(30),'
||'object_name varchar2(30),'||'optimizer varchar2(255),'||'search_columns number,'
||'id number(38),' ||'parent_id number(38),'
||'cost number(38),'||'cardinality number(38))';
select count(*) into v_test
from all_objects
where object_name = 'PLAN_TABLE'
and owner in (user,'PUBLIC');
if v_test = 0 then
forms_ddl(v_create_table_sql);
Forms_DDL('grant select on plan_table to public');
Forms_DDL('create public synonym plan_table for plan_table');
Forms_DDL('create role plustrace');
Forms_DDL('grant select on v_$sesstat to plustrace');
Forms_DDL('grant select on v_$statname to plustrace') ;
Forms_DDL('grant select on v_$session to plustrace') ;
Forms_DDL('grant plustrace to dba with admin option') ;
Forms_DDL('grant plustrace to public') ;
end if;
if v_test <> 0 then
forms_ddl('delete from plan_table ');
Forms_DDL ('commit');
end if;
IF NOT Form_Success THEN
Message ('Table Creation Failed');
ELSE
null;
-- Message ('Table Created');
END IF;
--Old Work
in_file := Text_IO.Fopen('c:\explain_plus\misc\create_ascript3.bat', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' @echo off');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db=%1 ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' if exist connect_DB == goto usage ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' echo " sqlplus %connect_db% @c:\explain_plus\misc\auto_trace.txt" > c:\explain_plus\misc\runauto.txt ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' :end ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db= ');
Text_IO.put_line(in_file,' ');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\create_ascript4.bat', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' @echo off');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db=%1 ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' if exist connect_DB == goto usage ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' echo " sqlplus %connect_db% @c:\explain_plus\misc\raw_Explain.txt" > c:\explain_plus\misc\run_explain.txt ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' :end ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db= ');
Text_IO.put_line(in_file,' ');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\del_all.bat', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' @echo off');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' del /s /q c:\explain_plus\misc\* ');
Text_IO.put_line(in_file,' ');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\raw_explain.txt', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' set trimspool on ');
Text_IO.put_line(in_file,' set heading off ');
Text_IO.put_line(in_file,' set feedback off ');
Text_IO.put_line(in_file,' set echo off');
Text_IO.put_line(in_file,' EXPLAIN PLAN FOR ');
Text_IO.put(in_file, :sql.sql);
Text_IO.put_line(in_file,' ; ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' exit');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\auto_trace.txt', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' set trimspool on ');
Text_IO.put_line(in_file,' set heading off ');
Text_IO.put_line(in_file,' set feedback off ');
Text_IO.put_line(in_file,' set echo off');
Text_IO.put_line(in_file,' spool c:\explain_plus\misc\traceonly.txt');
Text_IO.put_line(in_file,' set autotrace traceonly ');
Text_IO.put_line(in_file,' ');
Text_IO.put(in_file, :sql.sql);
Text_IO.put_line(in_file,' ; ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' spool off');
Text_IO.put_line(in_file,' set autotrace off ');
Text_IO.put_line(in_file,' exit');
Text_IO.FCLOSE(in_file);
output:='c:\explain_plus\misc\create_ascript3.bat '||un||'/'||pw||'@'||cn ;
Host(output,no_screen);
output:='sqlplus -s system/manager @c:\explain_plus\misc\runauto.txt' ;
Host(output,no_screen);
output:='c:\explain_plus\misc\create_ascript4.bat '||un||'/'||pw||'@'||cn ;
Host(output,no_screen);
output:='sqlplus -s system/manager @c:\explain_plus\misc\run_explain.txt' ;
Host(output,no_screen);
set_'Explain Plan','You are going to generate explain plan for that SQL. ');
exception
WHEN OTHERS
THEN
message('Error occured');
If Text_IO.is_open(in_file) then
Text_IO.Fclose(in_file);
output:='c:\explain_plus\misc\del_all.bat';
host(output,no_screen);
End if;
end;

Answer 1

Hi,
Now my application of getting explain plan of a sql is running fine.
But during running, one script which is written inside the wbp trigger, I manually close the forms plus80.sql screen, which is cumbersome. Could someone suggest me what changes I will do in the code in order to terminate this plus80.sql forms screen automatically.
Thanks
Insbor.
My code as I posted earlier
Declare
in_file Text_IO.File_Type;
linebuf VARCHAR2(1800);
output varchar2(1000);
/* New Parameter define for form_ddl */
v_create_table_sql varchar2(2000);
v_test number;
un VARCHAR2(80);
pw VARCHAR2(80);
cn VARCHAR2(80);
BEGIN
Get_Connect_Info(un,pw,cn);
select count(*) into v_test
from all_objects
where object_name = 'PLAN_TABLE'
and owner in (user,'PUBLIC');
if v_test = 0 then
forms_ddl(v_create_table_sql);
end if;
if v_test <> 0 then
forms_ddl('delete from plan_table ');
Forms_DDL ('commit');
end if;
IF NOT Form_Success THEN
Message ('Table Creation Failed');
ELSE
null;
-- Message ('Table Created');
END IF;
--Old Work
in_file := Text_IO.Fopen('c:\explain_plus\misc\create_ascript3.bat', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' @echo off');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db=%1 ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' if exist connect_DB == goto usage ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' echo host " sqlplus -s %connect_db% @c:\explain_plus\misc\auto_trace.txt" > c:\explain_plus\misc\runauto.txt ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' :end ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db= ');
Text_IO.put_line(in_file,' ');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\create_ascript4.bat', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' @echo off');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db=%1 ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' if exist connect_DB == goto usage ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' echo host " sqlplus -s %connect_db% @c:\explain_plus\misc\raw_Explain.txt" > c:\explain_plus\misc\run_explain.txt ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' :end ');
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' set connect_db= ');
Text_IO.put_line(in_file,' ');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\raw_explain.txt', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' set trimspool on ');
Text_IO.put_line(in_file,' set heading off ');
Text_IO.put_line(in_file,' set feedback off ');
Text_IO.put_line(in_file,' set echo off');
Text_IO.put_line(in_file,' EXPLAIN PLAN FOR ');
Text_IO.put(in_file, :sql.sql);
Text_IO.put_line(in_file,' ; ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' exit');
Text_IO.FCLOSE(in_file);
in_file := Text_IO.Fopen('c:\explain_plus\misc\auto_trace.txt', 'w');
Text_IO.Put_Line(in_file, linebuf);
Text_IO.put_line(in_file,' set trimspool on ');
Text_IO.put_line(in_file,' set heading off ');
Text_IO.put_line(in_file,' set feedback off ');
Text_IO.put_line(in_file,' set echo off');
Text_IO.put_line(in_file,' spool c:\explain_plus\misc\traceonly.txt');
Text_IO.put_line(in_file,' set autotrace traceonly ');
Text_IO.put_line(in_file,' ');
Text_IO.put(in_file, :sql.sql);
Text_IO.put_line(in_file,' ; ' );
Text_IO.put_line(in_file,' ');
Text_IO.put_line(in_file,' spool off');
Text_IO.put_line(in_file,' set autotrace off ');
Text_IO.put_line(in_file,' exit');
Text_IO.FCLOSE(in_file);
output:='c:\explain_plus\misc\create_ascript3.bat '||un||'/'||pw||'@'||cn ;
Host(output,no_screen);
output:='sqlplus -s system/manager @c:\explain_plus\misc\runauto.txt' ;
Host(output,no_screen);
output:='c:\explain_plus\misc\create_ascript4.bat '||un||'/'||pw||'@'||cn ;
Host(output,no_screen);
output:='sqlplus -s system/manager @c:\explain_plus\misc\run_explain.txt' ;
Host(output,no_screen);
exception
WHEN OTHERS
THEN
message('Error occured');
If Text_IO.is_open(in_file) then
Text_IO.Fclose(in_file);
output:='c:\explain_plus\misc\del_all.bat';
host(output,no_screen);
End if;
end;