Here's my latest attempt, but I keep getting the error:
ORA-01008 cannot bind variable or I would get invalid column name
I thought maybe someone could look and have some input on this... where I might be at fault.. and I will still play around...
Thanks in advance, Zo.

#!perl -w

use strict;
use DBI;

# output file 
my $newfile = "./test_output.txt";
open(BATCH, ">>$newfile") || die "Can't open $newfile : the test_outpu
+t.txt file. $!";

# sets and prints the system date to the log file
my $datestamp = `Date /T`;
print BATCH $datestamp;

# initialize the variable to count the batch lines created
my $linecount = 0;

# connection to database
my $dbh = DBI->connect("dbi:Oracle:CS1", "admin", "admin123");
my $sql = "SELECT  batch_line, rowidtochar(rowid)  FROM batch_lines";

my $sth = $dbh->prepare($sql);
$sth->execute();

my ($batch, $row_id);
$sth->bind_columns(\$batch, \$row_id);

my $sth2 = $sth;

my $count=1;

while($sth->fetch()) {
  ##### test print
 # print BATCH "$row_id <$count>";
 # print "$row_id <$batch>\n";
 # $count++;
 #####
   
       $batch=~s/p12/servername/g;
       $batch=~s/D:/\nD:/g;
       $batch=~s/%/%%/g;
    
         # write to the file
         my $timestamp = `Time /T`;
         chop $timestamp;

             ##### test print
             print BATCH "$row_id <$count> $batch"." ".$timestamp;
             #####
             
         #  print BATCH $batch." ".$timestamp;
         #  writes to screen
             print $batch;   
         #  counts the batch line being read
             $linecount++;   
             
             ##### test count
             $count++;
             #####
             
         # executes the batch line
         # system($batch); 
         
    
     ##### update
      print BATCH "\n^^^^^^^^^^^^^^$row_id^^^^^^^\n";
      my $bsql = "UPDATE batch_lines SET exe_c = 'Y' WHERE  exe_c = 'N
+' AND rowid = chartorowid($row_id) ";
      $sth2= $dbh->prepare($bsql);
      $sth2->execute();
     #####
     print BATCH "\n########### $row_id #########\n"
      
}
$sth->finish();
$sth2->finish();

# close oracle connection
$dbh->disconnect();

# print count of batch lines
print BATCH "\nLines extracted this period: ".$linecount."\n";

# close new .txt file
close (BATCH);
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.