RE: [V4, positional]: Converting decimal to string without leading zeros

Hello,
You can do one of :
- in your RPGLE :
in the parm : declare CharCounter char(4)
In the proc : CharCounter = %char(Counter)
Or
- in your CL :
DCL CharCounter CHAR(4)
DCL Counter DEC(4 0)
CALL pgm Counter
CHGVAR CharCounter Counter
and use CharCounter in the SNDPGMMSG

-----Message d'origine-----
De : RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> De la part de Patrik Schindler
Envoyé : mercredi 9 juin 2021 15:39
À : RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Objet : Re: [V4, positional]: Converting decimal to string without leading zeros



ATTENTION : Ce message provient d'une source EXTERNE. Veuillez n'ouvrir les liens ou pièces jointes que si vous êtes sûr de l'expéditeur.



Hello Jean-Marc,

just to clarify 100%…

Am 09.06.2021 um 13:56 schrieb Jean-Marc DUVAL via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>:

declare your parm char(4)

Are you talking about the CL program? It already is.

and use %char(counter) to fill it.

This sounds like an RPG thing. I'll look this up. Thanks!

:wq! PoC

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.com/v3/__https://lists.midrange.com/mailman/listinfo/rpg400-l__;!!J76aczzK!i2bPdZ-DI7WH5JCDWevHHAXXEEJB4OZjRsywm6FVzthptfUNqBR6Y5I-JNDPUyaURO1tAg$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!J76aczzK!i2bPdZ-DI7WH5JCDWevHHAXXEEJB4OZjRsywm6FVzthptfUNqBR6Y5I-JNDPUyYjQae4ZA$ .

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://urldefense.com/v3/__https://amazon.midrange.com__;!!J76aczzK!i2bPdZ-DI7WH5JCDWevHHAXXEEJB4OZjRsywm6FVzthptfUNqBR6Y5I-JNDPUya1myApeg$