FUNCTION MYLOG
(
	PM_FILE IN VARCHAR2
	,PM_STRING IN VARCHAR2
)
RETURN VARCHAR2	/* 戻り値の定義 */

/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
	FILEHANDLE	UTL_FILE.FILE_TYPE;

/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
	DBMS_OUTPUT.PUT_LINE('ファイル処理');
	FILEHANDLE := UTL_FILE.FOPEN( 'LOGDIR', PM_FILE, 'a' );
	UTL_FILE.PUT_LINE( FILEHANDLE, CONVERT( PM_STRING,'JA16SJIS','AL32UTF8') );
--	UTL_FILE.PUTF( FILEHANDLE, '%s\n', PM_STRING );
	UTL_FILE.FCLOSE( FILEHANDLE );
	RETURN PM_STRING;

/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
	WHEN OTHERS THEN
		DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
		RETURN PM_STRING;
END;