le forum IBM i

le problème c'est que l'appel a été fait à partir d'un cl, et que le les valeurs de retours dans le CL ne sont pas bonnes. Un dump du cl le confirme. Le code ( très simple) utilisé pour l'appel, ci-dessous. Cordialement, PGM PARM(&CCODRET &CLIBRET) DCL VAR(&CCODRET) TYPE(*CHAR...

Bonjour, Nous avons un problème avec les paramètres alpha en rpgle. exemple DART0010 PR extpgm('ART0010') D 50A D 50A D* DART0010 PI D XCODRT 50A Code retour D XLIBRT 50A C* /free XLIBRT=%trim('libelle en dur dans le code codelib bbbbbb610derX2A'); XCODRT=%trim('Code en dur dans ...

Bonjour,

Nous avons des problèmes de mis en fonction de l'unité LTO après un ipl sur notre machine de production sachant que nous avons une machine virtuelle.
Bien que le device soit *on à l'ipl, la LTO reste en hors fonction.

Si vous avais une idée ....

Cordialement.

Bonjour,

merci pour votre réponse.

Cordialement.

Bonjour,
en php sur iserie j'écris un fichier texte.
le codage dans l'ifs est 819.

comment obtenir un codage 850 ?

Merci pour vos réponses.
Cordialement.

Bonjour, Réponse au problème des paramètres : Dans le programme de service : les paramètres ne doivent avoir aucune option ou CONST (surtout pas value) Create function Mabib/myfunc ( art decimal(7, 0), date decimal(8, 0), zone varchar(7) ) '<------ ATTENTION VARCHAR I...

Bonjour,

J'ai casté les paramètres avec cast et pas dec comme au début.
La fonction est bien appelée mais j'ai toujours un plantage peut-être
lié a mon programme ?
j'analyse le problème

cdlt

l'objet NEWART/UTIL01PS existe
la procédure AUTETAT par un DSPSRVPGM ok
Est-elle exportée (EXPORT en RPG ) ? OUI
un enregistrement existe dans le fichier sysfuncs de qsys2

j'ai caster tous les numériques, sans résultat.
l'iserie est en v7r2.
parallèlement, j'ai crée une fonction en sql qui fonctionne bien
lorsque que je fais wrkobj *all/etat aucun objet apparait ???

Bonjour, je crée une fonction ainsi : Create function NEWART/ETAT ( art decimal(7, 0), date decimal(8, 0), zone char(7) ) returns decimal(1, 0) language rpgle external name 'NEWART/UTIL01PS(AUTETAT)' parameter style general la fonction est créée, mais lorsque je tente de l'utiliser j'ai le message s...

Merci pour votre réponse.

J'avais trouvé la même réponse sur les archives midrange.

Par contre je n'ai pas dans l'ifs : /tmp/SQE/ERRORS/

Bonjour,

sur mon ISERIE lors d'une sauvegarde système l'objet SYSIXADV de QSYS2 n'a pas pu être sauvegardé car il est endommagé.

Comment puis-je faire pour le réparer ?

Merci pour vos réponses.

Bonjour,

Un nouveau test, j'ai rajouté, comme vous, la bibliothèque et ça marche !!!!

y a t il un autre moyen que iserie Navigator pour créé des fonctions ?

Cordialement,
Manae

Bonjour, le fichier contient une valeur référence(7,0) et un code(4) le but de la fonction est de concaténer le champs code pour une référence donné dans une chaine de 20 caractères. apparemment ça à l'air de fonctionner chez vous. vous avez précisé la bibliothèque pour le fichier (pas moi), je ne s...

Il n'y a pas de valeur nulle dans la base. pour le test, il y a 2 enregs seulement. c'est peut être cette syntaxe qui ne va pas SET CHAINE = TRIM ( CHAINE ) CONCAT TRIM ( CODE ) ; le while fonctionne bien j'ai compté le nbre de passage (2). On dirait que le champs CODE (4 caractères alpha) lui pose ...