天啊,在什么地方字定义游标变量?!!

Question

楼上,你指的是这个包体的开头部分吗??
可是我贴出来的就是开头部分啊?!

Answer 1

一个完整的包
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;
/