SAS format 1

1. proc format;
   
2. value answer 1='yes'
   
3.              2='no';
   
4. run;

复制代码

如何取出2对应的yes放入macro？

proc format;
value answer 1='yes'
             2='no';
run;

proc format cntlout=fmtout;
  select answer;
run;

data _null_;
   set fmtout;
   where fmtname="ANSWER" and type="N" and strip(start)="1";
   call symputx("mvar",label);
run;

%put &mvar;

1. proc format;
   
2. value answer 1='yes'
   
3.              2='no';
   
4. run;
   
5. 
   
6. data a;
   
7.    answer = 1;    output;
   
8.    answer = 2;    output;
   
9. run;
   
10. 
    
11. data _null_;
    
12.     set a;
    
13.     format answer answer.;
    
14.     if answer=1 then call symput('answeryes', put(answer, answer.));
    
15. run;
    
16. %put &answeryes;

复制代码

yongyitian 发表于 2013-12-2 10:12

不是我想要的过程，谢谢回复！

pobel 发表于 2013-12-2 10:36
proc format;
value answer 1='yes'
             2='no';

如果是字符格式 value $chr "A"="B"; 也一样吗？

proc format;
value $answer "1"='yes'
             "2"='no';
run;

proc format cntlout=fmtout;
  select $answer;
run;

data _null_;
   set fmtout;
   where fmtname="ANSWER" and type="C" and strip(start)="2";
   call symputx("mvar",label);
run;

%put &mvar;

pobel 发表于 2013-12-2 10:59
proc format;
value $answer "1"='yes'
             "2"='no';

SAS9.2 两段程序均出现
WARNING: 输入格式 $ 无法加载，可能内存不足。将改用默认的输入格式。
WARNING: 输入格式 $ 无法加载，可能内存不足。将改用默认的输入格式。
WARNING: 输入格式 $ 无法加载，可能内存不足。将改用默认的输入格式。
WARNING: 输入格式 $ 无法加载，可能内存不足。将改用默认的输入格式。

谢谢pobel！如有更简单实现的方法，可以另给论坛币！