le forum IBM i

- En rpg "classique" : Z-ADD Znum7 Znum5
Si Znum7=1234567, permet de tronquer et d'obtenir Znum5=34567

- en rpgfree , l'instruction znum5=znum7;
n'est pas possible si Znum7 est > à 99999
(RNQ0103 : Cible pour opération numérique trop petite pour contenir le résultat)

Pour résoudre le probléme, y aurait-il une instruction plus simple que :
ZNum5=%dec(%subst(%editc(ZNum7:'X'):3:5):5:0);

Je pense qu'en demandant le reste de la division par 100, on doit obtenir la même chose :

1234567 / 100 = 12345,67 --> 12345 = partie gauche
Or j'e veux la partie droite : 34567

OUPS, pardon.

je voulais dire par 100000

et il faut bien récupérer le RESTE (pas le résultat) ce que fait la fonction %REM.



désolé.

Christian