Help for this page

Select Code to Download


  1. or download this
        my $dbh = DBI->connect(
        "dbi:Sybase:server=$server",
        $u, $p, { RaiseError => 1 },
    );
    $dbh->do('use msdb');
  2. or download this
    sub get_running_job_info {
    my ($dbh) = @_;
...

    return \@job_info;
}
  3. or download this
            $job_id =~ tr/a-z/A-Z/;
        $job_id =~ s/^(..)(..)(..)(..)(..)(..)(..)(..)(.{4})(.{12})$/$
+4$3$2$1-$6$5-$8$7-$9-$10/;