Automatic digest processor <LISTSERV AT VM.MARIST DOT EDU>  writes:
>------------------------------
>Date:    Tue, 4 Feb 1997 16:26:00 PST
>From:    Steve Wilson <SteveW AT DIS.WA DOT GOV>
>Subject: ADMS command line listings
>
>I was wondering if anybody knows of a way you can change the column widths
>of the ADSM  output from the command line.
>
>ADSM will automatically adjust the space in-between the columns for
>different screen sizes.   However the columns appear to be static.   If the
>text will not fit into the given area it is hyphenated and continued on the
>next line.
>
>I encountered this problem when I automated the daily  event checking
>routine to mail exception notices to nodes which have not completed
>successfully the previous night.    Everything works great for node who's
>name is 13 characters or less.   The problem arises when the node names
>greater that 13 characters are encountered.   I have a work around for this
>situation by creating an entry in the mail aliases name file for these
>shortened node names.  There are other situations where it would be nice to
>be able to format the output yourself so you don't have to do it manually
>latter.
>
>Any help would be appreciated.   Thanks in advance.
>
>Steve Wilson
>WA. State Dept. of Info Services
>stevew AT dis.wa DOT gov

I have run into this problem doing the exact same thing.  What I did was in
my perl script that generates the report and sents out the E-mail message, I
pull the entire name.  This is done by checking the last character of the field
(the 12th character).  If it is a '-' then read the next line and check the
12 th character again for a '-', and continue the loop util done.  I have to do
this because we use fully qualified hostnames (hostname.domain.domain.com) as
the node name.  Below is a sample of the code.  I hope this helps.

Chuck T.


  # this runs the dsmadmc command and reads its output as input.
  # (I did not put the entire command, you can fill in the rest)
  open(RPT,"dsmadmc -id=xxx -passowrd=xxx q event * * begint=......|");

  while ( <RPT> ){
      # a line of the report is read and placed into $_
      ...
      ...
      $node1=substr($_,56,13);           # Pull the Field the Node name is in.
      $test_var=$node1;                  # Load temp var. for checking.

      # the chop command cuts off the last character and returns it as the rc

      while ( chop($test_var) eq "-" ){  # loop while last charcter = "-"
          $next_line=<RPT>;              # Grab next line to get rest.
          $node1_part2=substr($next_line,57,12); # Pull out rest of the node.
          $node1=$test_var.$node1_part2; # Add rest of name to what you have.
          $test_var=$node1;              # Reload test variable.
      }                                  # End of while chop
      ...
      ...
  }  # End of while loop for reading in the report.