RE: ADD Zeros to a number

["Weber, Richard (US) " <Richard.Weber@xxxxxxxxxxxxxxxxxxx>]

That would be a suffix...

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Boggula Srinivas
Sent: Wednesday, December 12, 2007 2:36 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: ADD Zeros to a number 

Hi DennisRootes,
   
  Its in back, on the front end side he will enter 8 digits, and i want
to prefix
  two zeors to it.
   
  Regards,
  Srinivas
   
   
  

DennisRootes@xxxxxxxxxxx wrote:
  Srinivas,

Could you explain a little more please? I'm not sure I understand what 
you are trying to do. You have a screen field that's 8,0 and you said 
regardless of whatever is placed into the field you want to prefix it
with 
two zeroes. Is that on the front end or the back end? If a user puts 
eight 9's, (i.e.99999999), into the screen field are you going to strip 
out two 9's making the number display as 00999999, or add it into a 10,0

field in the rpg as 0099999999?
If it's the latter than like Charles said that wouldn't make any sense 
since the two numbers are identical. If it's the former you can convert 
to character and put the two leading zeroes in that way.

alpha8 = '00' + %subst(%char(ScreenField):3); //only takes the last 6 
digits
numeric8 = %dec(alpha8:8:0);