Sorry folks,

The job stream I listed DTLISTJ also uses a file called DTSLISTC.  I
have listed that file below.  If I remeber right it modifies the nsdir
file. Makes it easier to read.
Anyway here it is:

Parm hlp = " "
If "!hlp" <> " "
 echo
 echo
 echo  This command file uses an input file called DTSLIST1
 echo  if it dose not exist you must stream a job called DTSLISTJ
 echo  This job will run nmmgr and will create two files:
 echo
 echo     DTSNSDR1 - the nmmgr file
 echo     DTSNSDR2 - a modified version of dtsnsdr1 which combine
 echo                the node name and IP address together on one
 echo                line.  When nmmgr creates the first file, if
 echo                the node name exceeds 21 bytes the IP address
 echo                is placed on the next line.
 echo                This job will combine them together.  This will
 echo                allow you to sort the file either by node name or
 echo                by IP address.
 echo
 echo
 echo  To execute this command file type "DTSLISTC ![chr(60)] DTSNSDR1"
 echo
 echo   without the quote marks.
 echo
 echo  Created by:
 echo    Larry Barnes  (c) 1999
 echo    [log in to unmask]
 return
Endif
setvar eof finfo("dtsnsdr1","eof")
purge dtsnsdr2 >$null
build dtsnsdr2;rec=48,,f,ascii;disc=!eof;nocctl
if hpjobtype = "J"
 file outrec=dtsnsdr2,old
else
 file outrec=$stdlist
 calc chr(27)+"H"+chr(27)+"J"
endif
while setvar(eof,eof-1) > 0
 input rec
 setvar rec rtrim("!rec")
 if pos(" IP","!rec") <> 0
  setvar node_name rtrim(str(rec,1,21))
  setvar ip_addr   str(rec,25,15)
  setvar gap_len 26 - len(node_name)
  echo !node_name ![rpt(" ",!gap_len)] !ip_addr >>*outrec
 else
  if len(ltrim(str("!rec",1,3))) > 0
   setvar node_name rtrim(str(rec,1,26))
   input rec
   setvar eof !eof-1
   setvar rec rtrim("!rec")
   setvar ip_addr   str(rec,25,15)
   setvar gap_len 26 - len(node_name)
   echo !node_name ![rpt(" ",!gap_len)] !ip_addr >>*outrec
  endif
 endif
endwhile