PostgreSQL 無名ブロックサンプル

サンプル１　テストデータ作成などに利用するケース

ストアドするほどではないのだけれど、とりあえず簡単なプロシージャを書きたい時や、簡単なテストデータを作成したい時など活躍します。

-- 以下サンプルプログラム用にテーブル作成
create table ex304 (cnt integer ,col1 character varying,col2 integer)
;

DO $$
declare
cnt integer;
begin
cnt :=0;
for j in 1..5 loop
   for i in 1..10 loop
      cnt :=cnt + 1;
      insert into ex304 values(cnt,'tes'||(cnt::varchar),round(( random() * (1 - 1000) )::numeric, 0) + 1000 );
   end loop;
   commit;
   raise info  'commitしました %'  , cnt::varchar;
end loop;
end;
$$
;

サンプル２　OUTパラメータを持つストアドプロシージャを実行するケース

DO $$
DECLARE
  v_name            character varying;
  v_quantity        integer;
  v_earnings        integer;
  v_result_message  character varying;
  v_isdebug         boolean;
BEGIN
  v_name     :='みかん1';
  v_quantity := 10;
  v_earnings := 0;
  v_result_message := null;
  v_isdebug := false;
  call sooni.proceeds_kudamono(v_name,v_quantity,v_earnings,v_result_message,v_isdebug);
  raise info 'proceeds_kudamono()の結果: v_earnings:%  v_result_message:%', v_earnings,v_result_message;
END
$$
;

実行例

INFO:  [ proceeds_kudamono() ] p_name:みかん1  p_quantity:10  p_earnings:0 P_isdebug:<NULL>  p_result_message:f
INFO:  proceeds_kudamono()の結果: v_earnings:10  v_result_message:正常終了
D
myposdb=#