my @header = ("RECORD_ID", "STATUS", "PID", "TIME", "DATE", "HELD/WAITING", "FILENAME", "USER");
my @colLens;

sub getColumnLengths()
{
	for (my $y = 0; $y <= $#header; $y++) {
		$colLens[$y] = length($header[$y]);
	}

	my $x;
        # $rec1 = RECORD_ID
	for my $rec1 ( keys %records )
	{
		$x = 0;
		if (int($colLens[$x]) < length($rec1)) {
			$colLens[$x] = length($rec1);
		}
                # $rec2 = STATUS
		for my $rec2 ( keys %{ $records{$rec1} } )
		{
			$x = 1;
			if (int($colLens[$x]) < length($rec2)) {
				$colLens[$x] = length($rec2);
			}
			$x++;
            # $rec3 = PID, TIME, DATE, ELAPSED, FILENAME, USER
			for my $rec3 ( keys %{$records{$rec1}{$rec2}} )
			{				
				if (int($colLens[$x]) < int(length($rec3))) {
					$colLens[$x] = int(length($rec3));
				}

				$x++;
			}#END INNER-MOST
		}#END MID
	}#END OUTER
}