Informix - Store Procedure

Alguien sabe como preparar sentencias SQL en Store Procedure
Ejm....Select campo1 From tabla1
donde el where viene armado segun la lectura de unas variables ejm..
If f1 = "2" Then
var_where = "campo1 = " + "var1"
End If

Mira no se a que te refieres con "store procedure", me imagino que soporta el mismo codigo que las funciones de un 4gl. Si es asi espero te sirva:

let sql_str = " select * from clientes a"
if p_zona != 0 then
let sql_str = sql_str clipped, " where a.zona=", p_datos.zona,
"into temp tmp_table"
end if

prepare sql_query from sql_str
execute sql_query

Lo que haria este pedaso de código es que dependiendo del valor que contiene la variable p_zona (introducida por el usuario) sacaria la informacion de la tabla clientes.
si es 0 entonces saca toda la tabla
si es <> 0 entonces lo relaciona con el valor de la variable

si tienes alguna duda escribeme, talves te pueda ayudar.