vendredi 7 septembre 2007

Accèder à un programme AS400 depuis JAVA


En utilisant le package open source JTOPEN

vous pourrez facilement accèder aux fonctions offertes par un AS400.



Voici ci-dessous un exemple de classe java utilisant les JAR de JTOPEN pour déclencher un programme AS400 (fichier dans une lib avec l'extension PGM)

voici le source de ma petite classe:

package as400callprg;

import com.ibm.as400.access.AS400;
import com.ibm.as400.access.AS400Message;
import com.ibm.as400.access.AS400SecurityException;
import com.ibm.as400.access.ErrorCompletingRequestException;
import com.ibm.as400.access.MessageFile;
import com.ibm.as400.access.ObjectDoesNotExistException;
import com.ibm.as400.access.ProgramCall;
import com.ibm.as400.access.ProgramParameter;

import java.beans.PropertyVetoException;

import java.io.IOException;


public class CallPrgAs400 {
public CallPrgAs400() {
}

public static void main(String[] args) {
CallPrgAs400 callPrgAs400 = new CallPrgAs400();
callPrgAs400.call();
}


public void call ()
{

// Call programs.
AS400 as400 = new AS400("192.168.3.50", "Utilisateur", "password");

System.out.println("---");
ProgramCall programCall;
String programName = "/QSYS.LIB/GCTEST.LIB/ECPVA.PGM";
System.out.println("--- "+ programName);

ProgramParameter[] parameter;
parameter = new ProgramParameter[0];

programCall = new ProgramCall(as400, programName, parameter);
try{
System.out.println("---");
boolean bb = programCall.run();
System.out.println("--- retour = "+bb);
}
catch (Exception e)
{
e.printStackTrace();
}
}

}

2 commentaires:

Mon profil sous linkedin a dit…

Plus d'exemple de code java sur :
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/rzahh/page1.htm

et le guide complet de developpeur :

http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzahh/rzahh.pdf

Unknown a dit…

Bonjour,

Je cherche à récupérer la valeur d'une variable contenant un code retour d'un programme CL que je lance à partir d'un programme java.
Quelle est la synthaxe à utiliser svp?