#!/usr/bin/perl

use ExtUtils::testlib;
use PBS qw/pbs_connect pbs_statjob pbs_default pbs_disconnect/;

my $con=pbs_connect(pbs_default());
my $status=pbs_statjob($con, $ARGV[0],undef, undef);

foreach (@{$status}) {
      print $_->{name}, "\n";
      foreach (@{$_->{attribs}}) {
         print "     ",$_->{name}," = ",$_->{value}, "\n";
      }
      print "\n";
}
pbs_disconnect($con);
