$ENV{'NLS_NCHAR'} = 'AL32UTF8';

 
##</code><code>##

Encode::from_to($sInstrumentNameJ, "shiftjis", "utf8");  #added for testing

Encode::from_to($sInstrumentShortJ, "shiftjis", "utf8");  #added for testing

##</code><code>##

 

use DBD::Oracle qw(:ora_types ORA_OCI SQLCS_NCHAR );

 

$dbGOSTky_sth->bind_param(":sInstrumentNameJ",$sInstrumentNameJ,{ora_csform => SQLCS_NCHAR});

$dbGOSTky_sth->bind_param(":sInstrumentShortJ",$sInstrumentShortJ,{ora_csform => SQLCS_NCHAR});