DBD::ODBC, bind_param_inout

[Chris]

Hello,

I'm using DBD::ODBC with unixODBC and FreeTDS from CVS (today's special blend...)

I have the following code:
$DDI = 1;
$CPIN = 0;
$MPIN = 0;
$Info = " ";
$ResRef = 0;
$ConfRef = 0;
$ActDuration = 0;
$AvailInd = 0;
$rc = 0;
$dbh->do('use BSRes2');
$sth = $dbh->prepare('
declare @DDI UDTDDI, @CPIN UDTPIN, @MPIN UDTPIN, @Information UDTComment, @ReservationRef int, @ConferenceRef int, @ActualDuration int, @AvailableInd UDTFlag
select @DDI = ?, @CPIN = ?, @MPIN = ?, @Information = ?, @ReservationRef = ?, @ConferenceRef = ?, @ActualDuration = ?, @AvailableInd = ?
execute p_ccs_MakeBooking @ClientAccount="xxxxxx", [...] @DDI=@DDI OUTPUT, @CPIN=@CPIN OUTPUT, @MPIN=@MPIN OUTPUT, @Information=@Information OUTPUT, @ReservationRef=@ReservationRef OUTPUT, @ConferenceRef=@ConferenceRef OUTPUT, @ActualDuration=@ActualDuration OUTPUT, @AvailableInd=@AvailableInd OUTPUT');

$sth->bind_param_inout(1, \$DDI, 32, DBI::SQL_VARCHAR);
$sth->bind_param_inout(2, \$CPIN, 12, DBI::SQL_VARCHAR);
$sth->bind_param_inout(3, \$MPIN, 12, DBI::SQL_VARCHAR);
$sth->bind_param_inout(4, \$Info, 255, DBI::SQL_VARCHAR);
$sth->bind_param_inout(5, \$ResRef, 10, DBI::SQL_INTEGER);
$sth->bind_param_inout(6, \$ConfRef, 10, DBI::SQL_INTEGER);
$sth->bind_param_inout(7, \$ActDuration, 10, DBI::SQL_INTEGER);
$sth->bind_param_inout(8, \$AvailInd, 1, DBI::SQL_BIT);
$sth->execute();

And I see values coming back in the driver trace (small excerpt):
Received packet @ 2003-01-07 01:40:15.715145
0000 43 50 49 4e 01 00 00 00 00 27 0c 05 32 36 31 30 |CPIN.... .'..2610|
0010 39 ac 00 13 05 40 4d 50 49 4e 01 00 00 00 00 27 |9....@MP IN.....'|
0020 0c 05 38 33 30 30 37 ac 00 a4 0c 40 49 6e 66 6f |..83007. ...@Info|
0030 72 6d 61 74 69 6f 6e 01 00 00 00 00 27 ff 8f 20 |rmation. ....'.. |
0040 20 20 44 44 49 73 20 3a 20 4e 6f 20 44 44 49 20 | DDIs : No DDI |
0050 6d 61 74 63 68 65 73 20 74 68 69 73 20 43 6f 6e |matches this Con|
0060 66 65 72 65 6e 63 65 54 79 70 65 2c 20 4c 61 6e |ferenceT ype, Lan|
0070 67 75 61 67 65 54 79 70 65 2c 20 4d 6f 64 65 72 |guageTyp e, Moder|
0080 61 74 6f 72 20 61 6e 64 20 44 65 6d 61 6e 64 20 |ator and Demand |
0090 73 65 6c 65 63 74 69 6f 6e 2e 0d 0a 44 44 49 73 |selectio n...DDIs|
00a0 20 3a 20 20 44 44 49 73 20 3a 20 44 44 49 73 20 | : DDIs : DDIs |
00b0 61 72 65 20 69 6e 61 63 74 69 76 65 20 66 6f 72 |are inac tive for|
00c0 20 31 35 20 6d 69 6e 75 74 65 73 2e 0d 0a ac 00 | 15 minu tes.....|

but the bound variables do not get updated. I suspect it has to do with the way I have the query written, with the placeolders in the 'select' line, but if I put them in the 'execute' line, I get an error about not being able to use the OUTPUT word when passing in a constant, and if I leave OUTPUT out of the statement, no data comes back. Can anyone help me?

Thanks,

Chris McDaniel