【PL/SQL】レコードの使用方法について

/ システムソリューション部　

青木 (2009年12月21日 13:39)
システムソリューション部

久しぶりにPL/SQLでの開発をしていますが、
その都度レコードの使用方法を忘れてしまうので、備忘録です。

ファンクションやプロシージャにカーソルを渡したいときに利用すると、
コードの可読性がアップします。

以下がサンプルです。
バインド変数を利用した動的SQLを使用しています。

CREATE OR REPLACE PACKAGE BODY TEST
IS
  --// これがレコードの宣言です
  TYPE TYP_RECORD IS RECORD
     ( SHAIN_CODE M_SHAIN.SHAIN_CODE%TYPE
     , SHAIN_NAME M_SHAIN.SHAIN_NAME%TYPE
     );
 
  --// ワークテーブルへ登録します
  --// パラメータにレコードを使用しています
  PROCEDURE INSERT_WORKTABLE(
    ONE_RECORD IN TYP_RECORD
  )
  IS
    C_SQL VARCHAR2(1000);
  BEGIN
    C_SQL := 'INSERT INTO SHAIN_WORK VALUES (:1, :2)';
    EXECUTE IMMEDIATE C_SQL USING ONE_RECORD.SHAIN_CODE
                                , ONE_RECORD.SHAIN_NAME;
  END INSERT_WORKTABLE;
 
  --// メイン処理
  PROCEDURE MAIN()
  IS
    TYPE TYP_CURSOR IS REF CURSOR;
    CURSOR_SET  TYP_CURSOR;
    ONE_RECORD  TYP_RECORD;
    C_SQL       VARCHAR2(1000);
  BEGIN
    C_SQL :=          'SELECT SHAIN_CODE';
    C_SQL := C_SQL || '     , SHAIN_NAME';
    C_SQL := C_SQL || '  FROM M_SHAIN';
    C_SQL := C_SQL || ' WHERE BUSHO_CODE = :1';
    OPEN CURSOR_SET FOR C_SQL USING '9999';
    LOOP
      FETCH CURSOR_SET INTO ONE_RECORD;
      EXIT WHEN CURSOR_SET%NOTFOUND;
      INSERT_WORKTABLE(ONE_RECORD);
    END LOOP;
    CLOSE CURSOR_SET;
    COMMIT;
  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
  END MAIN;
END TEST;
/

「システム開発ブログ」へのコメントやご意見等ありましたら、ファンページまでお願いします。 Facebook のファンページ

[PR]
他社のシステムも直します。資産を活かしてシステムリフォーム

システムのトラブル解決を承ります。すぐにシステムリフォームを体験できます

システム開発のアイロベックス（東京都新宿区）

/ システムソリューション部　  Tweet シェア

システム開発ブログ

最近の記事

カテゴリー

部署

月別アーカイブ

以前の部署別ブログ

検索

システム開発専用サイト

Windowsフォルダーアクセス権限確認ツール

Webとリアルをつなぐコンテンツマネージメントシステム

Twitter公式アカウントに認定されています