Create new columns based on condition

[clipsia]

Hi, I am having problems creating a new Column where I have to use a condition.

The context is: I have a table with the columns:

-ID

-credit card: it can be visa or master.

-amount: the amount in $

The objetive is not to be repetitive with the id if the client has visa and master. So I need 2 new columns where: if the credit card is from visa the new column "Amount_Visa" has the consolidated amount. And if its from master, the new column "Amount_Master" has its amount.

Now I have this:

ID	Credit card	Amount
1	visa	230.60
1	master	456.30

And I need this:

ID	Credit Card	Amount_Visa	Amount_Master
1	Visa/Master	230.60	456.30

Thank you!

[novinosrin]

data have;
input ID	Credit_card $	Amount;
cards;
1	visa	230.60
1	master	456.30
;

proc transpose data=have out=want(drop=_name_) prefix=Amount_;
 by id;
 var amount;
 id credit_card;
run;
proc print noobs;run;

[PeterClemmensen · Accepted solution]

data have;
input ID CreditCard $ Amount;
datalines;
1 visa   230.60
1 master 456.30
2 visa   230.60
2 master 456.30
;

data want;
   do until (last.ID);
      set have;
      by ID;
      CreditCard = "V/M";
      Amount_Visa	= Amount;
      Amount_Master = Amount;
   end;
   drop Amount;
run;

[clipsia]

Thank you both! But does it help if I have 3000 rows in this table??

[PeterClemmensen]

Both approaches handles 3000 obs easily. 

[Kurt_Bremser]

---

@clipsia wrote:
Thank you both! But does it help if I have 3000 rows in this table??

---

With a sufficiently slow computer, it might actually need more than 0.01 seconds.

[clipsia]

I need a data set like this:
data want;
set table;
Amount_VISA=Amount;
if credit card='Visa' then Amount_VISA=Amount;
else Amount_MASTER=Amount;
drop amount;
run;

[clipsia]

the important thing is to get off the duplicated ID rows