RpgFree : Znum7 vers Znum5

RPG (3 et 4, free), CL, SQL, etc...
Répondre
pmaugin
Site Admin
Messages : 30
Enregistré le : mer. 14 févr. 2007, 18:28:48

RpgFree : Znum7 vers Znum5

Message par pmaugin »

- 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);
Philippe MAUGIN, (RAUTUREAU APPLE SHOES)
V7R2.

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

reste de la division

Message par cmasse »

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

Code : Tout sélectionner

ZNUM5 = %REM(ZNUM7 : 100) ;
Christian Massé (Volubis.fr)

pmaugin
Site Admin
Messages : 30
Enregistré le : mer. 14 févr. 2007, 18:28:48

(sans texte)

Message par pmaugin »

1234567 / 100 = 12345,67 --> 12345 = partie gauche
Or j'e veux la partie droite : 34567
Philippe MAUGIN, (RAUTUREAU APPLE SHOES)
V7R2.

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

le RESTE pas le résultat

Message par cmasse »

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
Christian Massé (Volubis.fr)

Répondre