required output

[Aexor]

Hi I have below table  A , and i want to o/p table B 

input 

Table A

Bank   Currency

ICICI    USD,INR,EURO

output

Table B  

Bank Currency 

ICICI   USD

ICICI   INR

ICICI   EURO

[PaigeMiller · Accepted solution]

data have;
    bank='ICICI';
    currency_all='USD,INR,EURO';
run;

data want;
    set have;
    do i=1 to countw(currency_all,',');
        currency=scan(currency_all,i,',');
        output;
    end;
    drop i currency_all;
run;