>create cursor foo (f i) >insert into foo values(112) >insert into foo values(11) >insert into foo values(-11) >insert into foo values(-121) > >select IIF(f>=0,f,0) as a1, IIF(f < 0,f,0) as a2 from foo >select IIF(f>=0,f,0) as a1, IIF(f < 0,-f,0) as a2 from foo >select foo >browse >>
clear create cursor foo (f i) insert into foo values(112) insert into foo values(11) insert into foo values(-11) insert into foo values(-121) select f*IIF(f>=0,1,0) as a1, f*IIF(f < 0,1,0) as a2 from foo LIST STRUCTURE * if you want integer fields ( fixed on VFP9 ) CREATE CURSOR result (a1 i,a2 i) INSERT INTO (ALIAS()); SELECT f*IIF(f>=0,1,0), f*IIF(f < 0,1,0) from foo browse LIST STRUCTURE