Maybe this will work:
Code:
Def X = '&1'
Col W New_Value Test
Select Decode('&X','A',' > 5','B',' > 500','C',' < 5') W
  From Dual;

Select Disc_Cd
  From Disc 
 Where Test_Column &&Test;