AS/400 - Ejecutar un comando en as/400 desde VB6 con socket

quiero ejecutar un cl o un rpg desde una aplicacion en vb6. que se conecta al 400 mediante sockets. Muchas gracias por la ayuda.

Busca en este Reedbook "A Fast Path to AS/400 Client/Server Using AS/400 OLE DB Support" su nunmero es SG24-5183-00 la pagina internet es http://www.redbooks.ibm.com/, no se tal vez encuentres algo que te sirva o en esa pagina hay mucho mas... suerte

Como haces escuchar al AS400 en un puerto TCP?. Si tienes el compilador de C en el 400, es facil, busca el ejemplo al final del manual de socket SC41-5422-03 (Sockets Programming) y veras como implementar un "listener". Luego es sencillo, al recibir un accept, basta con realizar un spawn. SUERTE!!!

Private WithEvents rst As ADODB.Recordset
Private WithEvents conas400 As ADODB.Connection

Aux_DtSourceAS = "Nombre de la ODBC"
Set conas400 = CreateObject("ADODB.Connection")
Set rst = New ADODB.Recordset

///// Establece apertura de la tabla AS400 ///////
rst.Open "SELECT * FROM " +" Nombre de la tabla", Aux_DtSourceAS, adOpenDynamic, adLockOptimistic

//////////// Cuerpo de instrucciones para menejar la tabla con el recordset, (addnew-update-delete )////////////////////

conas400.Close
Set rst = Nothing
Set conas400 = Nothing