home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21637 < prev    next >
Encoding:
Internet Message Format  |  1993-01-21  |  1.6 KB
  1. Path: sparky!uunet!usc!news.service.uci.edu!unogate!mvb.saic.com!carpenter
  2. From: Carpenter@Fwva.Saic.Com (Apprentice Wizard)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Editing a large file
  5. Message-ID: <10242009@MVB.SAIC.COM>
  6. Date: Thu, 21 Jan 1993 19:46:14 GMT
  7. References: <21JAN199314094029@ariel.lerc.nasa.gov>
  8. Organization: Science Applications Int'l, Corp. - Computer systems operation
  9. Lines: 35
  10.  
  11. uugblum@ariel.lerc.nasa.gov (VMScluster Administrator) writes:
  12. >Some of our Cray programs produce very large (~80,000 blocks) ASCII output
  13. >files which are sent to the VAXcluster for review.  TPU and EDT don't work
  14. >well with large files.  I think the editors read the entire file into memory
  15. >so the performance is poor if it works at all.  One work-around could be to
  16. >break the large file into several smaller files.  Does anyone know of a DECUS
  17. >utility which can do this?  Does anyone else have another suggestion?
  18. >
  19.  
  20. A quick workaround might be:
  21.  
  22. $x=1
  23. $open/read file file.dat
  24. $write:
  25. $open/write file'x' file'x'.dat
  26. $count=1
  27. $loop:
  28. $read file line
  29. $write file1 line
  30. $count=count+1
  31. $if count=1001
  32. $then close file'x' 
  33. $x=x+1
  34. $goto write
  35. $endif
  36. $goto loop
  37.  
  38. *** I just wrote this off the fly without testing it ***
  39. =-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=
  40. Scott Carpenter                              
  41. VAX Systems Manager                  Ya dina' tell 'im how long it'd really
  42. SAIC Falls Church, VA                take ta fix it did ya'?
  43. CARPENTER@FWVA.SAIC.COM                              M. Scott, CAPT, SUFP
  44. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  45.  
  46.