home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / unix / question / 10787 < prev    next >
Encoding:
Text File  |  1992-09-08  |  2.7 KB  |  83 lines
  1. Newsgroups: comp.unix.questions
  2. Path: sparky!uunet!mcsun!sunic!psinntp!psinntp!dg-rtp!hobbit!hunt
  3. From: hunt@dg-rtp.rtp.dg.com (Greg Hunt)
  4. Subject: Re: Awk: Beginner needs help!
  5. Message-ID: <1992Sep6.194139.15839@dg-rtp.dg.com>
  6. Sender: hunt@robin (Greg Hunt)
  7. Date: Sun, 6 Sep 92 19:41:39 GMT
  8. Distribution: comp.unix.questions
  9. Reply-To: hunt@dg-rtp.rtp.dg.com
  10. References:  <5608@ucsbcsl.ucsb.edu>
  11. Organization: Data General Corp., Research Triangle Park, NC
  12. Keywords: awk unix
  13. Lines: 68
  14.  
  15. In article <5608@ucsbcsl.ucsb.edu>, 6500scv1@ucsbuxa.ucsb.edu (Steven C. Velasco) writes:
  16. > 
  17. > HI,
  18. > I am new to unix, and really new to awk, so hopefully somebody can
  19. > answer this question real easily.  I have hundreds of SAS program
  20. > files written for MVS, that we now need to run on UNIX.  
  21. > The files from MVS look like this :
  22. > 
  23. > COMMAND? list unnumbered
  24. > //MVS JCL statements
  25. > //MVS JCL statements
  26. > //MVS JCL statements
  27. > DATA _NULL_ ;
  28. >    SET SASLIB.DATASET ;
  29. > MORE SAS STATEMENTS
  30. > RUN ;
  31. > 
  32. > I can get awk to print out the lines that don't contain the string  "//"
  33. > or "COMMAND?" in $1, but I would like to have
  34. > something that replaces the entire line  "COMMAND? list unnumbered"
  35. > (this is always the first line, and occurs just once) 
  36. > with the string: "libname saslib /usr2/username/datasets"  or, to 
  37. > somehow put the "libname" string in the first line of each file.
  38. > So the resulting file would look like this:
  39. > 
  40. > libname saslib '/usr2/username/datasets' ;
  41. > DATA _NULL_ ;
  42. >    SET SASLIB.DATASET ;
  43. > MORE SAS STATEMENTS ;
  44. > RUN ;
  45. > 
  46. > below is my feeble attempt to do this.  When I run this program, I
  47. > get a message saying something like 'awk: cant set $0 at record 1':
  48. > 
  49. > $1 !~ /\/\// { if ( $0 ~ /COMMAND? list unnumbered/ ) 
  50. > $0 = "libname saslib /usr2/username/datasets ;" 
  51. > print >FILENAME }  
  52. > 
  53. > What am I doing wrong?  I would appreciate any help or suggestions.
  54.  
  55. I think this awk script might be easier:
  56.  
  57.     BEGIN {
  58.         getline;
  59.         print "libname saslib '/usr2/username/datasets' ;";
  60.           }
  61.     {if (substr ($1,1,2) != "//") print $0}
  62.  
  63. Then run it like this for each mvs file you have:
  64.  
  65.     awk -f awk_script mvs_file > unix_file
  66.  
  67. The BEGIN pattern runs once when the awk script is started.  It does
  68. a getline to read the next line of the input file, thus ignoring the
  69. first line of the file (the COMMAND? line).  Then it prints the line
  70. that you want instead.
  71.  
  72. The next pattern runs for each line of the input file.  It looks at
  73. first two bytes of the first field, and if they aren't "//", it prints
  74. the whole line.  This will ignore the JCL statements.
  75.  
  76. Enjoy!
  77.  
  78. -- 
  79. Greg Hunt                            email: hunt@dg-rtp.rtp.dg.com
  80. DG/UX Core Development
  81. Data General Corporation
  82. Research Triangle Park, NC, USA      These opinions are mine, not DG's.
  83.