SAS中文论坛

标题: 请教call execute的问题 [打印本页]

作者: shiyiming 时间: 2012-8-21 17:17
标题: 请教call execute的问题
使用的SAS版本是 9.13

我有一张描述信用卡信息的  卡表（Cards），有  卡号、信用额度、余额等字段
现在模拟交易的交易：
1、随机取一张卡
2、随机产生一个消费金额
3、判断消费额度是否超过信用卡的余额
4.1、如果未超过，则将原来的余额减去这次的消费金额  为新的余额
4.2、如果超过，则此次不消费，只对此张信用卡还款。
5、循环上面的过程，直至完成需要的次数。

我写的代码见后面。

现在存在的问题是，call execute 是在我的DATA步骤结束后，再去执行相关的MACRO。
请问在我如何在尽量小改小的前提下，实现我的目的。

%macro updatetable(Cardnum=,AfterUpdateBal=);
proc sql;
  update Cards
   set Bal=&AfterUpdateBal.
   where Card_num="&Cardnum.";
quit;
%mend;

%macro repay(Cardnum=);
proc sql;
  update Cards
   set Bal=LIMIT_AMT
   where Card_num="&Cardnum.";
quit;
%mend;

data trans;
  do i=1 to 100;
mycardpoint=CEIL(RANUNI(0)*mycardnobs);
   set Cards POINT=mycardpoint nobs=mycardnobs;  /*随机取一张卡*/
Tx_Amt=1000*rand('uniform');                /*随机产生一个消费金额*/

   if(Bal>=Tx_Amt) then do;                   /*如果余额为够此次消费，则更新余额*/
      Bal=Bal-Tx_Amt;                            /*更新  “余额” */
   call execute('%updatetable(Cardnum='||Card_num||',AfterUpdateBal='||Bal||');');
   end;
   else do;                                     /*如果余额不够此次消费，则存款，使得余额等于信用额度 */
      Tx_Amt=Bal-LIMIT_AMT;                      /*这里 Tx_Amt 表示存入的金额*/
      call execute('%repay(Cardnum='||Card_num||');');
   end;
output;
  end;
  stop;
run;

作者: shiyiming 时间: 2012-8-28 17:30
标题: Re: 请教call execute的问题
目测为数字型字符型转换时候的问题，还有缺少引号…… 这些都是容易忽略的细节，构架和整体思路没问题，是可以实现的。

欢迎光临 SAS中文论坛 (http://www.mysas.net/forum/)