topic Re: Modifying SAS program to macro enable in SAS Programming

Modifying SAS program to macro enable

556 — Wed, 04 Mar 2015 23:10:23 GMT

How can I modify the program to create a macro call cust?

What macro variable should i create?

Requirements:

1. I want to use ID as the dataset name

2. I want to use macro parameter to set the default value

%cust(m_ID=A999999, m_loanamt=2000000, m_loandate=12325, m_int=0.02, m_remainperiod=300, m_period=300)

https://mega.co.nz/#!3JlmjQTZ!Kc8DLXWUOpNAiLXlCfpliVSquXb6L4nsyjbpcXNMQwM

data ID;

year=period/12;

sch_pay=((int/12)*loanamt*((1+int/12)**(period)))/((1+int/12)**(period)-1);

total_int_paid=0;

balance=loanamt;

a=remainperiod;

do i=1 to period;

payment_date=intnx('month',loandate,i);

paidint=round(balance*int/12);

principal=round(sch_pay-paidint);

balance=balance-principal;

if balance<0 then balance=0;

total_int_paid=total_int_paid+paidint;

remainperiod=period-i;

if remainperiod<a then output;

end;

drop a i;

run;

Re: Modifying SAS program to macro enable

Kurt_Bremser — Thu, 05 Mar 2015 07:28:28 GMT

Define your macro like that:

%macro cust(m_ID,m_loanamt,m_loandate,m_int=,m_remainperiod,m_period);

data &m_ID;

year=&m_period/12;

sch_pay=((int/12)*&m_loanamt*((1+int/12)**(&m_period)))/((1+int/12)**(&m_period)-1);

total_int_paid=0;

balance=&m_loanamt;

a=&m_remainperiod;

do i=1 to &m_period;

payment_date=intnx('month',&m_loandate,i);

paidint=round(balance*int/12);

principal=round(sch_pay-paidint);

balance=balance-principal;

if balance<0 then balance=0;

total_int_paid=total_int_paid+paidint;

remainperiod=period-i;

if remainperiod<a then output;

end;

drop a i;

run;

%mend;

Re: Modifying SAS program to macro enable

556 — Thu, 05 Mar 2015 09:12:21 GMT

THANKS!!!!

I just have one more question...

I have a dataset name Customer(https://mega.co.nz/#!bEdT1YDL!ClZbMH870hsNb7PecJRUt9GAlrYVM8EK6YgYQOSVios)

A1.Customer	ID	NAME	LOANAMT	LOANDATE	INT	PERIOD	REMAINPERIOD	YEAR
1	A2015539C	CHAN TAT MAN	2568287	1/18/2011	0.02	360	180	30
2	A2013223H	HUNG BA NAM	4200000	05/01/2014	.	.	.	.

I want to create another macro call amort

How can I modify the program below to create a new macro call amort and apply the previous macro %cust to generate a report for EACH customer by using %amort only?

data _null_;

set A1.Customer;

if int=. then int=0.02;

if period=. then do;

year=25;

remain=year*12;

period=year*12;

end;

run;

proc print data=ID label;

title "Loan amortization for NAME";

format payment_date date9.;

label payment_date='Date of payment';

var payment_date sch_pay total_int_paid balance paidint principal;

run;

Re: Modifying SAS program to macro enable

Kurt_Bremser — Thu, 05 Mar 2015 09:30:22 GMT

You will need a where condition based on the macro parameter.

Also, proc print supports by group processing, so you could do everything in one sweep, without wrapping it in a macro.

You may also take a look at proc report for generating complex reports, including by group processing.

If you still feel you need to do it with macro language, consult this:

SAS(R) 9.4 Macro Language: Reference, Third Edition

Re: Modifying SAS program to macro enable

556 — Thu, 05 Mar 2015 11:30:52 GMT

(This question specifically ask us to create a new macro call amort)

I tried but i cannot solve the problem by myself

%macro amort;

data _null_;

set sasuser.Customer end=final;

if int=. then

int=0.02;

if period=. then

do;

year=25;

remainperiod=year*12;

period=year*12;

end;

if final then

call symputx('m_n', _n_);

if not final then

do;

call symputx('m_ID'!!left(_n_), ID);

call symputx('m_loanamt'!!left(_n_), loanamt);

call symputx('m_loandate'!!left(_n_), loandate);

call symputx('m_int'!!left(_n_), int);

call symputx('m_remainperiod'!!left(_n_), remainperiod);

call symputx('m_period'!!left(_n_), period);

call symputx('m_name'!!left(_n_), name);

end;

run;

%put _user_;

%do i=1 %to &m_n;

%cust(&&m_ID&i, &&m_loanamt&i, &&m_loandate&i, &&m_int&i,

&&m_remainperiod&i, &&m_period&i);

proc print data=&&m_ID&i label;

title "Loan amortation for &&m_name&i";

var payment_date sch_pay total_int_paid balance paidint principal;

format payment_date date9.;

label payment_date='Date of payment';

run;

%end;

%mend amort;

When I use %amort(), my program stopped here

LOG:

WARNING: Apparent invocation of macro CUST not resolved.

%cust(&&m_ID&i, &&m_loanamt&i, &&m_loandate&i, &&m_int&i, &&m_remainperiod&i, &&m_period&i);

180

proc print data=&&m_ID&i label; title "Loan amortation for &&m_name&i"; var payment_date

sch_pay

ERROR 180-322: Statement is not valid or it is used out of proper order.

Re: Modifying SAS program to macro enable

RW9 — Thu, 05 Mar 2015 12:23:48 GMT

That error is telling you that the macro code for cust has not been run(or sucessfully). Can I suggest to read up on macro language if you go down that route, however I agree with KurtBremser, I see no need to use any macro code here, there a basic coding options, e.g. #byval, by group processing etc.

Re: Modifying SAS program to macro enable

556 — Thu, 05 Mar 2015 13:09:13 GMT

Solved... Just by restarting SAS software= =