PHP sur AS400

Salut,
peut tu être plus précis sur ce que tu cherche comme information.
Les deux existes sur l'AS/400 et sont relativement simple d'emplois.

A+ Walter

y a t il une manière d'appeler un pgm as400 en PHP/ zendserver avec ou sans paramètres sans commandes EASYCOM aurement dit ..........gratuit

Oui, mais tu m'as pas donné le résultat :)
tu as un message d'erreur?

@walterTNon 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;

@djazairFait 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.

la tu a 3 chaine de caractère, donc tu utilise
array("Name"=>"op1", "IO"=>I5_OUT, "Type"=>I5_TYPE_CHAR, "Length"=>"1")

de même pour le reste en fonction du nombre de caractère que tu as réellement déclaré dans ton programme.
si ton premier paramètre peux prendre en fait 2 caractère tu doit mettre 2 dans la description.

Pour le reste il suffit de remplacer avec ton programme et les paramètres d'entrée

@walterTWalter, 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;
}

@djazairSalut,
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

Salut,
si tu utilise *PGM cela veut dire que tu as déclaré la structure d'appel avec l'outil Easycom "Stored Procedure configuration"

L'a tu déclaré?

@walterTMerci 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";
}
?>

@djazairSi 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

@walterTOk 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;
}

@djazairOui tout a fait.

A+ walter

Le Problème est plus le but : Que veux tu faire comme commande avec L'AS400. Il est possible de passer à SQL des commande de type call programme. Tu peux aussi créer des programmes dans un langage X sur l'AS400 avec ou sans paramètres. Créer une fonction SQL qui exécute celui-ci et passe par la dite fonction pour exécuter l'ordre.
... etc
Il est certain que le multiple outil du marche facilite cette objectif. Malheureusement je n'est pas d'exemple sous la main.

Faudrait peut être dire quel outil tu utilise?
Parce que la comme le dis dedalios, multiple outils le fond très bien.

un exemple pré-mâché utilisant I5toolKit avec commande simple et avec retour de paramètres:
$Hdlcon = i5_connect($adresse,$user, $mdp, $jobName);

$ret = i5_command("ADDLIBLE LIB(WALTER)");

$ret = i5_command("RTVSYSVAL", array("SYSVAL"=>"QSRLNBR"), array("RTNVAR" => "NB"));

@walterTMerci 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

Il serait peut être judicieu que tu connaisse dans les grandes lignes, les futures projets que tu va devoir mener.
Pour valider ta solution 3 tiers par interface WEB et savoir si elle sera adapter au autres projets.
Car si les utilisateurs finaux doivent jongler avec plusieurs interface, cela n'est pas forcement très productif et la perte en temps s'élévera a bien plus de 800€.

Coté sécurité, il y a pas grand chose, puisque la major partie et au niveau de ton réseau local.
Après, il ne reste que ce que je t'ai dis précédement, c'est à dire si tu met un utilisateur en dure dans tes scripts, que celui-ci ne puisse faire que de la consultation.
Le mieux étant de faire se logger tes utilisateurs, dans ce cas tu n'aurra pas de problème de sécurité lié à ton serveur WEB.

Cordialement,
Walter
www.easycom-aura.com

Salut,
Pour ZendCore il faut au minimum une V5R3.
300€ je crois que c'est surtout pour l'abonnement au support Zend, puisque vous avez déjà téléchargé le produit.

Après dans une architecture 3 tiers, la sécurité est établit avant tout par l'utilisation d'un utilisateur ne possédant que les droits necéssaire à l'application, au cas ou il y aurait une utilisation de celui pour faire d'autre requete que celle prévus.
Puis par le non access à l'AS/400 en directe.

On peut installer un wamp(ou autre) dans "l'IFS", mais surtout faire tourner Apache dans un environnement PASE.
Il suffit de compiler ou d'avoir un pré-compiler pour AIX et d'executer Apache dans l'environnment PASE.
C'est que fait le produit ZendCore.

Le plus simple étant quand même d'installer ZendCore, car la compilation/installation du couple Apache/PHP sur PASE est réservé à des personnes connaissant bien l'AS/400 et AIX.

Cordialement,
Walter
www.easycom-aura.com

QSECOFR c'est le login administrateur de ton AS/400.
ZendCore est gratuit, regarde chez zend pour plus d'informations.
Mais pour cela il faut que tu ais les droits d'administration de ton AS/400.

IBM DB2 Connect s'installe lorsque ton serveur WEB/PHP n'est pas sûr l'AS/400.
Et il s'installe sur ce serveur WEB, donc pas besion de connaissance/droit AS/400.
Mais par contre il est payant, je croix. Peut il y a t-il des substitu gratuis.

Après si tu veux que cela soit gratuit, le plus simple c'est de passer par ODBC.
Sur Windows il y a driver ODBC dans client access(je sais pas si c'est gratuit), sinon il en existe un sous Linux.

Cordialement,
Walter
www.easycom-aura.com