home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / unix / question / 10745 < prev    next >
Encoding:
Internet Message Format  |  1992-09-07  |  2.5 KB
  1. Path: sparky!uunet!convex!darwin.sura.net!news.larc.nasa.gov!uakari.primate.wisc.edu!ames!stanford.edu!rutgers!att-out!walter!fork!snk
  2. From: snk@fork.bae.bellcore.com (Samuel Kamens)
  3. Newsgroups: comp.unix.questions
  4. Subject: Re: Awk: Beginner needs help!
  5. Keywords: awk unix
  6. Message-ID: <1992Sep4.202238.27202@walter.bellcore.com>
  7. Date: 4 Sep 92 20:22:38 GMT
  8. References: <5608@ucsbcsl.ucsb.edu>
  9. Sender: news@walter.bellcore.com
  10. Reply-To: snk@bae.bellcore.com
  11. Distribution: comp.unix.questions
  12. Organization: Bell Communications Research
  13. Lines: 68
  14. Nntp-Posting-Host: fork.bae.bellcore.com
  15.  
  16. In article <5608@ucsbcsl.ucsb.edu>, 6500scv1@ucsbuxa.ucsb.edu (Steven C. Velasco) writes:
  17. > 
  18. > HI,
  19. > I am new to unix, and really new to awk, so hopefully somebody can
  20. > answer this question real easily.  I have hundreds of SAS program
  21. > files written for MVS, that we now need to run on UNIX.  
  22. > The files from MVS look like this :
  23. > 
  24. > COMMAND? list unnumbered
  25. > //MVS JCL statements
  26. > //MVS JCL statements
  27. > //MVS JCL statements
  28. > DATA _NULL_ ;
  29. >    SET SASLIB.DATASET ;
  30. > MORE SAS STATEMENTS
  31. > RUN ;
  32. > 
  33. > I can get awk to print out the lines that don't contain the string  "//"
  34. > or "COMMAND?" in $1, but I would like to have
  35. > something that replaces the entire line  "COMMAND? list unnumbered"
  36. > (this is always the first line, and occurs just once) 
  37. > with the string: "libname saslib /usr2/username/datasets"  or, to 
  38. > somehow put the "libname" string in the first line of each file.
  39. > So the resulting file would look like this:
  40. > 
  41. > libname saslib '/usr2/username/datasets' ;
  42. > DATA _NULL_ ;
  43. >    SET SASLIB.DATASET ;
  44. > MORE SAS STATEMENTS ;
  45. > RUN ;
  46. > 
  47. > below is my feeble attempt to do this.  When I run this program, I
  48. > get a message saying something like 'awk: cant set $0 at record 1':
  49. > 
  50. > $1 !~ /\/\// { if ( $0 ~ /COMMAND? list unnumbered/ ) 
  51. > $0 = "libname saslib /usr2/username/datasets ;" 
  52. > print >FILENAME }  
  53. > 
  54. > What am I doing wrong?  I would appreciate any help or suggestions.
  55.  
  56. I think what you're doing wrong is using the wrong tool!
  57.  
  58. Try it with sed, as follows:
  59.  
  60. sed \
  61. -e "s:COMMAND? list unnumbered:libname saslib'/usr2/username/datasets';:" \
  62. -e /^COMMAND/d \
  63. -e /^\/\//d \
  64. filename > outfile.
  65.  
  66.  
  67. You could also do it in awk, as follows:
  68.  
  69. awk '/^COMMAND?/     { print "libname saslib '/usr2/username/datasets' ;"
  70.               next
  71.               }
  72.      /^\/\//            { next }
  73.             { print }
  74. ' infile
  75.  
  76.  
  77.  
  78. See which one you like better!!
  79.  
  80. Sam Kamens                    Bell Communications Research
  81. snk@bae.bellcore.com                Phone: (908) 699-7509
  82. 444 Hoes Lane  Room RRC 1D-210
  83. Piscataway, NJ 08854
  84.