VB vs Cobol
Necesito urgentemente de su ayuda, como puedo ejecutar un programa de cobol desde visual basic, mandando y recibiendo parámetros según sea el caso, lo importante es como lo mando llamar.
1 respuesta
Respuesta de fansi
1
La forma más fácil es utilizar el comando Shell.
Dim lngRetorno as Long
Dim strComando as String
strComando = "c:\algo.exe"
lngRetorno = Shell(Comando)
Ten en cuenta una cosa. Esta llamada es similar a si abrieras un 'command line prompt' y escribieras allí. Por tanto, si el programa al que llamas contiene espacios en blanco, o ha de recibir algún parámetro, lo tendrías que escribir con comillas delante y detrás.
Esto es:
strComando = """" & "notepad.exe hola.txt" & """"
Dim lngRetorno as Long
Dim strComando as String
strComando = "c:\algo.exe"
lngRetorno = Shell(Comando)
Ten en cuenta una cosa. Esta llamada es similar a si abrieras un 'command line prompt' y escribieras allí. Por tanto, si el programa al que llamas contiene espacios en blanco, o ha de recibir algún parámetro, lo tendrías que escribir con comillas delante y detrás.
Esto es:
strComando = """" & "notepad.exe hola.txt" & """"
De hecho cuando es un ejecutabla es correcta ese forma, pero cuando es una dll, que envías y/o recibes parámetros es de la sig. manera.
Private Declare Sub COBDLL Lib "C:\FSC\PCOBOL32\SAMPLES\VB4\COBDLL.DLL" (PassNum As Long)
Private Declare Sub JMPCINT2 Lib "C:\FSC\PCOBOL32\F3BIPRCT.DLL" ()
Private Declare Sub JMPCINT3 Lib "C:\FSC\PCOBOL32\F3BIPRCT.DLL" ()
Private Sub Command1_Click()
Dim ReturnNumber As Long
Call JMPCINT2 'Start COBOL Runtime - typically do once at start of VB application
Call COBDLL(ReturnNumber)
Call JMPCINT3
end sub
Pero mi problema es que quiero ejecutal una librería hecha en cobol y que se encuentra en un mainframe, ya me puedo conectar, pero no he podido ejecutar el objeto de Cobol.
Saludos
Private Declare Sub COBDLL Lib "C:\FSC\PCOBOL32\SAMPLES\VB4\COBDLL.DLL" (PassNum As Long)
Private Declare Sub JMPCINT2 Lib "C:\FSC\PCOBOL32\F3BIPRCT.DLL" ()
Private Declare Sub JMPCINT3 Lib "C:\FSC\PCOBOL32\F3BIPRCT.DLL" ()
Private Sub Command1_Click()
Dim ReturnNumber As Long
Call JMPCINT2 'Start COBOL Runtime - typically do once at start of VB application
Call COBDLL(ReturnNumber)
Call JMPCINT3
end sub
Pero mi problema es que quiero ejecutal una librería hecha en cobol y que se encuentra en un mainframe, ya me puedo conectar, pero no he podido ejecutar el objeto de Cobol.
Saludos
