create or replace procedure XXX
is
    -- プロシージャ内で参照できる変数を定義

begin

-- 内部プロシージャ
procedure yyy
is
    -- 内部プロシージャの変数を定義
   
    -- カラムの型を定義
    aaa TBL_AAA.BBB%type;
    -- テーブルの行を定義
    bbb TBL_AAA%rowtpye;

    -- カーソル定義
    cursor ccc(p_param) iS
    select * from TBL_AAA where x = p_param;
begin
    -- 処理を記述

    -- 変数に格納している行をそのままinsert・updateできる
    insert into TBL_AAA values bbb;
    update TBL_AAA set bbb where x = x;

    -- 暗黙カーソルオープン
    for ccc_rec in ccc(1) loop
        -- ループ
    end loop;
exception
    when no_data_found then
        -- 例外処理を記述
        -- 例外をスロー
        raise zzz;
    when others then
        -- その他例外を記述
end;
end yyy;

end XXX;