home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19692 < prev    next >
Encoding:
Internet Message Format  |  1992-12-22  |  2.2 KB
  1. Xref: sparky comp.os.vms:19692 vmsnet.tpu:546
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!ohstpy!miavx1!kacovert
  3. Newsgroups: comp.os.vms,vmsnet.tpu
  4. Subject: Re: Help on "simple" EVE/TPU procedure
  5. Message-ID: <1992Dec21.184230.14735@miavx1.acs.muohio.edu>
  6. From: kacovert@miavx1.acs.muohio.edu (Kent Covert)
  7. Date: 21 Dec 92 18:42:30 -0500
  8. References: <BzKtA4.D67@news.cso.uiuc.edu>
  9. Organization: Miami University Academic Computer Service"
  10. Lines: 36
  11.  
  12. In article <BzKtA4.D67@news.cso.uiuc.edu>, ritley@uimrl7.mrl.uiuc.edu () writes:
  13. > Apologies in advance if this question is naive - I only just
  14. > started using EVE and TPU.
  15. > 
  16. > I am trying to clean up large amounts of Fortran code which
  17. > contains "junk" in each record of each file, beyond the
  18. > 72-nd character position in each record.
  19. > 
  20. > Is it relatively simple to get TPU to truncate each record
  21. > in a file at the 72-nd character position?
  22. > (After that, it would be nice to have TPU delete all
  23. > trailing blanks after the lines of code, but that's not
  24. > as important as the first task.)
  25.  
  26. Probably the easiest way to do this is to use the box commands within TPU.
  27. The box commands allow you to do cuts, copies, deletes, etc for columns of data
  28. rather than lines of data.  You'd probably want to do something like the
  29. following:
  30.  
  31.         SET CURSOR FREE    - allows the cursor to go beyond the end of the line.
  32.         SET BOX SELECT     - makes all selects box selects.
  33.         SET BOX NOPAD      - prevents padding with spaces for deleted boxes.
  34.  
  35. Then just highlight the column you wish to delete using select.  The selection
  36. should be in bold rather than inverse video.  The selection also looks like it's
  37. selecting lines, but trust me, it'll work (BTW, why doesn't box selects
  38. highlight boxes rather than lines - this doesn't make sense to me.)  Then issue
  39. the cut command.
  40.  
  41. Hope this helps.
  42. -- 
  43.                                      Kent Covert, Software Coordinator
  44.                                      Miami Computing and Information Services
  45.                                      Miami University, Oxford, OH
  46.                                      kacovert@miavx1.acs.muohio.edu  (internet)
  47.                                      kacovert@miavx1                 (bitnet)
  48.