CREATE OR REPLACE PACKAGE BODY pack_interface IS
--返回IOM接口数据
PROCEDURE GET_STATION_INFO(AREANO VARCHAR2,
orderCode VARCHAR2,
C1 OUT C_CURSOR) AS
SQLSTR VARCHAR2(1000);
v_STRU_iom STRU_iom;
t_STRU_iom STRU_iom_T :=STRU_iom_T();
id number(10);
BEGIN
v_STRU_iom:=stru_iom(NULL,
NULL,
NULL,
NULL,
NULL,
NULL);
id:=1;
v_STRU_iom.stationName:='stationName1';
v_STRU_iom.operateDept:='operDept1';
v_STRU_iom.operateUser:='张三';
v_STRU_iom.status:='1';
v_STRU_iom.remark1:=null;
v_STRU_iom.remark2:=null;
t_STRU_iom.EXTEND;
t_STRU_iom(ID) := v_STRU_iom;
id:=2;
v_STRU_iom.stationName:='stationName2';
v_STRU_iom.operateDept:='operDept2';
v_STRU_iom.operateUser:='张三2';
v_STRU_iom.status:='2';
v_STRU_iom.remark1:=null;
v_STRU_iom.remark2:=null;
t_STRU_iom.EXTEND;
t_STRU_iom(ID) := v_STRU_iom;
OPEN C1 FOR
SELECT * FROM TABLE(CAST(t_STRU_iom AS STRU_iom_T));
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
RAISE_APPLICATION_ERROR(-20001,
'0000');
END;