my $sth = $dbh->prepare("exec spSubComponentADD \@SubComponentName = ?, \@SubComponentDescription = ?, \@SubComponentID = ? OUTPUT ");
$sth->execute($subcomponentname, $subcomponentdescription)
        or handle_error ("Can't execute SQL" . $sth->errstr(), $dbh, $sth);
my (@data) = $sth->func('syb_output_params');