/* Using CALL SYMPUT to assign
values to macro variables */

*book data;

data libbooks;
input Title $ 1-19 Duedate MMDDYY10. Borrower $ 31-48;
DaysOver = TODAY() - Duedate;
cards;
Hamlet             12/05/2006 Jerry Thomas         
Don Quixote        11/07/2006 Malcolm Washington    
Great Expectations 11/29/2006 Betty Morgan          
The Tale of Genji  12/01/2006 Sharon Jones          
The Magic Mountain 07/04/2006 Fritz Beck
;

run;

data libbooks;
set libbooks;
IF TODAY() > Duedate THEN CALL SYMPUT("account", "overdue");
 ELSE CALL SYMPUT("account", "clear");
IF DaysOver > 30 THEN CALL SYMPUT("severe", Title);
run;

PROC PRINT data = libbooks;
WHERE DaysOver > 0;
FORMAT Duedate WEEKDATE25.;
TITLE "Books that are &account";
TITLE2 "Severely Overdue Book is &severe";
run;