How do I separate negative and positive values and create 2 more variables containing those values

[Mounika2]

Using data step

Data is;
Input if amt;
Datalines;
40
20
-10
-30
50
-20
Run;

[novinosrin · Accepted solution]

Data is;
Input  amt;
Datalines;
40
20
-10
-30
50
-20
0
;
Run;

data want;
set is;
if sign(amt)=-1 then neg_ve=amt;
else p_ve=amt;
run;