public DataSet Get_TRAFeeQinfenStatus(int type, string BargainOrderCode, string ParkUserId, string BerthCode){ OracleParameter[] parms = {    new OracleParameter("VRETURN_LIST1", OracleType.Cursor),new OracleParameter("VRETURN_LIST2", OracleType.Cursor),new OracleParameter("VRETURN_LIST3", OracleType.Cursor),new OracleParameter("Vtype", OracleType.Number),new OracleParameter("VBargainOrderCode", OracleType.VarChar),new OracleParameter("VParkUserId", OracleType.VarChar),new OracleParameter("VBerthCode", OracleType.VarChar)};parms[0].Direction = ParameterDirection.Output;parms[1].Direction = ParameterDirection.Output;parms[2].Direction = ParameterDirection.Output;parms[3].Value = type;parms[4].Value = BargainOrderCode;parms[5].Value = ParkUserId;parms[6].Value = BerthCode;DataSet ds = OracleHelper.ExecuteDataset(CommandType.StoredProcedure, string.Format("{0}.GET_TRAFEEQINFENSTATUS", CADRE_SZRPP_PK), parms);return ds;}

 PROCEDURE GET_TRAFEEQINFENSTATUS(VRETURN_LIST1 OUT OUTPUTLIST,--查退费单VRETURN_LIST2 OUT OUTPUTLIST,--查欠费单VRETURN_LIST3 OUT OUTPUTLIST,--缴费记录VTYPE IN INTEGER DEFAULT NULL,VBARGAINORDERCODE IN TRA_ORDERPAYMENTINFO.BARGAINORDERCODE%TYPE DEFAULT NULL, VPARKUSERID IN TRA_ORDERPAYMENTINFO.PARKUSERID%TYPE DEFAULT NULL,VBERTHCODE IN TRA_ORDERPAYMENTINFO.BERTHCODE%TYPE DEFAULT NULL)ISVTYPENUMBER  INTEGER;VPAYSTATUS   NVARCHAR2(4000);VARREARSSTATUS NVARCHAR2(4000);VREFUNDSTATUS  NVARCHAR2(4000);BEGINSELECT  VTYPE INTO VTYPENUMBER FROM DUAL;IF (VTYPENUMBER=2)THEN      OPEN VRETURN_LIST1  FOR SELECT REFUNDSTATUS,PAYSTATUS FROM  TRA_REFUNDORDER  WHERE BARGAINORDERCODE=VBARGAINORDERCODEAND PARKUSERID=VPARKUSERID AND BERTHCODE=VBERTHCODE;--解决: ORA-24338: 未执行语句句柄  一定要进行对游标输出参数值赋值ELSE  OPEN VRETURN_LIST1 FOR SELECT VREFUNDSTATUS AS REFUNDSTATUS,VPAYSTATUS AS PAYSTATUS  FROM DUAL;END IF;IF (VTYPENUMBER=3 )THENOPEN VRETURN_LIST2  FORSELECT ARREARSSTATUS FROM  TRA_ARREARSORDER WHERE BARGAINORDERCODE=VBARGAINORDERCODEAND PARKUSERID=VPARKUSERID AND BERTHCODE=VBERTHCODE;ELSE   OPEN VRETURN_LIST2 FOR SELECT VARREARSSTATUS AS ARREARSSTATUS  FROM DUAL;END IF;IF (VTYPENUMBER=5 )THENOPEN VRETURN_LIST3  FOR SELECT PAYSTATUS FROM TRA_ORDERPAYMENTINFO WHERE BARGAINORDERCODE=VBARGAINORDERCODEAND PARKUSERID=VPARKUSERID AND BERTHCODE=VBERTHCODE;     ELSE   OPEN VRETURN_LIST3 FOR SELECT VPAYSTATUS AS PAYSTATUS  FROM DUAL;END IF;END;