How to extract fixed rolling column(24) then rename those

Sir : Can you do debug ? THANKS!
How to use one file(monthly.xlsx) to roll cloumn from 191101 to 201103 fix to 24 variables every moving windows, then rename variable(column) name =K1......K24
---------------------------
H201103 outcomes is only  one my outcome ,
I want to be produce many like H201103 files
that involve from H199101 H199102 ...  to H201103.
--------------------------------------------------------------
Monthly.xlsx
IND         199101  199102......     201301    201302
sz1_bm1  -3.45       8.05  .....        5.76         -1.64
sz1_bm2  -1            8.22......        5.77           -2.35
sz1_bm3 -1.93         8.47......         5.68         -1.99
sz1_bm4 -1.86         7.7   .......      6.87          -1.44
sz1_bm5 -3.15         8.36  .....        10.22      -2.61
sz2_bm1 -1.6           9.68  ....         4.5            1.2
sz2_bm2 -2.89          7.18 ....         5.84      -0.19
------------------------------------------------------
H201103 SAS outcomes:
IND             K1         K2   ...................      K23        K24
sz1_bm1     0.69       7.47 ...................      5.76       -1.64
sz1_bm2     1.35       7.32 ....................... 5.77       -2.35
sz1_bm3     0.81       7.07                         5.68        -1.99
sz1_bm4     2.02       6.44                         6.87        -1.44
sz1_bm5     0.8         6.42                        10.22        -2.61
sz2_bm1     1.35        7.53                       4.5             1.2
sz2_bm2      2.39       6.78                      5.84           -0.19
----------------------------------------------------------------------------
* thanks for nomad5's code*

%macro m(v);

%lety=%substr(&v.,1,4);

%letm=%substr(&v.,5,2);

%doi=1 %to 24;

    %let mf=%sysfunc(putn(%eval(&m.+&i.-1),z2.));

    %if &mf.>24 %then %do;

        %let mf=%sysfunc(putn(%eval(&mf.-24),z2.));

        %let yf=%eval(&y.+2);

    %end;

    %else %if &mf.>12 %then %do;

        %let mf=%sysfunc(putn(%eval(&mf.-12),z2.));

        %let yf=%eval(&y.+1);

    %end;

    %else %let yf=&y.;

     ,t1."&yf.&mf."n asK&i.

      %end;

%mend m;

/*%m(201103);*/

proc sql noprint;

    create table test as

   select t1.IND

       %m(201103)

    from work.monthly t1

    ;

quit;

1. %macro m(v);
   
2. %let y=%substr(&v.,1,4);
   
3. %let m=%substr(&v.,5,2);
   
4. %do i=1 %to 24;
   
5.       %let mf=%sysfunc(putn(%eval(&m.+&i.-1),z2.));
   
6.       %if &mf.>24 %then %do;
   
7.         %let mf=%sysfunc(putn(%eval(&mf.-24),z2.));
   
8.         %let yf=%eval(&y.+2);
   
9.     %end;
   
10.     %else %if &mf.>12 %then %do;
    
11.         %let mf=%sysfunc(putn(%eval(&mf.-12),z2.));
    
12.         %let yf=%eval(&y.+1);
    
13.     %end;
    
14.     %else %let yf=&y.;
    
15.       ,t1.%sysfunc(cats(%bquote('&yf.&mf.'), n)) as K&i.
    
16.   %end;
    
17. %mend m;
    
18. 
    
19. %macro split;  /* this is new */
    
20.    %do year = 1991 %to 2011;
    
21.       %do month = 1 %to 12;
    
22.             %let m2=%sysfunc(putn(&month, z2.));
    
23.             %let yearmon=&year&m2;
    
24.       %if &yearmon le 201103 %then %do;
    
25.        proc sql noprint;
    
26.          create table H&yearmon as
    
27.          select t1.IND
    
28.          %m(&yearmon)
    
29.        from work.monthly t1
    
30.        ;
    
31.     quit; %end;
    
32. 
    
33.      %end; %end;
    
34. %mend split;
    
35. %split

复制代码

