moebius359
Programmer
Hi all,
If anyone can shed some light on this I would really appreciate. I've been looking at this for three days and can't come up with a valid reason as to why it would fail with a PLS-00306 in UltraDev, but run without returning a result on the server.
The environment is:
W2K Workstation w. Macromedia UltraDev 4.01
Apache 1.3.12 w. Chilisoft ChiliASP 3.5.2 ( ADO DB support)
Merant ODBC drivers for Oracle8
Database backend Oracle 8.1.6
Robin
If anyone can shed some light on this I would really appreciate. I've been looking at this for three days and can't come up with a valid reason as to why it would fail with a PLS-00306 in UltraDev, but run without returning a result on the server.
The environment is:
W2K Workstation w. Macromedia UltraDev 4.01
Apache 1.3.12 w. Chilisoft ChiliASP 3.5.2 ( ADO DB support)
Merant ODBC drivers for Oracle8
Database backend Oracle 8.1.6
Robin
Code:
############################################################
Here is the content of the procedure called by ASP page.
Should be simple two strings in, one number out.
############################################################
CREATE OR REPLACE PROCEDURE ultradev_test(pStr IN VARCHAR2,
pFormat IN VARCHAR2,
pNumber OUT NUMBER)
IS
BEGIN
IF pFormat IS NULL THEN
pNumber := TO_NUMBER(pStr);
ELSE
pNumber := TO_NUMBER(pStr, pFormat);
END IF;
EXCEPTION
WHEN OTHERS THEN
pNumber := NULL;
END;
/
Code:
############################################################
Here is the content of the ASP page used to test the procedure.
############################################################
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/onlineBilling_test.asp" -->
<%
Dim strNumber
strNumber = "00012345.67"
Dim strFormat
strFormat = "99999.99"
%>
<%
Dim getNumber__pValue
getNumber__pValue = ""
if(strNumber <> "") then getNumber__pValue = strNumber
Dim getNumber__pFormat
getNumber__pFormat = ""
if(strFormat <> "") then getNumber__pFormat = strFormat
%>
<%
set getNumber = Server.CreateObject("ADODB.Command")
getNumber.ActiveConnection = MM_onlineBilling_test_STRING
getNumber.CommandText = "robin_b.ultradev_test"
getNumber.Parameters.Append getNumber.CreateParameter("pValue", 200, 1,12,getNumber__pValue)
getNumber.Parameters.Append getNumber.CreateParameter("pFormat", 200, 1,12,getNumber__pFormat)
getNumber.Parameters.Append getNumber.CreateParameter("pNumber", 5, 2)
getNumber.CommandType = 4
getNumber.CommandTimeout = 120
getNumber.Prepared = true
set newValue = getNumber.Execute()
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table>
<tr>
<td><%=(newValue.Fields("pNumber").Value)%></td>
</tr>
</table>
</body>
</html>