/************************************************************/
/*								
/*		xxxxxxx 		update_disb.sql				/*										/*	Copyright (C) 2001 Mayson System. All Rights Reserved
/************************************************************/

/*** プロシージャーの作成 ***/

create or replace function UPDATE_DISB
(
	s_gitem_no			IN 	varchar2,
	s_gdisb_no			IN	varchar2,
	s_ginv_bal			IN	number,
	s_gdisb_flg			IN	number,
	s_glast_disb_date		IN	number

)return number
as

/*** メイン処理 ***/

begin

	/*　ここ以外は、INSERTのPL/SQL文と一緒。
	/*　普通のSQLのUPDATE文のように、
	/*  UPDATE [テーブル名]
	/*  SET [変数１],[変数２],....[変数n]
	/*  WHERE 条件指定

		UPDATE item_master
		Set inv_bal = s_ginv_bal, last_disb_date = s_glast_disb_date
		WHERE	item_no = s_gitem_no;

		UPDATE mtl_disb
		Set disb_flg = s_gdisb_flg
		WHERE	disb_no = s_gdisb_no;


RETURN 0;

exception
when  others  then
	return 999999;
end;
/