Well reviewed the output of you trace and I noticed this
with the 8 client
OCIInitialize(2,0,0,0,0)=SUCCESS
OCIEnvInit(814ab98,0,0,0)=SUCCESS
OCIHandleAlloc(826e0a8,814ab9c,OCI_HTYPE_ERROR,0,0)=SUCCESS
is used to create the enviornment
while whith the 10 client
OCINlsEnvironmentVariableGet(1,0,93,0,2)=SUCCESS
OCINlsEnvironmentVariableGet(1,0,94,0,2)=SUCCESS
OCINlsEnvCreate(81b35e8,2,0,0,0,0,0,0,1,1)=SUCCESS
OCIHandleAlloc(8283110,81b35ec,OCI_HTYPE_ERROR,0,0)=SUCCESS
is used
This is what DBD::Oracle is suppose to do, the 8 client method is
depricated, so it will use the second connect method.
As DBD::Oracle 1.17 is used in both then this must be the answer.
I would first check you NLS settings me thinks this is what is causeing
the problems and see if you can get 1.17 working with then the later
DBD::Oracles will work.
Failing that I can do a patch to DBD::Oracle that will let you connect tye
old way and see if that has an effect. You will have to be able to
compile and make DBD::Oracle yourself though and then run the test.
cheers
John Scoles
> On Sep 10, 2008, at 4:14 AM, John Scoles wrote:
>
>> If you can set up a small Perl script that you know works in the old
>> system and then set the debug level to at least 6
>>
>> next if you can run the same script on your new location
>>
>> If you can send the output to the list we might be able to see what
>> is going on.
>
> Pasted in, since I don't know if the list allows attachments. I'll
> send the files to anyone who wants them.
>
> This is with DBD::Oracle 1.17 in both instances, keeping as much the
> same as possible.
>
> The only difference is which oracle libs are used for ORACLE_HOME and
> to compile DBD::Oracle.
>
> (I'm switching around by changing the environment settings for
> ORACLE_BASE, ORACLE_HOME, LD_LIBRARY_PATH, and doing
>
> perl Makefile.PL
> make
> make install
>
> each time I switch.)
>
> There are no changes to the test.pl file, which is attached at the
> very bottom.
>
> You can see in the 8.1.7 version there's a
> OCIStmtFetch(8291974,827c8c4,1,2,0)=SUCCESS line followed by the data.
>
> In the 10.1 version it says OCIStmtFetch(829f1e8,8298150,1,2,0)=NO_DATA
>
> I really hope this helps.
>
> With the 8.1.7 client libraries
> ---------------------------------------------------
> DBI 1.601-nothread default trace level set to 0x0/6 (pid 1510) at
> test.pl line 21
> Note: perl is running without the recommended perl -w option
> -> DBI->connect(dbi:Oracle:phmweb, frs, ****)
> -> DBI->install_driver(Oracle) for linux perl=5.010000 pid=1510
> ruid=0 euid=0
> install_driver: DBD::Oracle version 1.17 loaded from /opt/
> lampp/lib/perl5/site_perl/5.10.0/i686-linux/DBD/Oracle.pm
> New 'DBI::dr' (for DBD::Oracle::dr, parent='', id=undef)
>
> dbih_setup_handle(DBI::dr=HASH(0x8265e98)=>DBI::dr=HASH(0x8265ee8),
> DBD::Oracle::dr, 0, Null!)
> dbih_make_com(Null!, 0, DBD::Oracle::dr, 108, 0) thr#0
> dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), Err, Null!)
> SCALAR(0x81b1070) (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), State, Null!)
> SCALAR(0x81ebca0) (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), Errstr, Null!)
> SCALAR(0x81b1020) (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), TraceLevel, Null!) 0
> (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), FetchHashKeyName,
> Null!) 'NAME' (already defined)
> -> STORE in DBD::_::common for DBD::Oracle::dr
> (DBI::dr=HASH(0x8265e98)~0x8265ee8 'ShowErrorStatement' 1)
> STORE DBI::dr=HASH(0x8265ee8) 'ShowErrorStatement' => 1
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBD/Oracle.pm line 61
> <- install_driver= DBI::dr=HASH(0x8265e98)
> -> connect for DBD::Oracle::dr (DBI::dr=HASH(0x8265e98)~0x8265ee8
> 'phmweb' 'frs' **** HASH(0x81c0060))
> New 'DBI::db' (for DBD::Oracle::db,
> parent=DBI::dr=HASH(0x8265ee8), id=undef)
>
> dbih_setup_handle(DBI::db=HASH(0x8266828)=>DBI::db=HASH(0x8266778),
> DBD::Oracle::db, 81ebf50, Null!)
> dbih_make_com(DBI::dr=HASH(0x8265ee8), 813b528, DBD::Oracle::db,
> 132, 0) thr#0
> dbih_setup_attrib(DBI::db=HASH(0x8266778), Err,
> DBI::dr=HASH(0x8265ee8)) SCALAR(0x81ec160) (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), State,
> DBI::dr=HASH(0x8265ee8)) SCALAR(0x81ec1e0) (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), Errstr,
> DBI::dr=HASH(0x8265ee8)) SCALAR(0x81ec1a0) (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), TraceLevel,
> DBI::dr=HASH(0x8265ee8)) 0 (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), FetchHashKeyName,
> DBI::dr=HASH(0x8265ee8)) 'NAME' (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), HandleSetErr,
> DBI::dr=HASH(0x8265ee8)) undef (not defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), HandleError,
> DBI::dr=HASH(0x8265ee8)) undef (not defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), ReadOnly,
> DBI::dr=HASH(0x8265ee8)) undef (not defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266778), Profile,
> DBI::dr=HASH(0x8265ee8)) undef (not defined)
> Environment variables:
> LESSKEY=/etc/lesskey.bin
> NNTPSERVER=news
> INFODIR=/usr/local/info:/usr/share/info:/usr/info
> MANPATH=/usr/share/man:/usr/local/man:/usr/X11R6/man:/opt/gnome/share/
> man
> HOSTNAME=tonic3
> GNOME2_PATH=/usr/local:/opt/gnome:/usr
> XKEYSYMDB=/usr/X11R6/lib/X11/XKeysymDB
> HOST=tonic3
> SHELL=/bin/bash
> TERM=vt100
> PROFILEREAD=true
> HISTSIZE=1000
> MORE=-sl
> OLDPWD=/home/oracle/admin/phmweb/udump
> GROFF_NO_SGR=yes
> USER=root
> LD_LIBRARY_PATH=/home/oracle8i_client/8.1.7/lib
>
> LS_COLORS=no=00:fi=00:di=01;34:ln=00;36:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=41;33;01:ex=00;32:*.cmd=00;32:*.exe=01;32:*.com=01;32:*.bat=01;32:*.btm=01;32:*.dll=01;32:*.tar=00;31:*.tbz=00;31:*.tgz=00;31:*.rpm=00;31:*.deb=00;31:*.arj=00;31:*.taz=00;31:*.lzh=00;31:*.zip=00;31:*.zoo=00;31:*.z=00;31:*.Z=00;31:*.gz=00;31:*.bz2=00;31:*.tb2=00;31:*.tz2=00;31:*.tbz2=00;31:*.avi=01;35:*.bmp=01;35:*.fli=01;35:*.gif=01;35:*.jpg=01;35:*.jpeg=01;35:*.mng=01;35:*.mov=01;35:*.mpg=01;35:*.pcx=01;35:*.pbm=01;35:*.pgm=01;35:*.png=01;35:*.ppm=01;35:*.tga=01;35:*.tif=01;35:*.xbm=01;35:*.xpm=01;35:*.dl=01;35:*.gl=01;35:*.wmv=01;35:*.aiff=00;32:*.au=00;32:*.mid=00;32:*.mp3=00;32:*.ogg=00;32:*.voc=00;32:*.wav=00;32:
> ORACLE_SID=phmweb
> XNLSPATH=/usr/X11R6/lib/X11/nls
> ENV=/etc/bash.bashrc
> ORACLE_BASE=/home/oracle8i_client
> HOSTTYPE=i386
> FROM_HEADER=
> PAGER=less
> CSHEDIT=emacs
> XDG_CONFIG_DIRS=/usr/local/etc/xdg/:/etc/xdg/:/etc/opt/gnome/xdg/
> MINICOM=-c on
> TNS_ADMIN=/home/oracle8i_client/8.1.7/network/admin
> MAIL=/var/spool/mail/root
> PATH=/sbin:/usr/sbin:/usr/local/sbin:/opt/gnome/sbin:/root/bin:/usr/
> local/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/games:/opt/gnome/bin:/opt/
> kde3/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin:/home/oracle/product/
> 10.2.0/db_1:/home/oracle8i_client/8.1.7:/home/instantclient10_1:/home/
> oracle8i_client/8.1.7
> CPU=i686
> INPUTRC=/etc/inputrc
> PWD=/root
> LANG=POSIX
> PYTHONSTARTUP=/etc/pythonstart
> TEXINPUTS=:/root/.TeX:/usr/share/doc/.TeX:/usr/doc/.TeX
> QT_SYSTEM_DIR=/usr/share/desktop-data
> SHLVL=1
> HOME=/root
> LESS_ADVANCED_PREPROCESSOR=no
> OSTYPE=linux
> LS_OPTIONS=-A -N --color=tty -T 0
> XCURSOR_THEME=Industrial
> WINDOWMANAGER=/usr/X11R6/bin/gnome
> GTK_PATH=/usr/local/lib/gtk-2.0:/opt/gnome/lib/gtk-2.0:/usr/lib/gtk-2.0
> LESS=-M -I
> MACHTYPE=i686-suse-linux
> LOGNAME=root
> CVS_RSH=ssh
> LC_CTYPE=en_US.UTF-8
> XDG_DATA_DIRS=/usr/local/share/:/usr/share/:/etc/opt/kde3/share/:/opt/
> kde3/share/:/opt/gnome/share/
> ACLOCAL_FLAGS=-I /opt/gnome/share/aclocal
> PKG_CONFIG_PATH=/usr/local/lib/pkgconfig:/usr/local/share/pkgconfig:/
> usr/lib/pkgconfig:/usr/share/pkgconfig:/opt/kde3/lib/pkgconfig:/opt/
> gnome/lib/pkgconfig:/opt/gnome/lib/pkgconfig:/opt/gnome/share/pkgconfig
> LESSOPEN=lessopen.sh %s
> INFOPATH=/usr/local/info:/usr/share/info:/usr/info:/opt/gnome/share/
> info
> ORACLE_HOME=/home/oracle8i_client/8.1.7
> LESSCLOSE=lessclose.sh %s %s
> G_BROKEN_FILENAMES=1
> COLORTERM=1
> _=./test.pl
> OCIInitialize(2,0,0,0,0)=SUCCESS
> OCIEnvInit(814ab98,0,0,0)=SUCCESS
> OCIHandleAlloc(826e0a8,814ab9c,OCI_HTYPE_ERROR,0,0)=SUCCESS
> charsetid=0 ncharsetid=0 (csid: utf8=871 al32utf8=873)
> OCIHandleAlloc(826e0a8,814aba0,OCI_HTYPE_SERVER,0,0)=SUCCESS
> OCIHandleAlloc(826e0a8,814aba4,OCI_HTYPE_SVCCTX,0,0)=SUCCESS
> OCIServerAttach(827c708, 827c8c4, "phmweb", 6, 0)=SUCCESS
> OCIAttrSet(827c69c,OCI_HTYPE_SVCCTX,827c708,0,6,827c8c4)=SUCCESS
> OCIHandleAlloc(826e0a8,814aba8,OCI_HTYPE_SESSION,0,0)=SUCCESS
> OCIAttrSet(8291ddc,OCI_HTYPE_SESSION,814c990,3,22,827c8c4)=SUCCESS
> OCIAttrSet(8291ddc,OCI_HTYPE_SESSION,814a8e0,7,23,827c8c4)=SUCCESS
> OCISessionBegin(827c69c,827c8c4,8291ddc,1,0)=SUCCESS
> OCIAttrSet(827c69c,OCI_HTYPE_SVCCTX,8291ddc,0,7,827c8c4)=SUCCESS
> <- connect= DBI::db=HASH(0x8266828) at /opt/lampp/lib/perl5/
> site_perl/5.10.0/i686-linux/DBI.pm line 639
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
> 'PrintError' 1)
> STORE DBI::db=HASH(0x8266778) 'PrintError' => 1
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 691
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
> 'AutoCommit' 1)
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 691
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
> 'Username' 'frs')
> STORE DBI::db=HASH(0x8266778) 'Username' => 'frs'
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 694 via at ./test.pl line 39
> <> FETCH= 'frs' ('Username' from cache) at /opt/lampp/lib/perl5/
> site_perl/5.10.0/i686-linux/DBI.pm line 694
> -> connected in DBD::_::db for DBD::Oracle::db
> (DBI::db=HASH(0x8266828)~0x8266778 'dbi:Oracle:phmweb' 'frs' 'xxxxxx')
> <- connected= undef at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-
> linux/DBI.pm line 700
> <- connect= DBI::db=HASH(0x8266828)
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
> 'dbi_connect_closure' CODE(0x8266258))
> STORE DBI::db=HASH(0x8266778) 'dbi_connect_closure' =>
> CODE(0x8266258)
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 709 via at ./test.pl line 39
> -> prepare for DBD::Oracle::db (DBI::db=HASH(0x8266828)~0x8266778
> 'select first_name, last_name from employees_u where eid = '060007454'')
> New 'DBI::st' (for DBD::Oracle::st,
> parent=DBI::db=HASH(0x8266778), id=undef)
>
> dbih_setup_handle(DBI::st=HASH(0x8266998)=>DBI::st=HASH(0x82667b8),
> DBD::Oracle::st, 81ec270, Null!)
> dbih_make_com(DBI::db=HASH(0x8266778), 814ab40, DBD::Oracle::st,
> 208, 0) thr#0
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), Err,
> DBI::db=HASH(0x8266778)) SCALAR(0x81ec160) (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), State,
> DBI::db=HASH(0x8266778)) SCALAR(0x81ec1e0) (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), Errstr,
> DBI::db=HASH(0x8266778)) SCALAR(0x81ec1a0) (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), TraceLevel,
> DBI::db=HASH(0x8266778)) 0 (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), FetchHashKeyName,
> DBI::db=HASH(0x8266778)) 'NAME' (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), HandleSetErr,
> DBI::db=HASH(0x8266778)) undef (not defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), HandleError,
> DBI::db=HASH(0x8266778)) undef (not defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), ReadOnly,
> DBI::db=HASH(0x8266778)) undef (not defined)
> dbih_setup_attrib(DBI::st=HASH(0x82667b8), Profile,
> DBI::db=HASH(0x8266778)) undef (not defined)
> OCIHandleAlloc(826e0a8,8293350,OCI_HTYPE_STMT,0,0)=SUCCESS
> OCIStmtPrepare(8291974,827c8c4,'select first_name, last_name from
> employees_u where eid = '060007454'',69,1,0)=SUCCESS
> OCIAttrGet(8291974,OCI_HTYPE_STMT,8293354,0,24,827c8c4)=SUCCESS
> dbd_st_prepare'd sql SELECT (pl1, auto_lob1, check_sql1)
> dbd_describe SELECT (EXPLICIT, lb 80)...
> OCIStmtExecute(827c69c,8291974,827c8c4,0,0,0,0,16)=SUCCESS
> OCIAttrGet(8291974,OCI_HTYPE_STMT,bff403e8,0,18,827c8c4)=SUCCESS
> OCIParamGet(8291974,4,827c8c4,8289c50,1)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c68,0,2,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6a,0,1,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c7c,0,31,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c7e,0,32,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6c,0,5,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6e,0,6,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6f,0,7,827c8c4)=SUCCESS
> OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c70,bff403e4,4,827c8c4)=SUCCESS
> col 1: dbtype 96, scale 0, prec 25, nullok 1, name FIRST_NAME
> : dbsize 25, char_used 0, char_size 0, csid 1, csform 1,
> disize 25
> fbh 1: 'FIRST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
> OCIParamGet(8291974,4,827c8c4,8289c9c,2)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cb4,0,2,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cb6,0,1,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cc8,0,31,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cca,0,32,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cb8,0,5,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cba,0,6,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cbb,0,7,827c8c4)=SUCCESS
> OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cbc,bff403e4,4,827c8c4)=SUCCESS
> col 2: dbtype 96, scale 0, prec 25, nullok 1, name LAST_NAME
> : dbsize 25, char_used 0, char_size 0, csid 1, csform 1,
> disize 25
> fbh 2: 'LAST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
> OCIAttrSet(8291974,OCI_HTYPE_STMT,bff403e4,4,13,827c8c4)=SUCCESS
> OCIAttrSet(8291974,OCI_HTYPE_STMT,bff403e0,4,11,827c8c4)=SUCCESS
> row cache OCI_ATTR_PREFETCH_ROWS 214, OCI_ATTR_PREFETCH_MEMORY 0
>
> OCIDefineByPos
> (8291974,8289c54,827c8c4,1,81790f8,26,5,828e300,828e310,828e320,0
> )=SUCCESS
>
> OCIDefineByPos
> (8291974,8289ca0,827c8c4,2,8289d28,26,5,828e4c8,828e4d8,828e4e8,0
> )=SUCCESS
> dbd_describe'd 2 columns (row bytes: 50 max, 50 est avg, cache:
> 214)
> <- prepare= DBI::st=HASH(0x8266998) at ./test.pl line 47
> -> execute for DBD::Oracle::st (DBI::st=HASH(0x8266998)~0x82667b8)
> dbd_st_execute SELECT (out0, lob0)...
> OCIStmtExecute(827c69c,8291974,827c8c4,0,0,0,0,0)=SUCCESS
> OCIAttrGet(8291974,OCI_HTYPE_STMT,bff405ee,0,10,827c8c4)=SUCCESS
> dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
> <- execute= '0E0' at ./test.pl line 49
> -> bind_columns in DBD::_::st for DBD::Oracle::st
> (DBI::st=HASH(0x8266998)~0x82667b8 undef SCALAR(0x81b18e0)
> SCALAR(0x81b18c0))
> 1 -> FETCH for DBD::Oracle::st (DBI::st=HASH(0x82667b8)~INNER
> 'NUM_OF_FIELDS')
> .. FETCH DBI::st=HASH(0x82667b8) 'NUM_OF_FIELDS' = 2 (cached)
> 1 <- FETCH= 2 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 1825 via at ./test.pl line 52
> 1 -> bind_col in DBD::_::st for DBD::Oracle::st
> (DBI::st=HASH(0x82667b8)~INNER 1 SCALAR(0x81b18e0) undef)
> dbih_setup_fbav alloc for 2 fields
> dbih_setup_fbav now 2 fields
> dbih_sth_bind_col 1 => SCALAR(0x81b18e0) Null!
> 1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 1836 via at ./test.pl line 52
> 1 -> bind_col for DBD::Oracle::st (DBI::st=HASH(0x82667b8)~INNER 2
> SCALAR(0x81b18c0) undef)
> dbih_sth_bind_col 2 => SCALAR(0x81b18c0) Null!
> 1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 1836 via at ./test.pl line 52
> <- bind_columns= 1 at ./test.pl line 52
> -> fetch for DBD::Oracle::st (DBI::st=HASH(0x8266998)~0x82667b8)
> dbd_st_fetch 2 fields...
> OCIStmtFetch(8291974,827c8c4,1,2,0)=SUCCESS
> dbd_st_fetch 2 fields SUCCESS
> 0 (rc=0): 'BRUCE E '
> 1 (rc=0): 'JOHNSON '
> <- fetch= [ 'BRUCE E ' 'JOHNSON
> ' ] row1 at ./test.pl line 53
> -> fetch for DBD::Oracle::st (DBI::st=HASH(0x8266998)~0x82667b8)
> dbd_st_fetch 2 fields...
> OCIStmtFetch(8291974,827c8c4,1,2,0)=NO_DATA
> dbd_st_fetch no-more-data
> <- fetch= undef row1 at ./test.pl line 54
> <> DESTROY(DBI::st=HASH(0x8266998)) ignored for outer handle
> (inner DBI::st=HASH(0x82667b8) has ref cnt 1)
> -> DESTROY for DBD::Oracle::st (DBI::st=HASH(0x82667b8)~INNER)
> dbd_st_destroy
> OCIHandleFree(8291974,OCI_HTYPE_STMT)=SUCCESS
> <- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
> DESTROY (dbih_clearcom) (sth 0x82667b8, com 0x82932d0, imp
> DBD::Oracle::st):
> FLAGS 0x82111: COMSET Warn PrintError ShowErrorStatement
> PARENT DBI::db=HASH(0x8266778)
> KIDS 0 (0 Active)
> NUM_OF_FIELDS 2
> NUM_OF_PARAMS 0
> dbih_clearcom 0x82667b8 (com 0x82932d0, type 3) done.
>
> <> DESTROY(DBI::db=HASH(0x8266828)) ignored for outer handle
> (inner DBI::db=HASH(0x8266778) has ref cnt 1)
> -> DESTROY for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER)
> OCISessionEnd(827c69c,827c8c4,8291ddc,0)=SUCCESS
> OCIServerDetach(827c708,827c8c4,0)=SUCCESS
> OCIHandleFree(8291ddc,OCI_HTYPE_SESSION)=SUCCESS
> OCIHandleFree(827c708,OCI_HTYPE_SERVER)=SUCCESS
> OCIHandleFree(827c69c,OCI_HTYPE_SVCCTX)=SUCCESS
> OCIHandleFree(827c8c4,OCI_HTYPE_ERROR)=SUCCESS
> <- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
> DESTROY (dbih_clearcom) (dbh 0x8266778, com 0x814ab40, imp
> DBD::Oracle::db):
> FLAGS 0x82311: COMSET Warn PrintError ShowErrorStatement
> AutoCommit
> PARENT DBI::dr=HASH(0x8265ee8)
> KIDS 0 (0 Active)
> dbih_clearcom 0x8266778 (com 0x814ab40, type 2) done.
>
> -- DBI::END ($@: , $!: )
> -> disconnect_all for DBD::Oracle::dr
> (DBI::dr=HASH(0x8265e98)~0x8265ee8)
> <- disconnect_all= (not implemented) at /opt/lampp/lib/perl5/
> site_perl/5.10.0/i686-linux/DBI.pm line 717 via at ./test.pl line 59
> ! -> DESTROY in DBD::_::common for DBD::Oracle::dr
> (DBI::dr=HASH(0x8265ee8)~INNER)
> ! <- DESTROY= undef during global destruction
> DESTROY (dbih_clearcom) (drh 0x8265e98, com 0x813b528, imp global
> destruction):
> FLAGS 0x2215: COMSET Active Warn ShowErrorStatement AutoCommit
> PARENT undef
> KIDS 0 (0 Active)
> dbih_clearcom 0x8265e98 (com 0x813b528, type 1) done.
>
> ! <> DESTROY for DBI::dr=HASH(0x8265e98) ignored (inner handle gone)
> ---------------------------------------------------
>
> With the 10.1 Instant Client libraries
>
> ---------------------------------------------------
> DBI 1.601-nothread default trace level set to 0x0/6 (pid 2157) at
> test.pl line 21
> Note: perl is running without the recommended perl -w option
> -> DBI->connect(dbi:Oracle:phmweb, frs, ****)
> -> DBI->install_driver(Oracle) for linux perl=5.010000 pid=2157
> ruid=0 euid=0
> install_driver: DBD::Oracle version 1.17 loaded from /opt/
> lampp/lib/perl5/site_perl/5.10.0/i686-linux/DBD/Oracle.pm
> New 'DBI::dr' (for DBD::Oracle::dr, parent='', id=undef)
>
> dbih_setup_handle(DBI::dr=HASH(0x8265f78)=>DBI::dr=HASH(0x8265fc8),
> DBD::Oracle::dr, 0, Null!)
> dbih_make_com(Null!, 0, DBD::Oracle::dr, 108, 0) thr#0
> dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), Err, Null!)
> SCALAR(0x81b1058) (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), State, Null!)
> SCALAR(0x81ebc88) (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), Errstr, Null!)
> SCALAR(0x81b1008) (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), TraceLevel, Null!) 0
> (already defined)
> dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), FetchHashKeyName,
> Null!) 'NAME' (already defined)
> -> STORE in DBD::_::common for DBD::Oracle::dr
> (DBI::dr=HASH(0x8265f78)~0x8265fc8 'ShowErrorStatement' 1)
> STORE DBI::dr=HASH(0x8265fc8) 'ShowErrorStatement' => 1
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBD/Oracle.pm line 61
> <- install_driver= DBI::dr=HASH(0x8265f78)
> -> connect for DBD::Oracle::dr (DBI::dr=HASH(0x8265f78)~0x8265fc8
> 'phmweb' 'frs' **** HASH(0x81c0048))
> New 'DBI::db' (for DBD::Oracle::db,
> parent=DBI::dr=HASH(0x8265fc8), id=undef)
>
> dbih_setup_handle(DBI::db=HASH(0x8266908)=>DBI::db=HASH(0x8266858),
> DBD::Oracle::db, 81ebf38, Null!)
> dbih_make_com(DBI::dr=HASH(0x8265fc8), 81513a8, DBD::Oracle::db,
> 132, 0) thr#0
> dbih_setup_attrib(DBI::db=HASH(0x8266858), Err,
> DBI::dr=HASH(0x8265fc8)) SCALAR(0x81ec148) (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), State,
> DBI::dr=HASH(0x8265fc8)) SCALAR(0x81ec1c8) (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), Errstr,
> DBI::dr=HASH(0x8265fc8)) SCALAR(0x81ec188) (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), TraceLevel,
> DBI::dr=HASH(0x8265fc8)) 0 (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), FetchHashKeyName,
> DBI::dr=HASH(0x8265fc8)) 'NAME' (already defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), HandleSetErr,
> DBI::dr=HASH(0x8265fc8)) undef (not defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), HandleError,
> DBI::dr=HASH(0x8265fc8)) undef (not defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), ReadOnly,
> DBI::dr=HASH(0x8265fc8)) undef (not defined)
> dbih_setup_attrib(DBI::db=HASH(0x8266858), Profile,
> DBI::dr=HASH(0x8265fc8)) undef (not defined)
> Environment variables:
> LESSKEY=/etc/lesskey.bin
> NNTPSERVER=news
> INFODIR=/usr/local/info:/usr/share/info:/usr/info
> MANPATH=/usr/share/man:/usr/local/man:/usr/X11R6/man:/opt/gnome/share/
> man
> HOSTNAME=tonic3
> GNOME2_PATH=/usr/local:/opt/gnome:/usr
> XKEYSYMDB=/usr/X11R6/lib/X11/XKeysymDB
> HOST=tonic3
> SHELL=/bin/bash
> TERM=vt100
> PROFILEREAD=true
> HISTSIZE=1000
> MORE=-sl
> OLDPWD=/home/oracle/admin/phmweb/udump
> GROFF_NO_SGR=yes
> USER=root
> LD_LIBRARY_PATH=/home/instantclient10_1
>
> LS_COLORS=no=00:fi=00:di=01;34:ln=00;36:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=41;33;01:ex=00;32:*.cmd=00;32:*.exe=01;32:*.com=01;32:*.bat=01;32:*.btm=01;32:*.dll=01;32:*.tar=00;31:*.tbz=00;31:*.tgz=00;31:*.rpm=00;31:*.deb=00;31:*.arj=00;31:*.taz=00;31:*.lzh=00;31:*.zip=00;31:*.zoo=00;31:*.z=00;31:*.Z=00;31:*.gz=00;31:*.bz2=00;31:*.tb2=00;31:*.tz2=00;31:*.tbz2=00;31:*.avi=01;35:*.bmp=01;35:*.fli=01;35:*.gif=01;35:*.jpg=01;35:*.jpeg=01;35:*.mng=01;35:*.mov=01;35:*.mpg=01;35:*.pcx=01;35:*.pbm=01;35:*.pgm=01;35:*.png=01;35:*.ppm=01;35:*.tga=01;35:*.tif=01;35:*.xbm=01;35:*.xpm=01;35:*.dl=01;35:*.gl=01;35:*.wmv=01;35:*.aiff=00;32:*.au=00;32:*.mid=00;32:*.mp3=00;32:*.ogg=00;32:*.voc=00;32:*.wav=00;32:
> ORACLE_SID=phmweb
> XNLSPATH=/usr/X11R6/lib/X11/nls
> ENV=/etc/bash.bashrc
> ORACLE_BASE=/home/instantclient10_1
> HOSTTYPE=i386
> FROM_HEADER=
> PAGER=less
> CSHEDIT=emacs
> XDG_CONFIG_DIRS=/usr/local/etc/xdg/:/etc/xdg/:/etc/opt/gnome/xdg/
> MINICOM=-c on
> TNS_ADMIN=/home/instantclient10_1
> MAIL=/var/spool/mail/root
> PATH=/sbin:/usr/sbin:/usr/local/sbin:/opt/gnome/sbin:/root/bin:/usr/
> local/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/games:/opt/gnome/bin:/opt/
> kde3/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin:/home/oracle/product/
> 10.2.0/db_1:/home/oracle8i_client/8.1.7:/home/instantclient10_1:/home/
> oracle8i_client/8.1.7:/home/instantclient10_1
> CPU=i686
> INPUTRC=/etc/inputrc
> PWD=/root
> LANG=POSIX
> PYTHONSTARTUP=/etc/pythonstart
> TEXINPUTS=:/root/.TeX:/usr/share/doc/.TeX:/usr/doc/.TeX
> QT_SYSTEM_DIR=/usr/share/desktop-data
> SHLVL=1
> HOME=/root
> LESS_ADVANCED_PREPROCESSOR=no
> OSTYPE=linux
> LS_OPTIONS=-A -N --color=tty -T 0
> XCURSOR_THEME=Industrial
> WINDOWMANAGER=/usr/X11R6/bin/gnome
> GTK_PATH=/usr/local/lib/gtk-2.0:/opt/gnome/lib/gtk-2.0:/usr/lib/gtk-2.0
> LESS=-M -I
> MACHTYPE=i686-suse-linux
> LOGNAME=root
> CVS_RSH=ssh
> LC_CTYPE=en_US.UTF-8
> XDG_DATA_DIRS=/usr/local/share/:/usr/share/:/etc/opt/kde3/share/:/opt/
> kde3/share/:/opt/gnome/share/
> ACLOCAL_FLAGS=-I /opt/gnome/share/aclocal
> PKG_CONFIG_PATH=/usr/local/lib/pkgconfig:/usr/local/share/pkgconfig:/
> usr/lib/pkgconfig:/usr/share/pkgconfig:/opt/kde3/lib/pkgconfig:/opt/
> gnome/lib/pkgconfig:/opt/gnome/lib/pkgconfig:/opt/gnome/share/pkgconfig
> LESSOPEN=lessopen.sh %s
> INFOPATH=/usr/local/info:/usr/share/info:/usr/info:/opt/gnome/share/
> info
> ORACLE_HOME=/home/instantclient10_1
> LESSCLOSE=lessclose.sh %s %s
> G_BROKEN_FILENAMES=1
> COLORTERM=1
> _=./test.pl
> OCINlsEnvironmentVariableGet(1,0,93,0,2)=SUCCESS
> OCINlsEnvironmentVariableGet(1,0,94,0,2)=SUCCESS
> OCINlsEnvCreate(81b35e8,2,0,0,0,0,0,0,1,1)=SUCCESS
> OCIHandleAlloc(8283110,81b35ec,OCI_HTYPE_ERROR,0,0)=SUCCESS
> charsetid=1 ncharsetid=1 (csid: utf8=871 al32utf8=873)
> OCIHandleAlloc(8283110,81b35f0,OCI_HTYPE_SERVER,0,0)=SUCCESS
> OCIHandleAlloc(8283110,81b35f4,OCI_HTYPE_SVCCTX,0,0)=SUCCESS
> OCIServerAttach(82986dc, 8298150, "phmweb", 6, 0)=SUCCESS
> OCIAttrSet(82980dc,OCI_HTYPE_SVCCTX,82986dc,0,6,8298150)=SUCCESS
> OCIHandleAlloc(8283110,81b35f8,OCI_HTYPE_SESSION,0,0)=SUCCESS
> OCIAttrSet(82a13cc,OCI_HTYPE_SESSION,81b3388,3,22,8298150)=SUCCESS
> OCIAttrSet(82a13cc,OCI_HTYPE_SESSION,81b3398,7,23,8298150)=SUCCESS
> OCISessionBegin(82980dc,8298150,82a13cc,1,0)=SUCCESS
> OCIAttrSet(82980dc,OCI_HTYPE_SVCCTX,82a13cc,0,7,8298150)=SUCCESS
> <- connect= DBI::db=HASH(0x8266908) at /opt/lampp/lib/perl5/
> site_perl/5.10.0/i686-linux/DBI.pm line 639
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
> 'PrintError' 1)
> STORE DBI::db=HASH(0x8266858) 'PrintError' => 1
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 691
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
> 'AutoCommit' 1)
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 691
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
> 'Username' 'frs')
> STORE DBI::db=HASH(0x8266858) 'Username' => 'frs'
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 694 via at ./test.pl line 39
> <> FETCH= 'frs' ('Username' from cache) at /opt/lampp/lib/perl5/
> site_perl/5.10.0/i686-linux/DBI.pm line 694
> -> connected in DBD::_::db for DBD::Oracle::db
> (DBI::db=HASH(0x8266908)~0x8266858 'dbi:Oracle:phmweb' 'frs' 'xxxxxx')
> <- connected= undef at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-
> linux/DBI.pm line 700
> <- connect= DBI::db=HASH(0x8266908)
> -> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
> 'dbi_connect_closure' CODE(0x8266338))
> STORE DBI::db=HASH(0x8266858) 'dbi_connect_closure' =>
> CODE(0x8266338)
> <- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 709 via at ./test.pl line 39
> -> prepare for DBD::Oracle::db (DBI::db=HASH(0x8266908)~0x8266858
> 'select first_name, last_name from employees_u where eid = '060007454'')
> New 'DBI::st' (for DBD::Oracle::st,
> parent=DBI::db=HASH(0x8266858), id=undef)
>
> dbih_setup_handle(DBI::st=HASH(0x8266a78)=>DBI::st=HASH(0x8266898),
> DBD::Oracle::st, 81ec258, Null!)
> dbih_make_com(DBI::db=HASH(0x8266858), 81b3590, DBD::Oracle::st,
> 208, 0) thr#0
> dbih_setup_attrib(DBI::st=HASH(0x8266898), Err,
> DBI::db=HASH(0x8266858)) SCALAR(0x81ec148) (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), State,
> DBI::db=HASH(0x8266858)) SCALAR(0x81ec1c8) (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), Errstr,
> DBI::db=HASH(0x8266858)) SCALAR(0x81ec188) (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), TraceLevel,
> DBI::db=HASH(0x8266858)) 0 (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), FetchHashKeyName,
> DBI::db=HASH(0x8266858)) 'NAME' (already defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), HandleSetErr,
> DBI::db=HASH(0x8266858)) undef (not defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), HandleError,
> DBI::db=HASH(0x8266858)) undef (not defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), ReadOnly,
> DBI::db=HASH(0x8266858)) undef (not defined)
> dbih_setup_attrib(DBI::st=HASH(0x8266898), Profile,
> DBI::db=HASH(0x8266858)) undef (not defined)
> OCIHandleAlloc(8283110,82bd9c8,OCI_HTYPE_STMT,0,0)=SUCCESS
> OCIStmtPrepare(829f1e8,8298150,'select first_name, last_name from
> employees_u where eid = '060007454'',69,1,0)=SUCCESS
> OCIAttrGet(829f1e8,OCI_HTYPE_STMT,82bd9cc,0,24,8298150)=SUCCESS
> dbd_st_prepare'd sql SELECT (pl1, auto_lob1, check_sql1)
> dbd_describe SELECT (EXPLICIT, lb 80)...
> OCIStmtExecute(82980dc,829f1e8,8298150,0,0,0,0,16)=SUCCESS
> OCIAttrGet(829f1e8,OCI_HTYPE_STMT,bfc438f8,0,18,8298150)=SUCCESS
> OCIParamGet(829f1e8,4,8298150,82bdbf0,1)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc08,0,2,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0a,0,1,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc18,0,285,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc1a,0,286,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc1c,0,31,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc1e,0,32,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0c,0,5,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0e,0,6,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0f,0,7,8298150)=SUCCESS
> OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc10,bfc438f4,4,8298150)=SUCCESS
> col 1: dbtype 96, scale 0, prec 25, nullok 1, name FIRST_NAME
> : dbsize 25, char_used 0, char_size 25, csid 1, csform 1,
> disize 25
> fbh 1: 'FIRST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
> OCIParamGet(829f1e8,4,8298150,82bdc3c,2)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc54,0,2,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc56,0,1,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc64,0,285,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc66,0,286,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc68,0,31,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc6a,0,32,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc58,0,5,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc5a,0,6,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc5b,0,7,8298150)=SUCCESS
> OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc5c,bfc438f4,4,8298150)=SUCCESS
> col 2: dbtype 96, scale 0, prec 25, nullok 1, name LAST_NAME
> : dbsize 25, char_used 0, char_size 25, csid 1, csform 1,
> disize 25
> fbh 2: 'LAST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
> OCIAttrSet(829f1e8,OCI_HTYPE_STMT,bfc438f4,4,13,8298150)=SUCCESS
> OCIAttrSet(829f1e8,OCI_HTYPE_STMT,bfc438f0,4,11,8298150)=SUCCESS
> row cache OCI_ATTR_PREFETCH_ROWS 214, OCI_ATTR_PREFETCH_MEMORY 0
>
> OCIDefineByPos
> (829f1e8,82bdbf4,8298150,1,82bd780,26,5,8180b48,8180b58,82bdb68,0
> )=SUCCESS
>
> OCIDefineByPos
> (829f1e8,82bdc40,8298150,2,814dd38,26,5,82bd5d0,82bd738,81b4118,0
> )=SUCCESS
> dbd_describe'd 2 columns (row bytes: 50 max, 50 est avg, cache:
> 214)
> <- prepare= DBI::st=HASH(0x8266a78) at ./test.pl line 47
> -> execute for DBD::Oracle::st (DBI::st=HASH(0x8266a78)~0x8266898)
> dbd_st_execute SELECT (out0, lob0)...
> OCIStmtExecute(82980dc,829f1e8,8298150,0,0,0,0,0)=SUCCESS
> OCIAttrGet(829f1e8,OCI_HTYPE_STMT,bfc43afe,0,10,8298150)=SUCCESS
> dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
> <- execute= '0E0' at ./test.pl line 49
> -> bind_columns in DBD::_::st for DBD::Oracle::st
> (DBI::st=HASH(0x8266a78)~0x8266898 undef SCALAR(0x81b18c8)
> SCALAR(0x81b18a8))
> 1 -> FETCH for DBD::Oracle::st (DBI::st=HASH(0x8266898)~INNER
> 'NUM_OF_FIELDS')
> .. FETCH DBI::st=HASH(0x8266898) 'NUM_OF_FIELDS' = 2 (cached)
> 1 <- FETCH= 2 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 1825 via at ./test.pl line 52
> 1 -> bind_col in DBD::_::st for DBD::Oracle::st
> (DBI::st=HASH(0x8266898)~INNER 1 SCALAR(0x81b18c8) undef)
> dbih_setup_fbav alloc for 2 fields
> dbih_setup_fbav now 2 fields
> dbih_sth_bind_col 1 => SCALAR(0x81b18c8) Null!
> 1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 1836 via at ./test.pl line 52
> 1 -> bind_col for DBD::Oracle::st (DBI::st=HASH(0x8266898)~INNER 2
> SCALAR(0x81b18a8) undef)
> dbih_sth_bind_col 2 => SCALAR(0x81b18a8) Null!
> 1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
> DBI.pm line 1836 via at ./test.pl line 52
> <- bind_columns= 1 at ./test.pl line 52
> -> fetch for DBD::Oracle::st (DBI::st=HASH(0x8266a78)~0x8266898)
> dbd_st_fetch 2 fields...
> OCIStmtFetch(829f1e8,8298150,1,2,0)=NO_DATA
> dbd_st_fetch no-more-data
> <- fetch= undef at ./test.pl line 53
> <> DESTROY(DBI::st=HASH(0x8266a78)) ignored for outer handle
> (inner DBI::st=HASH(0x8266898) has ref cnt 1)
> -> DESTROY for DBD::Oracle::st (DBI::st=HASH(0x8266898)~INNER)
> dbd_st_destroy
> OCIHandleFree(829f1e8,OCI_HTYPE_STMT)=SUCCESS
> <- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
> DESTROY (dbih_clearcom) (sth 0x8266898, com 0x82bd948, imp
> DBD::Oracle::st):
> FLAGS 0x82111: COMSET Warn PrintError ShowErrorStatement
> PARENT DBI::db=HASH(0x8266858)
> KIDS 0 (0 Active)
> NUM_OF_FIELDS 2
> NUM_OF_PARAMS 0
> dbih_clearcom 0x8266898 (com 0x82bd948, type 3) done.
>
> <> DESTROY(DBI::db=HASH(0x8266908)) ignored for outer handle
> (inner DBI::db=HASH(0x8266858) has ref cnt 1)
> -> DESTROY for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER)
> OCISessionEnd(82980dc,8298150,82a13cc,0)=SUCCESS
> OCIServerDetach(82986dc,8298150,0)=SUCCESS
> OCIHandleFree(82a13cc,OCI_HTYPE_SESSION)=SUCCESS
> OCIHandleFree(82986dc,OCI_HTYPE_SERVER)=SUCCESS
> OCIHandleFree(82980dc,OCI_HTYPE_SVCCTX)=SUCCESS
> OCIHandleFree(8298150,OCI_HTYPE_ERROR)=SUCCESS
> <- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
> DESTROY (dbih_clearcom) (dbh 0x8266858, com 0x81b3590, imp
> DBD::Oracle::db):
> FLAGS 0x82311: COMSET Warn PrintError ShowErrorStatement
> AutoCommit
> PARENT DBI::dr=HASH(0x8265fc8)
> KIDS 0 (0 Active)
> dbih_clearcom 0x8266858 (com 0x81b3590, type 2) done.
>
> -- DBI::END ($@: , $!: )
> -> disconnect_all for DBD::Oracle::dr
> (DBI::dr=HASH(0x8265f78)~0x8265fc8)
> <- disconnect_all= (not implemented) at /opt/lampp/lib/perl5/
> site_perl/5.10.0/i686-linux/DBI.pm line 717 via at ./test.pl line 59
> ! -> DESTROY in DBD::_::common for DBD::Oracle::dr
> (DBI::dr=HASH(0x8265fc8)~INNER)
> ! <- DESTROY= undef during global destruction
> DESTROY (dbih_clearcom) (drh 0x8265f78, com 0x81513a8, imp global
> destruction):
> FLAGS 0x2215: COMSET Active Warn ShowErrorStatement AutoCommit
> PARENT undef
> KIDS 0 (0 Active)
> dbih_clearcom 0x8265f78 (com 0x81513a8, type 1) done.
>
> ! <> DESTROY for DBI::dr=HASH(0x8265f78) ignored (inner handle gone)
> ---------------------------------------------------------------------------
>
> test.pl
>
> ----------------------------------------------------------------------------
> #!/usr/bin/perl
> use DBI;
>
> $login="frs";
> $dbpass="xxxxxx";
> $dbname = "phmweb";
>
> @nums = (0 .. 9);
>
> #make random part for tracefile
> $a .= join("", @nums[ map { rand @nums } ( 1 .. 4 ) ]);
>
> $fname = "trace$a.trace";
>
> open(my $outf, ">$fname")
> or die "Couldn't open $fname $!\n";
>
> $tracelevel = 6;
> DBI -> trace($tracelevel, $outf);
>
> $sq1 = "select first_name, last_name from employees_u where eid =
> '060007454'";
>
> my $dbh = DBI->connect( 'dbi:Oracle:phmweb',
> $login,
> $dbpass,
> ) || die "Database connection not made:
> $DBI::errstr";
>
>
> my $sth = $dbh->prepare($sq1);
>
> $sth->execute();
>
> my ($fn, $ln);
> $sth->bind_columns(undef, \$fn, \$ln);
> while( $sth->fetch() ) {
> print "My name is $fn $ln or it should be \n";
> }
>
> close(OUT);
>
> exit;
>
>
> --
> Bruce Johnson
> University of Arizona
> College of Pharmacy
> Information Technology Group
>
> Institutions do not have opinions, merely customs
>
>
>
