Devart Forum

Код: Выделить всё

begin
    if 1 in (my_func('1'), my_func('2')) then
        null;
    end if;
end;

Код: Выделить всё

begin
    -- блок 1
    for v_cur in (
        select
            v.id,
            v2.val as val_2,
            (
                select
                    v3.val
                from
                    my_view v3
                where
                    v3.id = v.id
            ) as val_3
        from
            my_view v
            left join my_view v2 on v2.id = v.id
    )
    loop
        null;
    end loop;

    -- блок 2
    for v_cur in (
        with my_cte as (
            select
                v.id,
                v2.val as val_2,
                (
                    select
                        v3.val
                    from
                        my_view v3
                    where
                        v3.id = v.id
                ) as val_3
            from
                my_view v
                left join my_view v2 on v2.id = v.id
        )
        select
            mc.val_2,
            mc.val_3,
            v4.val as val_4
        from
            my_cte mc
            left join my_view v4 on v4.id = mc.id
    )
    loop
        null;
    end loop;
end;

Код: Выделить всё

my_view

Код: Выделить всё

select * from my_view

Код: Выделить всё

select
    u.username
from
    all_users u
where
    exists(
        select
            1
        from
            all_objects o
        where
            o.owner = u.username)

union all

select
    'PUBLIC'
from
    dual

order by
    1

Код: Выделить всё

and rownum = 1

Код: Выделить всё

CREATE OR REPLACE VIEW XXX.V_TEST_01 (
  A01
)
AS
  select
    1 as f01
from
    dual;

Код: Выделить всё

CREATE OR REPLACE VIEW XXX.V_TEST_01 (
  N01
)
AS
  select
    1 as n01
from
    dual;

Код: Выделить всё

create or replace package nag_test as

procedure my_proc(
    param1 number);

end nag_test;
/

create or replace package body nag_test as

procedure my_proc(
    param1 number)
is
begin
    null;
end my_proc;

end nag_test;

Код: Выделить всё

procedure my_proc(
    param1 number,
    param2 number)
is
begin
    null;
end my_proc;

Код: Выделить всё

create or replace view v_test_base(
    f01
)
as
select
    1 as f01
from
    dual;

create or replace view v_test_main(
    f01
)
as
select
    f01
from
    v_test_base;

Код: Выделить всё

CREATE OR REPLACE VIEW V_TEST_BASE (
  MY_DATA
)
AS
select
    1 as my_data
from
    dual;

Код: Выделить всё

CREATE OR REPLACE VIEW V_TEST_MAIN (
  F01
)
AS
select
    my_data
from
    v_test_base;

Код: Выделить всё

select * from v_nag@test_link

Код: Выделить всё

create or replace package xxx.nag_test as

procedure test_proc(
    a_id number, 
    a_value date);
    
procedure test_proc(
    a_id number, 
    a_value varchar2);

end nag_test;
/

create or replace package body xxx.nag_test as

procedure test_proc(
    a_id number, 
    a_value date)
is
begin
    null;
end;
    
procedure test_proc(
    a_id number, 
    a_value varchar2)
is
begin
    null;
end;

end nag_test;
/