Menjalankan program AS/400 using ASP.NET

Sharing, walaupun di internet sudah banyak beredar cara-caranya.

Ada pekerjaan web application yang membutuhkan akses ke AS/400 dan menjalankan program yang telah ada pada AS/400.

Untuk dapat menjalankan program dalam AS/400 dibutuhkan cwbx.dll yang ada pada instalasi IBM Client-Server. Kebetulan saya menggunakan versi 5 release 3. Cukup mudah, add saja cwbx.dll tersebut ke dalam project web pada VS 2005 anda. VS akan mengubah DLL tersebut menjadi Interop component.

Shared Function Configure(ByRef AS400Library As String, ByRef ProgramName As String, ByRef TheSystem As cwbx.AS400System, ByRef TheProgram As cwbx.Program) As Boolean

TheSystem.Define(ConfigurationManager.AppSettings.Item(“AS400Server”)) 

TheSystem.UserID = ConfigurationManager.AppSettings.Item(

 

“AS400UserID”)TheSystem.Password = ConfigurationManager.AppSettings.Item(

 

“AS400Password”)TheProgram.system = TheSystem

 

 

 

 

With

TheProgram 

 

.LibraryName = AS400Library

.ProgramName = ProgramName

 

 

End With 

 

 

 

Return True 

End Function

Script diatas adalah script untuk melakukan konfigurasi terhadap koneksi ke AS/400, dimana kebetulan saya menggunakan APPSETTING yang ditulis di web.config. Selanjutnya adalah membuat suatu function yang berfungsi memanggil program di AS/400.

 

Shared 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)  ThenTheSystem.Disconnect(cwbx.cwbcoServiceEnum.cwbcoServiceAll)

TheSystem.Connect(cwbx.cwbcoServiceEnum.cwbcoServiceRemoteCmd)

 

 

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

 

Return False  

 

End If  

 

End IfTheProgram.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

 

Selesai, anda tinggal mengkombinasikan 2 function di atas dengan menyebutkan library dan nama program beserta parameter-parameter dari program tersebut (bila ada).

 

Zuhal dan Zuhrah

Kemarin mendengar istilah baru yaitu Zuhal dan Zahroh dan saya nggak tahu apakah itu?

Hari ini baru sempet cari di internet dan mendampatkan informasi bahwa Zuhal dan Zuhrah itu adalah nama planet dalam bahasa Arab atau Melayu.

Hal ini menjadi menarik, karena dari pembicaraan terdahulu bahwa ada waktu yang baik adalah pada saat Zuhal bertemu dengan Zuhrah. Mungkin yang artinya planet Zuhal sejajar dengan planet Zuhrah (??)

Nah dari informasi bahwa Zuhal adalah planet 6 dari sistim tata surya dan planet Zuhrah adalah planet ke-2, maka kalau melihat dari rotasinya kemungkinan dari planet Zuhal dan Zuhrah dalam satu garis yang sama akan lama sekali (???)

Apakah ada perhitungannya yah ? Untuk dapat menghitung kapan waktu (dalam kalendar) planet Zuhal dan Zuhrah tersebut bertemu ??

Jurnal Accounting

Hari ini diskusi mengenai jurnal accounting. Dibahas mengenai pos-pos akun yang akan masuk ke dalam jurnal. Gila ternyata pengetahuan gue mengenai accounting cetek banget….asli selama diskusi gue menjadi pendengar yang baik.

Dan ternyata banyak sekali trik-trik yang dapat dilakukan pada accounting sehingga didapat efisiensi dalam hal biaya (pencatatan maksudnya). Gue takjub banget deh sama orang-orang accounting, padahal kliatannya simple…cuman 2 lajur debet en kredit…tapi bisa heboh banget. Seharian penuh ngebahas cuman dapat proses penjurnalan untuk proses pembelian pada 2 cost center doang….padahal masih ada 3 cost center lagi….dan itu belum proses penjualan.

Wuiihhh…gue musti belajar banyak nih….

Business Process

Hari ini ngelanjutin pembuatan business process untuk kegiatan after sales perusahaan otomotif. Ternyata ada begitu banyak kombinasi dan harus dapat dituangkan ke dalam satu model sehingga bisa diaplikasikan ke dalam aplikasi komputer.

Memang benar bahwa suatu business process masing-masing industri pasti akan berbeda sehingga setiap industri akan membutuhkan suatu business process yang berbeda walaupun model businessnya sama. Hal ini membuat saya berpikir bagaimana caranya suatu package (seperti SAP) dapat diterapkan di industri yang berbeda-beda? Apakah business process dari industri itu akan mengikuti ataukan package yang akan mengikuti business process industri.

Banyak yang bilang bahwa business process industri di Indonesia tidak standar. Banyak aturan-aturan yang dapat di’belokkan’. Hal-hal seperti inilah yang mungkin menyebabkan tingginya angka implementasi suatu sistem dalam suatu industri?

Any comment?

Hasil bincang-bincang di sore hari…..

Sore-sore ngobrol-ngobrol dng seorang tetangga saya dirumah. Dari ngalur ngidul akhirnya menjadi sedikit serius pembicaraanya. Ada keinginan mengenai membentuk suatu RT/RW Net di kompleks perumahan di bintara ini. Hmmm…cukup menarik, dengan menimbang kebutuhan Internet saya ‘agak’ cukup besar. ‘Kalau bisa ngumpulin 20 warga aja, brani gue jalanin’, saya bilang.

Tapi apakah kebutuhan semau warga juga sama dengan saya? Itu pertanyaannya. Ada yang besar dan ada yang sedikit saja. Dan juga penggunaannya untuk apa? informasi, pekerjaan, bisnis atau porno??

My First blog

Akhirnya….bukannya mengikuti tren, tapi saya melihat blog sebagai sebuah media yang sangat menarik dan bermanfaat. Terinspirasi oleh blog seorang teman saya yang menampilkan tulisan-tulisan yang cukup menarik dan memiliki kandungan ilmu yang sangat berguna.

Semoga tulisan-tulisan saya dalam blog ini dapat menjadi informasi bagi setiap orang yang membacanya.

Enjoy your life…