sybperl-l Archive

From: "Andrew J Davies" <Andrew dot J dot Davies at aib dot ie>
Subject: params and stored procs
Date: Mar 23 1999 5:16PM

Hi All
This code works fine up to a point.!
It returns the return status of the strored proc (0).
When I use a format and write fundtion it
Is there an easy way to elieminate this ?

 $dbh->ct_command (CS_RPC_CMD, "spGetCustomerDetailsByCustID", CS_NULLTERM,
 CS_NO_RECOMPILE);

     %param = ( name => '@cust_Number',
             datatype => CS_NUMERIC_TYPE,
             status  => CS_INPUTVALUE,
             value  => '2251572' );

     $dbh->ct_param(\%param);
     $dbh->ct_send();

     while ( $rc = ( $dbh->ct_results($restype)) == CS_SUCCEED)
          {
               next if (  !  $dbh->ct_fetchable($restype)   );

               while ( %cust = $dbh->ct_fetch(1) )
               {

                         write CUST_HANDLE;
               }
          }


Thanks for your time
Andy Davies