Antes que todo Muchas gracias por tu ayuda Gregorio.
Mi intensión es ejecutar un select a un archivo DB2 del AS400. Este select posee tres parametros los cuales filtran la consulta dado que no tiene sentido extraer toda la base de datos.
En tal sentido este es el codigo que estoy utilizando, mucho sabré agradecerte me indiques como ejecutar el select.

desde=20021201
hasta=20021231
edo="A"
store sqlconnect('bodmillenium','sisamf','qsx7h5k') to gnconnhandle

if gnconnhandle <= 0
= messagebox('No se puede realizar la conexión', 16, 'sql connect error')
endif

sqlcmd="select bctiso, cuscun, usapm2, bcmnap, bcfeso from ipnetbankd.bcsobpcf where bcesso=" + estado + "and bcfeso between" + desde + "and" + hasta
= sqlsetprop(gnconnhandle, 'asynchronous', .f.)
= sqlsetprop(gnconnhandle, 'packetsize', 2048 )
= sqlexec(gnconnhandle,sqlcmd,'prueba')

select prueba
browse
= sqldisconnect(gnconnhandle)