What about the following solution:
EvalR YourResult = '00000' + %Trim(YourCharField);
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!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Dave
Sent: Donnerstag, 1. April 2021 10:46
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: embarrassing move question
What's gone wrong!?
A PF has been populated from copying a spreadsheet from EXCEL and it now has
a 5A field with the value 1000.
The program using this file simply moves this to another file with an EVAL
operation. But the desired result is '01000' and not '1000 '
How can I avoid MOVE *ALL '0' followed by MOVE?!
--
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://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
