AW: How To Add Leading Zeros

Hi;

I'd use the following code:
D ImgCntc S 3a
D Zeros S Like(ImgCntC)

/Free
Zeros = All'0';
EvalR ImgCntC = Zeros + %Char(ImgCnt);
Dsply ImgCntC;
/End-Free

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"


-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Shannon ODonnell
Gesendet: Monday, 05. January 2009 17:52
An: 'RPG programming on the IBM i / System i'
Betreff: How To Add Leading Zeros

Given the following code fragment:



D ImgCnt S 3 0

D ImgCntc S 3a



C Do 999

C Eval ImgCnt = ImgCnt + 1

C Eval ImgCntc = %Char(ImgCnt)

C Enddo





If I displayed both of these variables on a screen they would look like
this:



IMGCNT = __1



IMGCNTC = 1__



What is the easiest way to pad IMGCNTC with leading zeros?



IMGCNTC = 001

IMGCNTC = 002

.

IMGCNTC = 085

IMGCNTC = 099

.

IMGCNTC = 134

Etc.







Thanks!





Shannon O'Donnell