Advertisement
Guest User

Untitled

a guest
Feb 21st, 2017
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SAS 1.20 KB | None | 0 0
  1. filename kng'C:\Users\kargre1\Desktop\knygos.dat';
  2. data knyg;
  3. infile kng;
  4. input kodas 1-6 autor $8-33 pav $35-59 pslm $61-68 kiek 72-74 price 79-83;
  5. verte=kiek*price;
  6. if verte>1200 then akcija='akcija';
  7.  
  8. z=index(pslm,'-');
  9. psl=substr(pslm,1,z-1);
  10. metai=substr(pslm,z+1, length(pslm)-z);
  11.  
  12. puslap=kiek*psl;
  13. run;
  14.  
  15. data aut;
  16. set knyg;
  17. a=1;
  18. p=0;
  19. do while (a< length(autor));
  20. if substr (autor,a,1)=',' then p=p+1;
  21. a=a+1;
  22. end;
  23. y=0;
  24. if(p=2);
  25. run;
  26.  
  27. proc print data= aut;
  28. var kodas autor pav kiek price psl metai;
  29. title 'Knygos, turincios 3 autorius';
  30. run;
  31.  
  32. data knyg2;
  33. set knyg (keep= kodas autor pav kiek price akcija psl metai);
  34. run;
  35.  
  36. proc sort data= knyg2
  37. out=sorted;
  38. by metai psl;
  39. run;
  40.  
  41. data akcij;
  42. set knyg (keep= kodas autor pav kiek price akcija psl metai);
  43. if akcija='akcija' then mazesn=price*0.8;
  44. if akcija='      ' then mazesn=price;
  45. run;
  46.  
  47. proc print data= visoskng;
  48. var kodas autor pav kiek price psl metai puslap verte;
  49. sum puslap verte;
  50. title 'Viso';
  51. run;
  52.  
  53. proc gchart data=knyg2;
  54. vbar kiek/
  55. group=metai;
  56. pattern1 color=pink;
  57. title 'WOW DIAGRAMA';
  58. run;
  59.  
  60. data knyg3;
  61. set knyg (keep= kodas autor pav kiek price akcija psl metai);
  62. if metai=0009 then metai=2009;
  63. run;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement