<?xml version='1.0' encoding='UTF-8'?>
<ROWSET tableName='xxx'>
/****************************************************************************/
/* SYSTEM_ID : GF                                                           */
/* TYPESB01 ( PACKAGE BODY )                                                */
/* Created : 2021/06/29 14:03:39                                            */
/****************************************************************************/
<EXEC_SQL>
CREATE 
PACKAGE BODY TYPESB01 AS
/*****************************************************************************/
/*	品番マスタ検索処理													 	 */
/*****************************************************************************/

	PROCEDURE TYPESB01(
		P_KEKKA		OUT	NUMBER,
		P_ERRMSGS	OUT	ERR_MSG_ARRAY,
		P_RC1		OUT	CUST_CURSOR,
		P_ARGS		IN	ARG_ARRAY ) IS
-------------------------------------------------------------------------------
---------------------------&lt;&lt; 変数宣言 &gt;&gt; -------------------------------------
-------------------------------------------------------------------------------
	-- エラーラベル
	SUBSCRIPT_NOT_EXISTS	EXCEPTION;	-- 配列要素エラー
	TOO_MANY_ERRORS			EXCEPTION;	-- エラー件数最大数オーバーエラー
	ACQUIRE_WITH_NOWAIT		EXCEPTION;	-- NOWAIT時ロックエラー

	TEST_ERROR				EXCEPTION;

	P_SYSTEM_ID		GF41.SYSTEM_ID%TYPE	:= P_ARGS(1);	--システムＩＤ
	P_LANG			GF41.LANG%TYPE		:= P_ARGS(2);	--言語
	P_CLM			GF41.CLM%TYPE		:= P_ARGS(3);	--項目
	P_NAME_JA		GF41.NAME_JA%TYPE	:= P_ARGS(4);	--名称（漢字）
	P_LABEL_NAME	GF41.LABEL_NAME%TYPE	:= P_ARGS(5);	--表示名称
	P_KBSAKU		GF41.KBSAKU%TYPE		:= P_ARGS(6);	--作成区分

	BEGIN
		P_KEKKA := 0;

		OPEN P_RC1 FOR
			SELECT CLM,NAME_JA,LABEL_NAME,KBSAKU,SYSTEM_ID,LANG,FGJ,DECODE(KBSAKU,&apos;0&apos;,&apos;0&apos;,&apos;1&apos;) AS ONMARK
			FROM  GF41
			WHERE	FGJ         in  (&apos;0&apos;,&apos;1&apos;)
			AND		SYSTEM_ID   like P_SYSTEM_ID	|| &apos;%&apos;
			AND		LANG        like P_LANG			|| &apos;%&apos;
			AND		CLM         like P_CLM			|| &apos;%&apos;
			AND		NAME_JA     like P_NAME_JA		|| &apos;%&apos;
			AND		LABEL_NAME  like P_LABEL_NAME	|| &apos;%&apos;
			AND		KBSAKU      like P_KBSAKU		|| &apos;%&apos;
			ORDER BY SYSTEM_ID,CLM,LANG ;

	EXCEPTION
		WHEN HYBS.TOO_MANY_ERRORS THEN
			HYBS.SET_LIMITOVER(P_ERRMSGS);
			P_KEKKA := 2;
		WHEN TEST_ERROR THEN
			HYBS.SET_ERRMSGS(P_ERRMSGS,				-- エラーメッセージ配列
						1,							-- 行番号
						2,							-- エラー結果(0:正常 1:警告 2:異常)
						&apos;TEST_ERROR&apos;,				-- オラクルエラーコード
						substrb( SQLERRM,1,100 ));	-- オラクルエラーメッセージ
			P_KEKKA := 2;
		WHEN OTHERS THEN
--			オラクルエラー。
			HYBS.SET_ERRMSGS(P_ERRMSGS,				-- エラーメッセージ配列
						2,							-- 行番号
						2,							-- エラー結果(0:正常 1:警告 2:異常)
						to_char(SQLCODE),			-- オラクルエラーコード
						substrb( SQLERRM,1,100 ));	-- オラクルエラーメッセージ
			P_KEKKA := 2;
	END TYPESB01;

END TYPESB01;

</EXEC_SQL>
</ROWSET>
