Chris,
I'm not sure if FreeTDS and their ODBC driver supports out params, but I
think you can make those variables a result set by selecting @DDI,
@CPIN, @MPIN etc
Jeff
>
> 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
>
>
