$scode ="1640039";

##</code><code>##

my $scode = q{1640039};
my $sql = q{ SELECT KIHON3 FROM CBMSCP.VIEWCTC_FORMI1 WHERE KIHON1 = } . $db->quote($scode);