-- --
--	Facility:
--		NetFlow Host Collector
--
--	Environment:
--		VMS/VAX/Alpha/IA64,
--		DEC/ORACLE RDB 7.x
--
--	Author:	Ruslan R.	Laishev
--
--	Creation Date:	10-AUG-2009
--
--	Abstract: SQL Module interface
--
--	Usage:
--		SQLMOD NETFLOW_RDB-SQLMOD.SQLMOD/C_PROTO/LIS
--
--	Modifications:
--		 5-NOV-2009	RRL	Added srcas (source AS number).
-- ++

-----------------------------------------------------------------------------
-- Header	Information	Section
-----------------------------------------------------------------------------
MODULE		NETFLOW_RDB_SQL
DIALECT		SQL99
LANGUAGE	C
AUTHORIZATION	SYSTEM
DEFAULT	DATE FORMAT	VMS
PARAMETER COLONS
-----------------------------------------------------------------------------
-- DECLARE Statements	Section
-----------------------------------------------------------------------------
-- Declare the alias using the file	name.

DECLARE	ALIAS	FOR	FILENAME	NETFLOW

--
--
--
PROCEDURE	db_flush	(
		SQLCODE
			);

BEGIN
	COMMIT;
END;

--
-- Retrive a User Authorization Record from the BBS' UAT
--

PROCEDURE	db_put	(
	SQLCODE,
	:p_sysip	dom_ipaddr,
	:p_srcaddr	dom_ipaddr,
	:p_dstaddr	dom_ipaddr,
	:p_input	dom_word,
	:p_output	dom_word,
	:p_dpkts	dom_long,
	:p_doctets	dom_long,
	:p_srcport	dom_word,
	:p_dstport	dom_word,
	:p_flags	dom_byte,
	:p_prot		dom_byte,
	:p_tos		dom_byte,
	:p_dst_as	dom_word,
	:p_src_as	dom_word
			);
BEGIN
--	SET TRANSACTION	 READ WRITE;

	TRACE	:p_sysip,:p_srcaddr,:p_dstaddr,
		:p_input,:p_output,
		:p_dpkts,:p_doctets,
		:p_srcport,:p_dstport,:p_flags,:p_prot,:p_tos,
		:p_dst_as,:p_src_as;



	INSERT	INTO netflow (sysip,srcaddr,dstaddr,
			inp,out,
			dpkts,doctets,
			srcport,dstport,flags,prot,tos,dst_as,
			src_as)
		VALUES	(:p_sysip,:p_srcaddr,:p_dstaddr,
			:p_input,:p_output,
			:p_dpkts,:p_doctets,
			:p_srcport,:p_dstport,:p_flags,:p_prot,:p_tos,:p_dst_as,
			:p_src_as);

END;