my $t = ztime($dx[2]);
my $d = cldate($dx[2]);
return sprintf "%8.1f %-11s %s %s %-28.28s%7s>", $dx[0], $dx[1], $d, $t, $dx[3], "<$dx[4]" ;
my $t = ztime($dx[2]);
my $d = cldate($dx[2]);
return sprintf "%8.1f %-11s %s %s %-28.28s%7s>", $dx[0], $dx[1], $d, $t, $dx[3], "<$dx[4]" ;