home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / dragen1.zip / hcnvert2.cmd < prev    next >
OS/2 REXX Batch file  |  2000-02-19  |  1KB  |  37 lines
  1. /*hostconvert*/
  2. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. filename=hosts.txt
  6. i=0
  7. do while lines(filename)
  8.         i=i+1
  9.         hostval.i.als=linein(filename)
  10.         hostval.i.hst=linein(filename)
  11.         hostval.i.usr=linein(filename)
  12.         hostval.i.pas=linein(filename)
  13.         hostval.i.dir=linein(filename)
  14.         hostval.i.lcl=linein(filename)
  15.         hostval.i.prt=linein(filename)
  16. end /* end do */
  17. hostcount=i
  18. say "the total hosts are "hostcount
  19.  
  20. rc=stream(filename,'c','close')
  21. rc=sysfiledelete(filename)
  22.  
  23. do i = 1 to hostcount
  24.         rc=lineout(filename,hostval.i.als)
  25.         rc=lineout(filename,hostval.i.hst)
  26.         rc=lineout(filename,hostval.i.usr)
  27.         rc=lineout(filename,hostval.i.pas)
  28.         rc=lineout(filename,hostval.i.dir)
  29.         rc=lineout(filename,hostval.i.lcl)
  30.         rc=lineout(filename,hostval.i.prt)
  31.         rc=lineout(filename,"")
  32. end
  33. rc=lineout(filename)
  34.  
  35. say "conversion done for "hostcount" hosts"
  36.  
  37.