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;