[SAS] CALL SYMPUT 与 CALL SYMPUTX

CALL SYMPUT 的功能是可以在 DATA step 内将值塞到一个 macro 变量里面。如果这个 macro 变量已经存在，那这个 call 就会更新该 macro 变量的值。

CALL SYMPUT 简介

CALL SYMPUT 基本用法：

CALL SYMPUT ( macro 便俩个 , 值 );

注：不会自动去除值前后的空白

可以分成常见的两种写法：

(1) 这一行 statement 可以將值 Cookie 塞入 macro 变量 Gift 里面，值 必须给予单引号

call symput (‘Gift’,'Cookie’);

(2) DATA set 变量 nage 的值塞入 macro 变量 a14 。这里 macro 变量名称为 a14 ，存在 DATA step 的字串变量 myvar 內

myvar=’a14′;
call symput (myvar,nage);

CALL SYMPUT 范例

d ata temp ;
set sashelp.class end=eoa;
if age gt 14 then nage+1;
if eoa then call symput(‘n14′,put(nage,z2.)) ;
run;
proc means data=temp;
title “N of student that age more than 14 years old: &n14 “;
var age;
run;

程序中 put(nage,z2.) ，用 put 做数字转文字的转换，将 nage 算好的值变成文字。不用 put 函数也可以，因为 sas 会自动帮你转换，但是差别在于对对其余空格让版面很丑。

結果如下 ↓

CALL SYMPUTX 简介

那 CALL SYMPUTX 基本写法：

CALL SYMPUTX (macro 变量 , text , );

上面提到 CALL SYMPUT 不会把值的前后空白去掉，但是 CALL SYMPUTX 会自动去点前后空白

而且第三个位置的 是选择性的设定，可由 3 种选择

分別是 G (global symbol table) 、 L (local symbol table) 、 F ( 当 macro 变量已存在与任一个 symbol table)

CALL SYMPUT 范例

在这个例子， CALL SYMPUTX 被放在 cards 之前，因此在每次 DATA step 执行的时候， CALL SYMPUTX 就会执行

此程式目的在抓取最后一笔 booktitle 的值

data newbooks;

input booktitle $ 1 - 40 ;

call symputx('lasttitle',booktitle);

cards;

Hello Java Programming

My Encyclopedia of Newworks

Strategic Computer Programming

Everday Email Eriquette

run ;

%put The value of macro var LASTTTILE is &lasttitle.;

The value of macro var LASTTTILE is Everday Email Eriquette

因为资料最后一笔值是「 Everday Email Eriquette 」，就会被写入 put 里面。

call symput 在data步中将值塞入宏变量http://www2.sas.com/proceedings/sugi29/052-29.pdf[SAS] CALL SYMPUT与CALLSYMPUTXCALL SYMPUT的功能是可以在DATA step内将值塞到一个macro变量里面。如果这个macro变量已经存在，那这个call就会更新该macro变量的值。CA 注：<>表示可选内容 data null; call sym putx(’ items ', ’ leading and trailing blanks removed ‘, ‘lplace’); call sym putx(... 2. Call Sym put('xxx','yyy'); 3. select xxx into: yyy. 三种定义方式最大的 区别 是在MACRO函数内定义所生成的宏变量的类型不同： Call Sym put在宏函数中定义的宏变量可以在函数外调用；而%let和 Select into则不能，因为这2种方法在MACRO函 set table; if lag(start_date) eq end_date then call sym put('flag','true'); else call sym put('flag','false'); %if &flag eq 'true' %then %do; do i=1 to 50; if lag(start_date) eq end_date then do; output; %end; else %do; do i=1 to 50; if lag(start_date) ne end_date then do; output; %end;