1. /* A minor change was made on the code.
   
2. 
   
3. But using data step is much easier and the code should be easy to read
   
4. Since the variables names are numbers you can easily get an ordered list of  
   
5. variables names as shown in my previous posts, you just need to rename the variables.  */
   
6. 
   
7. %macro m(v);
   
8. %let y=%substr(&v.,1,4);
   
9. %let m=%substr(&v.,5,2);
   
10. %do i=1 %to 24;
    
11.       %let mf=%sysfunc(putn(%eval(&m.+&i.-1),z2.));
    
12.       %if &mf.>24 %then %do;
    
13.         %let mf=%sysfunc(putn(%eval(&mf.-24),z2.));
    
14.         %let yf=%eval(&y.+2);
    
15.     %end;
    
16.     %else %if &mf.>12 %then %do;
    
17.         %let mf=%sysfunc(putn(%eval(&mf.-12),z2.));
    
18.         %let yf=%eval(&y.+1);
    
19.     %end;
    
20.     %else %let yf=&y.;
    
21.       ,t1.%sysfunc(cats(%bquote('&yf.&mf.'), n)) as K&i.
    
22.   %end;
    
23. %mend m;
    
24. 
    
25. /*%m(201103);*/
    
26. proc sql noprint;
    
27.     create table test as
    
28.      select t1.IND
    
29.      %m(201103)
    
30.      from work.monthly t1
    
31.     ;
    
32. quit;

复制代码

OK! Thank for your help.
You use the simply pro sql through %m(201103)

BUT : H201103 outcomes is only  one my outcome ,
I want to be produce many like H201103 files
that include from H199101 H199102 ...  to H201103.

I must excute 243 times of %macro : from %m(199101) to %m(201103)
So must  consture  the another macro in this section (proc sql):
THS!

/*%m(201103);*/
proc sql noprint;
     create table test as
     select t1.IND
        %m(201103)
    from work.monthly t1;
quit;

3qsir 发表于 2014-3-14 16:50
OK! Thank for your help.
You use the simply pro sql through %m(201103)

you can create a macro to repeat this code



%macro a;
%do i=199101 %to 201103;
%macro m(v);
%let y=%substr(&v.,1,4);
%let m=%substr(&v.,5,2);
%do i=1 %to 24;
      %let mf=%sysfunc(putn(%eval(&m.+&i.-1),z2.));
      %if &mf.>24 %then %do;
        %let mf=%sysfunc(putn(%eval(&mf.-24),z2.));
        %let yf=%eval(&y.+2);
    %end;
    %else %if &mf.>12 %then %do;
        %let mf=%sysfunc(putn(%eval(&mf.-12),z2.));
        %let yf=%eval(&y.+1);
    %end;
    %else %let yf=&y.;
      ,t1.%sysfunc(cats(%bquote('&yf.&mf.'), n)) as K&i.
  %end;
%mend m;

/*%m(201103);*/
proc sql noprint;
    create table test&i as
     select t1.IND
     %m(&i)
     from work.monthly t1
    ;
quit;
%end;
%mend a;
%a;

BUG !!!

%macro a;
%do mm=199101 %to 201103;
%macro m(v);
%let y=%substr(&v.,1,4);
%let m=%substr(&v.,5,2);
%do i=1 %to 24;
      %let mf=%sysfunc(putn(%eval(&m.+&i.-1),z2.));
      %if &mf.>24 %then %do;
        %let mf=%sysfunc(putn(%eval(&mf.-24),z2.));
        %let yf=%eval(&y.+2);
    %end;
    %else %if &mf.>12 %then %do;
        %let mf=%sysfunc(putn(%eval(&mf.-12),z2.));
        %let yf=%eval(&y.+1);
    %end;
    %else %let yf=&y.;
      ,t1.%sysfunc(cats(%bquote('&yf.&mf.'), n)) as K&i.
  %end;
%mend m;

/*%m(201103);*/
proc sql noprint;
    create table test&mm as
     select t1.IND
     %m(&mm)
     from work.monthly t1
    ;
quit;
%end;
%mend a;
%a;

the variable has been used ，i have not look carefully~