如何从数据集中将某个变量的format存为宏变量，但format中不包含长度

如何从数据集中将某个变量的format存为宏变量，但format中不包含长度。谢谢！
比如变量ALLERGYN，得到的format为HAVE.

一个参考思路：
1. Proc Content将数据集的内容输出成一个新data，将需要的变量及其format保留
2. 提取format这个字符串，按照规律去的format而不含长度，如简单的将数字compress掉
3. 将处理后的字符输出成宏变量，如call symput来实现

楼上的思路挺好，不过有一个可能会遇到的bug：
当format中包含数字的时候（如format是HA1VE.），compress去掉数字可能会出错。

下面是一个sample

1. proc format;
   
2.         value sex 1='F' 2='M';
   
3.         value ra1ce 1='汉族' 2='其他';
   
4. run;
   
5. 
   
6. data a;
   
7.         input id$ sex race;
   
8.         format sex sex. race ra1ce.;
   
9.         cards;
   
10. 001 1 1
    
11. 002 1 2
    
12. 003 2 2
    
13. 004 2 1
    
14. ;
    
15. run;

复制代码

1. data b;
   
2.    length name $ 8 format $ 10 position 8;
   
3.    drop dsid i num rc;
   
4.    dsid=open("work.a","i");
   
5.    num=attrn(dsid,"nvars");
   
6.    do i=1 to num;
   
7.       name=varname(dsid,i);
   
8.       format=varfmt(dsid,i);
   
9.       position=varnum(dsid,name);
   
10.       output;
    
11.    end;
    
12.    rc=close(dsid);
    
13. run;

复制代码

这种方法读取的format不含尾部的数字，然后用call symput/symputx创建宏变量。