Exemple .net sur AS400 avec I5_dotnet

Imports i5_Connect_Class 
Public Class Form1 
    Dim WSBinding As New BindingSource 
    Dim Mydatatable As New DataTable   
    Dim i5_Connect As New i5_Connect 
    Dim i5_Translator As New i5_Translator 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     Mydatatable.name = "My file name" 
     i5_Connect.Open_connexion("MyIseries", WUSER, Wpassword, "*Usrlibl") 
            i5_Connect.Store_Procedure("MystoreProcedure") 
            i5_Connect.Add_Parameter("Myparameter", Wparameter, ParameterDirection.Input) 
            i5_Connect.Execute_reader(Mydatatable) 

            WSBinding.DataSource = i5_Connect.i5_Dataset 
            WSBinding.DataMember = "My file name" 

            I5MLNGP001.AcceptChanges() 
            DG_Subfile.DataSource = WSBinding 
            WSBinding.ResetBindings(False) 
End Sub 

CREATE PROCEDURE MyPgmLib.Mystoreprocedure   
(in Myparameter varchar(xxx))                  
      DYNAMIC RESULT SETS 1              
      LANGUAGE SQL                       
      SPECIFIC MyPgmLib.Mystoreprocedure     
      NOT DETERMINISTIC                  
      READS SQL DATA                     
      CALLED ON NULL INPUT               
      BEGIN                              
DECLARE Myfile CURSOR FOR            
                                         
SELECT                                   
field1 AS "field1 column header",     
field2 AS "field2 column header"   
   
FROM Myfile                   
WHERE field1 = Myparameter             
ORDER BY                            
field1                             
     
FETCH FIRST 100 ROWS ONLY;                           
OPEN Myfile;                                     
END