le forum IBM i

Code : Tout sélectionner

import com.ibm.as400.access.AS400;

// Connection IBMi
AS400 IBMi = new AS400("IBMI", env.getProperty("jdbc.user"), env.getProperty("jdbc.password"));

// Déclaration d'un tableau de paramètres
        ProgramParameter[] listeParametres;
        ProgramCall program;
try {

            listeParametres = new ProgramParameter[1]; // paramètres (1 input)
            // Affectation des paramètres
            listeParametres[0] = new ProgramParameter(new AS400ZonedDecimal(9, 0).toBytes(parametre));

            program = new ProgramCall(IBMi);

            // Set the program name and parameter list.
            program.setProgram("/QSYS.LIB/BIBLIOTHEQUE.LIB/PROGRAMME.PGM", listeParametres);
            program.run();

            IBMi.disconnectAllServices();

        } catch (Exception e) {
            IBMi.disconnectAllServices();
        }

Code : Tout sélectionner

listeParametres = new ProgramParameter

Code : Tout sélectionner

listeParametres[0] = new ProgramParameter(new AS400ZonedDecimal(9, 0).toBytes(parametre));

Code : Tout sélectionner

dcl-pr PROGRAMME extpgm('PROGRAMME');
  PROGRAMME zoned(9)  const ;
end-pr;

dcl-pi *n;
  PROGRAMME zoned(9)  const ;
end-pi;