用SAS宏实现Oracle中的decode函数

函数介绍DECODE函数是Oracle PL/SQL的功能强大的函数之一，目前还只有ORACLE公司的SQL提供了此函数，其它数据库厂商的SQL实现还没有此功能。DECODE有什么用途呢？先构造一个例子，假设我们想给智星职员加工资，其标准是：工资在8000元以下的加20%；工资在8000元或以上的加15%，通常的做法是，先选出记录中的工资字段值？ select salary into var-salary from employee，然后对变量var-salary用if-then-else或choose case之类的流控制语句进行判断。如果用DECODE函数，那么我们就可以把这些流控制语句省略，通过SQL语句就可以直接完成。看用SAS怎么实现吧，就是这么一个小小的宏，就实现了所谓其他数据库都不能实现的功能，%macro decode /PARMBUFF;
%local i count ifn valuen countall currfeild valueelse;
%let countall=%sysfunc（countw（&SYSPBUFF,%quote（,）））;
%let count=%eval（（&countall-1）/2）;
%let currfeild=%scan（%quote（&SYSPBUFF）,1）;
case &currfeild
%do i=1 %to &count;
%let ifn=%scan（%quote（&SYSPBUFF）,%eval（&i*2））;
%let valuen=%scan（%quote（&SYSPBUFF）,%eval（&i*2+1））;when &ifn then &valuen
%end;%if %eval（&countall>（&count+1）） %then %do;
%let valueelse=%scan（%quote（&SYSPBUFF）,&countall）;
else &valueelse
%end;
end
%mend;调用代码如下，和oracle的调用方式和功能实现基本上都是一样的proc sql;
create table test as
select
%decode（sex,"男",0,"女",1,2）
as abc
from sashelp.class;
quit;Oracle学习笔记：分析各种数据类型Oracle查看sql执行计划和统计信息相关资讯 Oracle教程

Oracle中纯数字的varchar2类型和（07/29/2015 07:20:43）
Oracle教程：Oracle中查看DBLink密（07/29/2015 07:16:55）
[Oracle] SQL*Loader 详细使用教程（08/11/2013 21:30:36）

Oracle教程：Oracle中kill死锁进程（07/29/2015 07:18:28）
Oracle教程：ORA-25153 临时表空间（07/29/2015 07:13:37）
Oracle教程之管理安全和资源（04/08/2013 11:39:32）

本文评论查看全部评论（0）