ストアド・プロシージャーとは

ストアド・プロシージャーが動作するためには
RDBディレクトリーとして特殊値 *LOCAL と定義されている
ディレクトリーが登録されている必要があります。
このことは WRKRDBDIRE (RDB ディレクトリー項目の処理)コマンドによって
下記のように確認することができます。

解説

元々はストアド・プロシージャーは PCクライアントの ODBCドライバーからの
要求に応えて SQL結果セットを戻すことが本来の機能でした。

今ではストアド・プロシージャーは単に ODBCドライバーの要求を処理するための
サーバー・プログラムであるという役割となっています。

ストアド・プロシージャーは Web での利用方法として

• 動的なコンボボックス
• 動的な POPUPウィンドウ
• Webアプリケーション

に利用されています。

動的なコンボボックスや POPUPウィンドウにストアド・プロシージャーを登録しておいて
DDSソースにストアド・プロシージャーの名前を登録するだけでストアド・プロシージャーを
利用できるようになります。
このことは非常に便利な機能拡張となります。
従来型の 5250アプリケーションでは POPUPコード検索App を追加するには
POPUPコード検索プログラムを新規に開発して、それをまた親アプリケーションの
ひとつひとつにコーディングを追加する必要がありました。

しかし、コード検索用のストアド・プロシージャーは、プロシージャーを開発すれば
親アプリケーションの画面DDS に登録するだけで済みます。
ストアド・プロシージャー用の画面を開発する必要もありませんし、
親プログラムを一切、変更する必要もありません。
このように従来のアプリケーションを開発するのとは全く異なる簡単な手法だけで
機能を大幅に拡張することができるようになります。

またクライアント / サーバー型の適用業務で既に開発して使用していたストアド・プロシージャーは
Webアプリケーションのサーバー側のエンジンとして再利用することができます。

SQLストアド・プロシージャー は次のようにして開発 / 登録します。
最初に QSQLSRC などのソース・ファイルに次のような SQLステートメントを登録します。

QTRSRC/QSQLSRC(P1)

     CREATE PROCEDURE QTROBJ/P1() LANGUAGE SQL
       DYNAMIC RESULT SETS 1
         BEGIN
         DECLARE C1 CURSOR FOR
          SELECT TACODE, TTNAMJ FROM QTRFIL/TANTOM ORDER BY TACODE;
         OPEN C1;
         RETURN;
     END;

解説

必ず ODBCドライバーを使ってテストしてください

PGMストアド・プロシージャー

Query/400ストアド・プロシージャー

                       ストアドプロシージャーの作成  (CRTSQLPRC)

  選択項目を入力して，実行キーを押してください。

  ストアド・プロシージャー  . . . > P1             名前 , *NONE
    ライブラリー  . . . . . . . . >   QTROBJ       名前 , *LIBL
  タイプ  . . . . . . . . . . . . > *QRYDFN       *SQL, *RPG, *COBOL..
  プログラムまたは QUERY  . . . . > QRY001         名前 , *PROC
    ライブラリー  . . . . . . . . >   QTROBJ       名前 , *LIBL
  既存のプロシージャーの置換え    > *YES          *NO, *YES