17,377
社区成员
发帖
与我相关
我的任务
分享
create or replace procedure test_YH (test1 in varchar2)
is
v_test varchar2(50) :='test';
v_flg boolean :=true;
begin
<<test_name_block>>
begin
dbms_output.put_line(v_test);
v_flg :=false;
end;
begin
if v_flg then
goto test_name_block;
end if;
end;
end test_YH;
根据楼上的回答,自己试着写了个小例子,好像这种goto语句并不常用,在实际的开发中,也不怎么提倡使用呢。
不知道还有没有一些比较有意思的非常巧妙的小例子。希望更多的大神指教一下<<>>
-- 就是一些临时性的工作,要处理一些数据,这是个例子,没测试,可能会有语法上的错误。
declare
m_dwcount int ;
begin
m_dwcount := 0 ;
for x in (select * from tab) loop
dbms_output.put_line(x.name) ;
m_dwcount := m_dwcount + 1 ;
end loop ;
dbms_output.put_line('共计' || m_dwcount || '个表(视图)对象!') ;
end ;