RE: Ejecutar cl desde Visual Basic

[Pinedo Pedro]

Title: Mensaje

yo ejecuto desde visual basic, pero estos estan realizados por genexus. En la QGPL crea un procedimiento almacenado, este se puede crear:  a)atraves del navegador de operaciones: Base de datos, Bibliotecas,Qgpl (boton derecho),nuevo,procedimiento,externo. Y en lav entana que aparece se le indica el nombre y los parametros del programa.    b)Genexus crea un programa visual Basic con Instrucciones de este estilo: Do       Gx_err = Gx_odbc_mrc_l(GX_DB_ExecImm(HConn_Default, "", cmdbuf), HConn_Default, GX_NOMASK, "", CS_DB2400, 1)    Loop While Gx_eop <> 0    cmdbuf = " DROP PROCEDURE AKFAZONA "    Do       Gx_err = Gx_odbc_mrc_l(GX_DB_ExecImm(HConn_Default, "", cmdbuf), HConn_Default, GX_MASKNOTFOUND, "", CS_DB2400, 1)    Loop While Gx_eop <> 0    cmdbuf = " CREATE PROCEDURE AKFAZONA (INOUT CHAR(11), INOUT CHAR(1), INOUT CHAR(4), INOUT CHAR(3), "    cmdbuf = cmdbuf & "  INOUT CHAR(11), INOUT CHAR(11), INOUT CHAR(11), INOUT CHAR(11), INOUT CHAR(11), "    cmdbuf = cmdbuf & "  INOUT CHAR(11), INOUT CHAR(11), INOUT CHAR(11), INOUT CHAR(5), INOUT CHAR(5), INOUT "    cmdbuf = cmdbuf & "  CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), "    cmdbuf = cmdbuf & "  INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUTC HAR(5), INOUT "    cmdbuf = cmdbuf & "  CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), "    cmdbuf = cmdbuf & "  INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5), INOUT CHAR(5)) EXTERNAL "    cmdbuf = cmdbuf & "  NAME AKFAZONA LANGUAGE RPG GENERAL "   Para cada programa llamado.     y un call en los programas que lo llaman.   No se Visual Basic, osea que si hay que definir algo mas, no tengo ni idea. Si tu me indicas donde buscar o si necesitas algo mas, con decirlo ....   Un saludo. -----Mensaje original----- De: Antonio J. Campillejo [mailto:[EMAIL PROTECTED]] Enviado el: martes, 28 de enero de 2003 19:29 Para: [EMAIL PROTECTED] Asunto: Ejecutar cl desde Visual Basic Hola,   alguien me podria facilitar o decirme donde puedo encontrar un ejemplo para ejecutar un cl en el as400 desde un programa visual basic.   Gracias.   Antonio Campillejo Visionlab _____________________________________________________________________ AMCOR FLEXIBLES EUROPE - LEADING THROUGH INNOVATION _____________________________________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES EUROPE immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES EUROPE.