create or replace package tgatePack is -- Author : GSL -- Created : 2007-06-0110:30:24 -- Purpose : -- Public type declarations type rDataSet isref cursor; -- Public function and procedure declarations procedure GetAlarmVehicle(p_id alarm_data.id%type, ResultCursor out rDataSet); end tgatePack;
定义包头后,再定义包体,将数据以游标返回
create or replace package body tgatePack is procedure GetAlarmVehicle( p_id alarm_data.id%type, ResultCursor out rDataSet ) is begin open ResultCursor for select * from tablename where id=p_id; end; end tgatePack;
posted on
2007-06-01 10:51龙少爷
阅读(436)
评论(1)
编辑收藏举报