Select Code to Download

#!/cluster/uapp/perl/bin/perl -w
use KAP; #internally developed library.
use strict;
...
        my $row = $_read_sth->fetchrow_arrayref();
        print Dumper $row;
        } while ($_read_sth->{syb_more_results});

nbsda1@vcstest3$ perl sudip.pl
$VAR1 = [
          '15140EQJP_55121',
...
          '98027EQJP_54981'
        ];
nbsda1@vcstest3$

########## RESULTSET 1 ##############
                                                        
Account    Symbol    Sedol    Security Name    Encumbered    Enc. qty 
+   Borrow Acct    
...
account    symbol    sedol    security_name    quantity    encumbered_
+quantity    encumbered_type    description                           
+     
No faulty encumbrances found.