langage as400 rpg conversion

RPG (3 et 4, free), CL, SQL, etc...
Répondre
flechevallier
Messages : 1
Enregistré le : mer. 25 févr. 2009, 08:36:20

langage as400 rpg conversion

Message par flechevallier »

bonjour,

Est-ce que quelqu'un connait une combine pour convertir une donnée 000012 en 12.

merci!

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

enlever les zéros de gauche

Message par cmasse »

Bonjour,

je propose %trim,%triml et %trimr qui savent éliminer un caractère (par défaut, l'espace), si la zone est de type caractère, %char() avant, sinon :

Code : Tout sélectionner

eval resultat = %triml('000012' : '0');

voyez le détail des fonctions intégrées (BIF) ici : http://publib.boulder.ibm.com/infocente ... 0/6/0/4/2/
Christian Massé (Volubis.fr)

Répondre