$ perl 'f$env("procedure")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !
$ exit++ + ++$status != 0 and $exit = $status = undef;

use strict;
use diagnostics;
use VMS::Queue;

#my $queue = new VMS::Queue;

my $entryno = "5114";
my @entrylist;
my %entryprops;
my %fileprops;
my $i;
my $key;
my $val;
my %queueprops;
my @queuelist;

#$queueprops {"QUEUE_FLAGS"} = ;
$queueprops {"SEARCH_NAME"} = "CTS%_*";
$queueprops {"SCSNODE_NAME"} = "LPSRVY";
@queuelist = VMS::Queue::queue_list (\%queueprops);
print "\nQUEUE LIST\n";
print "----------\n";
foreach $val (@queuelist)
    {
    printf "%-022s\n", $val;
    }

%queueprops = %{VMS::Queue::queue_info ("lpsrvy\$batch")};
print "\nQUEUE INFO\n";
print "----------\n";
foreach $key (sort (keys (%queueprops)))
    {
    printf "%-022s %s\n", $key, 
	     $queueprops {$key} ? $queueprops {$key} : "(null)";
    }

$entryprops{
@entrylist = VMS::Queue::entry_list (\%entryprops, \%queueprops);

print "\nENTRIES\n";
print "-------\n";

foreach $i (@entrylist)
    {
    print $i, "\n";
    }

#%queueprops = %{VMS::Queue::queue_properties ()};

print "\nQUEUE PROPERTIES\n";
print "----------------\n";
foreach $key (sort (keys (%queueprops)))
    {
    printf "%-022s %s\n", $key, 
	     $queueprops {$key} ? $queueprops {$key} : "(null)";
    }

%entryprops = %{VMS::Queue::entry_properties ()};
#%entryprops = %{VMS::Queue::entry_info ($entryno)};
print "\nENTRY PROPERTIES\n";
print "----------------\n";
foreach $key (sort (keys (%entryprops)))
    {
    printf "%-022s %s\n", $key, 
	     $entryprops {$key} ? $entryprops {$key} : "(null)";
    }

#%fileprops = %{VMS::Queue::file_list ($entryno)};
#print "\nFILE PROPERTIES\n";
#print "----------------\n";
#foreach $key (sort (keys (%fileprops)))
#    {
#    printf "%-022s %s\n", $key, 
#	     $fileprops {$key} ? $fileprops {$key} : "(null)";
#    }

#my %queueprops = %{VMS::Queue::queue_properties ()};
#print "\nQUEUE PROPERTIES\n";
#print "----------------\n";
#while (($key,$val) = each (%queueprops))
#    {
#    printf "%-022s %s\n", $key, $val;
#    }