bz_xml_mapping.sql

oracle9i+j2ee开发aq oracle9i+j2ee开发aq oracle9i+j2ee开发aq

REM script name: bz_xml_mapping.sql
REM Creates a mapping to convert an object type to XML: bzcarobj2xml
REM
REM version: 9i
REM change:  no connect required
REM

REM =======================================================
REM cleanup section
REM This function verifies if the employee_id is correct and fills in the
REM missing information


REM =======================================================
REM cleanup section
REM =======================================================

execute dbms_transform.drop_transformation -
	(schema =>'BZ_ADM',name =>'BZCARDOBJ2XML');

drop function FnBzCardObj2XML;

REM =======================================================
REM Creating PL/SQL Transformation function and transformation mapping
REM =======================================================

create or replace function FnBzCardOBJ2XML
	(ord BZCARDORDER_TYP)
return BZCARDXMLO_TYP is
	newOrder BzCardXMLo_typ;
BEGIN
	newOrder := BzCardXMLo_typ(null);
	select SYS_XMLGEN(ord) into newOrder.xmlo from dual;
	return newOrder;
END;
/

execute	dbms_transform.create_transformation ( -
	schema => 'BZ_ADM', name  => 'BZCARDOBJ2XML', -
	from_schema => 'BZ_ADM', to_schema => 'BZ_ADM', -
	from_type => 'BZCARDORDER_TYP', to_type => 'BZCARDXMLO_TYP',-
	transformation => 'BZ_ADM.FNBZCARDOBJ2XML(SOURCE.USER_DATA)');

grant execute on FnBzCardObj2XML to bz;