Configure(”MyLib”, “MyPrg”, TheSystem, ProgramName)
CallProgram(TheSystem, ProgramName, Nothing)

Ganti TheSystem pakai as400 atau
ganti deklarasi TheSystem di buttonclick dengan menggunakan cwbx.as400system

–Cheers–
==========================================
Tetap aja ngak ada response mas….
bingung dech…segala cara udah dicoba….

Dim AS400Name As String = “110.114.30.2″
Dim AS400User As String = “User”
Dim AS400Password As String = “User”
Dim AS400Pgm = “MyPrg”
Dim AS400Lib = “MyLib”

Dim AS400 As New cwbx.AS400System
Dim program As New cwbx.Program

AS400.Define(AS400Name)

program.system = AS400
program.system.UserID = AS400User
program.system.Password = AS400Password

program.LibraryName = AS400Lib
program.ProgramName = AS400Pgm

program.Call()

Tetap sama saja, diem ngak ada response….

AS400.Signon()
AS400.Connect(cwbcoServiceEnum.cwbcoServiceRemoteC md)
program.Call()

Ngak jalan, malah nyakut di bagian ini : AS400.Define(AS400Name)

==> Nyangkut tapi nggak error kan? ada kemungkinan itu nggak bisa resolve ip-nya AS/400. Asumsi emulator bisa jalan, coba line AS400.Signon dihapus deh….

Configure(”MyLib”, “MyPrg”, TheSystem, ProgramName)
CallProgram(TheSystem, ProgramName, Nothing)

Ganti TheSystem pakai as400 atau
ganti deklarasi TheSystem di buttonclick dengan menggunakan cwbx.as400system

–Cheers–

Kelihatannya cuman masalah typo doang…

CallProgram(TheSystem, ProgramName, Nothing)

Mungkin bukan TheSystem tapi as400

Di kantor saya menggunakan AS/400 untuk main systemnya dan RPG programming untuk back-end system.
Ada program yang dibuat oleh vendor, sebut aja PrgSend yg ada di library MyLib.
Program itu cuma baca dari sebuah Physical file yg dikirim lewat FTP untuk kemudian mengirim data ke real table
dan dijalankan menlalui Client Access-nya AS/400.

Saya ingin memanggil PrgSend tersebut dari ASP.Net dengan ide melakukan looping sebanyak jumlah transaksi yg ada di table SQL Server saya.

Code:

Dim AS400Name As String = “110.114.30.02″
Dim AS400User As String = “User”
Dim AS400Password As String = “User”
Dim AS400Pgm = “PrgSend”
Dim AS400Lib = “MyLib”

Dim AS400 As New cwbx.AS400System
Dim program As New cwbx.Program

AS400.Define(AS400Name)

program.system = AS400
program.system.UserID = AS400User
program.system.Password = AS400Password

program.LibraryName = AS400Lib
program.ProgramName = AS400Pgm

AS400.Signon()
AS400.Connect(cwbcoServiceEnum.cwbcoServiceRemoteC md)
program.Call()

Ngak jalan, malah nyakut di bagian ini : AS400.Define(AS400Name)

cara lain saya coba panggil dgn ODBC connection

Dim connectionString As String = “Dsn=MyDSN;uid=User;pwd=User;Force Translate=0;”
Dim conn As Odbc.OdbcConnection = New Odbc.OdbcConnection(connectionString)
Dim command As New Odbc.OdbcCommand(“call qsys.qcmdexc (‘MyLib/MyPrg’),0000000011.00000)”, conn)
command.CommandType = CommandType.Text
conn.Open()
command.ExecuteNonQuery()
conn.Close()

Error :
Code:

ERROR [42000] [IBM][Client Access Express ODBC Driver (32-bit)][DB2/400 SQL]SQL0104 – Token , was not valid. Valid tokens: .

Bisa bantu ngak untuk mennyelesaikan problem saya ?
Apa ada yang perlu disetting di mesin AS/400 untuk jalanin atau kasih akses terhadap .Net ?
Padahal, untuk jalanin perintah built-innya AS/400 aja bisa

call qsys.qcmdexc (‘clrpfm file(MyLib/TmpTable)’)

Terima kasih,

Kusno.

Private Function Configure(ByRef AS400Library As String, ByRef ProgramName As String, ByRef TheSystem As cwbx.AS400System, ByRef TheProgram As cwbx.Program) As Boolean
TheSystem.Define(“150.114.30.01″)
TheSystem.UserID = “User”
TheSystem.Password = “User”

TheProgram.system = TheSystem
With TheProgram
.LibraryName = AS400Library
.ProgramName = ProgramName
End With
Return True
End Function

Function CallProgram(ByRef TheSystem As cwbx.AS400System, ByRef TheProgram As cwbx.Program, ByRef parameters As cwbx.ProgramParameters) As Boolean
Try
If TheSystem.IsConnected(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd) = 0 Then
TheSystem.Disconnect(cwbx.cwbcoServiceEnum.cwbcoServiceAll)
TheSystem.Connect(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd)

If (TheSystem.IsConnected(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd) = 0) Then
Return False
End If
End If

‘ TheProgram.Call(parameters)
Return True
Catch ex As Exception
Throw ex
Finally
If Not TheSystem.IsConnected(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd) = 0 Then
TheSystem.Disconnect(cwbx.cwbcoServiceEnum.cwbcoServiceAll)
End If
End Try
End Function

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim TheSystem As New cwbx.SystemNames
Dim as400 As New cwbx.AS400System
Dim cmdAS400 As New cwbx.Command
Dim ProgramName As New cwbx.Program
Dim dQueue As New cwbx.DataQueue
Dim strCvtr As New cwbx.StringConverter
Dim lngCvtr As New cwbx.PackedConverter

Configure(“MyLib”, “MyPrg”, TheSystem, ProgramName)
CallProgram(TheSystem, ProgramName, Nothing)
End Sub

Muncul error seperti ini :
Unable to cast COM object of type ‘cwbx.SystemNamesClass’ to interface type ‘cwbx.AS400System’. This operation failed because the QueryInterface call on the COM component for the interface with IID ‘{86F9DB11-15D5-11D2-849C-0004AC94E175}’ failed due to the following error: No such interface supported (Exception from HRESULT: 0×80004002 (E_NOINTERFACE)).

Line 796: Dim lngCvtr As New cwbx.PackedConverter
Line 797:
Line 798: Configure(“MyLib”, “MyPrg”, TheSystem, ProgramName)
Line 799: CallProgram(TheSystem, ProgramName, Nothing)
Line 800: End Sub

Source File: D:\Project\BM\Transactions\Payment\JournalEntry.aspx.vb Line: 798