Select Code to Download

Select or download this

while(my $row = $sth->fetchrow_hashref()) {
        print $row->{'TABLE_NUMBER'}, " ", $row->{'LOV_INTEGER_KEY'}, 
+" ", $row->{'LOV_DISPLAY_KEY'}, " ", $row->{'NOTE'}, "\n";
    }

Select or download this

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) instal
+led in C:/Strawberry/perl/vendor/lib/auto/DBI/
...
Warning: No success on command[C:\Strawberry\perl\bin\perl.exe Makefil
+e.PL]
  MJEVANS/DBD-Oracle-1.80.tar.gz
  C:\Strawberry\perl\bin\perl.exe Makefile.PL -- NOT OK

Select or download this

SELECT table_number
     , TRIM(CAST(global_section_name as CHAR(32))) as global_section_n
+ame
...
 WHERE note LIKE ?
    OR global_section_name LIKE ?
 ORDER BY global_section_name

Select or download this

SELECT table_number
     , lov_integer_key
...
  FROM rdb_main.dk_lov_detail_rec
 WHERE table_number IN (LIST_OF_LOV_TABLE_NUMBERS:?)
 ORDER BY table_number, note