Uncaught exception from user code:
        500 Too many header lines (limit is 128)
        Frontier::Client::call('Frontier::Client=HASH(0x13b608)', 'GetAllByDept', 27) called at Misc/testuiv2.pl line 119

##</code><code>##

$aresults = $server->call('GetAllByDept', $dept_no);

##</code><code>##

sub GetAllByDept{
  my (@next_row);
  my @retval; #this will be array of arrays
  my $rc;

  my($SearchDept) = @_ or do {
        ERROR( "GetAllByDept: no argument provided" );
         return \@retval;
        };
  INFO( "GetAllByDept: $SearchDept passed" );
  if ($SearchDept !~ /^\d+$/) {
        ERROR( "GetAllByDept: argument provided not a number" );
         return \@retval;
  }

  #query db to find information
  my $dbconn = DBI->connect("DBI:Oracle:$DBHOST",$DBUSER,$DBPASS) or do {
        ERROR( "GetAllByDept: ORACLE connect failed - $DBI::errstr" ); 
        return \@retval;
        };
  my $query = $dbconn->prepare( 
                "Select * from $Schema.CSI_HR_V2 where DEPT_NO = ?") or do {
        ERROR( "GetAllByDept: ORACLE prepare failed - $DBI::errstr" );
        $dbconn->disconnect();
        return \@retval;
        };
  DEBUG( "GetAllByDept: query = $query" );
  $rc = $query->execute($SearchDept) or do {
        ERROR( "GetAllByDept: ORACLE execute failed for $SearchDept - $DBI::errs
tr" );
        $query->finish;
        $dbconn->disconnect();
        return \@retval; #problem return empty array
  };

  my $count = 0; 
  @next_row= $query->fetchrow_array();
  while (@next_row) #get rows and add to return array of hashes
  {

    #get staff information
    $count++;
    push(@retval,{Alt_Emp_No => $next_row[0], Job_Class => $next_row[1],
                Title => $next_row[2],Dept_Code => $next_row[3],
                Dept_No => $next_row[4],
                Last_Name => $next_row[5],First_Name => $next_row[6],
                Middle_Name => $next_row[7],
                Supervisor_Emp_No => $next_row[8], Status => $next_row[9],
                Suffix_Name =>  $next_row[10], Extension =>  $next_row[11],
                Room_No =>  $next_row[12], Email =>  $next_row[13],
                Login =>  $next_row[14], Login_History =>  $next_row[15],
                Contractor =>  $next_row[16],
                Create_Date => $next_row[17], Mod_Date => $next_row[18]
                });
      @next_row= $query->fetchrow_array();
  }

  INFO( "GetAllByDept: $count records found for $SearchDept");
  $query->finish;
  $dbconn->disconnect();
  return \@retval;
}