while(my $row = $sth->fetchrow_hashref()) {
print $row->{'TABLE_NUMBER'}, " ", $row->{'LOV_INTEGER_KEY'}, " ", $row->{'LOV_DISPLAY_KEY'}, " ", $row->{'NOTE'}, "\n";
}
####
Configuring M/MJ/MJEVANS/DBD-Oracle-1.80.tar.gz with Makefile.PL
Using DBI 1.642 (for perl 5.028001 on MSWin32-x64-multi-thread) installed in C:/Strawberry/perl/vendor/lib/auto/DBI/
Configuring DBD::Oracle for perl 5.028001 on MSWin32 (MSWin32-x64-multi-thread)
If you encounter any problem, a collection of troubleshooting
guides are available under lib/DBD/Oracle/Troubleshooting.
'DBD::Oracle::Troubleshooting' is the general troubleshooting
guide, while platform-specific troubleshooting hints
live in their labelled sub-document (e.g., Win32
hints are gathered in 'lib/DBD/Oracle/Troubleshooting/Win32.pod').
Installing on a MSWin32, Ver#10.0
Using Oracle in C:/Oracle/client/product/12.1.0/client_1
DEFINE _SQLPLUS_RELEASE = "1201000200" (CHAR)
Oracle Version 12.1.0.2 (12.1)
Found oci directory
Using OCI directory 'oci'
dlltool: unrecognized option `--input-def'
Usage dlltool
--machine
--output-exp Generate export file.
--output-lib Generate input library.
--add-indirect Add dll indirects to export file.
--dllname Name of input dll to put into output lib.
--def Name input .def file
--output-def Name output .def file
--base-file Read linker generated base file
--no-idata4 Don't generate idata$4 section
--no-idata5 Don't generate idata$5 section
-v Verbose
-U Add underscores to .lib
-k Kill @ from exported names
--as Use for assembler
--nodelete Keep temp files.
Could not find or create liboci.a.
Warning: No success on command[C:\Strawberry\perl\bin\perl.exe Makefile.PL]
MJEVANS/DBD-Oracle-1.80.tar.gz
C:\Strawberry\perl\bin\perl.exe Makefile.PL -- NOT OK
####
SELECT table_number
, TRIM(CAST(global_section_name as CHAR(32))) as global_section_name
, TRIM(CAST(note as CHAR(80))) as note
FROM rdb_main.dk_lov_header_rec
WHERE note LIKE ?
OR global_section_name LIKE ?
ORDER BY global_section_name
####
SELECT table_number
, lov_integer_key
, TRIM(CAST(lov_display_key as CHAR(2))) as lov_display_key
, TRIM(CAST(note as CHAR(30))) as note
FROM rdb_main.dk_lov_detail_rec
WHERE table_number IN (LIST_OF_LOV_TABLE_NUMBERS:?)
ORDER BY table_number, note