/********************************************************************
*                                                                   *
*  TEC98_05.SAS  Ver.1.0 by K.T.  1998/08/20(木) 09:01:11           *
*                                                                   *
*  目的：データの並びの変更                                         *
*                                                                   *
*    SASデータセット内において縦並びになっているデータを            *
*    横並びにする                                                   *
*                                                                   *
*                                                                   *
*   ORG. HIZO9601.SAS  BY K.T. 1996/03/28                           *
********************************************************************/


DATA d1 ;
   INPUT a @@ ;
   CARDS ;
   1 2 3 4 5 6 7 8 9 10
   ;
RUN ;
PROC PRINT ;

* 変数ａのデータを３つの変数ｘｙｚに振り分ける ;
DATA d2 ;
   max=3 ;
   ARRAY d(*) x y z ;
   DO i=1 to max ;
      SET d1;
      d(i)=a ;
   END ;
   DROP max i a ;
RUN ;
PROC PRINT ;