Esperando Respuesta

Hola ahi te envio un ejemplo, espero que te serva funcione muy bien.

*-----------------------------------------------------------*
*Permite Crear/Borrar una Conexión para AS/400.              *
*-----------------------------------------------------------*
public vc_opc_odb,odbc_rmv_dsn,var_driver,var_setting,AS_CONEC,Ccone
AS_CONEC="_"+SUBSTR(SYS(2015), 4)
opc_odb=1
&&
var_driver = " "                                    && Driver Origen de Datos
var_setting = " "                                   && Data Configuration
odbc_add_dsn = 1                                    && Add data source
odbc_cfg_dsn = 2                                    && Configure data source
odbc_rmv_dsn = 3                                    && Remove data source
&&
vc_opc_odb = opc_odb
dsn_dsc  = "description= EHV_Dsn AS/400 Real"       && Dsn Description
as400_name = "system="+"servidor"                && Nombre de tu AS/400,Tambien puedes 164.6.140. 10
dsn_name = "DSN=&AS_CONEC"                             && Name of dsn source
library_df = "DBQ="+ "LIB1 LIB2 LIB3"   && Library Dejar un espacio entre cada libreria
trans_late = "Translate=1"                          && Valor Fijo
*-------------------------------------------------------------*
declare integer SQLConfigDataSource in odbccp32. Dll integer,integer,string,string
** Driver
 var_driver= "Client Access ODBC Driver (32-bit)"    
 ** Atributos
 var_setting = dsn_dsc + chr(0) + as400_name + chr(0) + dsn_name + chr(0) + library_df + chr(0) + trans_late
 =SQLConfigDataSource(0,odbc_add_dsn,var_driver,var_setting)  && Crea Conexion
 Ccone=SQLCONNECT("&AS_CONEC", "USUARIO","CLAVE")
IF Ccone<1            && Ccone es menor que uno (1) no se conecto.
  RETURN
ENDIF 

=SQLConfigDataSource(0,odbc_rmv_dsn,var_driver,var_setting)  && Borra conexión

Debes tener instaldo el client access