#!/usr/bin/perl

BEGIN {
	unless($ENV{BEGIN_BLOCK}){
		$ENV{ORACLE_HOME} = "/opt/instantclient_10_2/";
        $ENV{LD_LIBRARY_PATH} = "/opt/instantclient_10_2/";
		$ENV{BEGIN_BLOCK} = 1;
		exec 'env', $^X, $0, @ARGV;
	}
}

use DBI;


$CBMSHOST = "host";
$CBMSDB = "db";
$CBMSUSER = "user";
$CBMSPWD = "pwd";


$scode ="'1640039'";


$db = DBI->connect("DBI:Oracle:host=$CBMSHOST;sid=$CBMSDB",$CBMSUSER,$CBMSPWD);
    unless($db) {
      print "(ERROR) Failed to connect to $CBMSHOST.";
      exit(1);
      }
 
  print " ( INFO ) Fetching info for user $scode ";

  my $sql = qq{ SELECT KIHON3 FROM CBMSCP.VIEWCTC_FORMI1 WHERE KIHON1 = $scode };
  my $sth = $db->prepare( $sql );
 
  #$sth->bind_param(1,$scode);
  

  unless($sth)
	{
      print " ( ERROR ) Query preparation failed for user $scode  ";

	}
  
 
  unless($sth->execute())
	{
      print " ( ERROR ) Fetching info failed for user $scode ";
	 
	}

  my $row;
  while ( $row = $sth->fetchrow_array()) {
     
	  if($row)
	  {
		     print  $row;
	  }
	  else
	  {
            print "NO";
      }
  }
  $sth->finish();
  $db->disconnect();
  exit(0);

##</code><code>##

#!/usr/bin/perl

BEGIN {
	unless($ENV{BEGIN_BLOCK}){
		$ENV{ORACLE_HOME} = "/opt/instantclient_10_2/";
        $ENV{LD_LIBRARY_PATH} = "/opt/instantclient_10_2/";
		$ENV{BEGIN_BLOCK} = 1;
		exec 'env', $^X, $0, @ARGV;
	}
}

use DBI;


$CBMSHOST = "host";
$CBMSDB = "db";
$CBMSUSER = "user";
$CBMSPWD = "pwd";


$scode ="'1640039'";


$db = DBI->connect("DBI:Oracle:host=$CBMSHOST;sid=$CBMSDB",$CBMSUSER,$CBMSPWD);
    unless($db) {
      print "(ERROR) Failed to connect to $CBMSHOST.";
      exit(1);
      }
 
  print " ( INFO ) Fetching info for user $scode ";

  my $sql = qq{ SELECT KIHON3 FROM CBMSCP.VIEWCTC_FORMI1 WHERE KIHON1 = ? };
  my $sth = $db->prepare( $sql );
 
  
  

  unless($sth)
	{
      print " ( ERROR ) Query preparation failed for user $scode  ";

	}
  $sth->bind_param(1,$scode);
 
  unless($sth->execute())
	{
      print " ( ERROR ) Fetching info failed for user $scode ";
	 
	}

  my $row;
  while ( $row = $sth->fetchrow_array()) {
     
	  if($row)
	  {
		     print  $row;
	  }
	  else
	  {
            print "NO";
      }
  }
  $sth->finish();
  $db->disconnect();
  exit(0);