home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / bit / listserv / sasl / 4922 < prev    next >
Encoding:
Text File  |  1992-11-04  |  1.3 KB  |  44 lines

  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!news.encore.com!csar!foxtail!sdd.hp.com!zaphod.mps.ohio-state.edu!darwin.sura.net!europa.asd.contel.com!paladin.american.edu!auvm!AMAIL.AMDAHL.COM!REILING.LEE
  3. Message-ID: <m0mmtDz-0000brC@juts.ccc.amdahl.com>
  4. Newsgroups: bit.listserv.sas-l
  5. Date:         Wed, 4 Nov 1992 14:17:00 PT
  6. Reply-To:     reiling.lee@AMAIL.AMDAHL.COM
  7. Sender:       "SAS(r) Discussion" <SAS-L@UGA.BITNET>
  8. From:         reiling.lee@AMAIL.AMDAHL.COM
  9. Subject:      Data Reshaping ?
  10. Comments: To: ny922195%pacevm.bitnet@juts.ccc.amdahl.com
  11. Comments: cc: sas-l%ohstvma.acs.ohio-state.edu@juts.ccc.amdahl.com
  12. Lines: 30
  13.  
  14. quick answer for you... GOOD LUCK!
  15.  
  16.  
  17. data data1;
  18.      infile cards;
  19.      input depno dept $ yr v1-v5;
  20.      array v_ v1-v5;
  21.      do over v_;
  22.         v = v_;
  23.         output;
  24.      end;
  25.      keep depno dept yr v;
  26.      cards;
  27.    121      MIS     80    10    11    12    13    14
  28.    121      MIS     81    15    16    17    18    19
  29.    121      MIS     82    20    21    22    23    24
  30.    144      COMM    80    41    42    43    44    45
  31.    144      COMM    81    46    47    48    49    50
  32.    144      COMM    82    51    52    53    54    55
  33. run;
  34.  
  35. proc print;
  36.  
  37. proc transpose data=data1 prefix=v;
  38.      by depno dept;
  39.      var v;
  40. run;
  41.  
  42. proc print;
  43. run;
  44.