Salve volevo sapere se qualcuno di voi ha avuto esperienza su AS 400 e mi saprebbe dire se EF lo supporta e come sia possibile chiamare programmi scritti in rpg in c#.
Grazie

Corso SEO DeepSEO
Libro SEO, SEM e Web Marketing
Siti Web Parma
20 messaggi dal 21 settembre 2006
Scusa ma leggo ora questa tua richiesta.
Se ancora non hai risolto devi agire cosi':
Devi installare sulla macchina il .NET Data Provider del Client Access As400
A questo punto avrai a disposizione il NameSpace IBM.Data.DB2.iSeries con tutte le classi disponibili x fare tutto cio' che serve

Questo è un esempio di codice che utilizzo. (Scusa ma è scritto in VB.Net ma è solo una questione di sintassi)

Sistema AS400=DataSource=ASCENTRALE;UserID=USER;Password=PWD;
_CmdText = "CALL PGM(Libreria/Pgm) PARM(' ' .....)"


Private Function AvviaCLAs400(ByVal _CmdText As String) As Boolean

Using LCnAS As New IBM.Data.DB2.iSeries.iDB2Connection(Sistema AS400)
LCnAS.Open()
'Serve x sapere la lunghezza esatta della stringa _CmdText
Dim LFormat As String=_CmdText.Length.ToString("0000000000.00000").Replace
(",", ".")

Dim LPgmParm As String = "CALL QSYS.QCMDEXC('" + _CmdText.Replace("'", "''") + "', " + LFormat + ")"
Using LCmdAS As New IBM.Data.DB2.iSeries.iDB2Command(LPgmParm, LCnAS)
Try
LCmdAS.ExecuteNonQuery()
pLog.Insert_Log("Esecuzione Programma CL AS400 eseguito correttamente ")
Catch exCp As Exception
pLog.Insert_Log("Esecuzione Programma CL AS400 terminato in modo Anomalo. " + exCp.Message ")
LRetValue = False
End Try
End Using
End Using
End Function

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.