Select Code to Download

Select or download this

use strict;
use warnings;
...
    $row_counter++;
}
print "----------\n";

Select or download this

SELECT * FROM (
    SELECT pd.report_part_nbr,
...
     GROUP BY pd.report_part_nbr, idf.shipped_qty
     ORDER BY count_at_qty DESC
) WHERE ROWNUM <= 10000

Select or download this

1   <> FETCH= ( [ 'REPORT_PART_NBR' 'SHIPPED_QTY' 'COUNT_AT_QTY' ] ) [
+1 items] ('NAME' from cache) at prepack_data.pl line 123
1   -> fetch for DBD::Oracle::st (DBI::st=HASH(0x3709260)~INNER) thr#2
+7c6fe8
...
Process ID: 60709
Session ID: 2715 Serial number: 34376 (DBD ERROR: OCIStmtFetch)' (err#
+0)
    <- DESTROY= ( undef ) [1 items]

Select or download this

DBI::db=HASH(0x3709188) trace level set to 0x0/4 (DBI @ 0x0/0) in DBI 
+1.643-ithread (pid 15588)
    -> prepare for DBD::Oracle::db (DBI::db=HASH(0x3709278)~0x3709188 
+'SELECT * FROM (
...
    field #1 with rc=0(OK)
    field #2 with rc=0(OK)
    field #3 with rc=0(OK)