PROCEDURE validate_user ( 
	p_event			IN	EVENT,
	p_user			IN	valid_users.userid%TYPE,
	p_password_only		IN	boolean,
	v_return_string		OUT	VARCHAR2)


##</code><code>##

#!/usr/bin/perl

use DBI;

$ENV{'ORACLE_HOME'} = '/space/oracle/app/oracle/product/8.1.5';

my $dbh = DBI->connect('my dsn',"bla bla","bla bla") or die("Can't connect to Oracle database: $DBI::errstr\n");

my $sql = "BEGIN campaign.validate_user(?, ?, ?, ?); END;";

my $sth = $dbh->prepare($sql);


$sth->bind_param(1, 'V2001');

$sth->bind_param(2, 'billy');

$sth->bind_param(3, TRUE);

my $error_string;
my $return_code;

$sth->bind_param_inout(4, \$return_code,1000);

$sth->execute() or die("Execution error: $DBI::errstr\n");

print $error_string." : ".$return_code."\n";

$dbh->disconnect;

##</code><code>##

DBD::Oracle::st execute failed: ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'VALIDATE_USER'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored (DBD ERROR: OCIStmtExecute) at ./nmsd.pl line 27.
Execution error: ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'VALIDATE_USER'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored (DBD ERROR: OCIStmtExecute)