Split the non-key columns to separate tables with key column in both target tables

[Aexor]

I have a source table/dataset and I want two separate  target tables/datasets Target Table 1, Target Table 2 as below . Please advice.

Source table	Target Table 1	Target Table 2
ID Name Phone No 10 AAA 123 20 BBB 234 30 CCC 434 40 DDD 343 50 EEE 442	ID Name 10 AAA 20 BBB 30 CCC 40 DDD 50 EEE	ID Phone No 10 123 20 234 30 434 40 343 50 442

ID is the key column; Name and Phone No are non-key columns

I have tried below code and it worked too.

data source;
input id name $ ph $;
datalines;
10 AAA 123
20 BBB 234
30 CCC 434

40 DDD 343

50 EEE 442
;
run;

data Target1 ;
set one(drop = ph);
run;

data Target2;
set one(drop = name);
run;

Please suggest any other approach and also can we do it in single data step?

All suggestions are welcome.

Thank you.

[andreas_lds · Accepted solution]

Try

data table1(keep= id name) table2(keep= id ph);
   set source;
run;