Lanciare programma As400 da Vb.Net

lunedì 30 luglio 2012 - 12.55
Tag Elenco Tags  VB.NET  |  .NET 3.5  |  Windows XP  |  Visual Studio 2008  |  SQL Server 2005

roninkaiser Profilo | Newbie

Ciao a tutti,

con il seguente codice lancio un programma su as400.
Tutto funziona regolarmente. Se invece volessi capire quando il programma ha terminato la sua elaborazione (che nel mio caso sono degli inserimenti in alcuni archivi), come posso fare?

Grazie

Public Sub RunCmd(ByVal c As String, ByVal p As String)

Dim systemnames As New cwbx.SystemNames
Dim as400 As New cwbx.AS400System
Dim cmd As New cwbx.Command


'as400.Define systemnames.DefaultSystem

as400.Define("as")

as400.UserID = "xxx"
as400.Password = "xxxx"
as400.PromptMode = cwbx.cwbcoPromptModeEnum.cwbcoPromptNever
as400.Signon()
cmd.system = as400
Dim comando As String
comando = "CALL PGM(libreria/bgcal) PARM('" & n & "'" & " " & "'" & p & "')"
cmd.Run(comando)



End Sub
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5