Help for this page

Select Code to Download

Select or download this

sub bcpInsert
  {
    my ($table, $_rows) = @_;
...

    warn "Debugging: bcpInsert returning ..\n";
}

Select or download this

# build an array of arrays for BCP to upload
&bcpInsert("custdata", \@data);
print "Upload complete\n";