create procedure sp_hogehoge @inum int as
begin
  --何かの処理
  --その処理結果に基づき変数やテーブルをSELECTする
  select * from ksale where empno = @inum
end

exec sp_hogehoge 7

ORACLE　MSSQL　SSA　MySQL　

--Watcom-SQLサンプル
begin
  --変数宣言
  declare mystr varchar(20);
  declare mycnt int;
  --値の代入
  set mycnt = 0;
  set mystr = '文字';

  --IF文
  if mycnt = 0 then
      set mystr = '文字２';
      message mystr;
  else
    message '文字３';
  end if;

  --CASE文
  case month(getdate())
         when 1 then set mystr = '1月'
         when 1 then set mystr = '2月'
         when 1 then set mystr = '3月'
         when 1 then set mystr = '4月'
         else set mystr = '1～4月以外'
  end case;
  message mystr;

  --WHILE-LOOP
  while mycnt <= 5 loop
    set mycnt = mycnt + 1;
    message mycnt;
  end loop;

  --BEGIN～ENDブロック内でのSELECT文の発行
  select now();

end

ORACLE　MSSQL　SSA　MySQL　

--Watcom-SQLサンプル（カーソルLOOPを使用するストアドプロシージャ）

--drop procedure sp_hoge;

create procedure sp_hoge (in inum int)
begin
  --変数宣言
  declare err_notfound EXCEPTION FOR SQLSTATE '02000';
  declare mystr varchar(50);

  --カーソル使用列
  declare vempnm varchar(40);
  declare vjob varchar(20);
  --カーソル宣言
  declare mycur cursor for
  select empnm,job from kemp where deptno = inum;

  --カーソルオープン
  open mycur;

  --LOOP
  looplbl:
  loop
    --FETCH（行の取り出し）
    fetch next mycur into vempnm, vjob;
    if sqlstate = err_notfound then
      leave looplbl;
    end if;
    --EOFでなければ何か処理をする
    if vjob = 'スタッフ' then
        set mystr = '営業スタッフ：';
    else
        set mystr = '';
    end if;
    message mystr || vempnm;
  end loop looplbl;

  --カーソルクローズ
  close mycur;

end;

--ストアドプロシージャ実行
exec sp_hoge 1;

ORACLE　MSSQL　SSA　

--Watcom-SQLサンプル（OUTパラメータを使用するストアドプロシージャ）

--drop procedure sp_hoge_outp;

create procedure sp_hoge_outp (out ovar varchar(30))
begin
  --何やかやの処理
  --何やかやの処理終わり
  --OUTパラメータにセット
  set ovar = 'アウト！';
end;

--ストアドプロシージャ実行
begin
  declare myout varchar(30);
  call sp_hoge_outp (myout);
  select myout;
end;

ORACLE　MSSQL　SSA　

--Watcom-SQLサンプル（動的SQLを使用するストアドプロシージャ）
--EXECUTE IMMEDIATE を使用します
drop procedure sp_hoge_dyna;

create procedure sp_hoge_dyna (in kbn varchar, in inum int)
begin
  --変数宣言
  declare sqlstmt varchar(200);

  --SQL文生成（区分：１の時は部署番号に該当する社員名、以外は部署名）
  if kbn = '1' then
    set sqlstmt = 'select empnm from kemp where deptno = ' || inum;
  else
    set sqlstmt = 'select deptnm from kdept where deptno = ' || inum;
  end if;

  --SQL文実行
  execute immediate(sqlstmt);

end;

--ストアドプロシージャ実行（部署番号：１の社員表示）
--※複数行を返すSELECT文はエラーになります。そもそも結果が表示されないので、原則的にDDL（CREATEなど）
--　と更新DML（INSERT,UPDATE,DELETE）にしか使えないのかも？
exec sp_hoge_dyna '1',1;
--ストアドプロシージャ実行（部署番号：１の部署名表示）
exec sp_hoge_dyna '2',1;

ORACLE　MSSQL　SSA　

--Watcom-SQLサンプル（共有テーブルを使用するストアドプロシージャ）
--一時テーブルと言う概念ではなく、CREATE  [ GLOBAL TEMPORARY ]  TABLE を使用します。
--あらかじめオブジェクトを作成しておく必要がありますが、セッションをまたいでの競合はありません。

--共有テーブル作成
--drop table tmpkemp;
create GLOBAL TEMPORARY table tmpkemp (empnm varchar(40));
--drop procedure sp_hoge_tmp;

create procedure sp_hoge_tmp ()
begin

  --社員マスタから共有テーブルに格納
  insert into tmpkemp select empnm from kemp;

  --共有テーブルから社員名一覧表示
  select empnm from tmpkemp;

end;

--ストアドプロシージャ実行
execute sp_hoge_tmp;

ORACLE　MSSQL　SSA　

--Watcom-SQLサンプル（外部のコマンドやアプリケーションを使用するストアドプロシージャ）
--システムストアドプロシージャxp_cmdshellを使用します。
--※xp_cmdshellは『悪魔のストアド』です。サンプルを見ればわかると思いますが、データベースユーザーが
--　サーバー上でコマンドで実行できる事は『すべて xp_cmdshell から実行可能』です。
--　ですから、セキュリティ面を考慮して使用不可にしているWEBサイトも多いようです。

--drop procedure sp_hoge_cmd;

create procedure sp_hoge_cmd ()
begin
  call xp_cmdshell('echo SSA > c:\xpcmd.txt');
  call xp_cmdshell('dir c:\*.txt >> c:\xpcmd.txt');
end;

--ストアドプロシージャ実行
execute sp_hoge_cmd;