PHP sur AS400

Merci Walter,

J'ai téléchargé le kit sur easycom, c'est en effet l'exemple qui a été donné et cela m'a beaucoup servi. merci pour votre réactivité.

Cordialement

Merci Walter d'avoir répondu,

A vrai dire je ne sais pas du tout.
Précédemment j'avais tenté avec une commande :
$ret = i5_command("XASEPPRG/PRIXREVIEN", array("DE"=>$NART, "DSPOUPRT"=>"F"), array());
Et cela a fonctionné.

Maintenant je voudrais appeler un programme qui est le suivant :
CALL PGM(OPT000) PARM('A' '23' '980065')

j'ai une erreur sur l'AS400 :
Message . . . . : Erreur de domaine d'objet ou de protection de mémoire pour
déplacement X'0000000000000000' dans objet ZENDCOREAPQSECOFR 558180.
Cause . . . . . : Un programme a tenté d'utiliser une instruction interdite,
d'accéder à un objet du domaine système ou de faire un mauvais usage d'une
page protégée. Le type de violation est 4. Le type de violation indique le
type d'erreur. 1-Violation du domaine d'un objet 2-Violation de test TESTPTA
(Test Pointer Target Addressability) 3-Erreur de protection en lecture

Voici mon script.

$adresse = "xxx.xxx.xxx.xxx";
$user = "xxxx";
$mdp = "xxxx";
$jobName= array(I5_OPTIONS_JOBNAME=>'I5JOB');


if ($user=="" || $mdp=="" || $adresse==""){
echo "<script>alert('Vous devez configurer le fichier conn.php avec vos propriétés de connexion\\n\\nYou must edit conn.php file with your connection property');</script>";
}

/* Connexion */
$Hdlcon = i5_connect($adresse,$user, $mdp, $jobName);
$prog = i5_program_prepare("*PGM/OPT000");

if(i5_program_call($prog, array('A','23','980065 '))) {
$result = i5_fetch_assoc($prog);
echo "result is ok";
}
else {
echo "Program call failed";
}
?>

Si tu ne sais pas si tu as déclaré ton programme avec l'outil(Windows), j'aurais tendance a dire que tu ne l'a pas fait.
Donc soit tu le fait, soit tu utilise une autre solution.

L'autre solution est de déclarer ton programme directement en PHP, un exemple est fournis dans la documentation de Zend.
Tu peux aussi aller sur le forum de Zend, ce cas a déjà était traité.

A+walter

Ok merci Walter.

L'autre soltion ca ne serait pas celle ci ?

/* Paramètres */
if (isset($_POST['param1'])) {$parm1 = $_POST['param1'];} else {$parm1 = 1;}
if (isset($_POST['param2'])) {$parm2 = $_POST['param2'];} else {$parm2 = "";}
if (isset($_POST['param3'])) {$parm3 = $_POST['param3'];} else {$parm3 = 3;}
if (isset($_POST['param4'])) {$parm4 = $_POST['param4'];} else {$parm4 = "";}

$description = Array(
array("Name"=>"OP1", "IO"=>I5_IN, "Type"=>I5_TYPE_PACKED, "Length"=>"5.2"),
array("Name"=>"STR1", "IO"=>I5_IN, "Type"=>I5_TYPE_CHAR, "Length"=>"20"),
array("Name"=>"OP2", "IO"=>I5_INOUT, "Type"=>I5_TYPE_PACKED, "Length"=>"5.2"),
array("Name"=>"STR2", "IO"=>I5_INOUT, "Type"=>I5_TYPE_CHAR, "Length"=>"30"),
array("Name"=>"OP3", "IO"=>I5_OUT, "Type"=>I5_TYPE_PACKED, "Length"=>"10.4")
);

$ret = i5_program_prepare("EASYCOM/RPCSAMPLE", $description);
if (is_bool($ret) && $ret == FALSE){
$code = I5_errno();
$msg = I5_errormsg();
$errorTab = I5_error();
trigger_error("I5_program_prepare fail, ".$errorTab[2], E_USER_ERROR);
}
$hdlPgm = $ret;

if ($parm1!='' && $parm2!='') {
$parameter = Array(
"OP1"=>$parm1,
"STR1"=>$parm2,
"OP2"=>$parm3,
"STR2"=>$parm4,
);

$parmOut = array("OP1"=>"OP1", "OP2"=>"OP2", "OP3"=>"OP3", "STR1"=>"STR1", "STR2"=>"STR2");
$ret = i5_program_call($hdlPgm, $parameter, $parmOut);
if (is_bool($ret) && $ret == FALSE){
$code = I5_errno();
$msg = I5_errormsg();
$errorTab = I5_error();
trigger_error("I5_program_call fail, ".$errorTab[2], E_USER_ERROR);
}
$appel = true;
} else {
$appel = false;
}

Oui tout a fait.

A+ walter

Walter, voila ce que j'ai fait...
Ma page internet explorer ne m'affiche pas d'erreur, mais je n'ai pas de resultat. Le programme est censé alimenter mon fichier.

Merci water

/* Connexion */
$jobName= array(I5_OPTIONS_JOBNAME=>'I5JOB');
// Connexion à l'AS400
$Hdlcon = i5_connect("IP","user", "mdp", $jobName);

/* Paramètres */
$parm1 = "A";
$parm2 = "23";
$parm3 = "980065";


$description = Array(
array("Name"=>"CODSOC", "IO"=>I5_IN, "Type"=>I5_TYPE_CHAR, "Length"=>"10"),
array("Name"=>"NOSECT", "IO"=>I5_IN, "Type"=>I5_TYPE_CHAR, "Length"=>"10"),
array("Name"=>"CLIENT", "IO"=>I5_IN, "Type"=>I5_TYPE_CHAR, "Length"=>"6")

);

$ret = i5_program_prepare("ATASEPI/OPT010", $description);
if (is_bool($ret) && $ret == FALSE){
$code = I5_errno();
$msg = I5_errormsg();
$errorTab = I5_error();
trigger_error("I5_program_prepare fail, ".$errorTab[2], E_USER_ERROR);
}
$hdlPgm = $ret;

if ($parm1!='' && $parm2!='') {
$parameter = Array(
"CODSOC"=>$parm1,
"NOSECT"=>$parm2,
"CLIENT"=>$parm3,

);

$parmOut = array("CODSOC"=>"CODSOC", "NOSECT"=>"NOSECT", "CLIENT"=>"CLIENT");
$ret = i5_program_call($hdlPgm, $parameter, $parmOut);
if (is_bool($ret) && $ret == FALSE){
$code = I5_errno();
$msg = I5_errormsg();
$errorTab = I5_error();
trigger_error("I5_program_call fail, ".$errorTab[2], E_USER_ERROR);
}
$appel = true;
} else {
$appel = false;
}

Salut,
oui c'est presque ça, sauf que a priori ton programme ne modifie pas les paramètres.
Donc pourquoi les demander en retour?
dans ce cas il faut modifier là description pour que les paramètres soient en entrée/sortie

Non je n'ai aucun message d'erreur justement sur ma page Internet Explorer.
Du coté du 400 pareil je n'ai rien.

$appel retourn 1;

Fait une trace AS/400, avec la fonction i5_start_filetest ou un truc comme ça.
mais cela veut dire que ta fonction a était correctement appelée normalement.