天啊,在什么地方字定义游标变量?!! 楼上,你指的是这个包体的开头部分吗??可是我贴出来的就是开头部分啊?! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一个完整的包create or replace package TPS_IFTMIN is TYPE SHIPPING_CURSOR IS REF CURSOR; PROCEDURE IFTMIN_OPEN_SHIPPING_CURSOR(T2_SHIP_DATE IN varchar2, T2_SHIPPING_CURSOR OUT SHIPPING_CURSOR); end TPS_IFTMIN;/create or replace package body TPS_IFTMIN is PROCEDURE IFTMIN_OPEN_SHIPPING_CURSOR(T2_SHIP_DATE IN varchar2, T2_SHIPPING_CURSOR OUT SHIPPING_CURSOR) as V_T2_SHIP_DATE varchar2(23); V_T2_SHIPPING_CURSOR SHIPPING_CURSOR; BEGIN V_T2_SHIP_DATE := substr(T2_SHIP_DATE, 1, 10); open V_T2_SHIPPING_CURSOR for select SHIPMENTNO ShippingNo, '' Province, DELIVERYPORT City, TNUMBER Pieces, TGWEIGHT Weight, TVOLUME Volume, '' Urgent, CONTRACTNO, TO_DATE(substr(ESTARR, 1, 10), 'YYYY/MM/DD') Arrival, PICKUPPLACE POL, CONSIGNEE 收货联系人, '' TEL, '' ADDRESS from t2ashipmentno where substr(MESCREATDATE, 1, 10) = V_T2_SHIP_DATE; T2_SHIPPING_CURSOR := V_T2_SHIPPING_CURSOR; end IFTMIN_OPEN_SHIPPING_CURSOR;end TPS_IFTMIN;/ 连接其他机器的oracle. 日期 问题 来高人解答 在Oracle里创建包体出错!谢谢有缘人!!!!! 关于建模的问题 急,关于UPDATE的一个棘手的问题 数据库开发工程师如何写好详细设计说明书啊? sql 优化的问题。。 oracle 中有没有类似这样的函数:max(100,103,105),最后得出105最大? --------多谢! 为什么会报这个错误》?? imp导库问题 請教oracle的变量,分配內存該怎麼理解,怎麼才能掌握? oracle9i 数据库向 sql server2000导入数据的方法?
create or replace package TPS_IFTMIN is
TYPE SHIPPING_CURSOR IS REF CURSOR;
PROCEDURE IFTMIN_OPEN_SHIPPING_CURSOR(T2_SHIP_DATE IN varchar2,
T2_SHIPPING_CURSOR OUT SHIPPING_CURSOR);
end TPS_IFTMIN;
/
create or replace package body TPS_IFTMIN is
PROCEDURE IFTMIN_OPEN_SHIPPING_CURSOR(T2_SHIP_DATE IN varchar2,
T2_SHIPPING_CURSOR OUT SHIPPING_CURSOR) as
V_T2_SHIP_DATE varchar2(23);
V_T2_SHIPPING_CURSOR SHIPPING_CURSOR;
BEGIN
V_T2_SHIP_DATE := substr(T2_SHIP_DATE, 1, 10);
open V_T2_SHIPPING_CURSOR for
select SHIPMENTNO ShippingNo,
'' Province,
DELIVERYPORT City,
TNUMBER Pieces,
TGWEIGHT Weight,
TVOLUME Volume,
'' Urgent,
CONTRACTNO,
TO_DATE(substr(ESTARR, 1, 10), 'YYYY/MM/DD') Arrival,
PICKUPPLACE POL,
CONSIGNEE 收货联系人,
'' TEL,
'' ADDRESS
from t2ashipmentno
where substr(MESCREATDATE, 1, 10) = V_T2_SHIP_DATE;
T2_SHIPPING_CURSOR := V_T2_SHIPPING_CURSOR;
end IFTMIN_OPEN_SHIPPING_CURSOR;end TPS_IFTMIN;
/