PL/SQL

ちょっと書いてみた。

CREATE OR REPLACE
procedure test(
otitle out varchar2) is 
begin
  declare
    cursor cur1 is
    select title from dendou_mst where no = 1;
    tmp varchar2(50);
  begin
    open cur1;
    fetch cur1 into tmp;
    close cur1;
    otitle := tmp;
    return;
  end;
end;

実行結果はこんな感じ。

データベースXEに接続中です。
OTITLE = 卒業
プロセス終了。
データベースXEから切断中です。

データはこんな感じ。

TITLE	AUTHOR	UPDATE_DATE	MUSIC_TIME	MEMBER	FILE_SIZE	NO	URL
卒業	しげ	2006-03-03 00:00:00.0	260	15	10556	1	http://hpcgi3.nifty.com/~atomic/muse/muselime.cgi?1980
タイムマシンにおねがい	おぶらいえん	2006-03-03 00:00:00.0	254	10	9291	3	http://hpcgi3.nifty.com/~atomic/muse/muselime.cgi?1978
大爆発ＮＯ．１	しげ	2006-03-03 00:00:00.0	244	15	13927	2	http://hpcgi3.nifty.com/~atomic/muse/muselime.cgi?1979
運命の人	小島	2006-03-03 00:00:00.0	272	16	3127	4	http://hpcgi3.nifty.com/~atomic/muse/muselime.cgi?1977
花	境	2006-03-03 00:00:00.0	122	5	6462	5	http://hpcgi3.nifty.com/~atomic/muse/muselime.cgi?1976
アルメニアン・ダンス	nab_k	2006-03-03 00:00:00.0	1739	16	54423	6	http://hpcgi3.nifty.com/~atomic/muse/muselime.cgi?1975

なので、実行結果としてはきわめて妥当だといえる。

しかし、このDBいったい何をやろうとしているかよくわかってしまうな。