Lanciare programma As400 da Vb.Net

lunedì 30 luglio 2012 - 12.55

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | .NET 3.5 | Windows XP | Visual Studio 2008 | SQL Server 2005

roninkaiser Profilo | Newbie

11 messaggi | Data Invio: lun 30 lug 2012 - 12:55

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

Torna su

Stanze Forum

Elenco Threads

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 !