创建存储过程！

创建如下存储过程（从书上抄的）
CREATE OR REPLACE PROCEDURE show_index(Ptable IN all_indexs.table_name%TYPE
DEFAULT NULL)IS
CURSOR show_index_cur(Ctable all_indexes.table_name%TYPE)is
SELECT
table_owner,table_name,tablespace_name,index_name,uniqueness,status
FROM all_indexes
WHERE(Ctable IS NULL OR table_name=Ctable)
ORDER BY
table_owner,table_name,index_name;
TB CONSTANT VARCHAR2(1):=CHR(9);
show_index_rec show_index_cur%ROWTYPE;
old_index_info show_index_cur%ROWTYPE;
status NUMERIC;
local_table all_indexes.table_name%TYPE;
BEGIN
status:=0;
local_table:=UPPER(Ptable);
old_index_info.table_owner:='GARBAGE_OWNER';
old_index_info.table:='GARBAGE_TABLE';
IF(local_table IS NULL)THEN
DBMS_OUTPUT.put_line('User'||USER||':Index Information for All Tables');
ELSE 
DBMS_OUTPUT.put_line('User'||USER||':Index Information for Table'||local_table);
END IF;
OPEN show_index_cur(local_table);
LOOP
FETCH show_index_cur INTO show_index_rec
EXIT WHNE show _index_cur%NOTFOUND;
IF(old_index_info.table_owner!=show_index_rec.table_owner OR
old_index_info.table_name!=show_index_rec.table_name) THEN
break
DBMS_OUTPUT.put_line(TB);
END IF;
DBMS_OUTPUT.put_line('Table Owner:'||show_index_rec.table_owner||TB||
'Table:'||show_index_rec.table_name);
DBMS_OUTPUT.put_line('Index:'||show_index_rec.index_name||TB||'in'||
show_index_rec.tablespace_name||TB||show_index_rec.uniqueness||TB||
show_index_rec.uniqueness||TB||show_index_rec.status);
old_index_info:=show_index_rec;
END LOOP;
CLOSE show_index_cur;
EXCEPTION
WHEN OTHERS THEN
BEGIN
status:=SQLCODE;
DBMS_OUTPUT.put_line('show_index:'||SQLERRM(status));
IF(show_index_cur%ISOPEN)THEN
CLOSE show_index_cur;
END IF;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
END show_index;
/运行后却提示编译错误，什么提示都没有，根本没有说是因为某一行出现什么样的错误导致编译错误，我就是想知道，到是是哪一行出现错误。