cmd/stat/db.pl

   1 #
   2 # show all the values in a db fcb
   3 #
   4 #
   5 #
   6
   7 my ($self, $line) = @_;
   8 my @list = split /\s+/, $line;                # generate a list of msg nos
   9 my @out;
  10
  11 return (1, $self->msg('e5')) if $self->priv < 5;
  12 return (1, $self->msg('m16')) if @list == 0;
  13
  14 foreach my $name (@list) {
  15   my $ref = DXDb::getdesc($name);
  16   if ($ref) {
  17     @out = print_all_fields($self, $ref, "DB Parameters $name");
  18   } else {
  19     push @out, $self->msg('db3', $name);
  20   }
  21   push @out, "" if @list > 1;
  22 }
  23
  24 return (1, @out);