レコード（応用）

構文例

DECRALRE
	
	
	/* レコード宣言 */
	TYPE T_Rec_Hoge  IS RECORD (
	    				hoge_ID	  tbl_HOGE.ID%TYPE,
					hoge_Name tbl_HOGE.Name%TYPE
					);
	
	/* REF CURSORの宣言  */
  	TYPE T_CSR_Hoge IS REF CURSOR RETURN T_Rec_Hoge;
	
	/* 変数宣言 */
	CSR_HOGE T_CSR_Hoge;
	Hoge_Rec T_Rec_Hoge;

BEGIN
	
	/*-- カーソルオープン --*/
	OPEN CSR_HOGE FOR
	    SELECT 	ID,Name
	    FROM 	tbl_HOGE
	    WHERE  	ID   = 10;
	
	/*-- フェッチ --*/
	FETCH CSR_HOGE INTO Hoge_Rec;

	
	--出力
	dbms_output.put_line(Hoge_Rec.hoge_ID);
	dbms_output.put_line(Hoge_Rec.hoge_Name);

	CLOSE CSR_HOGE;

END;