$dbh->dbcmd($SQL);
$dbh->dbsqlexec;

   while ($dbh->dbresults != NO_MORE_RESULTS) {
         while (@data = $dbh->dbnextrow) {

        $Id = $data[0];
        $Status = $data[1];
        $StatusDate = $data[2];
        $Severity = $data[3];
        $Priority = $data[4];
        $ProjectId = $data[5];
        $SubSystem = $data[6];
        $Process = $data[7];
        $Name = $data[8];
        $EnteredBy = $data[9];
        $DateEntered = $data[10];
        $Contact = $data[11];
        $Closed = $data[12];
        $DateClosed = $data[13];
        $ClosedReason = $data[14];
        $Summary = $data[15];